Bug Summary

File:home/alan/workspace/canalyze/test/python/scipy/build/src.linux-x86_64-3.8/build/src.linux-x86_64-3.8/scipy/linalg/_flapackmodule.c
Warning:line 106565, column 44
PyObject ownership leak with reference count of 1

Annotated Source Code

Press '?' to see keyboard shortcuts

clang -cc1 -cc1 -triple x86_64-unknown-linux-gnu -analyze -disable-free -disable-llvm-verifier -discard-value-names -main-file-name _flapackmodule.c -analyzer-store=region -analyzer-opt-analyze-nested-blocks -analyzer-checker=core -analyzer-checker=apiModeling -analyzer-checker=unix -analyzer-checker=deadcode -analyzer-checker=security.insecureAPI.UncheckedReturn -analyzer-checker=security.insecureAPI.getpw -analyzer-checker=security.insecureAPI.gets -analyzer-checker=security.insecureAPI.mktemp -analyzer-checker=security.insecureAPI.mkstemp -analyzer-checker=security.insecureAPI.vfork -analyzer-checker=nullability.NullPassedToNonnull -analyzer-checker=nullability.NullReturnedFromNonnull -analyzer-output plist -w -analyzer-output=html -analyzer-checker=python -analyzer-disable-checker=deadcode -analyzer-config prune-paths=true,suppress-c++-stdlib=true,suppress-null-return-paths=false,crosscheck-with-z3=true,model-path=/home/alan/temp/cpython/Python-3.8.5/Doc/build/models -analyzer-config experimental-enable-naive-ctu-analysis=true,ctu-dir=/home/alan/workspace/canalyze/test/python/scipy/csa-scan,ctu-index-name=/home/alan/workspace/canalyze/test/python/scipy/csa-scan/externalDefMap.txt,ctu-invocation-list=/home/alan/workspace/canalyze/test/python/scipy/csa-scan/invocations.yaml,display-ctu-progress=false -setup-static-analyzer -analyzer-config-compatibility-mode=true -mrelocation-model pic -pic-level 2 -fhalf-no-semantic-interposition -mframe-pointer=none -fmath-errno -fno-rounding-math -mconstructor-aliases -munwind-tables -target-cpu x86-64 -tune-cpu generic -debug-info-kind=limited -dwarf-version=4 -debugger-tuning=gdb -fcoverage-compilation-dir=/home/alan/workspace/canalyze/test/python/scipy -resource-dir /home/alan/workspace/llvm-project/build/NATIVE/lib/clang/13.0.0 -isystem /home/alan/temp/cpython/Python-3.8.5/Doc/build/python3.8 -D NDEBUG -D _FORTIFY_SOURCE=2 -D NO_ATLAS_INFO=1 -D HAVE_CBLAS -I /usr/local/include -I /usr/include -I build/src.linux-x86_64-3.8/build/src.linux-x86_64-3.8/build/src.linux-x86_64-3.8/scipy/linalg -I /usr/lib/python3/dist-packages/numpy/core/include -internal-isystem /home/alan/workspace/llvm-project/build/NATIVE/lib/clang/13.0.0/include -internal-isystem /usr/local/include -internal-isystem /usr/lib/gcc/x86_64-linux-gnu/10/../../../../x86_64-linux-gnu/include -internal-externc-isystem /usr/include/x86_64-linux-gnu -internal-externc-isystem /include -internal-externc-isystem /usr/include -O2 -Wno-unused-result -Wsign-compare -Wall -Wformat -Werror=format-security -Wformat -Werror=format-security -Wdate-time -fdebug-compilation-dir=/home/alan/workspace/canalyze/test/python/scipy -ferror-limit 19 -fwrapv -pthread -stack-protector 2 -fgnuc-version=4.2.1 -vectorize-loops -vectorize-slp -faddrsig -D__GCC_HAVE_DWARF2_CFI_ASM=1 -o /home/alan/workspace/canalyze/test/python/scipy/csa-scan/reports -x c build/src.linux-x86_64-3.8/build/src.linux-x86_64-3.8/scipy/linalg/_flapackmodule.c

build/src.linux-x86_64-3.8/build/src.linux-x86_64-3.8/scipy/linalg/_flapackmodule.c

1/* File: _flapackmodule.c
2 * This file is auto-generated with f2py (version:2).
3 * f2py is a Fortran to Python Interface Generator (FPIG), Second Edition,
4 * written by Pearu Peterson <pearu@cens.ioc.ee>.
5 * Generation date: Wed Jul 14 03:02:03 2021
6 * Do not edit this file directly unless you know what you are doing!!!
7 */
8
9#ifdef __cplusplus
10extern "C" {
11#endif
12
13/*********************** See f2py2e/cfuncs.py: includes ***********************/
14#include "Python.h"
15#include <stdarg.h>
16#include "fortranobject.h"
17#include <string.h>
18#include <setjmp.h>
19#include <math.h>
20
21/**************** See f2py2e/rules.py: mod_rules['modulebody'] ****************/
22static PyObject *_flapack_error;
23static PyObject *_flapack_module;
24
25/*********************** See f2py2e/cfuncs.py: typedefs ***********************/
26typedef char * string;
27typedef struct {double r,i;} complex_double;
28typedef struct {float r,i;} complex_float;
29
30/****************** See f2py2e/cfuncs.py: typedefs_generated ******************/
31typedef int(*cb_zselect_in_gges__user__routines_typedef)(complex_double *,complex_double *);
32typedef int(*cb_cselect_in_gges__user__routines_typedef)(complex_float *,complex_float *);
33typedef int(*cb_dselect_in_gges__user__routines_typedef)(double *,double *,double *);
34typedef int(*cb_sselect_in_gges__user__routines_typedef)(float *,float *,float *);
35typedef int(*cb_dselect_in_gees__user__routines_typedef)(double *,double *);
36typedef int(*cb_sselect_in_gees__user__routines_typedef)(float *,float *);
37typedef int(*cb_zselect_in_gees__user__routines_typedef)(complex_double *);
38typedef int(*cb_cselect_in_gees__user__routines_typedef)(complex_float *);
39
40/********************** See f2py2e/cfuncs.py: cppmacros **********************/
41#define PRINTPYOBJERR(obj)__fprintf_chk (stderr, 2 - 1, "_flapack.error is related to "
); PyObject_Print((PyObject *)obj,stderr,1); __fprintf_chk (stderr
, 2 - 1, "\n");
\
42 fprintf(stderr,"_flapack.error is related to ")__fprintf_chk (stderr, 2 - 1, "_flapack.error is related to "
)
;\
43 PyObject_Print((PyObject *)obj,stderrstderr,Py_PRINT_RAW1);\
44 fprintf(stderr,"\n")__fprintf_chk (stderr, 2 - 1, "\n");
45
46\
47#define FAILNULL(p)do { if ((p) == ((void*)0)) { PyErr_SetString(PyExc_MemoryError
, "NULL pointer found"); goto capi_fail; } } while (0)
do { \
48 if ((p) == NULL((void*)0)) { \
49 PyErr_SetString(PyExc_MemoryError, "NULL pointer found"); \
50 goto capi_fail; \
51 } \
52} while (0)
53
54#define STRINGMALLOC(str,len)if ((str = (string)malloc(sizeof(char)*(len+1))) == ((void*)0
)) { PyErr_SetString(PyExc_MemoryError, "out of memory"); goto
capi_fail; } else { (str)[len] = '\0'; }
\
55 if ((str = (string)malloc(sizeof(char)*(len+1))) == NULL((void*)0)) {\
56 PyErr_SetString(PyExc_MemoryError, "out of memory");\
57 goto capi_fail;\
58 } else {\
59 (str)[len] = '\0';\
60 }
61
62#define GETSCALARFROMPYTUPLE(tuple,index,var,ctype,mess){ if ((capi_tmp = PyTuple_GetItem((tuple),(index)))==((void*)
0)) goto capi_fail; if (!(ctype_from_pyobj((var),capi_tmp,mess
))) goto capi_fail; }
{\
63 if ((capi_tmp = PyTuple_GetItem((tuple),(index)))==NULL((void*)0)) goto capi_fail;\
64 if (!(ctype ## _from_pyobj((var),capi_tmp,mess)))\
65 goto capi_fail;\
66 }
67
68#define pyobj_from_float1(v)(PyFloat_FromDouble(v)) (PyFloat_FromDouble(v))
69#ifdef DEBUGCFUNCS
70#define CFUNCSMESS(mess) fprintf(stderr,"debug-capi:"mess)__fprintf_chk (stderr, 2 - 1, "debug-capi:"mess);
71#define CFUNCSMESSPY(mess,obj) CFUNCSMESS(mess) \
72 PyObject_Print((PyObject *)obj,stderrstderr,Py_PRINT_RAW1);\
73 fprintf(stderr,"\n")__fprintf_chk (stderr, 2 - 1, "\n");
74#else
75#define CFUNCSMESS(mess)
76#define CFUNCSMESSPY(mess,obj)
77#endif
78
79#define pyobj_from_double1(v)(PyFloat_FromDouble(v)) (PyFloat_FromDouble(v))
80#define pyobj_from_complex_float1(v)(PyComplex_FromDoubles(v.r,v.i)) (PyComplex_FromDoubles(v.r,v.i))
81#define pyobj_from_complex_double1(v)(PyComplex_FromDoubles(v.r,v.i)) (PyComplex_FromDoubles(v.r,v.i))
82#if defined(PREPEND_FORTRAN)
83#if defined(NO_APPEND_FORTRAN)
84#if defined(UPPERCASE_FORTRAN)
85#define F_FUNC(f,F)f_ _##F
86#else
87#define F_FUNC(f,F)f_ _##f
88#endif
89#else
90#if defined(UPPERCASE_FORTRAN)
91#define F_FUNC(f,F)f_ _##F##_
92#else
93#define F_FUNC(f,F)f_ _##f##_
94#endif
95#endif
96#else
97#if defined(NO_APPEND_FORTRAN)
98#if defined(UPPERCASE_FORTRAN)
99#define F_FUNC(f,F)f_ F
100#else
101#define F_FUNC(f,F)f_ f
102#endif
103#else
104#if defined(UPPERCASE_FORTRAN)
105#define F_FUNC(f,F)f_ F##_
106#else
107#define F_FUNC(f,F)f_ f##_
108#endif
109#endif
110#endif
111#if defined(UNDERSCORE_G77)
112#define F_FUNC_US(f,F)f_ F_FUNC(f##_,F##_)f##__
113#else
114#define F_FUNC_US(f,F)f_ F_FUNC(f,F)f_
115#endif
116
117#define rank(var)var_Rank var ## _Rank
118#define shape(var,dim)var_Dims[dim] var ## _Dims[dim]
119#define old_rank(var)((((PyArrayObject_fields *)((PyArrayObject *)(capi_var_tmp)))
->nd))
(PyArray_NDIM((PyArrayObject *)(capi_ ## var ## _tmp))(((PyArrayObject_fields *)((PyArrayObject *)(capi_ ## var ## _tmp
)))->nd)
)
120#define old_shape(var,dim)((((PyArrayObject_fields *)(((PyArrayObject *)(capi_var_tmp))
))->dimensions)[dim])
PyArray_DIM(((PyArrayObject *)(capi_ ## var ## _tmp)),dim)((((PyArrayObject_fields *)(((PyArrayObject *)(capi_ ## var ##
_tmp))))->dimensions)[dim])
121#define fshape(var,dim)var_Dims[var_Rank-dim-1] shape(var,rank(var)-dim-1)var_Dims[var_Rank-dim-1]
122#define len(var)var_Dims[0] shape(var,0)var_Dims[0]
123#define flen(var)var_Dims[var_Rank-0 -1] fshape(var,0)var_Dims[var_Rank-0 -1]
124#define old_size(var)(*(npy_intp (*)(npy_intp const *, int)) _npy_f2py_ARRAY_API[158
])((((PyArrayObject_fields *)((PyArrayObject *)(capi_var_tmp)
))->dimensions), (((PyArrayObject_fields *)((PyArrayObject
*)(capi_var_tmp)))->nd))
PyArray_SIZE((PyArrayObject *)(capi_ ## var ## _tmp))(*(npy_intp (*)(npy_intp const *, int)) _npy_f2py_ARRAY_API[158
])((((PyArrayObject_fields *)((PyArrayObject *)(capi_ ## var ##
_tmp)))->dimensions), (((PyArrayObject_fields *)((PyArrayObject
*)(capi_ ## var ## _tmp)))->nd))
125/* #define index(i) capi_i ## i */
126#define slen(var)capi_var_len capi_ ## var ## _len
127#define size(var, ...)f2py_size((PyArrayObject *)(capi_var_tmp), ..., -1) f2py_size((PyArrayObject *)(capi_ ## var ## _tmp), ## __VA_ARGS__, -1)
128
129#define CHECKSCALAR(check,tcheck,name,show,var)if (!(check)) { char errstring[256]; __builtin___sprintf_chk (
errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1)
, "%s: "show, "("tcheck") failed for "name, var); PyErr_SetString
(_flapack_error,errstring); } else
\
130 if (!(check)) {\
131 char errstring[256];\
132 sprintf(errstring, "%s: "show, "("tcheck") failed for "name, var)__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: "show, "("tcheck") failed for "name
, var)
;\
133 PyErr_SetString(_flapack_error,errstring);\
134 /*goto capi_fail;*/\
135 } else
136#ifndef max
137#define max(a,b)((a > b) ? (a) : (b)) ((a > b) ? (a) : (b))
138#endif
139#ifndef min
140#define min(a,b)((a < b) ? (a) : (b)) ((a < b) ? (a) : (b))
141#endif
142#ifndef MAX
143#define MAX(a,b)((a > b) ? (a) : (b)) ((a > b) ? (a) : (b))
144#endif
145#ifndef MIN
146#define MIN(a,b)((a < b) ? (a) : (b)) ((a < b) ? (a) : (b))
147#endif
148
149#define CHECKARRAY(check,tcheck,name)if (!(check)) { PyErr_SetString(_flapack_error,"("tcheck") failed for "
name); } else
\
150 if (!(check)) {\
151 PyErr_SetString(_flapack_error,"("tcheck") failed for "name);\
152 /*goto capi_fail;*/\
153 } else
154#define STRINGFREE(str)do {if (!(str == ((void*)0))) free(str);} while (0) do {if (!(str == NULL((void*)0))) free(str);} while (0)
155
156#define CHECKSTRING(check,tcheck,name,show,var)if (!(check)) { char errstring[256]; __builtin___sprintf_chk (
errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1)
, "%s: "show, "("tcheck") failed for "name, capi_var_len, var
); PyErr_SetString(_flapack_error, errstring); } else
\
157 if (!(check)) {\
158 char errstring[256];\
159 sprintf(errstring, "%s: "show, "("tcheck") failed for "name, slen(var), var)__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: "show, "("tcheck") failed for "name
, capi_var_len, var)
;\
160 PyErr_SetString(_flapack_error, errstring);\
161 /*goto capi_fail;*/\
162 } else
163#define SWAP(a,b,t){ t *c; c = a; a = b; b = c;} {\
164 t *c;\
165 c = a;\
166 a = b;\
167 b = c;}
168
169#if defined(PREPEND_FORTRAN)
170#if defined(NO_APPEND_FORTRAN)
171#if defined(UPPERCASE_FORTRAN)
172#define F_WRAPPEDFUNC(f,F)f2pywrapf_ _F2PYWRAP##F
173#else
174#define F_WRAPPEDFUNC(f,F)f2pywrapf_ _f2pywrap##f
175#endif
176#else
177#if defined(UPPERCASE_FORTRAN)
178#define F_WRAPPEDFUNC(f,F)f2pywrapf_ _F2PYWRAP##F##_
179#else
180#define F_WRAPPEDFUNC(f,F)f2pywrapf_ _f2pywrap##f##_
181#endif
182#endif
183#else
184#if defined(NO_APPEND_FORTRAN)
185#if defined(UPPERCASE_FORTRAN)
186#define F_WRAPPEDFUNC(f,F)f2pywrapf_ F2PYWRAP##F
187#else
188#define F_WRAPPEDFUNC(f,F)f2pywrapf_ f2pywrap##f
189#endif
190#else
191#if defined(UPPERCASE_FORTRAN)
192#define F_WRAPPEDFUNC(f,F)f2pywrapf_ F2PYWRAP##F##_
193#else
194#define F_WRAPPEDFUNC(f,F)f2pywrapf_ f2pywrap##f##_
195#endif
196#endif
197#endif
198#if defined(UNDERSCORE_G77)
199#define F_WRAPPEDFUNC_US(f,F)f2pywrapf_ F_WRAPPEDFUNC(f##_,F##_)f2pywrapf##__
200#else
201#define F_WRAPPEDFUNC_US(f,F)f2pywrapf_ F_WRAPPEDFUNC(f,F)f2pywrapf_
202#endif
203
204#define STRINGCOPYN(to,from,buf_size)do { int _m = (buf_size); char *_to = (to); char *_from = (from
); do { if ((_to) == ((void*)0)) { PyErr_SetString(PyExc_MemoryError
, "NULL pointer found"); goto capi_fail; } } while (0); do { if
((_from) == ((void*)0)) { PyErr_SetString(PyExc_MemoryError,
"NULL pointer found"); goto capi_fail; } } while (0); (void)
strncpy(_to, _from, sizeof(char)*_m); _to[_m-1] = '\0'; for (
_m -= 2; _m >= 0 && _to[_m] == '\0'; _m--) { _to[_m
] = ' '; } } while (0)
\
205 do { \
206 int _m = (buf_size); \
207 char *_to = (to); \
208 char *_from = (from); \
209 FAILNULL(_to)do { if ((_to) == ((void*)0)) { PyErr_SetString(PyExc_MemoryError
, "NULL pointer found"); goto capi_fail; } } while (0)
; FAILNULL(_from)do { if ((_from) == ((void*)0)) { PyErr_SetString(PyExc_MemoryError
, "NULL pointer found"); goto capi_fail; } } while (0)
; \
210 (void)strncpy(_to, _from, sizeof(char)*_m); \
211 _to[_m-1] = '\0'; \
212 /* Padding with spaces instead of nulls */ \
213 for (_m -= 2; _m >= 0 && _to[_m] == '\0'; _m--) { \
214 _to[_m] = ' '; \
215 } \
216 } while (0)
217
218
219/************************ See f2py2e/cfuncs.py: cfuncs ************************/
220static int complex_double_from_pyobj(complex_double* v,PyObject *obj,const char *errmess) {
221 Py_complex c;
222 if (PyComplex_Check(obj)((((PyObject*)(obj))->ob_type) == (&PyComplex_Type) ||
PyType_IsSubtype((((PyObject*)(obj))->ob_type), (&PyComplex_Type
)))
) {
223 c=PyComplex_AsCComplex(obj);
224 (*v).r=c.real, (*v).i=c.imag;
225 return 1;
226 }
227 if (PyArray_IsScalar(obj, ComplexFloating)(((((PyObject*)(obj))->ob_type) == (&(*(PyTypeObject *
)_npy_f2py_ARRAY_API[17])) || PyType_IsSubtype((((PyObject*)(
obj))->ob_type), (&(*(PyTypeObject *)_npy_f2py_ARRAY_API
[17])))))
) {
228 if (PyArray_IsScalar(obj, CFloat)(((((PyObject*)(obj))->ob_type) == (&(*(PyTypeObject *
)_npy_f2py_ARRAY_API[33])) || PyType_IsSubtype((((PyObject*)(
obj))->ob_type), (&(*(PyTypeObject *)_npy_f2py_ARRAY_API
[33])))))
) {
229 npy_cfloat new;
230 PyArray_ScalarAsCtype(*(void (*)(PyObject *, void *)) _npy_f2py_ARRAY_API[62])(obj, &new);
231 (*v).r = (double)new.real;
232 (*v).i = (double)new.imag;
233 }
234 else if (PyArray_IsScalar(obj, CLongDouble)(((((PyObject*)(obj))->ob_type) == (&(*(PyTypeObject *
)_npy_f2py_ARRAY_API[35])) || PyType_IsSubtype((((PyObject*)(
obj))->ob_type), (&(*(PyTypeObject *)_npy_f2py_ARRAY_API
[35])))))
) {
235 npy_clongdouble new;
236 PyArray_ScalarAsCtype(*(void (*)(PyObject *, void *)) _npy_f2py_ARRAY_API[62])(obj, &new);
237 (*v).r = (double)new.real;
238 (*v).i = (double)new.imag;
239 }
240 else { /* if (PyArray_IsScalar(obj, CDouble)) */
241 PyArray_ScalarAsCtype(*(void (*)(PyObject *, void *)) _npy_f2py_ARRAY_API[62])(obj, v);
242 }
243 return 1;
244 }
245 if (PyArray_CheckScalar(obj)((((((PyObject*)(obj))->ob_type) == (&(*(PyTypeObject *
)_npy_f2py_ARRAY_API[10])) || PyType_IsSubtype((((PyObject*)(
obj))->ob_type), (&(*(PyTypeObject *)_npy_f2py_ARRAY_API
[10]))))) || (((((PyObject*)(obj))->ob_type) == (&(*(PyTypeObject
*)_npy_f2py_ARRAY_API[2])) || PyType_IsSubtype((((PyObject*)
(obj))->ob_type), (&(*(PyTypeObject *)_npy_f2py_ARRAY_API
[2])))) && ((((PyArrayObject_fields *)((PyArrayObject
*)obj))->nd) == 0)))
) { /* 0-dim array or still array scalar */
246 PyObject *arr;
247 if (PyArray_Check(obj)((((PyObject*)(obj))->ob_type) == (&(*(PyTypeObject *)
_npy_f2py_ARRAY_API[2])) || PyType_IsSubtype((((PyObject*)(obj
))->ob_type), (&(*(PyTypeObject *)_npy_f2py_ARRAY_API[
2]))))
) {
248 arr = PyArray_Cast((PyArrayObject *)obj, NPY_CDOUBLE)(*(PyObject * (*)(PyArrayObject *, PyArray_Descr *, int)) _npy_f2py_ARRAY_API
[49])((PyArrayObject *)obj, (*(PyArray_Descr * (*)(int)) _npy_f2py_ARRAY_API
[45])(NPY_CDOUBLE), 0)
;
249 }
250 else {
251 arr = PyArray_FromScalar(*(PyObject * (*)(PyObject *, PyArray_Descr *)) _npy_f2py_ARRAY_API
[61])
(obj, PyArray_DescrFromType(*(PyArray_Descr * (*)(int)) _npy_f2py_ARRAY_API[45])(NPY_CDOUBLE));
252 }
253 if (arr==NULL((void*)0)) return 0;
254 (*v).r = ((npy_cdouble *)PyArray_DATA(arr)((void *)((PyArrayObject_fields *)(arr))->data))->real;
255 (*v).i = ((npy_cdouble *)PyArray_DATA(arr)((void *)((PyArrayObject_fields *)(arr))->data))->imag;
256 return 1;
257 }
258 /* Python does not provide PyNumber_Complex function :-( */
259 (*v).i=0.0;
260 if (PyFloat_Check(obj)((((PyObject*)(obj))->ob_type) == (&PyFloat_Type) || PyType_IsSubtype
((((PyObject*)(obj))->ob_type), (&PyFloat_Type)))
) {
261#ifdef __sgi
262 (*v).r = PyFloat_AsDouble(obj);
263#else
264 (*v).r = PyFloat_AS_DOUBLE(obj)(((PyFloatObject *)(obj))->ob_fval);
265#endif
266 return 1;
267 }
268 if (PyInt_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL
<< 24))) != 0)
) {
269 (*v).r = (double)PyInt_AS_LONGPyLong_AsLong(obj);
270 return 1;
271 }
272 if (PyLong_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL
<< 24))) != 0)
) {
273 (*v).r = PyLong_AsDouble(obj);
274 return (!PyErr_Occurred());
275 }
276 if (PySequence_Check(obj) && !(PyString_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL
<< 27))) != 0)
|| PyUnicode_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL
<< 28))) != 0)
)) {
277 PyObject *tmp = PySequence_GetItem(obj,0);
278 if (tmp) {
279 if (complex_double_from_pyobj(v,tmp,errmess)) {
280 Py_DECREF(tmp)_Py_DECREF(((PyObject*)(tmp)));
281 return 1;
282 }
283 Py_DECREF(tmp)_Py_DECREF(((PyObject*)(tmp)));
284 }
285 }
286 {
287 PyObject* err = PyErr_Occurred();
288 if (err==NULL((void*)0))
289 err = PyExc_TypeError;
290 PyErr_SetString(err,errmess);
291 }
292 return 0;
293}
294
295static int double_from_pyobj(double* v,PyObject *obj,const char *errmess) {
296 PyObject* tmp = NULL((void*)0);
297 if (PyFloat_Check(obj)((((PyObject*)(obj))->ob_type) == (&PyFloat_Type) || PyType_IsSubtype
((((PyObject*)(obj))->ob_type), (&PyFloat_Type)))
) {
298#ifdef __sgi
299 *v = PyFloat_AsDouble(obj);
300#else
301 *v = PyFloat_AS_DOUBLE(obj)(((PyFloatObject *)(obj))->ob_fval);
302#endif
303 return 1;
304 }
305 tmp = PyNumber_Float(obj);
306 if (tmp) {
307#ifdef __sgi
308 *v = PyFloat_AsDouble(tmp);
309#else
310 *v = PyFloat_AS_DOUBLE(tmp)(((PyFloatObject *)(tmp))->ob_fval);
311#endif
312 Py_DECREF(tmp)_Py_DECREF(((PyObject*)(tmp)));
313 return 1;
314 }
315 if (PyComplex_Check(obj)((((PyObject*)(obj))->ob_type) == (&PyComplex_Type) ||
PyType_IsSubtype((((PyObject*)(obj))->ob_type), (&PyComplex_Type
)))
)
316 tmp = PyObject_GetAttrString(obj,"real");
317 else if (PyString_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL
<< 27))) != 0)
|| PyUnicode_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL
<< 28))) != 0)
)
318 /*pass*/;
319 else if (PySequence_Check(obj))
320 tmp = PySequence_GetItem(obj,0);
321 if (tmp) {
322 PyErr_Clear();
323 if (double_from_pyobj(v,tmp,errmess)) {Py_DECREF(tmp)_Py_DECREF(((PyObject*)(tmp))); return 1;}
324 Py_DECREF(tmp)_Py_DECREF(((PyObject*)(tmp)));
325 }
326 {
327 PyObject* err = PyErr_Occurred();
328 if (err==NULL((void*)0)) err = _flapack_error;
329 PyErr_SetString(err,errmess);
330 }
331 return 0;
332}
333
334static int f2py_size(PyArrayObject* var, ...)
335{
336 npy_int sz = 0;
337 npy_int dim;
338 npy_int rank;
339 va_list argp;
340 va_start(argp, var)__builtin_va_start(argp, var);
341 dim = va_arg(argp, npy_int)__builtin_va_arg(argp, npy_int);
342 if (dim==-1)
343 {
344 sz = PyArray_SIZE(var)(*(npy_intp (*)(npy_intp const *, int)) _npy_f2py_ARRAY_API[158
])((((PyArrayObject_fields *)(var))->dimensions), (((PyArrayObject_fields
*)(var))->nd))
;
345 }
346 else
347 {
348 rank = PyArray_NDIM(var)(((PyArrayObject_fields *)(var))->nd);
349 if (dim>=1 && dim<=rank)
350 sz = PyArray_DIM(var, dim-1)((((PyArrayObject_fields *)(var))->dimensions)[dim-1]);
351 else
352 fprintf(stderr, "f2py_size: 2nd argument value=%d fails to satisfy 1<=value<=%d. Result will be 0.\n", dim, rank)__fprintf_chk (stderr, 2 - 1, "f2py_size: 2nd argument value=%d fails to satisfy 1<=value<=%d. Result will be 0.\n"
, dim, rank)
;
353 }
354 va_end(argp)__builtin_va_end(argp);
355 return sz;
356}
357
358static int int_from_pyobj(int* v,PyObject *obj,const char *errmess) {
359 PyObject* tmp = NULL((void*)0);
360 if (PyInt_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL
<< 24))) != 0)
) {
361 *v = (int)PyInt_AS_LONGPyLong_AsLong(obj);
362 return 1;
363 }
364 tmp = PyNumber_IntPyNumber_Long(obj);
365 if (tmp) {
366 *v = PyInt_AS_LONGPyLong_AsLong(tmp);
367 Py_DECREF(tmp)_Py_DECREF(((PyObject*)(tmp)));
368 return 1;
369 }
370 if (PyComplex_Check(obj)((((PyObject*)(obj))->ob_type) == (&PyComplex_Type) ||
PyType_IsSubtype((((PyObject*)(obj))->ob_type), (&PyComplex_Type
)))
)
371 tmp = PyObject_GetAttrString(obj,"real");
372 else if (PyString_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL
<< 27))) != 0)
|| PyUnicode_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL
<< 28))) != 0)
)
373 /*pass*/;
374 else if (PySequence_Check(obj))
375 tmp = PySequence_GetItem(obj,0);
376 if (tmp) {
377 PyErr_Clear();
378 if (int_from_pyobj(v,tmp,errmess)) {Py_DECREF(tmp)_Py_DECREF(((PyObject*)(tmp))); return 1;}
379 Py_DECREF(tmp)_Py_DECREF(((PyObject*)(tmp)));
380 }
381 {
382 PyObject* err = PyErr_Occurred();
383 if (err==NULL((void*)0)) err = _flapack_error;
384 PyErr_SetString(err,errmess);
385 }
386 return 0;
387}
388
389static int string_from_pyobj(string *str,int *len,const string inistr,PyObject *obj,const char *errmess) {
390 PyArrayObject *arr = NULL((void*)0);
391 PyObject *tmp = NULL((void*)0);
392#ifdef DEBUGCFUNCS
393fprintf(stderr,"string_from_pyobj(str='%s',len=%d,inistr='%s',obj=%p)\n",(char*)str,*len,(char *)inistr,obj)__fprintf_chk (stderr, 2 - 1, "string_from_pyobj(str='%s',len=%d,inistr='%s',obj=%p)\n"
,(char*)str,*len,(char *)inistr,obj)
;
394#endif
395 if (obj == Py_None(&_Py_NoneStruct)) {
396 if (*len == -1)
397 *len = strlen(inistr); /* Will this cause problems? */
398 STRINGMALLOC(*str,*len)if ((*str = (string)malloc(sizeof(char)*(*len+1))) == ((void*
)0)) { PyErr_SetString(PyExc_MemoryError, "out of memory"); goto
capi_fail; } else { (*str)[*len] = '\0'; }
;
399 STRINGCOPYN(*str,inistr,*len+1)do { int _m = (*len+1); char *_to = (*str); char *_from = (inistr
); do { if ((_to) == ((void*)0)) { PyErr_SetString(PyExc_MemoryError
, "NULL pointer found"); goto capi_fail; } } while (0); do { if
((_from) == ((void*)0)) { PyErr_SetString(PyExc_MemoryError,
"NULL pointer found"); goto capi_fail; } } while (0); (void)
strncpy(_to, _from, sizeof(char)*_m); _to[_m-1] = '\0'; for (
_m -= 2; _m >= 0 && _to[_m] == '\0'; _m--) { _to[_m
] = ' '; } } while (0)
;
400 return 1;
401 }
402 if (PyArray_Check(obj)((((PyObject*)(obj))->ob_type) == (&(*(PyTypeObject *)
_npy_f2py_ARRAY_API[2])) || PyType_IsSubtype((((PyObject*)(obj
))->ob_type), (&(*(PyTypeObject *)_npy_f2py_ARRAY_API[
2]))))
) {
403 if ((arr = (PyArrayObject *)obj) == NULL((void*)0))
404 goto capi_fail;
405 if (!ISCONTIGUOUS(arr)((((PyArrayObject_fields *)(arr))->flags) & 0x0001)) {
406 PyErr_SetString(PyExc_ValueError,"array object is non-contiguous.");
407 goto capi_fail;
408 }
409 if (*len == -1)
410 *len = (PyArray_ITEMSIZE(arr)(((PyArrayObject_fields *)(arr))->descr->elsize))*PyArray_SIZE(arr)(*(npy_intp (*)(npy_intp const *, int)) _npy_f2py_ARRAY_API[158
])((((PyArrayObject_fields *)(arr))->dimensions), (((PyArrayObject_fields
*)(arr))->nd))
;
411 STRINGMALLOC(*str,*len)if ((*str = (string)malloc(sizeof(char)*(*len+1))) == ((void*
)0)) { PyErr_SetString(PyExc_MemoryError, "out of memory"); goto
capi_fail; } else { (*str)[*len] = '\0'; }
;
412 STRINGCOPYN(*str,PyArray_DATA(arr),*len+1)do { int _m = (*len+1); char *_to = (*str); char *_from = (((
void *)((PyArrayObject_fields *)(arr))->data)); do { if ((
_to) == ((void*)0)) { PyErr_SetString(PyExc_MemoryError, "NULL pointer found"
); goto capi_fail; } } while (0); do { if ((_from) == ((void*
)0)) { PyErr_SetString(PyExc_MemoryError, "NULL pointer found"
); goto capi_fail; } } while (0); (void)strncpy(_to, _from, sizeof
(char)*_m); _to[_m-1] = '\0'; for (_m -= 2; _m >= 0 &&
_to[_m] == '\0'; _m--) { _to[_m] = ' '; } } while (0)
;
413 return 1;
414 }
415 if (PyString_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL
<< 27))) != 0)
) {
416 tmp = obj;
417 Py_INCREF(tmp)_Py_INCREF(((PyObject*)(tmp)));
418 }
419#if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF <<
4) | (0 << 0))
>= 0x03000000
420 else if (PyUnicode_Check(obj)((((((PyObject*)(obj))->ob_type))->tp_flags & ((1UL
<< 28))) != 0)
) {
421 tmp = PyUnicode_AsASCIIString(obj);
422 }
423 else {
424 PyObject *tmp2;
425 tmp2 = PyObject_Str(obj);
426 if (tmp2) {
427 tmp = PyUnicode_AsASCIIString(tmp2);
428 Py_DECREF(tmp2)_Py_DECREF(((PyObject*)(tmp2)));
429 }
430 else {
431 tmp = NULL((void*)0);
432 }
433 }
434#else
435 else {
436 tmp = PyObject_Str(obj);
437 }
438#endif
439 if (tmp == NULL((void*)0)) goto capi_fail;
440 if (*len == -1)
441 *len = PyString_GET_SIZE(tmp)(((void) (0)),(((PyVarObject*)(tmp))->ob_size));
442 STRINGMALLOC(*str,*len)if ((*str = (string)malloc(sizeof(char)*(*len+1))) == ((void*
)0)) { PyErr_SetString(PyExc_MemoryError, "out of memory"); goto
capi_fail; } else { (*str)[*len] = '\0'; }
;
443 STRINGCOPYN(*str,PyString_AS_STRING(tmp),*len+1)do { int _m = (*len+1); char *_to = (*str); char *_from = (((
(void) (0)), (((PyBytesObject *)(tmp))->ob_sval))); do { if
((_to) == ((void*)0)) { PyErr_SetString(PyExc_MemoryError, "NULL pointer found"
); goto capi_fail; } } while (0); do { if ((_from) == ((void*
)0)) { PyErr_SetString(PyExc_MemoryError, "NULL pointer found"
); goto capi_fail; } } while (0); (void)strncpy(_to, _from, sizeof
(char)*_m); _to[_m-1] = '\0'; for (_m -= 2; _m >= 0 &&
_to[_m] == '\0'; _m--) { _to[_m] = ' '; } } while (0)
;
444 Py_DECREF(tmp)_Py_DECREF(((PyObject*)(tmp)));
445 return 1;
446capi_fail:
447 Py_XDECREF(tmp)_Py_XDECREF(((PyObject*)(tmp)));
448 {
449 PyObject* err = PyErr_Occurred();
450 if (err==NULL((void*)0)) err = _flapack_error;
451 PyErr_SetString(err,errmess);
452 }
453 return 0;
454}
455
456static int float_from_pyobj(float* v,PyObject *obj,const char *errmess) {
457 double d=0.0;
458 if (double_from_pyobj(&d,obj,errmess)) {
459 *v = (float)d;
460 return 1;
461 }
462 return 0;
463}
464
465static int create_cb_arglist(PyObject* fun,PyTupleObject* xa,const int maxnofargs,const int nofoptargs,int *nofargs,PyTupleObject **args,const char *errmess) {
466 PyObject *tmp = NULL((void*)0);
467 PyObject *tmp_fun = NULL((void*)0);
468 int tot,opt,ext,siz,i,di=0;
469 CFUNCSMESS("create_cb_arglist\n");
470 tot=opt=ext=siz=0;
471 /* Get the total number of arguments */
472 if (PyFunction_Check(fun)((((PyObject*)(fun))->ob_type) == &PyFunction_Type))
473 tmp_fun = fun;
474 else {
475 di = 1;
476 if (PyObject_HasAttrString(fun,"im_func")) {
477 tmp_fun = PyObject_GetAttrString(fun,"im_func");
478 }
479 else if (PyObject_HasAttrString(fun,"__call__")) {
480 tmp = PyObject_GetAttrString(fun,"__call__");
481 if (PyObject_HasAttrString(tmp,"im_func"))
482 tmp_fun = PyObject_GetAttrString(tmp,"im_func");
483 else {
484 tmp_fun = fun; /* built-in function */
485 tot = maxnofargs;
486 if (xa != NULL((void*)0))
487 tot += PyTuple_Size((PyObject *)xa);
488 }
489 Py_XDECREF(tmp)_Py_XDECREF(((PyObject*)(tmp)));
490 }
491 else if (PyFortran_Check(fun)((((PyObject*)(fun))->ob_type) == &PyFortran_Type) || PyFortran_Check1(fun)(0==strcmp((((PyObject*)(fun))->ob_type)->tp_name,"fortran"
))
) {
492 tot = maxnofargs;
493 if (xa != NULL((void*)0))
494 tot += PyTuple_Size((PyObject *)xa);
495 tmp_fun = fun;
496 }
497 else if (F2PyCapsule_Check(fun)) {
498 tot = maxnofargs;
499 if (xa != NULL((void*)0))
500 ext = PyTuple_Size((PyObject *)xa);
501 if(ext>0) {
502 fprintf(stderr,"extra arguments tuple cannot be used with CObject call-back\n")__fprintf_chk (stderr, 2 - 1, "extra arguments tuple cannot be used with CObject call-back\n"
)
;
503 goto capi_fail;
504 }
505 tmp_fun = fun;
506 }
507 }
508if (tmp_fun==NULL((void*)0)) {
509fprintf(stderr,"Call-back argument must be function|instance|instance.__call__|f2py-function but got %s.\n",(fun==NULL?"NULL":Py_TYPE(fun)->tp_name))__fprintf_chk (stderr, 2 - 1, "Call-back argument must be function|instance|instance.__call__|f2py-function but got %s.\n"
,(fun==((void*)0)?"NULL":(((PyObject*)(fun))->ob_type)->
tp_name))
;
510goto capi_fail;
511}
512#if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF <<
4) | (0 << 0))
>= 0x03000000
513 if (PyObject_HasAttrString(tmp_fun,"__code__")) {
514 if (PyObject_HasAttrString(tmp = PyObject_GetAttrString(tmp_fun,"__code__"),"co_argcount"))
515#else
516 if (PyObject_HasAttrString(tmp_fun,"func_code")) {
517 if (PyObject_HasAttrString(tmp = PyObject_GetAttrString(tmp_fun,"func_code"),"co_argcount"))
518#endif
519 tot = PyInt_AsLongPyLong_AsLong(PyObject_GetAttrString(tmp,"co_argcount")) - di;
520 Py_XDECREF(tmp)_Py_XDECREF(((PyObject*)(tmp)));
521 }
522 /* Get the number of optional arguments */
523#if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF <<
4) | (0 << 0))
>= 0x03000000
524 if (PyObject_HasAttrString(tmp_fun,"__defaults__")) {
525 if (PyTuple_Check(tmp = PyObject_GetAttrString(tmp_fun,"__defaults__"))((((((PyObject*)(tmp = PyObject_GetAttrString(tmp_fun,"__defaults__"
)))->ob_type))->tp_flags & ((1UL << 26))) != 0
)
)
526#else
527 if (PyObject_HasAttrString(tmp_fun,"func_defaults")) {
528 if (PyTuple_Check(tmp = PyObject_GetAttrString(tmp_fun,"func_defaults"))((((((PyObject*)(tmp = PyObject_GetAttrString(tmp_fun,"func_defaults"
)))->ob_type))->tp_flags & ((1UL << 26))) != 0
)
)
529#endif
530 opt = PyTuple_Size(tmp);
531 Py_XDECREF(tmp)_Py_XDECREF(((PyObject*)(tmp)));
532 }
533 /* Get the number of extra arguments */
534 if (xa != NULL((void*)0))
535 ext = PyTuple_Size((PyObject *)xa);
536 /* Calculate the size of call-backs argument list */
537 siz = MIN(maxnofargs+ext,tot)((maxnofargs+ext < tot) ? (maxnofargs+ext) : (tot));
538 *nofargs = MAX(0,siz-ext)((0 > siz-ext) ? (0) : (siz-ext));
539#ifdef DEBUGCFUNCS
540 fprintf(stderr,"debug-capi:create_cb_arglist:maxnofargs(-nofoptargs),tot,opt,ext,siz,nofargs=%d(-%d),%d,%d,%d,%d,%d\n",maxnofargs,nofoptargs,tot,opt,ext,siz,*nofargs)__fprintf_chk (stderr, 2 - 1, "debug-capi:create_cb_arglist:maxnofargs(-nofoptargs),tot,opt,ext,siz,nofargs=%d(-%d),%d,%d,%d,%d,%d\n"
,maxnofargs,nofoptargs,tot,opt,ext,siz,*nofargs)
;
541#endif
542 if (siz<tot-opt) {
543 fprintf(stderr,"create_cb_arglist: Failed to build argument list (siz) with enough arguments (tot-opt) required by user-supplied function (siz,tot,opt=%d,%d,%d).\n",siz,tot,opt)__fprintf_chk (stderr, 2 - 1, "create_cb_arglist: Failed to build argument list (siz) with enough arguments (tot-opt) required by user-supplied function (siz,tot,opt=%d,%d,%d).\n"
,siz,tot,opt)
;
544 goto capi_fail;
545 }
546 /* Initialize argument list */
547 *args = (PyTupleObject *)PyTuple_New(siz);
548 for (i=0;i<*nofargs;i++) {
549 Py_INCREF(Py_None)_Py_INCREF(((PyObject*)((&_Py_NoneStruct))));
550 PyTuple_SET_ITEM((PyObject *)(*args),i,Py_None)PyTuple_SetItem((PyObject *)(*args), i, (&_Py_NoneStruct)
)
;
551 }
552 if (xa != NULL((void*)0))
553 for (i=(*nofargs);i<siz;i++) {
554 tmp = PyTuple_GetItem((PyObject *)xa,i-(*nofargs));
555 Py_INCREF(tmp)_Py_INCREF(((PyObject*)(tmp)));
556 PyTuple_SET_ITEM(*args,i,tmp)PyTuple_SetItem(*args, i, tmp);
557 }
558 CFUNCSMESS("create_cb_arglist-end\n");
559 return 1;
560capi_fail:
561 if ((PyErr_Occurred())==NULL((void*)0))
562 PyErr_SetString(_flapack_error,errmess);
563 return 0;
564}
565
566static int complex_float_from_pyobj(complex_float* v,PyObject *obj,const char *errmess) {
567 complex_double cd={0.0,0.0};
568 if (complex_double_from_pyobj(&cd,obj,errmess)) {
569 (*v).r = (float)cd.r;
570 (*v).i = (float)cd.i;
571 return 1;
572 }
573 return 0;
574}
575
576
577/********************* See f2py2e/cfuncs.py: userincludes *********************/
578/*need_userincludes*/
579
580/********************* See f2py2e/capi_rules.py: usercode *********************/
581 /* start usercode multiline (0) */
582
583#define F_INTint int
584
585 /* end multiline (0)*/
586
587/* See f2py2e/rules.py */
588extern void F_FUNC(sgebal,SGEBAL)sgebal_(char*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint* );
589extern void F_FUNC(dgebal,DGEBAL)dgebal_(char*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint* );
590extern void F_FUNC(cgebal,CGEBAL)cgebal_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint* );
591extern void F_FUNC(zgebal,ZGEBAL)zgebal_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint* );
592extern void F_FUNC(sgehrd,SGEHRD)sgehrd_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
593extern void F_FUNC(dgehrd,DGEHRD)dgehrd_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
594extern void F_FUNC(cgehrd,CGEHRD)cgehrd_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* );
595extern void F_FUNC(zgehrd,ZGEHRD)zgehrd_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* );
596extern void F_FUNC(sgehrd ,SGEHRD )sgehrd_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
597extern void F_FUNC(dgehrd ,DGEHRD )dgehrd_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
598extern void F_FUNC(cgehrd ,CGEHRD )cgehrd_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* );
599extern void F_FUNC(zgehrd ,ZGEHRD )zgehrd_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* );
600extern void F_FUNC(sgesv,SGESV)sgesv_(F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* );
601extern void F_FUNC(dgesv,DGESV)dgesv_(F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* );
602extern void F_FUNC(cgesv,CGESV)cgesv_(F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
603extern void F_FUNC(zgesv,ZGESV)zgesv_(F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
604extern void F_FUNC(sgesvx,SGESVX)sgesvx_(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,char*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* );
605extern void F_FUNC(dgesvx,DGESVX)dgesvx_(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,char*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* );
606extern void F_FUNC(cgesvx,CGESVX)cgesvx_(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,char*,float*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,float*,F_INTint* );
607extern void F_FUNC(zgesvx,ZGESVX)zgesvx_(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,char*,double*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,double*,F_INTint* );
608extern void F_FUNC(sgecon,SGECON)sgecon_(char*,F_INTint*,float*,F_INTint*,float*,float*,float*,F_INTint*,F_INTint* );
609extern void F_FUNC(dgecon,DGECON)dgecon_(char*,F_INTint*,double*,F_INTint*,double*,double*,double*,F_INTint*,F_INTint* );
610extern void F_FUNC(cgecon,CGECON)cgecon_(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,complex_float*,float*,F_INTint* );
611extern void F_FUNC(zgecon,ZGECON)zgecon_(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,complex_double*,double*,F_INTint* );
612extern void F_FUNC(sgetrf,SGETRF)sgetrf_(F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* );
613extern void F_FUNC(dgetrf,DGETRF)dgetrf_(F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* );
614extern void F_FUNC(cgetrf,CGETRF)cgetrf_(F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint* );
615extern void F_FUNC(zgetrf,ZGETRF)zgetrf_(F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint* );
616extern void F_FUNC(sgetrs,SGETRS)sgetrs_(char*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* );
617extern void F_FUNC(dgetrs,DGETRS)dgetrs_(char*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* );
618extern void F_FUNC(cgetrs,CGETRS)cgetrs_(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
619extern void F_FUNC(zgetrs,ZGETRS)zgetrs_(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
620extern void F_FUNC(sgetc2,SGETC2)sgetc2_(F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
621extern void F_FUNC(dgetc2,DGETC2)dgetc2_(F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
622extern void F_FUNC(cgetc2,CGETC2)cgetc2_(F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
623extern void F_FUNC(zgetc2,ZGETC2)zgetc2_(F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
624extern void F_FUNC(sgesc2,SGESC2)sgesc2_(F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float* );
625extern void F_FUNC(dgesc2,DGESC2)dgesc2_(F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double* );
626extern void F_FUNC(cgesc2,CGESC2)cgesc2_(F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float* );
627extern void F_FUNC(zgesc2,ZGESC2)zgesc2_(F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double* );
628extern void F_FUNC(sgetri,SGETRI)sgetri_(F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* );
629extern void F_FUNC(dgetri,DGETRI)dgetri_(F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* );
630extern void F_FUNC(cgetri,CGETRI)cgetri_(F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
631extern void F_FUNC(zgetri,ZGETRI)zgetri_(F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
632extern void F_FUNC(sgetri ,SGETRI )sgetri_(F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* );
633extern void F_FUNC(dgetri ,DGETRI )dgetri_(F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* );
634extern void F_FUNC(cgetri ,CGETRI )cgetri_(F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
635extern void F_FUNC(zgetri ,ZGETRI )zgetri_(F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
636extern void F_FUNC(sgesdd,SGESDD)sgesdd_(char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* );
637extern void F_FUNC(dgesdd,DGESDD)dgesdd_(char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* );
638extern void F_FUNC(sgesdd ,SGESDD )sgesdd_(char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* );
639extern void F_FUNC(dgesdd ,DGESDD )dgesdd_(char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* );
640extern void F_FUNC(cgesdd,CGESDD)cgesdd_(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint* );
641extern void F_FUNC(zgesdd,ZGESDD)zgesdd_(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint* );
642extern void F_FUNC(cgesdd ,CGESDD )cgesdd_(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint* );
643extern void F_FUNC(zgesdd ,ZGESDD )zgesdd_(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint* );
644extern void F_FUNC(sgesvd,SGESVD)sgesvd_(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
645extern void F_FUNC(dgesvd,DGESVD)dgesvd_(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
646extern void F_FUNC(sgesvd ,SGESVD )sgesvd_(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
647extern void F_FUNC(dgesvd ,DGESVD )dgesvd_(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
648extern void F_FUNC(cgesvd,CGESVD)cgesvd_(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* );
649extern void F_FUNC(zgesvd,ZGESVD)zgesvd_(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* );
650extern void F_FUNC(cgesvd ,CGESVD )cgesvd_(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* );
651extern void F_FUNC(zgesvd ,ZGESVD )zgesvd_(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* );
652extern void F_FUNC(sgels,SGELS)sgels_(char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
653extern void F_FUNC(dgels,DGELS)dgels_(char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
654extern void F_FUNC(cgels,CGELS)cgels_(char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
655extern void F_FUNC(zgels,ZGELS)zgels_(char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
656extern void F_FUNC(sgels ,SGELS )sgels_(char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
657extern void F_FUNC(dgels ,DGELS )dgels_(char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
658extern void F_FUNC(cgels ,CGELS )cgels_(char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
659extern void F_FUNC(zgels ,ZGELS )zgels_(char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
660extern void F_FUNC(sgelss,SGELSS)sgelss_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
661extern void F_FUNC(dgelss,DGELSS)dgelss_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
662extern void F_FUNC(sgelss ,SGELSS )sgelss_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
663extern void F_FUNC(dgelss ,DGELSS )dgelss_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
664extern void F_FUNC(cgelss,CGELSS)cgelss_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* );
665extern void F_FUNC(zgelss,ZGELSS)zgelss_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* );
666extern void F_FUNC(cgelss ,CGELSS )cgelss_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* );
667extern void F_FUNC(zgelss ,ZGELSS )zgelss_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* );
668extern void F_FUNC(sgelsy,SGELSY)sgelsy_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
669extern void F_FUNC(dgelsy,DGELSY)dgelsy_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
670extern void F_FUNC(sgelsy ,SGELSY )sgelsy_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
671extern void F_FUNC(dgelsy ,DGELSY )dgelsy_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
672extern void F_FUNC(cgelsy,CGELSY)cgelsy_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* );
673extern void F_FUNC(zgelsy,ZGELSY)zgelsy_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* );
674extern void F_FUNC(cgelsy ,CGELSY )cgelsy_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* );
675extern void F_FUNC(zgelsy ,ZGELSY )zgelsy_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* );
676extern void F_FUNC(sgelsd,SGELSD)sgelsd_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* );
677extern void F_FUNC(dgelsd,DGELSD)dgelsd_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* );
678extern void F_FUNC(sgelsd ,SGELSD )sgelsd_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* );
679extern void F_FUNC(dgelsd ,DGELSD )dgelsd_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* );
680extern void F_FUNC(cgelsd,CGELSD)cgelsd_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*, complex_float*,F_INTint*,float*,F_INTint*,F_INTint* );
681extern void F_FUNC(zgelsd,ZGELSD)zgelsd_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*, complex_double*,F_INTint*,double*,F_INTint*,F_INTint* );
682extern void F_FUNC(cgelsd ,CGELSD )cgelsd_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*, complex_float*,F_INTint*,float*,F_INTint*,F_INTint* );
683extern void F_FUNC(zgelsd ,ZGELSD )zgelsd_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*, complex_double*,F_INTint*,double*,F_INTint*,F_INTint* );
684extern void F_FUNC(sgeqp3,SGEQP3)sgeqp3_(F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
685extern void F_FUNC(dgeqp3,DGEQP3)dgeqp3_(F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
686extern void F_FUNC(cgeqp3,CGEQP3)cgeqp3_(F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,complex_float*,F_INTint*,float*,F_INTint* );
687extern void F_FUNC(zgeqp3,ZGEQP3)zgeqp3_(F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,complex_double*,F_INTint*,double*,F_INTint* );
688extern void F_FUNC(sgeqrf,SGEQRF)sgeqrf_(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
689extern void F_FUNC(dgeqrf,DGEQRF)dgeqrf_(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
690extern void F_FUNC(cgeqrf,CGEQRF)cgeqrf_(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* );
691extern void F_FUNC(zgeqrf,ZGEQRF)zgeqrf_(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* );
692extern void F_FUNC(sgeqrf ,SGEQRF )sgeqrf_(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
693extern void F_FUNC(dgeqrf ,DGEQRF )dgeqrf_(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
694extern void F_FUNC(cgeqrf ,CGEQRF )cgeqrf_(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* );
695extern void F_FUNC(zgeqrf ,ZGEQRF )zgeqrf_(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* );
696extern void F_FUNC(sgeqrfp,SGEQRFP)sgeqrfp_(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
697extern void F_FUNC(dgeqrfp,DGEQRFP)dgeqrfp_(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
698extern void F_FUNC(cgeqrfp,CGEQRFP)cgeqrfp_(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* );
699extern void F_FUNC(zgeqrfp,ZGEQRFP)zgeqrfp_(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* );
700extern void F_FUNC(sgeqrfp ,SGEQRFP )sgeqrfp_(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
701extern void F_FUNC(dgeqrfp ,DGEQRFP )dgeqrfp_(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
702extern void F_FUNC(cgeqrfp ,CGEQRFP )cgeqrfp_(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* );
703extern void F_FUNC(zgeqrfp ,ZGEQRFP )zgeqrfp_(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* );
704extern void F_FUNC(sgerqf,SGERQF)sgerqf_(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
705extern void F_FUNC(dgerqf,DGERQF)dgerqf_(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
706extern void F_FUNC(cgerqf,CGERQF)cgerqf_(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* );
707extern void F_FUNC(zgerqf,ZGERQF)zgerqf_(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* );
708extern void F_FUNC(sgeev,SGEEV)sgeev_(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
709extern void F_FUNC(dgeev,DGEEV)dgeev_(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
710extern void F_FUNC(sgeev ,SGEEV )sgeev_(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
711extern void F_FUNC(dgeev ,DGEEV )dgeev_(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
712extern void F_FUNC(cgeev,CGEEV)cgeev_(char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* );
713extern void F_FUNC(zgeev,ZGEEV)zgeev_(char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* );
714extern void F_FUNC(cgeev ,CGEEV )cgeev_(char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* );
715extern void F_FUNC(zgeev ,ZGEEV )zgeev_(char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* );
716extern void F_FUNC(sgegv,SGEGV)sgegv_(char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
717extern void F_FUNC(dgegv,DGEGV)dgegv_(char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
718extern void F_FUNC(cgegv,CGEGV)cgegv_(char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* );
719extern void F_FUNC(zgegv,ZGEGV)zgegv_(char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* );
720extern void F_FUNC(cgees,CGEES)cgees_(char*,char*,F_INTint(*)(complex_float*),F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint,F_INTint );
721extern void F_FUNC(zgees,ZGEES)zgees_(char*,char*,F_INTint(*)(complex_double*),F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint,F_INTint );
722extern void F_FUNC(sgees,SGEES)sgees_(char*,char*,F_INTint(*)(float*,float*),F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint,F_INTint );
723extern void F_FUNC(dgees,DGEES)dgees_(char*,char*,F_INTint(*)(double*,double*),F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint,F_INTint );
724extern void F_FUNC(sgges,SGGES)sgges_(char*,char*,char*,F_INTint(*)(float*,float*,float*),F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* );
725extern void F_FUNC(dgges,DGGES)dgges_(char*,char*,char*,F_INTint(*)(double*,double*,double*),F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* );
726extern void F_FUNC(cgges,CGGES)cgges_(char*,char*,char*,F_INTint(*)(complex_float*,complex_float*),F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint* );
727extern void F_FUNC(zgges,ZGGES)zgges_(char*,char*,char*,F_INTint(*)(complex_double*,complex_double*),F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint* );
728extern void F_FUNC(sggev,SGGEV)sggev_(char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
729extern void F_FUNC(dggev,DGGEV)dggev_(char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
730extern void F_FUNC(cggev,CGGEV)cggev_(char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* );
731extern void F_FUNC(zggev,ZGGEV)zggev_(char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* );
732extern void F_FUNC(sgeequ,SGEEQU)sgeequ_(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,float*,F_INTint* );
733extern void F_FUNC(dgeequ,DGEEQU)dgeequ_(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,double*,F_INTint* );
734extern void F_FUNC(cgeequ,CGEEQU)cgeequ_(F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,float*,float*,F_INTint* );
735extern void F_FUNC(zgeequ,ZGEEQU)zgeequ_(F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,double*,double*,F_INTint* );
736extern void F_FUNC(sgeequb,SGEEQUB)sgeequb_(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,float*,F_INTint* );
737extern void F_FUNC(dgeequb,DGEEQUB)dgeequb_(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,double*,F_INTint* );
738extern void F_FUNC(cgeequb,CGEEQUB)cgeequb_(F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,float*,float*,F_INTint* );
739extern void F_FUNC(zgeequb,ZGEEQUB)zgeequb_(F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,double*,double*,F_INTint* );
740extern void F_FUNC(sgbsv,SGBSV)sgbsv_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* );
741extern void F_FUNC(dgbsv,DGBSV)dgbsv_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* );
742extern void F_FUNC(cgbsv,CGBSV)cgbsv_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
743extern void F_FUNC(zgbsv,ZGBSV)zgbsv_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
744extern void F_FUNC(sgbtrf,SGBTRF)sgbtrf_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* );
745extern void F_FUNC(dgbtrf,DGBTRF)dgbtrf_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* );
746extern void F_FUNC(cgbtrf,CGBTRF)cgbtrf_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint* );
747extern void F_FUNC(zgbtrf,ZGBTRF)zgbtrf_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint* );
748extern void F_FUNC(sgbtrs,SGBTRS)sgbtrs_(char*,F_INTint*,F_INTint *,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* );
749extern void F_FUNC(dgbtrs,DGBTRS)dgbtrs_(char*,F_INTint*,F_INTint *,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* );
750extern void F_FUNC(cgbtrs,CGBTRS)cgbtrs_(char*,F_INTint*,F_INTint *,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
751extern void F_FUNC(zgbtrs,ZGBTRS)zgbtrs_(char*,F_INTint*,F_INTint *,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
752extern void F_FUNC(sgtsv,SGTSV)sgtsv_(F_INTint*, F_INTint*, float*, float*, float*, float*, F_INTint*, F_INTint* );
753extern void F_FUNC(dgtsv,DGTSV)dgtsv_(F_INTint*, F_INTint*, double*, double*, double*, double*, F_INTint*, F_INTint* );
754extern void F_FUNC(cgtsv,CGTSV)cgtsv_(F_INTint*, F_INTint*, complex_float*, complex_float*, complex_float*, complex_float*, F_INTint*, F_INTint* );
755extern void F_FUNC(zgtsv,ZGTSV)zgtsv_(F_INTint*, F_INTint*, complex_double*, complex_double*, complex_double*, complex_double*, F_INTint*, F_INTint* );
756extern void F_FUNC(sgttrf,SGTTRF)sgttrf_(F_INTint*, float*, float*, float*, float*, F_INTint*, F_INTint* );
757extern void F_FUNC(dgttrf,DGTTRF)dgttrf_(F_INTint*, double*, double*, double*, double*, F_INTint*, F_INTint* );
758extern void F_FUNC(cgttrf,CGTTRF)cgttrf_(F_INTint*, complex_float*, complex_float*, complex_float*, complex_float*, F_INTint*, F_INTint* );
759extern void F_FUNC(zgttrf,ZGTTRF)zgttrf_(F_INTint*, complex_double*, complex_double*, complex_double*, complex_double*, F_INTint*, F_INTint* );
760extern void F_FUNC(sgttrs,SGTTRS)sgttrs_(char*, F_INTint*, F_INTint*, float*, float*, float*, float*, F_INTint*, float*, F_INTint*, F_INTint* );
761extern void F_FUNC(dgttrs,DGTTRS)dgttrs_(char*, F_INTint*, F_INTint*, double*, double*, double*, double*, F_INTint*, double*, F_INTint*, F_INTint* );
762extern void F_FUNC(cgttrs,CGTTRS)cgttrs_(char*, F_INTint*, F_INTint*, complex_float*, complex_float*, complex_float*, complex_float*, F_INTint*, complex_float*, F_INTint*, F_INTint* );
763extern void F_FUNC(zgttrs,ZGTTRS)zgttrs_(char*, F_INTint*, F_INTint*, complex_double*, complex_double*, complex_double*, complex_double*, F_INTint*, complex_double*, F_INTint*, F_INTint* );
764extern void F_FUNC(sgtsvx,SGTSVX)sgtsvx_(char*,char*,F_INTint*,F_INTint*,float*,float*,float*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* );
765extern void F_FUNC(dgtsvx,DGTSVX)dgtsvx_(char*,char*,F_INTint*,F_INTint*,double*,double*,double*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* );
766extern void F_FUNC(cgtsvx,CGTSVX)cgtsvx_(char*,char*,F_INTint*,F_INTint*,complex_float*,complex_float*,complex_float*,complex_float*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,float*,F_INTint* );
767extern void F_FUNC(zgtsvx,ZGTSVX)zgtsvx_(char*,char*,F_INTint*,F_INTint*,complex_double*,complex_double*,complex_double*,complex_double*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,double*,F_INTint* );
768extern void F_FUNC(ssyev,SSYEV)ssyev_(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
769extern void F_FUNC(dsyev,DSYEV)dsyev_(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
770extern void F_FUNC(ssyev ,SSYEV )ssyev_(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
771extern void F_FUNC(dsyev ,DSYEV )dsyev_(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
772extern void F_FUNC(cheev,CHEEV)cheev_(char*,char*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint* );
773extern void F_FUNC(zheev,ZHEEV)zheev_(char*,char*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint* );
774extern void F_FUNC(cheev ,CHEEV )cheev_(char*,char*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint* );
775extern void F_FUNC(zheev ,ZHEEV )zheev_(char*,char*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint* );
776extern void F_FUNC(ssyevd,SSYEVD)ssyevd_(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
777extern void F_FUNC(dsyevd,DSYEVD)dsyevd_(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
778extern void F_FUNC(ssyevd ,SSYEVD )ssyevd_(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
779extern void F_FUNC(dsyevd ,DSYEVD )dsyevd_(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
780extern void F_FUNC(cheevd,CHEEVD)cheevd_(char*,char*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
781extern void F_FUNC(zheevd,ZHEEVD)zheevd_(char*,char*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
782extern void F_FUNC(cheevd ,CHEEVD )cheevd_(char*,char*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
783extern void F_FUNC(zheevd ,ZHEEVD )zheevd_(char*,char*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
784extern void F_FUNC(ssytf2,SSYTF2)ssytf2_(char*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* );
785extern void F_FUNC(dsytf2,DSYTF2)dsytf2_(char*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* );
786extern void F_FUNC(csytf2,CSYTF2)csytf2_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint* );
787extern void F_FUNC(zsytf2,ZSYTF2)zsytf2_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint* );
788extern void F_FUNC(ssygst,SSYGST)ssygst_(F_INTint*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
789extern void F_FUNC(dsygst,DSYGST)dsygst_(F_INTint*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
790extern void F_FUNC(ssytrf,SSYTRF)ssytrf_(char*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* );
791extern void F_FUNC(dsytrf,DSYTRF)dsytrf_(char*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* );
792extern void F_FUNC(csytrf,CSYTRF)csytrf_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
793extern void F_FUNC(zsytrf,ZSYTRF)zsytrf_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
794extern void F_FUNC(ssytrf ,SSYTRF )ssytrf_(char*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* );
795extern void F_FUNC(dsytrf ,DSYTRF )dsytrf_(char*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* );
796extern void F_FUNC(csytrf ,CSYTRF )csytrf_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
797extern void F_FUNC(zsytrf ,ZSYTRF )zsytrf_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
798extern void F_FUNC(ssysv,SSYSV)ssysv_(char*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
799extern void F_FUNC(dsysv,DSYSV)dsysv_(char*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
800extern void F_FUNC(csysv,CSYSV)csysv_(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
801extern void F_FUNC(zsysv,ZSYSV)zsysv_(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
802extern void F_FUNC(ssysv ,SSYSV )ssysv_(char*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
803extern void F_FUNC(dsysv ,DSYSV )dsysv_(char*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
804extern void F_FUNC(csysv ,CSYSV )csysv_(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
805extern void F_FUNC(zsysv ,ZSYSV )zsysv_(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
806extern void F_FUNC(ssysvx,SSYSVX)ssysvx_(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint* );
807extern void F_FUNC(dsysvx,DSYSVX)dsysvx_(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint* );
808extern void F_FUNC(csysvx,CSYSVX)csysvx_(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,float*,F_INTint* );
809extern void F_FUNC(zsysvx,ZSYSVX)zsysvx_(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,double*,F_INTint* );
810extern void F_FUNC(ssysvx ,SSYSVX )ssysvx_(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint* );
811extern void F_FUNC(dsysvx ,DSYSVX )dsysvx_(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint* );
812extern void F_FUNC(csysvx ,CSYSVX )csysvx_(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,float*,F_INTint* );
813extern void F_FUNC(zsysvx ,ZSYSVX )zsysvx_(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,double*,F_INTint* );
814extern void F_FUNC(ssycon,SSYCON)ssycon_(char*,F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,float*,F_INTint*,F_INTint* );
815extern void F_FUNC(dsycon,DSYCON)dsycon_(char*,F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,double*,F_INTint*,F_INTint* );
816extern void F_FUNC(csycon,CSYCON)csycon_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,float*,complex_float*,F_INTint* );
817extern void F_FUNC(zsycon,ZSYCON)zsycon_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,double*,complex_double*,F_INTint* );
818extern void F_FUNC(checon,CHECON)checon_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,float*,complex_float*,F_INTint* );
819extern void F_FUNC(zhecon,ZHECON)zhecon_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,double*,complex_double*,F_INTint* );
820extern void F_FUNC(ssyconv,SSYCONV)ssyconv_(char*,char*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint* );
821extern void F_FUNC(dsyconv,DSYCONV)dsyconv_(char*,char*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint* );
822extern void F_FUNC(csyconv,CSYCONV)csyconv_(char*,char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint* );
823extern void F_FUNC(zsyconv,ZSYCONV)zsyconv_(char*,char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint* );
824extern void F_FUNC(chegst,CHEGST)chegst_(F_INTint*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
825extern void F_FUNC(zhegst,ZHEGST)zhegst_(F_INTint*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
826extern void F_FUNC(chetrf,CHETRF)chetrf_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
827extern void F_FUNC(zhetrf,ZHETRF)zhetrf_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
828extern void F_FUNC(chetrf ,CHETRF )chetrf_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
829extern void F_FUNC(zhetrf ,ZHETRF )zhetrf_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
830extern void F_FUNC(chesv,CHESV)chesv_(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
831extern void F_FUNC(zhesv,ZHESV)zhesv_(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
832extern void F_FUNC(chesv ,CHESV )chesv_(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
833extern void F_FUNC(zhesv ,ZHESV )zhesv_(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
834extern void F_FUNC(chesvx,CHESVX)chesvx_(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,float*,F_INTint* );
835extern void F_FUNC(zhesvx,ZHESVX)zhesvx_(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,double*,F_INTint* );
836extern void F_FUNC(chesvx ,CHESVX )chesvx_(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,float*,F_INTint* );
837extern void F_FUNC(zhesvx ,ZHESVX )zhesvx_(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,double*,F_INTint* );
838extern void F_FUNC(ssytrd,SSYTRD)ssytrd_(char*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* );
839extern void F_FUNC(dsytrd,DSYTRD)dsytrd_(char*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* );
840extern void F_FUNC(ssytrd ,SSYTRD )ssytrd_(char*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* );
841extern void F_FUNC(dsytrd ,DSYTRD )dsytrd_(char*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* );
842extern void F_FUNC(chetrd,CHETRD)chetrd_(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,complex_float*,complex_float*,F_INTint*,F_INTint* );
843extern void F_FUNC(zhetrd,ZHETRD)zhetrd_(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,complex_double*,complex_double*,F_INTint*,F_INTint* );
844extern void F_FUNC(chetrd ,CHETRD )chetrd_(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,complex_float*,complex_float*,F_INTint*,F_INTint* );
845extern void F_FUNC(zhetrd ,ZHETRD )zhetrd_(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,complex_double*,complex_double*,F_INTint*,F_INTint* );
846extern void F_FUNC(ssyevr,SSYEVR)ssyevr_(char*,char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
847extern void F_FUNC(dsyevr,DSYEVR)dsyevr_(char*,char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
848extern void F_FUNC(ssyevr ,SSYEVR )ssyevr_(char*,char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
849extern void F_FUNC(dsyevr ,DSYEVR )dsyevr_(char*,char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
850extern void F_FUNC(cheevr,CHEEVR)cheevr_(char*,char*,char*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
851extern void F_FUNC(zheevr,ZHEEVR)zheevr_(char*,char*,char*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
852extern void F_FUNC(cheevr ,CHEEVR )cheevr_(char*,char*,char*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
853extern void F_FUNC(zheevr ,ZHEEVR )zheevr_(char*,char*,char*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
854extern void F_FUNC(ssyevx,SSYEVX)ssyevx_(char*,char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
855extern void F_FUNC(dsyevx,DSYEVX)dsyevx_(char*,char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
856extern void F_FUNC(ssyevx ,SSYEVX )ssyevx_(char*,char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
857extern void F_FUNC(dsyevx ,DSYEVX )dsyevx_(char*,char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
858extern void F_FUNC(cheevx,CHEEVX)cheevx_(char*,char*,char*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* );
859extern void F_FUNC(zheevx,ZHEEVX)zheevx_(char*,char*,char*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* );
860extern void F_FUNC(cheevx ,CHEEVX )cheevx_(char*,char*,char*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* );
861extern void F_FUNC(zheevx ,ZHEEVX )zheevx_(char*,char*,char*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* );
862extern void F_FUNC(ssygv,SSYGV)ssygv_(F_INTint*,char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
863extern void F_FUNC(dsygv,DSYGV)dsygv_(F_INTint*,char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
864extern void F_FUNC(ssygv ,SSYGV )ssygv_(F_INTint*,char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
865extern void F_FUNC(dsygv ,DSYGV )dsygv_(F_INTint*,char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
866extern void F_FUNC(chegv,CHEGV)chegv_(F_INTint*,char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint* );
867extern void F_FUNC(zhegv,ZHEGV)zhegv_(F_INTint*,char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint* );
868extern void F_FUNC(chegv ,CHEGV )chegv_(F_INTint*,char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint* );
869extern void F_FUNC(zhegv ,ZHEGV )zhegv_(F_INTint*,char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint* );
870extern void F_FUNC(ssygvd,SSYGVD)ssygvd_(F_INTint*,char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
871extern void F_FUNC(dsygvd,DSYGVD)dsygvd_(F_INTint*,char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
872extern void F_FUNC(chegvd,CHEGVD)chegvd_(F_INTint*,char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
873extern void F_FUNC(zhegvd,ZHEGVD)zhegvd_(F_INTint*,char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
874extern void F_FUNC(ssygvx,SSYGVX)ssygvx_(F_INTint*,char*,char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
875extern void F_FUNC(dsygvx,DSYGVX)dsygvx_(F_INTint*,char*,char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
876extern void F_FUNC(ssygvx ,SSYGVX )ssygvx_(F_INTint*,char*,char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
877extern void F_FUNC(dsygvx ,DSYGVX )dsygvx_(F_INTint*,char*,char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
878extern void F_FUNC(chegvx,CHEGVX)chegvx_(F_INTint*,char*,char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* );
879extern void F_FUNC(zhegvx,ZHEGVX)zhegvx_(F_INTint*,char*,char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* );
880extern void F_FUNC(chegvx ,CHEGVX )chegvx_(F_INTint*,char*,char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* );
881extern void F_FUNC(zhegvx ,ZHEGVX )zhegvx_(F_INTint*,char*,char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* );
882extern void F_FUNC(ssyequb,SSYEQUB)ssyequb_(char*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint* );
883extern void F_FUNC(dsyequb,DSYEQUB)dsyequb_(char*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint* );
884extern void F_FUNC(csyequb,CSYEQUB)csyequb_(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint* );
885extern void F_FUNC(zsyequb,ZSYEQUB)zsyequb_(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint* );
886extern void F_FUNC(cheequb,CHEEQUB)cheequb_(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint* );
887extern void F_FUNC(zheequb,ZHEEQUB)zheequb_(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint* );
888extern void F_FUNC(spstrf,SPSTRF)spstrf_(char*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint* );
889extern void F_FUNC(dpstrf,DPSTRF)dpstrf_(char*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint* );
890extern void F_FUNC(cpstrf,CPSTRF)cpstrf_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint* );
891extern void F_FUNC(zpstrf,ZPSTRF)zpstrf_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint* );
892extern void F_FUNC(spstf2,SPSTF2)spstf2_(char*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint* );
893extern void F_FUNC(dpstf2,DPSTF2)dpstf2_(char*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint* );
894extern void F_FUNC(cpstf2,CPSTF2)cpstf2_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint* );
895extern void F_FUNC(zpstf2,ZPSTF2)zpstf2_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint* );
896extern void F_FUNC(sposv,SPOSV)sposv_(char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
897extern void F_FUNC(dposv,DPOSV)dposv_(char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
898extern void F_FUNC(cposv,CPOSV)cposv_(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
899extern void F_FUNC(zposv,ZPOSV)zposv_(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
900extern void F_FUNC(sposvx,SPOSVX)sposvx_(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,char*,float*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* );
901extern void F_FUNC(dposvx,DPOSVX)dposvx_(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,char*,double*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* );
902extern void F_FUNC(cposvx,CPOSVX)cposvx_(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,char*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,float*,F_INTint* );
903extern void F_FUNC(zposvx,ZPOSVX)zposvx_(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,char*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,double*,F_INTint* );
904extern void F_FUNC(spocon,SPOCON)spocon_(char*,F_INTint*,float*,F_INTint*,float*,float*,float*,F_INTint*,F_INTint* );
905extern void F_FUNC(dpocon,DPOCON)dpocon_(char*,F_INTint*,double*,F_INTint*,double*,double*,double*,F_INTint*,F_INTint* );
906extern void F_FUNC(cpocon,CPOCON)cpocon_(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,complex_float*,float*,F_INTint* );
907extern void F_FUNC(zpocon,ZPOCON)zpocon_(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,complex_double*,double*,F_INTint* );
908extern void F_FUNC(spotrf,SPOTRF)spotrf_(char*,F_INTint*,float*,F_INTint*,F_INTint* );
909extern void F_FUNC(dpotrf,DPOTRF)dpotrf_(char*,F_INTint*,double*,F_INTint*,F_INTint* );
910extern void F_FUNC(cpotrf,CPOTRF)cpotrf_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
911extern void F_FUNC(zpotrf,ZPOTRF)zpotrf_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
912extern void F_FUNC(spotrs,SPOTRS)spotrs_(char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
913extern void F_FUNC(dpotrs,DPOTRS)dpotrs_(char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
914extern void F_FUNC(cpotrs,CPOTRS)cpotrs_(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
915extern void F_FUNC(zpotrs,ZPOTRS)zpotrs_(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
916extern void F_FUNC(spotri,SPOTRI)spotri_(char*,F_INTint*,float*,F_INTint*,F_INTint* );
917extern void F_FUNC(dpotri,DPOTRI)dpotri_(char*,F_INTint*,double*,F_INTint*,F_INTint* );
918extern void F_FUNC(cpotri,CPOTRI)cpotri_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
919extern void F_FUNC(zpotri,ZPOTRI)zpotri_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
920extern void F_FUNC(sptsv,SPTSV)sptsv_(F_INTint*, F_INTint*, float*, float*, float*, F_INTint*, F_INTint* );
921extern void F_FUNC(dptsv,DPTSV)dptsv_(F_INTint*, F_INTint*, double*, double*, double*, F_INTint*, F_INTint* );
922extern void F_FUNC(cptsv,CPTSV)cptsv_(F_INTint*, F_INTint*, float*, complex_float*, complex_float*, F_INTint*, F_INTint* );
923extern void F_FUNC(zptsv,ZPTSV)zptsv_(F_INTint*, F_INTint*, double*, complex_double*, complex_double*, F_INTint*, F_INTint* );
924extern void F_FUNC(spttrf,SPTTRF)spttrf_(F_INTint*, float*, float*, F_INTint* );
925extern void F_FUNC(dpttrf,DPTTRF)dpttrf_(F_INTint*, double*, double*, F_INTint* );
926extern void F_FUNC(cpttrf,CPTTRF)cpttrf_(F_INTint*, float*, complex_float*, F_INTint* );
927extern void F_FUNC(zpttrf,ZPTTRF)zpttrf_(F_INTint*, double*, complex_double*, F_INTint* );
928extern void F_FUNC(spttrs,SPTTRS)spttrs_(F_INTint*, F_INTint*, float*, float*, float*, F_INTint*, F_INTint* );
929extern void F_FUNC(dpttrs,DPTTRS)dpttrs_(F_INTint*, F_INTint*, double*, double*, double*, F_INTint*, F_INTint* );
930extern void F_FUNC(cpttrs,CPTTRS)cpttrs_(char*, F_INTint*, F_INTint*, float*, complex_float*, complex_float*, F_INTint*, F_INTint* );
931extern void F_FUNC(zpttrs,ZPTTRS)zpttrs_(char*, F_INTint*, F_INTint*, double*, complex_double*, complex_double*, F_INTint*, F_INTint* );
932extern void F_FUNC(spteqr,SPTEQR)spteqr_(char*, F_INTint*, float*, float*, float*, F_INTint*, float*, F_INTint* );
933extern void F_FUNC(dpteqr,DPTEQR)dpteqr_(char*, F_INTint*, double*, double*, double*, F_INTint*, double*, F_INTint* );
934extern void F_FUNC(cpteqr,CPTEQR)cpteqr_(char*, F_INTint*, float*, float*, complex_float*, F_INTint*, float*, F_INTint* );
935extern void F_FUNC(zpteqr,ZPTEQR)zpteqr_(char*, F_INTint*, double*, double*, complex_double*, F_INTint*, double*, F_INTint* );
936extern void F_FUNC(sptsvx,SPTSVX)sptsvx_(char*, F_INTint*, F_INTint*, float*, float*, float*, float*, float*, F_INTint*, float*, F_INTint*, float*, float*, float*, float*, F_INTint* );
937extern void F_FUNC(dptsvx,DPTSVX)dptsvx_(char*, F_INTint*, F_INTint*, double*, double*, double*, double*, double*, F_INTint*, double*, F_INTint*, double*, double*, double*, double*, F_INTint* );
938extern void F_FUNC(cptsvx,CPTSVX)cptsvx_(char*, F_INTint*, F_INTint*, float*, complex_float*, float*, complex_float*, complex_float*, F_INTint*, complex_float*, F_INTint*, float*, float*, float*, complex_float*, float*, F_INTint* );
939extern void F_FUNC(zptsvx,ZPTSVX)zptsvx_(char*, F_INTint*, F_INTint*, double*, complex_double*, double*, complex_double*, complex_double*, F_INTint*, complex_double*, F_INTint*, double*, double*, double*, complex_double*, double*, F_INTint* );
940extern void F_FUNC(sgejsv,SGEJSV)sgejsv_(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* );
941extern void F_FUNC(dgejsv,DGEJSV)dgejsv_(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* );
942extern void F_FUNC(stgexc,STGEXC)stgexc_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* );
943extern void F_FUNC(dtgexc,DTGEXC)dtgexc_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* );
944extern void F_FUNC(ctgexc,CTGEXC)ctgexc_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
945extern void F_FUNC(ztgexc,ZTGEXC)ztgexc_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
946extern void F_FUNC(stgsen,STGSEN)stgsen_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
947extern void F_FUNC(dtgsen,DTGSEN)dtgsen_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
948extern void F_FUNC(stgsen ,STGSEN )stgsen_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
949extern void F_FUNC(dtgsen ,DTGSEN )dtgsen_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
950extern void F_FUNC(ctgsen,CTGSEN)ctgsen_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
951extern void F_FUNC(ztgsen,ZTGSEN)ztgsen_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
952extern void F_FUNC(ctgsen ,CTGSEN )ctgsen_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
953extern void F_FUNC(ztgsen ,ZTGSEN )ztgsen_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
954extern void F_FUNC(spbtrf,SPBTRF)spbtrf_(char*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* );
955extern void F_FUNC(dpbtrf,DPBTRF)dpbtrf_(char*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* );
956extern void F_FUNC(cpbtrf,CPBTRF)cpbtrf_(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
957extern void F_FUNC(zpbtrf,ZPBTRF)zpbtrf_(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
958extern void F_FUNC(spbtrs,SPBTRS)spbtrs_(char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
959extern void F_FUNC(dpbtrs,DPBTRS)dpbtrs_(char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
960extern void F_FUNC(cpbtrs,CPBTRS)cpbtrs_(char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
961extern void F_FUNC(zpbtrs,ZPBTRS)zpbtrs_(char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
962extern void F_FUNC(strtrs,STRTRS)strtrs_(char*,char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
963extern void F_FUNC(dtrtrs,DTRTRS)dtrtrs_(char*,char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
964extern void F_FUNC(ctrtrs,CTRTRS)ctrtrs_(char*,char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
965extern void F_FUNC(ztrtrs,ZTRTRS)ztrtrs_(char*,char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
966extern void F_FUNC(stbtrs,STBTRS)stbtrs_(char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
967extern void F_FUNC(dtbtrs,DTBTRS)dtbtrs_(char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
968extern void F_FUNC(ctbtrs,CTBTRS)ctbtrs_(char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
969extern void F_FUNC(ztbtrs,ZTBTRS)ztbtrs_(char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
970extern void F_FUNC(spbsv,SPBSV)spbsv_(char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
971extern void F_FUNC(dpbsv,DPBSV)dpbsv_(char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
972extern void F_FUNC(cpbsv,CPBSV)cpbsv_(char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
973extern void F_FUNC(zpbsv,ZPBSV)zpbsv_(char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
974extern void F_FUNC(sorcsd,SORCSD)sorcsd_(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* );
975extern void F_FUNC(dorcsd,DORCSD)dorcsd_(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* );
976extern void F_FUNC(sorcsd ,SORCSD )sorcsd_(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* );
977extern void F_FUNC(dorcsd ,DORCSD )dorcsd_(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* );
978extern void F_FUNC(cuncsd,CUNCSD)cuncsd_(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* );
979extern void F_FUNC(zuncsd,ZUNCSD)zuncsd_(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* );
980extern void F_FUNC(cuncsd ,CUNCSD )cuncsd_(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* );
981extern void F_FUNC(zuncsd ,ZUNCSD )zuncsd_(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* );
982extern void F_FUNC(sorghr,SORGHR)sorghr_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
983extern void F_FUNC(dorghr,DORGHR)dorghr_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
984extern void F_FUNC(sorghr ,SORGHR )sorghr_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
985extern void F_FUNC(dorghr ,DORGHR )dorghr_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
986extern void F_FUNC(cunghr,CUNGHR)cunghr_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* );
987extern void F_FUNC(zunghr,ZUNGHR)zunghr_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* );
988extern void F_FUNC(cunghr ,CUNGHR )cunghr_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* );
989extern void F_FUNC(zunghr ,ZUNGHR )zunghr_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* );
990extern void F_FUNC(sorgqr,SORGQR)sorgqr_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
991extern void F_FUNC(dorgqr,DORGQR)dorgqr_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
992extern void F_FUNC(cungqr,CUNGQR)cungqr_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* );
993extern void F_FUNC(zungqr,ZUNGQR)zungqr_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* );
994extern void F_FUNC(sormqr,SORMQR)sormqr_(char*,char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
995extern void F_FUNC(dormqr,DORMQR)dormqr_(char*,char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
996extern void F_FUNC(cunmqr,CUNMQR)cunmqr_(char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
997extern void F_FUNC(zunmqr,ZUNMQR)zunmqr_(char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
998extern void F_FUNC(sgeqrt,SGEQRT)sgeqrt_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint* );
999extern void F_FUNC(dgeqrt,DGEQRT)dgeqrt_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint* );
1000extern void F_FUNC(cgeqrt,CGEQRT)cgeqrt_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* );
1001extern void F_FUNC(zgeqrt,ZGEQRT)zgeqrt_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* );
1002extern void F_FUNC(sgemqrt,SGEMQRT)sgemqrt_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint* );
1003extern void F_FUNC(dgemqrt,DGEMQRT)dgemqrt_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint* );
1004extern void F_FUNC(cgemqrt,CGEMQRT)cgemqrt_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* );
1005extern void F_FUNC(zgemqrt,ZGEMQRT)zgemqrt_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* );
1006extern void F_FUNC(stpqrt,STPQRT)stpqrt_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint* );
1007extern void F_FUNC(dtpqrt,DTPQRT)dtpqrt_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint* );
1008extern void F_FUNC(ctpqrt,CTPQRT)ctpqrt_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* );
1009extern void F_FUNC(ztpqrt,ZTPQRT)ztpqrt_(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* );
1010extern void F_FUNC(stpmqrt,STPMQRT)stpmqrt_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint* );
1011extern void F_FUNC(dtpmqrt,DTPMQRT)dtpmqrt_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint* );
1012extern void F_FUNC(ctpmqrt,CTPMQRT)ctpmqrt_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* );
1013extern void F_FUNC(ztpmqrt,ZTPMQRT)ztpmqrt_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* );
1014extern void F_FUNC(sormrz,SORMRZ)sormrz_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
1015extern void F_FUNC(dormrz,DORMRZ)dormrz_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
1016extern void F_FUNC(cunmrz,CUNMRZ)cunmrz_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
1017extern void F_FUNC(zunmrz,ZUNMRZ)zunmrz_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
1018extern void F_FUNC(sormrz ,SORMRZ )sormrz_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint* );
1019extern void F_FUNC(dormrz ,DORMRZ )dormrz_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint* );
1020extern void F_FUNC(cunmrz ,CUNMRZ )cunmrz_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
1021extern void F_FUNC(zunmrz ,ZUNMRZ )zunmrz_(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
1022extern void F_FUNC(sorgrq,SORGRQ)sorgrq_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
1023extern void F_FUNC(dorgrq,DORGRQ)dorgrq_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
1024extern void F_FUNC(cungrq,CUNGRQ)cungrq_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* );
1025extern void F_FUNC(zungrq,ZUNGRQ)zungrq_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* );
1026extern void F_FUNC(strtri,STRTRI)strtri_(char*,char*,F_INTint*,float*,F_INTint*,F_INTint* );
1027extern void F_FUNC(dtrtri,DTRTRI)dtrtri_(char*,char*,F_INTint*,double*,F_INTint*,F_INTint* );
1028extern void F_FUNC(ctrtri,CTRTRI)ctrtri_(char*,char*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
1029extern void F_FUNC(ztrtri,ZTRTRI)ztrtri_(char*,char*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
1030extern void F_FUNC(strsyl,STRSYL)strsyl_(char*,char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint* );
1031extern void F_FUNC(dtrsyl,DTRSYL)dtrsyl_(char*,char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint* );
1032extern void F_FUNC(ctrsyl,CTRSYL)ctrsyl_(char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* );
1033extern void F_FUNC(ztrsyl,ZTRSYL)ztrsyl_(char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* );
1034extern void F_FUNC(chbevd,CHBEVD)chbevd_(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
1035extern void F_FUNC(zhbevd,ZHBEVD)zhbevd_(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
1036extern void F_FUNC(chbevx,CHBEVX)chbevx_(char*,char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,float*,F_INTint*,F_INTint*,F_INTint* );
1037extern void F_FUNC(zhbevx,ZHBEVX)zhbevx_(char*,char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,double*,F_INTint*,F_INTint*,F_INTint* );
1038extern void F_FUNC(sgglse,SGGLSE)sgglse_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* );
1039extern void F_FUNC(dgglse,DGGLSE)dgglse_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* );
1040extern void F_FUNC(cgglse,CGGLSE)cgglse_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,complex_float*,F_INTint*,F_INTint* );
1041extern void F_FUNC(zgglse,ZGGLSE)zgglse_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,complex_double*,F_INTint*,F_INTint* );
1042extern void F_FUNC(sgglse ,SGGLSE )sgglse_(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* );
1043extern void F_FUNC(dgglse ,DGGLSE )dgglse_(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* );
1044extern void F_FUNC(cgglse ,CGGLSE )cgglse_(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,complex_float*,F_INTint*,F_INTint* );
1045extern void F_FUNC(zgglse ,ZGGLSE )zgglse_(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,complex_double*,F_INTint*,F_INTint* );
1046extern void F_FUNC(sppcon,SPPCON)sppcon_(char*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* );
1047extern void F_FUNC(dppcon,DPPCON)dppcon_(char*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* );
1048extern void F_FUNC(cppcon,CPPCON)cppcon_(char*,F_INTint*,complex_float*,float*,float*,complex_float*,float*,F_INTint* );
1049extern void F_FUNC(zppcon,ZPPCON)zppcon_(char*,F_INTint*,complex_double*,double*,double*,complex_double*,double*,F_INTint* );
1050extern void F_FUNC(sppsv,SPPSV)sppsv_(char*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
1051extern void F_FUNC(dppsv,DPPSV)dppsv_(char*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
1052extern void F_FUNC(cppsv,CPPSV)cppsv_(char*,F_INTint*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* );
1053extern void F_FUNC(zppsv,ZPPSV)zppsv_(char*,F_INTint*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* );
1054extern void F_FUNC(spptrf,SPPTRF)spptrf_(char*,F_INTint*,float*,F_INTint* );
1055extern void F_FUNC(dpptrf,DPPTRF)dpptrf_(char*,F_INTint*,double*,F_INTint* );
1056extern void F_FUNC(cpptrf,CPPTRF)cpptrf_(char*,F_INTint*,complex_float*,F_INTint* );
1057extern void F_FUNC(zpptrf,ZPPTRF)zpptrf_(char*,F_INTint*,complex_double*,F_INTint* );
1058extern void F_FUNC(spptri,SPPTRI)spptri_(char*,F_INTint*,float*,F_INTint* );
1059extern void F_FUNC(dpptri,DPPTRI)dpptri_(char*,F_INTint*,double*,F_INTint* );
1060extern void F_FUNC(cpptri,CPPTRI)cpptri_(char*,F_INTint*,complex_float*,F_INTint* );
1061extern void F_FUNC(zpptri,ZPPTRI)zpptri_(char*,F_INTint*,complex_double*,F_INTint* );
1062extern void F_FUNC(spptrs,SPPTRS)spptrs_(char*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
1063extern void F_FUNC(dpptrs,DPPTRS)dpptrs_(char*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
1064extern void F_FUNC(cpptrs,CPPTRS)cpptrs_(char*,F_INTint*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* );
1065extern void F_FUNC(zpptrs,ZPPTRS)zpptrs_(char*,F_INTint*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* );
1066extern void F_FUNC(ssbev,SSBEV)ssbev_(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint* );
1067extern void F_FUNC(dsbev,DSBEV)dsbev_(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint* );
1068extern void F_FUNC(ssbevd,SSBEVD)ssbevd_(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
1069extern void F_FUNC(dsbevd,DSBEVD)dsbevd_(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
1070extern void F_FUNC(ssbevx,SSBEVX)ssbevx_(char*,char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*, F_INTint*,F_INTint*,F_INTint* );
1071extern void F_FUNC(dsbevx,DSBEVX)dsbevx_(char*,char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*, F_INTint*,F_INTint*,F_INTint* );
1072extern void F_FUNC(sstebz,SSTEBZ)sstebz_(char*,char*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* );
1073extern void F_FUNC(dstebz,DSTEBZ)dstebz_(char*,char*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* );
1074extern void F_FUNC(ssterf,SSTERF)ssterf_(F_INTint*,float*,float*,F_INTint* );
1075extern void F_FUNC(dsterf,DSTERF)dsterf_(F_INTint*,double*,double*,F_INTint* );
1076extern void F_FUNC(sstein,SSTEIN)sstein_(F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* );
1077extern void F_FUNC(dstein,DSTEIN)dstein_(F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* );
1078extern void F_FUNC(sstemr,SSTEMR)sstemr_(char*,char*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
1079extern void F_FUNC(dstemr,DSTEMR)dstemr_(char*,char*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
1080extern void F_FUNC(cstemr ,CSTEMR )cstemr_(char*,char*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
1081extern void F_FUNC(zstemr ,ZSTEMR )zstemr_(char*,char*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
1082extern void F_FUNC(sstev,SSTEV)sstev_(char*,F_INTint*,float*,float*,float*,F_INTint*,float*,F_INTint* );
1083extern void F_FUNC(dstev,DSTEV)dstev_(char*,F_INTint*,double*,double*,double*,F_INTint*,double*,F_INTint* );
1084extern void F_FUNC(ssfrk,SSFRK)ssfrk_(char*,char*,char*,F_INTint*,F_INTint*,float*,float*,F_INTint*,float*,float* );
1085extern void F_FUNC(dsfrk,DSFRK)dsfrk_(char*,char*,char*,F_INTint*,F_INTint*,double*,double*,F_INTint*,double*,double* );
1086extern void F_FUNC(chfrk,CHFRK)chfrk_(char*,char*,char*,F_INTint*,F_INTint*,float*,complex_float*,F_INTint*,float*,complex_float* );
1087extern void F_FUNC(zhfrk,ZHFRK)zhfrk_(char*,char*,char*,F_INTint*,F_INTint*,double*,complex_double*,F_INTint*,double*,complex_double* );
1088extern void F_FUNC(stpttf,STPTTF)stpttf_(char*,char*,F_INTint*,float*,float*,F_INTint* );
1089extern void F_FUNC(dtpttf,DTPTTF)dtpttf_(char*,char*,F_INTint*,double*,double*,F_INTint* );
1090extern void F_FUNC(ctpttf,CTPTTF)ctpttf_(char*,char*,F_INTint*,complex_float*,complex_float*,F_INTint* );
1091extern void F_FUNC(ztpttf,ZTPTTF)ztpttf_(char*,char*,F_INTint*,complex_double*,complex_double*,F_INTint* );
1092extern void F_FUNC(stpttr,STPTTR)stpttr_(char*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
1093extern void F_FUNC(dtpttr,DTPTTR)dtpttr_(char*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
1094extern void F_FUNC(ctpttr,CTPTTR)ctpttr_(char*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* );
1095extern void F_FUNC(ztpttr,ZTPTTR)ztpttr_(char*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* );
1096extern void F_FUNC(stfttp,STFTTP)stfttp_(char*,char*,F_INTint*,float*,float*,F_INTint* );
1097extern void F_FUNC(dtfttp,DTFTTP)dtfttp_(char*,char*,F_INTint*,double*,double*,F_INTint* );
1098extern void F_FUNC(ctfttp,CTFTTP)ctfttp_(char*,char*,F_INTint*,complex_float*,complex_float*,F_INTint* );
1099extern void F_FUNC(ztfttp,ZTFTTP)ztfttp_(char*,char*,F_INTint*,complex_double*,complex_double*,F_INTint* );
1100extern void F_FUNC(stfttr,STFTTR)stfttr_(char*,char*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
1101extern void F_FUNC(dtfttr,DTFTTR)dtfttr_(char*,char*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
1102extern void F_FUNC(ctfttr,CTFTTR)ctfttr_(char*,char*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* );
1103extern void F_FUNC(ztfttr,ZTFTTR)ztfttr_(char*,char*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* );
1104extern void F_FUNC(strttf,STRTTF)strttf_(char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint* );
1105extern void F_FUNC(dtrttf,DTRTTF)dtrttf_(char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint* );
1106extern void F_FUNC(ctrttf,CTRTTF)ctrttf_(char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* );
1107extern void F_FUNC(ztrttf,ZTRTTF)ztrttf_(char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* );
1108extern void F_FUNC(strttp,STRTTP)strttp_(char*,F_INTint*,float*,F_INTint*,float*,F_INTint* );
1109extern void F_FUNC(dtrttp,DTRTTP)dtrttp_(char*,F_INTint*,double*,F_INTint*,double*,F_INTint* );
1110extern void F_FUNC(ctrttp,CTRTTP)ctrttp_(char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* );
1111extern void F_FUNC(ztrttp,ZTRTTP)ztrttp_(char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* );
1112extern void F_FUNC(stfsm,STFSM)stfsm_(char*,char*,char*,char*,char*,F_INTint*,F_INTint*,float*,float*,float*,F_INTint* );
1113extern void F_FUNC(dtfsm,DTFSM)dtfsm_(char*,char*,char*,char*,char*,F_INTint*,F_INTint*,double*,double*,double*,F_INTint* );
1114extern void F_FUNC(ctfsm,CTFSM)ctfsm_(char*,char*,char*,char*,char*,F_INTint*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint* );
1115extern void F_FUNC(ztfsm,ZTFSM)ztfsm_(char*,char*,char*,char*,char*,F_INTint*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint* );
1116extern void F_FUNC(spftrf,SPFTRF)spftrf_(char*,char*,F_INTint*,float*,F_INTint* );
1117extern void F_FUNC(dpftrf,DPFTRF)dpftrf_(char*,char*,F_INTint*,double*,F_INTint* );
1118extern void F_FUNC(cpftrf,CPFTRF)cpftrf_(char*,char*,F_INTint*,complex_float*,F_INTint* );
1119extern void F_FUNC(zpftrf,ZPFTRF)zpftrf_(char*,char*,F_INTint*,complex_double*,F_INTint* );
1120extern void F_FUNC(spftri,SPFTRI)spftri_(char*,char*,F_INTint*,float*,F_INTint* );
1121extern void F_FUNC(dpftri,DPFTRI)dpftri_(char*,char*,F_INTint*,double*,F_INTint* );
1122extern void F_FUNC(cpftri,CPFTRI)cpftri_(char*,char*,F_INTint*,complex_float*,F_INTint* );
1123extern void F_FUNC(zpftri,ZPFTRI)zpftri_(char*,char*,F_INTint*,complex_double*,F_INTint* );
1124extern void F_FUNC(spftrs,SPFTRS)spftrs_(char*,char*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
1125extern void F_FUNC(dpftrs,DPFTRS)dpftrs_(char*,char*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
1126extern void F_FUNC(cpftrs,CPFTRS)cpftrs_(char*,char*,F_INTint*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* );
1127extern void F_FUNC(zpftrs,ZPFTRS)zpftrs_(char*,char*,F_INTint*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* );
1128extern void F_FUNC(stzrzf,STZRZF)stzrzf_(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
1129extern void F_FUNC(dtzrzf,DTZRZF)dtzrzf_(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
1130extern void F_FUNC(ctzrzf,CTZRZF)ctzrzf_(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* );
1131extern void F_FUNC(ztzrzf,ZTZRZF)ztzrzf_(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* );
1132extern void F_FUNC(stzrzf ,STZRZF )stzrzf_(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* );
1133extern void F_FUNC(dtzrzf ,DTZRZF )dtzrzf_(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* );
1134extern void F_FUNC(ctzrzf ,CTZRZF )ctzrzf_(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* );
1135extern void F_FUNC(ztzrzf ,ZTZRZF )ztzrzf_(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* );
1136extern void F_FUNC(slasd4,SLASD4)slasd4_(F_INTint*, F_INTint*, float*, float*, float*, float*, float*, float*, F_INTint* );
1137extern void F_FUNC(dlasd4,DLASD4)dlasd4_(F_INTint*, F_INTint*, double*, double*, double*, double*, double*, double*, F_INTint* );
1138extern void F_FUNC(slauum,SLAUUM)slauum_(char*,F_INTint*,float*,F_INTint*,F_INTint* );
1139extern void F_FUNC(dlauum,DLAUUM)dlauum_(char*,F_INTint*,double*,F_INTint*,F_INTint* );
1140extern void F_FUNC(clauum,CLAUUM)clauum_(char*,F_INTint*,complex_float*,F_INTint*,F_INTint* );
1141extern void F_FUNC(zlauum,ZLAUUM)zlauum_(char*,F_INTint*,complex_double*,F_INTint*,F_INTint* );
1142extern void F_FUNC(slaswp,SLASWP)slaswp_(F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
1143extern void F_FUNC(dlaswp,DLASWP)dlaswp_(F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
1144extern void F_FUNC(claswp,CLASWP)claswp_(F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
1145extern void F_FUNC(zlaswp,ZLASWP)zlaswp_(F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint* );
1146extern void F_WRAPPEDFUNC(dlamch,DLAMCH)f2pywrapdlamch_(double*,string,size_t);
1147extern void F_WRAPPEDFUNC(slamch,SLAMCH)f2pywrapslamch_(float*,string,size_t);
1148extern void F_WRAPPEDFUNC(slange,SLANGE)f2pywrapslange_(float*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float* );
1149extern void F_WRAPPEDFUNC(dlange,DLANGE)f2pywrapdlange_(double*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double* );
1150extern void F_WRAPPEDFUNC(clange,CLANGE)f2pywrapclange_(float*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float* );
1151extern void F_WRAPPEDFUNC(zlange,ZLANGE)f2pywrapzlange_(double*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double* );
1152extern void F_FUNC(slarfg,SLARFG)slarfg_(int*,float*,float*,int*,float*,int*);
1153extern void F_FUNC(dlarfg,DLARFG)dlarfg_(int*,double*,double*,int*,double*,int*);
1154extern void F_FUNC(clarfg,CLARFG)clarfg_(int*,complex_float*,complex_float*,int*,complex_float*,int*);
1155extern void F_FUNC(zlarfg,ZLARFG)zlarfg_(int*,complex_double*,complex_double*,int*,complex_double*,int*);
1156extern void F_FUNC(slarf,SLARF)slarf_(string,int*,int*,float*,int*,float*,float*,int*,float*,int*,size_t);
1157extern void F_FUNC(dlarf,DLARF)dlarf_(string,int*,int*,double*,int*,double*,double*,int*,double*,int*,size_t);
1158extern void F_FUNC(clarf,CLARF)clarf_(string,int*,int*,complex_float*,int*,complex_float*,complex_float*,int*,complex_float*,int*,size_t);
1159extern void F_FUNC(zlarf,ZLARF)zlarf_(string,int*,int*,complex_double*,int*,complex_double*,complex_double*,int*,complex_double*,int*,size_t);
1160extern void F_FUNC(slartg,SLARTG)slartg_(float*,float*,float*,float*,float*);
1161extern void F_FUNC(dlartg,DLARTG)dlartg_(double*,double*,double*,double*,double*);
1162extern void F_FUNC(clartg,CLARTG)clartg_(complex_float*,complex_float*,float*,complex_float*,complex_float*);
1163extern void F_FUNC(zlartg,ZLARTG)zlartg_(complex_double*,complex_double*,double*,complex_double*,complex_double*);
1164extern void F_FUNC(crot,CROT)crot_(F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float* );
1165extern void F_FUNC(zrot,ZROT)zrot_(F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double* );
1166extern void F_FUNC(ilaver,ILAVER)ilaver_(int*,int*,int*);
1167/*eof externroutines*/
1168
1169/******************** See f2py2e/capi_rules.py: usercode1 ********************/
1170
1171
1172/******************* See f2py2e/cb_rules.py: buildcallback *******************/
1173
1174/********************* cb_cselect_in_gees__user__routines *********************/
1175PyObject *cb_cselect_in_gees__user__routines_capi = NULL((void*)0);/*was Py_None*/
1176PyTupleObject *cb_cselect_in_gees__user__routines_args_capi = NULL((void*)0);
1177int cb_cselect_in_gees__user__routines_nofargs = 0;
1178jmp_buf cb_cselect_in_gees__user__routines_jmpbuf;
1179/*typedef int(*cb_cselect_in_gees__user__routines_typedef)(complex_float *);*/
1180static int cb_cselect_in_gees__user__routines (complex_float *arg_cb_capi) {
1181 PyTupleObject *capi_arglist = cb_cselect_in_gees__user__routines_args_capi;
1182 PyObject *capi_return = NULL((void*)0);
1183 PyObject *capi_tmp = NULL((void*)0);
1184 PyObject *capi_arglist_list = NULL((void*)0);
1185 int capi_j,capi_i = 0;
1186 int capi_longjmp_ok = 1;
1187/*decl*/
1188 int return_value;
1189 complex_float arg=(*arg_cb_capi);
1190#ifdef F2PY_REPORT_ATEXIT
1191f2py_cb_start_clock();
1192#endif
1193 CFUNCSMESS("cb:Call-back function cb_cselect_in_gees__user__routines (maxnofargs=1(-0))\n");
1194 CFUNCSMESSPY("cb:cb_cselect_in_gees__user__routines_capi=",cb_cselect_in_gees__user__routines_capi);
1195 if (cb_cselect_in_gees__user__routines_capi==NULL((void*)0)) {
1196 capi_longjmp_ok = 0;
1197 cb_cselect_in_gees__user__routines_capi = PyObject_GetAttrString(_flapack_module,"cselect");
1198 }
1199 if (cb_cselect_in_gees__user__routines_capi==NULL((void*)0)) {
1200 PyErr_SetString(_flapack_error,"cb: Callback cselect not defined (as an argument or module _flapack attribute).\n");
1201 goto capi_fail;
1202 }
1203 if (F2PyCapsule_Check(cb_cselect_in_gees__user__routines_capi)) {
1204 cb_cselect_in_gees__user__routines_typedef cb_cselect_in_gees__user__routines_cptr;
1205 cb_cselect_in_gees__user__routines_cptr = F2PyCapsule_AsVoidPtr(cb_cselect_in_gees__user__routines_capi);
1206 return_value=(*cb_cselect_in_gees__user__routines_cptr)(arg_cb_capi);
1207 return return_value;
1208 }
1209 if (capi_arglist==NULL((void*)0)) {
1210 capi_longjmp_ok = 0;
1211 capi_tmp = PyObject_GetAttrString(_flapack_module,"cselect_extra_args");
1212 if (capi_tmp) {
1213 capi_arglist = (PyTupleObject *)PySequence_Tuple(capi_tmp);
1214 if (capi_arglist==NULL((void*)0)) {
1215 PyErr_SetString(_flapack_error,"Failed to convert _flapack.cselect_extra_args to tuple.\n");
1216 goto capi_fail;
1217 }
1218 } else {
1219 PyErr_Clear();
1220 capi_arglist = (PyTupleObject *)Py_BuildValue("()");
1221 }
1222 }
1223 if (capi_arglist == NULL((void*)0)) {
1224 PyErr_SetString(_flapack_error,"Callback cselect argument list is not set.\n");
1225 goto capi_fail;
1226 }
1227/*setdims*/
1228#ifdef PYPY_VERSION
1229#define CAPI_ARGLIST_SETITEM(idx, value) PyList_SetItem((PyObject *)capi_arglist_list, idx, value)
1230 capi_arglist_list = PySequence_List(capi_arglist);
1231 if (capi_arglist_list == NULL((void*)0)) goto capi_fail;
1232#else
1233#define CAPI_ARGLIST_SETITEM(idx, value) PyTuple_SetItem((PyObject *)capi_arglist, idx, value)
1234#endif
1235/*pyobjfrom*/
1236 if (cb_cselect_in_gees__user__routines_nofargs>capi_i)
1237 if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_complex_float1(arg)(PyComplex_FromDoubles(arg.r,arg.i))))
1238 goto capi_fail;
1239#undef CAPI_ARGLIST_SETITEM
1240#ifdef PYPY_VERSION
1241 CFUNCSMESSPY("cb:capi_arglist=",capi_arglist_list);
1242#else
1243 CFUNCSMESSPY("cb:capi_arglist=",capi_arglist);
1244#endif
1245 CFUNCSMESS("cb:Call-back calling Python function cselect.\n");
1246#ifdef F2PY_REPORT_ATEXIT
1247f2py_cb_start_call_clock();
1248#endif
1249#ifdef PYPY_VERSION
1250 capi_return = PyObject_CallObject(cb_cselect_in_gees__user__routines_capi,(PyObject *)capi_arglist_list);
1251 Py_DECREF(capi_arglist_list)_Py_DECREF(((PyObject*)(capi_arglist_list)));
1252 capi_arglist_list = NULL((void*)0);
1253#else
1254 capi_return = PyObject_CallObject(cb_cselect_in_gees__user__routines_capi,(PyObject *)capi_arglist);
1255#endif
1256#ifdef F2PY_REPORT_ATEXIT
1257f2py_cb_stop_call_clock();
1258#endif
1259 CFUNCSMESSPY("cb:capi_return=",capi_return);
1260 if (capi_return == NULL((void*)0)) {
1261 fprintf(stderr,"capi_return is NULL\n")__fprintf_chk (stderr, 2 - 1, "capi_return is NULL\n");
1262 goto capi_fail;
1263 }
1264 if (capi_return == Py_None(&_Py_NoneStruct)) {
1265 Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return)));
1266 capi_return = Py_BuildValue("()");
1267 }
1268 else if (!PyTuple_Check(capi_return)((((((PyObject*)(capi_return))->ob_type))->tp_flags &
((1UL << 26))) != 0)
) {
1269 capi_return = Py_BuildValue("(N)",capi_return);
1270 }
1271 capi_j = PyTuple_Size(capi_return);
1272 capi_i = 0;
1273/*frompyobj*/
1274 if (capi_j>capi_i)
1275 GETSCALARFROMPYTUPLE(capi_return,capi_i++,&return_value,int,"int_from_pyobj failed in converting return_value of call-back function cb_cselect_in_gees__user__routines to C int\n"){ if ((capi_tmp = PyTuple_GetItem((capi_return),(capi_i++)))==
((void*)0)) goto capi_fail; if (!(int_from_pyobj((&return_value
),capi_tmp,"int_from_pyobj failed in converting return_value of call-back function cb_cselect_in_gees__user__routines to C int\n"
))) goto capi_fail; }
;
1276 CFUNCSMESS("cb:cb_cselect_in_gees__user__routines:successful\n");
1277 Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return)));
1278#ifdef F2PY_REPORT_ATEXIT
1279f2py_cb_stop_clock();
1280#endif
1281 goto capi_return_pt;
1282capi_fail:
1283 fprintf(stderr,"Call-back cb_cselect_in_gees__user__routines failed.\n")__fprintf_chk (stderr, 2 - 1, "Call-back cb_cselect_in_gees__user__routines failed.\n"
)
;
1284 Py_XDECREF(capi_return)_Py_XDECREF(((PyObject*)(capi_return)));
1285 Py_XDECREF(capi_arglist_list)_Py_XDECREF(((PyObject*)(capi_arglist_list)));
1286 if (capi_longjmp_ok)
1287 longjmp(cb_cselect_in_gees__user__routines_jmpbuf,-1);
1288capi_return_pt:
1289 ;
1290 return return_value;
1291}
1292/***************** end of cb_cselect_in_gees__user__routines *****************/
1293
1294
1295/********************* cb_zselect_in_gees__user__routines *********************/
1296PyObject *cb_zselect_in_gees__user__routines_capi = NULL((void*)0);/*was Py_None*/
1297PyTupleObject *cb_zselect_in_gees__user__routines_args_capi = NULL((void*)0);
1298int cb_zselect_in_gees__user__routines_nofargs = 0;
1299jmp_buf cb_zselect_in_gees__user__routines_jmpbuf;
1300/*typedef int(*cb_zselect_in_gees__user__routines_typedef)(complex_double *);*/
1301static int cb_zselect_in_gees__user__routines (complex_double *arg_cb_capi) {
1302 PyTupleObject *capi_arglist = cb_zselect_in_gees__user__routines_args_capi;
1303 PyObject *capi_return = NULL((void*)0);
1304 PyObject *capi_tmp = NULL((void*)0);
1305 PyObject *capi_arglist_list = NULL((void*)0);
1306 int capi_j,capi_i = 0;
1307 int capi_longjmp_ok = 1;
1308/*decl*/
1309 int return_value;
1310 complex_double arg=(*arg_cb_capi);
1311#ifdef F2PY_REPORT_ATEXIT
1312f2py_cb_start_clock();
1313#endif
1314 CFUNCSMESS("cb:Call-back function cb_zselect_in_gees__user__routines (maxnofargs=1(-0))\n");
1315 CFUNCSMESSPY("cb:cb_zselect_in_gees__user__routines_capi=",cb_zselect_in_gees__user__routines_capi);
1316 if (cb_zselect_in_gees__user__routines_capi==NULL((void*)0)) {
1317 capi_longjmp_ok = 0;
1318 cb_zselect_in_gees__user__routines_capi = PyObject_GetAttrString(_flapack_module,"zselect");
1319 }
1320 if (cb_zselect_in_gees__user__routines_capi==NULL((void*)0)) {
1321 PyErr_SetString(_flapack_error,"cb: Callback zselect not defined (as an argument or module _flapack attribute).\n");
1322 goto capi_fail;
1323 }
1324 if (F2PyCapsule_Check(cb_zselect_in_gees__user__routines_capi)) {
1325 cb_zselect_in_gees__user__routines_typedef cb_zselect_in_gees__user__routines_cptr;
1326 cb_zselect_in_gees__user__routines_cptr = F2PyCapsule_AsVoidPtr(cb_zselect_in_gees__user__routines_capi);
1327 return_value=(*cb_zselect_in_gees__user__routines_cptr)(arg_cb_capi);
1328 return return_value;
1329 }
1330 if (capi_arglist==NULL((void*)0)) {
1331 capi_longjmp_ok = 0;
1332 capi_tmp = PyObject_GetAttrString(_flapack_module,"zselect_extra_args");
1333 if (capi_tmp) {
1334 capi_arglist = (PyTupleObject *)PySequence_Tuple(capi_tmp);
1335 if (capi_arglist==NULL((void*)0)) {
1336 PyErr_SetString(_flapack_error,"Failed to convert _flapack.zselect_extra_args to tuple.\n");
1337 goto capi_fail;
1338 }
1339 } else {
1340 PyErr_Clear();
1341 capi_arglist = (PyTupleObject *)Py_BuildValue("()");
1342 }
1343 }
1344 if (capi_arglist == NULL((void*)0)) {
1345 PyErr_SetString(_flapack_error,"Callback zselect argument list is not set.\n");
1346 goto capi_fail;
1347 }
1348/*setdims*/
1349#ifdef PYPY_VERSION
1350#define CAPI_ARGLIST_SETITEM(idx, value) PyList_SetItem((PyObject *)capi_arglist_list, idx, value)
1351 capi_arglist_list = PySequence_List(capi_arglist);
1352 if (capi_arglist_list == NULL((void*)0)) goto capi_fail;
1353#else
1354#define CAPI_ARGLIST_SETITEM(idx, value) PyTuple_SetItem((PyObject *)capi_arglist, idx, value)
1355#endif
1356/*pyobjfrom*/
1357 if (cb_zselect_in_gees__user__routines_nofargs>capi_i)
1358 if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_complex_double1(arg)(PyComplex_FromDoubles(arg.r,arg.i))))
1359 goto capi_fail;
1360#undef CAPI_ARGLIST_SETITEM
1361#ifdef PYPY_VERSION
1362 CFUNCSMESSPY("cb:capi_arglist=",capi_arglist_list);
1363#else
1364 CFUNCSMESSPY("cb:capi_arglist=",capi_arglist);
1365#endif
1366 CFUNCSMESS("cb:Call-back calling Python function zselect.\n");
1367#ifdef F2PY_REPORT_ATEXIT
1368f2py_cb_start_call_clock();
1369#endif
1370#ifdef PYPY_VERSION
1371 capi_return = PyObject_CallObject(cb_zselect_in_gees__user__routines_capi,(PyObject *)capi_arglist_list);
1372 Py_DECREF(capi_arglist_list)_Py_DECREF(((PyObject*)(capi_arglist_list)));
1373 capi_arglist_list = NULL((void*)0);
1374#else
1375 capi_return = PyObject_CallObject(cb_zselect_in_gees__user__routines_capi,(PyObject *)capi_arglist);
1376#endif
1377#ifdef F2PY_REPORT_ATEXIT
1378f2py_cb_stop_call_clock();
1379#endif
1380 CFUNCSMESSPY("cb:capi_return=",capi_return);
1381 if (capi_return == NULL((void*)0)) {
1382 fprintf(stderr,"capi_return is NULL\n")__fprintf_chk (stderr, 2 - 1, "capi_return is NULL\n");
1383 goto capi_fail;
1384 }
1385 if (capi_return == Py_None(&_Py_NoneStruct)) {
1386 Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return)));
1387 capi_return = Py_BuildValue("()");
1388 }
1389 else if (!PyTuple_Check(capi_return)((((((PyObject*)(capi_return))->ob_type))->tp_flags &
((1UL << 26))) != 0)
) {
1390 capi_return = Py_BuildValue("(N)",capi_return);
1391 }
1392 capi_j = PyTuple_Size(capi_return);
1393 capi_i = 0;
1394/*frompyobj*/
1395 if (capi_j>capi_i)
1396 GETSCALARFROMPYTUPLE(capi_return,capi_i++,&return_value,int,"int_from_pyobj failed in converting return_value of call-back function cb_zselect_in_gees__user__routines to C int\n"){ if ((capi_tmp = PyTuple_GetItem((capi_return),(capi_i++)))==
((void*)0)) goto capi_fail; if (!(int_from_pyobj((&return_value
),capi_tmp,"int_from_pyobj failed in converting return_value of call-back function cb_zselect_in_gees__user__routines to C int\n"
))) goto capi_fail; }
;
1397 CFUNCSMESS("cb:cb_zselect_in_gees__user__routines:successful\n");
1398 Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return)));
1399#ifdef F2PY_REPORT_ATEXIT
1400f2py_cb_stop_clock();
1401#endif
1402 goto capi_return_pt;
1403capi_fail:
1404 fprintf(stderr,"Call-back cb_zselect_in_gees__user__routines failed.\n")__fprintf_chk (stderr, 2 - 1, "Call-back cb_zselect_in_gees__user__routines failed.\n"
)
;
1405 Py_XDECREF(capi_return)_Py_XDECREF(((PyObject*)(capi_return)));
1406 Py_XDECREF(capi_arglist_list)_Py_XDECREF(((PyObject*)(capi_arglist_list)));
1407 if (capi_longjmp_ok)
1408 longjmp(cb_zselect_in_gees__user__routines_jmpbuf,-1);
1409capi_return_pt:
1410 ;
1411 return return_value;
1412}
1413/***************** end of cb_zselect_in_gees__user__routines *****************/
1414
1415
1416/********************* cb_sselect_in_gees__user__routines *********************/
1417PyObject *cb_sselect_in_gees__user__routines_capi = NULL((void*)0);/*was Py_None*/
1418PyTupleObject *cb_sselect_in_gees__user__routines_args_capi = NULL((void*)0);
1419int cb_sselect_in_gees__user__routines_nofargs = 0;
1420jmp_buf cb_sselect_in_gees__user__routines_jmpbuf;
1421/*typedef int(*cb_sselect_in_gees__user__routines_typedef)(float *,float *);*/
1422static int cb_sselect_in_gees__user__routines (float *arg1_cb_capi,float *arg2_cb_capi) {
1423 PyTupleObject *capi_arglist = cb_sselect_in_gees__user__routines_args_capi;
1424 PyObject *capi_return = NULL((void*)0);
1425 PyObject *capi_tmp = NULL((void*)0);
1426 PyObject *capi_arglist_list = NULL((void*)0);
1427 int capi_j,capi_i = 0;
1428 int capi_longjmp_ok = 1;
1429/*decl*/
1430 int return_value;
1431 float arg1=(*arg1_cb_capi);
1432 float arg2=(*arg2_cb_capi);
1433#ifdef F2PY_REPORT_ATEXIT
1434f2py_cb_start_clock();
1435#endif
1436 CFUNCSMESS("cb:Call-back function cb_sselect_in_gees__user__routines (maxnofargs=2(-0))\n");
1437 CFUNCSMESSPY("cb:cb_sselect_in_gees__user__routines_capi=",cb_sselect_in_gees__user__routines_capi);
1438 if (cb_sselect_in_gees__user__routines_capi==NULL((void*)0)) {
1439 capi_longjmp_ok = 0;
1440 cb_sselect_in_gees__user__routines_capi = PyObject_GetAttrString(_flapack_module,"sselect");
1441 }
1442 if (cb_sselect_in_gees__user__routines_capi==NULL((void*)0)) {
1443 PyErr_SetString(_flapack_error,"cb: Callback sselect not defined (as an argument or module _flapack attribute).\n");
1444 goto capi_fail;
1445 }
1446 if (F2PyCapsule_Check(cb_sselect_in_gees__user__routines_capi)) {
1447 cb_sselect_in_gees__user__routines_typedef cb_sselect_in_gees__user__routines_cptr;
1448 cb_sselect_in_gees__user__routines_cptr = F2PyCapsule_AsVoidPtr(cb_sselect_in_gees__user__routines_capi);
1449 return_value=(*cb_sselect_in_gees__user__routines_cptr)(arg1_cb_capi,arg2_cb_capi);
1450 return return_value;
1451 }
1452 if (capi_arglist==NULL((void*)0)) {
1453 capi_longjmp_ok = 0;
1454 capi_tmp = PyObject_GetAttrString(_flapack_module,"sselect_extra_args");
1455 if (capi_tmp) {
1456 capi_arglist = (PyTupleObject *)PySequence_Tuple(capi_tmp);
1457 if (capi_arglist==NULL((void*)0)) {
1458 PyErr_SetString(_flapack_error,"Failed to convert _flapack.sselect_extra_args to tuple.\n");
1459 goto capi_fail;
1460 }
1461 } else {
1462 PyErr_Clear();
1463 capi_arglist = (PyTupleObject *)Py_BuildValue("()");
1464 }
1465 }
1466 if (capi_arglist == NULL((void*)0)) {
1467 PyErr_SetString(_flapack_error,"Callback sselect argument list is not set.\n");
1468 goto capi_fail;
1469 }
1470/*setdims*/
1471#ifdef PYPY_VERSION
1472#define CAPI_ARGLIST_SETITEM(idx, value) PyList_SetItem((PyObject *)capi_arglist_list, idx, value)
1473 capi_arglist_list = PySequence_List(capi_arglist);
1474 if (capi_arglist_list == NULL((void*)0)) goto capi_fail;
1475#else
1476#define CAPI_ARGLIST_SETITEM(idx, value) PyTuple_SetItem((PyObject *)capi_arglist, idx, value)
1477#endif
1478/*pyobjfrom*/
1479 if (cb_sselect_in_gees__user__routines_nofargs>capi_i)
1480 if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_float1(arg1)(PyFloat_FromDouble(arg1))))
1481 goto capi_fail;
1482 if (cb_sselect_in_gees__user__routines_nofargs>capi_i)
1483 if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_float1(arg2)(PyFloat_FromDouble(arg2))))
1484 goto capi_fail;
1485#undef CAPI_ARGLIST_SETITEM
1486#ifdef PYPY_VERSION
1487 CFUNCSMESSPY("cb:capi_arglist=",capi_arglist_list);
1488#else
1489 CFUNCSMESSPY("cb:capi_arglist=",capi_arglist);
1490#endif
1491 CFUNCSMESS("cb:Call-back calling Python function sselect.\n");
1492#ifdef F2PY_REPORT_ATEXIT
1493f2py_cb_start_call_clock();
1494#endif
1495#ifdef PYPY_VERSION
1496 capi_return = PyObject_CallObject(cb_sselect_in_gees__user__routines_capi,(PyObject *)capi_arglist_list);
1497 Py_DECREF(capi_arglist_list)_Py_DECREF(((PyObject*)(capi_arglist_list)));
1498 capi_arglist_list = NULL((void*)0);
1499#else
1500 capi_return = PyObject_CallObject(cb_sselect_in_gees__user__routines_capi,(PyObject *)capi_arglist);
1501#endif
1502#ifdef F2PY_REPORT_ATEXIT
1503f2py_cb_stop_call_clock();
1504#endif
1505 CFUNCSMESSPY("cb:capi_return=",capi_return);
1506 if (capi_return == NULL((void*)0)) {
1507 fprintf(stderr,"capi_return is NULL\n")__fprintf_chk (stderr, 2 - 1, "capi_return is NULL\n");
1508 goto capi_fail;
1509 }
1510 if (capi_return == Py_None(&_Py_NoneStruct)) {
1511 Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return)));
1512 capi_return = Py_BuildValue("()");
1513 }
1514 else if (!PyTuple_Check(capi_return)((((((PyObject*)(capi_return))->ob_type))->tp_flags &
((1UL << 26))) != 0)
) {
1515 capi_return = Py_BuildValue("(N)",capi_return);
1516 }
1517 capi_j = PyTuple_Size(capi_return);
1518 capi_i = 0;
1519/*frompyobj*/
1520 if (capi_j>capi_i)
1521 GETSCALARFROMPYTUPLE(capi_return,capi_i++,&return_value,int,"int_from_pyobj failed in converting return_value of call-back function cb_sselect_in_gees__user__routines to C int\n"){ if ((capi_tmp = PyTuple_GetItem((capi_return),(capi_i++)))==
((void*)0)) goto capi_fail; if (!(int_from_pyobj((&return_value
),capi_tmp,"int_from_pyobj failed in converting return_value of call-back function cb_sselect_in_gees__user__routines to C int\n"
))) goto capi_fail; }
;
1522 CFUNCSMESS("cb:cb_sselect_in_gees__user__routines:successful\n");
1523 Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return)));
1524#ifdef F2PY_REPORT_ATEXIT
1525f2py_cb_stop_clock();
1526#endif
1527 goto capi_return_pt;
1528capi_fail:
1529 fprintf(stderr,"Call-back cb_sselect_in_gees__user__routines failed.\n")__fprintf_chk (stderr, 2 - 1, "Call-back cb_sselect_in_gees__user__routines failed.\n"
)
;
1530 Py_XDECREF(capi_return)_Py_XDECREF(((PyObject*)(capi_return)));
1531 Py_XDECREF(capi_arglist_list)_Py_XDECREF(((PyObject*)(capi_arglist_list)));
1532 if (capi_longjmp_ok)
1533 longjmp(cb_sselect_in_gees__user__routines_jmpbuf,-1);
1534capi_return_pt:
1535 ;
1536 return return_value;
1537}
1538/***************** end of cb_sselect_in_gees__user__routines *****************/
1539
1540
1541/********************* cb_dselect_in_gees__user__routines *********************/
1542PyObject *cb_dselect_in_gees__user__routines_capi = NULL((void*)0);/*was Py_None*/
1543PyTupleObject *cb_dselect_in_gees__user__routines_args_capi = NULL((void*)0);
1544int cb_dselect_in_gees__user__routines_nofargs = 0;
1545jmp_buf cb_dselect_in_gees__user__routines_jmpbuf;
1546/*typedef int(*cb_dselect_in_gees__user__routines_typedef)(double *,double *);*/
1547static int cb_dselect_in_gees__user__routines (double *arg1_cb_capi,double *arg2_cb_capi) {
1548 PyTupleObject *capi_arglist = cb_dselect_in_gees__user__routines_args_capi;
1549 PyObject *capi_return = NULL((void*)0);
1550 PyObject *capi_tmp = NULL((void*)0);
1551 PyObject *capi_arglist_list = NULL((void*)0);
1552 int capi_j,capi_i = 0;
1553 int capi_longjmp_ok = 1;
1554/*decl*/
1555 int return_value;
1556 double arg1=(*arg1_cb_capi);
1557 double arg2=(*arg2_cb_capi);
1558#ifdef F2PY_REPORT_ATEXIT
1559f2py_cb_start_clock();
1560#endif
1561 CFUNCSMESS("cb:Call-back function cb_dselect_in_gees__user__routines (maxnofargs=2(-0))\n");
1562 CFUNCSMESSPY("cb:cb_dselect_in_gees__user__routines_capi=",cb_dselect_in_gees__user__routines_capi);
1563 if (cb_dselect_in_gees__user__routines_capi==NULL((void*)0)) {
1564 capi_longjmp_ok = 0;
1565 cb_dselect_in_gees__user__routines_capi = PyObject_GetAttrString(_flapack_module,"dselect");
1566 }
1567 if (cb_dselect_in_gees__user__routines_capi==NULL((void*)0)) {
1568 PyErr_SetString(_flapack_error,"cb: Callback dselect not defined (as an argument or module _flapack attribute).\n");
1569 goto capi_fail;
1570 }
1571 if (F2PyCapsule_Check(cb_dselect_in_gees__user__routines_capi)) {
1572 cb_dselect_in_gees__user__routines_typedef cb_dselect_in_gees__user__routines_cptr;
1573 cb_dselect_in_gees__user__routines_cptr = F2PyCapsule_AsVoidPtr(cb_dselect_in_gees__user__routines_capi);
1574 return_value=(*cb_dselect_in_gees__user__routines_cptr)(arg1_cb_capi,arg2_cb_capi);
1575 return return_value;
1576 }
1577 if (capi_arglist==NULL((void*)0)) {
1578 capi_longjmp_ok = 0;
1579 capi_tmp = PyObject_GetAttrString(_flapack_module,"dselect_extra_args");
1580 if (capi_tmp) {
1581 capi_arglist = (PyTupleObject *)PySequence_Tuple(capi_tmp);
1582 if (capi_arglist==NULL((void*)0)) {
1583 PyErr_SetString(_flapack_error,"Failed to convert _flapack.dselect_extra_args to tuple.\n");
1584 goto capi_fail;
1585 }
1586 } else {
1587 PyErr_Clear();
1588 capi_arglist = (PyTupleObject *)Py_BuildValue("()");
1589 }
1590 }
1591 if (capi_arglist == NULL((void*)0)) {
1592 PyErr_SetString(_flapack_error,"Callback dselect argument list is not set.\n");
1593 goto capi_fail;
1594 }
1595/*setdims*/
1596#ifdef PYPY_VERSION
1597#define CAPI_ARGLIST_SETITEM(idx, value) PyList_SetItem((PyObject *)capi_arglist_list, idx, value)
1598 capi_arglist_list = PySequence_List(capi_arglist);
1599 if (capi_arglist_list == NULL((void*)0)) goto capi_fail;
1600#else
1601#define CAPI_ARGLIST_SETITEM(idx, value) PyTuple_SetItem((PyObject *)capi_arglist, idx, value)
1602#endif
1603/*pyobjfrom*/
1604 if (cb_dselect_in_gees__user__routines_nofargs>capi_i)
1605 if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_double1(arg1)(PyFloat_FromDouble(arg1))))
1606 goto capi_fail;
1607 if (cb_dselect_in_gees__user__routines_nofargs>capi_i)
1608 if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_double1(arg2)(PyFloat_FromDouble(arg2))))
1609 goto capi_fail;
1610#undef CAPI_ARGLIST_SETITEM
1611#ifdef PYPY_VERSION
1612 CFUNCSMESSPY("cb:capi_arglist=",capi_arglist_list);
1613#else
1614 CFUNCSMESSPY("cb:capi_arglist=",capi_arglist);
1615#endif
1616 CFUNCSMESS("cb:Call-back calling Python function dselect.\n");
1617#ifdef F2PY_REPORT_ATEXIT
1618f2py_cb_start_call_clock();
1619#endif
1620#ifdef PYPY_VERSION
1621 capi_return = PyObject_CallObject(cb_dselect_in_gees__user__routines_capi,(PyObject *)capi_arglist_list);
1622 Py_DECREF(capi_arglist_list)_Py_DECREF(((PyObject*)(capi_arglist_list)));
1623 capi_arglist_list = NULL((void*)0);
1624#else
1625 capi_return = PyObject_CallObject(cb_dselect_in_gees__user__routines_capi,(PyObject *)capi_arglist);
1626#endif
1627#ifdef F2PY_REPORT_ATEXIT
1628f2py_cb_stop_call_clock();
1629#endif
1630 CFUNCSMESSPY("cb:capi_return=",capi_return);
1631 if (capi_return == NULL((void*)0)) {
1632 fprintf(stderr,"capi_return is NULL\n")__fprintf_chk (stderr, 2 - 1, "capi_return is NULL\n");
1633 goto capi_fail;
1634 }
1635 if (capi_return == Py_None(&_Py_NoneStruct)) {
1636 Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return)));
1637 capi_return = Py_BuildValue("()");
1638 }
1639 else if (!PyTuple_Check(capi_return)((((((PyObject*)(capi_return))->ob_type))->tp_flags &
((1UL << 26))) != 0)
) {
1640 capi_return = Py_BuildValue("(N)",capi_return);
1641 }
1642 capi_j = PyTuple_Size(capi_return);
1643 capi_i = 0;
1644/*frompyobj*/
1645 if (capi_j>capi_i)
1646 GETSCALARFROMPYTUPLE(capi_return,capi_i++,&return_value,int,"int_from_pyobj failed in converting return_value of call-back function cb_dselect_in_gees__user__routines to C int\n"){ if ((capi_tmp = PyTuple_GetItem((capi_return),(capi_i++)))==
((void*)0)) goto capi_fail; if (!(int_from_pyobj((&return_value
),capi_tmp,"int_from_pyobj failed in converting return_value of call-back function cb_dselect_in_gees__user__routines to C int\n"
))) goto capi_fail; }
;
1647 CFUNCSMESS("cb:cb_dselect_in_gees__user__routines:successful\n");
1648 Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return)));
1649#ifdef F2PY_REPORT_ATEXIT
1650f2py_cb_stop_clock();
1651#endif
1652 goto capi_return_pt;
1653capi_fail:
1654 fprintf(stderr,"Call-back cb_dselect_in_gees__user__routines failed.\n")__fprintf_chk (stderr, 2 - 1, "Call-back cb_dselect_in_gees__user__routines failed.\n"
)
;
1655 Py_XDECREF(capi_return)_Py_XDECREF(((PyObject*)(capi_return)));
1656 Py_XDECREF(capi_arglist_list)_Py_XDECREF(((PyObject*)(capi_arglist_list)));
1657 if (capi_longjmp_ok)
1658 longjmp(cb_dselect_in_gees__user__routines_jmpbuf,-1);
1659capi_return_pt:
1660 ;
1661 return return_value;
1662}
1663/***************** end of cb_dselect_in_gees__user__routines *****************/
1664
1665
1666/********************* cb_sselect_in_gges__user__routines *********************/
1667PyObject *cb_sselect_in_gges__user__routines_capi = NULL((void*)0);/*was Py_None*/
1668PyTupleObject *cb_sselect_in_gges__user__routines_args_capi = NULL((void*)0);
1669int cb_sselect_in_gges__user__routines_nofargs = 0;
1670jmp_buf cb_sselect_in_gges__user__routines_jmpbuf;
1671/*typedef int(*cb_sselect_in_gges__user__routines_typedef)(float *,float *,float *);*/
1672static int cb_sselect_in_gges__user__routines (float *alphar_cb_capi,float *alphai_cb_capi,float *beta_cb_capi) {
1673 PyTupleObject *capi_arglist = cb_sselect_in_gges__user__routines_args_capi;
1674 PyObject *capi_return = NULL((void*)0);
1675 PyObject *capi_tmp = NULL((void*)0);
1676 PyObject *capi_arglist_list = NULL((void*)0);
1677 int capi_j,capi_i = 0;
1678 int capi_longjmp_ok = 1;
1679/*decl*/
1680 int return_value;
1681 float alphar=(*alphar_cb_capi);
1682 float alphai=(*alphai_cb_capi);
1683 float beta=(*beta_cb_capi);
1684#ifdef F2PY_REPORT_ATEXIT
1685f2py_cb_start_clock();
1686#endif
1687 CFUNCSMESS("cb:Call-back function cb_sselect_in_gges__user__routines (maxnofargs=3(-0))\n");
1688 CFUNCSMESSPY("cb:cb_sselect_in_gges__user__routines_capi=",cb_sselect_in_gges__user__routines_capi);
1689 if (cb_sselect_in_gges__user__routines_capi==NULL((void*)0)) {
1690 capi_longjmp_ok = 0;
1691 cb_sselect_in_gges__user__routines_capi = PyObject_GetAttrString(_flapack_module,"sselect");
1692 }
1693 if (cb_sselect_in_gges__user__routines_capi==NULL((void*)0)) {
1694 PyErr_SetString(_flapack_error,"cb: Callback sselect not defined (as an argument or module _flapack attribute).\n");
1695 goto capi_fail;
1696 }
1697 if (F2PyCapsule_Check(cb_sselect_in_gges__user__routines_capi)) {
1698 cb_sselect_in_gges__user__routines_typedef cb_sselect_in_gges__user__routines_cptr;
1699 cb_sselect_in_gges__user__routines_cptr = F2PyCapsule_AsVoidPtr(cb_sselect_in_gges__user__routines_capi);
1700 return_value=(*cb_sselect_in_gges__user__routines_cptr)(alphar_cb_capi,alphai_cb_capi,beta_cb_capi);
1701 return return_value;
1702 }
1703 if (capi_arglist==NULL((void*)0)) {
1704 capi_longjmp_ok = 0;
1705 capi_tmp = PyObject_GetAttrString(_flapack_module,"sselect_extra_args");
1706 if (capi_tmp) {
1707 capi_arglist = (PyTupleObject *)PySequence_Tuple(capi_tmp);
1708 if (capi_arglist==NULL((void*)0)) {
1709 PyErr_SetString(_flapack_error,"Failed to convert _flapack.sselect_extra_args to tuple.\n");
1710 goto capi_fail;
1711 }
1712 } else {
1713 PyErr_Clear();
1714 capi_arglist = (PyTupleObject *)Py_BuildValue("()");
1715 }
1716 }
1717 if (capi_arglist == NULL((void*)0)) {
1718 PyErr_SetString(_flapack_error,"Callback sselect argument list is not set.\n");
1719 goto capi_fail;
1720 }
1721/*setdims*/
1722#ifdef PYPY_VERSION
1723#define CAPI_ARGLIST_SETITEM(idx, value) PyList_SetItem((PyObject *)capi_arglist_list, idx, value)
1724 capi_arglist_list = PySequence_List(capi_arglist);
1725 if (capi_arglist_list == NULL((void*)0)) goto capi_fail;
1726#else
1727#define CAPI_ARGLIST_SETITEM(idx, value) PyTuple_SetItem((PyObject *)capi_arglist, idx, value)
1728#endif
1729/*pyobjfrom*/
1730 if (cb_sselect_in_gges__user__routines_nofargs>capi_i)
1731 if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_float1(alphar)(PyFloat_FromDouble(alphar))))
1732 goto capi_fail;
1733 if (cb_sselect_in_gges__user__routines_nofargs>capi_i)
1734 if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_float1(alphai)(PyFloat_FromDouble(alphai))))
1735 goto capi_fail;
1736 if (cb_sselect_in_gges__user__routines_nofargs>capi_i)
1737 if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_float1(beta)(PyFloat_FromDouble(beta))))
1738 goto capi_fail;
1739#undef CAPI_ARGLIST_SETITEM
1740#ifdef PYPY_VERSION
1741 CFUNCSMESSPY("cb:capi_arglist=",capi_arglist_list);
1742#else
1743 CFUNCSMESSPY("cb:capi_arglist=",capi_arglist);
1744#endif
1745 CFUNCSMESS("cb:Call-back calling Python function sselect.\n");
1746#ifdef F2PY_REPORT_ATEXIT
1747f2py_cb_start_call_clock();
1748#endif
1749#ifdef PYPY_VERSION
1750 capi_return = PyObject_CallObject(cb_sselect_in_gges__user__routines_capi,(PyObject *)capi_arglist_list);
1751 Py_DECREF(capi_arglist_list)_Py_DECREF(((PyObject*)(capi_arglist_list)));
1752 capi_arglist_list = NULL((void*)0);
1753#else
1754 capi_return = PyObject_CallObject(cb_sselect_in_gges__user__routines_capi,(PyObject *)capi_arglist);
1755#endif
1756#ifdef F2PY_REPORT_ATEXIT
1757f2py_cb_stop_call_clock();
1758#endif
1759 CFUNCSMESSPY("cb:capi_return=",capi_return);
1760 if (capi_return == NULL((void*)0)) {
1761 fprintf(stderr,"capi_return is NULL\n")__fprintf_chk (stderr, 2 - 1, "capi_return is NULL\n");
1762 goto capi_fail;
1763 }
1764 if (capi_return == Py_None(&_Py_NoneStruct)) {
1765 Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return)));
1766 capi_return = Py_BuildValue("()");
1767 }
1768 else if (!PyTuple_Check(capi_return)((((((PyObject*)(capi_return))->ob_type))->tp_flags &
((1UL << 26))) != 0)
) {
1769 capi_return = Py_BuildValue("(N)",capi_return);
1770 }
1771 capi_j = PyTuple_Size(capi_return);
1772 capi_i = 0;
1773/*frompyobj*/
1774 if (capi_j>capi_i)
1775 GETSCALARFROMPYTUPLE(capi_return,capi_i++,&return_value,int,"int_from_pyobj failed in converting return_value of call-back function cb_sselect_in_gges__user__routines to C int\n"){ if ((capi_tmp = PyTuple_GetItem((capi_return),(capi_i++)))==
((void*)0)) goto capi_fail; if (!(int_from_pyobj((&return_value
),capi_tmp,"int_from_pyobj failed in converting return_value of call-back function cb_sselect_in_gges__user__routines to C int\n"
))) goto capi_fail; }
;
1776 CFUNCSMESS("cb:cb_sselect_in_gges__user__routines:successful\n");
1777 Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return)));
1778#ifdef F2PY_REPORT_ATEXIT
1779f2py_cb_stop_clock();
1780#endif
1781 goto capi_return_pt;
1782capi_fail:
1783 fprintf(stderr,"Call-back cb_sselect_in_gges__user__routines failed.\n")__fprintf_chk (stderr, 2 - 1, "Call-back cb_sselect_in_gges__user__routines failed.\n"
)
;
1784 Py_XDECREF(capi_return)_Py_XDECREF(((PyObject*)(capi_return)));
1785 Py_XDECREF(capi_arglist_list)_Py_XDECREF(((PyObject*)(capi_arglist_list)));
1786 if (capi_longjmp_ok)
1787 longjmp(cb_sselect_in_gges__user__routines_jmpbuf,-1);
1788capi_return_pt:
1789 ;
1790 return return_value;
1791}
1792/***************** end of cb_sselect_in_gges__user__routines *****************/
1793
1794
1795/********************* cb_dselect_in_gges__user__routines *********************/
1796PyObject *cb_dselect_in_gges__user__routines_capi = NULL((void*)0);/*was Py_None*/
1797PyTupleObject *cb_dselect_in_gges__user__routines_args_capi = NULL((void*)0);
1798int cb_dselect_in_gges__user__routines_nofargs = 0;
1799jmp_buf cb_dselect_in_gges__user__routines_jmpbuf;
1800/*typedef int(*cb_dselect_in_gges__user__routines_typedef)(double *,double *,double *);*/
1801static int cb_dselect_in_gges__user__routines (double *alphar_cb_capi,double *alphai_cb_capi,double *beta_cb_capi) {
1802 PyTupleObject *capi_arglist = cb_dselect_in_gges__user__routines_args_capi;
1803 PyObject *capi_return = NULL((void*)0);
1804 PyObject *capi_tmp = NULL((void*)0);
1805 PyObject *capi_arglist_list = NULL((void*)0);
1806 int capi_j,capi_i = 0;
1807 int capi_longjmp_ok = 1;
1808/*decl*/
1809 int return_value;
1810 double alphar=(*alphar_cb_capi);
1811 double alphai=(*alphai_cb_capi);
1812 double beta=(*beta_cb_capi);
1813#ifdef F2PY_REPORT_ATEXIT
1814f2py_cb_start_clock();
1815#endif
1816 CFUNCSMESS("cb:Call-back function cb_dselect_in_gges__user__routines (maxnofargs=3(-0))\n");
1817 CFUNCSMESSPY("cb:cb_dselect_in_gges__user__routines_capi=",cb_dselect_in_gges__user__routines_capi);
1818 if (cb_dselect_in_gges__user__routines_capi==NULL((void*)0)) {
1819 capi_longjmp_ok = 0;
1820 cb_dselect_in_gges__user__routines_capi = PyObject_GetAttrString(_flapack_module,"dselect");
1821 }
1822 if (cb_dselect_in_gges__user__routines_capi==NULL((void*)0)) {
1823 PyErr_SetString(_flapack_error,"cb: Callback dselect not defined (as an argument or module _flapack attribute).\n");
1824 goto capi_fail;
1825 }
1826 if (F2PyCapsule_Check(cb_dselect_in_gges__user__routines_capi)) {
1827 cb_dselect_in_gges__user__routines_typedef cb_dselect_in_gges__user__routines_cptr;
1828 cb_dselect_in_gges__user__routines_cptr = F2PyCapsule_AsVoidPtr(cb_dselect_in_gges__user__routines_capi);
1829 return_value=(*cb_dselect_in_gges__user__routines_cptr)(alphar_cb_capi,alphai_cb_capi,beta_cb_capi);
1830 return return_value;
1831 }
1832 if (capi_arglist==NULL((void*)0)) {
1833 capi_longjmp_ok = 0;
1834 capi_tmp = PyObject_GetAttrString(_flapack_module,"dselect_extra_args");
1835 if (capi_tmp) {
1836 capi_arglist = (PyTupleObject *)PySequence_Tuple(capi_tmp);
1837 if (capi_arglist==NULL((void*)0)) {
1838 PyErr_SetString(_flapack_error,"Failed to convert _flapack.dselect_extra_args to tuple.\n");
1839 goto capi_fail;
1840 }
1841 } else {
1842 PyErr_Clear();
1843 capi_arglist = (PyTupleObject *)Py_BuildValue("()");
1844 }
1845 }
1846 if (capi_arglist == NULL((void*)0)) {
1847 PyErr_SetString(_flapack_error,"Callback dselect argument list is not set.\n");
1848 goto capi_fail;
1849 }
1850/*setdims*/
1851#ifdef PYPY_VERSION
1852#define CAPI_ARGLIST_SETITEM(idx, value) PyList_SetItem((PyObject *)capi_arglist_list, idx, value)
1853 capi_arglist_list = PySequence_List(capi_arglist);
1854 if (capi_arglist_list == NULL((void*)0)) goto capi_fail;
1855#else
1856#define CAPI_ARGLIST_SETITEM(idx, value) PyTuple_SetItem((PyObject *)capi_arglist, idx, value)
1857#endif
1858/*pyobjfrom*/
1859 if (cb_dselect_in_gges__user__routines_nofargs>capi_i)
1860 if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_double1(alphar)(PyFloat_FromDouble(alphar))))
1861 goto capi_fail;
1862 if (cb_dselect_in_gges__user__routines_nofargs>capi_i)
1863 if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_double1(alphai)(PyFloat_FromDouble(alphai))))
1864 goto capi_fail;
1865 if (cb_dselect_in_gges__user__routines_nofargs>capi_i)
1866 if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_double1(beta)(PyFloat_FromDouble(beta))))
1867 goto capi_fail;
1868#undef CAPI_ARGLIST_SETITEM
1869#ifdef PYPY_VERSION
1870 CFUNCSMESSPY("cb:capi_arglist=",capi_arglist_list);
1871#else
1872 CFUNCSMESSPY("cb:capi_arglist=",capi_arglist);
1873#endif
1874 CFUNCSMESS("cb:Call-back calling Python function dselect.\n");
1875#ifdef F2PY_REPORT_ATEXIT
1876f2py_cb_start_call_clock();
1877#endif
1878#ifdef PYPY_VERSION
1879 capi_return = PyObject_CallObject(cb_dselect_in_gges__user__routines_capi,(PyObject *)capi_arglist_list);
1880 Py_DECREF(capi_arglist_list)_Py_DECREF(((PyObject*)(capi_arglist_list)));
1881 capi_arglist_list = NULL((void*)0);
1882#else
1883 capi_return = PyObject_CallObject(cb_dselect_in_gges__user__routines_capi,(PyObject *)capi_arglist);
1884#endif
1885#ifdef F2PY_REPORT_ATEXIT
1886f2py_cb_stop_call_clock();
1887#endif
1888 CFUNCSMESSPY("cb:capi_return=",capi_return);
1889 if (capi_return == NULL((void*)0)) {
1890 fprintf(stderr,"capi_return is NULL\n")__fprintf_chk (stderr, 2 - 1, "capi_return is NULL\n");
1891 goto capi_fail;
1892 }
1893 if (capi_return == Py_None(&_Py_NoneStruct)) {
1894 Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return)));
1895 capi_return = Py_BuildValue("()");
1896 }
1897 else if (!PyTuple_Check(capi_return)((((((PyObject*)(capi_return))->ob_type))->tp_flags &
((1UL << 26))) != 0)
) {
1898 capi_return = Py_BuildValue("(N)",capi_return);
1899 }
1900 capi_j = PyTuple_Size(capi_return);
1901 capi_i = 0;
1902/*frompyobj*/
1903 if (capi_j>capi_i)
1904 GETSCALARFROMPYTUPLE(capi_return,capi_i++,&return_value,int,"int_from_pyobj failed in converting return_value of call-back function cb_dselect_in_gges__user__routines to C int\n"){ if ((capi_tmp = PyTuple_GetItem((capi_return),(capi_i++)))==
((void*)0)) goto capi_fail; if (!(int_from_pyobj((&return_value
),capi_tmp,"int_from_pyobj failed in converting return_value of call-back function cb_dselect_in_gges__user__routines to C int\n"
))) goto capi_fail; }
;
1905 CFUNCSMESS("cb:cb_dselect_in_gges__user__routines:successful\n");
1906 Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return)));
1907#ifdef F2PY_REPORT_ATEXIT
1908f2py_cb_stop_clock();
1909#endif
1910 goto capi_return_pt;
1911capi_fail:
1912 fprintf(stderr,"Call-back cb_dselect_in_gges__user__routines failed.\n")__fprintf_chk (stderr, 2 - 1, "Call-back cb_dselect_in_gges__user__routines failed.\n"
)
;
1913 Py_XDECREF(capi_return)_Py_XDECREF(((PyObject*)(capi_return)));
1914 Py_XDECREF(capi_arglist_list)_Py_XDECREF(((PyObject*)(capi_arglist_list)));
1915 if (capi_longjmp_ok)
1916 longjmp(cb_dselect_in_gges__user__routines_jmpbuf,-1);
1917capi_return_pt:
1918 ;
1919 return return_value;
1920}
1921/***************** end of cb_dselect_in_gges__user__routines *****************/
1922
1923
1924/********************* cb_cselect_in_gges__user__routines *********************/
1925PyObject *cb_cselect_in_gges__user__routines_capi = NULL((void*)0);/*was Py_None*/
1926PyTupleObject *cb_cselect_in_gges__user__routines_args_capi = NULL((void*)0);
1927int cb_cselect_in_gges__user__routines_nofargs = 0;
1928jmp_buf cb_cselect_in_gges__user__routines_jmpbuf;
1929/*typedef int(*cb_cselect_in_gges__user__routines_typedef)(complex_float *,complex_float *);*/
1930static int cb_cselect_in_gges__user__routines (complex_float *alpha_cb_capi,complex_float *beta_cb_capi) {
1931 PyTupleObject *capi_arglist = cb_cselect_in_gges__user__routines_args_capi;
1932 PyObject *capi_return = NULL((void*)0);
1933 PyObject *capi_tmp = NULL((void*)0);
1934 PyObject *capi_arglist_list = NULL((void*)0);
1935 int capi_j,capi_i = 0;
1936 int capi_longjmp_ok = 1;
1937/*decl*/
1938 int return_value;
1939 complex_float alpha=(*alpha_cb_capi);
1940 complex_float beta=(*beta_cb_capi);
1941#ifdef F2PY_REPORT_ATEXIT
1942f2py_cb_start_clock();
1943#endif
1944 CFUNCSMESS("cb:Call-back function cb_cselect_in_gges__user__routines (maxnofargs=2(-0))\n");
1945 CFUNCSMESSPY("cb:cb_cselect_in_gges__user__routines_capi=",cb_cselect_in_gges__user__routines_capi);
1946 if (cb_cselect_in_gges__user__routines_capi==NULL((void*)0)) {
1947 capi_longjmp_ok = 0;
1948 cb_cselect_in_gges__user__routines_capi = PyObject_GetAttrString(_flapack_module,"cselect");
1949 }
1950 if (cb_cselect_in_gges__user__routines_capi==NULL((void*)0)) {
1951 PyErr_SetString(_flapack_error,"cb: Callback cselect not defined (as an argument or module _flapack attribute).\n");
1952 goto capi_fail;
1953 }
1954 if (F2PyCapsule_Check(cb_cselect_in_gges__user__routines_capi)) {
1955 cb_cselect_in_gges__user__routines_typedef cb_cselect_in_gges__user__routines_cptr;
1956 cb_cselect_in_gges__user__routines_cptr = F2PyCapsule_AsVoidPtr(cb_cselect_in_gges__user__routines_capi);
1957 return_value=(*cb_cselect_in_gges__user__routines_cptr)(alpha_cb_capi,beta_cb_capi);
1958 return return_value;
1959 }
1960 if (capi_arglist==NULL((void*)0)) {
1961 capi_longjmp_ok = 0;
1962 capi_tmp = PyObject_GetAttrString(_flapack_module,"cselect_extra_args");
1963 if (capi_tmp) {
1964 capi_arglist = (PyTupleObject *)PySequence_Tuple(capi_tmp);
1965 if (capi_arglist==NULL((void*)0)) {
1966 PyErr_SetString(_flapack_error,"Failed to convert _flapack.cselect_extra_args to tuple.\n");
1967 goto capi_fail;
1968 }
1969 } else {
1970 PyErr_Clear();
1971 capi_arglist = (PyTupleObject *)Py_BuildValue("()");
1972 }
1973 }
1974 if (capi_arglist == NULL((void*)0)) {
1975 PyErr_SetString(_flapack_error,"Callback cselect argument list is not set.\n");
1976 goto capi_fail;
1977 }
1978/*setdims*/
1979#ifdef PYPY_VERSION
1980#define CAPI_ARGLIST_SETITEM(idx, value) PyList_SetItem((PyObject *)capi_arglist_list, idx, value)
1981 capi_arglist_list = PySequence_List(capi_arglist);
1982 if (capi_arglist_list == NULL((void*)0)) goto capi_fail;
1983#else
1984#define CAPI_ARGLIST_SETITEM(idx, value) PyTuple_SetItem((PyObject *)capi_arglist, idx, value)
1985#endif
1986/*pyobjfrom*/
1987 if (cb_cselect_in_gges__user__routines_nofargs>capi_i)
1988 if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_complex_float1(alpha)(PyComplex_FromDoubles(alpha.r,alpha.i))))
1989 goto capi_fail;
1990 if (cb_cselect_in_gges__user__routines_nofargs>capi_i)
1991 if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_complex_float1(beta)(PyComplex_FromDoubles(beta.r,beta.i))))
1992 goto capi_fail;
1993#undef CAPI_ARGLIST_SETITEM
1994#ifdef PYPY_VERSION
1995 CFUNCSMESSPY("cb:capi_arglist=",capi_arglist_list);
1996#else
1997 CFUNCSMESSPY("cb:capi_arglist=",capi_arglist);
1998#endif
1999 CFUNCSMESS("cb:Call-back calling Python function cselect.\n");
2000#ifdef F2PY_REPORT_ATEXIT
2001f2py_cb_start_call_clock();
2002#endif
2003#ifdef PYPY_VERSION
2004 capi_return = PyObject_CallObject(cb_cselect_in_gges__user__routines_capi,(PyObject *)capi_arglist_list);
2005 Py_DECREF(capi_arglist_list)_Py_DECREF(((PyObject*)(capi_arglist_list)));
2006 capi_arglist_list = NULL((void*)0);
2007#else
2008 capi_return = PyObject_CallObject(cb_cselect_in_gges__user__routines_capi,(PyObject *)capi_arglist);
2009#endif
2010#ifdef F2PY_REPORT_ATEXIT
2011f2py_cb_stop_call_clock();
2012#endif
2013 CFUNCSMESSPY("cb:capi_return=",capi_return);
2014 if (capi_return == NULL((void*)0)) {
2015 fprintf(stderr,"capi_return is NULL\n")__fprintf_chk (stderr, 2 - 1, "capi_return is NULL\n");
2016 goto capi_fail;
2017 }
2018 if (capi_return == Py_None(&_Py_NoneStruct)) {
2019 Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return)));
2020 capi_return = Py_BuildValue("()");
2021 }
2022 else if (!PyTuple_Check(capi_return)((((((PyObject*)(capi_return))->ob_type))->tp_flags &
((1UL << 26))) != 0)
) {
2023 capi_return = Py_BuildValue("(N)",capi_return);
2024 }
2025 capi_j = PyTuple_Size(capi_return);
2026 capi_i = 0;
2027/*frompyobj*/
2028 if (capi_j>capi_i)
2029 GETSCALARFROMPYTUPLE(capi_return,capi_i++,&return_value,int,"int_from_pyobj failed in converting return_value of call-back function cb_cselect_in_gges__user__routines to C int\n"){ if ((capi_tmp = PyTuple_GetItem((capi_return),(capi_i++)))==
((void*)0)) goto capi_fail; if (!(int_from_pyobj((&return_value
),capi_tmp,"int_from_pyobj failed in converting return_value of call-back function cb_cselect_in_gges__user__routines to C int\n"
))) goto capi_fail; }
;
2030 CFUNCSMESS("cb:cb_cselect_in_gges__user__routines:successful\n");
2031 Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return)));
2032#ifdef F2PY_REPORT_ATEXIT
2033f2py_cb_stop_clock();
2034#endif
2035 goto capi_return_pt;
2036capi_fail:
2037 fprintf(stderr,"Call-back cb_cselect_in_gges__user__routines failed.\n")__fprintf_chk (stderr, 2 - 1, "Call-back cb_cselect_in_gges__user__routines failed.\n"
)
;
2038 Py_XDECREF(capi_return)_Py_XDECREF(((PyObject*)(capi_return)));
2039 Py_XDECREF(capi_arglist_list)_Py_XDECREF(((PyObject*)(capi_arglist_list)));
2040 if (capi_longjmp_ok)
2041 longjmp(cb_cselect_in_gges__user__routines_jmpbuf,-1);
2042capi_return_pt:
2043 ;
2044 return return_value;
2045}
2046/***************** end of cb_cselect_in_gges__user__routines *****************/
2047
2048
2049/********************* cb_zselect_in_gges__user__routines *********************/
2050PyObject *cb_zselect_in_gges__user__routines_capi = NULL((void*)0);/*was Py_None*/
2051PyTupleObject *cb_zselect_in_gges__user__routines_args_capi = NULL((void*)0);
2052int cb_zselect_in_gges__user__routines_nofargs = 0;
2053jmp_buf cb_zselect_in_gges__user__routines_jmpbuf;
2054/*typedef int(*cb_zselect_in_gges__user__routines_typedef)(complex_double *,complex_double *);*/
2055static int cb_zselect_in_gges__user__routines (complex_double *alpha_cb_capi,complex_double *beta_cb_capi) {
2056 PyTupleObject *capi_arglist = cb_zselect_in_gges__user__routines_args_capi;
2057 PyObject *capi_return = NULL((void*)0);
2058 PyObject *capi_tmp = NULL((void*)0);
2059 PyObject *capi_arglist_list = NULL((void*)0);
2060 int capi_j,capi_i = 0;
2061 int capi_longjmp_ok = 1;
2062/*decl*/
2063 int return_value;
2064 complex_double alpha=(*alpha_cb_capi);
2065 complex_double beta=(*beta_cb_capi);
2066#ifdef F2PY_REPORT_ATEXIT
2067f2py_cb_start_clock();
2068#endif
2069 CFUNCSMESS("cb:Call-back function cb_zselect_in_gges__user__routines (maxnofargs=2(-0))\n");
2070 CFUNCSMESSPY("cb:cb_zselect_in_gges__user__routines_capi=",cb_zselect_in_gges__user__routines_capi);
2071 if (cb_zselect_in_gges__user__routines_capi==NULL((void*)0)) {
2072 capi_longjmp_ok = 0;
2073 cb_zselect_in_gges__user__routines_capi = PyObject_GetAttrString(_flapack_module,"zselect");
2074 }
2075 if (cb_zselect_in_gges__user__routines_capi==NULL((void*)0)) {
2076 PyErr_SetString(_flapack_error,"cb: Callback zselect not defined (as an argument or module _flapack attribute).\n");
2077 goto capi_fail;
2078 }
2079 if (F2PyCapsule_Check(cb_zselect_in_gges__user__routines_capi)) {
2080 cb_zselect_in_gges__user__routines_typedef cb_zselect_in_gges__user__routines_cptr;
2081 cb_zselect_in_gges__user__routines_cptr = F2PyCapsule_AsVoidPtr(cb_zselect_in_gges__user__routines_capi);
2082 return_value=(*cb_zselect_in_gges__user__routines_cptr)(alpha_cb_capi,beta_cb_capi);
2083 return return_value;
2084 }
2085 if (capi_arglist==NULL((void*)0)) {
2086 capi_longjmp_ok = 0;
2087 capi_tmp = PyObject_GetAttrString(_flapack_module,"zselect_extra_args");
2088 if (capi_tmp) {
2089 capi_arglist = (PyTupleObject *)PySequence_Tuple(capi_tmp);
2090 if (capi_arglist==NULL((void*)0)) {
2091 PyErr_SetString(_flapack_error,"Failed to convert _flapack.zselect_extra_args to tuple.\n");
2092 goto capi_fail;
2093 }
2094 } else {
2095 PyErr_Clear();
2096 capi_arglist = (PyTupleObject *)Py_BuildValue("()");
2097 }
2098 }
2099 if (capi_arglist == NULL((void*)0)) {
2100 PyErr_SetString(_flapack_error,"Callback zselect argument list is not set.\n");
2101 goto capi_fail;
2102 }
2103/*setdims*/
2104#ifdef PYPY_VERSION
2105#define CAPI_ARGLIST_SETITEM(idx, value) PyList_SetItem((PyObject *)capi_arglist_list, idx, value)
2106 capi_arglist_list = PySequence_List(capi_arglist);
2107 if (capi_arglist_list == NULL((void*)0)) goto capi_fail;
2108#else
2109#define CAPI_ARGLIST_SETITEM(idx, value) PyTuple_SetItem((PyObject *)capi_arglist, idx, value)
2110#endif
2111/*pyobjfrom*/
2112 if (cb_zselect_in_gges__user__routines_nofargs>capi_i)
2113 if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_complex_double1(alpha)(PyComplex_FromDoubles(alpha.r,alpha.i))))
2114 goto capi_fail;
2115 if (cb_zselect_in_gges__user__routines_nofargs>capi_i)
2116 if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_complex_double1(beta)(PyComplex_FromDoubles(beta.r,beta.i))))
2117 goto capi_fail;
2118#undef CAPI_ARGLIST_SETITEM
2119#ifdef PYPY_VERSION
2120 CFUNCSMESSPY("cb:capi_arglist=",capi_arglist_list);
2121#else
2122 CFUNCSMESSPY("cb:capi_arglist=",capi_arglist);
2123#endif
2124 CFUNCSMESS("cb:Call-back calling Python function zselect.\n");
2125#ifdef F2PY_REPORT_ATEXIT
2126f2py_cb_start_call_clock();
2127#endif
2128#ifdef PYPY_VERSION
2129 capi_return = PyObject_CallObject(cb_zselect_in_gges__user__routines_capi,(PyObject *)capi_arglist_list);
2130 Py_DECREF(capi_arglist_list)_Py_DECREF(((PyObject*)(capi_arglist_list)));
2131 capi_arglist_list = NULL((void*)0);
2132#else
2133 capi_return = PyObject_CallObject(cb_zselect_in_gges__user__routines_capi,(PyObject *)capi_arglist);
2134#endif
2135#ifdef F2PY_REPORT_ATEXIT
2136f2py_cb_stop_call_clock();
2137#endif
2138 CFUNCSMESSPY("cb:capi_return=",capi_return);
2139 if (capi_return == NULL((void*)0)) {
2140 fprintf(stderr,"capi_return is NULL\n")__fprintf_chk (stderr, 2 - 1, "capi_return is NULL\n");
2141 goto capi_fail;
2142 }
2143 if (capi_return == Py_None(&_Py_NoneStruct)) {
2144 Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return)));
2145 capi_return = Py_BuildValue("()");
2146 }
2147 else if (!PyTuple_Check(capi_return)((((((PyObject*)(capi_return))->ob_type))->tp_flags &
((1UL << 26))) != 0)
) {
2148 capi_return = Py_BuildValue("(N)",capi_return);
2149 }
2150 capi_j = PyTuple_Size(capi_return);
2151 capi_i = 0;
2152/*frompyobj*/
2153 if (capi_j>capi_i)
2154 GETSCALARFROMPYTUPLE(capi_return,capi_i++,&return_value,int,"int_from_pyobj failed in converting return_value of call-back function cb_zselect_in_gges__user__routines to C int\n"){ if ((capi_tmp = PyTuple_GetItem((capi_return),(capi_i++)))==
((void*)0)) goto capi_fail; if (!(int_from_pyobj((&return_value
),capi_tmp,"int_from_pyobj failed in converting return_value of call-back function cb_zselect_in_gges__user__routines to C int\n"
))) goto capi_fail; }
;
2155 CFUNCSMESS("cb:cb_zselect_in_gges__user__routines:successful\n");
2156 Py_DECREF(capi_return)_Py_DECREF(((PyObject*)(capi_return)));
2157#ifdef F2PY_REPORT_ATEXIT
2158f2py_cb_stop_clock();
2159#endif
2160 goto capi_return_pt;
2161capi_fail:
2162 fprintf(stderr,"Call-back cb_zselect_in_gges__user__routines failed.\n")__fprintf_chk (stderr, 2 - 1, "Call-back cb_zselect_in_gges__user__routines failed.\n"
)
;
2163 Py_XDECREF(capi_return)_Py_XDECREF(((PyObject*)(capi_return)));
2164 Py_XDECREF(capi_arglist_list)_Py_XDECREF(((PyObject*)(capi_arglist_list)));
2165 if (capi_longjmp_ok)
2166 longjmp(cb_zselect_in_gges__user__routines_jmpbuf,-1);
2167capi_return_pt:
2168 ;
2169 return return_value;
2170}
2171/***************** end of cb_zselect_in_gges__user__routines *****************/
2172
2173
2174/*********************** See f2py2e/rules.py: buildapi ***********************/
2175
2176/*********************************** sgebal ***********************************/
2177static char doc_f2py_rout__flapack_sgebal[] = "\
2178ba,lo,hi,pivscale,info = sgebal(a,[scale,permute,overwrite_a])\n\nWrapper for ``sgebal``.\
2179\n\nParameters\n----------\n"
2180"a : input rank-2 array('f') with bounds (m,n)\n"
2181"\nOther Parameters\n----------------\n"
2182"scale : input int, optional\n Default: 0\n"
2183"permute : input int, optional\n Default: 0\n"
2184"overwrite_a : input int, optional\n Default: 0\n"
2185"\nReturns\n-------\n"
2186"ba : rank-2 array('f') with bounds (m,n) and a storage\n"
2187"lo : int\n"
2188"hi : int\n"
2189"pivscale : rank-1 array('f') with bounds (n)\n"
2190"info : int";
2191/* extern void F_FUNC(sgebal,SGEBAL)(char*,F_INT*,float*,F_INT*,F_INT*,F_INT*,float*,F_INT* ); */
2192static PyObject *f2py_rout__flapack_sgebal(const PyObject *capi_self,
2193 PyObject *capi_args,
2194 PyObject *capi_keywds,
2195 void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint* )) {
2196 PyObject * volatile capi_buildvalue = NULL((void*)0);
2197 volatile int f2py_success = 1;
2198/*decl*/
2199
2200 int scale = 0;
2201 PyObject *scale_capi = Py_None(&_Py_NoneStruct);
2202 int permute = 0;
2203 PyObject *permute_capi = Py_None(&_Py_NoneStruct);
2204 int n = 0;
2205 float *a = NULL((void*)0);
2206 npy_intp a_Dims[2] = {-1, -1};
2207 const int a_Rank = 2;
2208 PyArrayObject *capi_a_tmp = NULL((void*)0);
2209 int capi_a_intent = 0;
2210 int capi_overwrite_a = 0;
2211 PyObject *a_capi = Py_None(&_Py_NoneStruct);
2212 int m = 0;
2213 int lo = 0;
2214 int hi = 0;
2215 float *pivscale = NULL((void*)0);
2216 npy_intp pivscale_Dims[1] = {-1};
2217 const int pivscale_Rank = 1;
2218 PyArrayObject *capi_pivscale_tmp = NULL((void*)0);
2219 int capi_pivscale_intent = 0;
2220 int info = 0;
2221 static char *capi_kwlist[] = {"a","scale","permute","overwrite_a",NULL((void*)0)};
2222
2223/*routdebugenter*/
2224#ifdef F2PY_REPORT_ATEXIT
2225f2py_start_clock();
2226#endif
2227 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
2228 "O|OOi:_flapack.sgebal",\
2229 capi_kwlist,&a_capi,&scale_capi,&permute_capi,&capi_overwrite_a))
2230 return NULL((void*)0);
2231/*frompyobj*/
2232 /* Processing variable permute */
2233 if (permute_capi == Py_None(&_Py_NoneStruct)) permute = 0; else
2234 f2py_success = int_from_pyobj(&permute,permute_capi,"_flapack.sgebal() 2nd keyword (permute) can't be converted to int");
2235 if (f2py_success) {
2236 /* Processing variable scale */
2237 if (scale_capi == Py_None(&_Py_NoneStruct)) scale = 0; else
2238 f2py_success = int_from_pyobj(&scale,scale_capi,"_flapack.sgebal() 1st keyword (scale) can't be converted to int");
2239 if (f2py_success) {
2240 /* Processing variable hi */
2241 /* Processing variable lo */
2242 /* Processing variable a */
2243 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
2244 ;
2245 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
2246 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
2247 if (capi_a_tmp == NULL((void*)0)) {
2248 if (!PyErr_Occurred())
2249 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgebal to C/Fortran array" );
2250 } else {
2251 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
2252
2253 /* Processing variable info */
2254 /* Processing variable n */
2255 n = shape(a,1)a_Dims[1];
2256 /* Processing variable pivscale */
2257 pivscale_Dims[0]=n;
2258 capi_pivscale_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
2259 capi_pivscale_tmp = array_from_pyobj(NPY_FLOAT,pivscale_Dims,pivscale_Rank,capi_pivscale_intent,Py_None(&_Py_NoneStruct));
2260 if (capi_pivscale_tmp == NULL((void*)0)) {
2261 if (!PyErr_Occurred())
2262 PyErr_SetString(_flapack_error,"failed in converting hidden `pivscale' of _flapack.sgebal to C/Fortran array" );
2263 } else {
2264 pivscale = (float *)(PyArray_DATA(capi_pivscale_tmp)((void *)((PyArrayObject_fields *)(capi_pivscale_tmp))->data
)
);
2265
2266 /* Processing variable m */
2267 m = shape(a,0)a_Dims[0];
2268 CHECKSCALAR(m>=n,"m>=n","hidden m","sgebal:m=%d",m)if (!(m>=n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgebal:m=%d", "(""m>=n"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
2269/*end of frompyobj*/
2270#ifdef F2PY_REPORT_ATEXIT
2271f2py_start_call_clock();
2272#endif
2273/*callfortranroutine*/
2274 { (*f2py_func)((permute?(scale?"B":"P"):(scale?"S":"N")),&n,a,&m,&lo,&hi,pivscale,&info); hi--; lo--; } ;
2275 /*(*f2py_func)(&scale,&permute,&n,a,&m,&lo,&hi,pivscale,&info);*/
2276if (PyErr_Occurred())
2277 f2py_success = 0;
2278#ifdef F2PY_REPORT_ATEXIT
2279f2py_stop_call_clock();
2280#endif
2281/*end of callfortranroutine*/
2282 if (f2py_success) {
2283/*pyobjfrom*/
2284/*end of pyobjfrom*/
2285 CFUNCSMESS("Building return value.\n");
2286 capi_buildvalue = Py_BuildValue("NiiNi",capi_a_tmp,lo,hi,capi_pivscale_tmp,info);
2287/*closepyobjfrom*/
2288/*end of closepyobjfrom*/
2289 } /*if (f2py_success) after callfortranroutine*/
2290/*cleanupfrompyobj*/
2291 } /*CHECKSCALAR(m>=n)*/
2292 /* End of cleaning variable m */
2293 } /*if (capi_pivscale_tmp == NULL) ... else of pivscale*/
2294 /* End of cleaning variable pivscale */
2295 /* End of cleaning variable n */
2296 /* End of cleaning variable info */
2297 } /*if (capi_a_tmp == NULL) ... else of a*/
2298 /* End of cleaning variable a */
2299 /* End of cleaning variable lo */
2300 /* End of cleaning variable hi */
2301 } /*if (f2py_success) of scale*/
2302 /* End of cleaning variable scale */
2303 } /*if (f2py_success) of permute*/
2304 /* End of cleaning variable permute */
2305/*end of cleanupfrompyobj*/
2306 if (capi_buildvalue == NULL((void*)0)) {
2307/*routdebugfailure*/
2308 } else {
2309/*routdebugleave*/
2310 }
2311 CFUNCSMESS("Freeing memory.\n");
2312/*freemem*/
2313#ifdef F2PY_REPORT_ATEXIT
2314f2py_stop_clock();
2315#endif
2316 return capi_buildvalue;
2317}
2318/******************************* end of sgebal *******************************/
2319
2320/*********************************** dgebal ***********************************/
2321static char doc_f2py_rout__flapack_dgebal[] = "\
2322ba,lo,hi,pivscale,info = dgebal(a,[scale,permute,overwrite_a])\n\nWrapper for ``dgebal``.\
2323\n\nParameters\n----------\n"
2324"a : input rank-2 array('d') with bounds (m,n)\n"
2325"\nOther Parameters\n----------------\n"
2326"scale : input int, optional\n Default: 0\n"
2327"permute : input int, optional\n Default: 0\n"
2328"overwrite_a : input int, optional\n Default: 0\n"
2329"\nReturns\n-------\n"
2330"ba : rank-2 array('d') with bounds (m,n) and a storage\n"
2331"lo : int\n"
2332"hi : int\n"
2333"pivscale : rank-1 array('d') with bounds (n)\n"
2334"info : int";
2335/* extern void F_FUNC(dgebal,DGEBAL)(char*,F_INT*,double*,F_INT*,F_INT*,F_INT*,double*,F_INT* ); */
2336static PyObject *f2py_rout__flapack_dgebal(const PyObject *capi_self,
2337 PyObject *capi_args,
2338 PyObject *capi_keywds,
2339 void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint* )) {
2340 PyObject * volatile capi_buildvalue = NULL((void*)0);
2341 volatile int f2py_success = 1;
2342/*decl*/
2343
2344 int scale = 0;
2345 PyObject *scale_capi = Py_None(&_Py_NoneStruct);
2346 int permute = 0;
2347 PyObject *permute_capi = Py_None(&_Py_NoneStruct);
2348 int n = 0;
2349 double *a = NULL((void*)0);
2350 npy_intp a_Dims[2] = {-1, -1};
2351 const int a_Rank = 2;
2352 PyArrayObject *capi_a_tmp = NULL((void*)0);
2353 int capi_a_intent = 0;
2354 int capi_overwrite_a = 0;
2355 PyObject *a_capi = Py_None(&_Py_NoneStruct);
2356 int m = 0;
2357 int lo = 0;
2358 int hi = 0;
2359 double *pivscale = NULL((void*)0);
2360 npy_intp pivscale_Dims[1] = {-1};
2361 const int pivscale_Rank = 1;
2362 PyArrayObject *capi_pivscale_tmp = NULL((void*)0);
2363 int capi_pivscale_intent = 0;
2364 int info = 0;
2365 static char *capi_kwlist[] = {"a","scale","permute","overwrite_a",NULL((void*)0)};
2366
2367/*routdebugenter*/
2368#ifdef F2PY_REPORT_ATEXIT
2369f2py_start_clock();
2370#endif
2371 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
2372 "O|OOi:_flapack.dgebal",\
2373 capi_kwlist,&a_capi,&scale_capi,&permute_capi,&capi_overwrite_a))
2374 return NULL((void*)0);
2375/*frompyobj*/
2376 /* Processing variable permute */
2377 if (permute_capi == Py_None(&_Py_NoneStruct)) permute = 0; else
2378 f2py_success = int_from_pyobj(&permute,permute_capi,"_flapack.dgebal() 2nd keyword (permute) can't be converted to int");
2379 if (f2py_success) {
2380 /* Processing variable scale */
2381 if (scale_capi == Py_None(&_Py_NoneStruct)) scale = 0; else
2382 f2py_success = int_from_pyobj(&scale,scale_capi,"_flapack.dgebal() 1st keyword (scale) can't be converted to int");
2383 if (f2py_success) {
2384 /* Processing variable hi */
2385 /* Processing variable lo */
2386 /* Processing variable a */
2387 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
2388 ;
2389 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
2390 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
2391 if (capi_a_tmp == NULL((void*)0)) {
2392 if (!PyErr_Occurred())
2393 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgebal to C/Fortran array" );
2394 } else {
2395 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
2396
2397 /* Processing variable info */
2398 /* Processing variable n */
2399 n = shape(a,1)a_Dims[1];
2400 /* Processing variable pivscale */
2401 pivscale_Dims[0]=n;
2402 capi_pivscale_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
2403 capi_pivscale_tmp = array_from_pyobj(NPY_DOUBLE,pivscale_Dims,pivscale_Rank,capi_pivscale_intent,Py_None(&_Py_NoneStruct));
2404 if (capi_pivscale_tmp == NULL((void*)0)) {
2405 if (!PyErr_Occurred())
2406 PyErr_SetString(_flapack_error,"failed in converting hidden `pivscale' of _flapack.dgebal to C/Fortran array" );
2407 } else {
2408 pivscale = (double *)(PyArray_DATA(capi_pivscale_tmp)((void *)((PyArrayObject_fields *)(capi_pivscale_tmp))->data
)
);
2409
2410 /* Processing variable m */
2411 m = shape(a,0)a_Dims[0];
2412 CHECKSCALAR(m>=n,"m>=n","hidden m","dgebal:m=%d",m)if (!(m>=n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgebal:m=%d", "(""m>=n"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
2413/*end of frompyobj*/
2414#ifdef F2PY_REPORT_ATEXIT
2415f2py_start_call_clock();
2416#endif
2417/*callfortranroutine*/
2418 { (*f2py_func)((permute?(scale?"B":"P"):(scale?"S":"N")),&n,a,&m,&lo,&hi,pivscale,&info); hi--; lo--; } ;
2419 /*(*f2py_func)(&scale,&permute,&n,a,&m,&lo,&hi,pivscale,&info);*/
2420if (PyErr_Occurred())
2421 f2py_success = 0;
2422#ifdef F2PY_REPORT_ATEXIT
2423f2py_stop_call_clock();
2424#endif
2425/*end of callfortranroutine*/
2426 if (f2py_success) {
2427/*pyobjfrom*/
2428/*end of pyobjfrom*/
2429 CFUNCSMESS("Building return value.\n");
2430 capi_buildvalue = Py_BuildValue("NiiNi",capi_a_tmp,lo,hi,capi_pivscale_tmp,info);
2431/*closepyobjfrom*/
2432/*end of closepyobjfrom*/
2433 } /*if (f2py_success) after callfortranroutine*/
2434/*cleanupfrompyobj*/
2435 } /*CHECKSCALAR(m>=n)*/
2436 /* End of cleaning variable m */
2437 } /*if (capi_pivscale_tmp == NULL) ... else of pivscale*/
2438 /* End of cleaning variable pivscale */
2439 /* End of cleaning variable n */
2440 /* End of cleaning variable info */
2441 } /*if (capi_a_tmp == NULL) ... else of a*/
2442 /* End of cleaning variable a */
2443 /* End of cleaning variable lo */
2444 /* End of cleaning variable hi */
2445 } /*if (f2py_success) of scale*/
2446 /* End of cleaning variable scale */
2447 } /*if (f2py_success) of permute*/
2448 /* End of cleaning variable permute */
2449/*end of cleanupfrompyobj*/
2450 if (capi_buildvalue == NULL((void*)0)) {
2451/*routdebugfailure*/
2452 } else {
2453/*routdebugleave*/
2454 }
2455 CFUNCSMESS("Freeing memory.\n");
2456/*freemem*/
2457#ifdef F2PY_REPORT_ATEXIT
2458f2py_stop_clock();
2459#endif
2460 return capi_buildvalue;
2461}
2462/******************************* end of dgebal *******************************/
2463
2464/*********************************** cgebal ***********************************/
2465static char doc_f2py_rout__flapack_cgebal[] = "\
2466ba,lo,hi,pivscale,info = cgebal(a,[scale,permute,overwrite_a])\n\nWrapper for ``cgebal``.\
2467\n\nParameters\n----------\n"
2468"a : input rank-2 array('F') with bounds (m,n)\n"
2469"\nOther Parameters\n----------------\n"
2470"scale : input int, optional\n Default: 0\n"
2471"permute : input int, optional\n Default: 0\n"
2472"overwrite_a : input int, optional\n Default: 0\n"
2473"\nReturns\n-------\n"
2474"ba : rank-2 array('F') with bounds (m,n) and a storage\n"
2475"lo : int\n"
2476"hi : int\n"
2477"pivscale : rank-1 array('f') with bounds (n)\n"
2478"info : int";
2479/* extern void F_FUNC(cgebal,CGEBAL)(char*,F_INT*,complex_float*,F_INT*,F_INT*,F_INT*,float*,F_INT* ); */
2480static PyObject *f2py_rout__flapack_cgebal(const PyObject *capi_self,
2481 PyObject *capi_args,
2482 PyObject *capi_keywds,
2483 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint* )) {
2484 PyObject * volatile capi_buildvalue = NULL((void*)0);
2485 volatile int f2py_success = 1;
2486/*decl*/
2487
2488 int scale = 0;
2489 PyObject *scale_capi = Py_None(&_Py_NoneStruct);
2490 int permute = 0;
2491 PyObject *permute_capi = Py_None(&_Py_NoneStruct);
2492 int n = 0;
2493 complex_float *a = NULL((void*)0);
2494 npy_intp a_Dims[2] = {-1, -1};
2495 const int a_Rank = 2;
2496 PyArrayObject *capi_a_tmp = NULL((void*)0);
2497 int capi_a_intent = 0;
2498 int capi_overwrite_a = 0;
2499 PyObject *a_capi = Py_None(&_Py_NoneStruct);
2500 int m = 0;
2501 int lo = 0;
2502 int hi = 0;
2503 float *pivscale = NULL((void*)0);
2504 npy_intp pivscale_Dims[1] = {-1};
2505 const int pivscale_Rank = 1;
2506 PyArrayObject *capi_pivscale_tmp = NULL((void*)0);
2507 int capi_pivscale_intent = 0;
2508 int info = 0;
2509 static char *capi_kwlist[] = {"a","scale","permute","overwrite_a",NULL((void*)0)};
2510
2511/*routdebugenter*/
2512#ifdef F2PY_REPORT_ATEXIT
2513f2py_start_clock();
2514#endif
2515 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
2516 "O|OOi:_flapack.cgebal",\
2517 capi_kwlist,&a_capi,&scale_capi,&permute_capi,&capi_overwrite_a))
2518 return NULL((void*)0);
2519/*frompyobj*/
2520 /* Processing variable permute */
2521 if (permute_capi == Py_None(&_Py_NoneStruct)) permute = 0; else
2522 f2py_success = int_from_pyobj(&permute,permute_capi,"_flapack.cgebal() 2nd keyword (permute) can't be converted to int");
2523 if (f2py_success) {
2524 /* Processing variable scale */
2525 if (scale_capi == Py_None(&_Py_NoneStruct)) scale = 0; else
2526 f2py_success = int_from_pyobj(&scale,scale_capi,"_flapack.cgebal() 1st keyword (scale) can't be converted to int");
2527 if (f2py_success) {
2528 /* Processing variable hi */
2529 /* Processing variable lo */
2530 /* Processing variable a */
2531 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
2532 ;
2533 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
2534 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
2535 if (capi_a_tmp == NULL((void*)0)) {
2536 if (!PyErr_Occurred())
2537 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgebal to C/Fortran array" );
2538 } else {
2539 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
2540
2541 /* Processing variable info */
2542 /* Processing variable n */
2543 n = shape(a,1)a_Dims[1];
2544 /* Processing variable pivscale */
2545 pivscale_Dims[0]=n;
2546 capi_pivscale_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
2547 capi_pivscale_tmp = array_from_pyobj(NPY_FLOAT,pivscale_Dims,pivscale_Rank,capi_pivscale_intent,Py_None(&_Py_NoneStruct));
2548 if (capi_pivscale_tmp == NULL((void*)0)) {
2549 if (!PyErr_Occurred())
2550 PyErr_SetString(_flapack_error,"failed in converting hidden `pivscale' of _flapack.cgebal to C/Fortran array" );
2551 } else {
2552 pivscale = (float *)(PyArray_DATA(capi_pivscale_tmp)((void *)((PyArrayObject_fields *)(capi_pivscale_tmp))->data
)
);
2553
2554 /* Processing variable m */
2555 m = shape(a,0)a_Dims[0];
2556 CHECKSCALAR(m>=n,"m>=n","hidden m","cgebal:m=%d",m)if (!(m>=n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgebal:m=%d", "(""m>=n"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
2557/*end of frompyobj*/
2558#ifdef F2PY_REPORT_ATEXIT
2559f2py_start_call_clock();
2560#endif
2561/*callfortranroutine*/
2562 { (*f2py_func)((permute?(scale?"B":"P"):(scale?"S":"N")),&n,a,&m,&lo,&hi,pivscale,&info); hi--; lo--; } ;
2563 /*(*f2py_func)(&scale,&permute,&n,a,&m,&lo,&hi,pivscale,&info);*/
2564if (PyErr_Occurred())
2565 f2py_success = 0;
2566#ifdef F2PY_REPORT_ATEXIT
2567f2py_stop_call_clock();
2568#endif
2569/*end of callfortranroutine*/
2570 if (f2py_success) {
2571/*pyobjfrom*/
2572/*end of pyobjfrom*/
2573 CFUNCSMESS("Building return value.\n");
2574 capi_buildvalue = Py_BuildValue("NiiNi",capi_a_tmp,lo,hi,capi_pivscale_tmp,info);
2575/*closepyobjfrom*/
2576/*end of closepyobjfrom*/
2577 } /*if (f2py_success) after callfortranroutine*/
2578/*cleanupfrompyobj*/
2579 } /*CHECKSCALAR(m>=n)*/
2580 /* End of cleaning variable m */
2581 } /*if (capi_pivscale_tmp == NULL) ... else of pivscale*/
2582 /* End of cleaning variable pivscale */
2583 /* End of cleaning variable n */
2584 /* End of cleaning variable info */
2585 } /*if (capi_a_tmp == NULL) ... else of a*/
2586 /* End of cleaning variable a */
2587 /* End of cleaning variable lo */
2588 /* End of cleaning variable hi */
2589 } /*if (f2py_success) of scale*/
2590 /* End of cleaning variable scale */
2591 } /*if (f2py_success) of permute*/
2592 /* End of cleaning variable permute */
2593/*end of cleanupfrompyobj*/
2594 if (capi_buildvalue == NULL((void*)0)) {
2595/*routdebugfailure*/
2596 } else {
2597/*routdebugleave*/
2598 }
2599 CFUNCSMESS("Freeing memory.\n");
2600/*freemem*/
2601#ifdef F2PY_REPORT_ATEXIT
2602f2py_stop_clock();
2603#endif
2604 return capi_buildvalue;
2605}
2606/******************************* end of cgebal *******************************/
2607
2608/*********************************** zgebal ***********************************/
2609static char doc_f2py_rout__flapack_zgebal[] = "\
2610ba,lo,hi,pivscale,info = zgebal(a,[scale,permute,overwrite_a])\n\nWrapper for ``zgebal``.\
2611\n\nParameters\n----------\n"
2612"a : input rank-2 array('D') with bounds (m,n)\n"
2613"\nOther Parameters\n----------------\n"
2614"scale : input int, optional\n Default: 0\n"
2615"permute : input int, optional\n Default: 0\n"
2616"overwrite_a : input int, optional\n Default: 0\n"
2617"\nReturns\n-------\n"
2618"ba : rank-2 array('D') with bounds (m,n) and a storage\n"
2619"lo : int\n"
2620"hi : int\n"
2621"pivscale : rank-1 array('d') with bounds (n)\n"
2622"info : int";
2623/* extern void F_FUNC(zgebal,ZGEBAL)(char*,F_INT*,complex_double*,F_INT*,F_INT*,F_INT*,double*,F_INT* ); */
2624static PyObject *f2py_rout__flapack_zgebal(const PyObject *capi_self,
2625 PyObject *capi_args,
2626 PyObject *capi_keywds,
2627 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint* )) {
2628 PyObject * volatile capi_buildvalue = NULL((void*)0);
2629 volatile int f2py_success = 1;
2630/*decl*/
2631
2632 int scale = 0;
2633 PyObject *scale_capi = Py_None(&_Py_NoneStruct);
2634 int permute = 0;
2635 PyObject *permute_capi = Py_None(&_Py_NoneStruct);
2636 int n = 0;
2637 complex_double *a = NULL((void*)0);
2638 npy_intp a_Dims[2] = {-1, -1};
2639 const int a_Rank = 2;
2640 PyArrayObject *capi_a_tmp = NULL((void*)0);
2641 int capi_a_intent = 0;
2642 int capi_overwrite_a = 0;
2643 PyObject *a_capi = Py_None(&_Py_NoneStruct);
2644 int m = 0;
2645 int lo = 0;
2646 int hi = 0;
2647 double *pivscale = NULL((void*)0);
2648 npy_intp pivscale_Dims[1] = {-1};
2649 const int pivscale_Rank = 1;
2650 PyArrayObject *capi_pivscale_tmp = NULL((void*)0);
2651 int capi_pivscale_intent = 0;
2652 int info = 0;
2653 static char *capi_kwlist[] = {"a","scale","permute","overwrite_a",NULL((void*)0)};
2654
2655/*routdebugenter*/
2656#ifdef F2PY_REPORT_ATEXIT
2657f2py_start_clock();
2658#endif
2659 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
2660 "O|OOi:_flapack.zgebal",\
2661 capi_kwlist,&a_capi,&scale_capi,&permute_capi,&capi_overwrite_a))
2662 return NULL((void*)0);
2663/*frompyobj*/
2664 /* Processing variable permute */
2665 if (permute_capi == Py_None(&_Py_NoneStruct)) permute = 0; else
2666 f2py_success = int_from_pyobj(&permute,permute_capi,"_flapack.zgebal() 2nd keyword (permute) can't be converted to int");
2667 if (f2py_success) {
2668 /* Processing variable scale */
2669 if (scale_capi == Py_None(&_Py_NoneStruct)) scale = 0; else
2670 f2py_success = int_from_pyobj(&scale,scale_capi,"_flapack.zgebal() 1st keyword (scale) can't be converted to int");
2671 if (f2py_success) {
2672 /* Processing variable hi */
2673 /* Processing variable lo */
2674 /* Processing variable a */
2675 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
2676 ;
2677 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
2678 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
2679 if (capi_a_tmp == NULL((void*)0)) {
2680 if (!PyErr_Occurred())
2681 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgebal to C/Fortran array" );
2682 } else {
2683 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
2684
2685 /* Processing variable info */
2686 /* Processing variable n */
2687 n = shape(a,1)a_Dims[1];
2688 /* Processing variable pivscale */
2689 pivscale_Dims[0]=n;
2690 capi_pivscale_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
2691 capi_pivscale_tmp = array_from_pyobj(NPY_DOUBLE,pivscale_Dims,pivscale_Rank,capi_pivscale_intent,Py_None(&_Py_NoneStruct));
2692 if (capi_pivscale_tmp == NULL((void*)0)) {
2693 if (!PyErr_Occurred())
2694 PyErr_SetString(_flapack_error,"failed in converting hidden `pivscale' of _flapack.zgebal to C/Fortran array" );
2695 } else {
2696 pivscale = (double *)(PyArray_DATA(capi_pivscale_tmp)((void *)((PyArrayObject_fields *)(capi_pivscale_tmp))->data
)
);
2697
2698 /* Processing variable m */
2699 m = shape(a,0)a_Dims[0];
2700 CHECKSCALAR(m>=n,"m>=n","hidden m","zgebal:m=%d",m)if (!(m>=n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgebal:m=%d", "(""m>=n"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
2701/*end of frompyobj*/
2702#ifdef F2PY_REPORT_ATEXIT
2703f2py_start_call_clock();
2704#endif
2705/*callfortranroutine*/
2706 { (*f2py_func)((permute?(scale?"B":"P"):(scale?"S":"N")),&n,a,&m,&lo,&hi,pivscale,&info); hi--; lo--; } ;
2707 /*(*f2py_func)(&scale,&permute,&n,a,&m,&lo,&hi,pivscale,&info);*/
2708if (PyErr_Occurred())
2709 f2py_success = 0;
2710#ifdef F2PY_REPORT_ATEXIT
2711f2py_stop_call_clock();
2712#endif
2713/*end of callfortranroutine*/
2714 if (f2py_success) {
2715/*pyobjfrom*/
2716/*end of pyobjfrom*/
2717 CFUNCSMESS("Building return value.\n");
2718 capi_buildvalue = Py_BuildValue("NiiNi",capi_a_tmp,lo,hi,capi_pivscale_tmp,info);
2719/*closepyobjfrom*/
2720/*end of closepyobjfrom*/
2721 } /*if (f2py_success) after callfortranroutine*/
2722/*cleanupfrompyobj*/
2723 } /*CHECKSCALAR(m>=n)*/
2724 /* End of cleaning variable m */
2725 } /*if (capi_pivscale_tmp == NULL) ... else of pivscale*/
2726 /* End of cleaning variable pivscale */
2727 /* End of cleaning variable n */
2728 /* End of cleaning variable info */
2729 } /*if (capi_a_tmp == NULL) ... else of a*/
2730 /* End of cleaning variable a */
2731 /* End of cleaning variable lo */
2732 /* End of cleaning variable hi */
2733 } /*if (f2py_success) of scale*/
2734 /* End of cleaning variable scale */
2735 } /*if (f2py_success) of permute*/
2736 /* End of cleaning variable permute */
2737/*end of cleanupfrompyobj*/
2738 if (capi_buildvalue == NULL((void*)0)) {
2739/*routdebugfailure*/
2740 } else {
2741/*routdebugleave*/
2742 }
2743 CFUNCSMESS("Freeing memory.\n");
2744/*freemem*/
2745#ifdef F2PY_REPORT_ATEXIT
2746f2py_stop_clock();
2747#endif
2748 return capi_buildvalue;
2749}
2750/******************************* end of zgebal *******************************/
2751
2752/*********************************** sgehrd ***********************************/
2753static char doc_f2py_rout__flapack_sgehrd[] = "\
2754ht,tau,info = sgehrd(a,[lo,hi,lwork,overwrite_a])\n\nWrapper for ``sgehrd``.\
2755\n\nParameters\n----------\n"
2756"a : input rank-2 array('f') with bounds (n,n)\n"
2757"\nOther Parameters\n----------------\n"
2758"lo : input int, optional\n Default: 0\n"
2759"hi : input int, optional\n Default: n-1\n"
2760"overwrite_a : input int, optional\n Default: 0\n"
2761"lwork : input int, optional\n Default: MAX(n,1)\n"
2762"\nReturns\n-------\n"
2763"ht : rank-2 array('f') with bounds (n,n) and a storage\n"
2764"tau : rank-1 array('f') with bounds (n - 1)\n"
2765"info : int";
2766/* extern void F_FUNC(sgehrd,SGEHRD)(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */
2767static PyObject *f2py_rout__flapack_sgehrd(const PyObject *capi_self,
2768 PyObject *capi_args,
2769 PyObject *capi_keywds,
2770 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
2771 PyObject * volatile capi_buildvalue = NULL((void*)0);
2772 volatile int f2py_success = 1;
2773/*decl*/
2774
2775 int n = 0;
2776 int lo = 0;
2777 PyObject *lo_capi = Py_None(&_Py_NoneStruct);
2778 int hi = 0;
2779 PyObject *hi_capi = Py_None(&_Py_NoneStruct);
2780 float *a = NULL((void*)0);
2781 npy_intp a_Dims[2] = {-1, -1};
2782 const int a_Rank = 2;
2783 PyArrayObject *capi_a_tmp = NULL((void*)0);
2784 int capi_a_intent = 0;
2785 int capi_overwrite_a = 0;
2786 PyObject *a_capi = Py_None(&_Py_NoneStruct);
2787 float *tau = NULL((void*)0);
2788 npy_intp tau_Dims[1] = {-1};
2789 const int tau_Rank = 1;
2790 PyArrayObject *capi_tau_tmp = NULL((void*)0);
2791 int capi_tau_intent = 0;
2792 float *work = NULL((void*)0);
2793 npy_intp work_Dims[1] = {-1};
2794 const int work_Rank = 1;
2795 PyArrayObject *capi_work_tmp = NULL((void*)0);
2796 int capi_work_intent = 0;
2797 int lwork = 0;
2798 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
2799 int info = 0;
2800 static char *capi_kwlist[] = {"a","lo","hi","lwork","overwrite_a",NULL((void*)0)};
2801
2802/*routdebugenter*/
2803#ifdef F2PY_REPORT_ATEXIT
2804f2py_start_clock();
2805#endif
2806 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
2807 "O|OOOi:_flapack.sgehrd",\
2808 capi_kwlist,&a_capi,&lo_capi,&hi_capi,&lwork_capi,&capi_overwrite_a))
2809 return NULL((void*)0);
2810/*frompyobj*/
2811 /* Processing variable a */
2812 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
2813 ;
2814 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
2815 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
2816 if (capi_a_tmp == NULL((void*)0)) {
2817 if (!PyErr_Occurred())
2818 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgehrd to C/Fortran array" );
2819 } else {
2820 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
2821
2822 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
2823 /* Processing variable lo */
2824 if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else
2825 f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.sgehrd() 1st keyword (lo) can't be converted to int");
2826 if (f2py_success) {
2827 /* Processing variable info */
2828 /* Processing variable n */
2829 n = shape(a,0)a_Dims[0];
2830 /* Processing variable hi */
2831 if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else
2832 f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.sgehrd() 2nd keyword (hi) can't be converted to int");
2833 if (f2py_success) {
2834 /* Processing variable tau */
2835 tau_Dims[0]=n - 1;
2836 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
2837 capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
2838 if (capi_tau_tmp == NULL((void*)0)) {
2839 if (!PyErr_Occurred())
2840 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.sgehrd to C/Fortran array" );
2841 } else {
2842 tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
2843
2844 /* Processing variable lwork */
2845 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(n,1)((n > 1) ? (n) : (1)); else
2846 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgehrd() 3rd keyword (lwork) can't be converted to int");
2847 if (f2py_success) {
2848 CHECKSCALAR(lwork>=MAX(n,1),"lwork>=MAX(n,1)","3rd keyword lwork","sgehrd:lwork=%d",lwork)if (!(lwork>=((n > 1) ? (n) : (1)))) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""sgehrd:lwork=%d", "(""lwork>=MAX(n,1)"
") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
2849 /* Processing variable work */
2850 work_Dims[0]=lwork;
2851 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
2852 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
2853 if (capi_work_tmp == NULL((void*)0)) {
2854 if (!PyErr_Occurred())
2855 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgehrd to C/Fortran array" );
2856 } else {
2857 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
2858
2859/*end of frompyobj*/
2860#ifdef F2PY_REPORT_ATEXIT
2861f2py_start_call_clock();
2862#endif
2863/*callfortranroutine*/
2864 { hi++; lo++; (*f2py_func)(&n,&lo,&hi,a,&n,tau,work,&lwork,&info); } ;
2865 /*(*f2py_func)(&n,&lo,&hi,a,tau,work,&lwork,&info);*/
2866if (PyErr_Occurred())
2867 f2py_success = 0;
2868#ifdef F2PY_REPORT_ATEXIT
2869f2py_stop_call_clock();
2870#endif
2871/*end of callfortranroutine*/
2872 if (f2py_success) {
2873/*pyobjfrom*/
2874/*end of pyobjfrom*/
2875 CFUNCSMESS("Building return value.\n");
2876 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info);
2877/*closepyobjfrom*/
2878/*end of closepyobjfrom*/
2879 } /*if (f2py_success) after callfortranroutine*/
2880/*cleanupfrompyobj*/
2881 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
2882 } /*if (capi_work_tmp == NULL) ... else of work*/
2883 /* End of cleaning variable work */
2884 } /*CHECKSCALAR(lwork>=MAX(n,1))*/
2885 } /*if (f2py_success) of lwork*/
2886 /* End of cleaning variable lwork */
2887 } /*if (capi_tau_tmp == NULL) ... else of tau*/
2888 /* End of cleaning variable tau */
2889 } /*if (f2py_success) of hi*/
2890 /* End of cleaning variable hi */
2891 /* End of cleaning variable n */
2892 /* End of cleaning variable info */
2893 } /*if (f2py_success) of lo*/
2894 /* End of cleaning variable lo */
2895 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
2896 } /*if (capi_a_tmp == NULL) ... else of a*/
2897 /* End of cleaning variable a */
2898/*end of cleanupfrompyobj*/
2899 if (capi_buildvalue == NULL((void*)0)) {
2900/*routdebugfailure*/
2901 } else {
2902/*routdebugleave*/
2903 }
2904 CFUNCSMESS("Freeing memory.\n");
2905/*freemem*/
2906#ifdef F2PY_REPORT_ATEXIT
2907f2py_stop_clock();
2908#endif
2909 return capi_buildvalue;
2910}
2911/******************************* end of sgehrd *******************************/
2912
2913/*********************************** dgehrd ***********************************/
2914static char doc_f2py_rout__flapack_dgehrd[] = "\
2915ht,tau,info = dgehrd(a,[lo,hi,lwork,overwrite_a])\n\nWrapper for ``dgehrd``.\
2916\n\nParameters\n----------\n"
2917"a : input rank-2 array('d') with bounds (n,n)\n"
2918"\nOther Parameters\n----------------\n"
2919"lo : input int, optional\n Default: 0\n"
2920"hi : input int, optional\n Default: n-1\n"
2921"overwrite_a : input int, optional\n Default: 0\n"
2922"lwork : input int, optional\n Default: MAX(n,1)\n"
2923"\nReturns\n-------\n"
2924"ht : rank-2 array('d') with bounds (n,n) and a storage\n"
2925"tau : rank-1 array('d') with bounds (n - 1)\n"
2926"info : int";
2927/* extern void F_FUNC(dgehrd,DGEHRD)(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */
2928static PyObject *f2py_rout__flapack_dgehrd(const PyObject *capi_self,
2929 PyObject *capi_args,
2930 PyObject *capi_keywds,
2931 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
2932 PyObject * volatile capi_buildvalue = NULL((void*)0);
2933 volatile int f2py_success = 1;
2934/*decl*/
2935
2936 int n = 0;
2937 int lo = 0;
2938 PyObject *lo_capi = Py_None(&_Py_NoneStruct);
2939 int hi = 0;
2940 PyObject *hi_capi = Py_None(&_Py_NoneStruct);
2941 double *a = NULL((void*)0);
2942 npy_intp a_Dims[2] = {-1, -1};
2943 const int a_Rank = 2;
2944 PyArrayObject *capi_a_tmp = NULL((void*)0);
2945 int capi_a_intent = 0;
2946 int capi_overwrite_a = 0;
2947 PyObject *a_capi = Py_None(&_Py_NoneStruct);
2948 double *tau = NULL((void*)0);
2949 npy_intp tau_Dims[1] = {-1};
2950 const int tau_Rank = 1;
2951 PyArrayObject *capi_tau_tmp = NULL((void*)0);
2952 int capi_tau_intent = 0;
2953 double *work = NULL((void*)0);
2954 npy_intp work_Dims[1] = {-1};
2955 const int work_Rank = 1;
2956 PyArrayObject *capi_work_tmp = NULL((void*)0);
2957 int capi_work_intent = 0;
2958 int lwork = 0;
2959 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
2960 int info = 0;
2961 static char *capi_kwlist[] = {"a","lo","hi","lwork","overwrite_a",NULL((void*)0)};
2962
2963/*routdebugenter*/
2964#ifdef F2PY_REPORT_ATEXIT
2965f2py_start_clock();
2966#endif
2967 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
2968 "O|OOOi:_flapack.dgehrd",\
2969 capi_kwlist,&a_capi,&lo_capi,&hi_capi,&lwork_capi,&capi_overwrite_a))
2970 return NULL((void*)0);
2971/*frompyobj*/
2972 /* Processing variable a */
2973 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
2974 ;
2975 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
2976 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
2977 if (capi_a_tmp == NULL((void*)0)) {
2978 if (!PyErr_Occurred())
2979 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgehrd to C/Fortran array" );
2980 } else {
2981 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
2982
2983 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
2984 /* Processing variable lo */
2985 if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else
2986 f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.dgehrd() 1st keyword (lo) can't be converted to int");
2987 if (f2py_success) {
2988 /* Processing variable info */
2989 /* Processing variable n */
2990 n = shape(a,0)a_Dims[0];
2991 /* Processing variable hi */
2992 if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else
2993 f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.dgehrd() 2nd keyword (hi) can't be converted to int");
2994 if (f2py_success) {
2995 /* Processing variable tau */
2996 tau_Dims[0]=n - 1;
2997 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
2998 capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
2999 if (capi_tau_tmp == NULL((void*)0)) {
3000 if (!PyErr_Occurred())
3001 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.dgehrd to C/Fortran array" );
3002 } else {
3003 tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
3004
3005 /* Processing variable lwork */
3006 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(n,1)((n > 1) ? (n) : (1)); else
3007 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgehrd() 3rd keyword (lwork) can't be converted to int");
3008 if (f2py_success) {
3009 CHECKSCALAR(lwork>=MAX(n,1),"lwork>=MAX(n,1)","3rd keyword lwork","dgehrd:lwork=%d",lwork)if (!(lwork>=((n > 1) ? (n) : (1)))) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dgehrd:lwork=%d", "(""lwork>=MAX(n,1)"
") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
3010 /* Processing variable work */
3011 work_Dims[0]=lwork;
3012 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
3013 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
3014 if (capi_work_tmp == NULL((void*)0)) {
3015 if (!PyErr_Occurred())
3016 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgehrd to C/Fortran array" );
3017 } else {
3018 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
3019
3020/*end of frompyobj*/
3021#ifdef F2PY_REPORT_ATEXIT
3022f2py_start_call_clock();
3023#endif
3024/*callfortranroutine*/
3025 { hi++; lo++; (*f2py_func)(&n,&lo,&hi,a,&n,tau,work,&lwork,&info); } ;
3026 /*(*f2py_func)(&n,&lo,&hi,a,tau,work,&lwork,&info);*/
3027if (PyErr_Occurred())
3028 f2py_success = 0;
3029#ifdef F2PY_REPORT_ATEXIT
3030f2py_stop_call_clock();
3031#endif
3032/*end of callfortranroutine*/
3033 if (f2py_success) {
3034/*pyobjfrom*/
3035/*end of pyobjfrom*/
3036 CFUNCSMESS("Building return value.\n");
3037 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info);
3038/*closepyobjfrom*/
3039/*end of closepyobjfrom*/
3040 } /*if (f2py_success) after callfortranroutine*/
3041/*cleanupfrompyobj*/
3042 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
3043 } /*if (capi_work_tmp == NULL) ... else of work*/
3044 /* End of cleaning variable work */
3045 } /*CHECKSCALAR(lwork>=MAX(n,1))*/
3046 } /*if (f2py_success) of lwork*/
3047 /* End of cleaning variable lwork */
3048 } /*if (capi_tau_tmp == NULL) ... else of tau*/
3049 /* End of cleaning variable tau */
3050 } /*if (f2py_success) of hi*/
3051 /* End of cleaning variable hi */
3052 /* End of cleaning variable n */
3053 /* End of cleaning variable info */
3054 } /*if (f2py_success) of lo*/
3055 /* End of cleaning variable lo */
3056 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
3057 } /*if (capi_a_tmp == NULL) ... else of a*/
3058 /* End of cleaning variable a */
3059/*end of cleanupfrompyobj*/
3060 if (capi_buildvalue == NULL((void*)0)) {
3061/*routdebugfailure*/
3062 } else {
3063/*routdebugleave*/
3064 }
3065 CFUNCSMESS("Freeing memory.\n");
3066/*freemem*/
3067#ifdef F2PY_REPORT_ATEXIT
3068f2py_stop_clock();
3069#endif
3070 return capi_buildvalue;
3071}
3072/******************************* end of dgehrd *******************************/
3073
3074/*********************************** cgehrd ***********************************/
3075static char doc_f2py_rout__flapack_cgehrd[] = "\
3076ht,tau,info = cgehrd(a,[lo,hi,lwork,overwrite_a])\n\nWrapper for ``cgehrd``.\
3077\n\nParameters\n----------\n"
3078"a : input rank-2 array('F') with bounds (n,n)\n"
3079"\nOther Parameters\n----------------\n"
3080"lo : input int, optional\n Default: 0\n"
3081"hi : input int, optional\n Default: n-1\n"
3082"overwrite_a : input int, optional\n Default: 0\n"
3083"lwork : input int, optional\n Default: MAX(n,1)\n"
3084"\nReturns\n-------\n"
3085"ht : rank-2 array('F') with bounds (n,n) and a storage\n"
3086"tau : rank-1 array('F') with bounds (n - 1)\n"
3087"info : int";
3088/* extern void F_FUNC(cgehrd,CGEHRD)(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */
3089static PyObject *f2py_rout__flapack_cgehrd(const PyObject *capi_self,
3090 PyObject *capi_args,
3091 PyObject *capi_keywds,
3092 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
3093 PyObject * volatile capi_buildvalue = NULL((void*)0);
3094 volatile int f2py_success = 1;
3095/*decl*/
3096
3097 int n = 0;
3098 int lo = 0;
3099 PyObject *lo_capi = Py_None(&_Py_NoneStruct);
3100 int hi = 0;
3101 PyObject *hi_capi = Py_None(&_Py_NoneStruct);
3102 complex_float *a = NULL((void*)0);
3103 npy_intp a_Dims[2] = {-1, -1};
3104 const int a_Rank = 2;
3105 PyArrayObject *capi_a_tmp = NULL((void*)0);
3106 int capi_a_intent = 0;
3107 int capi_overwrite_a = 0;
3108 PyObject *a_capi = Py_None(&_Py_NoneStruct);
3109 complex_float *tau = NULL((void*)0);
3110 npy_intp tau_Dims[1] = {-1};
3111 const int tau_Rank = 1;
3112 PyArrayObject *capi_tau_tmp = NULL((void*)0);
3113 int capi_tau_intent = 0;
3114 complex_float *work = NULL((void*)0);
3115 npy_intp work_Dims[1] = {-1};
3116 const int work_Rank = 1;
3117 PyArrayObject *capi_work_tmp = NULL((void*)0);
3118 int capi_work_intent = 0;
3119 int lwork = 0;
3120 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
3121 int info = 0;
3122 static char *capi_kwlist[] = {"a","lo","hi","lwork","overwrite_a",NULL((void*)0)};
3123
3124/*routdebugenter*/
3125#ifdef F2PY_REPORT_ATEXIT
3126f2py_start_clock();
3127#endif
3128 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
3129 "O|OOOi:_flapack.cgehrd",\
3130 capi_kwlist,&a_capi,&lo_capi,&hi_capi,&lwork_capi,&capi_overwrite_a))
3131 return NULL((void*)0);
3132/*frompyobj*/
3133 /* Processing variable a */
3134 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
3135 ;
3136 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
3137 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
3138 if (capi_a_tmp == NULL((void*)0)) {
3139 if (!PyErr_Occurred())
3140 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgehrd to C/Fortran array" );
3141 } else {
3142 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
3143
3144 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
3145 /* Processing variable lo */
3146 if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else
3147 f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.cgehrd() 1st keyword (lo) can't be converted to int");
3148 if (f2py_success) {
3149 /* Processing variable info */
3150 /* Processing variable n */
3151 n = shape(a,0)a_Dims[0];
3152 /* Processing variable hi */
3153 if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else
3154 f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.cgehrd() 2nd keyword (hi) can't be converted to int");
3155 if (f2py_success) {
3156 /* Processing variable tau */
3157 tau_Dims[0]=n - 1;
3158 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
3159 capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
3160 if (capi_tau_tmp == NULL((void*)0)) {
3161 if (!PyErr_Occurred())
3162 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.cgehrd to C/Fortran array" );
3163 } else {
3164 tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
3165
3166 /* Processing variable lwork */
3167 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(n,1)((n > 1) ? (n) : (1)); else
3168 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgehrd() 3rd keyword (lwork) can't be converted to int");
3169 if (f2py_success) {
3170 CHECKSCALAR(lwork>=MAX(n,1),"lwork>=MAX(n,1)","3rd keyword lwork","cgehrd:lwork=%d",lwork)if (!(lwork>=((n > 1) ? (n) : (1)))) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""cgehrd:lwork=%d", "(""lwork>=MAX(n,1)"
") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
3171 /* Processing variable work */
3172 work_Dims[0]=lwork;
3173 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
3174 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
3175 if (capi_work_tmp == NULL((void*)0)) {
3176 if (!PyErr_Occurred())
3177 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgehrd to C/Fortran array" );
3178 } else {
3179 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
3180
3181/*end of frompyobj*/
3182#ifdef F2PY_REPORT_ATEXIT
3183f2py_start_call_clock();
3184#endif
3185/*callfortranroutine*/
3186 { hi++; lo++; (*f2py_func)(&n,&lo,&hi,a,&n,tau,work,&lwork,&info); } ;
3187 /*(*f2py_func)(&n,&lo,&hi,a,tau,work,&lwork,&info);*/
3188if (PyErr_Occurred())
3189 f2py_success = 0;
3190#ifdef F2PY_REPORT_ATEXIT
3191f2py_stop_call_clock();
3192#endif
3193/*end of callfortranroutine*/
3194 if (f2py_success) {
3195/*pyobjfrom*/
3196/*end of pyobjfrom*/
3197 CFUNCSMESS("Building return value.\n");
3198 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info);
3199/*closepyobjfrom*/
3200/*end of closepyobjfrom*/
3201 } /*if (f2py_success) after callfortranroutine*/
3202/*cleanupfrompyobj*/
3203 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
3204 } /*if (capi_work_tmp == NULL) ... else of work*/
3205 /* End of cleaning variable work */
3206 } /*CHECKSCALAR(lwork>=MAX(n,1))*/
3207 } /*if (f2py_success) of lwork*/
3208 /* End of cleaning variable lwork */
3209 } /*if (capi_tau_tmp == NULL) ... else of tau*/
3210 /* End of cleaning variable tau */
3211 } /*if (f2py_success) of hi*/
3212 /* End of cleaning variable hi */
3213 /* End of cleaning variable n */
3214 /* End of cleaning variable info */
3215 } /*if (f2py_success) of lo*/
3216 /* End of cleaning variable lo */
3217 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
3218 } /*if (capi_a_tmp == NULL) ... else of a*/
3219 /* End of cleaning variable a */
3220/*end of cleanupfrompyobj*/
3221 if (capi_buildvalue == NULL((void*)0)) {
3222/*routdebugfailure*/
3223 } else {
3224/*routdebugleave*/
3225 }
3226 CFUNCSMESS("Freeing memory.\n");
3227/*freemem*/
3228#ifdef F2PY_REPORT_ATEXIT
3229f2py_stop_clock();
3230#endif
3231 return capi_buildvalue;
3232}
3233/******************************* end of cgehrd *******************************/
3234
3235/*********************************** zgehrd ***********************************/
3236static char doc_f2py_rout__flapack_zgehrd[] = "\
3237ht,tau,info = zgehrd(a,[lo,hi,lwork,overwrite_a])\n\nWrapper for ``zgehrd``.\
3238\n\nParameters\n----------\n"
3239"a : input rank-2 array('D') with bounds (n,n)\n"
3240"\nOther Parameters\n----------------\n"
3241"lo : input int, optional\n Default: 0\n"
3242"hi : input int, optional\n Default: n-1\n"
3243"overwrite_a : input int, optional\n Default: 0\n"
3244"lwork : input int, optional\n Default: MAX(n,1)\n"
3245"\nReturns\n-------\n"
3246"ht : rank-2 array('D') with bounds (n,n) and a storage\n"
3247"tau : rank-1 array('D') with bounds (n - 1)\n"
3248"info : int";
3249/* extern void F_FUNC(zgehrd,ZGEHRD)(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */
3250static PyObject *f2py_rout__flapack_zgehrd(const PyObject *capi_self,
3251 PyObject *capi_args,
3252 PyObject *capi_keywds,
3253 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
3254 PyObject * volatile capi_buildvalue = NULL((void*)0);
3255 volatile int f2py_success = 1;
3256/*decl*/
3257
3258 int n = 0;
3259 int lo = 0;
3260 PyObject *lo_capi = Py_None(&_Py_NoneStruct);
3261 int hi = 0;
3262 PyObject *hi_capi = Py_None(&_Py_NoneStruct);
3263 complex_double *a = NULL((void*)0);
3264 npy_intp a_Dims[2] = {-1, -1};
3265 const int a_Rank = 2;
3266 PyArrayObject *capi_a_tmp = NULL((void*)0);
3267 int capi_a_intent = 0;
3268 int capi_overwrite_a = 0;
3269 PyObject *a_capi = Py_None(&_Py_NoneStruct);
3270 complex_double *tau = NULL((void*)0);
3271 npy_intp tau_Dims[1] = {-1};
3272 const int tau_Rank = 1;
3273 PyArrayObject *capi_tau_tmp = NULL((void*)0);
3274 int capi_tau_intent = 0;
3275 complex_double *work = NULL((void*)0);
3276 npy_intp work_Dims[1] = {-1};
3277 const int work_Rank = 1;
3278 PyArrayObject *capi_work_tmp = NULL((void*)0);
3279 int capi_work_intent = 0;
3280 int lwork = 0;
3281 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
3282 int info = 0;
3283 static char *capi_kwlist[] = {"a","lo","hi","lwork","overwrite_a",NULL((void*)0)};
3284
3285/*routdebugenter*/
3286#ifdef F2PY_REPORT_ATEXIT
3287f2py_start_clock();
3288#endif
3289 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
3290 "O|OOOi:_flapack.zgehrd",\
3291 capi_kwlist,&a_capi,&lo_capi,&hi_capi,&lwork_capi,&capi_overwrite_a))
3292 return NULL((void*)0);
3293/*frompyobj*/
3294 /* Processing variable a */
3295 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
3296 ;
3297 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
3298 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
3299 if (capi_a_tmp == NULL((void*)0)) {
3300 if (!PyErr_Occurred())
3301 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgehrd to C/Fortran array" );
3302 } else {
3303 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
3304
3305 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
3306 /* Processing variable lo */
3307 if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else
3308 f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.zgehrd() 1st keyword (lo) can't be converted to int");
3309 if (f2py_success) {
3310 /* Processing variable info */
3311 /* Processing variable n */
3312 n = shape(a,0)a_Dims[0];
3313 /* Processing variable hi */
3314 if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else
3315 f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.zgehrd() 2nd keyword (hi) can't be converted to int");
3316 if (f2py_success) {
3317 /* Processing variable tau */
3318 tau_Dims[0]=n - 1;
3319 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
3320 capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
3321 if (capi_tau_tmp == NULL((void*)0)) {
3322 if (!PyErr_Occurred())
3323 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.zgehrd to C/Fortran array" );
3324 } else {
3325 tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
3326
3327 /* Processing variable lwork */
3328 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(n,1)((n > 1) ? (n) : (1)); else
3329 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgehrd() 3rd keyword (lwork) can't be converted to int");
3330 if (f2py_success) {
3331 CHECKSCALAR(lwork>=MAX(n,1),"lwork>=MAX(n,1)","3rd keyword lwork","zgehrd:lwork=%d",lwork)if (!(lwork>=((n > 1) ? (n) : (1)))) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zgehrd:lwork=%d", "(""lwork>=MAX(n,1)"
") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
3332 /* Processing variable work */
3333 work_Dims[0]=lwork;
3334 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
3335 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
3336 if (capi_work_tmp == NULL((void*)0)) {
3337 if (!PyErr_Occurred())
3338 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgehrd to C/Fortran array" );
3339 } else {
3340 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
3341
3342/*end of frompyobj*/
3343#ifdef F2PY_REPORT_ATEXIT
3344f2py_start_call_clock();
3345#endif
3346/*callfortranroutine*/
3347 { hi++; lo++; (*f2py_func)(&n,&lo,&hi,a,&n,tau,work,&lwork,&info); } ;
3348 /*(*f2py_func)(&n,&lo,&hi,a,tau,work,&lwork,&info);*/
3349if (PyErr_Occurred())
3350 f2py_success = 0;
3351#ifdef F2PY_REPORT_ATEXIT
3352f2py_stop_call_clock();
3353#endif
3354/*end of callfortranroutine*/
3355 if (f2py_success) {
3356/*pyobjfrom*/
3357/*end of pyobjfrom*/
3358 CFUNCSMESS("Building return value.\n");
3359 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info);
3360/*closepyobjfrom*/
3361/*end of closepyobjfrom*/
3362 } /*if (f2py_success) after callfortranroutine*/
3363/*cleanupfrompyobj*/
3364 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
3365 } /*if (capi_work_tmp == NULL) ... else of work*/
3366 /* End of cleaning variable work */
3367 } /*CHECKSCALAR(lwork>=MAX(n,1))*/
3368 } /*if (f2py_success) of lwork*/
3369 /* End of cleaning variable lwork */
3370 } /*if (capi_tau_tmp == NULL) ... else of tau*/
3371 /* End of cleaning variable tau */
3372 } /*if (f2py_success) of hi*/
3373 /* End of cleaning variable hi */
3374 /* End of cleaning variable n */
3375 /* End of cleaning variable info */
3376 } /*if (f2py_success) of lo*/
3377 /* End of cleaning variable lo */
3378 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
3379 } /*if (capi_a_tmp == NULL) ... else of a*/
3380 /* End of cleaning variable a */
3381/*end of cleanupfrompyobj*/
3382 if (capi_buildvalue == NULL((void*)0)) {
3383/*routdebugfailure*/
3384 } else {
3385/*routdebugleave*/
3386 }
3387 CFUNCSMESS("Freeing memory.\n");
3388/*freemem*/
3389#ifdef F2PY_REPORT_ATEXIT
3390f2py_stop_clock();
3391#endif
3392 return capi_buildvalue;
3393}
3394/******************************* end of zgehrd *******************************/
3395
3396/******************************** sgehrd_lwork ********************************/
3397static char doc_f2py_rout__flapack_sgehrd_lwork[] = "\
3398work,info = sgehrd_lwork(n,[lo,hi])\n\nWrapper for ``sgehrd_lwork``.\
3399\n\nParameters\n----------\n"
3400"n : input int\n"
3401"\nOther Parameters\n----------------\n"
3402"lo : input int, optional\n Default: 0\n"
3403"hi : input int, optional\n Default: n-1\n"
3404"\nReturns\n-------\n"
3405"work : float\n"
3406"info : int";
3407/* extern void F_FUNC(sgehrd ,SGEHRD )(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */
3408static PyObject *f2py_rout__flapack_sgehrd_lwork(const PyObject *capi_self,
3409 PyObject *capi_args,
3410 PyObject *capi_keywds,
3411 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
3412 PyObject * volatile capi_buildvalue = NULL((void*)0);
3413 volatile int f2py_success = 1;
3414/*decl*/
3415
3416 int n = 0;
3417 PyObject *n_capi = Py_None(&_Py_NoneStruct);
3418 int lo = 0;
3419 PyObject *lo_capi = Py_None(&_Py_NoneStruct);
3420 int hi = 0;
3421 PyObject *hi_capi = Py_None(&_Py_NoneStruct);
3422 float a = 0;
3423 float tau = 0;
3424 float work = 0;
3425 int lwork = 0;
3426 int info = 0;
3427 static char *capi_kwlist[] = {"n","lo","hi",NULL((void*)0)};
3428
3429/*routdebugenter*/
3430#ifdef F2PY_REPORT_ATEXIT
3431f2py_start_clock();
3432#endif
3433 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
3434 "O|OO:_flapack.sgehrd_lwork",\
3435 capi_kwlist,&n_capi,&lo_capi,&hi_capi))
3436 return NULL((void*)0);
3437/*frompyobj*/
3438 /* Processing variable n */
3439 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgehrd_lwork() 1st argument (n) can't be converted to int");
3440 if (f2py_success) {
3441 /* Processing variable a */
3442 /* Processing variable lo */
3443 if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else
3444 f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.sgehrd_lwork() 1st keyword (lo) can't be converted to int");
3445 if (f2py_success) {
3446 /* Processing variable tau */
3447 /* Processing variable work */
3448 /* Processing variable lwork */
3449 lwork = -1;
3450 /* Processing variable info */
3451 /* Processing variable hi */
3452 if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else
3453 f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.sgehrd_lwork() 2nd keyword (hi) can't be converted to int");
3454 if (f2py_success) {
3455/*end of frompyobj*/
3456#ifdef F2PY_REPORT_ATEXIT
3457f2py_start_call_clock();
3458#endif
3459/*callfortranroutine*/
3460 { hi++; lo++; (*f2py_func)(&n,&lo,&hi,&a,&n,&tau,&work,&lwork,&info); } ;
3461 /*(*f2py_func)(&n,&lo,&hi,&a,&tau,&work,&lwork,&info);*/
3462if (PyErr_Occurred())
3463 f2py_success = 0;
3464#ifdef F2PY_REPORT_ATEXIT
3465f2py_stop_call_clock();
3466#endif
3467/*end of callfortranroutine*/
3468 if (f2py_success) {
3469/*pyobjfrom*/
3470/*end of pyobjfrom*/
3471 CFUNCSMESS("Building return value.\n");
3472 capi_buildvalue = Py_BuildValue("fi",work,info);
3473/*closepyobjfrom*/
3474/*end of closepyobjfrom*/
3475 } /*if (f2py_success) after callfortranroutine*/
3476/*cleanupfrompyobj*/
3477 } /*if (f2py_success) of hi*/
3478 /* End of cleaning variable hi */
3479 /* End of cleaning variable info */
3480 /* End of cleaning variable lwork */
3481 /* End of cleaning variable work */
3482 /* End of cleaning variable tau */
3483 } /*if (f2py_success) of lo*/
3484 /* End of cleaning variable lo */
3485 /* End of cleaning variable a */
3486 } /*if (f2py_success) of n*/
3487 /* End of cleaning variable n */
3488/*end of cleanupfrompyobj*/
3489 if (capi_buildvalue == NULL((void*)0)) {
3490/*routdebugfailure*/
3491 } else {
3492/*routdebugleave*/
3493 }
3494 CFUNCSMESS("Freeing memory.\n");
3495/*freemem*/
3496#ifdef F2PY_REPORT_ATEXIT
3497f2py_stop_clock();
3498#endif
3499 return capi_buildvalue;
3500}
3501/**************************** end of sgehrd_lwork ****************************/
3502
3503/******************************** dgehrd_lwork ********************************/
3504static char doc_f2py_rout__flapack_dgehrd_lwork[] = "\
3505work,info = dgehrd_lwork(n,[lo,hi])\n\nWrapper for ``dgehrd_lwork``.\
3506\n\nParameters\n----------\n"
3507"n : input int\n"
3508"\nOther Parameters\n----------------\n"
3509"lo : input int, optional\n Default: 0\n"
3510"hi : input int, optional\n Default: n-1\n"
3511"\nReturns\n-------\n"
3512"work : float\n"
3513"info : int";
3514/* extern void F_FUNC(dgehrd ,DGEHRD )(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */
3515static PyObject *f2py_rout__flapack_dgehrd_lwork(const PyObject *capi_self,
3516 PyObject *capi_args,
3517 PyObject *capi_keywds,
3518 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
3519 PyObject * volatile capi_buildvalue = NULL((void*)0);
3520 volatile int f2py_success = 1;
3521/*decl*/
3522
3523 int n = 0;
3524 PyObject *n_capi = Py_None(&_Py_NoneStruct);
3525 int lo = 0;
3526 PyObject *lo_capi = Py_None(&_Py_NoneStruct);
3527 int hi = 0;
3528 PyObject *hi_capi = Py_None(&_Py_NoneStruct);
3529 double a = 0;
3530 double tau = 0;
3531 double work = 0;
3532 int lwork = 0;
3533 int info = 0;
3534 static char *capi_kwlist[] = {"n","lo","hi",NULL((void*)0)};
3535
3536/*routdebugenter*/
3537#ifdef F2PY_REPORT_ATEXIT
3538f2py_start_clock();
3539#endif
3540 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
3541 "O|OO:_flapack.dgehrd_lwork",\
3542 capi_kwlist,&n_capi,&lo_capi,&hi_capi))
3543 return NULL((void*)0);
3544/*frompyobj*/
3545 /* Processing variable n */
3546 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgehrd_lwork() 1st argument (n) can't be converted to int");
3547 if (f2py_success) {
3548 /* Processing variable a */
3549 /* Processing variable lo */
3550 if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else
3551 f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.dgehrd_lwork() 1st keyword (lo) can't be converted to int");
3552 if (f2py_success) {
3553 /* Processing variable tau */
3554 /* Processing variable work */
3555 /* Processing variable lwork */
3556 lwork = -1;
3557 /* Processing variable info */
3558 /* Processing variable hi */
3559 if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else
3560 f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.dgehrd_lwork() 2nd keyword (hi) can't be converted to int");
3561 if (f2py_success) {
3562/*end of frompyobj*/
3563#ifdef F2PY_REPORT_ATEXIT
3564f2py_start_call_clock();
3565#endif
3566/*callfortranroutine*/
3567 { hi++; lo++; (*f2py_func)(&n,&lo,&hi,&a,&n,&tau,&work,&lwork,&info); } ;
3568 /*(*f2py_func)(&n,&lo,&hi,&a,&tau,&work,&lwork,&info);*/
3569if (PyErr_Occurred())
3570 f2py_success = 0;
3571#ifdef F2PY_REPORT_ATEXIT
3572f2py_stop_call_clock();
3573#endif
3574/*end of callfortranroutine*/
3575 if (f2py_success) {
3576/*pyobjfrom*/
3577/*end of pyobjfrom*/
3578 CFUNCSMESS("Building return value.\n");
3579 capi_buildvalue = Py_BuildValue("di",work,info);
3580/*closepyobjfrom*/
3581/*end of closepyobjfrom*/
3582 } /*if (f2py_success) after callfortranroutine*/
3583/*cleanupfrompyobj*/
3584 } /*if (f2py_success) of hi*/
3585 /* End of cleaning variable hi */
3586 /* End of cleaning variable info */
3587 /* End of cleaning variable lwork */
3588 /* End of cleaning variable work */
3589 /* End of cleaning variable tau */
3590 } /*if (f2py_success) of lo*/
3591 /* End of cleaning variable lo */
3592 /* End of cleaning variable a */
3593 } /*if (f2py_success) of n*/
3594 /* End of cleaning variable n */
3595/*end of cleanupfrompyobj*/
3596 if (capi_buildvalue == NULL((void*)0)) {
3597/*routdebugfailure*/
3598 } else {
3599/*routdebugleave*/
3600 }
3601 CFUNCSMESS("Freeing memory.\n");
3602/*freemem*/
3603#ifdef F2PY_REPORT_ATEXIT
3604f2py_stop_clock();
3605#endif
3606 return capi_buildvalue;
3607}
3608/**************************** end of dgehrd_lwork ****************************/
3609
3610/******************************** cgehrd_lwork ********************************/
3611static char doc_f2py_rout__flapack_cgehrd_lwork[] = "\
3612work,info = cgehrd_lwork(n,[lo,hi])\n\nWrapper for ``cgehrd_lwork``.\
3613\n\nParameters\n----------\n"
3614"n : input int\n"
3615"\nOther Parameters\n----------------\n"
3616"lo : input int, optional\n Default: 0\n"
3617"hi : input int, optional\n Default: n-1\n"
3618"\nReturns\n-------\n"
3619"work : complex\n"
3620"info : int";
3621/* extern void F_FUNC(cgehrd ,CGEHRD )(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */
3622static PyObject *f2py_rout__flapack_cgehrd_lwork(const PyObject *capi_self,
3623 PyObject *capi_args,
3624 PyObject *capi_keywds,
3625 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
3626 PyObject * volatile capi_buildvalue = NULL((void*)0);
3627 volatile int f2py_success = 1;
3628/*decl*/
3629
3630 int n = 0;
3631 PyObject *n_capi = Py_None(&_Py_NoneStruct);
3632 int lo = 0;
3633 PyObject *lo_capi = Py_None(&_Py_NoneStruct);
3634 int hi = 0;
3635 PyObject *hi_capi = Py_None(&_Py_NoneStruct);
3636 complex_float a;
3637 complex_float tau;
3638 complex_float work;
3639 PyObject *work_capi = Py_None(&_Py_NoneStruct);
3640 int lwork = 0;
3641 int info = 0;
3642 static char *capi_kwlist[] = {"n","lo","hi",NULL((void*)0)};
3643
3644/*routdebugenter*/
3645#ifdef F2PY_REPORT_ATEXIT
3646f2py_start_clock();
3647#endif
3648 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
3649 "O|OO:_flapack.cgehrd_lwork",\
3650 capi_kwlist,&n_capi,&lo_capi,&hi_capi))
3651 return NULL((void*)0);
3652/*frompyobj*/
3653 /* Processing variable n */
3654 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgehrd_lwork() 1st argument (n) can't be converted to int");
3655 if (f2py_success) {
3656 /* Processing variable a */
3657 /* Processing variable lo */
3658 if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else
3659 f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.cgehrd_lwork() 1st keyword (lo) can't be converted to int");
3660 if (f2py_success) {
3661 /* Processing variable tau */
3662 /* Processing variable work */
3663 /* Processing variable lwork */
3664 lwork = -1;
3665 /* Processing variable info */
3666 /* Processing variable hi */
3667 if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else
3668 f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.cgehrd_lwork() 2nd keyword (hi) can't be converted to int");
3669 if (f2py_success) {
3670/*end of frompyobj*/
3671#ifdef F2PY_REPORT_ATEXIT
3672f2py_start_call_clock();
3673#endif
3674/*callfortranroutine*/
3675 { hi++; lo++; (*f2py_func)(&n,&lo,&hi,&a,&n,&tau,&work,&lwork,&info); } ;
3676 /*(*f2py_func)(&n,&lo,&hi,&a,&tau,&work,&lwork,&info);*/
3677if (PyErr_Occurred())
3678 f2py_success = 0;
3679#ifdef F2PY_REPORT_ATEXIT
3680f2py_stop_call_clock();
3681#endif
3682/*end of callfortranroutine*/
3683 if (f2py_success) {
3684/*pyobjfrom*/
3685 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
3686/*end of pyobjfrom*/
3687 CFUNCSMESS("Building return value.\n");
3688 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
3689/*closepyobjfrom*/
3690/*end of closepyobjfrom*/
3691 } /*if (f2py_success) after callfortranroutine*/
3692/*cleanupfrompyobj*/
3693 } /*if (f2py_success) of hi*/
3694 /* End of cleaning variable hi */
3695 /* End of cleaning variable info */
3696 /* End of cleaning variable lwork */
3697 /* End of cleaning variable work */
3698 /* End of cleaning variable tau */
3699 } /*if (f2py_success) of lo*/
3700 /* End of cleaning variable lo */
3701 /* End of cleaning variable a */
3702 } /*if (f2py_success) of n*/
3703 /* End of cleaning variable n */
3704/*end of cleanupfrompyobj*/
3705 if (capi_buildvalue == NULL((void*)0)) {
3706/*routdebugfailure*/
3707 } else {
3708/*routdebugleave*/
3709 }
3710 CFUNCSMESS("Freeing memory.\n");
3711/*freemem*/
3712#ifdef F2PY_REPORT_ATEXIT
3713f2py_stop_clock();
3714#endif
3715 return capi_buildvalue;
3716}
3717/**************************** end of cgehrd_lwork ****************************/
3718
3719/******************************** zgehrd_lwork ********************************/
3720static char doc_f2py_rout__flapack_zgehrd_lwork[] = "\
3721work,info = zgehrd_lwork(n,[lo,hi])\n\nWrapper for ``zgehrd_lwork``.\
3722\n\nParameters\n----------\n"
3723"n : input int\n"
3724"\nOther Parameters\n----------------\n"
3725"lo : input int, optional\n Default: 0\n"
3726"hi : input int, optional\n Default: n-1\n"
3727"\nReturns\n-------\n"
3728"work : complex\n"
3729"info : int";
3730/* extern void F_FUNC(zgehrd ,ZGEHRD )(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */
3731static PyObject *f2py_rout__flapack_zgehrd_lwork(const PyObject *capi_self,
3732 PyObject *capi_args,
3733 PyObject *capi_keywds,
3734 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
3735 PyObject * volatile capi_buildvalue = NULL((void*)0);
3736 volatile int f2py_success = 1;
3737/*decl*/
3738
3739 int n = 0;
3740 PyObject *n_capi = Py_None(&_Py_NoneStruct);
3741 int lo = 0;
3742 PyObject *lo_capi = Py_None(&_Py_NoneStruct);
3743 int hi = 0;
3744 PyObject *hi_capi = Py_None(&_Py_NoneStruct);
3745 complex_double a;
3746 complex_double tau;
3747 complex_double work;
3748 PyObject *work_capi = Py_None(&_Py_NoneStruct);
3749 int lwork = 0;
3750 int info = 0;
3751 static char *capi_kwlist[] = {"n","lo","hi",NULL((void*)0)};
3752
3753/*routdebugenter*/
3754#ifdef F2PY_REPORT_ATEXIT
3755f2py_start_clock();
3756#endif
3757 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
3758 "O|OO:_flapack.zgehrd_lwork",\
3759 capi_kwlist,&n_capi,&lo_capi,&hi_capi))
3760 return NULL((void*)0);
3761/*frompyobj*/
3762 /* Processing variable n */
3763 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgehrd_lwork() 1st argument (n) can't be converted to int");
3764 if (f2py_success) {
3765 /* Processing variable a */
3766 /* Processing variable lo */
3767 if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else
3768 f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.zgehrd_lwork() 1st keyword (lo) can't be converted to int");
3769 if (f2py_success) {
3770 /* Processing variable tau */
3771 /* Processing variable work */
3772 /* Processing variable lwork */
3773 lwork = -1;
3774 /* Processing variable info */
3775 /* Processing variable hi */
3776 if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else
3777 f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.zgehrd_lwork() 2nd keyword (hi) can't be converted to int");
3778 if (f2py_success) {
3779/*end of frompyobj*/
3780#ifdef F2PY_REPORT_ATEXIT
3781f2py_start_call_clock();
3782#endif
3783/*callfortranroutine*/
3784 { hi++; lo++; (*f2py_func)(&n,&lo,&hi,&a,&n,&tau,&work,&lwork,&info); } ;
3785 /*(*f2py_func)(&n,&lo,&hi,&a,&tau,&work,&lwork,&info);*/
3786if (PyErr_Occurred())
3787 f2py_success = 0;
3788#ifdef F2PY_REPORT_ATEXIT
3789f2py_stop_call_clock();
3790#endif
3791/*end of callfortranroutine*/
3792 if (f2py_success) {
3793/*pyobjfrom*/
3794 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
3795/*end of pyobjfrom*/
3796 CFUNCSMESS("Building return value.\n");
3797 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
3798/*closepyobjfrom*/
3799/*end of closepyobjfrom*/
3800 } /*if (f2py_success) after callfortranroutine*/
3801/*cleanupfrompyobj*/
3802 } /*if (f2py_success) of hi*/
3803 /* End of cleaning variable hi */
3804 /* End of cleaning variable info */
3805 /* End of cleaning variable lwork */
3806 /* End of cleaning variable work */
3807 /* End of cleaning variable tau */
3808 } /*if (f2py_success) of lo*/
3809 /* End of cleaning variable lo */
3810 /* End of cleaning variable a */
3811 } /*if (f2py_success) of n*/
3812 /* End of cleaning variable n */
3813/*end of cleanupfrompyobj*/
3814 if (capi_buildvalue == NULL((void*)0)) {
3815/*routdebugfailure*/
3816 } else {
3817/*routdebugleave*/
3818 }
3819 CFUNCSMESS("Freeing memory.\n");
3820/*freemem*/
3821#ifdef F2PY_REPORT_ATEXIT
3822f2py_stop_clock();
3823#endif
3824 return capi_buildvalue;
3825}
3826/**************************** end of zgehrd_lwork ****************************/
3827
3828/*********************************** sgesv ***********************************/
3829static char doc_f2py_rout__flapack_sgesv[] = "\
3830lu,piv,x,info = sgesv(a,b,[overwrite_a,overwrite_b])\n\nWrapper for ``sgesv``.\
3831\n\nParameters\n----------\n"
3832"a : input rank-2 array('f') with bounds (n,n)\n"
3833"b : input rank-2 array('f') with bounds (n,nrhs)\n"
3834"\nOther Parameters\n----------------\n"
3835"overwrite_a : input int, optional\n Default: 0\n"
3836"overwrite_b : input int, optional\n Default: 0\n"
3837"\nReturns\n-------\n"
3838"lu : rank-2 array('f') with bounds (n,n) and a storage\n"
3839"piv : rank-1 array('i') with bounds (n)\n"
3840"x : rank-2 array('f') with bounds (n,nrhs) and b storage\n"
3841"info : int";
3842/* extern void F_FUNC(sgesv,SGESV)(F_INT*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */
3843static PyObject *f2py_rout__flapack_sgesv(const PyObject *capi_self,
3844 PyObject *capi_args,
3845 PyObject *capi_keywds,
3846 void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) {
3847 PyObject * volatile capi_buildvalue = NULL((void*)0);
3848 volatile int f2py_success = 1;
3849/*decl*/
3850
3851 int n = 0;
3852 int nrhs = 0;
3853 float *a = NULL((void*)0);
3854 npy_intp a_Dims[2] = {-1, -1};
3855 const int a_Rank = 2;
3856 PyArrayObject *capi_a_tmp = NULL((void*)0);
3857 int capi_a_intent = 0;
3858 int capi_overwrite_a = 0;
3859 PyObject *a_capi = Py_None(&_Py_NoneStruct);
3860 int *piv = NULL((void*)0);
3861 npy_intp piv_Dims[1] = {-1};
3862 const int piv_Rank = 1;
3863 PyArrayObject *capi_piv_tmp = NULL((void*)0);
3864 int capi_piv_intent = 0;
3865 float *b = NULL((void*)0);
3866 npy_intp b_Dims[2] = {-1, -1};
3867 const int b_Rank = 2;
3868 PyArrayObject *capi_b_tmp = NULL((void*)0);
3869 int capi_b_intent = 0;
3870 int capi_overwrite_b = 0;
3871 PyObject *b_capi = Py_None(&_Py_NoneStruct);
3872 int info = 0;
3873 static char *capi_kwlist[] = {"a","b","overwrite_a","overwrite_b",NULL((void*)0)};
3874
3875/*routdebugenter*/
3876#ifdef F2PY_REPORT_ATEXIT
3877f2py_start_clock();
3878#endif
3879 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
3880 "OO|ii:_flapack.sgesv",\
3881 capi_kwlist,&a_capi,&b_capi,&capi_overwrite_a,&capi_overwrite_b))
3882 return NULL((void*)0);
3883/*frompyobj*/
3884 /* Processing variable a */
3885 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
3886 ;
3887 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
3888 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
3889 if (capi_a_tmp == NULL((void*)0)) {
3890 if (!PyErr_Occurred())
3891 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgesv to C/Fortran array" );
3892 } else {
3893 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
3894
3895 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
3896 /* Processing variable info */
3897 /* Processing variable n */
3898 n = shape(a,0)a_Dims[0];
3899 /* Processing variable piv */
3900 piv_Dims[0]=n;
3901 capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
3902 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct));
3903 if (capi_piv_tmp == NULL((void*)0)) {
3904 if (!PyErr_Occurred())
3905 PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.sgesv to C/Fortran array" );
3906 } else {
3907 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
3908
3909 /* Processing variable b */
3910 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
3911 b_Dims[0]=n;
3912 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
3913 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
3914 if (capi_b_tmp == NULL((void*)0)) {
3915 if (!PyErr_Occurred())
3916 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sgesv to C/Fortran array" );
3917 } else {
3918 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
3919
3920 CHECKARRAY(shape(a,0)==shape(b,0),"shape(a,0)==shape(b,0)","2nd argument b")if (!(a_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(b,0)"") failed for ""2nd argument b");
} else
{
3921 /* Processing variable nrhs */
3922 nrhs = shape(b,1)b_Dims[1];
3923/*end of frompyobj*/
3924#ifdef F2PY_REPORT_ATEXIT
3925f2py_start_call_clock();
3926#endif
3927/*callfortranroutine*/
3928 {F_INTint i;(*f2py_func)(&n,&nrhs,a,&n,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ;
3929 /*(*f2py_func)(&n,&nrhs,a,piv,b,&info);*/
3930if (PyErr_Occurred())
3931 f2py_success = 0;
3932#ifdef F2PY_REPORT_ATEXIT
3933f2py_stop_call_clock();
3934#endif
3935/*end of callfortranroutine*/
3936 if (f2py_success) {
3937/*pyobjfrom*/
3938/*end of pyobjfrom*/
3939 CFUNCSMESS("Building return value.\n");
3940 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_piv_tmp,capi_b_tmp,info);
3941/*closepyobjfrom*/
3942/*end of closepyobjfrom*/
3943 } /*if (f2py_success) after callfortranroutine*/
3944/*cleanupfrompyobj*/
3945 /* End of cleaning variable nrhs */
3946 } /*CHECKARRAY(shape(a,0)==shape(b,0))*/
3947 } /*if (capi_b_tmp == NULL) ... else of b*/
3948 /* End of cleaning variable b */
3949 } /*if (capi_piv_tmp == NULL) ... else of piv*/
3950 /* End of cleaning variable piv */
3951 /* End of cleaning variable n */
3952 /* End of cleaning variable info */
3953 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
3954 } /*if (capi_a_tmp == NULL) ... else of a*/
3955 /* End of cleaning variable a */
3956/*end of cleanupfrompyobj*/
3957 if (capi_buildvalue == NULL((void*)0)) {
3958/*routdebugfailure*/
3959 } else {
3960/*routdebugleave*/
3961 }
3962 CFUNCSMESS("Freeing memory.\n");
3963/*freemem*/
3964#ifdef F2PY_REPORT_ATEXIT
3965f2py_stop_clock();
3966#endif
3967 return capi_buildvalue;
3968}
3969/******************************** end of sgesv ********************************/
3970
3971/*********************************** dgesv ***********************************/
3972static char doc_f2py_rout__flapack_dgesv[] = "\
3973lu,piv,x,info = dgesv(a,b,[overwrite_a,overwrite_b])\n\nWrapper for ``dgesv``.\
3974\n\nParameters\n----------\n"
3975"a : input rank-2 array('d') with bounds (n,n)\n"
3976"b : input rank-2 array('d') with bounds (n,nrhs)\n"
3977"\nOther Parameters\n----------------\n"
3978"overwrite_a : input int, optional\n Default: 0\n"
3979"overwrite_b : input int, optional\n Default: 0\n"
3980"\nReturns\n-------\n"
3981"lu : rank-2 array('d') with bounds (n,n) and a storage\n"
3982"piv : rank-1 array('i') with bounds (n)\n"
3983"x : rank-2 array('d') with bounds (n,nrhs) and b storage\n"
3984"info : int";
3985/* extern void F_FUNC(dgesv,DGESV)(F_INT*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */
3986static PyObject *f2py_rout__flapack_dgesv(const PyObject *capi_self,
3987 PyObject *capi_args,
3988 PyObject *capi_keywds,
3989 void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) {
3990 PyObject * volatile capi_buildvalue = NULL((void*)0);
3991 volatile int f2py_success = 1;
3992/*decl*/
3993
3994 int n = 0;
3995 int nrhs = 0;
3996 double *a = NULL((void*)0);
3997 npy_intp a_Dims[2] = {-1, -1};
3998 const int a_Rank = 2;
3999 PyArrayObject *capi_a_tmp = NULL((void*)0);
4000 int capi_a_intent = 0;
4001 int capi_overwrite_a = 0;
4002 PyObject *a_capi = Py_None(&_Py_NoneStruct);
4003 int *piv = NULL((void*)0);
4004 npy_intp piv_Dims[1] = {-1};
4005 const int piv_Rank = 1;
4006 PyArrayObject *capi_piv_tmp = NULL((void*)0);
4007 int capi_piv_intent = 0;
4008 double *b = NULL((void*)0);
4009 npy_intp b_Dims[2] = {-1, -1};
4010 const int b_Rank = 2;
4011 PyArrayObject *capi_b_tmp = NULL((void*)0);
4012 int capi_b_intent = 0;
4013 int capi_overwrite_b = 0;
4014 PyObject *b_capi = Py_None(&_Py_NoneStruct);
4015 int info = 0;
4016 static char *capi_kwlist[] = {"a","b","overwrite_a","overwrite_b",NULL((void*)0)};
4017
4018/*routdebugenter*/
4019#ifdef F2PY_REPORT_ATEXIT
4020f2py_start_clock();
4021#endif
4022 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
4023 "OO|ii:_flapack.dgesv",\
4024 capi_kwlist,&a_capi,&b_capi,&capi_overwrite_a,&capi_overwrite_b))
4025 return NULL((void*)0);
4026/*frompyobj*/
4027 /* Processing variable a */
4028 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
4029 ;
4030 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
4031 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
4032 if (capi_a_tmp == NULL((void*)0)) {
4033 if (!PyErr_Occurred())
4034 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgesv to C/Fortran array" );
4035 } else {
4036 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
4037
4038 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
4039 /* Processing variable info */
4040 /* Processing variable n */
4041 n = shape(a,0)a_Dims[0];
4042 /* Processing variable piv */
4043 piv_Dims[0]=n;
4044 capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
4045 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct));
4046 if (capi_piv_tmp == NULL((void*)0)) {
4047 if (!PyErr_Occurred())
4048 PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.dgesv to C/Fortran array" );
4049 } else {
4050 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
4051
4052 /* Processing variable b */
4053 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
4054 b_Dims[0]=n;
4055 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
4056 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
4057 if (capi_b_tmp == NULL((void*)0)) {
4058 if (!PyErr_Occurred())
4059 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dgesv to C/Fortran array" );
4060 } else {
4061 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
4062
4063 CHECKARRAY(shape(a,0)==shape(b,0),"shape(a,0)==shape(b,0)","2nd argument b")if (!(a_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(b,0)"") failed for ""2nd argument b");
} else
{
4064 /* Processing variable nrhs */
4065 nrhs = shape(b,1)b_Dims[1];
4066/*end of frompyobj*/
4067#ifdef F2PY_REPORT_ATEXIT
4068f2py_start_call_clock();
4069#endif
4070/*callfortranroutine*/
4071 {F_INTint i;(*f2py_func)(&n,&nrhs,a,&n,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ;
4072 /*(*f2py_func)(&n,&nrhs,a,piv,b,&info);*/
4073if (PyErr_Occurred())
4074 f2py_success = 0;
4075#ifdef F2PY_REPORT_ATEXIT
4076f2py_stop_call_clock();
4077#endif
4078/*end of callfortranroutine*/
4079 if (f2py_success) {
4080/*pyobjfrom*/
4081/*end of pyobjfrom*/
4082 CFUNCSMESS("Building return value.\n");
4083 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_piv_tmp,capi_b_tmp,info);
4084/*closepyobjfrom*/
4085/*end of closepyobjfrom*/
4086 } /*if (f2py_success) after callfortranroutine*/
4087/*cleanupfrompyobj*/
4088 /* End of cleaning variable nrhs */
4089 } /*CHECKARRAY(shape(a,0)==shape(b,0))*/
4090 } /*if (capi_b_tmp == NULL) ... else of b*/
4091 /* End of cleaning variable b */
4092 } /*if (capi_piv_tmp == NULL) ... else of piv*/
4093 /* End of cleaning variable piv */
4094 /* End of cleaning variable n */
4095 /* End of cleaning variable info */
4096 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
4097 } /*if (capi_a_tmp == NULL) ... else of a*/
4098 /* End of cleaning variable a */
4099/*end of cleanupfrompyobj*/
4100 if (capi_buildvalue == NULL((void*)0)) {
4101/*routdebugfailure*/
4102 } else {
4103/*routdebugleave*/
4104 }
4105 CFUNCSMESS("Freeing memory.\n");
4106/*freemem*/
4107#ifdef F2PY_REPORT_ATEXIT
4108f2py_stop_clock();
4109#endif
4110 return capi_buildvalue;
4111}
4112/******************************** end of dgesv ********************************/
4113
4114/*********************************** cgesv ***********************************/
4115static char doc_f2py_rout__flapack_cgesv[] = "\
4116lu,piv,x,info = cgesv(a,b,[overwrite_a,overwrite_b])\n\nWrapper for ``cgesv``.\
4117\n\nParameters\n----------\n"
4118"a : input rank-2 array('F') with bounds (n,n)\n"
4119"b : input rank-2 array('F') with bounds (n,nrhs)\n"
4120"\nOther Parameters\n----------------\n"
4121"overwrite_a : input int, optional\n Default: 0\n"
4122"overwrite_b : input int, optional\n Default: 0\n"
4123"\nReturns\n-------\n"
4124"lu : rank-2 array('F') with bounds (n,n) and a storage\n"
4125"piv : rank-1 array('i') with bounds (n)\n"
4126"x : rank-2 array('F') with bounds (n,nrhs) and b storage\n"
4127"info : int";
4128/* extern void F_FUNC(cgesv,CGESV)(F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */
4129static PyObject *f2py_rout__flapack_cgesv(const PyObject *capi_self,
4130 PyObject *capi_args,
4131 PyObject *capi_keywds,
4132 void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
4133 PyObject * volatile capi_buildvalue = NULL((void*)0);
4134 volatile int f2py_success = 1;
4135/*decl*/
4136
4137 int n = 0;
4138 int nrhs = 0;
4139 complex_float *a = NULL((void*)0);
4140 npy_intp a_Dims[2] = {-1, -1};
4141 const int a_Rank = 2;
4142 PyArrayObject *capi_a_tmp = NULL((void*)0);
4143 int capi_a_intent = 0;
4144 int capi_overwrite_a = 0;
4145 PyObject *a_capi = Py_None(&_Py_NoneStruct);
4146 int *piv = NULL((void*)0);
4147 npy_intp piv_Dims[1] = {-1};
4148 const int piv_Rank = 1;
4149 PyArrayObject *capi_piv_tmp = NULL((void*)0);
4150 int capi_piv_intent = 0;
4151 complex_float *b = NULL((void*)0);
4152 npy_intp b_Dims[2] = {-1, -1};
4153 const int b_Rank = 2;
4154 PyArrayObject *capi_b_tmp = NULL((void*)0);
4155 int capi_b_intent = 0;
4156 int capi_overwrite_b = 0;
4157 PyObject *b_capi = Py_None(&_Py_NoneStruct);
4158 int info = 0;
4159 static char *capi_kwlist[] = {"a","b","overwrite_a","overwrite_b",NULL((void*)0)};
4160
4161/*routdebugenter*/
4162#ifdef F2PY_REPORT_ATEXIT
4163f2py_start_clock();
4164#endif
4165 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
4166 "OO|ii:_flapack.cgesv",\
4167 capi_kwlist,&a_capi,&b_capi,&capi_overwrite_a,&capi_overwrite_b))
4168 return NULL((void*)0);
4169/*frompyobj*/
4170 /* Processing variable a */
4171 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
4172 ;
4173 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
4174 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
4175 if (capi_a_tmp == NULL((void*)0)) {
4176 if (!PyErr_Occurred())
4177 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgesv to C/Fortran array" );
4178 } else {
4179 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
4180
4181 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
4182 /* Processing variable info */
4183 /* Processing variable n */
4184 n = shape(a,0)a_Dims[0];
4185 /* Processing variable piv */
4186 piv_Dims[0]=n;
4187 capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
4188 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct));
4189 if (capi_piv_tmp == NULL((void*)0)) {
4190 if (!PyErr_Occurred())
4191 PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.cgesv to C/Fortran array" );
4192 } else {
4193 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
4194
4195 /* Processing variable b */
4196 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
4197 b_Dims[0]=n;
4198 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
4199 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
4200 if (capi_b_tmp == NULL((void*)0)) {
4201 if (!PyErr_Occurred())
4202 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cgesv to C/Fortran array" );
4203 } else {
4204 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
4205
4206 CHECKARRAY(shape(a,0)==shape(b,0),"shape(a,0)==shape(b,0)","2nd argument b")if (!(a_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(b,0)"") failed for ""2nd argument b");
} else
{
4207 /* Processing variable nrhs */
4208 nrhs = shape(b,1)b_Dims[1];
4209/*end of frompyobj*/
4210#ifdef F2PY_REPORT_ATEXIT
4211f2py_start_call_clock();
4212#endif
4213/*callfortranroutine*/
4214 {F_INTint i;(*f2py_func)(&n,&nrhs,a,&n,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ;
4215 /*(*f2py_func)(&n,&nrhs,a,piv,b,&info);*/
4216if (PyErr_Occurred())
4217 f2py_success = 0;
4218#ifdef F2PY_REPORT_ATEXIT
4219f2py_stop_call_clock();
4220#endif
4221/*end of callfortranroutine*/
4222 if (f2py_success) {
4223/*pyobjfrom*/
4224/*end of pyobjfrom*/
4225 CFUNCSMESS("Building return value.\n");
4226 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_piv_tmp,capi_b_tmp,info);
4227/*closepyobjfrom*/
4228/*end of closepyobjfrom*/
4229 } /*if (f2py_success) after callfortranroutine*/
4230/*cleanupfrompyobj*/
4231 /* End of cleaning variable nrhs */
4232 } /*CHECKARRAY(shape(a,0)==shape(b,0))*/
4233 } /*if (capi_b_tmp == NULL) ... else of b*/
4234 /* End of cleaning variable b */
4235 } /*if (capi_piv_tmp == NULL) ... else of piv*/
4236 /* End of cleaning variable piv */
4237 /* End of cleaning variable n */
4238 /* End of cleaning variable info */
4239 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
4240 } /*if (capi_a_tmp == NULL) ... else of a*/
4241 /* End of cleaning variable a */
4242/*end of cleanupfrompyobj*/
4243 if (capi_buildvalue == NULL((void*)0)) {
4244/*routdebugfailure*/
4245 } else {
4246/*routdebugleave*/
4247 }
4248 CFUNCSMESS("Freeing memory.\n");
4249/*freemem*/
4250#ifdef F2PY_REPORT_ATEXIT
4251f2py_stop_clock();
4252#endif
4253 return capi_buildvalue;
4254}
4255/******************************** end of cgesv ********************************/
4256
4257/*********************************** zgesv ***********************************/
4258static char doc_f2py_rout__flapack_zgesv[] = "\
4259lu,piv,x,info = zgesv(a,b,[overwrite_a,overwrite_b])\n\nWrapper for ``zgesv``.\
4260\n\nParameters\n----------\n"
4261"a : input rank-2 array('D') with bounds (n,n)\n"
4262"b : input rank-2 array('D') with bounds (n,nrhs)\n"
4263"\nOther Parameters\n----------------\n"
4264"overwrite_a : input int, optional\n Default: 0\n"
4265"overwrite_b : input int, optional\n Default: 0\n"
4266"\nReturns\n-------\n"
4267"lu : rank-2 array('D') with bounds (n,n) and a storage\n"
4268"piv : rank-1 array('i') with bounds (n)\n"
4269"x : rank-2 array('D') with bounds (n,nrhs) and b storage\n"
4270"info : int";
4271/* extern void F_FUNC(zgesv,ZGESV)(F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */
4272static PyObject *f2py_rout__flapack_zgesv(const PyObject *capi_self,
4273 PyObject *capi_args,
4274 PyObject *capi_keywds,
4275 void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
4276 PyObject * volatile capi_buildvalue = NULL((void*)0);
4277 volatile int f2py_success = 1;
4278/*decl*/
4279
4280 int n = 0;
4281 int nrhs = 0;
4282 complex_double *a = NULL((void*)0);
4283 npy_intp a_Dims[2] = {-1, -1};
4284 const int a_Rank = 2;
4285 PyArrayObject *capi_a_tmp = NULL((void*)0);
4286 int capi_a_intent = 0;
4287 int capi_overwrite_a = 0;
4288 PyObject *a_capi = Py_None(&_Py_NoneStruct);
4289 int *piv = NULL((void*)0);
4290 npy_intp piv_Dims[1] = {-1};
4291 const int piv_Rank = 1;
4292 PyArrayObject *capi_piv_tmp = NULL((void*)0);
4293 int capi_piv_intent = 0;
4294 complex_double *b = NULL((void*)0);
4295 npy_intp b_Dims[2] = {-1, -1};
4296 const int b_Rank = 2;
4297 PyArrayObject *capi_b_tmp = NULL((void*)0);
4298 int capi_b_intent = 0;
4299 int capi_overwrite_b = 0;
4300 PyObject *b_capi = Py_None(&_Py_NoneStruct);
4301 int info = 0;
4302 static char *capi_kwlist[] = {"a","b","overwrite_a","overwrite_b",NULL((void*)0)};
4303
4304/*routdebugenter*/
4305#ifdef F2PY_REPORT_ATEXIT
4306f2py_start_clock();
4307#endif
4308 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
4309 "OO|ii:_flapack.zgesv",\
4310 capi_kwlist,&a_capi,&b_capi,&capi_overwrite_a,&capi_overwrite_b))
4311 return NULL((void*)0);
4312/*frompyobj*/
4313 /* Processing variable a */
4314 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
4315 ;
4316 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
4317 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
4318 if (capi_a_tmp == NULL((void*)0)) {
4319 if (!PyErr_Occurred())
4320 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgesv to C/Fortran array" );
4321 } else {
4322 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
4323
4324 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
4325 /* Processing variable info */
4326 /* Processing variable n */
4327 n = shape(a,0)a_Dims[0];
4328 /* Processing variable piv */
4329 piv_Dims[0]=n;
4330 capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
4331 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct));
4332 if (capi_piv_tmp == NULL((void*)0)) {
4333 if (!PyErr_Occurred())
4334 PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.zgesv to C/Fortran array" );
4335 } else {
4336 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
4337
4338 /* Processing variable b */
4339 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
4340 b_Dims[0]=n;
4341 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
4342 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
4343 if (capi_b_tmp == NULL((void*)0)) {
4344 if (!PyErr_Occurred())
4345 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zgesv to C/Fortran array" );
4346 } else {
4347 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
4348
4349 CHECKARRAY(shape(a,0)==shape(b,0),"shape(a,0)==shape(b,0)","2nd argument b")if (!(a_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(b,0)"") failed for ""2nd argument b");
} else
{
4350 /* Processing variable nrhs */
4351 nrhs = shape(b,1)b_Dims[1];
4352/*end of frompyobj*/
4353#ifdef F2PY_REPORT_ATEXIT
4354f2py_start_call_clock();
4355#endif
4356/*callfortranroutine*/
4357 {F_INTint i;(*f2py_func)(&n,&nrhs,a,&n,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ;
4358 /*(*f2py_func)(&n,&nrhs,a,piv,b,&info);*/
4359if (PyErr_Occurred())
4360 f2py_success = 0;
4361#ifdef F2PY_REPORT_ATEXIT
4362f2py_stop_call_clock();
4363#endif
4364/*end of callfortranroutine*/
4365 if (f2py_success) {
4366/*pyobjfrom*/
4367/*end of pyobjfrom*/
4368 CFUNCSMESS("Building return value.\n");
4369 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_piv_tmp,capi_b_tmp,info);
4370/*closepyobjfrom*/
4371/*end of closepyobjfrom*/
4372 } /*if (f2py_success) after callfortranroutine*/
4373/*cleanupfrompyobj*/
4374 /* End of cleaning variable nrhs */
4375 } /*CHECKARRAY(shape(a,0)==shape(b,0))*/
4376 } /*if (capi_b_tmp == NULL) ... else of b*/
4377 /* End of cleaning variable b */
4378 } /*if (capi_piv_tmp == NULL) ... else of piv*/
4379 /* End of cleaning variable piv */
4380 /* End of cleaning variable n */
4381 /* End of cleaning variable info */
4382 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
4383 } /*if (capi_a_tmp == NULL) ... else of a*/
4384 /* End of cleaning variable a */
4385/*end of cleanupfrompyobj*/
4386 if (capi_buildvalue == NULL((void*)0)) {
4387/*routdebugfailure*/
4388 } else {
4389/*routdebugleave*/
4390 }
4391 CFUNCSMESS("Freeing memory.\n");
4392/*freemem*/
4393#ifdef F2PY_REPORT_ATEXIT
4394f2py_stop_clock();
4395#endif
4396 return capi_buildvalue;
4397}
4398/******************************** end of zgesv ********************************/
4399
4400/*********************************** sgesvx ***********************************/
4401static char doc_f2py_rout__flapack_sgesvx[] = "\
4402as,lu,ipiv,equed,rs,cs,bs,x,rcond,ferr,berr,info = sgesvx(a,b,[fact,trans,af,ipiv,equed,r,c,overwrite_a,overwrite_b])\n\nWrapper for ``sgesvx``.\
4403\n\nParameters\n----------\n"
4404"a : input rank-2 array('f') with bounds (n,n)\n"
4405"b : input rank-2 array('f') with bounds (n,nrhs)\n"
4406"\nOther Parameters\n----------------\n"
4407"fact : input string(len=1), optional\n Default: 'E'\n"
4408"trans : input string(len=1), optional\n Default: 'N'\n"
4409"overwrite_a : input int, optional\n Default: 0\n"
4410"af : input rank-2 array('f') with bounds (n,n)\n"
4411"ipiv : input rank-1 array('i') with bounds (n)\n"
4412"equed : input string(len=1), optional\n Default: 'B'\n"
4413"r : input rank-1 array('f') with bounds (n)\n"
4414"c : input rank-1 array('f') with bounds (n)\n"
4415"overwrite_b : input int, optional\n Default: 0\n"
4416"\nReturns\n-------\n"
4417"as : rank-2 array('f') with bounds (n,n) and a storage\n"
4418"lu : rank-2 array('f') with bounds (n,n) and af storage\n"
4419"ipiv : rank-1 array('i') with bounds (n)\n"
4420"equed : string(len=1)\n"
4421"rs : rank-1 array('f') with bounds (n) and r storage\n"
4422"cs : rank-1 array('f') with bounds (n) and c storage\n"
4423"bs : rank-2 array('f') with bounds (n,nrhs) and b storage\n"
4424"x : rank-2 array('f') with bounds (n,nrhs)\n"
4425"rcond : float\n"
4426"ferr : rank-1 array('f') with bounds (nrhs)\n"
4427"berr : rank-1 array('f') with bounds (nrhs)\n"
4428"info : int";
4429/* extern void F_FUNC(sgesvx,SGESVX)(char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,char*,float*,float*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT* ); */
4430static PyObject *f2py_rout__flapack_sgesvx(const PyObject *capi_self,
4431 PyObject *capi_args,
4432 PyObject *capi_keywds,
4433 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,char*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* )) {
4434 PyObject * volatile capi_buildvalue = NULL((void*)0);
4435 volatile int f2py_success = 1;
4436/*decl*/
4437
4438 string fact = NULL((void*)0);
4439 int slen(fact)capi_fact_len;
4440 PyObject *fact_capi = Py_None(&_Py_NoneStruct);
4441 string trans = NULL((void*)0);
4442 int slen(trans)capi_trans_len;
4443 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
4444 int n = 0;
4445 int nrhs = 0;
4446 float *a = NULL((void*)0);
4447 npy_intp a_Dims[2] = {-1, -1};
4448 const int a_Rank = 2;
4449 PyArrayObject *capi_a_tmp = NULL((void*)0);
4450 int capi_a_intent = 0;
4451 int capi_overwrite_a = 0;
4452 PyObject *a_capi = Py_None(&_Py_NoneStruct);
4453 int lda = 0;
4454 float *af = NULL((void*)0);
4455 npy_intp af_Dims[2] = {-1, -1};
4456 const int af_Rank = 2;
4457 PyArrayObject *capi_af_tmp = NULL((void*)0);
4458 int capi_af_intent = 0;
4459 PyObject *af_capi = Py_None(&_Py_NoneStruct);
4460 int ldaf = 0;
4461 int *ipiv = NULL((void*)0);
4462 npy_intp ipiv_Dims[1] = {-1};
4463 const int ipiv_Rank = 1;
4464 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
4465 int capi_ipiv_intent = 0;
4466 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
4467 string equed = NULL((void*)0);
4468 int slen(equed)capi_equed_len;
4469 PyObject *equed_capi = Py_None(&_Py_NoneStruct);
4470 float *r = NULL((void*)0);
4471 npy_intp r_Dims[1] = {-1};
4472 const int r_Rank = 1;
4473 PyArrayObject *capi_r_tmp = NULL((void*)0);
4474 int capi_r_intent = 0;
4475 PyObject *r_capi = Py_None(&_Py_NoneStruct);
4476 float *c = NULL((void*)0);
4477 npy_intp c_Dims[1] = {-1};
4478 const int c_Rank = 1;
4479 PyArrayObject *capi_c_tmp = NULL((void*)0);
4480 int capi_c_intent = 0;
4481 PyObject *c_capi = Py_None(&_Py_NoneStruct);
4482 float *b = NULL((void*)0);
4483 npy_intp b_Dims[2] = {-1, -1};
4484 const int b_Rank = 2;
4485 PyArrayObject *capi_b_tmp = NULL((void*)0);
4486 int capi_b_intent = 0;
4487 int capi_overwrite_b = 0;
4488 PyObject *b_capi = Py_None(&_Py_NoneStruct);
4489 int ldb = 0;
4490 float *x = NULL((void*)0);
4491 npy_intp x_Dims[2] = {-1, -1};
4492 const int x_Rank = 2;
4493 PyArrayObject *capi_x_tmp = NULL((void*)0);
4494 int capi_x_intent = 0;
4495 int ldx = 0;
4496 float rcond = 0;
4497 float *ferr = NULL((void*)0);
4498 npy_intp ferr_Dims[1] = {-1};
4499 const int ferr_Rank = 1;
4500 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
4501 int capi_ferr_intent = 0;
4502 float *berr = NULL((void*)0);
4503 npy_intp berr_Dims[1] = {-1};
4504 const int berr_Rank = 1;
4505 PyArrayObject *capi_berr_tmp = NULL((void*)0);
4506 int capi_berr_intent = 0;
4507 float *work = NULL((void*)0);
4508 npy_intp work_Dims[1] = {-1};
4509 const int work_Rank = 1;
4510 PyArrayObject *capi_work_tmp = NULL((void*)0);
4511 int capi_work_intent = 0;
4512 int *iwork = NULL((void*)0);
4513 npy_intp iwork_Dims[1] = {-1};
4514 const int iwork_Rank = 1;
4515 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
4516 int capi_iwork_intent = 0;
4517 int info = 0;
4518 static char *capi_kwlist[] = {"a","b","fact","trans","af","ipiv","equed","r","c","overwrite_a","overwrite_b",NULL((void*)0)};
4519
4520/*routdebugenter*/
4521#ifdef F2PY_REPORT_ATEXIT
4522f2py_start_clock();
4523#endif
4524 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
4525 "OO|OOOOOOOii:_flapack.sgesvx",\
4526 capi_kwlist,&a_capi,&b_capi,&fact_capi,&trans_capi,&af_capi,&ipiv_capi,&equed_capi,&r_capi,&c_capi,&capi_overwrite_a,&capi_overwrite_b))
4527 return NULL((void*)0);
4528/*frompyobj*/
4529 /* Processing variable fact */
4530 slen(fact)capi_fact_len = 1;
4531 f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"E",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.sgesvx to C string");
4532 if (f2py_success) {
4533 /* Processing variable a */
4534 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
4535 ;
4536 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
4537 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
4538 if (capi_a_tmp == NULL((void*)0)) {
4539 if (!PyErr_Occurred())
4540 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgesvx to C/Fortran array" );
4541 } else {
4542 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
4543
4544 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
4545 /* Processing variable rcond */
4546 /* Processing variable info */
4547 /* Processing variable n */
4548 n = shape(a,0)a_Dims[0];
4549 /* Processing variable lda */
4550 lda = shape(a,0)a_Dims[0];
4551 /* Processing variable af */
4552 af_Dims[0]=n,af_Dims[1]=n;
4553 capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
4554 capi_af_tmp = array_from_pyobj(NPY_FLOAT,af_Dims,af_Rank,capi_af_intent,af_capi);
4555 if (capi_af_tmp == NULL((void*)0)) {
4556 if (!PyErr_Occurred())
4557 PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `af' of _flapack.sgesvx to C/Fortran array" );
4558 } else {
4559 af = (float *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data));
4560
4561 /* Processing variable ldaf */
4562 ldaf = shape(af,0)af_Dims[0];
4563 /* Processing variable ipiv */
4564 ipiv_Dims[0]=n;
4565 capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
4566 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
4567 if (capi_ipiv_tmp == NULL((void*)0)) {
4568 if (!PyErr_Occurred())
4569 PyErr_SetString(_flapack_error,"failed in converting 4th keyword `ipiv' of _flapack.sgesvx to C/Fortran array" );
4570 } else {
4571 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
4572
4573 /* Processing variable r */
4574 r_Dims[0]=n;
4575 capi_r_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
4576 capi_r_tmp = array_from_pyobj(NPY_FLOAT,r_Dims,r_Rank,capi_r_intent,r_capi);
4577 if (capi_r_tmp == NULL((void*)0)) {
4578 if (!PyErr_Occurred())
4579 PyErr_SetString(_flapack_error,"failed in converting 6th keyword `r' of _flapack.sgesvx to C/Fortran array" );
4580 } else {
4581 r = (float *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data));
4582
4583 /* Processing variable c */
4584 c_Dims[0]=n;
4585 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
4586 capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
4587 if (capi_c_tmp == NULL((void*)0)) {
4588 if (!PyErr_Occurred())
4589 PyErr_SetString(_flapack_error,"failed in converting 7th keyword `c' of _flapack.sgesvx to C/Fortran array" );
4590 } else {
4591 c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
4592
4593 /* Processing variable b */
4594 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
4595 b_Dims[0]=n;
4596 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
4597 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
4598 if (capi_b_tmp == NULL((void*)0)) {
4599 if (!PyErr_Occurred())
4600 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sgesvx to C/Fortran array" );
4601 } else {
4602 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
4603
4604 /* Processing variable ldb */
4605 ldb = shape(b,0)b_Dims[0];
4606 /* Processing variable ldx */
4607 ldx = n;
4608 /* Processing variable work */
4609 work_Dims[0]=4 * n;
4610 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
4611 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
4612 if (capi_work_tmp == NULL((void*)0)) {
4613 if (!PyErr_Occurred())
4614 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgesvx to C/Fortran array" );
4615 } else {
4616 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
4617
4618 /* Processing variable iwork */
4619 iwork_Dims[0]=n;
4620 capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
4621 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
4622 if (capi_iwork_tmp == NULL((void*)0)) {
4623 if (!PyErr_Occurred())
4624 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.sgesvx to C/Fortran array" );
4625 } else {
4626 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
4627
4628 /* Processing variable trans */
4629 slen(trans)capi_trans_len = 1;
4630 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.sgesvx to C string");
4631 if (f2py_success) {
4632 /* Processing variable nrhs */
4633 nrhs = shape(b,1)b_Dims[1];
4634 /* Processing variable equed */
4635 slen(equed)capi_equed_len = 1;
4636 f2py_success = string_from_pyobj(&equed,&slen(equed)capi_equed_len,"B",equed_capi,"string_from_pyobj failed in converting 5th keyword `equed' of _flapack.sgesvx to C string");
4637 if (f2py_success) {
4638 /* Processing variable x */
4639 x_Dims[0]=n,x_Dims[1]=nrhs;
4640 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
4641 capi_x_tmp = array_from_pyobj(NPY_FLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
4642 if (capi_x_tmp == NULL((void*)0)) {
4643 if (!PyErr_Occurred())
4644 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.sgesvx to C/Fortran array" );
4645 } else {
4646 x = (float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
4647
4648 /* Processing variable ferr */
4649 ferr_Dims[0]=nrhs;
4650 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
4651 capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
4652 if (capi_ferr_tmp == NULL((void*)0)) {
4653 if (!PyErr_Occurred())
4654 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.sgesvx to C/Fortran array" );
4655 } else {
4656 ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
4657
4658 /* Processing variable berr */
4659 berr_Dims[0]=nrhs;
4660 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
4661 capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
4662 if (capi_berr_tmp == NULL((void*)0)) {
4663 if (!PyErr_Occurred())
4664 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.sgesvx to C/Fortran array" );
4665 } else {
4666 berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
4667
4668/*end of frompyobj*/
4669#ifdef F2PY_REPORT_ATEXIT
4670f2py_start_call_clock();
4671#endif
4672/*callfortranroutine*/
4673 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
4674 {F_INTint i;(*f2py_func)(fact,trans,&n,&nrhs,a,&lda,af,&ldaf,ipiv,equed,r,c,b,&ldb,x,&ldx,&rcond,ferr,berr,work,iwork,&info);for(i=0;i<n;--ipiv[i++]);} ;
4675 /*(*f2py_func)(fact,trans,&n,&nrhs,a,&lda,af,&ldaf,ipiv,equed,r,c,b,&ldb,x,&ldx,&rcond,ferr,berr,work,iwork,&info,slen(fact),slen(trans),slen(equed));*/
4676 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
4677if (PyErr_Occurred())
4678 f2py_success = 0;
4679#ifdef F2PY_REPORT_ATEXIT
4680f2py_stop_call_clock();
4681#endif
4682/*end of callfortranroutine*/
4683 if (f2py_success) {
4684/*pyobjfrom*/
4685/*end of pyobjfrom*/
4686 CFUNCSMESS("Building return value.\n");
4687 capi_buildvalue = Py_BuildValue("NNNyNNNNfNNi",capi_a_tmp,capi_af_tmp,capi_ipiv_tmp,equed,capi_r_tmp,capi_c_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
4688/*closepyobjfrom*/
4689/*end of closepyobjfrom*/
4690 } /*if (f2py_success) after callfortranroutine*/
4691/*cleanupfrompyobj*/
4692 } /*if (capi_berr_tmp == NULL) ... else of berr*/
4693 /* End of cleaning variable berr */
4694 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
4695 /* End of cleaning variable ferr */
4696 } /*if (capi_x_tmp == NULL) ... else of x*/
4697 /* End of cleaning variable x */
4698 STRINGFREE(equed)do {if (!(equed == ((void*)0))) free(equed);} while (0);
4699 } /*if (f2py_success) of equed*/
4700 /* End of cleaning variable equed */
4701 /* End of cleaning variable nrhs */
4702 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
4703 } /*if (f2py_success) of trans*/
4704 /* End of cleaning variable trans */
4705 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
4706 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
4707 /* End of cleaning variable iwork */
4708 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
4709 } /*if (capi_work_tmp == NULL) ... else of work*/
4710 /* End of cleaning variable work */
4711 /* End of cleaning variable ldx */
4712 /* End of cleaning variable ldb */
4713 } /*if (capi_b_tmp == NULL) ... else of b*/
4714 /* End of cleaning variable b */
4715 } /*if (capi_c_tmp == NULL) ... else of c*/
4716 /* End of cleaning variable c */
4717 } /*if (capi_r_tmp == NULL) ... else of r*/
4718 /* End of cleaning variable r */
4719 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
4720 /* End of cleaning variable ipiv */
4721 /* End of cleaning variable ldaf */
4722 } /*if (capi_af_tmp == NULL) ... else of af*/
4723 /* End of cleaning variable af */
4724 /* End of cleaning variable lda */
4725 /* End of cleaning variable n */
4726 /* End of cleaning variable info */
4727 /* End of cleaning variable rcond */
4728 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
4729 } /*if (capi_a_tmp == NULL) ... else of a*/
4730 /* End of cleaning variable a */
4731 STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0);
4732 } /*if (f2py_success) of fact*/
4733 /* End of cleaning variable fact */
4734/*end of cleanupfrompyobj*/
4735 if (capi_buildvalue == NULL((void*)0)) {
4736/*routdebugfailure*/
4737 } else {
4738/*routdebugleave*/
4739 }
4740 CFUNCSMESS("Freeing memory.\n");
4741/*freemem*/
4742#ifdef F2PY_REPORT_ATEXIT
4743f2py_stop_clock();
4744#endif
4745 return capi_buildvalue;
4746}
4747/******************************* end of sgesvx *******************************/
4748
4749/*********************************** dgesvx ***********************************/
4750static char doc_f2py_rout__flapack_dgesvx[] = "\
4751as,lu,ipiv,equed,rs,cs,bs,x,rcond,ferr,berr,info = dgesvx(a,b,[fact,trans,af,ipiv,equed,r,c,overwrite_a,overwrite_b])\n\nWrapper for ``dgesvx``.\
4752\n\nParameters\n----------\n"
4753"a : input rank-2 array('d') with bounds (n,n)\n"
4754"b : input rank-2 array('d') with bounds (n,nrhs)\n"
4755"\nOther Parameters\n----------------\n"
4756"fact : input string(len=1), optional\n Default: 'E'\n"
4757"trans : input string(len=1), optional\n Default: 'N'\n"
4758"overwrite_a : input int, optional\n Default: 0\n"
4759"af : input rank-2 array('d') with bounds (n,n)\n"
4760"ipiv : input rank-1 array('i') with bounds (n)\n"
4761"equed : input string(len=1), optional\n Default: 'B'\n"
4762"r : input rank-1 array('d') with bounds (n)\n"
4763"c : input rank-1 array('d') with bounds (n)\n"
4764"overwrite_b : input int, optional\n Default: 0\n"
4765"\nReturns\n-------\n"
4766"as : rank-2 array('d') with bounds (n,n) and a storage\n"
4767"lu : rank-2 array('d') with bounds (n,n) and af storage\n"
4768"ipiv : rank-1 array('i') with bounds (n)\n"
4769"equed : string(len=1)\n"
4770"rs : rank-1 array('d') with bounds (n) and r storage\n"
4771"cs : rank-1 array('d') with bounds (n) and c storage\n"
4772"bs : rank-2 array('d') with bounds (n,nrhs) and b storage\n"
4773"x : rank-2 array('d') with bounds (n,nrhs)\n"
4774"rcond : float\n"
4775"ferr : rank-1 array('d') with bounds (nrhs)\n"
4776"berr : rank-1 array('d') with bounds (nrhs)\n"
4777"info : int";
4778/* extern void F_FUNC(dgesvx,DGESVX)(char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,char*,double*,double*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT* ); */
4779static PyObject *f2py_rout__flapack_dgesvx(const PyObject *capi_self,
4780 PyObject *capi_args,
4781 PyObject *capi_keywds,
4782 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,char*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* )) {
4783 PyObject * volatile capi_buildvalue = NULL((void*)0);
4784 volatile int f2py_success = 1;
4785/*decl*/
4786
4787 string fact = NULL((void*)0);
4788 int slen(fact)capi_fact_len;
4789 PyObject *fact_capi = Py_None(&_Py_NoneStruct);
4790 string trans = NULL((void*)0);
4791 int slen(trans)capi_trans_len;
4792 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
4793 int n = 0;
4794 int nrhs = 0;
4795 double *a = NULL((void*)0);
4796 npy_intp a_Dims[2] = {-1, -1};
4797 const int a_Rank = 2;
4798 PyArrayObject *capi_a_tmp = NULL((void*)0);
4799 int capi_a_intent = 0;
4800 int capi_overwrite_a = 0;
4801 PyObject *a_capi = Py_None(&_Py_NoneStruct);
4802 int lda = 0;
4803 double *af = NULL((void*)0);
4804 npy_intp af_Dims[2] = {-1, -1};
4805 const int af_Rank = 2;
4806 PyArrayObject *capi_af_tmp = NULL((void*)0);
4807 int capi_af_intent = 0;
4808 PyObject *af_capi = Py_None(&_Py_NoneStruct);
4809 int ldaf = 0;
4810 int *ipiv = NULL((void*)0);
4811 npy_intp ipiv_Dims[1] = {-1};
4812 const int ipiv_Rank = 1;
4813 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
4814 int capi_ipiv_intent = 0;
4815 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
4816 string equed = NULL((void*)0);
4817 int slen(equed)capi_equed_len;
4818 PyObject *equed_capi = Py_None(&_Py_NoneStruct);
4819 double *r = NULL((void*)0);
4820 npy_intp r_Dims[1] = {-1};
4821 const int r_Rank = 1;
4822 PyArrayObject *capi_r_tmp = NULL((void*)0);
4823 int capi_r_intent = 0;
4824 PyObject *r_capi = Py_None(&_Py_NoneStruct);
4825 double *c = NULL((void*)0);
4826 npy_intp c_Dims[1] = {-1};
4827 const int c_Rank = 1;
4828 PyArrayObject *capi_c_tmp = NULL((void*)0);
4829 int capi_c_intent = 0;
4830 PyObject *c_capi = Py_None(&_Py_NoneStruct);
4831 double *b = NULL((void*)0);
4832 npy_intp b_Dims[2] = {-1, -1};
4833 const int b_Rank = 2;
4834 PyArrayObject *capi_b_tmp = NULL((void*)0);
4835 int capi_b_intent = 0;
4836 int capi_overwrite_b = 0;
4837 PyObject *b_capi = Py_None(&_Py_NoneStruct);
4838 int ldb = 0;
4839 double *x = NULL((void*)0);
4840 npy_intp x_Dims[2] = {-1, -1};
4841 const int x_Rank = 2;
4842 PyArrayObject *capi_x_tmp = NULL((void*)0);
4843 int capi_x_intent = 0;
4844 int ldx = 0;
4845 double rcond = 0;
4846 double *ferr = NULL((void*)0);
4847 npy_intp ferr_Dims[1] = {-1};
4848 const int ferr_Rank = 1;
4849 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
4850 int capi_ferr_intent = 0;
4851 double *berr = NULL((void*)0);
4852 npy_intp berr_Dims[1] = {-1};
4853 const int berr_Rank = 1;
4854 PyArrayObject *capi_berr_tmp = NULL((void*)0);
4855 int capi_berr_intent = 0;
4856 double *work = NULL((void*)0);
4857 npy_intp work_Dims[1] = {-1};
4858 const int work_Rank = 1;
4859 PyArrayObject *capi_work_tmp = NULL((void*)0);
4860 int capi_work_intent = 0;
4861 int *iwork = NULL((void*)0);
4862 npy_intp iwork_Dims[1] = {-1};
4863 const int iwork_Rank = 1;
4864 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
4865 int capi_iwork_intent = 0;
4866 int info = 0;
4867 static char *capi_kwlist[] = {"a","b","fact","trans","af","ipiv","equed","r","c","overwrite_a","overwrite_b",NULL((void*)0)};
4868
4869/*routdebugenter*/
4870#ifdef F2PY_REPORT_ATEXIT
4871f2py_start_clock();
4872#endif
4873 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
4874 "OO|OOOOOOOii:_flapack.dgesvx",\
4875 capi_kwlist,&a_capi,&b_capi,&fact_capi,&trans_capi,&af_capi,&ipiv_capi,&equed_capi,&r_capi,&c_capi,&capi_overwrite_a,&capi_overwrite_b))
4876 return NULL((void*)0);
4877/*frompyobj*/
4878 /* Processing variable fact */
4879 slen(fact)capi_fact_len = 1;
4880 f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"E",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.dgesvx to C string");
4881 if (f2py_success) {
4882 /* Processing variable a */
4883 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
4884 ;
4885 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
4886 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
4887 if (capi_a_tmp == NULL((void*)0)) {
4888 if (!PyErr_Occurred())
4889 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgesvx to C/Fortran array" );
4890 } else {
4891 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
4892
4893 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
4894 /* Processing variable rcond */
4895 /* Processing variable info */
4896 /* Processing variable n */
4897 n = shape(a,0)a_Dims[0];
4898 /* Processing variable lda */
4899 lda = shape(a,0)a_Dims[0];
4900 /* Processing variable af */
4901 af_Dims[0]=n,af_Dims[1]=n;
4902 capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
4903 capi_af_tmp = array_from_pyobj(NPY_DOUBLE,af_Dims,af_Rank,capi_af_intent,af_capi);
4904 if (capi_af_tmp == NULL((void*)0)) {
4905 if (!PyErr_Occurred())
4906 PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `af' of _flapack.dgesvx to C/Fortran array" );
4907 } else {
4908 af = (double *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data));
4909
4910 /* Processing variable ldaf */
4911 ldaf = shape(af,0)af_Dims[0];
4912 /* Processing variable ipiv */
4913 ipiv_Dims[0]=n;
4914 capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
4915 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
4916 if (capi_ipiv_tmp == NULL((void*)0)) {
4917 if (!PyErr_Occurred())
4918 PyErr_SetString(_flapack_error,"failed in converting 4th keyword `ipiv' of _flapack.dgesvx to C/Fortran array" );
4919 } else {
4920 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
4921
4922 /* Processing variable r */
4923 r_Dims[0]=n;
4924 capi_r_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
4925 capi_r_tmp = array_from_pyobj(NPY_DOUBLE,r_Dims,r_Rank,capi_r_intent,r_capi);
4926 if (capi_r_tmp == NULL((void*)0)) {
4927 if (!PyErr_Occurred())
4928 PyErr_SetString(_flapack_error,"failed in converting 6th keyword `r' of _flapack.dgesvx to C/Fortran array" );
4929 } else {
4930 r = (double *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data));
4931
4932 /* Processing variable c */
4933 c_Dims[0]=n;
4934 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
4935 capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
4936 if (capi_c_tmp == NULL((void*)0)) {
4937 if (!PyErr_Occurred())
4938 PyErr_SetString(_flapack_error,"failed in converting 7th keyword `c' of _flapack.dgesvx to C/Fortran array" );
4939 } else {
4940 c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
4941
4942 /* Processing variable b */
4943 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
4944 b_Dims[0]=n;
4945 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
4946 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
4947 if (capi_b_tmp == NULL((void*)0)) {
4948 if (!PyErr_Occurred())
4949 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dgesvx to C/Fortran array" );
4950 } else {
4951 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
4952
4953 /* Processing variable ldb */
4954 ldb = shape(b,0)b_Dims[0];
4955 /* Processing variable ldx */
4956 ldx = n;
4957 /* Processing variable work */
4958 work_Dims[0]=4 * n;
4959 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
4960 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
4961 if (capi_work_tmp == NULL((void*)0)) {
4962 if (!PyErr_Occurred())
4963 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgesvx to C/Fortran array" );
4964 } else {
4965 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
4966
4967 /* Processing variable iwork */
4968 iwork_Dims[0]=n;
4969 capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
4970 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
4971 if (capi_iwork_tmp == NULL((void*)0)) {
4972 if (!PyErr_Occurred())
4973 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dgesvx to C/Fortran array" );
4974 } else {
4975 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
4976
4977 /* Processing variable trans */
4978 slen(trans)capi_trans_len = 1;
4979 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.dgesvx to C string");
4980 if (f2py_success) {
4981 /* Processing variable nrhs */
4982 nrhs = shape(b,1)b_Dims[1];
4983 /* Processing variable equed */
4984 slen(equed)capi_equed_len = 1;
4985 f2py_success = string_from_pyobj(&equed,&slen(equed)capi_equed_len,"B",equed_capi,"string_from_pyobj failed in converting 5th keyword `equed' of _flapack.dgesvx to C string");
4986 if (f2py_success) {
4987 /* Processing variable x */
4988 x_Dims[0]=n,x_Dims[1]=nrhs;
4989 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
4990 capi_x_tmp = array_from_pyobj(NPY_DOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
4991 if (capi_x_tmp == NULL((void*)0)) {
4992 if (!PyErr_Occurred())
4993 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.dgesvx to C/Fortran array" );
4994 } else {
4995 x = (double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
4996
4997 /* Processing variable ferr */
4998 ferr_Dims[0]=nrhs;
4999 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
5000 capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
5001 if (capi_ferr_tmp == NULL((void*)0)) {
5002 if (!PyErr_Occurred())
5003 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.dgesvx to C/Fortran array" );
5004 } else {
5005 ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
5006
5007 /* Processing variable berr */
5008 berr_Dims[0]=nrhs;
5009 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
5010 capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
5011 if (capi_berr_tmp == NULL((void*)0)) {
5012 if (!PyErr_Occurred())
5013 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.dgesvx to C/Fortran array" );
5014 } else {
5015 berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
5016
5017/*end of frompyobj*/
5018#ifdef F2PY_REPORT_ATEXIT
5019f2py_start_call_clock();
5020#endif
5021/*callfortranroutine*/
5022 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
5023 {F_INTint i;(*f2py_func)(fact,trans,&n,&nrhs,a,&lda,af,&ldaf,ipiv,equed,r,c,b,&ldb,x,&ldx,&rcond,ferr,berr,work,iwork,&info);for(i=0;i<n;--ipiv[i++]);} ;
5024 /*(*f2py_func)(fact,trans,&n,&nrhs,a,&lda,af,&ldaf,ipiv,equed,r,c,b,&ldb,x,&ldx,&rcond,ferr,berr,work,iwork,&info,slen(fact),slen(trans),slen(equed));*/
5025 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
5026if (PyErr_Occurred())
5027 f2py_success = 0;
5028#ifdef F2PY_REPORT_ATEXIT
5029f2py_stop_call_clock();
5030#endif
5031/*end of callfortranroutine*/
5032 if (f2py_success) {
5033/*pyobjfrom*/
5034/*end of pyobjfrom*/
5035 CFUNCSMESS("Building return value.\n");
5036 capi_buildvalue = Py_BuildValue("NNNyNNNNdNNi",capi_a_tmp,capi_af_tmp,capi_ipiv_tmp,equed,capi_r_tmp,capi_c_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
5037/*closepyobjfrom*/
5038/*end of closepyobjfrom*/
5039 } /*if (f2py_success) after callfortranroutine*/
5040/*cleanupfrompyobj*/
5041 } /*if (capi_berr_tmp == NULL) ... else of berr*/
5042 /* End of cleaning variable berr */
5043 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
5044 /* End of cleaning variable ferr */
5045 } /*if (capi_x_tmp == NULL) ... else of x*/
5046 /* End of cleaning variable x */
5047 STRINGFREE(equed)do {if (!(equed == ((void*)0))) free(equed);} while (0);
5048 } /*if (f2py_success) of equed*/
5049 /* End of cleaning variable equed */
5050 /* End of cleaning variable nrhs */
5051 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
5052 } /*if (f2py_success) of trans*/
5053 /* End of cleaning variable trans */
5054 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
5055 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
5056 /* End of cleaning variable iwork */
5057 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
5058 } /*if (capi_work_tmp == NULL) ... else of work*/
5059 /* End of cleaning variable work */
5060 /* End of cleaning variable ldx */
5061 /* End of cleaning variable ldb */
5062 } /*if (capi_b_tmp == NULL) ... else of b*/
5063 /* End of cleaning variable b */
5064 } /*if (capi_c_tmp == NULL) ... else of c*/
5065 /* End of cleaning variable c */
5066 } /*if (capi_r_tmp == NULL) ... else of r*/
5067 /* End of cleaning variable r */
5068 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
5069 /* End of cleaning variable ipiv */
5070 /* End of cleaning variable ldaf */
5071 } /*if (capi_af_tmp == NULL) ... else of af*/
5072 /* End of cleaning variable af */
5073 /* End of cleaning variable lda */
5074 /* End of cleaning variable n */
5075 /* End of cleaning variable info */
5076 /* End of cleaning variable rcond */
5077 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
5078 } /*if (capi_a_tmp == NULL) ... else of a*/
5079 /* End of cleaning variable a */
5080 STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0);
5081 } /*if (f2py_success) of fact*/
5082 /* End of cleaning variable fact */
5083/*end of cleanupfrompyobj*/
5084 if (capi_buildvalue == NULL((void*)0)) {
5085/*routdebugfailure*/
5086 } else {
5087/*routdebugleave*/
5088 }
5089 CFUNCSMESS("Freeing memory.\n");
5090/*freemem*/
5091#ifdef F2PY_REPORT_ATEXIT
5092f2py_stop_clock();
5093#endif
5094 return capi_buildvalue;
5095}
5096/******************************* end of dgesvx *******************************/
5097
5098/*********************************** cgesvx ***********************************/
5099static char doc_f2py_rout__flapack_cgesvx[] = "\
5100as,lu,ipiv,equed,rs,cs,bs,x,rcond,ferr,berr,info = cgesvx(a,b,[fact,trans,af,ipiv,equed,r,c,overwrite_a,overwrite_b])\n\nWrapper for ``cgesvx``.\
5101\n\nParameters\n----------\n"
5102"a : input rank-2 array('F') with bounds (n,n)\n"
5103"b : input rank-2 array('F') with bounds (n,nrhs)\n"
5104"\nOther Parameters\n----------------\n"
5105"fact : input string(len=1), optional\n Default: 'E'\n"
5106"trans : input string(len=1), optional\n Default: 'N'\n"
5107"overwrite_a : input int, optional\n Default: 0\n"
5108"af : input rank-2 array('F') with bounds (n,n)\n"
5109"ipiv : input rank-1 array('i') with bounds (n)\n"
5110"equed : input string(len=1), optional\n Default: 'B'\n"
5111"r : input rank-1 array('f') with bounds (n)\n"
5112"c : input rank-1 array('f') with bounds (n)\n"
5113"overwrite_b : input int, optional\n Default: 0\n"
5114"\nReturns\n-------\n"
5115"as : rank-2 array('F') with bounds (n,n) and a storage\n"
5116"lu : rank-2 array('F') with bounds (n,n) and af storage\n"
5117"ipiv : rank-1 array('i') with bounds (n)\n"
5118"equed : string(len=1)\n"
5119"rs : rank-1 array('f') with bounds (n) and r storage\n"
5120"cs : rank-1 array('f') with bounds (n) and c storage\n"
5121"bs : rank-2 array('F') with bounds (n,nrhs) and b storage\n"
5122"x : rank-2 array('F') with bounds (n,nrhs)\n"
5123"rcond : float\n"
5124"ferr : rank-1 array('f') with bounds (nrhs)\n"
5125"berr : rank-1 array('f') with bounds (nrhs)\n"
5126"info : int";
5127/* extern void F_FUNC(cgesvx,CGESVX)(char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,char*,float*,float*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,float*,complex_float*,float*,F_INT* ); */
5128static PyObject *f2py_rout__flapack_cgesvx(const PyObject *capi_self,
5129 PyObject *capi_args,
5130 PyObject *capi_keywds,
5131 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,char*,float*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,float*,F_INTint* )) {
5132 PyObject * volatile capi_buildvalue = NULL((void*)0);
5133 volatile int f2py_success = 1;
5134/*decl*/
5135
5136 string fact = NULL((void*)0);
5137 int slen(fact)capi_fact_len;
5138 PyObject *fact_capi = Py_None(&_Py_NoneStruct);
5139 string trans = NULL((void*)0);
5140 int slen(trans)capi_trans_len;
5141 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
5142 int n = 0;
5143 int nrhs = 0;
5144 complex_float *a = NULL((void*)0);
5145 npy_intp a_Dims[2] = {-1, -1};
5146 const int a_Rank = 2;
5147 PyArrayObject *capi_a_tmp = NULL((void*)0);
5148 int capi_a_intent = 0;
5149 int capi_overwrite_a = 0;
5150 PyObject *a_capi = Py_None(&_Py_NoneStruct);
5151 int lda = 0;
5152 complex_float *af = NULL((void*)0);
5153 npy_intp af_Dims[2] = {-1, -1};
5154 const int af_Rank = 2;
5155 PyArrayObject *capi_af_tmp = NULL((void*)0);
5156 int capi_af_intent = 0;
5157 PyObject *af_capi = Py_None(&_Py_NoneStruct);
5158 int ldaf = 0;
5159 int *ipiv = NULL((void*)0);
5160 npy_intp ipiv_Dims[1] = {-1};
5161 const int ipiv_Rank = 1;
5162 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
5163 int capi_ipiv_intent = 0;
5164 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
5165 string equed = NULL((void*)0);
5166 int slen(equed)capi_equed_len;
5167 PyObject *equed_capi = Py_None(&_Py_NoneStruct);
5168 float *r = NULL((void*)0);
5169 npy_intp r_Dims[1] = {-1};
5170 const int r_Rank = 1;
5171 PyArrayObject *capi_r_tmp = NULL((void*)0);
5172 int capi_r_intent = 0;
5173 PyObject *r_capi = Py_None(&_Py_NoneStruct);
5174 float *c = NULL((void*)0);
5175 npy_intp c_Dims[1] = {-1};
5176 const int c_Rank = 1;
5177 PyArrayObject *capi_c_tmp = NULL((void*)0);
5178 int capi_c_intent = 0;
5179 PyObject *c_capi = Py_None(&_Py_NoneStruct);
5180 complex_float *b = NULL((void*)0);
5181 npy_intp b_Dims[2] = {-1, -1};
5182 const int b_Rank = 2;
5183 PyArrayObject *capi_b_tmp = NULL((void*)0);
5184 int capi_b_intent = 0;
5185 int capi_overwrite_b = 0;
5186 PyObject *b_capi = Py_None(&_Py_NoneStruct);
5187 int ldb = 0;
5188 complex_float *x = NULL((void*)0);
5189 npy_intp x_Dims[2] = {-1, -1};
5190 const int x_Rank = 2;
5191 PyArrayObject *capi_x_tmp = NULL((void*)0);
5192 int capi_x_intent = 0;
5193 int ldx = 0;
5194 float rcond = 0;
5195 float *ferr = NULL((void*)0);
5196 npy_intp ferr_Dims[1] = {-1};
5197 const int ferr_Rank = 1;
5198 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
5199 int capi_ferr_intent = 0;
5200 float *berr = NULL((void*)0);
5201 npy_intp berr_Dims[1] = {-1};
5202 const int berr_Rank = 1;
5203 PyArrayObject *capi_berr_tmp = NULL((void*)0);
5204 int capi_berr_intent = 0;
5205 complex_float *work = NULL((void*)0);
5206 npy_intp work_Dims[1] = {-1};
5207 const int work_Rank = 1;
5208 PyArrayObject *capi_work_tmp = NULL((void*)0);
5209 int capi_work_intent = 0;
5210 float *rwork = NULL((void*)0);
5211 npy_intp rwork_Dims[1] = {-1};
5212 const int rwork_Rank = 1;
5213 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
5214 int capi_rwork_intent = 0;
5215 int info = 0;
5216 static char *capi_kwlist[] = {"a","b","fact","trans","af","ipiv","equed","r","c","overwrite_a","overwrite_b",NULL((void*)0)};
5217
5218/*routdebugenter*/
5219#ifdef F2PY_REPORT_ATEXIT
5220f2py_start_clock();
5221#endif
5222 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
5223 "OO|OOOOOOOii:_flapack.cgesvx",\
5224 capi_kwlist,&a_capi,&b_capi,&fact_capi,&trans_capi,&af_capi,&ipiv_capi,&equed_capi,&r_capi,&c_capi,&capi_overwrite_a,&capi_overwrite_b))
5225 return NULL((void*)0);
5226/*frompyobj*/
5227 /* Processing variable fact */
5228 slen(fact)capi_fact_len = 1;
5229 f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"E",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.cgesvx to C string");
5230 if (f2py_success) {
5231 /* Processing variable a */
5232 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
5233 ;
5234 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
5235 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
5236 if (capi_a_tmp == NULL((void*)0)) {
5237 if (!PyErr_Occurred())
5238 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgesvx to C/Fortran array" );
5239 } else {
5240 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
5241
5242 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
5243 /* Processing variable rcond */
5244 /* Processing variable info */
5245 /* Processing variable n */
5246 n = shape(a,0)a_Dims[0];
5247 /* Processing variable lda */
5248 lda = shape(a,0)a_Dims[0];
5249 /* Processing variable af */
5250 af_Dims[0]=n,af_Dims[1]=n;
5251 capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
5252 capi_af_tmp = array_from_pyobj(NPY_CFLOAT,af_Dims,af_Rank,capi_af_intent,af_capi);
5253 if (capi_af_tmp == NULL((void*)0)) {
5254 if (!PyErr_Occurred())
5255 PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `af' of _flapack.cgesvx to C/Fortran array" );
5256 } else {
5257 af = (complex_float *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data));
5258
5259 /* Processing variable ldaf */
5260 ldaf = shape(af,0)af_Dims[0];
5261 /* Processing variable ipiv */
5262 ipiv_Dims[0]=n;
5263 capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
5264 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
5265 if (capi_ipiv_tmp == NULL((void*)0)) {
5266 if (!PyErr_Occurred())
5267 PyErr_SetString(_flapack_error,"failed in converting 4th keyword `ipiv' of _flapack.cgesvx to C/Fortran array" );
5268 } else {
5269 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
5270
5271 /* Processing variable r */
5272 r_Dims[0]=n;
5273 capi_r_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
5274 capi_r_tmp = array_from_pyobj(NPY_FLOAT,r_Dims,r_Rank,capi_r_intent,r_capi);
5275 if (capi_r_tmp == NULL((void*)0)) {
5276 if (!PyErr_Occurred())
5277 PyErr_SetString(_flapack_error,"failed in converting 6th keyword `r' of _flapack.cgesvx to C/Fortran array" );
5278 } else {
5279 r = (float *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data));
5280
5281 /* Processing variable c */
5282 c_Dims[0]=n;
5283 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
5284 capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
5285 if (capi_c_tmp == NULL((void*)0)) {
5286 if (!PyErr_Occurred())
5287 PyErr_SetString(_flapack_error,"failed in converting 7th keyword `c' of _flapack.cgesvx to C/Fortran array" );
5288 } else {
5289 c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
5290
5291 /* Processing variable b */
5292 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
5293 b_Dims[0]=n;
5294 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
5295 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
5296 if (capi_b_tmp == NULL((void*)0)) {
5297 if (!PyErr_Occurred())
5298 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cgesvx to C/Fortran array" );
5299 } else {
5300 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
5301
5302 /* Processing variable ldb */
5303 ldb = shape(b,0)b_Dims[0];
5304 /* Processing variable ldx */
5305 ldx = n;
5306 /* Processing variable work */
5307 work_Dims[0]=2 * n;
5308 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
5309 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
5310 if (capi_work_tmp == NULL((void*)0)) {
5311 if (!PyErr_Occurred())
5312 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgesvx to C/Fortran array" );
5313 } else {
5314 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
5315
5316 /* Processing variable rwork */
5317 rwork_Dims[0]=2 * n;
5318 capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
5319 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
5320 if (capi_rwork_tmp == NULL((void*)0)) {
5321 if (!PyErr_Occurred())
5322 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgesvx to C/Fortran array" );
5323 } else {
5324 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
5325
5326 /* Processing variable trans */
5327 slen(trans)capi_trans_len = 1;
5328 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.cgesvx to C string");
5329 if (f2py_success) {
5330 /* Processing variable nrhs */
5331 nrhs = shape(b,1)b_Dims[1];
5332 /* Processing variable equed */
5333 slen(equed)capi_equed_len = 1;
5334 f2py_success = string_from_pyobj(&equed,&slen(equed)capi_equed_len,"B",equed_capi,"string_from_pyobj failed in converting 5th keyword `equed' of _flapack.cgesvx to C string");
5335 if (f2py_success) {
5336 /* Processing variable x */
5337 x_Dims[0]=n,x_Dims[1]=nrhs;
5338 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
5339 capi_x_tmp = array_from_pyobj(NPY_CFLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
5340 if (capi_x_tmp == NULL((void*)0)) {
5341 if (!PyErr_Occurred())
5342 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.cgesvx to C/Fortran array" );
5343 } else {
5344 x = (complex_float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
5345
5346 /* Processing variable ferr */
5347 ferr_Dims[0]=nrhs;
5348 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
5349 capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
5350 if (capi_ferr_tmp == NULL((void*)0)) {
5351 if (!PyErr_Occurred())
5352 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.cgesvx to C/Fortran array" );
5353 } else {
5354 ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
5355
5356 /* Processing variable berr */
5357 berr_Dims[0]=nrhs;
5358 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
5359 capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
5360 if (capi_berr_tmp == NULL((void*)0)) {
5361 if (!PyErr_Occurred())
5362 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.cgesvx to C/Fortran array" );
5363 } else {
5364 berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
5365
5366/*end of frompyobj*/
5367#ifdef F2PY_REPORT_ATEXIT
5368f2py_start_call_clock();
5369#endif
5370/*callfortranroutine*/
5371 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
5372 {F_INTint i;(*f2py_func)(fact,trans,&n,&nrhs,a,&lda,af,&ldaf,ipiv,equed,r,c,b,&ldb,x,&ldx,&rcond,ferr,berr,work,rwork,&info);for(i=0;i<n;--ipiv[i++]);} ;
5373 /*(*f2py_func)(fact,trans,&n,&nrhs,a,&lda,af,&ldaf,ipiv,equed,r,c,b,&ldb,x,&ldx,&rcond,ferr,berr,work,rwork,&info,slen(fact),slen(trans),slen(equed));*/
5374 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
5375if (PyErr_Occurred())
5376 f2py_success = 0;
5377#ifdef F2PY_REPORT_ATEXIT
5378f2py_stop_call_clock();
5379#endif
5380/*end of callfortranroutine*/
5381 if (f2py_success) {
5382/*pyobjfrom*/
5383/*end of pyobjfrom*/
5384 CFUNCSMESS("Building return value.\n");
5385 capi_buildvalue = Py_BuildValue("NNNyNNNNfNNi",capi_a_tmp,capi_af_tmp,capi_ipiv_tmp,equed,capi_r_tmp,capi_c_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
5386/*closepyobjfrom*/
5387/*end of closepyobjfrom*/
5388 } /*if (f2py_success) after callfortranroutine*/
5389/*cleanupfrompyobj*/
5390 } /*if (capi_berr_tmp == NULL) ... else of berr*/
5391 /* End of cleaning variable berr */
5392 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
5393 /* End of cleaning variable ferr */
5394 } /*if (capi_x_tmp == NULL) ... else of x*/
5395 /* End of cleaning variable x */
5396 STRINGFREE(equed)do {if (!(equed == ((void*)0))) free(equed);} while (0);
5397 } /*if (f2py_success) of equed*/
5398 /* End of cleaning variable equed */
5399 /* End of cleaning variable nrhs */
5400 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
5401 } /*if (f2py_success) of trans*/
5402 /* End of cleaning variable trans */
5403 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
5404 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
5405 /* End of cleaning variable rwork */
5406 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
5407 } /*if (capi_work_tmp == NULL) ... else of work*/
5408 /* End of cleaning variable work */
5409 /* End of cleaning variable ldx */
5410 /* End of cleaning variable ldb */
5411 } /*if (capi_b_tmp == NULL) ... else of b*/
5412 /* End of cleaning variable b */
5413 } /*if (capi_c_tmp == NULL) ... else of c*/
5414 /* End of cleaning variable c */
5415 } /*if (capi_r_tmp == NULL) ... else of r*/
5416 /* End of cleaning variable r */
5417 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
5418 /* End of cleaning variable ipiv */
5419 /* End of cleaning variable ldaf */
5420 } /*if (capi_af_tmp == NULL) ... else of af*/
5421 /* End of cleaning variable af */
5422 /* End of cleaning variable lda */
5423 /* End of cleaning variable n */
5424 /* End of cleaning variable info */
5425 /* End of cleaning variable rcond */
5426 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
5427 } /*if (capi_a_tmp == NULL) ... else of a*/
5428 /* End of cleaning variable a */
5429 STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0);
5430 } /*if (f2py_success) of fact*/
5431 /* End of cleaning variable fact */
5432/*end of cleanupfrompyobj*/
5433 if (capi_buildvalue == NULL((void*)0)) {
5434/*routdebugfailure*/
5435 } else {
5436/*routdebugleave*/
5437 }
5438 CFUNCSMESS("Freeing memory.\n");
5439/*freemem*/
5440#ifdef F2PY_REPORT_ATEXIT
5441f2py_stop_clock();
5442#endif
5443 return capi_buildvalue;
5444}
5445/******************************* end of cgesvx *******************************/
5446
5447/*********************************** zgesvx ***********************************/
5448static char doc_f2py_rout__flapack_zgesvx[] = "\
5449as,lu,ipiv,equed,rs,cs,bs,x,rcond,ferr,berr,info = zgesvx(a,b,[fact,trans,af,ipiv,equed,r,c,overwrite_a,overwrite_b])\n\nWrapper for ``zgesvx``.\
5450\n\nParameters\n----------\n"
5451"a : input rank-2 array('D') with bounds (n,n)\n"
5452"b : input rank-2 array('D') with bounds (n,nrhs)\n"
5453"\nOther Parameters\n----------------\n"
5454"fact : input string(len=1), optional\n Default: 'E'\n"
5455"trans : input string(len=1), optional\n Default: 'N'\n"
5456"overwrite_a : input int, optional\n Default: 0\n"
5457"af : input rank-2 array('D') with bounds (n,n)\n"
5458"ipiv : input rank-1 array('i') with bounds (n)\n"
5459"equed : input string(len=1), optional\n Default: 'B'\n"
5460"r : input rank-1 array('d') with bounds (n)\n"
5461"c : input rank-1 array('d') with bounds (n)\n"
5462"overwrite_b : input int, optional\n Default: 0\n"
5463"\nReturns\n-------\n"
5464"as : rank-2 array('D') with bounds (n,n) and a storage\n"
5465"lu : rank-2 array('D') with bounds (n,n) and af storage\n"
5466"ipiv : rank-1 array('i') with bounds (n)\n"
5467"equed : string(len=1)\n"
5468"rs : rank-1 array('d') with bounds (n) and r storage\n"
5469"cs : rank-1 array('d') with bounds (n) and c storage\n"
5470"bs : rank-2 array('D') with bounds (n,nrhs) and b storage\n"
5471"x : rank-2 array('D') with bounds (n,nrhs)\n"
5472"rcond : float\n"
5473"ferr : rank-1 array('d') with bounds (nrhs)\n"
5474"berr : rank-1 array('d') with bounds (nrhs)\n"
5475"info : int";
5476/* extern void F_FUNC(zgesvx,ZGESVX)(char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,char*,double*,double*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,double*,complex_double*,double*,F_INT* ); */
5477static PyObject *f2py_rout__flapack_zgesvx(const PyObject *capi_self,
5478 PyObject *capi_args,
5479 PyObject *capi_keywds,
5480 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,char*,double*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,double*,F_INTint* )) {
5481 PyObject * volatile capi_buildvalue = NULL((void*)0);
5482 volatile int f2py_success = 1;
5483/*decl*/
5484
5485 string fact = NULL((void*)0);
5486 int slen(fact)capi_fact_len;
5487 PyObject *fact_capi = Py_None(&_Py_NoneStruct);
5488 string trans = NULL((void*)0);
5489 int slen(trans)capi_trans_len;
5490 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
5491 int n = 0;
5492 int nrhs = 0;
5493 complex_double *a = NULL((void*)0);
5494 npy_intp a_Dims[2] = {-1, -1};
5495 const int a_Rank = 2;
5496 PyArrayObject *capi_a_tmp = NULL((void*)0);
5497 int capi_a_intent = 0;
5498 int capi_overwrite_a = 0;
5499 PyObject *a_capi = Py_None(&_Py_NoneStruct);
5500 int lda = 0;
5501 complex_double *af = NULL((void*)0);
5502 npy_intp af_Dims[2] = {-1, -1};
5503 const int af_Rank = 2;
5504 PyArrayObject *capi_af_tmp = NULL((void*)0);
5505 int capi_af_intent = 0;
5506 PyObject *af_capi = Py_None(&_Py_NoneStruct);
5507 int ldaf = 0;
5508 int *ipiv = NULL((void*)0);
5509 npy_intp ipiv_Dims[1] = {-1};
5510 const int ipiv_Rank = 1;
5511 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
5512 int capi_ipiv_intent = 0;
5513 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
5514 string equed = NULL((void*)0);
5515 int slen(equed)capi_equed_len;
5516 PyObject *equed_capi = Py_None(&_Py_NoneStruct);
5517 double *r = NULL((void*)0);
5518 npy_intp r_Dims[1] = {-1};
5519 const int r_Rank = 1;
5520 PyArrayObject *capi_r_tmp = NULL((void*)0);
5521 int capi_r_intent = 0;
5522 PyObject *r_capi = Py_None(&_Py_NoneStruct);
5523 double *c = NULL((void*)0);
5524 npy_intp c_Dims[1] = {-1};
5525 const int c_Rank = 1;
5526 PyArrayObject *capi_c_tmp = NULL((void*)0);
5527 int capi_c_intent = 0;
5528 PyObject *c_capi = Py_None(&_Py_NoneStruct);
5529 complex_double *b = NULL((void*)0);
5530 npy_intp b_Dims[2] = {-1, -1};
5531 const int b_Rank = 2;
5532 PyArrayObject *capi_b_tmp = NULL((void*)0);
5533 int capi_b_intent = 0;
5534 int capi_overwrite_b = 0;
5535 PyObject *b_capi = Py_None(&_Py_NoneStruct);
5536 int ldb = 0;
5537 complex_double *x = NULL((void*)0);
5538 npy_intp x_Dims[2] = {-1, -1};
5539 const int x_Rank = 2;
5540 PyArrayObject *capi_x_tmp = NULL((void*)0);
5541 int capi_x_intent = 0;
5542 int ldx = 0;
5543 double rcond = 0;
5544 double *ferr = NULL((void*)0);
5545 npy_intp ferr_Dims[1] = {-1};
5546 const int ferr_Rank = 1;
5547 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
5548 int capi_ferr_intent = 0;
5549 double *berr = NULL((void*)0);
5550 npy_intp berr_Dims[1] = {-1};
5551 const int berr_Rank = 1;
5552 PyArrayObject *capi_berr_tmp = NULL((void*)0);
5553 int capi_berr_intent = 0;
5554 complex_double *work = NULL((void*)0);
5555 npy_intp work_Dims[1] = {-1};
5556 const int work_Rank = 1;
5557 PyArrayObject *capi_work_tmp = NULL((void*)0);
5558 int capi_work_intent = 0;
5559 double *rwork = NULL((void*)0);
5560 npy_intp rwork_Dims[1] = {-1};
5561 const int rwork_Rank = 1;
5562 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
5563 int capi_rwork_intent = 0;
5564 int info = 0;
5565 static char *capi_kwlist[] = {"a","b","fact","trans","af","ipiv","equed","r","c","overwrite_a","overwrite_b",NULL((void*)0)};
5566
5567/*routdebugenter*/
5568#ifdef F2PY_REPORT_ATEXIT
5569f2py_start_clock();
5570#endif
5571 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
5572 "OO|OOOOOOOii:_flapack.zgesvx",\
5573 capi_kwlist,&a_capi,&b_capi,&fact_capi,&trans_capi,&af_capi,&ipiv_capi,&equed_capi,&r_capi,&c_capi,&capi_overwrite_a,&capi_overwrite_b))
5574 return NULL((void*)0);
5575/*frompyobj*/
5576 /* Processing variable fact */
5577 slen(fact)capi_fact_len = 1;
5578 f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"E",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.zgesvx to C string");
5579 if (f2py_success) {
5580 /* Processing variable a */
5581 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
5582 ;
5583 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
5584 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
5585 if (capi_a_tmp == NULL((void*)0)) {
5586 if (!PyErr_Occurred())
5587 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgesvx to C/Fortran array" );
5588 } else {
5589 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
5590
5591 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
5592 /* Processing variable rcond */
5593 /* Processing variable info */
5594 /* Processing variable n */
5595 n = shape(a,0)a_Dims[0];
5596 /* Processing variable lda */
5597 lda = shape(a,0)a_Dims[0];
5598 /* Processing variable af */
5599 af_Dims[0]=n,af_Dims[1]=n;
5600 capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
5601 capi_af_tmp = array_from_pyobj(NPY_CDOUBLE,af_Dims,af_Rank,capi_af_intent,af_capi);
5602 if (capi_af_tmp == NULL((void*)0)) {
5603 if (!PyErr_Occurred())
5604 PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `af' of _flapack.zgesvx to C/Fortran array" );
5605 } else {
5606 af = (complex_double *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data));
5607
5608 /* Processing variable ldaf */
5609 ldaf = shape(af,0)af_Dims[0];
5610 /* Processing variable ipiv */
5611 ipiv_Dims[0]=n;
5612 capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
5613 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
5614 if (capi_ipiv_tmp == NULL((void*)0)) {
5615 if (!PyErr_Occurred())
5616 PyErr_SetString(_flapack_error,"failed in converting 4th keyword `ipiv' of _flapack.zgesvx to C/Fortran array" );
5617 } else {
5618 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
5619
5620 /* Processing variable r */
5621 r_Dims[0]=n;
5622 capi_r_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
5623 capi_r_tmp = array_from_pyobj(NPY_DOUBLE,r_Dims,r_Rank,capi_r_intent,r_capi);
5624 if (capi_r_tmp == NULL((void*)0)) {
5625 if (!PyErr_Occurred())
5626 PyErr_SetString(_flapack_error,"failed in converting 6th keyword `r' of _flapack.zgesvx to C/Fortran array" );
5627 } else {
5628 r = (double *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data));
5629
5630 /* Processing variable c */
5631 c_Dims[0]=n;
5632 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
5633 capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
5634 if (capi_c_tmp == NULL((void*)0)) {
5635 if (!PyErr_Occurred())
5636 PyErr_SetString(_flapack_error,"failed in converting 7th keyword `c' of _flapack.zgesvx to C/Fortran array" );
5637 } else {
5638 c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
5639
5640 /* Processing variable b */
5641 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
5642 b_Dims[0]=n;
5643 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
5644 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
5645 if (capi_b_tmp == NULL((void*)0)) {
5646 if (!PyErr_Occurred())
5647 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zgesvx to C/Fortran array" );
5648 } else {
5649 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
5650
5651 /* Processing variable ldb */
5652 ldb = shape(b,0)b_Dims[0];
5653 /* Processing variable ldx */
5654 ldx = n;
5655 /* Processing variable work */
5656 work_Dims[0]=2 * n;
5657 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
5658 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
5659 if (capi_work_tmp == NULL((void*)0)) {
5660 if (!PyErr_Occurred())
5661 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgesvx to C/Fortran array" );
5662 } else {
5663 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
5664
5665 /* Processing variable rwork */
5666 rwork_Dims[0]=2 * n;
5667 capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
5668 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
5669 if (capi_rwork_tmp == NULL((void*)0)) {
5670 if (!PyErr_Occurred())
5671 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgesvx to C/Fortran array" );
5672 } else {
5673 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
5674
5675 /* Processing variable trans */
5676 slen(trans)capi_trans_len = 1;
5677 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.zgesvx to C string");
5678 if (f2py_success) {
5679 /* Processing variable nrhs */
5680 nrhs = shape(b,1)b_Dims[1];
5681 /* Processing variable equed */
5682 slen(equed)capi_equed_len = 1;
5683 f2py_success = string_from_pyobj(&equed,&slen(equed)capi_equed_len,"B",equed_capi,"string_from_pyobj failed in converting 5th keyword `equed' of _flapack.zgesvx to C string");
5684 if (f2py_success) {
5685 /* Processing variable x */
5686 x_Dims[0]=n,x_Dims[1]=nrhs;
5687 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
5688 capi_x_tmp = array_from_pyobj(NPY_CDOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
5689 if (capi_x_tmp == NULL((void*)0)) {
5690 if (!PyErr_Occurred())
5691 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.zgesvx to C/Fortran array" );
5692 } else {
5693 x = (complex_double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
5694
5695 /* Processing variable ferr */
5696 ferr_Dims[0]=nrhs;
5697 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
5698 capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
5699 if (capi_ferr_tmp == NULL((void*)0)) {
5700 if (!PyErr_Occurred())
5701 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.zgesvx to C/Fortran array" );
5702 } else {
5703 ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
5704
5705 /* Processing variable berr */
5706 berr_Dims[0]=nrhs;
5707 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
5708 capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
5709 if (capi_berr_tmp == NULL((void*)0)) {
5710 if (!PyErr_Occurred())
5711 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.zgesvx to C/Fortran array" );
5712 } else {
5713 berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
5714
5715/*end of frompyobj*/
5716#ifdef F2PY_REPORT_ATEXIT
5717f2py_start_call_clock();
5718#endif
5719/*callfortranroutine*/
5720 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
5721 {F_INTint i;(*f2py_func)(fact,trans,&n,&nrhs,a,&lda,af,&ldaf,ipiv,equed,r,c,b,&ldb,x,&ldx,&rcond,ferr,berr,work,rwork,&info);for(i=0;i<n;--ipiv[i++]);} ;
5722 /*(*f2py_func)(fact,trans,&n,&nrhs,a,&lda,af,&ldaf,ipiv,equed,r,c,b,&ldb,x,&ldx,&rcond,ferr,berr,work,rwork,&info,slen(fact),slen(trans),slen(equed));*/
5723 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
5724if (PyErr_Occurred())
5725 f2py_success = 0;
5726#ifdef F2PY_REPORT_ATEXIT
5727f2py_stop_call_clock();
5728#endif
5729/*end of callfortranroutine*/
5730 if (f2py_success) {
5731/*pyobjfrom*/
5732/*end of pyobjfrom*/
5733 CFUNCSMESS("Building return value.\n");
5734 capi_buildvalue = Py_BuildValue("NNNyNNNNdNNi",capi_a_tmp,capi_af_tmp,capi_ipiv_tmp,equed,capi_r_tmp,capi_c_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
5735/*closepyobjfrom*/
5736/*end of closepyobjfrom*/
5737 } /*if (f2py_success) after callfortranroutine*/
5738/*cleanupfrompyobj*/
5739 } /*if (capi_berr_tmp == NULL) ... else of berr*/
5740 /* End of cleaning variable berr */
5741 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
5742 /* End of cleaning variable ferr */
5743 } /*if (capi_x_tmp == NULL) ... else of x*/
5744 /* End of cleaning variable x */
5745 STRINGFREE(equed)do {if (!(equed == ((void*)0))) free(equed);} while (0);
5746 } /*if (f2py_success) of equed*/
5747 /* End of cleaning variable equed */
5748 /* End of cleaning variable nrhs */
5749 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
5750 } /*if (f2py_success) of trans*/
5751 /* End of cleaning variable trans */
5752 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
5753 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
5754 /* End of cleaning variable rwork */
5755 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
5756 } /*if (capi_work_tmp == NULL) ... else of work*/
5757 /* End of cleaning variable work */
5758 /* End of cleaning variable ldx */
5759 /* End of cleaning variable ldb */
5760 } /*if (capi_b_tmp == NULL) ... else of b*/
5761 /* End of cleaning variable b */
5762 } /*if (capi_c_tmp == NULL) ... else of c*/
5763 /* End of cleaning variable c */
5764 } /*if (capi_r_tmp == NULL) ... else of r*/
5765 /* End of cleaning variable r */
5766 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
5767 /* End of cleaning variable ipiv */
5768 /* End of cleaning variable ldaf */
5769 } /*if (capi_af_tmp == NULL) ... else of af*/
5770 /* End of cleaning variable af */
5771 /* End of cleaning variable lda */
5772 /* End of cleaning variable n */
5773 /* End of cleaning variable info */
5774 /* End of cleaning variable rcond */
5775 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
5776 } /*if (capi_a_tmp == NULL) ... else of a*/
5777 /* End of cleaning variable a */
5778 STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0);
5779 } /*if (f2py_success) of fact*/
5780 /* End of cleaning variable fact */
5781/*end of cleanupfrompyobj*/
5782 if (capi_buildvalue == NULL((void*)0)) {
5783/*routdebugfailure*/
5784 } else {
5785/*routdebugleave*/
5786 }
5787 CFUNCSMESS("Freeing memory.\n");
5788/*freemem*/
5789#ifdef F2PY_REPORT_ATEXIT
5790f2py_stop_clock();
5791#endif
5792 return capi_buildvalue;
5793}
5794/******************************* end of zgesvx *******************************/
5795
5796/*********************************** sgecon ***********************************/
5797static char doc_f2py_rout__flapack_sgecon[] = "\
5798rcond,info = sgecon(a,anorm,[norm])\n\nWrapper for ``sgecon``.\
5799\n\nParameters\n----------\n"
5800"a : input rank-2 array('f') with bounds (n,n)\n"
5801"anorm : input float\n"
5802"\nOther Parameters\n----------------\n"
5803"norm : input string(len=1), optional\n Default: '1'\n"
5804"\nReturns\n-------\n"
5805"rcond : float\n"
5806"info : int";
5807/* extern void F_FUNC(sgecon,SGECON)(char*,F_INT*,float*,F_INT*,float*,float*,float*,F_INT*,F_INT* ); */
5808static PyObject *f2py_rout__flapack_sgecon(const PyObject *capi_self,
5809 PyObject *capi_args,
5810 PyObject *capi_keywds,
5811 void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,float*,float*,float*,F_INTint*,F_INTint* )) {
5812 PyObject * volatile capi_buildvalue = NULL((void*)0);
5813 volatile int f2py_success = 1;
5814/*decl*/
5815
5816 string norm = NULL((void*)0);
5817 int slen(norm)capi_norm_len;
5818 PyObject *norm_capi = Py_None(&_Py_NoneStruct);
5819 int n = 0;
5820 float *a = NULL((void*)0);
5821 npy_intp a_Dims[2] = {-1, -1};
5822 const int a_Rank = 2;
5823 PyArrayObject *capi_a_tmp = NULL((void*)0);
5824 int capi_a_intent = 0;
5825 PyObject *a_capi = Py_None(&_Py_NoneStruct);
5826 int lda = 0;
5827 float anorm = 0;
5828 PyObject *anorm_capi = Py_None(&_Py_NoneStruct);
5829 float rcond = 0;
5830 float *work = NULL((void*)0);
5831 npy_intp work_Dims[1] = {-1};
5832 const int work_Rank = 1;
5833 PyArrayObject *capi_work_tmp = NULL((void*)0);
5834 int capi_work_intent = 0;
5835 int *irwork = NULL((void*)0);
5836 npy_intp irwork_Dims[1] = {-1};
5837 const int irwork_Rank = 1;
5838 PyArrayObject *capi_irwork_tmp = NULL((void*)0);
5839 int capi_irwork_intent = 0;
5840 int info = 0;
5841 static char *capi_kwlist[] = {"a","anorm","norm",NULL((void*)0)};
5842
5843/*routdebugenter*/
5844#ifdef F2PY_REPORT_ATEXIT
5845f2py_start_clock();
5846#endif
5847 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
5848 "OO|O:_flapack.sgecon",\
5849 capi_kwlist,&a_capi,&anorm_capi,&norm_capi))
5850 return NULL((void*)0);
5851/*frompyobj*/
5852 /* Processing variable norm */
5853 slen(norm)capi_norm_len = 1;
5854 f2py_success = string_from_pyobj(&norm,&slen(norm)capi_norm_len,"1",norm_capi,"string_from_pyobj failed in converting 1st keyword `norm' of _flapack.sgecon to C string");
5855 if (f2py_success) {
5856 /* Processing variable a */
5857 ;
5858 capi_a_intent |= F2PY_INTENT_IN1;
5859 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
5860 if (capi_a_tmp == NULL((void*)0)) {
5861 if (!PyErr_Occurred())
5862 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgecon to C/Fortran array" );
5863 } else {
5864 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
5865
5866 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
5867 /* Processing variable anorm */
5868 f2py_success = float_from_pyobj(&anorm,anorm_capi,"_flapack.sgecon() 2nd argument (anorm) can't be converted to float");
5869 if (f2py_success) {
5870 /* Processing variable rcond */
5871 /* Processing variable info */
5872 /* Processing variable n */
5873 n = shape(a,0)a_Dims[0];
5874 /* Processing variable lda */
5875 lda = shape(a,0)a_Dims[0];
5876 /* Processing variable work */
5877 work_Dims[0]=4 * n;
5878 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
5879 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
5880 if (capi_work_tmp == NULL((void*)0)) {
5881 if (!PyErr_Occurred())
5882 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgecon to C/Fortran array" );
5883 } else {
5884 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
5885
5886 /* Processing variable irwork */
5887 irwork_Dims[0]=n;
5888 capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
5889 capi_irwork_tmp = array_from_pyobj(NPY_INT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct));
5890 if (capi_irwork_tmp == NULL((void*)0)) {
5891 if (!PyErr_Occurred())
5892 PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.sgecon to C/Fortran array" );
5893 } else {
5894 irwork = (int *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data
)
);
5895
5896/*end of frompyobj*/
5897#ifdef F2PY_REPORT_ATEXIT
5898f2py_start_call_clock();
5899#endif
5900/*callfortranroutine*/
5901 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
5902 (*f2py_func)(norm,&n,a,&lda,&anorm,&rcond,work,irwork,&info) ;
5903 /*(*f2py_func)(norm,&n,a,&lda,&anorm,&rcond,work,irwork,&info,slen(norm));*/
5904 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
5905if (PyErr_Occurred())
5906 f2py_success = 0;
5907#ifdef F2PY_REPORT_ATEXIT
5908f2py_stop_call_clock();
5909#endif
5910/*end of callfortranroutine*/
5911 if (f2py_success) {
5912/*pyobjfrom*/
5913/*end of pyobjfrom*/
5914 CFUNCSMESS("Building return value.\n");
5915 capi_buildvalue = Py_BuildValue("fi",rcond,info);
5916/*closepyobjfrom*/
5917/*end of closepyobjfrom*/
5918 } /*if (f2py_success) after callfortranroutine*/
5919/*cleanupfrompyobj*/
5920 Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp)));
5921 } /*if (capi_irwork_tmp == NULL) ... else of irwork*/
5922 /* End of cleaning variable irwork */
5923 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
5924 } /*if (capi_work_tmp == NULL) ... else of work*/
5925 /* End of cleaning variable work */
5926 /* End of cleaning variable lda */
5927 /* End of cleaning variable n */
5928 /* End of cleaning variable info */
5929 /* End of cleaning variable rcond */
5930 } /*if (f2py_success) of anorm*/
5931 /* End of cleaning variable anorm */
5932 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
5933 if((PyObject *)capi_a_tmp!=a_capi) {
5934 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
5935 } /*if (capi_a_tmp == NULL) ... else of a*/
5936 /* End of cleaning variable a */
5937 STRINGFREE(norm)do {if (!(norm == ((void*)0))) free(norm);} while (0);
5938 } /*if (f2py_success) of norm*/
5939 /* End of cleaning variable norm */
5940/*end of cleanupfrompyobj*/
5941 if (capi_buildvalue == NULL((void*)0)) {
5942/*routdebugfailure*/
5943 } else {
5944/*routdebugleave*/
5945 }
5946 CFUNCSMESS("Freeing memory.\n");
5947/*freemem*/
5948#ifdef F2PY_REPORT_ATEXIT
5949f2py_stop_clock();
5950#endif
5951 return capi_buildvalue;
5952}
5953/******************************* end of sgecon *******************************/
5954
5955/*********************************** dgecon ***********************************/
5956static char doc_f2py_rout__flapack_dgecon[] = "\
5957rcond,info = dgecon(a,anorm,[norm])\n\nWrapper for ``dgecon``.\
5958\n\nParameters\n----------\n"
5959"a : input rank-2 array('d') with bounds (n,n)\n"
5960"anorm : input float\n"
5961"\nOther Parameters\n----------------\n"
5962"norm : input string(len=1), optional\n Default: '1'\n"
5963"\nReturns\n-------\n"
5964"rcond : float\n"
5965"info : int";
5966/* extern void F_FUNC(dgecon,DGECON)(char*,F_INT*,double*,F_INT*,double*,double*,double*,F_INT*,F_INT* ); */
5967static PyObject *f2py_rout__flapack_dgecon(const PyObject *capi_self,
5968 PyObject *capi_args,
5969 PyObject *capi_keywds,
5970 void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,double*,double*,double*,F_INTint*,F_INTint* )) {
5971 PyObject * volatile capi_buildvalue = NULL((void*)0);
5972 volatile int f2py_success = 1;
5973/*decl*/
5974
5975 string norm = NULL((void*)0);
5976 int slen(norm)capi_norm_len;
5977 PyObject *norm_capi = Py_None(&_Py_NoneStruct);
5978 int n = 0;
5979 double *a = NULL((void*)0);
5980 npy_intp a_Dims[2] = {-1, -1};
5981 const int a_Rank = 2;
5982 PyArrayObject *capi_a_tmp = NULL((void*)0);
5983 int capi_a_intent = 0;
5984 PyObject *a_capi = Py_None(&_Py_NoneStruct);
5985 int lda = 0;
5986 double anorm = 0;
5987 PyObject *anorm_capi = Py_None(&_Py_NoneStruct);
5988 double rcond = 0;
5989 double *work = NULL((void*)0);
5990 npy_intp work_Dims[1] = {-1};
5991 const int work_Rank = 1;
5992 PyArrayObject *capi_work_tmp = NULL((void*)0);
5993 int capi_work_intent = 0;
5994 int *irwork = NULL((void*)0);
5995 npy_intp irwork_Dims[1] = {-1};
5996 const int irwork_Rank = 1;
5997 PyArrayObject *capi_irwork_tmp = NULL((void*)0);
5998 int capi_irwork_intent = 0;
5999 int info = 0;
6000 static char *capi_kwlist[] = {"a","anorm","norm",NULL((void*)0)};
6001
6002/*routdebugenter*/
6003#ifdef F2PY_REPORT_ATEXIT
6004f2py_start_clock();
6005#endif
6006 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
6007 "OO|O:_flapack.dgecon",\
6008 capi_kwlist,&a_capi,&anorm_capi,&norm_capi))
6009 return NULL((void*)0);
6010/*frompyobj*/
6011 /* Processing variable norm */
6012 slen(norm)capi_norm_len = 1;
6013 f2py_success = string_from_pyobj(&norm,&slen(norm)capi_norm_len,"1",norm_capi,"string_from_pyobj failed in converting 1st keyword `norm' of _flapack.dgecon to C string");
6014 if (f2py_success) {
6015 /* Processing variable a */
6016 ;
6017 capi_a_intent |= F2PY_INTENT_IN1;
6018 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
6019 if (capi_a_tmp == NULL((void*)0)) {
6020 if (!PyErr_Occurred())
6021 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgecon to C/Fortran array" );
6022 } else {
6023 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
6024
6025 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
6026 /* Processing variable anorm */
6027 f2py_success = double_from_pyobj(&anorm,anorm_capi,"_flapack.dgecon() 2nd argument (anorm) can't be converted to double");
6028 if (f2py_success) {
6029 /* Processing variable rcond */
6030 /* Processing variable info */
6031 /* Processing variable n */
6032 n = shape(a,0)a_Dims[0];
6033 /* Processing variable lda */
6034 lda = shape(a,0)a_Dims[0];
6035 /* Processing variable work */
6036 work_Dims[0]=4 * n;
6037 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
6038 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
6039 if (capi_work_tmp == NULL((void*)0)) {
6040 if (!PyErr_Occurred())
6041 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgecon to C/Fortran array" );
6042 } else {
6043 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
6044
6045 /* Processing variable irwork */
6046 irwork_Dims[0]=n;
6047 capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
6048 capi_irwork_tmp = array_from_pyobj(NPY_INT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct));
6049 if (capi_irwork_tmp == NULL((void*)0)) {
6050 if (!PyErr_Occurred())
6051 PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.dgecon to C/Fortran array" );
6052 } else {
6053 irwork = (int *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data
)
);
6054
6055/*end of frompyobj*/
6056#ifdef F2PY_REPORT_ATEXIT
6057f2py_start_call_clock();
6058#endif
6059/*callfortranroutine*/
6060 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
6061 (*f2py_func)(norm,&n,a,&lda,&anorm,&rcond,work,irwork,&info) ;
6062 /*(*f2py_func)(norm,&n,a,&lda,&anorm,&rcond,work,irwork,&info,slen(norm));*/
6063 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
6064if (PyErr_Occurred())
6065 f2py_success = 0;
6066#ifdef F2PY_REPORT_ATEXIT
6067f2py_stop_call_clock();
6068#endif
6069/*end of callfortranroutine*/
6070 if (f2py_success) {
6071/*pyobjfrom*/
6072/*end of pyobjfrom*/
6073 CFUNCSMESS("Building return value.\n");
6074 capi_buildvalue = Py_BuildValue("di",rcond,info);
6075/*closepyobjfrom*/
6076/*end of closepyobjfrom*/
6077 } /*if (f2py_success) after callfortranroutine*/
6078/*cleanupfrompyobj*/
6079 Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp)));
6080 } /*if (capi_irwork_tmp == NULL) ... else of irwork*/
6081 /* End of cleaning variable irwork */
6082 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
6083 } /*if (capi_work_tmp == NULL) ... else of work*/
6084 /* End of cleaning variable work */
6085 /* End of cleaning variable lda */
6086 /* End of cleaning variable n */
6087 /* End of cleaning variable info */
6088 /* End of cleaning variable rcond */
6089 } /*if (f2py_success) of anorm*/
6090 /* End of cleaning variable anorm */
6091 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
6092 if((PyObject *)capi_a_tmp!=a_capi) {
6093 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
6094 } /*if (capi_a_tmp == NULL) ... else of a*/
6095 /* End of cleaning variable a */
6096 STRINGFREE(norm)do {if (!(norm == ((void*)0))) free(norm);} while (0);
6097 } /*if (f2py_success) of norm*/
6098 /* End of cleaning variable norm */
6099/*end of cleanupfrompyobj*/
6100 if (capi_buildvalue == NULL((void*)0)) {
6101/*routdebugfailure*/
6102 } else {
6103/*routdebugleave*/
6104 }
6105 CFUNCSMESS("Freeing memory.\n");
6106/*freemem*/
6107#ifdef F2PY_REPORT_ATEXIT
6108f2py_stop_clock();
6109#endif
6110 return capi_buildvalue;
6111}
6112/******************************* end of dgecon *******************************/
6113
6114/*********************************** cgecon ***********************************/
6115static char doc_f2py_rout__flapack_cgecon[] = "\
6116rcond,info = cgecon(a,anorm,[norm])\n\nWrapper for ``cgecon``.\
6117\n\nParameters\n----------\n"
6118"a : input rank-2 array('F') with bounds (n,n)\n"
6119"anorm : input float\n"
6120"\nOther Parameters\n----------------\n"
6121"norm : input string(len=1), optional\n Default: '1'\n"
6122"\nReturns\n-------\n"
6123"rcond : float\n"
6124"info : int";
6125/* extern void F_FUNC(cgecon,CGECON)(char*,F_INT*,complex_float*,F_INT*,float*,float*,complex_float*,float*,F_INT* ); */
6126static PyObject *f2py_rout__flapack_cgecon(const PyObject *capi_self,
6127 PyObject *capi_args,
6128 PyObject *capi_keywds,
6129 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,complex_float*,float*,F_INTint* )) {
6130 PyObject * volatile capi_buildvalue = NULL((void*)0);
6131 volatile int f2py_success = 1;
6132/*decl*/
6133
6134 string norm = NULL((void*)0);
6135 int slen(norm)capi_norm_len;
6136 PyObject *norm_capi = Py_None(&_Py_NoneStruct);
6137 int n = 0;
6138 complex_float *a = NULL((void*)0);
6139 npy_intp a_Dims[2] = {-1, -1};
6140 const int a_Rank = 2;
6141 PyArrayObject *capi_a_tmp = NULL((void*)0);
6142 int capi_a_intent = 0;
6143 PyObject *a_capi = Py_None(&_Py_NoneStruct);
6144 int lda = 0;
6145 float anorm = 0;
6146 PyObject *anorm_capi = Py_None(&_Py_NoneStruct);
6147 float rcond = 0;
6148 complex_float *work = NULL((void*)0);
6149 npy_intp work_Dims[1] = {-1};
6150 const int work_Rank = 1;
6151 PyArrayObject *capi_work_tmp = NULL((void*)0);
6152 int capi_work_intent = 0;
6153 float *irwork = NULL((void*)0);
6154 npy_intp irwork_Dims[1] = {-1};
6155 const int irwork_Rank = 1;
6156 PyArrayObject *capi_irwork_tmp = NULL((void*)0);
6157 int capi_irwork_intent = 0;
6158 int info = 0;
6159 static char *capi_kwlist[] = {"a","anorm","norm",NULL((void*)0)};
6160
6161/*routdebugenter*/
6162#ifdef F2PY_REPORT_ATEXIT
6163f2py_start_clock();
6164#endif
6165 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
6166 "OO|O:_flapack.cgecon",\
6167 capi_kwlist,&a_capi,&anorm_capi,&norm_capi))
6168 return NULL((void*)0);
6169/*frompyobj*/
6170 /* Processing variable norm */
6171 slen(norm)capi_norm_len = 1;
6172 f2py_success = string_from_pyobj(&norm,&slen(norm)capi_norm_len,"1",norm_capi,"string_from_pyobj failed in converting 1st keyword `norm' of _flapack.cgecon to C string");
6173 if (f2py_success) {
6174 /* Processing variable a */
6175 ;
6176 capi_a_intent |= F2PY_INTENT_IN1;
6177 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
6178 if (capi_a_tmp == NULL((void*)0)) {
6179 if (!PyErr_Occurred())
6180 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgecon to C/Fortran array" );
6181 } else {
6182 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
6183
6184 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
6185 /* Processing variable anorm */
6186 f2py_success = float_from_pyobj(&anorm,anorm_capi,"_flapack.cgecon() 2nd argument (anorm) can't be converted to float");
6187 if (f2py_success) {
6188 /* Processing variable rcond */
6189 /* Processing variable info */
6190 /* Processing variable n */
6191 n = shape(a,0)a_Dims[0];
6192 /* Processing variable lda */
6193 lda = shape(a,0)a_Dims[0];
6194 /* Processing variable work */
6195 work_Dims[0]=2 * n;
6196 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
6197 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
6198 if (capi_work_tmp == NULL((void*)0)) {
6199 if (!PyErr_Occurred())
6200 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgecon to C/Fortran array" );
6201 } else {
6202 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
6203
6204 /* Processing variable irwork */
6205 irwork_Dims[0]=2 * n;
6206 capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
6207 capi_irwork_tmp = array_from_pyobj(NPY_FLOAT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct));
6208 if (capi_irwork_tmp == NULL((void*)0)) {
6209 if (!PyErr_Occurred())
6210 PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.cgecon to C/Fortran array" );
6211 } else {
6212 irwork = (float *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data
)
);
6213
6214/*end of frompyobj*/
6215#ifdef F2PY_REPORT_ATEXIT
6216f2py_start_call_clock();
6217#endif
6218/*callfortranroutine*/
6219 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
6220 (*f2py_func)(norm,&n,a,&lda,&anorm,&rcond,work,irwork,&info) ;
6221 /*(*f2py_func)(norm,&n,a,&lda,&anorm,&rcond,work,irwork,&info,slen(norm));*/
6222 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
6223if (PyErr_Occurred())
6224 f2py_success = 0;
6225#ifdef F2PY_REPORT_ATEXIT
6226f2py_stop_call_clock();
6227#endif
6228/*end of callfortranroutine*/
6229 if (f2py_success) {
6230/*pyobjfrom*/
6231/*end of pyobjfrom*/
6232 CFUNCSMESS("Building return value.\n");
6233 capi_buildvalue = Py_BuildValue("fi",rcond,info);
6234/*closepyobjfrom*/
6235/*end of closepyobjfrom*/
6236 } /*if (f2py_success) after callfortranroutine*/
6237/*cleanupfrompyobj*/
6238 Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp)));
6239 } /*if (capi_irwork_tmp == NULL) ... else of irwork*/
6240 /* End of cleaning variable irwork */
6241 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
6242 } /*if (capi_work_tmp == NULL) ... else of work*/
6243 /* End of cleaning variable work */
6244 /* End of cleaning variable lda */
6245 /* End of cleaning variable n */
6246 /* End of cleaning variable info */
6247 /* End of cleaning variable rcond */
6248 } /*if (f2py_success) of anorm*/
6249 /* End of cleaning variable anorm */
6250 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
6251 if((PyObject *)capi_a_tmp!=a_capi) {
6252 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
6253 } /*if (capi_a_tmp == NULL) ... else of a*/
6254 /* End of cleaning variable a */
6255 STRINGFREE(norm)do {if (!(norm == ((void*)0))) free(norm);} while (0);
6256 } /*if (f2py_success) of norm*/
6257 /* End of cleaning variable norm */
6258/*end of cleanupfrompyobj*/
6259 if (capi_buildvalue == NULL((void*)0)) {
6260/*routdebugfailure*/
6261 } else {
6262/*routdebugleave*/
6263 }
6264 CFUNCSMESS("Freeing memory.\n");
6265/*freemem*/
6266#ifdef F2PY_REPORT_ATEXIT
6267f2py_stop_clock();
6268#endif
6269 return capi_buildvalue;
6270}
6271/******************************* end of cgecon *******************************/
6272
6273/*********************************** zgecon ***********************************/
6274static char doc_f2py_rout__flapack_zgecon[] = "\
6275rcond,info = zgecon(a,anorm,[norm])\n\nWrapper for ``zgecon``.\
6276\n\nParameters\n----------\n"
6277"a : input rank-2 array('D') with bounds (n,n)\n"
6278"anorm : input float\n"
6279"\nOther Parameters\n----------------\n"
6280"norm : input string(len=1), optional\n Default: '1'\n"
6281"\nReturns\n-------\n"
6282"rcond : float\n"
6283"info : int";
6284/* extern void F_FUNC(zgecon,ZGECON)(char*,F_INT*,complex_double*,F_INT*,double*,double*,complex_double*,double*,F_INT* ); */
6285static PyObject *f2py_rout__flapack_zgecon(const PyObject *capi_self,
6286 PyObject *capi_args,
6287 PyObject *capi_keywds,
6288 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,complex_double*,double*,F_INTint* )) {
6289 PyObject * volatile capi_buildvalue = NULL((void*)0);
6290 volatile int f2py_success = 1;
6291/*decl*/
6292
6293 string norm = NULL((void*)0);
6294 int slen(norm)capi_norm_len;
6295 PyObject *norm_capi = Py_None(&_Py_NoneStruct);
6296 int n = 0;
6297 complex_double *a = NULL((void*)0);
6298 npy_intp a_Dims[2] = {-1, -1};
6299 const int a_Rank = 2;
6300 PyArrayObject *capi_a_tmp = NULL((void*)0);
6301 int capi_a_intent = 0;
6302 PyObject *a_capi = Py_None(&_Py_NoneStruct);
6303 int lda = 0;
6304 double anorm = 0;
6305 PyObject *anorm_capi = Py_None(&_Py_NoneStruct);
6306 double rcond = 0;
6307 complex_double *work = NULL((void*)0);
6308 npy_intp work_Dims[1] = {-1};
6309 const int work_Rank = 1;
6310 PyArrayObject *capi_work_tmp = NULL((void*)0);
6311 int capi_work_intent = 0;
6312 double *irwork = NULL((void*)0);
6313 npy_intp irwork_Dims[1] = {-1};
6314 const int irwork_Rank = 1;
6315 PyArrayObject *capi_irwork_tmp = NULL((void*)0);
6316 int capi_irwork_intent = 0;
6317 int info = 0;
6318 static char *capi_kwlist[] = {"a","anorm","norm",NULL((void*)0)};
6319
6320/*routdebugenter*/
6321#ifdef F2PY_REPORT_ATEXIT
6322f2py_start_clock();
6323#endif
6324 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
6325 "OO|O:_flapack.zgecon",\
6326 capi_kwlist,&a_capi,&anorm_capi,&norm_capi))
6327 return NULL((void*)0);
6328/*frompyobj*/
6329 /* Processing variable norm */
6330 slen(norm)capi_norm_len = 1;
6331 f2py_success = string_from_pyobj(&norm,&slen(norm)capi_norm_len,"1",norm_capi,"string_from_pyobj failed in converting 1st keyword `norm' of _flapack.zgecon to C string");
6332 if (f2py_success) {
6333 /* Processing variable a */
6334 ;
6335 capi_a_intent |= F2PY_INTENT_IN1;
6336 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
6337 if (capi_a_tmp == NULL((void*)0)) {
6338 if (!PyErr_Occurred())
6339 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgecon to C/Fortran array" );
6340 } else {
6341 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
6342
6343 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
6344 /* Processing variable anorm */
6345 f2py_success = double_from_pyobj(&anorm,anorm_capi,"_flapack.zgecon() 2nd argument (anorm) can't be converted to double");
6346 if (f2py_success) {
6347 /* Processing variable rcond */
6348 /* Processing variable info */
6349 /* Processing variable n */
6350 n = shape(a,0)a_Dims[0];
6351 /* Processing variable lda */
6352 lda = shape(a,0)a_Dims[0];
6353 /* Processing variable work */
6354 work_Dims[0]=2 * n;
6355 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
6356 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
6357 if (capi_work_tmp == NULL((void*)0)) {
6358 if (!PyErr_Occurred())
6359 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgecon to C/Fortran array" );
6360 } else {
6361 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
6362
6363 /* Processing variable irwork */
6364 irwork_Dims[0]=2 * n;
6365 capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
6366 capi_irwork_tmp = array_from_pyobj(NPY_DOUBLE,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct));
6367 if (capi_irwork_tmp == NULL((void*)0)) {
6368 if (!PyErr_Occurred())
6369 PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.zgecon to C/Fortran array" );
6370 } else {
6371 irwork = (double *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data
)
);
6372
6373/*end of frompyobj*/
6374#ifdef F2PY_REPORT_ATEXIT
6375f2py_start_call_clock();
6376#endif
6377/*callfortranroutine*/
6378 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
6379 (*f2py_func)(norm,&n,a,&lda,&anorm,&rcond,work,irwork,&info) ;
6380 /*(*f2py_func)(norm,&n,a,&lda,&anorm,&rcond,work,irwork,&info,slen(norm));*/
6381 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
6382if (PyErr_Occurred())
6383 f2py_success = 0;
6384#ifdef F2PY_REPORT_ATEXIT
6385f2py_stop_call_clock();
6386#endif
6387/*end of callfortranroutine*/
6388 if (f2py_success) {
6389/*pyobjfrom*/
6390/*end of pyobjfrom*/
6391 CFUNCSMESS("Building return value.\n");
6392 capi_buildvalue = Py_BuildValue("di",rcond,info);
6393/*closepyobjfrom*/
6394/*end of closepyobjfrom*/
6395 } /*if (f2py_success) after callfortranroutine*/
6396/*cleanupfrompyobj*/
6397 Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp)));
6398 } /*if (capi_irwork_tmp == NULL) ... else of irwork*/
6399 /* End of cleaning variable irwork */
6400 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
6401 } /*if (capi_work_tmp == NULL) ... else of work*/
6402 /* End of cleaning variable work */
6403 /* End of cleaning variable lda */
6404 /* End of cleaning variable n */
6405 /* End of cleaning variable info */
6406 /* End of cleaning variable rcond */
6407 } /*if (f2py_success) of anorm*/
6408 /* End of cleaning variable anorm */
6409 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
6410 if((PyObject *)capi_a_tmp!=a_capi) {
6411 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
6412 } /*if (capi_a_tmp == NULL) ... else of a*/
6413 /* End of cleaning variable a */
6414 STRINGFREE(norm)do {if (!(norm == ((void*)0))) free(norm);} while (0);
6415 } /*if (f2py_success) of norm*/
6416 /* End of cleaning variable norm */
6417/*end of cleanupfrompyobj*/
6418 if (capi_buildvalue == NULL((void*)0)) {
6419/*routdebugfailure*/
6420 } else {
6421/*routdebugleave*/
6422 }
6423 CFUNCSMESS("Freeing memory.\n");
6424/*freemem*/
6425#ifdef F2PY_REPORT_ATEXIT
6426f2py_stop_clock();
6427#endif
6428 return capi_buildvalue;
6429}
6430/******************************* end of zgecon *******************************/
6431
6432/*********************************** sgetrf ***********************************/
6433static char doc_f2py_rout__flapack_sgetrf[] = "\
6434lu,piv,info = sgetrf(a,[overwrite_a])\n\nWrapper for ``sgetrf``.\
6435\n\nParameters\n----------\n"
6436"a : input rank-2 array('f') with bounds (m,n)\n"
6437"\nOther Parameters\n----------------\n"
6438"overwrite_a : input int, optional\n Default: 0\n"
6439"\nReturns\n-------\n"
6440"lu : rank-2 array('f') with bounds (m,n) and a storage\n"
6441"piv : rank-1 array('i') with bounds (MIN(m,n))\n"
6442"info : int";
6443/* extern void F_FUNC(sgetrf,SGETRF)(F_INT*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */
6444static PyObject *f2py_rout__flapack_sgetrf(const PyObject *capi_self,
6445 PyObject *capi_args,
6446 PyObject *capi_keywds,
6447 void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) {
6448 PyObject * volatile capi_buildvalue = NULL((void*)0);
6449 volatile int f2py_success = 1;
6450/*decl*/
6451
6452 int m = 0;
6453 int n = 0;
6454 float *a = NULL((void*)0);
6455 npy_intp a_Dims[2] = {-1, -1};
6456 const int a_Rank = 2;
6457 PyArrayObject *capi_a_tmp = NULL((void*)0);
6458 int capi_a_intent = 0;
6459 int capi_overwrite_a = 0;
6460 PyObject *a_capi = Py_None(&_Py_NoneStruct);
6461 int *piv = NULL((void*)0);
6462 npy_intp piv_Dims[1] = {-1};
6463 const int piv_Rank = 1;
6464 PyArrayObject *capi_piv_tmp = NULL((void*)0);
6465 int capi_piv_intent = 0;
6466 int info = 0;
6467 static char *capi_kwlist[] = {"a","overwrite_a",NULL((void*)0)};
6468
6469/*routdebugenter*/
6470#ifdef F2PY_REPORT_ATEXIT
6471f2py_start_clock();
6472#endif
6473 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
6474 "O|i:_flapack.sgetrf",\
6475 capi_kwlist,&a_capi,&capi_overwrite_a))
6476 return NULL((void*)0);
6477/*frompyobj*/
6478 /* Processing variable a */
6479 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
6480 ;
6481 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
6482 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
6483 if (capi_a_tmp == NULL((void*)0)) {
6484 if (!PyErr_Occurred())
6485 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgetrf to C/Fortran array" );
6486 } else {
6487 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
6488
6489 /* Processing variable info */
6490 /* Processing variable m */
6491 m = shape(a,0)a_Dims[0];
6492 /* Processing variable n */
6493 n = shape(a,1)a_Dims[1];
6494 /* Processing variable piv */
6495 piv_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
6496 capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
6497 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct));
6498 if (capi_piv_tmp == NULL((void*)0)) {
6499 if (!PyErr_Occurred())
6500 PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.sgetrf to C/Fortran array" );
6501 } else {
6502 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
6503
6504/*end of frompyobj*/
6505#ifdef F2PY_REPORT_ATEXIT
6506f2py_start_call_clock();
6507#endif
6508/*callfortranroutine*/
6509 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
6510 {F_INTint i;(*f2py_func)(&m,&n,a,&m,piv,&info);for(i=0,n=MIN(m,n)((m < n) ? (m) : (n));i<n;--piv[i++]);} ;
6511 /*(*f2py_func)(&m,&n,a,piv,&info);*/
6512 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
6513if (PyErr_Occurred())
6514 f2py_success = 0;
6515#ifdef F2PY_REPORT_ATEXIT
6516f2py_stop_call_clock();
6517#endif
6518/*end of callfortranroutine*/
6519 if (f2py_success) {
6520/*pyobjfrom*/
6521/*end of pyobjfrom*/
6522 CFUNCSMESS("Building return value.\n");
6523 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_piv_tmp,info);
6524/*closepyobjfrom*/
6525/*end of closepyobjfrom*/
6526 } /*if (f2py_success) after callfortranroutine*/
6527/*cleanupfrompyobj*/
6528 } /*if (capi_piv_tmp == NULL) ... else of piv*/
6529 /* End of cleaning variable piv */
6530 /* End of cleaning variable n */
6531 /* End of cleaning variable m */
6532 /* End of cleaning variable info */
6533 } /*if (capi_a_tmp == NULL) ... else of a*/
6534 /* End of cleaning variable a */
6535/*end of cleanupfrompyobj*/
6536 if (capi_buildvalue == NULL((void*)0)) {
6537/*routdebugfailure*/
6538 } else {
6539/*routdebugleave*/
6540 }
6541 CFUNCSMESS("Freeing memory.\n");
6542/*freemem*/
6543#ifdef F2PY_REPORT_ATEXIT
6544f2py_stop_clock();
6545#endif
6546 return capi_buildvalue;
6547}
6548/******************************* end of sgetrf *******************************/
6549
6550/*********************************** dgetrf ***********************************/
6551static char doc_f2py_rout__flapack_dgetrf[] = "\
6552lu,piv,info = dgetrf(a,[overwrite_a])\n\nWrapper for ``dgetrf``.\
6553\n\nParameters\n----------\n"
6554"a : input rank-2 array('d') with bounds (m,n)\n"
6555"\nOther Parameters\n----------------\n"
6556"overwrite_a : input int, optional\n Default: 0\n"
6557"\nReturns\n-------\n"
6558"lu : rank-2 array('d') with bounds (m,n) and a storage\n"
6559"piv : rank-1 array('i') with bounds (MIN(m,n))\n"
6560"info : int";
6561/* extern void F_FUNC(dgetrf,DGETRF)(F_INT*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */
6562static PyObject *f2py_rout__flapack_dgetrf(const PyObject *capi_self,
6563 PyObject *capi_args,
6564 PyObject *capi_keywds,
6565 void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) {
6566 PyObject * volatile capi_buildvalue = NULL((void*)0);
6567 volatile int f2py_success = 1;
6568/*decl*/
6569
6570 int m = 0;
6571 int n = 0;
6572 double *a = NULL((void*)0);
6573 npy_intp a_Dims[2] = {-1, -1};
6574 const int a_Rank = 2;
6575 PyArrayObject *capi_a_tmp = NULL((void*)0);
6576 int capi_a_intent = 0;
6577 int capi_overwrite_a = 0;
6578 PyObject *a_capi = Py_None(&_Py_NoneStruct);
6579 int *piv = NULL((void*)0);
6580 npy_intp piv_Dims[1] = {-1};
6581 const int piv_Rank = 1;
6582 PyArrayObject *capi_piv_tmp = NULL((void*)0);
6583 int capi_piv_intent = 0;
6584 int info = 0;
6585 static char *capi_kwlist[] = {"a","overwrite_a",NULL((void*)0)};
6586
6587/*routdebugenter*/
6588#ifdef F2PY_REPORT_ATEXIT
6589f2py_start_clock();
6590#endif
6591 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
6592 "O|i:_flapack.dgetrf",\
6593 capi_kwlist,&a_capi,&capi_overwrite_a))
6594 return NULL((void*)0);
6595/*frompyobj*/
6596 /* Processing variable a */
6597 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
6598 ;
6599 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
6600 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
6601 if (capi_a_tmp == NULL((void*)0)) {
6602 if (!PyErr_Occurred())
6603 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgetrf to C/Fortran array" );
6604 } else {
6605 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
6606
6607 /* Processing variable info */
6608 /* Processing variable m */
6609 m = shape(a,0)a_Dims[0];
6610 /* Processing variable n */
6611 n = shape(a,1)a_Dims[1];
6612 /* Processing variable piv */
6613 piv_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
6614 capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
6615 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct));
6616 if (capi_piv_tmp == NULL((void*)0)) {
6617 if (!PyErr_Occurred())
6618 PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.dgetrf to C/Fortran array" );
6619 } else {
6620 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
6621
6622/*end of frompyobj*/
6623#ifdef F2PY_REPORT_ATEXIT
6624f2py_start_call_clock();
6625#endif
6626/*callfortranroutine*/
6627 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
6628 {F_INTint i;(*f2py_func)(&m,&n,a,&m,piv,&info);for(i=0,n=MIN(m,n)((m < n) ? (m) : (n));i<n;--piv[i++]);} ;
6629 /*(*f2py_func)(&m,&n,a,piv,&info);*/
6630 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
6631if (PyErr_Occurred())
6632 f2py_success = 0;
6633#ifdef F2PY_REPORT_ATEXIT
6634f2py_stop_call_clock();
6635#endif
6636/*end of callfortranroutine*/
6637 if (f2py_success) {
6638/*pyobjfrom*/
6639/*end of pyobjfrom*/
6640 CFUNCSMESS("Building return value.\n");
6641 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_piv_tmp,info);
6642/*closepyobjfrom*/
6643/*end of closepyobjfrom*/
6644 } /*if (f2py_success) after callfortranroutine*/
6645/*cleanupfrompyobj*/
6646 } /*if (capi_piv_tmp == NULL) ... else of piv*/
6647 /* End of cleaning variable piv */
6648 /* End of cleaning variable n */
6649 /* End of cleaning variable m */
6650 /* End of cleaning variable info */
6651 } /*if (capi_a_tmp == NULL) ... else of a*/
6652 /* End of cleaning variable a */
6653/*end of cleanupfrompyobj*/
6654 if (capi_buildvalue == NULL((void*)0)) {
6655/*routdebugfailure*/
6656 } else {
6657/*routdebugleave*/
6658 }
6659 CFUNCSMESS("Freeing memory.\n");
6660/*freemem*/
6661#ifdef F2PY_REPORT_ATEXIT
6662f2py_stop_clock();
6663#endif
6664 return capi_buildvalue;
6665}
6666/******************************* end of dgetrf *******************************/
6667
6668/*********************************** cgetrf ***********************************/
6669static char doc_f2py_rout__flapack_cgetrf[] = "\
6670lu,piv,info = cgetrf(a,[overwrite_a])\n\nWrapper for ``cgetrf``.\
6671\n\nParameters\n----------\n"
6672"a : input rank-2 array('F') with bounds (m,n)\n"
6673"\nOther Parameters\n----------------\n"
6674"overwrite_a : input int, optional\n Default: 0\n"
6675"\nReturns\n-------\n"
6676"lu : rank-2 array('F') with bounds (m,n) and a storage\n"
6677"piv : rank-1 array('i') with bounds (MIN(m,n))\n"
6678"info : int";
6679/* extern void F_FUNC(cgetrf,CGETRF)(F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,F_INT* ); */
6680static PyObject *f2py_rout__flapack_cgetrf(const PyObject *capi_self,
6681 PyObject *capi_args,
6682 PyObject *capi_keywds,
6683 void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint* )) {
6684 PyObject * volatile capi_buildvalue = NULL((void*)0);
6685 volatile int f2py_success = 1;
6686/*decl*/
6687
6688 int m = 0;
6689 int n = 0;
6690 complex_float *a = NULL((void*)0);
6691 npy_intp a_Dims[2] = {-1, -1};
6692 const int a_Rank = 2;
6693 PyArrayObject *capi_a_tmp = NULL((void*)0);
6694 int capi_a_intent = 0;
6695 int capi_overwrite_a = 0;
6696 PyObject *a_capi = Py_None(&_Py_NoneStruct);
6697 int *piv = NULL((void*)0);
6698 npy_intp piv_Dims[1] = {-1};
6699 const int piv_Rank = 1;
6700 PyArrayObject *capi_piv_tmp = NULL((void*)0);
6701 int capi_piv_intent = 0;
6702 int info = 0;
6703 static char *capi_kwlist[] = {"a","overwrite_a",NULL((void*)0)};
6704
6705/*routdebugenter*/
6706#ifdef F2PY_REPORT_ATEXIT
6707f2py_start_clock();
6708#endif
6709 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
6710 "O|i:_flapack.cgetrf",\
6711 capi_kwlist,&a_capi,&capi_overwrite_a))
6712 return NULL((void*)0);
6713/*frompyobj*/
6714 /* Processing variable a */
6715 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
6716 ;
6717 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
6718 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
6719 if (capi_a_tmp == NULL((void*)0)) {
6720 if (!PyErr_Occurred())
6721 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgetrf to C/Fortran array" );
6722 } else {
6723 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
6724
6725 /* Processing variable info */
6726 /* Processing variable m */
6727 m = shape(a,0)a_Dims[0];
6728 /* Processing variable n */
6729 n = shape(a,1)a_Dims[1];
6730 /* Processing variable piv */
6731 piv_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
6732 capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
6733 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct));
6734 if (capi_piv_tmp == NULL((void*)0)) {
6735 if (!PyErr_Occurred())
6736 PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.cgetrf to C/Fortran array" );
6737 } else {
6738 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
6739
6740/*end of frompyobj*/
6741#ifdef F2PY_REPORT_ATEXIT
6742f2py_start_call_clock();
6743#endif
6744/*callfortranroutine*/
6745 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
6746 {F_INTint i;(*f2py_func)(&m,&n,a,&m,piv,&info);for(i=0,n=MIN(m,n)((m < n) ? (m) : (n));i<n;--piv[i++]);} ;
6747 /*(*f2py_func)(&m,&n,a,piv,&info);*/
6748 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
6749if (PyErr_Occurred())
6750 f2py_success = 0;
6751#ifdef F2PY_REPORT_ATEXIT
6752f2py_stop_call_clock();
6753#endif
6754/*end of callfortranroutine*/
6755 if (f2py_success) {
6756/*pyobjfrom*/
6757/*end of pyobjfrom*/
6758 CFUNCSMESS("Building return value.\n");
6759 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_piv_tmp,info);
6760/*closepyobjfrom*/
6761/*end of closepyobjfrom*/
6762 } /*if (f2py_success) after callfortranroutine*/
6763/*cleanupfrompyobj*/
6764 } /*if (capi_piv_tmp == NULL) ... else of piv*/
6765 /* End of cleaning variable piv */
6766 /* End of cleaning variable n */
6767 /* End of cleaning variable m */
6768 /* End of cleaning variable info */
6769 } /*if (capi_a_tmp == NULL) ... else of a*/
6770 /* End of cleaning variable a */
6771/*end of cleanupfrompyobj*/
6772 if (capi_buildvalue == NULL((void*)0)) {
6773/*routdebugfailure*/
6774 } else {
6775/*routdebugleave*/
6776 }
6777 CFUNCSMESS("Freeing memory.\n");
6778/*freemem*/
6779#ifdef F2PY_REPORT_ATEXIT
6780f2py_stop_clock();
6781#endif
6782 return capi_buildvalue;
6783}
6784/******************************* end of cgetrf *******************************/
6785
6786/*********************************** zgetrf ***********************************/
6787static char doc_f2py_rout__flapack_zgetrf[] = "\
6788lu,piv,info = zgetrf(a,[overwrite_a])\n\nWrapper for ``zgetrf``.\
6789\n\nParameters\n----------\n"
6790"a : input rank-2 array('D') with bounds (m,n)\n"
6791"\nOther Parameters\n----------------\n"
6792"overwrite_a : input int, optional\n Default: 0\n"
6793"\nReturns\n-------\n"
6794"lu : rank-2 array('D') with bounds (m,n) and a storage\n"
6795"piv : rank-1 array('i') with bounds (MIN(m,n))\n"
6796"info : int";
6797/* extern void F_FUNC(zgetrf,ZGETRF)(F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,F_INT* ); */
6798static PyObject *f2py_rout__flapack_zgetrf(const PyObject *capi_self,
6799 PyObject *capi_args,
6800 PyObject *capi_keywds,
6801 void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint* )) {
6802 PyObject * volatile capi_buildvalue = NULL((void*)0);
6803 volatile int f2py_success = 1;
6804/*decl*/
6805
6806 int m = 0;
6807 int n = 0;
6808 complex_double *a = NULL((void*)0);
6809 npy_intp a_Dims[2] = {-1, -1};
6810 const int a_Rank = 2;
6811 PyArrayObject *capi_a_tmp = NULL((void*)0);
6812 int capi_a_intent = 0;
6813 int capi_overwrite_a = 0;
6814 PyObject *a_capi = Py_None(&_Py_NoneStruct);
6815 int *piv = NULL((void*)0);
6816 npy_intp piv_Dims[1] = {-1};
6817 const int piv_Rank = 1;
6818 PyArrayObject *capi_piv_tmp = NULL((void*)0);
6819 int capi_piv_intent = 0;
6820 int info = 0;
6821 static char *capi_kwlist[] = {"a","overwrite_a",NULL((void*)0)};
6822
6823/*routdebugenter*/
6824#ifdef F2PY_REPORT_ATEXIT
6825f2py_start_clock();
6826#endif
6827 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
6828 "O|i:_flapack.zgetrf",\
6829 capi_kwlist,&a_capi,&capi_overwrite_a))
6830 return NULL((void*)0);
6831/*frompyobj*/
6832 /* Processing variable a */
6833 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
6834 ;
6835 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
6836 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
6837 if (capi_a_tmp == NULL((void*)0)) {
6838 if (!PyErr_Occurred())
6839 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgetrf to C/Fortran array" );
6840 } else {
6841 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
6842
6843 /* Processing variable info */
6844 /* Processing variable m */
6845 m = shape(a,0)a_Dims[0];
6846 /* Processing variable n */
6847 n = shape(a,1)a_Dims[1];
6848 /* Processing variable piv */
6849 piv_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
6850 capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
6851 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct));
6852 if (capi_piv_tmp == NULL((void*)0)) {
6853 if (!PyErr_Occurred())
6854 PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.zgetrf to C/Fortran array" );
6855 } else {
6856 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
6857
6858/*end of frompyobj*/
6859#ifdef F2PY_REPORT_ATEXIT
6860f2py_start_call_clock();
6861#endif
6862/*callfortranroutine*/
6863 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
6864 {F_INTint i;(*f2py_func)(&m,&n,a,&m,piv,&info);for(i=0,n=MIN(m,n)((m < n) ? (m) : (n));i<n;--piv[i++]);} ;
6865 /*(*f2py_func)(&m,&n,a,piv,&info);*/
6866 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
6867if (PyErr_Occurred())
6868 f2py_success = 0;
6869#ifdef F2PY_REPORT_ATEXIT
6870f2py_stop_call_clock();
6871#endif
6872/*end of callfortranroutine*/
6873 if (f2py_success) {
6874/*pyobjfrom*/
6875/*end of pyobjfrom*/
6876 CFUNCSMESS("Building return value.\n");
6877 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_piv_tmp,info);
6878/*closepyobjfrom*/
6879/*end of closepyobjfrom*/
6880 } /*if (f2py_success) after callfortranroutine*/
6881/*cleanupfrompyobj*/
6882 } /*if (capi_piv_tmp == NULL) ... else of piv*/
6883 /* End of cleaning variable piv */
6884 /* End of cleaning variable n */
6885 /* End of cleaning variable m */
6886 /* End of cleaning variable info */
6887 } /*if (capi_a_tmp == NULL) ... else of a*/
6888 /* End of cleaning variable a */
6889/*end of cleanupfrompyobj*/
6890 if (capi_buildvalue == NULL((void*)0)) {
6891/*routdebugfailure*/
6892 } else {
6893/*routdebugleave*/
6894 }
6895 CFUNCSMESS("Freeing memory.\n");
6896/*freemem*/
6897#ifdef F2PY_REPORT_ATEXIT
6898f2py_stop_clock();
6899#endif
6900 return capi_buildvalue;
6901}
6902/******************************* end of zgetrf *******************************/
6903
6904/*********************************** sgetrs ***********************************/
6905static char doc_f2py_rout__flapack_sgetrs[] = "\
6906x,info = sgetrs(lu,piv,b,[trans,overwrite_b])\n\nWrapper for ``sgetrs``.\
6907\n\nParameters\n----------\n"
6908"lu : input rank-2 array('f') with bounds (n,n)\n"
6909"piv : input rank-1 array('i') with bounds (n)\n"
6910"b : input rank-2 array('f') with bounds (n,nrhs)\n"
6911"\nOther Parameters\n----------------\n"
6912"overwrite_b : input int, optional\n Default: 0\n"
6913"trans : input int, optional\n Default: 0\n"
6914"\nReturns\n-------\n"
6915"x : rank-2 array('f') with bounds (n,nrhs) and b storage\n"
6916"info : int";
6917/* extern void F_FUNC(sgetrs,SGETRS)(char*,F_INT*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */
6918static PyObject *f2py_rout__flapack_sgetrs(const PyObject *capi_self,
6919 PyObject *capi_args,
6920 PyObject *capi_keywds,
6921 void (*f2py_func)(char*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) {
6922 PyObject * volatile capi_buildvalue = NULL((void*)0);
6923 volatile int f2py_success = 1;
6924/*decl*/
6925
6926 int n = 0;
6927 int nrhs = 0;
6928 float *lu = NULL((void*)0);
6929 npy_intp lu_Dims[2] = {-1, -1};
6930 const int lu_Rank = 2;
6931 PyArrayObject *capi_lu_tmp = NULL((void*)0);
6932 int capi_lu_intent = 0;
6933 PyObject *lu_capi = Py_None(&_Py_NoneStruct);
6934 int *piv = NULL((void*)0);
6935 npy_intp piv_Dims[1] = {-1};
6936 const int piv_Rank = 1;
6937 PyArrayObject *capi_piv_tmp = NULL((void*)0);
6938 int capi_piv_intent = 0;
6939 PyObject *piv_capi = Py_None(&_Py_NoneStruct);
6940 float *b = NULL((void*)0);
6941 npy_intp b_Dims[2] = {-1, -1};
6942 const int b_Rank = 2;
6943 PyArrayObject *capi_b_tmp = NULL((void*)0);
6944 int capi_b_intent = 0;
6945 int capi_overwrite_b = 0;
6946 PyObject *b_capi = Py_None(&_Py_NoneStruct);
6947 int info = 0;
6948 int trans = 0;
6949 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
6950 static char *capi_kwlist[] = {"lu","piv","b","trans","overwrite_b",NULL((void*)0)};
6951
6952/*routdebugenter*/
6953#ifdef F2PY_REPORT_ATEXIT
6954f2py_start_clock();
6955#endif
6956 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
6957 "OOO|Oi:_flapack.sgetrs",\
6958 capi_kwlist,&lu_capi,&piv_capi,&b_capi,&trans_capi,&capi_overwrite_b))
6959 return NULL((void*)0);
6960/*frompyobj*/
6961 /* Processing variable trans */
6962 if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else
6963 f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.sgetrs() 1st keyword (trans) can't be converted to int");
6964 if (f2py_success) {
6965 CHECKSCALAR(trans>=0 && trans <=2,"trans>=0 && trans <=2","1st keyword trans","sgetrs:trans=%d",trans)if (!(trans>=0 && trans <=2)) { char errstring[
256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""sgetrs:trans=%d", "(""trans>=0 && trans <=2"
") failed for ""1st keyword trans", trans); PyErr_SetString(_flapack_error
,errstring); } else
{
6966 /* Processing variable lu */
6967 ;
6968 capi_lu_intent |= F2PY_INTENT_IN1;
6969 capi_lu_tmp = array_from_pyobj(NPY_FLOAT,lu_Dims,lu_Rank,capi_lu_intent,lu_capi);
6970 if (capi_lu_tmp == NULL((void*)0)) {
6971 if (!PyErr_Occurred())
6972 PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.sgetrs to C/Fortran array" );
6973 } else {
6974 lu = (float *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data));
6975
6976 CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu"
); } else
{
6977 /* Processing variable info */
6978 /* Processing variable n */
6979 n = shape(lu,0)lu_Dims[0];
6980 /* Processing variable piv */
6981 piv_Dims[0]=n;
6982 capi_piv_intent |= F2PY_INTENT_IN1;
6983 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi);
6984 if (capi_piv_tmp == NULL((void*)0)) {
6985 if (!PyErr_Occurred())
6986 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.sgetrs to C/Fortran array" );
6987 } else {
6988 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
6989
6990 /* Processing variable b */
6991 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
6992 b_Dims[0]=n;
6993 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
6994 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
6995 if (capi_b_tmp == NULL((void*)0)) {
6996 if (!PyErr_Occurred())
6997 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.sgetrs to C/Fortran array" );
6998 } else {
6999 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
7000
7001 CHECKARRAY(shape(lu,0)==shape(b,0),"shape(lu,0)==shape(b,0)","3rd argument b")if (!(lu_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(lu,0)==shape(b,0)"") failed for ""3rd argument b")
; } else
{
7002 /* Processing variable nrhs */
7003 nrhs = shape(b,1)b_Dims[1];
7004/*end of frompyobj*/
7005#ifdef F2PY_REPORT_ATEXIT
7006f2py_start_call_clock();
7007#endif
7008/*callfortranroutine*/
7009 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
7010 {F_INTint i;for(i=0;i<n;++piv[i++]);(*f2py_func)((trans?(trans==2?"C":"T"):"N"),&n,&nrhs,lu,&n,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ;
7011 /*(*f2py_func)(&n,&nrhs,lu,piv,b,&info,&trans);*/
7012 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
7013if (PyErr_Occurred())
7014 f2py_success = 0;
7015#ifdef F2PY_REPORT_ATEXIT
7016f2py_stop_call_clock();
7017#endif
7018/*end of callfortranroutine*/
7019 if (f2py_success) {
7020/*pyobjfrom*/
7021/*end of pyobjfrom*/
7022 CFUNCSMESS("Building return value.\n");
7023 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
7024/*closepyobjfrom*/
7025/*end of closepyobjfrom*/
7026 } /*if (f2py_success) after callfortranroutine*/
7027/*cleanupfrompyobj*/
7028 /* End of cleaning variable nrhs */
7029 } /*CHECKARRAY(shape(lu,0)==shape(b,0))*/
7030 } /*if (capi_b_tmp == NULL) ... else of b*/
7031 /* End of cleaning variable b */
7032 if((PyObject *)capi_piv_tmp!=piv_capi) {
7033 Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); }
7034 } /*if (capi_piv_tmp == NULL) ... else of piv*/
7035 /* End of cleaning variable piv */
7036 /* End of cleaning variable n */
7037 /* End of cleaning variable info */
7038 } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/
7039 if((PyObject *)capi_lu_tmp!=lu_capi) {
7040 Py_XDECREF(capi_lu_tmp)_Py_XDECREF(((PyObject*)(capi_lu_tmp))); }
7041 } /*if (capi_lu_tmp == NULL) ... else of lu*/
7042 /* End of cleaning variable lu */
7043 } /*CHECKSCALAR(trans>=0 && trans <=2)*/
7044 } /*if (f2py_success) of trans*/
7045 /* End of cleaning variable trans */
7046/*end of cleanupfrompyobj*/
7047 if (capi_buildvalue == NULL((void*)0)) {
7048/*routdebugfailure*/
7049 } else {
7050/*routdebugleave*/
7051 }
7052 CFUNCSMESS("Freeing memory.\n");
7053/*freemem*/
7054#ifdef F2PY_REPORT_ATEXIT
7055f2py_stop_clock();
7056#endif
7057 return capi_buildvalue;
7058}
7059/******************************* end of sgetrs *******************************/
7060
7061/*********************************** dgetrs ***********************************/
7062static char doc_f2py_rout__flapack_dgetrs[] = "\
7063x,info = dgetrs(lu,piv,b,[trans,overwrite_b])\n\nWrapper for ``dgetrs``.\
7064\n\nParameters\n----------\n"
7065"lu : input rank-2 array('d') with bounds (n,n)\n"
7066"piv : input rank-1 array('i') with bounds (n)\n"
7067"b : input rank-2 array('d') with bounds (n,nrhs)\n"
7068"\nOther Parameters\n----------------\n"
7069"overwrite_b : input int, optional\n Default: 0\n"
7070"trans : input int, optional\n Default: 0\n"
7071"\nReturns\n-------\n"
7072"x : rank-2 array('d') with bounds (n,nrhs) and b storage\n"
7073"info : int";
7074/* extern void F_FUNC(dgetrs,DGETRS)(char*,F_INT*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */
7075static PyObject *f2py_rout__flapack_dgetrs(const PyObject *capi_self,
7076 PyObject *capi_args,
7077 PyObject *capi_keywds,
7078 void (*f2py_func)(char*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) {
7079 PyObject * volatile capi_buildvalue = NULL((void*)0);
7080 volatile int f2py_success = 1;
7081/*decl*/
7082
7083 int n = 0;
7084 int nrhs = 0;
7085 double *lu = NULL((void*)0);
7086 npy_intp lu_Dims[2] = {-1, -1};
7087 const int lu_Rank = 2;
7088 PyArrayObject *capi_lu_tmp = NULL((void*)0);
7089 int capi_lu_intent = 0;
7090 PyObject *lu_capi = Py_None(&_Py_NoneStruct);
7091 int *piv = NULL((void*)0);
7092 npy_intp piv_Dims[1] = {-1};
7093 const int piv_Rank = 1;
7094 PyArrayObject *capi_piv_tmp = NULL((void*)0);
7095 int capi_piv_intent = 0;
7096 PyObject *piv_capi = Py_None(&_Py_NoneStruct);
7097 double *b = NULL((void*)0);
7098 npy_intp b_Dims[2] = {-1, -1};
7099 const int b_Rank = 2;
7100 PyArrayObject *capi_b_tmp = NULL((void*)0);
7101 int capi_b_intent = 0;
7102 int capi_overwrite_b = 0;
7103 PyObject *b_capi = Py_None(&_Py_NoneStruct);
7104 int info = 0;
7105 int trans = 0;
7106 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
7107 static char *capi_kwlist[] = {"lu","piv","b","trans","overwrite_b",NULL((void*)0)};
7108
7109/*routdebugenter*/
7110#ifdef F2PY_REPORT_ATEXIT
7111f2py_start_clock();
7112#endif
7113 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
7114 "OOO|Oi:_flapack.dgetrs",\
7115 capi_kwlist,&lu_capi,&piv_capi,&b_capi,&trans_capi,&capi_overwrite_b))
7116 return NULL((void*)0);
7117/*frompyobj*/
7118 /* Processing variable trans */
7119 if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else
7120 f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.dgetrs() 1st keyword (trans) can't be converted to int");
7121 if (f2py_success) {
7122 CHECKSCALAR(trans>=0 && trans <=2,"trans>=0 && trans <=2","1st keyword trans","dgetrs:trans=%d",trans)if (!(trans>=0 && trans <=2)) { char errstring[
256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dgetrs:trans=%d", "(""trans>=0 && trans <=2"
") failed for ""1st keyword trans", trans); PyErr_SetString(_flapack_error
,errstring); } else
{
7123 /* Processing variable lu */
7124 ;
7125 capi_lu_intent |= F2PY_INTENT_IN1;
7126 capi_lu_tmp = array_from_pyobj(NPY_DOUBLE,lu_Dims,lu_Rank,capi_lu_intent,lu_capi);
7127 if (capi_lu_tmp == NULL((void*)0)) {
7128 if (!PyErr_Occurred())
7129 PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.dgetrs to C/Fortran array" );
7130 } else {
7131 lu = (double *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data));
7132
7133 CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu"
); } else
{
7134 /* Processing variable info */
7135 /* Processing variable n */
7136 n = shape(lu,0)lu_Dims[0];
7137 /* Processing variable piv */
7138 piv_Dims[0]=n;
7139 capi_piv_intent |= F2PY_INTENT_IN1;
7140 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi);
7141 if (capi_piv_tmp == NULL((void*)0)) {
7142 if (!PyErr_Occurred())
7143 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.dgetrs to C/Fortran array" );
7144 } else {
7145 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
7146
7147 /* Processing variable b */
7148 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
7149 b_Dims[0]=n;
7150 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
7151 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
7152 if (capi_b_tmp == NULL((void*)0)) {
7153 if (!PyErr_Occurred())
7154 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.dgetrs to C/Fortran array" );
7155 } else {
7156 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
7157
7158 CHECKARRAY(shape(lu,0)==shape(b,0),"shape(lu,0)==shape(b,0)","3rd argument b")if (!(lu_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(lu,0)==shape(b,0)"") failed for ""3rd argument b")
; } else
{
7159 /* Processing variable nrhs */
7160 nrhs = shape(b,1)b_Dims[1];
7161/*end of frompyobj*/
7162#ifdef F2PY_REPORT_ATEXIT
7163f2py_start_call_clock();
7164#endif
7165/*callfortranroutine*/
7166 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
7167 {F_INTint i;for(i=0;i<n;++piv[i++]);(*f2py_func)((trans?(trans==2?"C":"T"):"N"),&n,&nrhs,lu,&n,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ;
7168 /*(*f2py_func)(&n,&nrhs,lu,piv,b,&info,&trans);*/
7169 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
7170if (PyErr_Occurred())
7171 f2py_success = 0;
7172#ifdef F2PY_REPORT_ATEXIT
7173f2py_stop_call_clock();
7174#endif
7175/*end of callfortranroutine*/
7176 if (f2py_success) {
7177/*pyobjfrom*/
7178/*end of pyobjfrom*/
7179 CFUNCSMESS("Building return value.\n");
7180 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
7181/*closepyobjfrom*/
7182/*end of closepyobjfrom*/
7183 } /*if (f2py_success) after callfortranroutine*/
7184/*cleanupfrompyobj*/
7185 /* End of cleaning variable nrhs */
7186 } /*CHECKARRAY(shape(lu,0)==shape(b,0))*/
7187 } /*if (capi_b_tmp == NULL) ... else of b*/
7188 /* End of cleaning variable b */
7189 if((PyObject *)capi_piv_tmp!=piv_capi) {
7190 Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); }
7191 } /*if (capi_piv_tmp == NULL) ... else of piv*/
7192 /* End of cleaning variable piv */
7193 /* End of cleaning variable n */
7194 /* End of cleaning variable info */
7195 } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/
7196 if((PyObject *)capi_lu_tmp!=lu_capi) {
7197 Py_XDECREF(capi_lu_tmp)_Py_XDECREF(((PyObject*)(capi_lu_tmp))); }
7198 } /*if (capi_lu_tmp == NULL) ... else of lu*/
7199 /* End of cleaning variable lu */
7200 } /*CHECKSCALAR(trans>=0 && trans <=2)*/
7201 } /*if (f2py_success) of trans*/
7202 /* End of cleaning variable trans */
7203/*end of cleanupfrompyobj*/
7204 if (capi_buildvalue == NULL((void*)0)) {
7205/*routdebugfailure*/
7206 } else {
7207/*routdebugleave*/
7208 }
7209 CFUNCSMESS("Freeing memory.\n");
7210/*freemem*/
7211#ifdef F2PY_REPORT_ATEXIT
7212f2py_stop_clock();
7213#endif
7214 return capi_buildvalue;
7215}
7216/******************************* end of dgetrs *******************************/
7217
7218/*********************************** cgetrs ***********************************/
7219static char doc_f2py_rout__flapack_cgetrs[] = "\
7220x,info = cgetrs(lu,piv,b,[trans,overwrite_b])\n\nWrapper for ``cgetrs``.\
7221\n\nParameters\n----------\n"
7222"lu : input rank-2 array('F') with bounds (n,n)\n"
7223"piv : input rank-1 array('i') with bounds (n)\n"
7224"b : input rank-2 array('F') with bounds (n,nrhs)\n"
7225"\nOther Parameters\n----------------\n"
7226"overwrite_b : input int, optional\n Default: 0\n"
7227"trans : input int, optional\n Default: 0\n"
7228"\nReturns\n-------\n"
7229"x : rank-2 array('F') with bounds (n,nrhs) and b storage\n"
7230"info : int";
7231/* extern void F_FUNC(cgetrs,CGETRS)(char*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */
7232static PyObject *f2py_rout__flapack_cgetrs(const PyObject *capi_self,
7233 PyObject *capi_args,
7234 PyObject *capi_keywds,
7235 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
7236 PyObject * volatile capi_buildvalue = NULL((void*)0);
7237 volatile int f2py_success = 1;
7238/*decl*/
7239
7240 int n = 0;
7241 int nrhs = 0;
7242 complex_float *lu = NULL((void*)0);
7243 npy_intp lu_Dims[2] = {-1, -1};
7244 const int lu_Rank = 2;
7245 PyArrayObject *capi_lu_tmp = NULL((void*)0);
7246 int capi_lu_intent = 0;
7247 PyObject *lu_capi = Py_None(&_Py_NoneStruct);
7248 int *piv = NULL((void*)0);
7249 npy_intp piv_Dims[1] = {-1};
7250 const int piv_Rank = 1;
7251 PyArrayObject *capi_piv_tmp = NULL((void*)0);
7252 int capi_piv_intent = 0;
7253 PyObject *piv_capi = Py_None(&_Py_NoneStruct);
7254 complex_float *b = NULL((void*)0);
7255 npy_intp b_Dims[2] = {-1, -1};
7256 const int b_Rank = 2;
7257 PyArrayObject *capi_b_tmp = NULL((void*)0);
7258 int capi_b_intent = 0;
7259 int capi_overwrite_b = 0;
7260 PyObject *b_capi = Py_None(&_Py_NoneStruct);
7261 int info = 0;
7262 int trans = 0;
7263 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
7264 static char *capi_kwlist[] = {"lu","piv","b","trans","overwrite_b",NULL((void*)0)};
7265
7266/*routdebugenter*/
7267#ifdef F2PY_REPORT_ATEXIT
7268f2py_start_clock();
7269#endif
7270 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
7271 "OOO|Oi:_flapack.cgetrs",\
7272 capi_kwlist,&lu_capi,&piv_capi,&b_capi,&trans_capi,&capi_overwrite_b))
7273 return NULL((void*)0);
7274/*frompyobj*/
7275 /* Processing variable trans */
7276 if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else
7277 f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.cgetrs() 1st keyword (trans) can't be converted to int");
7278 if (f2py_success) {
7279 CHECKSCALAR(trans>=0 && trans <=2,"trans>=0 && trans <=2","1st keyword trans","cgetrs:trans=%d",trans)if (!(trans>=0 && trans <=2)) { char errstring[
256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""cgetrs:trans=%d", "(""trans>=0 && trans <=2"
") failed for ""1st keyword trans", trans); PyErr_SetString(_flapack_error
,errstring); } else
{
7280 /* Processing variable lu */
7281 ;
7282 capi_lu_intent |= F2PY_INTENT_IN1;
7283 capi_lu_tmp = array_from_pyobj(NPY_CFLOAT,lu_Dims,lu_Rank,capi_lu_intent,lu_capi);
7284 if (capi_lu_tmp == NULL((void*)0)) {
7285 if (!PyErr_Occurred())
7286 PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.cgetrs to C/Fortran array" );
7287 } else {
7288 lu = (complex_float *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data));
7289
7290 CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu"
); } else
{
7291 /* Processing variable info */
7292 /* Processing variable n */
7293 n = shape(lu,0)lu_Dims[0];
7294 /* Processing variable piv */
7295 piv_Dims[0]=n;
7296 capi_piv_intent |= F2PY_INTENT_IN1;
7297 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi);
7298 if (capi_piv_tmp == NULL((void*)0)) {
7299 if (!PyErr_Occurred())
7300 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.cgetrs to C/Fortran array" );
7301 } else {
7302 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
7303
7304 /* Processing variable b */
7305 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
7306 b_Dims[0]=n;
7307 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
7308 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
7309 if (capi_b_tmp == NULL((void*)0)) {
7310 if (!PyErr_Occurred())
7311 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.cgetrs to C/Fortran array" );
7312 } else {
7313 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
7314
7315 CHECKARRAY(shape(lu,0)==shape(b,0),"shape(lu,0)==shape(b,0)","3rd argument b")if (!(lu_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(lu,0)==shape(b,0)"") failed for ""3rd argument b")
; } else
{
7316 /* Processing variable nrhs */
7317 nrhs = shape(b,1)b_Dims[1];
7318/*end of frompyobj*/
7319#ifdef F2PY_REPORT_ATEXIT
7320f2py_start_call_clock();
7321#endif
7322/*callfortranroutine*/
7323 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
7324 {F_INTint i;for(i=0;i<n;++piv[i++]);(*f2py_func)((trans?(trans==2?"C":"T"):"N"),&n,&nrhs,lu,&n,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ;
7325 /*(*f2py_func)(&n,&nrhs,lu,piv,b,&info,&trans);*/
7326 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
7327if (PyErr_Occurred())
7328 f2py_success = 0;
7329#ifdef F2PY_REPORT_ATEXIT
7330f2py_stop_call_clock();
7331#endif
7332/*end of callfortranroutine*/
7333 if (f2py_success) {
7334/*pyobjfrom*/
7335/*end of pyobjfrom*/
7336 CFUNCSMESS("Building return value.\n");
7337 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
7338/*closepyobjfrom*/
7339/*end of closepyobjfrom*/
7340 } /*if (f2py_success) after callfortranroutine*/
7341/*cleanupfrompyobj*/
7342 /* End of cleaning variable nrhs */
7343 } /*CHECKARRAY(shape(lu,0)==shape(b,0))*/
7344 } /*if (capi_b_tmp == NULL) ... else of b*/
7345 /* End of cleaning variable b */
7346 if((PyObject *)capi_piv_tmp!=piv_capi) {
7347 Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); }
7348 } /*if (capi_piv_tmp == NULL) ... else of piv*/
7349 /* End of cleaning variable piv */
7350 /* End of cleaning variable n */
7351 /* End of cleaning variable info */
7352 } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/
7353 if((PyObject *)capi_lu_tmp!=lu_capi) {
7354 Py_XDECREF(capi_lu_tmp)_Py_XDECREF(((PyObject*)(capi_lu_tmp))); }
7355 } /*if (capi_lu_tmp == NULL) ... else of lu*/
7356 /* End of cleaning variable lu */
7357 } /*CHECKSCALAR(trans>=0 && trans <=2)*/
7358 } /*if (f2py_success) of trans*/
7359 /* End of cleaning variable trans */
7360/*end of cleanupfrompyobj*/
7361 if (capi_buildvalue == NULL((void*)0)) {
7362/*routdebugfailure*/
7363 } else {
7364/*routdebugleave*/
7365 }
7366 CFUNCSMESS("Freeing memory.\n");
7367/*freemem*/
7368#ifdef F2PY_REPORT_ATEXIT
7369f2py_stop_clock();
7370#endif
7371 return capi_buildvalue;
7372}
7373/******************************* end of cgetrs *******************************/
7374
7375/*********************************** zgetrs ***********************************/
7376static char doc_f2py_rout__flapack_zgetrs[] = "\
7377x,info = zgetrs(lu,piv,b,[trans,overwrite_b])\n\nWrapper for ``zgetrs``.\
7378\n\nParameters\n----------\n"
7379"lu : input rank-2 array('D') with bounds (n,n)\n"
7380"piv : input rank-1 array('i') with bounds (n)\n"
7381"b : input rank-2 array('D') with bounds (n,nrhs)\n"
7382"\nOther Parameters\n----------------\n"
7383"overwrite_b : input int, optional\n Default: 0\n"
7384"trans : input int, optional\n Default: 0\n"
7385"\nReturns\n-------\n"
7386"x : rank-2 array('D') with bounds (n,nrhs) and b storage\n"
7387"info : int";
7388/* extern void F_FUNC(zgetrs,ZGETRS)(char*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */
7389static PyObject *f2py_rout__flapack_zgetrs(const PyObject *capi_self,
7390 PyObject *capi_args,
7391 PyObject *capi_keywds,
7392 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
7393 PyObject * volatile capi_buildvalue = NULL((void*)0);
7394 volatile int f2py_success = 1;
7395/*decl*/
7396
7397 int n = 0;
7398 int nrhs = 0;
7399 complex_double *lu = NULL((void*)0);
7400 npy_intp lu_Dims[2] = {-1, -1};
7401 const int lu_Rank = 2;
7402 PyArrayObject *capi_lu_tmp = NULL((void*)0);
7403 int capi_lu_intent = 0;
7404 PyObject *lu_capi = Py_None(&_Py_NoneStruct);
7405 int *piv = NULL((void*)0);
7406 npy_intp piv_Dims[1] = {-1};
7407 const int piv_Rank = 1;
7408 PyArrayObject *capi_piv_tmp = NULL((void*)0);
7409 int capi_piv_intent = 0;
7410 PyObject *piv_capi = Py_None(&_Py_NoneStruct);
7411 complex_double *b = NULL((void*)0);
7412 npy_intp b_Dims[2] = {-1, -1};
7413 const int b_Rank = 2;
7414 PyArrayObject *capi_b_tmp = NULL((void*)0);
7415 int capi_b_intent = 0;
7416 int capi_overwrite_b = 0;
7417 PyObject *b_capi = Py_None(&_Py_NoneStruct);
7418 int info = 0;
7419 int trans = 0;
7420 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
7421 static char *capi_kwlist[] = {"lu","piv","b","trans","overwrite_b",NULL((void*)0)};
7422
7423/*routdebugenter*/
7424#ifdef F2PY_REPORT_ATEXIT
7425f2py_start_clock();
7426#endif
7427 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
7428 "OOO|Oi:_flapack.zgetrs",\
7429 capi_kwlist,&lu_capi,&piv_capi,&b_capi,&trans_capi,&capi_overwrite_b))
7430 return NULL((void*)0);
7431/*frompyobj*/
7432 /* Processing variable trans */
7433 if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else
7434 f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.zgetrs() 1st keyword (trans) can't be converted to int");
7435 if (f2py_success) {
7436 CHECKSCALAR(trans>=0 && trans <=2,"trans>=0 && trans <=2","1st keyword trans","zgetrs:trans=%d",trans)if (!(trans>=0 && trans <=2)) { char errstring[
256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zgetrs:trans=%d", "(""trans>=0 && trans <=2"
") failed for ""1st keyword trans", trans); PyErr_SetString(_flapack_error
,errstring); } else
{
7437 /* Processing variable lu */
7438 ;
7439 capi_lu_intent |= F2PY_INTENT_IN1;
7440 capi_lu_tmp = array_from_pyobj(NPY_CDOUBLE,lu_Dims,lu_Rank,capi_lu_intent,lu_capi);
7441 if (capi_lu_tmp == NULL((void*)0)) {
7442 if (!PyErr_Occurred())
7443 PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.zgetrs to C/Fortran array" );
7444 } else {
7445 lu = (complex_double *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data));
7446
7447 CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu"
); } else
{
7448 /* Processing variable info */
7449 /* Processing variable n */
7450 n = shape(lu,0)lu_Dims[0];
7451 /* Processing variable piv */
7452 piv_Dims[0]=n;
7453 capi_piv_intent |= F2PY_INTENT_IN1;
7454 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi);
7455 if (capi_piv_tmp == NULL((void*)0)) {
7456 if (!PyErr_Occurred())
7457 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.zgetrs to C/Fortran array" );
7458 } else {
7459 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
7460
7461 /* Processing variable b */
7462 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
7463 b_Dims[0]=n;
7464 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
7465 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
7466 if (capi_b_tmp == NULL((void*)0)) {
7467 if (!PyErr_Occurred())
7468 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.zgetrs to C/Fortran array" );
7469 } else {
7470 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
7471
7472 CHECKARRAY(shape(lu,0)==shape(b,0),"shape(lu,0)==shape(b,0)","3rd argument b")if (!(lu_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(lu,0)==shape(b,0)"") failed for ""3rd argument b")
; } else
{
7473 /* Processing variable nrhs */
7474 nrhs = shape(b,1)b_Dims[1];
7475/*end of frompyobj*/
7476#ifdef F2PY_REPORT_ATEXIT
7477f2py_start_call_clock();
7478#endif
7479/*callfortranroutine*/
7480 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
7481 {F_INTint i;for(i=0;i<n;++piv[i++]);(*f2py_func)((trans?(trans==2?"C":"T"):"N"),&n,&nrhs,lu,&n,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ;
7482 /*(*f2py_func)(&n,&nrhs,lu,piv,b,&info,&trans);*/
7483 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
7484if (PyErr_Occurred())
7485 f2py_success = 0;
7486#ifdef F2PY_REPORT_ATEXIT
7487f2py_stop_call_clock();
7488#endif
7489/*end of callfortranroutine*/
7490 if (f2py_success) {
7491/*pyobjfrom*/
7492/*end of pyobjfrom*/
7493 CFUNCSMESS("Building return value.\n");
7494 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
7495/*closepyobjfrom*/
7496/*end of closepyobjfrom*/
7497 } /*if (f2py_success) after callfortranroutine*/
7498/*cleanupfrompyobj*/
7499 /* End of cleaning variable nrhs */
7500 } /*CHECKARRAY(shape(lu,0)==shape(b,0))*/
7501 } /*if (capi_b_tmp == NULL) ... else of b*/
7502 /* End of cleaning variable b */
7503 if((PyObject *)capi_piv_tmp!=piv_capi) {
7504 Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); }
7505 } /*if (capi_piv_tmp == NULL) ... else of piv*/
7506 /* End of cleaning variable piv */
7507 /* End of cleaning variable n */
7508 /* End of cleaning variable info */
7509 } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/
7510 if((PyObject *)capi_lu_tmp!=lu_capi) {
7511 Py_XDECREF(capi_lu_tmp)_Py_XDECREF(((PyObject*)(capi_lu_tmp))); }
7512 } /*if (capi_lu_tmp == NULL) ... else of lu*/
7513 /* End of cleaning variable lu */
7514 } /*CHECKSCALAR(trans>=0 && trans <=2)*/
7515 } /*if (f2py_success) of trans*/
7516 /* End of cleaning variable trans */
7517/*end of cleanupfrompyobj*/
7518 if (capi_buildvalue == NULL((void*)0)) {
7519/*routdebugfailure*/
7520 } else {
7521/*routdebugleave*/
7522 }
7523 CFUNCSMESS("Freeing memory.\n");
7524/*freemem*/
7525#ifdef F2PY_REPORT_ATEXIT
7526f2py_stop_clock();
7527#endif
7528 return capi_buildvalue;
7529}
7530/******************************* end of zgetrs *******************************/
7531
7532/*********************************** sgetc2 ***********************************/
7533static char doc_f2py_rout__flapack_sgetc2[] = "\
7534lu,ipiv,jpiv,info = sgetc2(a,[overwrite_a])\n\nWrapper for ``sgetc2``.\
7535\n\nParameters\n----------\n"
7536"a : input rank-2 array('f') with bounds (n,n)\n"
7537"\nOther Parameters\n----------------\n"
7538"overwrite_a : input int, optional\n Default: 0\n"
7539"\nReturns\n-------\n"
7540"lu : rank-2 array('f') with bounds (n,n) and a storage\n"
7541"ipiv : rank-1 array('i') with bounds (n)\n"
7542"jpiv : rank-1 array('i') with bounds (n)\n"
7543"info : int";
7544/* extern void F_FUNC(sgetc2,SGETC2)(F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
7545static PyObject *f2py_rout__flapack_sgetc2(const PyObject *capi_self,
7546 PyObject *capi_args,
7547 PyObject *capi_keywds,
7548 void (*f2py_func)(F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
7549 PyObject * volatile capi_buildvalue = NULL((void*)0);
7550 volatile int f2py_success = 1;
7551/*decl*/
7552
7553 int n = 0;
7554 float *a = NULL((void*)0);
7555 npy_intp a_Dims[2] = {-1, -1};
7556 const int a_Rank = 2;
7557 PyArrayObject *capi_a_tmp = NULL((void*)0);
7558 int capi_a_intent = 0;
7559 int capi_overwrite_a = 0;
7560 PyObject *a_capi = Py_None(&_Py_NoneStruct);
7561 int lda = 0;
7562 int *ipiv = NULL((void*)0);
7563 npy_intp ipiv_Dims[1] = {-1};
7564 const int ipiv_Rank = 1;
7565 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
7566 int capi_ipiv_intent = 0;
7567 int *jpiv = NULL((void*)0);
7568 npy_intp jpiv_Dims[1] = {-1};
7569 const int jpiv_Rank = 1;
7570 PyArrayObject *capi_jpiv_tmp = NULL((void*)0);
7571 int capi_jpiv_intent = 0;
7572 int info = 0;
7573 static char *capi_kwlist[] = {"a","overwrite_a",NULL((void*)0)};
7574
7575/*routdebugenter*/
7576#ifdef F2PY_REPORT_ATEXIT
7577f2py_start_clock();
7578#endif
7579 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
7580 "O|i:_flapack.sgetc2",\
7581 capi_kwlist,&a_capi,&capi_overwrite_a))
7582 return NULL((void*)0);
7583/*frompyobj*/
7584 /* Processing variable a */
7585 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
7586 ;
7587 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
7588 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
7589 if (capi_a_tmp == NULL((void*)0)) {
7590 if (!PyErr_Occurred())
7591 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgetc2 to C/Fortran array" );
7592 } else {
7593 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
7594
7595 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
7596 /* Processing variable info */
7597 /* Processing variable n */
7598 n = shape(a,0)a_Dims[0];
7599 /* Processing variable lda */
7600 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
7601 /* Processing variable ipiv */
7602 ipiv_Dims[0]=n;
7603 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
7604 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
7605 if (capi_ipiv_tmp == NULL((void*)0)) {
7606 if (!PyErr_Occurred())
7607 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.sgetc2 to C/Fortran array" );
7608 } else {
7609 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
7610
7611 /* Processing variable jpiv */
7612 jpiv_Dims[0]=n;
7613 capi_jpiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
7614 capi_jpiv_tmp = array_from_pyobj(NPY_INT,jpiv_Dims,jpiv_Rank,capi_jpiv_intent,Py_None(&_Py_NoneStruct));
7615 if (capi_jpiv_tmp == NULL((void*)0)) {
7616 if (!PyErr_Occurred())
7617 PyErr_SetString(_flapack_error,"failed in converting hidden `jpiv' of _flapack.sgetc2 to C/Fortran array" );
7618 } else {
7619 jpiv = (int *)(PyArray_DATA(capi_jpiv_tmp)((void *)((PyArrayObject_fields *)(capi_jpiv_tmp))->data));
7620
7621/*end of frompyobj*/
7622#ifdef F2PY_REPORT_ATEXIT
7623f2py_start_call_clock();
7624#endif
7625/*callfortranroutine*/
7626 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
7627 {F_INTint i;(*f2py_func)(&n,a,&lda,ipiv,jpiv,&info);for(i=0;i<n;--ipiv[i],--jpiv[i++]);} ;
7628 /*(*f2py_func)(&n,a,&lda,ipiv,jpiv,&info);*/
7629 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
7630if (PyErr_Occurred())
7631 f2py_success = 0;
7632#ifdef F2PY_REPORT_ATEXIT
7633f2py_stop_call_clock();
7634#endif
7635/*end of callfortranroutine*/
7636 if (f2py_success) {
7637/*pyobjfrom*/
7638/*end of pyobjfrom*/
7639 CFUNCSMESS("Building return value.\n");
7640 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_ipiv_tmp,capi_jpiv_tmp,info);
7641/*closepyobjfrom*/
7642/*end of closepyobjfrom*/
7643 } /*if (f2py_success) after callfortranroutine*/
7644/*cleanupfrompyobj*/
7645 } /*if (capi_jpiv_tmp == NULL) ... else of jpiv*/
7646 /* End of cleaning variable jpiv */
7647 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
7648 /* End of cleaning variable ipiv */
7649 /* End of cleaning variable lda */
7650 /* End of cleaning variable n */
7651 /* End of cleaning variable info */
7652 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
7653 } /*if (capi_a_tmp == NULL) ... else of a*/
7654 /* End of cleaning variable a */
7655/*end of cleanupfrompyobj*/
7656 if (capi_buildvalue == NULL((void*)0)) {
7657/*routdebugfailure*/
7658 } else {
7659/*routdebugleave*/
7660 }
7661 CFUNCSMESS("Freeing memory.\n");
7662/*freemem*/
7663#ifdef F2PY_REPORT_ATEXIT
7664f2py_stop_clock();
7665#endif
7666 return capi_buildvalue;
7667}
7668/******************************* end of sgetc2 *******************************/
7669
7670/*********************************** dgetc2 ***********************************/
7671static char doc_f2py_rout__flapack_dgetc2[] = "\
7672lu,ipiv,jpiv,info = dgetc2(a,[overwrite_a])\n\nWrapper for ``dgetc2``.\
7673\n\nParameters\n----------\n"
7674"a : input rank-2 array('d') with bounds (n,n)\n"
7675"\nOther Parameters\n----------------\n"
7676"overwrite_a : input int, optional\n Default: 0\n"
7677"\nReturns\n-------\n"
7678"lu : rank-2 array('d') with bounds (n,n) and a storage\n"
7679"ipiv : rank-1 array('i') with bounds (n)\n"
7680"jpiv : rank-1 array('i') with bounds (n)\n"
7681"info : int";
7682/* extern void F_FUNC(dgetc2,DGETC2)(F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
7683static PyObject *f2py_rout__flapack_dgetc2(const PyObject *capi_self,
7684 PyObject *capi_args,
7685 PyObject *capi_keywds,
7686 void (*f2py_func)(F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
7687 PyObject * volatile capi_buildvalue = NULL((void*)0);
7688 volatile int f2py_success = 1;
7689/*decl*/
7690
7691 int n = 0;
7692 double *a = NULL((void*)0);
7693 npy_intp a_Dims[2] = {-1, -1};
7694 const int a_Rank = 2;
7695 PyArrayObject *capi_a_tmp = NULL((void*)0);
7696 int capi_a_intent = 0;
7697 int capi_overwrite_a = 0;
7698 PyObject *a_capi = Py_None(&_Py_NoneStruct);
7699 int lda = 0;
7700 int *ipiv = NULL((void*)0);
7701 npy_intp ipiv_Dims[1] = {-1};
7702 const int ipiv_Rank = 1;
7703 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
7704 int capi_ipiv_intent = 0;
7705 int *jpiv = NULL((void*)0);
7706 npy_intp jpiv_Dims[1] = {-1};
7707 const int jpiv_Rank = 1;
7708 PyArrayObject *capi_jpiv_tmp = NULL((void*)0);
7709 int capi_jpiv_intent = 0;
7710 int info = 0;
7711 static char *capi_kwlist[] = {"a","overwrite_a",NULL((void*)0)};
7712
7713/*routdebugenter*/
7714#ifdef F2PY_REPORT_ATEXIT
7715f2py_start_clock();
7716#endif
7717 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
7718 "O|i:_flapack.dgetc2",\
7719 capi_kwlist,&a_capi,&capi_overwrite_a))
7720 return NULL((void*)0);
7721/*frompyobj*/
7722 /* Processing variable a */
7723 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
7724 ;
7725 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
7726 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
7727 if (capi_a_tmp == NULL((void*)0)) {
7728 if (!PyErr_Occurred())
7729 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgetc2 to C/Fortran array" );
7730 } else {
7731 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
7732
7733 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
7734 /* Processing variable info */
7735 /* Processing variable n */
7736 n = shape(a,0)a_Dims[0];
7737 /* Processing variable lda */
7738 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
7739 /* Processing variable ipiv */
7740 ipiv_Dims[0]=n;
7741 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
7742 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
7743 if (capi_ipiv_tmp == NULL((void*)0)) {
7744 if (!PyErr_Occurred())
7745 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.dgetc2 to C/Fortran array" );
7746 } else {
7747 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
7748
7749 /* Processing variable jpiv */
7750 jpiv_Dims[0]=n;
7751 capi_jpiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
7752 capi_jpiv_tmp = array_from_pyobj(NPY_INT,jpiv_Dims,jpiv_Rank,capi_jpiv_intent,Py_None(&_Py_NoneStruct));
7753 if (capi_jpiv_tmp == NULL((void*)0)) {
7754 if (!PyErr_Occurred())
7755 PyErr_SetString(_flapack_error,"failed in converting hidden `jpiv' of _flapack.dgetc2 to C/Fortran array" );
7756 } else {
7757 jpiv = (int *)(PyArray_DATA(capi_jpiv_tmp)((void *)((PyArrayObject_fields *)(capi_jpiv_tmp))->data));
7758
7759/*end of frompyobj*/
7760#ifdef F2PY_REPORT_ATEXIT
7761f2py_start_call_clock();
7762#endif
7763/*callfortranroutine*/
7764 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
7765 {F_INTint i;(*f2py_func)(&n,a,&lda,ipiv,jpiv,&info);for(i=0;i<n;--ipiv[i],--jpiv[i++]);} ;
7766 /*(*f2py_func)(&n,a,&lda,ipiv,jpiv,&info);*/
7767 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
7768if (PyErr_Occurred())
7769 f2py_success = 0;
7770#ifdef F2PY_REPORT_ATEXIT
7771f2py_stop_call_clock();
7772#endif
7773/*end of callfortranroutine*/
7774 if (f2py_success) {
7775/*pyobjfrom*/
7776/*end of pyobjfrom*/
7777 CFUNCSMESS("Building return value.\n");
7778 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_ipiv_tmp,capi_jpiv_tmp,info);
7779/*closepyobjfrom*/
7780/*end of closepyobjfrom*/
7781 } /*if (f2py_success) after callfortranroutine*/
7782/*cleanupfrompyobj*/
7783 } /*if (capi_jpiv_tmp == NULL) ... else of jpiv*/
7784 /* End of cleaning variable jpiv */
7785 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
7786 /* End of cleaning variable ipiv */
7787 /* End of cleaning variable lda */
7788 /* End of cleaning variable n */
7789 /* End of cleaning variable info */
7790 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
7791 } /*if (capi_a_tmp == NULL) ... else of a*/
7792 /* End of cleaning variable a */
7793/*end of cleanupfrompyobj*/
7794 if (capi_buildvalue == NULL((void*)0)) {
7795/*routdebugfailure*/
7796 } else {
7797/*routdebugleave*/
7798 }
7799 CFUNCSMESS("Freeing memory.\n");
7800/*freemem*/
7801#ifdef F2PY_REPORT_ATEXIT
7802f2py_stop_clock();
7803#endif
7804 return capi_buildvalue;
7805}
7806/******************************* end of dgetc2 *******************************/
7807
7808/*********************************** cgetc2 ***********************************/
7809static char doc_f2py_rout__flapack_cgetc2[] = "\
7810lu,ipiv,jpiv,info = cgetc2(a,[overwrite_a])\n\nWrapper for ``cgetc2``.\
7811\n\nParameters\n----------\n"
7812"a : input rank-2 array('F') with bounds (n,n)\n"
7813"\nOther Parameters\n----------------\n"
7814"overwrite_a : input int, optional\n Default: 0\n"
7815"\nReturns\n-------\n"
7816"lu : rank-2 array('F') with bounds (n,n) and a storage\n"
7817"ipiv : rank-1 array('i') with bounds (n)\n"
7818"jpiv : rank-1 array('i') with bounds (n)\n"
7819"info : int";
7820/* extern void F_FUNC(cgetc2,CGETC2)(F_INT*,complex_float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
7821static PyObject *f2py_rout__flapack_cgetc2(const PyObject *capi_self,
7822 PyObject *capi_args,
7823 PyObject *capi_keywds,
7824 void (*f2py_func)(F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
7825 PyObject * volatile capi_buildvalue = NULL((void*)0);
7826 volatile int f2py_success = 1;
7827/*decl*/
7828
7829 int n = 0;
7830 complex_float *a = NULL((void*)0);
7831 npy_intp a_Dims[2] = {-1, -1};
7832 const int a_Rank = 2;
7833 PyArrayObject *capi_a_tmp = NULL((void*)0);
7834 int capi_a_intent = 0;
7835 int capi_overwrite_a = 0;
7836 PyObject *a_capi = Py_None(&_Py_NoneStruct);
7837 int lda = 0;
7838 int *ipiv = NULL((void*)0);
7839 npy_intp ipiv_Dims[1] = {-1};
7840 const int ipiv_Rank = 1;
7841 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
7842 int capi_ipiv_intent = 0;
7843 int *jpiv = NULL((void*)0);
7844 npy_intp jpiv_Dims[1] = {-1};
7845 const int jpiv_Rank = 1;
7846 PyArrayObject *capi_jpiv_tmp = NULL((void*)0);
7847 int capi_jpiv_intent = 0;
7848 int info = 0;
7849 static char *capi_kwlist[] = {"a","overwrite_a",NULL((void*)0)};
7850
7851/*routdebugenter*/
7852#ifdef F2PY_REPORT_ATEXIT
7853f2py_start_clock();
7854#endif
7855 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
7856 "O|i:_flapack.cgetc2",\
7857 capi_kwlist,&a_capi,&capi_overwrite_a))
7858 return NULL((void*)0);
7859/*frompyobj*/
7860 /* Processing variable a */
7861 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
7862 ;
7863 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
7864 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
7865 if (capi_a_tmp == NULL((void*)0)) {
7866 if (!PyErr_Occurred())
7867 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgetc2 to C/Fortran array" );
7868 } else {
7869 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
7870
7871 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
7872 /* Processing variable info */
7873 /* Processing variable n */
7874 n = shape(a,0)a_Dims[0];
7875 /* Processing variable lda */
7876 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
7877 /* Processing variable ipiv */
7878 ipiv_Dims[0]=n;
7879 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
7880 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
7881 if (capi_ipiv_tmp == NULL((void*)0)) {
7882 if (!PyErr_Occurred())
7883 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.cgetc2 to C/Fortran array" );
7884 } else {
7885 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
7886
7887 /* Processing variable jpiv */
7888 jpiv_Dims[0]=n;
7889 capi_jpiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
7890 capi_jpiv_tmp = array_from_pyobj(NPY_INT,jpiv_Dims,jpiv_Rank,capi_jpiv_intent,Py_None(&_Py_NoneStruct));
7891 if (capi_jpiv_tmp == NULL((void*)0)) {
7892 if (!PyErr_Occurred())
7893 PyErr_SetString(_flapack_error,"failed in converting hidden `jpiv' of _flapack.cgetc2 to C/Fortran array" );
7894 } else {
7895 jpiv = (int *)(PyArray_DATA(capi_jpiv_tmp)((void *)((PyArrayObject_fields *)(capi_jpiv_tmp))->data));
7896
7897/*end of frompyobj*/
7898#ifdef F2PY_REPORT_ATEXIT
7899f2py_start_call_clock();
7900#endif
7901/*callfortranroutine*/
7902 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
7903 {F_INTint i;(*f2py_func)(&n,a,&lda,ipiv,jpiv,&info);for(i=0;i<n;--ipiv[i],--jpiv[i++]);} ;
7904 /*(*f2py_func)(&n,a,&lda,ipiv,jpiv,&info);*/
7905 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
7906if (PyErr_Occurred())
7907 f2py_success = 0;
7908#ifdef F2PY_REPORT_ATEXIT
7909f2py_stop_call_clock();
7910#endif
7911/*end of callfortranroutine*/
7912 if (f2py_success) {
7913/*pyobjfrom*/
7914/*end of pyobjfrom*/
7915 CFUNCSMESS("Building return value.\n");
7916 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_ipiv_tmp,capi_jpiv_tmp,info);
7917/*closepyobjfrom*/
7918/*end of closepyobjfrom*/
7919 } /*if (f2py_success) after callfortranroutine*/
7920/*cleanupfrompyobj*/
7921 } /*if (capi_jpiv_tmp == NULL) ... else of jpiv*/
7922 /* End of cleaning variable jpiv */
7923 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
7924 /* End of cleaning variable ipiv */
7925 /* End of cleaning variable lda */
7926 /* End of cleaning variable n */
7927 /* End of cleaning variable info */
7928 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
7929 } /*if (capi_a_tmp == NULL) ... else of a*/
7930 /* End of cleaning variable a */
7931/*end of cleanupfrompyobj*/
7932 if (capi_buildvalue == NULL((void*)0)) {
7933/*routdebugfailure*/
7934 } else {
7935/*routdebugleave*/
7936 }
7937 CFUNCSMESS("Freeing memory.\n");
7938/*freemem*/
7939#ifdef F2PY_REPORT_ATEXIT
7940f2py_stop_clock();
7941#endif
7942 return capi_buildvalue;
7943}
7944/******************************* end of cgetc2 *******************************/
7945
7946/*********************************** zgetc2 ***********************************/
7947static char doc_f2py_rout__flapack_zgetc2[] = "\
7948lu,ipiv,jpiv,info = zgetc2(a,[overwrite_a])\n\nWrapper for ``zgetc2``.\
7949\n\nParameters\n----------\n"
7950"a : input rank-2 array('D') with bounds (n,n)\n"
7951"\nOther Parameters\n----------------\n"
7952"overwrite_a : input int, optional\n Default: 0\n"
7953"\nReturns\n-------\n"
7954"lu : rank-2 array('D') with bounds (n,n) and a storage\n"
7955"ipiv : rank-1 array('i') with bounds (n)\n"
7956"jpiv : rank-1 array('i') with bounds (n)\n"
7957"info : int";
7958/* extern void F_FUNC(zgetc2,ZGETC2)(F_INT*,complex_double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
7959static PyObject *f2py_rout__flapack_zgetc2(const PyObject *capi_self,
7960 PyObject *capi_args,
7961 PyObject *capi_keywds,
7962 void (*f2py_func)(F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
7963 PyObject * volatile capi_buildvalue = NULL((void*)0);
7964 volatile int f2py_success = 1;
7965/*decl*/
7966
7967 int n = 0;
7968 complex_double *a = NULL((void*)0);
7969 npy_intp a_Dims[2] = {-1, -1};
7970 const int a_Rank = 2;
7971 PyArrayObject *capi_a_tmp = NULL((void*)0);
7972 int capi_a_intent = 0;
7973 int capi_overwrite_a = 0;
7974 PyObject *a_capi = Py_None(&_Py_NoneStruct);
7975 int lda = 0;
7976 int *ipiv = NULL((void*)0);
7977 npy_intp ipiv_Dims[1] = {-1};
7978 const int ipiv_Rank = 1;
7979 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
7980 int capi_ipiv_intent = 0;
7981 int *jpiv = NULL((void*)0);
7982 npy_intp jpiv_Dims[1] = {-1};
7983 const int jpiv_Rank = 1;
7984 PyArrayObject *capi_jpiv_tmp = NULL((void*)0);
7985 int capi_jpiv_intent = 0;
7986 int info = 0;
7987 static char *capi_kwlist[] = {"a","overwrite_a",NULL((void*)0)};
7988
7989/*routdebugenter*/
7990#ifdef F2PY_REPORT_ATEXIT
7991f2py_start_clock();
7992#endif
7993 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
7994 "O|i:_flapack.zgetc2",\
7995 capi_kwlist,&a_capi,&capi_overwrite_a))
7996 return NULL((void*)0);
7997/*frompyobj*/
7998 /* Processing variable a */
7999 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
8000 ;
8001 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
8002 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
8003 if (capi_a_tmp == NULL((void*)0)) {
8004 if (!PyErr_Occurred())
8005 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgetc2 to C/Fortran array" );
8006 } else {
8007 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
8008
8009 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
8010 /* Processing variable info */
8011 /* Processing variable n */
8012 n = shape(a,0)a_Dims[0];
8013 /* Processing variable lda */
8014 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
8015 /* Processing variable ipiv */
8016 ipiv_Dims[0]=n;
8017 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
8018 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
8019 if (capi_ipiv_tmp == NULL((void*)0)) {
8020 if (!PyErr_Occurred())
8021 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.zgetc2 to C/Fortran array" );
8022 } else {
8023 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
8024
8025 /* Processing variable jpiv */
8026 jpiv_Dims[0]=n;
8027 capi_jpiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
8028 capi_jpiv_tmp = array_from_pyobj(NPY_INT,jpiv_Dims,jpiv_Rank,capi_jpiv_intent,Py_None(&_Py_NoneStruct));
8029 if (capi_jpiv_tmp == NULL((void*)0)) {
8030 if (!PyErr_Occurred())
8031 PyErr_SetString(_flapack_error,"failed in converting hidden `jpiv' of _flapack.zgetc2 to C/Fortran array" );
8032 } else {
8033 jpiv = (int *)(PyArray_DATA(capi_jpiv_tmp)((void *)((PyArrayObject_fields *)(capi_jpiv_tmp))->data));
8034
8035/*end of frompyobj*/
8036#ifdef F2PY_REPORT_ATEXIT
8037f2py_start_call_clock();
8038#endif
8039/*callfortranroutine*/
8040 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
8041 {F_INTint i;(*f2py_func)(&n,a,&lda,ipiv,jpiv,&info);for(i=0;i<n;--ipiv[i],--jpiv[i++]);} ;
8042 /*(*f2py_func)(&n,a,&lda,ipiv,jpiv,&info);*/
8043 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
8044if (PyErr_Occurred())
8045 f2py_success = 0;
8046#ifdef F2PY_REPORT_ATEXIT
8047f2py_stop_call_clock();
8048#endif
8049/*end of callfortranroutine*/
8050 if (f2py_success) {
8051/*pyobjfrom*/
8052/*end of pyobjfrom*/
8053 CFUNCSMESS("Building return value.\n");
8054 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_ipiv_tmp,capi_jpiv_tmp,info);
8055/*closepyobjfrom*/
8056/*end of closepyobjfrom*/
8057 } /*if (f2py_success) after callfortranroutine*/
8058/*cleanupfrompyobj*/
8059 } /*if (capi_jpiv_tmp == NULL) ... else of jpiv*/
8060 /* End of cleaning variable jpiv */
8061 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
8062 /* End of cleaning variable ipiv */
8063 /* End of cleaning variable lda */
8064 /* End of cleaning variable n */
8065 /* End of cleaning variable info */
8066 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
8067 } /*if (capi_a_tmp == NULL) ... else of a*/
8068 /* End of cleaning variable a */
8069/*end of cleanupfrompyobj*/
8070 if (capi_buildvalue == NULL((void*)0)) {
8071/*routdebugfailure*/
8072 } else {
8073/*routdebugleave*/
8074 }
8075 CFUNCSMESS("Freeing memory.\n");
8076/*freemem*/
8077#ifdef F2PY_REPORT_ATEXIT
8078f2py_stop_clock();
8079#endif
8080 return capi_buildvalue;
8081}
8082/******************************* end of zgetc2 *******************************/
8083
8084/*********************************** sgesc2 ***********************************/
8085static char doc_f2py_rout__flapack_sgesc2[] = "\
8086x,scale = sgesc2(lu,rhs,ipiv,jpiv,[overwrite_rhs])\n\nWrapper for ``sgesc2``.\
8087\n\nParameters\n----------\n"
8088"lu : input rank-2 array('f') with bounds (n,n)\n"
8089"rhs : input rank-1 array('f') with bounds (n)\n"
8090"ipiv : input rank-1 array('i') with bounds (n)\n"
8091"jpiv : input rank-1 array('i') with bounds (n)\n"
8092"\nOther Parameters\n----------------\n"
8093"overwrite_rhs : input int, optional\n Default: 0\n"
8094"\nReturns\n-------\n"
8095"x : rank-1 array('f') with bounds (n) and rhs storage\n"
8096"scale : float";
8097/* extern void F_FUNC(sgesc2,SGESC2)(F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,float* ); */
8098static PyObject *f2py_rout__flapack_sgesc2(const PyObject *capi_self,
8099 PyObject *capi_args,
8100 PyObject *capi_keywds,
8101 void (*f2py_func)(F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float* )) {
8102 PyObject * volatile capi_buildvalue = NULL((void*)0);
8103 volatile int f2py_success = 1;
8104/*decl*/
8105
8106 int n = 0;
8107 float *lu = NULL((void*)0);
8108 npy_intp lu_Dims[2] = {-1, -1};
8109 const int lu_Rank = 2;
8110 PyArrayObject *capi_lu_tmp = NULL((void*)0);
8111 int capi_lu_intent = 0;
8112 PyObject *lu_capi = Py_None(&_Py_NoneStruct);
8113 int lda = 0;
8114 float *rhs = NULL((void*)0);
8115 npy_intp rhs_Dims[1] = {-1};
8116 const int rhs_Rank = 1;
8117 PyArrayObject *capi_rhs_tmp = NULL((void*)0);
8118 int capi_rhs_intent = 0;
8119 int capi_overwrite_rhs = 0;
8120 PyObject *rhs_capi = Py_None(&_Py_NoneStruct);
8121 int *ipiv = NULL((void*)0);
8122 npy_intp ipiv_Dims[1] = {-1};
8123 const int ipiv_Rank = 1;
8124 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
8125 int capi_ipiv_intent = 0;
8126 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
8127 int *jpiv = NULL((void*)0);
8128 npy_intp jpiv_Dims[1] = {-1};
8129 const int jpiv_Rank = 1;
8130 PyArrayObject *capi_jpiv_tmp = NULL((void*)0);
8131 int capi_jpiv_intent = 0;
8132 PyObject *jpiv_capi = Py_None(&_Py_NoneStruct);
8133 float scale = 0;
8134 static char *capi_kwlist[] = {"lu","rhs","ipiv","jpiv","overwrite_rhs",NULL((void*)0)};
8135
8136/*routdebugenter*/
8137#ifdef F2PY_REPORT_ATEXIT
8138f2py_start_clock();
8139#endif
8140 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
8141 "OOOO|i:_flapack.sgesc2",\
8142 capi_kwlist,&lu_capi,&rhs_capi,&ipiv_capi,&jpiv_capi,&capi_overwrite_rhs))
8143 return NULL((void*)0);
8144/*frompyobj*/
8145 /* Processing variable lu */
8146 ;
8147 capi_lu_intent |= F2PY_INTENT_IN1;
8148 capi_lu_tmp = array_from_pyobj(NPY_FLOAT,lu_Dims,lu_Rank,capi_lu_intent,lu_capi);
8149 if (capi_lu_tmp == NULL((void*)0)) {
8150 if (!PyErr_Occurred())
8151 PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.sgesc2 to C/Fortran array" );
8152 } else {
8153 lu = (float *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data));
8154
8155 CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu"
); } else
{
8156 /* Processing variable scale */
8157 /* Processing variable n */
8158 n = shape(lu,0)lu_Dims[0];
8159 /* Processing variable lda */
8160 lda = MAX(1,shape(lu,0))((1 > lu_Dims[0]) ? (1) : (lu_Dims[0]));
8161 /* Processing variable rhs */
8162 capi_rhs_intent |= (capi_overwrite_rhs?0:F2PY_INTENT_COPY32);
8163 rhs_Dims[0]=n;
8164 capi_rhs_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
8165 capi_rhs_tmp = array_from_pyobj(NPY_FLOAT,rhs_Dims,rhs_Rank,capi_rhs_intent,rhs_capi);
8166 if (capi_rhs_tmp == NULL((void*)0)) {
8167 if (!PyErr_Occurred())
8168 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `rhs' of _flapack.sgesc2 to C/Fortran array" );
8169 } else {
8170 rhs = (float *)(PyArray_DATA(capi_rhs_tmp)((void *)((PyArrayObject_fields *)(capi_rhs_tmp))->data));
8171
8172 CHECKARRAY(shape(lu,0)==len(rhs),"shape(lu,0)==len(rhs)","2nd argument rhs")if (!(lu_Dims[0]==rhs_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(lu,0)==len(rhs)"") failed for ""2nd argument rhs")
; } else
{
8173 /* Processing variable ipiv */
8174 ipiv_Dims[0]=n;
8175 capi_ipiv_intent |= F2PY_INTENT_IN1;
8176 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
8177 if (capi_ipiv_tmp == NULL((void*)0)) {
8178 if (!PyErr_Occurred())
8179 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `ipiv' of _flapack.sgesc2 to C/Fortran array" );
8180 } else {
8181 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
8182
8183 /* Processing variable jpiv */
8184 jpiv_Dims[0]=n;
8185 capi_jpiv_intent |= F2PY_INTENT_IN1;
8186 capi_jpiv_tmp = array_from_pyobj(NPY_INT,jpiv_Dims,jpiv_Rank,capi_jpiv_intent,jpiv_capi);
8187 if (capi_jpiv_tmp == NULL((void*)0)) {
8188 if (!PyErr_Occurred())
8189 PyErr_SetString(_flapack_error,"failed in converting 4th argument `jpiv' of _flapack.sgesc2 to C/Fortran array" );
8190 } else {
8191 jpiv = (int *)(PyArray_DATA(capi_jpiv_tmp)((void *)((PyArrayObject_fields *)(capi_jpiv_tmp))->data));
8192
8193/*end of frompyobj*/
8194#ifdef F2PY_REPORT_ATEXIT
8195f2py_start_call_clock();
8196#endif
8197/*callfortranroutine*/
8198 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
8199 {F_INTint i;for(i=0;i<n;++ipiv[i],++jpiv[i++]);(*f2py_func)(&n,lu,&lda,rhs,ipiv,jpiv,&scale);for(i=0;i<n;--ipiv[i],--jpiv[i++]);} ;
8200 /*(*f2py_func)(&n,lu,&lda,rhs,ipiv,jpiv,&scale);*/
8201 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
8202if (PyErr_Occurred())
8203 f2py_success = 0;
8204#ifdef F2PY_REPORT_ATEXIT
8205f2py_stop_call_clock();
8206#endif
8207/*end of callfortranroutine*/
8208 if (f2py_success) {
8209/*pyobjfrom*/
8210/*end of pyobjfrom*/
8211 CFUNCSMESS("Building return value.\n");
8212 capi_buildvalue = Py_BuildValue("Nf",capi_rhs_tmp,scale);
8213/*closepyobjfrom*/
8214/*end of closepyobjfrom*/
8215 } /*if (f2py_success) after callfortranroutine*/
8216/*cleanupfrompyobj*/
8217 if((PyObject *)capi_jpiv_tmp!=jpiv_capi) {
8218 Py_XDECREF(capi_jpiv_tmp)_Py_XDECREF(((PyObject*)(capi_jpiv_tmp))); }
8219 } /*if (capi_jpiv_tmp == NULL) ... else of jpiv*/
8220 /* End of cleaning variable jpiv */
8221 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
8222 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
8223 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
8224 /* End of cleaning variable ipiv */
8225 } /*CHECKARRAY(shape(lu,0)==len(rhs))*/
8226 } /*if (capi_rhs_tmp == NULL) ... else of rhs*/
8227 /* End of cleaning variable rhs */
8228 /* End of cleaning variable lda */
8229 /* End of cleaning variable n */
8230 /* End of cleaning variable scale */
8231 } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/
8232 if((PyObject *)capi_lu_tmp!=lu_capi) {
8233 Py_XDECREF(capi_lu_tmp)_Py_XDECREF(((PyObject*)(capi_lu_tmp))); }
8234 } /*if (capi_lu_tmp == NULL) ... else of lu*/
8235 /* End of cleaning variable lu */
8236/*end of cleanupfrompyobj*/
8237 if (capi_buildvalue == NULL((void*)0)) {
8238/*routdebugfailure*/
8239 } else {
8240/*routdebugleave*/
8241 }
8242 CFUNCSMESS("Freeing memory.\n");
8243/*freemem*/
8244#ifdef F2PY_REPORT_ATEXIT
8245f2py_stop_clock();
8246#endif
8247 return capi_buildvalue;
8248}
8249/******************************* end of sgesc2 *******************************/
8250
8251/*********************************** dgesc2 ***********************************/
8252static char doc_f2py_rout__flapack_dgesc2[] = "\
8253x,scale = dgesc2(lu,rhs,ipiv,jpiv,[overwrite_rhs])\n\nWrapper for ``dgesc2``.\
8254\n\nParameters\n----------\n"
8255"lu : input rank-2 array('d') with bounds (n,n)\n"
8256"rhs : input rank-1 array('d') with bounds (n)\n"
8257"ipiv : input rank-1 array('i') with bounds (n)\n"
8258"jpiv : input rank-1 array('i') with bounds (n)\n"
8259"\nOther Parameters\n----------------\n"
8260"overwrite_rhs : input int, optional\n Default: 0\n"
8261"\nReturns\n-------\n"
8262"x : rank-1 array('d') with bounds (n) and rhs storage\n"
8263"scale : float";
8264/* extern void F_FUNC(dgesc2,DGESC2)(F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,double* ); */
8265static PyObject *f2py_rout__flapack_dgesc2(const PyObject *capi_self,
8266 PyObject *capi_args,
8267 PyObject *capi_keywds,
8268 void (*f2py_func)(F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double* )) {
8269 PyObject * volatile capi_buildvalue = NULL((void*)0);
8270 volatile int f2py_success = 1;
8271/*decl*/
8272
8273 int n = 0;
8274 double *lu = NULL((void*)0);
8275 npy_intp lu_Dims[2] = {-1, -1};
8276 const int lu_Rank = 2;
8277 PyArrayObject *capi_lu_tmp = NULL((void*)0);
8278 int capi_lu_intent = 0;
8279 PyObject *lu_capi = Py_None(&_Py_NoneStruct);
8280 int lda = 0;
8281 double *rhs = NULL((void*)0);
8282 npy_intp rhs_Dims[1] = {-1};
8283 const int rhs_Rank = 1;
8284 PyArrayObject *capi_rhs_tmp = NULL((void*)0);
8285 int capi_rhs_intent = 0;
8286 int capi_overwrite_rhs = 0;
8287 PyObject *rhs_capi = Py_None(&_Py_NoneStruct);
8288 int *ipiv = NULL((void*)0);
8289 npy_intp ipiv_Dims[1] = {-1};
8290 const int ipiv_Rank = 1;
8291 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
8292 int capi_ipiv_intent = 0;
8293 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
8294 int *jpiv = NULL((void*)0);
8295 npy_intp jpiv_Dims[1] = {-1};
8296 const int jpiv_Rank = 1;
8297 PyArrayObject *capi_jpiv_tmp = NULL((void*)0);
8298 int capi_jpiv_intent = 0;
8299 PyObject *jpiv_capi = Py_None(&_Py_NoneStruct);
8300 double scale = 0;
8301 static char *capi_kwlist[] = {"lu","rhs","ipiv","jpiv","overwrite_rhs",NULL((void*)0)};
8302
8303/*routdebugenter*/
8304#ifdef F2PY_REPORT_ATEXIT
8305f2py_start_clock();
8306#endif
8307 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
8308 "OOOO|i:_flapack.dgesc2",\
8309 capi_kwlist,&lu_capi,&rhs_capi,&ipiv_capi,&jpiv_capi,&capi_overwrite_rhs))
8310 return NULL((void*)0);
8311/*frompyobj*/
8312 /* Processing variable lu */
8313 ;
8314 capi_lu_intent |= F2PY_INTENT_IN1;
8315 capi_lu_tmp = array_from_pyobj(NPY_DOUBLE,lu_Dims,lu_Rank,capi_lu_intent,lu_capi);
8316 if (capi_lu_tmp == NULL((void*)0)) {
8317 if (!PyErr_Occurred())
8318 PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.dgesc2 to C/Fortran array" );
8319 } else {
8320 lu = (double *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data));
8321
8322 CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu"
); } else
{
8323 /* Processing variable scale */
8324 /* Processing variable n */
8325 n = shape(lu,0)lu_Dims[0];
8326 /* Processing variable lda */
8327 lda = MAX(1,shape(lu,0))((1 > lu_Dims[0]) ? (1) : (lu_Dims[0]));
8328 /* Processing variable rhs */
8329 capi_rhs_intent |= (capi_overwrite_rhs?0:F2PY_INTENT_COPY32);
8330 rhs_Dims[0]=n;
8331 capi_rhs_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
8332 capi_rhs_tmp = array_from_pyobj(NPY_DOUBLE,rhs_Dims,rhs_Rank,capi_rhs_intent,rhs_capi);
8333 if (capi_rhs_tmp == NULL((void*)0)) {
8334 if (!PyErr_Occurred())
8335 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `rhs' of _flapack.dgesc2 to C/Fortran array" );
8336 } else {
8337 rhs = (double *)(PyArray_DATA(capi_rhs_tmp)((void *)((PyArrayObject_fields *)(capi_rhs_tmp))->data));
8338
8339 CHECKARRAY(shape(lu,0)==len(rhs),"shape(lu,0)==len(rhs)","2nd argument rhs")if (!(lu_Dims[0]==rhs_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(lu,0)==len(rhs)"") failed for ""2nd argument rhs")
; } else
{
8340 /* Processing variable ipiv */
8341 ipiv_Dims[0]=n;
8342 capi_ipiv_intent |= F2PY_INTENT_IN1;
8343 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
8344 if (capi_ipiv_tmp == NULL((void*)0)) {
8345 if (!PyErr_Occurred())
8346 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `ipiv' of _flapack.dgesc2 to C/Fortran array" );
8347 } else {
8348 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
8349
8350 /* Processing variable jpiv */
8351 jpiv_Dims[0]=n;
8352 capi_jpiv_intent |= F2PY_INTENT_IN1;
8353 capi_jpiv_tmp = array_from_pyobj(NPY_INT,jpiv_Dims,jpiv_Rank,capi_jpiv_intent,jpiv_capi);
8354 if (capi_jpiv_tmp == NULL((void*)0)) {
8355 if (!PyErr_Occurred())
8356 PyErr_SetString(_flapack_error,"failed in converting 4th argument `jpiv' of _flapack.dgesc2 to C/Fortran array" );
8357 } else {
8358 jpiv = (int *)(PyArray_DATA(capi_jpiv_tmp)((void *)((PyArrayObject_fields *)(capi_jpiv_tmp))->data));
8359
8360/*end of frompyobj*/
8361#ifdef F2PY_REPORT_ATEXIT
8362f2py_start_call_clock();
8363#endif
8364/*callfortranroutine*/
8365 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
8366 {F_INTint i;for(i=0;i<n;++ipiv[i],++jpiv[i++]);(*f2py_func)(&n,lu,&lda,rhs,ipiv,jpiv,&scale);for(i=0;i<n;--ipiv[i],--jpiv[i++]);} ;
8367 /*(*f2py_func)(&n,lu,&lda,rhs,ipiv,jpiv,&scale);*/
8368 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
8369if (PyErr_Occurred())
8370 f2py_success = 0;
8371#ifdef F2PY_REPORT_ATEXIT
8372f2py_stop_call_clock();
8373#endif
8374/*end of callfortranroutine*/
8375 if (f2py_success) {
8376/*pyobjfrom*/
8377/*end of pyobjfrom*/
8378 CFUNCSMESS("Building return value.\n");
8379 capi_buildvalue = Py_BuildValue("Nd",capi_rhs_tmp,scale);
8380/*closepyobjfrom*/
8381/*end of closepyobjfrom*/
8382 } /*if (f2py_success) after callfortranroutine*/
8383/*cleanupfrompyobj*/
8384 if((PyObject *)capi_jpiv_tmp!=jpiv_capi) {
8385 Py_XDECREF(capi_jpiv_tmp)_Py_XDECREF(((PyObject*)(capi_jpiv_tmp))); }
8386 } /*if (capi_jpiv_tmp == NULL) ... else of jpiv*/
8387 /* End of cleaning variable jpiv */
8388 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
8389 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
8390 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
8391 /* End of cleaning variable ipiv */
8392 } /*CHECKARRAY(shape(lu,0)==len(rhs))*/
8393 } /*if (capi_rhs_tmp == NULL) ... else of rhs*/
8394 /* End of cleaning variable rhs */
8395 /* End of cleaning variable lda */
8396 /* End of cleaning variable n */
8397 /* End of cleaning variable scale */
8398 } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/
8399 if((PyObject *)capi_lu_tmp!=lu_capi) {
8400 Py_XDECREF(capi_lu_tmp)_Py_XDECREF(((PyObject*)(capi_lu_tmp))); }
8401 } /*if (capi_lu_tmp == NULL) ... else of lu*/
8402 /* End of cleaning variable lu */
8403/*end of cleanupfrompyobj*/
8404 if (capi_buildvalue == NULL((void*)0)) {
8405/*routdebugfailure*/
8406 } else {
8407/*routdebugleave*/
8408 }
8409 CFUNCSMESS("Freeing memory.\n");
8410/*freemem*/
8411#ifdef F2PY_REPORT_ATEXIT
8412f2py_stop_clock();
8413#endif
8414 return capi_buildvalue;
8415}
8416/******************************* end of dgesc2 *******************************/
8417
8418/*********************************** cgesc2 ***********************************/
8419static char doc_f2py_rout__flapack_cgesc2[] = "\
8420x,scale = cgesc2(lu,rhs,ipiv,jpiv,[overwrite_rhs])\n\nWrapper for ``cgesc2``.\
8421\n\nParameters\n----------\n"
8422"lu : input rank-2 array('F') with bounds (n,n)\n"
8423"rhs : input rank-1 array('F') with bounds (n)\n"
8424"ipiv : input rank-1 array('i') with bounds (n)\n"
8425"jpiv : input rank-1 array('i') with bounds (n)\n"
8426"\nOther Parameters\n----------------\n"
8427"overwrite_rhs : input int, optional\n Default: 0\n"
8428"\nReturns\n-------\n"
8429"x : rank-1 array('F') with bounds (n) and rhs storage\n"
8430"scale : float";
8431/* extern void F_FUNC(cgesc2,CGESC2)(F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,float* ); */
8432static PyObject *f2py_rout__flapack_cgesc2(const PyObject *capi_self,
8433 PyObject *capi_args,
8434 PyObject *capi_keywds,
8435 void (*f2py_func)(F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float* )) {
8436 PyObject * volatile capi_buildvalue = NULL((void*)0);
8437 volatile int f2py_success = 1;
8438/*decl*/
8439
8440 int n = 0;
8441 complex_float *lu = NULL((void*)0);
8442 npy_intp lu_Dims[2] = {-1, -1};
8443 const int lu_Rank = 2;
8444 PyArrayObject *capi_lu_tmp = NULL((void*)0);
8445 int capi_lu_intent = 0;
8446 PyObject *lu_capi = Py_None(&_Py_NoneStruct);
8447 int lda = 0;
8448 complex_float *rhs = NULL((void*)0);
8449 npy_intp rhs_Dims[1] = {-1};
8450 const int rhs_Rank = 1;
8451 PyArrayObject *capi_rhs_tmp = NULL((void*)0);
8452 int capi_rhs_intent = 0;
8453 int capi_overwrite_rhs = 0;
8454 PyObject *rhs_capi = Py_None(&_Py_NoneStruct);
8455 int *ipiv = NULL((void*)0);
8456 npy_intp ipiv_Dims[1] = {-1};
8457 const int ipiv_Rank = 1;
8458 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
8459 int capi_ipiv_intent = 0;
8460 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
8461 int *jpiv = NULL((void*)0);
8462 npy_intp jpiv_Dims[1] = {-1};
8463 const int jpiv_Rank = 1;
8464 PyArrayObject *capi_jpiv_tmp = NULL((void*)0);
8465 int capi_jpiv_intent = 0;
8466 PyObject *jpiv_capi = Py_None(&_Py_NoneStruct);
8467 float scale = 0;
8468 static char *capi_kwlist[] = {"lu","rhs","ipiv","jpiv","overwrite_rhs",NULL((void*)0)};
8469
8470/*routdebugenter*/
8471#ifdef F2PY_REPORT_ATEXIT
8472f2py_start_clock();
8473#endif
8474 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
8475 "OOOO|i:_flapack.cgesc2",\
8476 capi_kwlist,&lu_capi,&rhs_capi,&ipiv_capi,&jpiv_capi,&capi_overwrite_rhs))
8477 return NULL((void*)0);
8478/*frompyobj*/
8479 /* Processing variable lu */
8480 ;
8481 capi_lu_intent |= F2PY_INTENT_IN1;
8482 capi_lu_tmp = array_from_pyobj(NPY_CFLOAT,lu_Dims,lu_Rank,capi_lu_intent,lu_capi);
8483 if (capi_lu_tmp == NULL((void*)0)) {
8484 if (!PyErr_Occurred())
8485 PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.cgesc2 to C/Fortran array" );
8486 } else {
8487 lu = (complex_float *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data));
8488
8489 CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu"
); } else
{
8490 /* Processing variable scale */
8491 /* Processing variable n */
8492 n = shape(lu,0)lu_Dims[0];
8493 /* Processing variable lda */
8494 lda = MAX(1,shape(lu,0))((1 > lu_Dims[0]) ? (1) : (lu_Dims[0]));
8495 /* Processing variable rhs */
8496 capi_rhs_intent |= (capi_overwrite_rhs?0:F2PY_INTENT_COPY32);
8497 rhs_Dims[0]=n;
8498 capi_rhs_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
8499 capi_rhs_tmp = array_from_pyobj(NPY_CFLOAT,rhs_Dims,rhs_Rank,capi_rhs_intent,rhs_capi);
8500 if (capi_rhs_tmp == NULL((void*)0)) {
8501 if (!PyErr_Occurred())
8502 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `rhs' of _flapack.cgesc2 to C/Fortran array" );
8503 } else {
8504 rhs = (complex_float *)(PyArray_DATA(capi_rhs_tmp)((void *)((PyArrayObject_fields *)(capi_rhs_tmp))->data));
8505
8506 CHECKARRAY(shape(lu,0)==len(rhs),"shape(lu,0)==len(rhs)","2nd argument rhs")if (!(lu_Dims[0]==rhs_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(lu,0)==len(rhs)"") failed for ""2nd argument rhs")
; } else
{
8507 /* Processing variable ipiv */
8508 ipiv_Dims[0]=n;
8509 capi_ipiv_intent |= F2PY_INTENT_IN1;
8510 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
8511 if (capi_ipiv_tmp == NULL((void*)0)) {
8512 if (!PyErr_Occurred())
8513 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `ipiv' of _flapack.cgesc2 to C/Fortran array" );
8514 } else {
8515 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
8516
8517 /* Processing variable jpiv */
8518 jpiv_Dims[0]=n;
8519 capi_jpiv_intent |= F2PY_INTENT_IN1;
8520 capi_jpiv_tmp = array_from_pyobj(NPY_INT,jpiv_Dims,jpiv_Rank,capi_jpiv_intent,jpiv_capi);
8521 if (capi_jpiv_tmp == NULL((void*)0)) {
8522 if (!PyErr_Occurred())
8523 PyErr_SetString(_flapack_error,"failed in converting 4th argument `jpiv' of _flapack.cgesc2 to C/Fortran array" );
8524 } else {
8525 jpiv = (int *)(PyArray_DATA(capi_jpiv_tmp)((void *)((PyArrayObject_fields *)(capi_jpiv_tmp))->data));
8526
8527/*end of frompyobj*/
8528#ifdef F2PY_REPORT_ATEXIT
8529f2py_start_call_clock();
8530#endif
8531/*callfortranroutine*/
8532 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
8533 {F_INTint i;for(i=0;i<n;++ipiv[i],++jpiv[i++]);(*f2py_func)(&n,lu,&lda,rhs,ipiv,jpiv,&scale);for(i=0;i<n;--ipiv[i],--jpiv[i++]);} ;
8534 /*(*f2py_func)(&n,lu,&lda,rhs,ipiv,jpiv,&scale);*/
8535 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
8536if (PyErr_Occurred())
8537 f2py_success = 0;
8538#ifdef F2PY_REPORT_ATEXIT
8539f2py_stop_call_clock();
8540#endif
8541/*end of callfortranroutine*/
8542 if (f2py_success) {
8543/*pyobjfrom*/
8544/*end of pyobjfrom*/
8545 CFUNCSMESS("Building return value.\n");
8546 capi_buildvalue = Py_BuildValue("Nf",capi_rhs_tmp,scale);
8547/*closepyobjfrom*/
8548/*end of closepyobjfrom*/
8549 } /*if (f2py_success) after callfortranroutine*/
8550/*cleanupfrompyobj*/
8551 if((PyObject *)capi_jpiv_tmp!=jpiv_capi) {
8552 Py_XDECREF(capi_jpiv_tmp)_Py_XDECREF(((PyObject*)(capi_jpiv_tmp))); }
8553 } /*if (capi_jpiv_tmp == NULL) ... else of jpiv*/
8554 /* End of cleaning variable jpiv */
8555 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
8556 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
8557 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
8558 /* End of cleaning variable ipiv */
8559 } /*CHECKARRAY(shape(lu,0)==len(rhs))*/
8560 } /*if (capi_rhs_tmp == NULL) ... else of rhs*/
8561 /* End of cleaning variable rhs */
8562 /* End of cleaning variable lda */
8563 /* End of cleaning variable n */
8564 /* End of cleaning variable scale */
8565 } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/
8566 if((PyObject *)capi_lu_tmp!=lu_capi) {
8567 Py_XDECREF(capi_lu_tmp)_Py_XDECREF(((PyObject*)(capi_lu_tmp))); }
8568 } /*if (capi_lu_tmp == NULL) ... else of lu*/
8569 /* End of cleaning variable lu */
8570/*end of cleanupfrompyobj*/
8571 if (capi_buildvalue == NULL((void*)0)) {
8572/*routdebugfailure*/
8573 } else {
8574/*routdebugleave*/
8575 }
8576 CFUNCSMESS("Freeing memory.\n");
8577/*freemem*/
8578#ifdef F2PY_REPORT_ATEXIT
8579f2py_stop_clock();
8580#endif
8581 return capi_buildvalue;
8582}
8583/******************************* end of cgesc2 *******************************/
8584
8585/*********************************** zgesc2 ***********************************/
8586static char doc_f2py_rout__flapack_zgesc2[] = "\
8587x,scale = zgesc2(lu,rhs,ipiv,jpiv,[overwrite_rhs])\n\nWrapper for ``zgesc2``.\
8588\n\nParameters\n----------\n"
8589"lu : input rank-2 array('D') with bounds (n,n)\n"
8590"rhs : input rank-1 array('D') with bounds (n)\n"
8591"ipiv : input rank-1 array('i') with bounds (n)\n"
8592"jpiv : input rank-1 array('i') with bounds (n)\n"
8593"\nOther Parameters\n----------------\n"
8594"overwrite_rhs : input int, optional\n Default: 0\n"
8595"\nReturns\n-------\n"
8596"x : rank-1 array('D') with bounds (n) and rhs storage\n"
8597"scale : float";
8598/* extern void F_FUNC(zgesc2,ZGESC2)(F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,double* ); */
8599static PyObject *f2py_rout__flapack_zgesc2(const PyObject *capi_self,
8600 PyObject *capi_args,
8601 PyObject *capi_keywds,
8602 void (*f2py_func)(F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double* )) {
8603 PyObject * volatile capi_buildvalue = NULL((void*)0);
8604 volatile int f2py_success = 1;
8605/*decl*/
8606
8607 int n = 0;
8608 complex_double *lu = NULL((void*)0);
8609 npy_intp lu_Dims[2] = {-1, -1};
8610 const int lu_Rank = 2;
8611 PyArrayObject *capi_lu_tmp = NULL((void*)0);
8612 int capi_lu_intent = 0;
8613 PyObject *lu_capi = Py_None(&_Py_NoneStruct);
8614 int lda = 0;
8615 complex_double *rhs = NULL((void*)0);
8616 npy_intp rhs_Dims[1] = {-1};
8617 const int rhs_Rank = 1;
8618 PyArrayObject *capi_rhs_tmp = NULL((void*)0);
8619 int capi_rhs_intent = 0;
8620 int capi_overwrite_rhs = 0;
8621 PyObject *rhs_capi = Py_None(&_Py_NoneStruct);
8622 int *ipiv = NULL((void*)0);
8623 npy_intp ipiv_Dims[1] = {-1};
8624 const int ipiv_Rank = 1;
8625 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
8626 int capi_ipiv_intent = 0;
8627 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
8628 int *jpiv = NULL((void*)0);
8629 npy_intp jpiv_Dims[1] = {-1};
8630 const int jpiv_Rank = 1;
8631 PyArrayObject *capi_jpiv_tmp = NULL((void*)0);
8632 int capi_jpiv_intent = 0;
8633 PyObject *jpiv_capi = Py_None(&_Py_NoneStruct);
8634 double scale = 0;
8635 static char *capi_kwlist[] = {"lu","rhs","ipiv","jpiv","overwrite_rhs",NULL((void*)0)};
8636
8637/*routdebugenter*/
8638#ifdef F2PY_REPORT_ATEXIT
8639f2py_start_clock();
8640#endif
8641 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
8642 "OOOO|i:_flapack.zgesc2",\
8643 capi_kwlist,&lu_capi,&rhs_capi,&ipiv_capi,&jpiv_capi,&capi_overwrite_rhs))
8644 return NULL((void*)0);
8645/*frompyobj*/
8646 /* Processing variable lu */
8647 ;
8648 capi_lu_intent |= F2PY_INTENT_IN1;
8649 capi_lu_tmp = array_from_pyobj(NPY_CDOUBLE,lu_Dims,lu_Rank,capi_lu_intent,lu_capi);
8650 if (capi_lu_tmp == NULL((void*)0)) {
8651 if (!PyErr_Occurred())
8652 PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.zgesc2 to C/Fortran array" );
8653 } else {
8654 lu = (complex_double *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data));
8655
8656 CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu"
); } else
{
8657 /* Processing variable scale */
8658 /* Processing variable n */
8659 n = shape(lu,0)lu_Dims[0];
8660 /* Processing variable lda */
8661 lda = MAX(1,shape(lu,0))((1 > lu_Dims[0]) ? (1) : (lu_Dims[0]));
8662 /* Processing variable rhs */
8663 capi_rhs_intent |= (capi_overwrite_rhs?0:F2PY_INTENT_COPY32);
8664 rhs_Dims[0]=n;
8665 capi_rhs_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
8666 capi_rhs_tmp = array_from_pyobj(NPY_CDOUBLE,rhs_Dims,rhs_Rank,capi_rhs_intent,rhs_capi);
8667 if (capi_rhs_tmp == NULL((void*)0)) {
8668 if (!PyErr_Occurred())
8669 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `rhs' of _flapack.zgesc2 to C/Fortran array" );
8670 } else {
8671 rhs = (complex_double *)(PyArray_DATA(capi_rhs_tmp)((void *)((PyArrayObject_fields *)(capi_rhs_tmp))->data));
8672
8673 CHECKARRAY(shape(lu,0)==len(rhs),"shape(lu,0)==len(rhs)","2nd argument rhs")if (!(lu_Dims[0]==rhs_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(lu,0)==len(rhs)"") failed for ""2nd argument rhs")
; } else
{
8674 /* Processing variable ipiv */
8675 ipiv_Dims[0]=n;
8676 capi_ipiv_intent |= F2PY_INTENT_IN1;
8677 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
8678 if (capi_ipiv_tmp == NULL((void*)0)) {
8679 if (!PyErr_Occurred())
8680 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `ipiv' of _flapack.zgesc2 to C/Fortran array" );
8681 } else {
8682 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
8683
8684 /* Processing variable jpiv */
8685 jpiv_Dims[0]=n;
8686 capi_jpiv_intent |= F2PY_INTENT_IN1;
8687 capi_jpiv_tmp = array_from_pyobj(NPY_INT,jpiv_Dims,jpiv_Rank,capi_jpiv_intent,jpiv_capi);
8688 if (capi_jpiv_tmp == NULL((void*)0)) {
8689 if (!PyErr_Occurred())
8690 PyErr_SetString(_flapack_error,"failed in converting 4th argument `jpiv' of _flapack.zgesc2 to C/Fortran array" );
8691 } else {
8692 jpiv = (int *)(PyArray_DATA(capi_jpiv_tmp)((void *)((PyArrayObject_fields *)(capi_jpiv_tmp))->data));
8693
8694/*end of frompyobj*/
8695#ifdef F2PY_REPORT_ATEXIT
8696f2py_start_call_clock();
8697#endif
8698/*callfortranroutine*/
8699 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
8700 {F_INTint i;for(i=0;i<n;++ipiv[i],++jpiv[i++]);(*f2py_func)(&n,lu,&lda,rhs,ipiv,jpiv,&scale);for(i=0;i<n;--ipiv[i],--jpiv[i++]);} ;
8701 /*(*f2py_func)(&n,lu,&lda,rhs,ipiv,jpiv,&scale);*/
8702 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
8703if (PyErr_Occurred())
8704 f2py_success = 0;
8705#ifdef F2PY_REPORT_ATEXIT
8706f2py_stop_call_clock();
8707#endif
8708/*end of callfortranroutine*/
8709 if (f2py_success) {
8710/*pyobjfrom*/
8711/*end of pyobjfrom*/
8712 CFUNCSMESS("Building return value.\n");
8713 capi_buildvalue = Py_BuildValue("Nd",capi_rhs_tmp,scale);
8714/*closepyobjfrom*/
8715/*end of closepyobjfrom*/
8716 } /*if (f2py_success) after callfortranroutine*/
8717/*cleanupfrompyobj*/
8718 if((PyObject *)capi_jpiv_tmp!=jpiv_capi) {
8719 Py_XDECREF(capi_jpiv_tmp)_Py_XDECREF(((PyObject*)(capi_jpiv_tmp))); }
8720 } /*if (capi_jpiv_tmp == NULL) ... else of jpiv*/
8721 /* End of cleaning variable jpiv */
8722 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
8723 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
8724 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
8725 /* End of cleaning variable ipiv */
8726 } /*CHECKARRAY(shape(lu,0)==len(rhs))*/
8727 } /*if (capi_rhs_tmp == NULL) ... else of rhs*/
8728 /* End of cleaning variable rhs */
8729 /* End of cleaning variable lda */
8730 /* End of cleaning variable n */
8731 /* End of cleaning variable scale */
8732 } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/
8733 if((PyObject *)capi_lu_tmp!=lu_capi) {
8734 Py_XDECREF(capi_lu_tmp)_Py_XDECREF(((PyObject*)(capi_lu_tmp))); }
8735 } /*if (capi_lu_tmp == NULL) ... else of lu*/
8736 /* End of cleaning variable lu */
8737/*end of cleanupfrompyobj*/
8738 if (capi_buildvalue == NULL((void*)0)) {
8739/*routdebugfailure*/
8740 } else {
8741/*routdebugleave*/
8742 }
8743 CFUNCSMESS("Freeing memory.\n");
8744/*freemem*/
8745#ifdef F2PY_REPORT_ATEXIT
8746f2py_stop_clock();
8747#endif
8748 return capi_buildvalue;
8749}
8750/******************************* end of zgesc2 *******************************/
8751
8752/*********************************** sgetri ***********************************/
8753static char doc_f2py_rout__flapack_sgetri[] = "\
8754inv_a,info = sgetri(lu,piv,[lwork,overwrite_lu])\n\nWrapper for ``sgetri``.\
8755\n\nParameters\n----------\n"
8756"lu : input rank-2 array('f') with bounds (n,n)\n"
8757"piv : input rank-1 array('i') with bounds (n)\n"
8758"\nOther Parameters\n----------------\n"
8759"overwrite_lu : input int, optional\n Default: 0\n"
8760"lwork : input int, optional\n Default: max(3*n,1)\n"
8761"\nReturns\n-------\n"
8762"inv_a : rank-2 array('f') with bounds (n,n) and lu storage\n"
8763"info : int";
8764/* extern void F_FUNC(sgetri,SGETRI)(F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */
8765static PyObject *f2py_rout__flapack_sgetri(const PyObject *capi_self,
8766 PyObject *capi_args,
8767 PyObject *capi_keywds,
8768 void (*f2py_func)(F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) {
8769 PyObject * volatile capi_buildvalue = NULL((void*)0);
8770 volatile int f2py_success = 1;
8771/*decl*/
8772
8773 int n = 0;
8774 float *lu = NULL((void*)0);
8775 npy_intp lu_Dims[2] = {-1, -1};
8776 const int lu_Rank = 2;
8777 PyArrayObject *capi_lu_tmp = NULL((void*)0);
8778 int capi_lu_intent = 0;
8779 int capi_overwrite_lu = 0;
8780 PyObject *lu_capi = Py_None(&_Py_NoneStruct);
8781 int *piv = NULL((void*)0);
8782 npy_intp piv_Dims[1] = {-1};
8783 const int piv_Rank = 1;
8784 PyArrayObject *capi_piv_tmp = NULL((void*)0);
8785 int capi_piv_intent = 0;
8786 PyObject *piv_capi = Py_None(&_Py_NoneStruct);
8787 float *work = NULL((void*)0);
8788 npy_intp work_Dims[1] = {-1};
8789 const int work_Rank = 1;
8790 PyArrayObject *capi_work_tmp = NULL((void*)0);
8791 int capi_work_intent = 0;
8792 int lwork = 0;
8793 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
8794 int info = 0;
8795 static char *capi_kwlist[] = {"lu","piv","lwork","overwrite_lu",NULL((void*)0)};
8796
8797/*routdebugenter*/
8798#ifdef F2PY_REPORT_ATEXIT
8799f2py_start_clock();
8800#endif
8801 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
8802 "OO|Oi:_flapack.sgetri",\
8803 capi_kwlist,&lu_capi,&piv_capi,&lwork_capi,&capi_overwrite_lu))
8804 return NULL((void*)0);
8805/*frompyobj*/
8806 /* Processing variable lu */
8807 capi_lu_intent |= (capi_overwrite_lu?0:F2PY_INTENT_COPY32);
8808 ;
8809 capi_lu_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
8810 capi_lu_tmp = array_from_pyobj(NPY_FLOAT,lu_Dims,lu_Rank,capi_lu_intent,lu_capi);
8811 if (capi_lu_tmp == NULL((void*)0)) {
8812 if (!PyErr_Occurred())
8813 PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.sgetri to C/Fortran array" );
8814 } else {
8815 lu = (float *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data));
8816
8817 CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu"
); } else
{
8818 /* Processing variable info */
8819 /* Processing variable n */
8820 n = shape(lu,0)lu_Dims[0];
8821 /* Processing variable piv */
8822 piv_Dims[0]=n;
8823 capi_piv_intent |= F2PY_INTENT_IN1;
8824 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi);
8825 if (capi_piv_tmp == NULL((void*)0)) {
8826 if (!PyErr_Occurred())
8827 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.sgetri to C/Fortran array" );
8828 } else {
8829 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
8830
8831 /* Processing variable lwork */
8832 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else
8833 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgetri() 1st keyword (lwork) can't be converted to int");
8834 if (f2py_success) {
8835 CHECKSCALAR(lwork>=n,"lwork>=n","1st keyword lwork","sgetri:lwork=%d",lwork)if (!(lwork>=n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgetri:lwork=%d", "(""lwork>=n"") failed for ""1st keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
8836 /* Processing variable work */
8837 work_Dims[0]=lwork;
8838 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
8839 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
8840 if (capi_work_tmp == NULL((void*)0)) {
8841 if (!PyErr_Occurred())
8842 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgetri to C/Fortran array" );
8843 } else {
8844 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
8845
8846/*end of frompyobj*/
8847#ifdef F2PY_REPORT_ATEXIT
8848f2py_start_call_clock();
8849#endif
8850/*callfortranroutine*/
8851 {F_INTint i;for(i=0;i<n;++piv[i++]);(*f2py_func)(&n,lu,&n,piv,work,&lwork,&info);for(i=0;i<n;--piv[i++]);} ;
8852 /*(*f2py_func)(&n,lu,piv,work,&lwork,&info);*/
8853if (PyErr_Occurred())
8854 f2py_success = 0;
8855#ifdef F2PY_REPORT_ATEXIT
8856f2py_stop_call_clock();
8857#endif
8858/*end of callfortranroutine*/
8859 if (f2py_success) {
8860/*pyobjfrom*/
8861/*end of pyobjfrom*/
8862 CFUNCSMESS("Building return value.\n");
8863 capi_buildvalue = Py_BuildValue("Ni",capi_lu_tmp,info);
8864/*closepyobjfrom*/
8865/*end of closepyobjfrom*/
8866 } /*if (f2py_success) after callfortranroutine*/
8867/*cleanupfrompyobj*/
8868 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
8869 } /*if (capi_work_tmp == NULL) ... else of work*/
8870 /* End of cleaning variable work */
8871 } /*CHECKSCALAR(lwork>=n)*/
8872 } /*if (f2py_success) of lwork*/
8873 /* End of cleaning variable lwork */
8874 if((PyObject *)capi_piv_tmp!=piv_capi) {
8875 Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); }
8876 } /*if (capi_piv_tmp == NULL) ... else of piv*/
8877 /* End of cleaning variable piv */
8878 /* End of cleaning variable n */
8879 /* End of cleaning variable info */
8880 } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/
8881 } /*if (capi_lu_tmp == NULL) ... else of lu*/
8882 /* End of cleaning variable lu */
8883/*end of cleanupfrompyobj*/
8884 if (capi_buildvalue == NULL((void*)0)) {
8885/*routdebugfailure*/
8886 } else {
8887/*routdebugleave*/
8888 }
8889 CFUNCSMESS("Freeing memory.\n");
8890/*freemem*/
8891#ifdef F2PY_REPORT_ATEXIT
8892f2py_stop_clock();
8893#endif
8894 return capi_buildvalue;
8895}
8896/******************************* end of sgetri *******************************/
8897
8898/*********************************** dgetri ***********************************/
8899static char doc_f2py_rout__flapack_dgetri[] = "\
8900inv_a,info = dgetri(lu,piv,[lwork,overwrite_lu])\n\nWrapper for ``dgetri``.\
8901\n\nParameters\n----------\n"
8902"lu : input rank-2 array('d') with bounds (n,n)\n"
8903"piv : input rank-1 array('i') with bounds (n)\n"
8904"\nOther Parameters\n----------------\n"
8905"overwrite_lu : input int, optional\n Default: 0\n"
8906"lwork : input int, optional\n Default: max(3*n,1)\n"
8907"\nReturns\n-------\n"
8908"inv_a : rank-2 array('d') with bounds (n,n) and lu storage\n"
8909"info : int";
8910/* extern void F_FUNC(dgetri,DGETRI)(F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */
8911static PyObject *f2py_rout__flapack_dgetri(const PyObject *capi_self,
8912 PyObject *capi_args,
8913 PyObject *capi_keywds,
8914 void (*f2py_func)(F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) {
8915 PyObject * volatile capi_buildvalue = NULL((void*)0);
8916 volatile int f2py_success = 1;
8917/*decl*/
8918
8919 int n = 0;
8920 double *lu = NULL((void*)0);
8921 npy_intp lu_Dims[2] = {-1, -1};
8922 const int lu_Rank = 2;
8923 PyArrayObject *capi_lu_tmp = NULL((void*)0);
8924 int capi_lu_intent = 0;
8925 int capi_overwrite_lu = 0;
8926 PyObject *lu_capi = Py_None(&_Py_NoneStruct);
8927 int *piv = NULL((void*)0);
8928 npy_intp piv_Dims[1] = {-1};
8929 const int piv_Rank = 1;
8930 PyArrayObject *capi_piv_tmp = NULL((void*)0);
8931 int capi_piv_intent = 0;
8932 PyObject *piv_capi = Py_None(&_Py_NoneStruct);
8933 double *work = NULL((void*)0);
8934 npy_intp work_Dims[1] = {-1};
8935 const int work_Rank = 1;
8936 PyArrayObject *capi_work_tmp = NULL((void*)0);
8937 int capi_work_intent = 0;
8938 int lwork = 0;
8939 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
8940 int info = 0;
8941 static char *capi_kwlist[] = {"lu","piv","lwork","overwrite_lu",NULL((void*)0)};
8942
8943/*routdebugenter*/
8944#ifdef F2PY_REPORT_ATEXIT
8945f2py_start_clock();
8946#endif
8947 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
8948 "OO|Oi:_flapack.dgetri",\
8949 capi_kwlist,&lu_capi,&piv_capi,&lwork_capi,&capi_overwrite_lu))
8950 return NULL((void*)0);
8951/*frompyobj*/
8952 /* Processing variable lu */
8953 capi_lu_intent |= (capi_overwrite_lu?0:F2PY_INTENT_COPY32);
8954 ;
8955 capi_lu_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
8956 capi_lu_tmp = array_from_pyobj(NPY_DOUBLE,lu_Dims,lu_Rank,capi_lu_intent,lu_capi);
8957 if (capi_lu_tmp == NULL((void*)0)) {
8958 if (!PyErr_Occurred())
8959 PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.dgetri to C/Fortran array" );
8960 } else {
8961 lu = (double *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data));
8962
8963 CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu"
); } else
{
8964 /* Processing variable info */
8965 /* Processing variable n */
8966 n = shape(lu,0)lu_Dims[0];
8967 /* Processing variable piv */
8968 piv_Dims[0]=n;
8969 capi_piv_intent |= F2PY_INTENT_IN1;
8970 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi);
8971 if (capi_piv_tmp == NULL((void*)0)) {
8972 if (!PyErr_Occurred())
8973 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.dgetri to C/Fortran array" );
8974 } else {
8975 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
8976
8977 /* Processing variable lwork */
8978 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else
8979 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgetri() 1st keyword (lwork) can't be converted to int");
8980 if (f2py_success) {
8981 CHECKSCALAR(lwork>=n,"lwork>=n","1st keyword lwork","dgetri:lwork=%d",lwork)if (!(lwork>=n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgetri:lwork=%d", "(""lwork>=n"") failed for ""1st keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
8982 /* Processing variable work */
8983 work_Dims[0]=lwork;
8984 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
8985 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
8986 if (capi_work_tmp == NULL((void*)0)) {
8987 if (!PyErr_Occurred())
8988 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgetri to C/Fortran array" );
8989 } else {
8990 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
8991
8992/*end of frompyobj*/
8993#ifdef F2PY_REPORT_ATEXIT
8994f2py_start_call_clock();
8995#endif
8996/*callfortranroutine*/
8997 {F_INTint i;for(i=0;i<n;++piv[i++]);(*f2py_func)(&n,lu,&n,piv,work,&lwork,&info);for(i=0;i<n;--piv[i++]);} ;
8998 /*(*f2py_func)(&n,lu,piv,work,&lwork,&info);*/
8999if (PyErr_Occurred())
9000 f2py_success = 0;
9001#ifdef F2PY_REPORT_ATEXIT
9002f2py_stop_call_clock();
9003#endif
9004/*end of callfortranroutine*/
9005 if (f2py_success) {
9006/*pyobjfrom*/
9007/*end of pyobjfrom*/
9008 CFUNCSMESS("Building return value.\n");
9009 capi_buildvalue = Py_BuildValue("Ni",capi_lu_tmp,info);
9010/*closepyobjfrom*/
9011/*end of closepyobjfrom*/
9012 } /*if (f2py_success) after callfortranroutine*/
9013/*cleanupfrompyobj*/
9014 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
9015 } /*if (capi_work_tmp == NULL) ... else of work*/
9016 /* End of cleaning variable work */
9017 } /*CHECKSCALAR(lwork>=n)*/
9018 } /*if (f2py_success) of lwork*/
9019 /* End of cleaning variable lwork */
9020 if((PyObject *)capi_piv_tmp!=piv_capi) {
9021 Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); }
9022 } /*if (capi_piv_tmp == NULL) ... else of piv*/
9023 /* End of cleaning variable piv */
9024 /* End of cleaning variable n */
9025 /* End of cleaning variable info */
9026 } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/
9027 } /*if (capi_lu_tmp == NULL) ... else of lu*/
9028 /* End of cleaning variable lu */
9029/*end of cleanupfrompyobj*/
9030 if (capi_buildvalue == NULL((void*)0)) {
9031/*routdebugfailure*/
9032 } else {
9033/*routdebugleave*/
9034 }
9035 CFUNCSMESS("Freeing memory.\n");
9036/*freemem*/
9037#ifdef F2PY_REPORT_ATEXIT
9038f2py_stop_clock();
9039#endif
9040 return capi_buildvalue;
9041}
9042/******************************* end of dgetri *******************************/
9043
9044/*********************************** cgetri ***********************************/
9045static char doc_f2py_rout__flapack_cgetri[] = "\
9046inv_a,info = cgetri(lu,piv,[lwork,overwrite_lu])\n\nWrapper for ``cgetri``.\
9047\n\nParameters\n----------\n"
9048"lu : input rank-2 array('F') with bounds (n,n)\n"
9049"piv : input rank-1 array('i') with bounds (n)\n"
9050"\nOther Parameters\n----------------\n"
9051"overwrite_lu : input int, optional\n Default: 0\n"
9052"lwork : input int, optional\n Default: max(3*n,1)\n"
9053"\nReturns\n-------\n"
9054"inv_a : rank-2 array('F') with bounds (n,n) and lu storage\n"
9055"info : int";
9056/* extern void F_FUNC(cgetri,CGETRI)(F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */
9057static PyObject *f2py_rout__flapack_cgetri(const PyObject *capi_self,
9058 PyObject *capi_args,
9059 PyObject *capi_keywds,
9060 void (*f2py_func)(F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
9061 PyObject * volatile capi_buildvalue = NULL((void*)0);
9062 volatile int f2py_success = 1;
9063/*decl*/
9064
9065 int n = 0;
9066 complex_float *lu = NULL((void*)0);
9067 npy_intp lu_Dims[2] = {-1, -1};
9068 const int lu_Rank = 2;
9069 PyArrayObject *capi_lu_tmp = NULL((void*)0);
9070 int capi_lu_intent = 0;
9071 int capi_overwrite_lu = 0;
9072 PyObject *lu_capi = Py_None(&_Py_NoneStruct);
9073 int *piv = NULL((void*)0);
9074 npy_intp piv_Dims[1] = {-1};
9075 const int piv_Rank = 1;
9076 PyArrayObject *capi_piv_tmp = NULL((void*)0);
9077 int capi_piv_intent = 0;
9078 PyObject *piv_capi = Py_None(&_Py_NoneStruct);
9079 complex_float *work = NULL((void*)0);
9080 npy_intp work_Dims[1] = {-1};
9081 const int work_Rank = 1;
9082 PyArrayObject *capi_work_tmp = NULL((void*)0);
9083 int capi_work_intent = 0;
9084 int lwork = 0;
9085 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
9086 int info = 0;
9087 static char *capi_kwlist[] = {"lu","piv","lwork","overwrite_lu",NULL((void*)0)};
9088
9089/*routdebugenter*/
9090#ifdef F2PY_REPORT_ATEXIT
9091f2py_start_clock();
9092#endif
9093 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
9094 "OO|Oi:_flapack.cgetri",\
9095 capi_kwlist,&lu_capi,&piv_capi,&lwork_capi,&capi_overwrite_lu))
9096 return NULL((void*)0);
9097/*frompyobj*/
9098 /* Processing variable lu */
9099 capi_lu_intent |= (capi_overwrite_lu?0:F2PY_INTENT_COPY32);
9100 ;
9101 capi_lu_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
9102 capi_lu_tmp = array_from_pyobj(NPY_CFLOAT,lu_Dims,lu_Rank,capi_lu_intent,lu_capi);
9103 if (capi_lu_tmp == NULL((void*)0)) {
9104 if (!PyErr_Occurred())
9105 PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.cgetri to C/Fortran array" );
9106 } else {
9107 lu = (complex_float *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data));
9108
9109 CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu"
); } else
{
9110 /* Processing variable info */
9111 /* Processing variable n */
9112 n = shape(lu,0)lu_Dims[0];
9113 /* Processing variable piv */
9114 piv_Dims[0]=n;
9115 capi_piv_intent |= F2PY_INTENT_IN1;
9116 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi);
9117 if (capi_piv_tmp == NULL((void*)0)) {
9118 if (!PyErr_Occurred())
9119 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.cgetri to C/Fortran array" );
9120 } else {
9121 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
9122
9123 /* Processing variable lwork */
9124 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else
9125 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgetri() 1st keyword (lwork) can't be converted to int");
9126 if (f2py_success) {
9127 CHECKSCALAR(lwork>=n,"lwork>=n","1st keyword lwork","cgetri:lwork=%d",lwork)if (!(lwork>=n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgetri:lwork=%d", "(""lwork>=n"") failed for ""1st keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
9128 /* Processing variable work */
9129 work_Dims[0]=lwork;
9130 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
9131 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
9132 if (capi_work_tmp == NULL((void*)0)) {
9133 if (!PyErr_Occurred())
9134 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgetri to C/Fortran array" );
9135 } else {
9136 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
9137
9138/*end of frompyobj*/
9139#ifdef F2PY_REPORT_ATEXIT
9140f2py_start_call_clock();
9141#endif
9142/*callfortranroutine*/
9143 {F_INTint i;for(i=0;i<n;++piv[i++]);(*f2py_func)(&n,lu,&n,piv,work,&lwork,&info);for(i=0;i<n;--piv[i++]);} ;
9144 /*(*f2py_func)(&n,lu,piv,work,&lwork,&info);*/
9145if (PyErr_Occurred())
9146 f2py_success = 0;
9147#ifdef F2PY_REPORT_ATEXIT
9148f2py_stop_call_clock();
9149#endif
9150/*end of callfortranroutine*/
9151 if (f2py_success) {
9152/*pyobjfrom*/
9153/*end of pyobjfrom*/
9154 CFUNCSMESS("Building return value.\n");
9155 capi_buildvalue = Py_BuildValue("Ni",capi_lu_tmp,info);
9156/*closepyobjfrom*/
9157/*end of closepyobjfrom*/
9158 } /*if (f2py_success) after callfortranroutine*/
9159/*cleanupfrompyobj*/
9160 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
9161 } /*if (capi_work_tmp == NULL) ... else of work*/
9162 /* End of cleaning variable work */
9163 } /*CHECKSCALAR(lwork>=n)*/
9164 } /*if (f2py_success) of lwork*/
9165 /* End of cleaning variable lwork */
9166 if((PyObject *)capi_piv_tmp!=piv_capi) {
9167 Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); }
9168 } /*if (capi_piv_tmp == NULL) ... else of piv*/
9169 /* End of cleaning variable piv */
9170 /* End of cleaning variable n */
9171 /* End of cleaning variable info */
9172 } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/
9173 } /*if (capi_lu_tmp == NULL) ... else of lu*/
9174 /* End of cleaning variable lu */
9175/*end of cleanupfrompyobj*/
9176 if (capi_buildvalue == NULL((void*)0)) {
9177/*routdebugfailure*/
9178 } else {
9179/*routdebugleave*/
9180 }
9181 CFUNCSMESS("Freeing memory.\n");
9182/*freemem*/
9183#ifdef F2PY_REPORT_ATEXIT
9184f2py_stop_clock();
9185#endif
9186 return capi_buildvalue;
9187}
9188/******************************* end of cgetri *******************************/
9189
9190/*********************************** zgetri ***********************************/
9191static char doc_f2py_rout__flapack_zgetri[] = "\
9192inv_a,info = zgetri(lu,piv,[lwork,overwrite_lu])\n\nWrapper for ``zgetri``.\
9193\n\nParameters\n----------\n"
9194"lu : input rank-2 array('D') with bounds (n,n)\n"
9195"piv : input rank-1 array('i') with bounds (n)\n"
9196"\nOther Parameters\n----------------\n"
9197"overwrite_lu : input int, optional\n Default: 0\n"
9198"lwork : input int, optional\n Default: max(3*n,1)\n"
9199"\nReturns\n-------\n"
9200"inv_a : rank-2 array('D') with bounds (n,n) and lu storage\n"
9201"info : int";
9202/* extern void F_FUNC(zgetri,ZGETRI)(F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */
9203static PyObject *f2py_rout__flapack_zgetri(const PyObject *capi_self,
9204 PyObject *capi_args,
9205 PyObject *capi_keywds,
9206 void (*f2py_func)(F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
9207 PyObject * volatile capi_buildvalue = NULL((void*)0);
9208 volatile int f2py_success = 1;
9209/*decl*/
9210
9211 int n = 0;
9212 complex_double *lu = NULL((void*)0);
9213 npy_intp lu_Dims[2] = {-1, -1};
9214 const int lu_Rank = 2;
9215 PyArrayObject *capi_lu_tmp = NULL((void*)0);
9216 int capi_lu_intent = 0;
9217 int capi_overwrite_lu = 0;
9218 PyObject *lu_capi = Py_None(&_Py_NoneStruct);
9219 int *piv = NULL((void*)0);
9220 npy_intp piv_Dims[1] = {-1};
9221 const int piv_Rank = 1;
9222 PyArrayObject *capi_piv_tmp = NULL((void*)0);
9223 int capi_piv_intent = 0;
9224 PyObject *piv_capi = Py_None(&_Py_NoneStruct);
9225 complex_double *work = NULL((void*)0);
9226 npy_intp work_Dims[1] = {-1};
9227 const int work_Rank = 1;
9228 PyArrayObject *capi_work_tmp = NULL((void*)0);
9229 int capi_work_intent = 0;
9230 int lwork = 0;
9231 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
9232 int info = 0;
9233 static char *capi_kwlist[] = {"lu","piv","lwork","overwrite_lu",NULL((void*)0)};
9234
9235/*routdebugenter*/
9236#ifdef F2PY_REPORT_ATEXIT
9237f2py_start_clock();
9238#endif
9239 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
9240 "OO|Oi:_flapack.zgetri",\
9241 capi_kwlist,&lu_capi,&piv_capi,&lwork_capi,&capi_overwrite_lu))
9242 return NULL((void*)0);
9243/*frompyobj*/
9244 /* Processing variable lu */
9245 capi_lu_intent |= (capi_overwrite_lu?0:F2PY_INTENT_COPY32);
9246 ;
9247 capi_lu_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
9248 capi_lu_tmp = array_from_pyobj(NPY_CDOUBLE,lu_Dims,lu_Rank,capi_lu_intent,lu_capi);
9249 if (capi_lu_tmp == NULL((void*)0)) {
9250 if (!PyErr_Occurred())
9251 PyErr_SetString(_flapack_error,"failed in converting 1st argument `lu' of _flapack.zgetri to C/Fortran array" );
9252 } else {
9253 lu = (complex_double *)(PyArray_DATA(capi_lu_tmp)((void *)((PyArrayObject_fields *)(capi_lu_tmp))->data));
9254
9255 CHECKARRAY(shape(lu,0)==shape(lu,1),"shape(lu,0)==shape(lu,1)","1st argument lu")if (!(lu_Dims[0]==lu_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(lu,0)==shape(lu,1)"") failed for ""1st argument lu"
); } else
{
9256 /* Processing variable info */
9257 /* Processing variable n */
9258 n = shape(lu,0)lu_Dims[0];
9259 /* Processing variable piv */
9260 piv_Dims[0]=n;
9261 capi_piv_intent |= F2PY_INTENT_IN1;
9262 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi);
9263 if (capi_piv_tmp == NULL((void*)0)) {
9264 if (!PyErr_Occurred())
9265 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.zgetri to C/Fortran array" );
9266 } else {
9267 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
9268
9269 /* Processing variable lwork */
9270 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else
9271 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgetri() 1st keyword (lwork) can't be converted to int");
9272 if (f2py_success) {
9273 CHECKSCALAR(lwork>=n,"lwork>=n","1st keyword lwork","zgetri:lwork=%d",lwork)if (!(lwork>=n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgetri:lwork=%d", "(""lwork>=n"") failed for ""1st keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
9274 /* Processing variable work */
9275 work_Dims[0]=lwork;
9276 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
9277 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
9278 if (capi_work_tmp == NULL((void*)0)) {
9279 if (!PyErr_Occurred())
9280 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgetri to C/Fortran array" );
9281 } else {
9282 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
9283
9284/*end of frompyobj*/
9285#ifdef F2PY_REPORT_ATEXIT
9286f2py_start_call_clock();
9287#endif
9288/*callfortranroutine*/
9289 {F_INTint i;for(i=0;i<n;++piv[i++]);(*f2py_func)(&n,lu,&n,piv,work,&lwork,&info);for(i=0;i<n;--piv[i++]);} ;
9290 /*(*f2py_func)(&n,lu,piv,work,&lwork,&info);*/
9291if (PyErr_Occurred())
9292 f2py_success = 0;
9293#ifdef F2PY_REPORT_ATEXIT
9294f2py_stop_call_clock();
9295#endif
9296/*end of callfortranroutine*/
9297 if (f2py_success) {
9298/*pyobjfrom*/
9299/*end of pyobjfrom*/
9300 CFUNCSMESS("Building return value.\n");
9301 capi_buildvalue = Py_BuildValue("Ni",capi_lu_tmp,info);
9302/*closepyobjfrom*/
9303/*end of closepyobjfrom*/
9304 } /*if (f2py_success) after callfortranroutine*/
9305/*cleanupfrompyobj*/
9306 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
9307 } /*if (capi_work_tmp == NULL) ... else of work*/
9308 /* End of cleaning variable work */
9309 } /*CHECKSCALAR(lwork>=n)*/
9310 } /*if (f2py_success) of lwork*/
9311 /* End of cleaning variable lwork */
9312 if((PyObject *)capi_piv_tmp!=piv_capi) {
9313 Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); }
9314 } /*if (capi_piv_tmp == NULL) ... else of piv*/
9315 /* End of cleaning variable piv */
9316 /* End of cleaning variable n */
9317 /* End of cleaning variable info */
9318 } /*CHECKARRAY(shape(lu,0)==shape(lu,1))*/
9319 } /*if (capi_lu_tmp == NULL) ... else of lu*/
9320 /* End of cleaning variable lu */
9321/*end of cleanupfrompyobj*/
9322 if (capi_buildvalue == NULL((void*)0)) {
9323/*routdebugfailure*/
9324 } else {
9325/*routdebugleave*/
9326 }
9327 CFUNCSMESS("Freeing memory.\n");
9328/*freemem*/
9329#ifdef F2PY_REPORT_ATEXIT
9330f2py_stop_clock();
9331#endif
9332 return capi_buildvalue;
9333}
9334/******************************* end of zgetri *******************************/
9335
9336/******************************** sgetri_lwork ********************************/
9337static char doc_f2py_rout__flapack_sgetri_lwork[] = "\
9338work,info = sgetri_lwork(n)\n\nWrapper for ``sgetri_lwork``.\
9339\n\nParameters\n----------\n"
9340"n : input int\n"
9341"\nReturns\n-------\n"
9342"work : float\n"
9343"info : int";
9344/* extern void F_FUNC(sgetri ,SGETRI )(F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */
9345static PyObject *f2py_rout__flapack_sgetri_lwork(const PyObject *capi_self,
9346 PyObject *capi_args,
9347 PyObject *capi_keywds,
9348 void (*f2py_func)(F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) {
9349 PyObject * volatile capi_buildvalue = NULL((void*)0);
9350 volatile int f2py_success = 1;
9351/*decl*/
9352
9353 int n = 0;
9354 PyObject *n_capi = Py_None(&_Py_NoneStruct);
9355 float lu = 0;
9356 int piv = 0;
9357 float work = 0;
9358 int lwork = 0;
9359 int info = 0;
9360 static char *capi_kwlist[] = {"n",NULL((void*)0)};
9361
9362/*routdebugenter*/
9363#ifdef F2PY_REPORT_ATEXIT
9364f2py_start_clock();
9365#endif
9366 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
9367 "O:_flapack.sgetri_lwork",\
9368 capi_kwlist,&n_capi))
9369 return NULL((void*)0);
9370/*frompyobj*/
9371 /* Processing variable n */
9372 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgetri_lwork() 1st argument (n) can't be converted to int");
9373 if (f2py_success) {
9374 /* Processing variable lu */
9375 /* Processing variable piv */
9376 /* Processing variable info */
9377 /* Processing variable lwork */
9378 lwork = -1;
9379 /* Processing variable work */
9380/*end of frompyobj*/
9381#ifdef F2PY_REPORT_ATEXIT
9382f2py_start_call_clock();
9383#endif
9384/*callfortranroutine*/
9385 (*f2py_func)(&n,&lu,&n,&piv,&work,&lwork,&info) ;
9386 /*(*f2py_func)(&n,&lu,&piv,&work,&lwork,&info);*/
9387if (PyErr_Occurred())
9388 f2py_success = 0;
9389#ifdef F2PY_REPORT_ATEXIT
9390f2py_stop_call_clock();
9391#endif
9392/*end of callfortranroutine*/
9393 if (f2py_success) {
9394/*pyobjfrom*/
9395/*end of pyobjfrom*/
9396 CFUNCSMESS("Building return value.\n");
9397 capi_buildvalue = Py_BuildValue("fi",work,info);
9398/*closepyobjfrom*/
9399/*end of closepyobjfrom*/
9400 } /*if (f2py_success) after callfortranroutine*/
9401/*cleanupfrompyobj*/
9402 /* End of cleaning variable work */
9403 /* End of cleaning variable lwork */
9404 /* End of cleaning variable info */
9405 /* End of cleaning variable piv */
9406 /* End of cleaning variable lu */
9407 } /*if (f2py_success) of n*/
9408 /* End of cleaning variable n */
9409/*end of cleanupfrompyobj*/
9410 if (capi_buildvalue == NULL((void*)0)) {
9411/*routdebugfailure*/
9412 } else {
9413/*routdebugleave*/
9414 }
9415 CFUNCSMESS("Freeing memory.\n");
9416/*freemem*/
9417#ifdef F2PY_REPORT_ATEXIT
9418f2py_stop_clock();
9419#endif
9420 return capi_buildvalue;
9421}
9422/**************************** end of sgetri_lwork ****************************/
9423
9424/******************************** dgetri_lwork ********************************/
9425static char doc_f2py_rout__flapack_dgetri_lwork[] = "\
9426work,info = dgetri_lwork(n)\n\nWrapper for ``dgetri_lwork``.\
9427\n\nParameters\n----------\n"
9428"n : input int\n"
9429"\nReturns\n-------\n"
9430"work : float\n"
9431"info : int";
9432/* extern void F_FUNC(dgetri ,DGETRI )(F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */
9433static PyObject *f2py_rout__flapack_dgetri_lwork(const PyObject *capi_self,
9434 PyObject *capi_args,
9435 PyObject *capi_keywds,
9436 void (*f2py_func)(F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) {
9437 PyObject * volatile capi_buildvalue = NULL((void*)0);
9438 volatile int f2py_success = 1;
9439/*decl*/
9440
9441 int n = 0;
9442 PyObject *n_capi = Py_None(&_Py_NoneStruct);
9443 double lu = 0;
9444 int piv = 0;
9445 double work = 0;
9446 int lwork = 0;
9447 int info = 0;
9448 static char *capi_kwlist[] = {"n",NULL((void*)0)};
9449
9450/*routdebugenter*/
9451#ifdef F2PY_REPORT_ATEXIT
9452f2py_start_clock();
9453#endif
9454 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
9455 "O:_flapack.dgetri_lwork",\
9456 capi_kwlist,&n_capi))
9457 return NULL((void*)0);
9458/*frompyobj*/
9459 /* Processing variable n */
9460 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgetri_lwork() 1st argument (n) can't be converted to int");
9461 if (f2py_success) {
9462 /* Processing variable lu */
9463 /* Processing variable piv */
9464 /* Processing variable info */
9465 /* Processing variable lwork */
9466 lwork = -1;
9467 /* Processing variable work */
9468/*end of frompyobj*/
9469#ifdef F2PY_REPORT_ATEXIT
9470f2py_start_call_clock();
9471#endif
9472/*callfortranroutine*/
9473 (*f2py_func)(&n,&lu,&n,&piv,&work,&lwork,&info) ;
9474 /*(*f2py_func)(&n,&lu,&piv,&work,&lwork,&info);*/
9475if (PyErr_Occurred())
9476 f2py_success = 0;
9477#ifdef F2PY_REPORT_ATEXIT
9478f2py_stop_call_clock();
9479#endif
9480/*end of callfortranroutine*/
9481 if (f2py_success) {
9482/*pyobjfrom*/
9483/*end of pyobjfrom*/
9484 CFUNCSMESS("Building return value.\n");
9485 capi_buildvalue = Py_BuildValue("di",work,info);
9486/*closepyobjfrom*/
9487/*end of closepyobjfrom*/
9488 } /*if (f2py_success) after callfortranroutine*/
9489/*cleanupfrompyobj*/
9490 /* End of cleaning variable work */
9491 /* End of cleaning variable lwork */
9492 /* End of cleaning variable info */
9493 /* End of cleaning variable piv */
9494 /* End of cleaning variable lu */
9495 } /*if (f2py_success) of n*/
9496 /* End of cleaning variable n */
9497/*end of cleanupfrompyobj*/
9498 if (capi_buildvalue == NULL((void*)0)) {
9499/*routdebugfailure*/
9500 } else {
9501/*routdebugleave*/
9502 }
9503 CFUNCSMESS("Freeing memory.\n");
9504/*freemem*/
9505#ifdef F2PY_REPORT_ATEXIT
9506f2py_stop_clock();
9507#endif
9508 return capi_buildvalue;
9509}
9510/**************************** end of dgetri_lwork ****************************/
9511
9512/******************************** cgetri_lwork ********************************/
9513static char doc_f2py_rout__flapack_cgetri_lwork[] = "\
9514work,info = cgetri_lwork(n)\n\nWrapper for ``cgetri_lwork``.\
9515\n\nParameters\n----------\n"
9516"n : input int\n"
9517"\nReturns\n-------\n"
9518"work : complex\n"
9519"info : int";
9520/* extern void F_FUNC(cgetri ,CGETRI )(F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */
9521static PyObject *f2py_rout__flapack_cgetri_lwork(const PyObject *capi_self,
9522 PyObject *capi_args,
9523 PyObject *capi_keywds,
9524 void (*f2py_func)(F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
9525 PyObject * volatile capi_buildvalue = NULL((void*)0);
9526 volatile int f2py_success = 1;
9527/*decl*/
9528
9529 int n = 0;
9530 PyObject *n_capi = Py_None(&_Py_NoneStruct);
9531 complex_float lu;
9532 int piv = 0;
9533 complex_float work;
9534 PyObject *work_capi = Py_None(&_Py_NoneStruct);
9535 int lwork = 0;
9536 int info = 0;
9537 static char *capi_kwlist[] = {"n",NULL((void*)0)};
9538
9539/*routdebugenter*/
9540#ifdef F2PY_REPORT_ATEXIT
9541f2py_start_clock();
9542#endif
9543 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
9544 "O:_flapack.cgetri_lwork",\
9545 capi_kwlist,&n_capi))
9546 return NULL((void*)0);
9547/*frompyobj*/
9548 /* Processing variable n */
9549 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgetri_lwork() 1st argument (n) can't be converted to int");
9550 if (f2py_success) {
9551 /* Processing variable lu */
9552 /* Processing variable piv */
9553 /* Processing variable info */
9554 /* Processing variable lwork */
9555 lwork = -1;
9556 /* Processing variable work */
9557/*end of frompyobj*/
9558#ifdef F2PY_REPORT_ATEXIT
9559f2py_start_call_clock();
9560#endif
9561/*callfortranroutine*/
9562 (*f2py_func)(&n,&lu,&n,&piv,&work,&lwork,&info) ;
9563 /*(*f2py_func)(&n,&lu,&piv,&work,&lwork,&info);*/
9564if (PyErr_Occurred())
9565 f2py_success = 0;
9566#ifdef F2PY_REPORT_ATEXIT
9567f2py_stop_call_clock();
9568#endif
9569/*end of callfortranroutine*/
9570 if (f2py_success) {
9571/*pyobjfrom*/
9572 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
9573/*end of pyobjfrom*/
9574 CFUNCSMESS("Building return value.\n");
9575 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
9576/*closepyobjfrom*/
9577/*end of closepyobjfrom*/
9578 } /*if (f2py_success) after callfortranroutine*/
9579/*cleanupfrompyobj*/
9580 /* End of cleaning variable work */
9581 /* End of cleaning variable lwork */
9582 /* End of cleaning variable info */
9583 /* End of cleaning variable piv */
9584 /* End of cleaning variable lu */
9585 } /*if (f2py_success) of n*/
9586 /* End of cleaning variable n */
9587/*end of cleanupfrompyobj*/
9588 if (capi_buildvalue == NULL((void*)0)) {
9589/*routdebugfailure*/
9590 } else {
9591/*routdebugleave*/
9592 }
9593 CFUNCSMESS("Freeing memory.\n");
9594/*freemem*/
9595#ifdef F2PY_REPORT_ATEXIT
9596f2py_stop_clock();
9597#endif
9598 return capi_buildvalue;
9599}
9600/**************************** end of cgetri_lwork ****************************/
9601
9602/******************************** zgetri_lwork ********************************/
9603static char doc_f2py_rout__flapack_zgetri_lwork[] = "\
9604work,info = zgetri_lwork(n)\n\nWrapper for ``zgetri_lwork``.\
9605\n\nParameters\n----------\n"
9606"n : input int\n"
9607"\nReturns\n-------\n"
9608"work : complex\n"
9609"info : int";
9610/* extern void F_FUNC(zgetri ,ZGETRI )(F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */
9611static PyObject *f2py_rout__flapack_zgetri_lwork(const PyObject *capi_self,
9612 PyObject *capi_args,
9613 PyObject *capi_keywds,
9614 void (*f2py_func)(F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
9615 PyObject * volatile capi_buildvalue = NULL((void*)0);
9616 volatile int f2py_success = 1;
9617/*decl*/
9618
9619 int n = 0;
9620 PyObject *n_capi = Py_None(&_Py_NoneStruct);
9621 complex_double lu;
9622 int piv = 0;
9623 complex_double work;
9624 PyObject *work_capi = Py_None(&_Py_NoneStruct);
9625 int lwork = 0;
9626 int info = 0;
9627 static char *capi_kwlist[] = {"n",NULL((void*)0)};
9628
9629/*routdebugenter*/
9630#ifdef F2PY_REPORT_ATEXIT
9631f2py_start_clock();
9632#endif
9633 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
9634 "O:_flapack.zgetri_lwork",\
9635 capi_kwlist,&n_capi))
9636 return NULL((void*)0);
9637/*frompyobj*/
9638 /* Processing variable n */
9639 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgetri_lwork() 1st argument (n) can't be converted to int");
9640 if (f2py_success) {
9641 /* Processing variable lu */
9642 /* Processing variable piv */
9643 /* Processing variable info */
9644 /* Processing variable lwork */
9645 lwork = -1;
9646 /* Processing variable work */
9647/*end of frompyobj*/
9648#ifdef F2PY_REPORT_ATEXIT
9649f2py_start_call_clock();
9650#endif
9651/*callfortranroutine*/
9652 (*f2py_func)(&n,&lu,&n,&piv,&work,&lwork,&info) ;
9653 /*(*f2py_func)(&n,&lu,&piv,&work,&lwork,&info);*/
9654if (PyErr_Occurred())
9655 f2py_success = 0;
9656#ifdef F2PY_REPORT_ATEXIT
9657f2py_stop_call_clock();
9658#endif
9659/*end of callfortranroutine*/
9660 if (f2py_success) {
9661/*pyobjfrom*/
9662 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
9663/*end of pyobjfrom*/
9664 CFUNCSMESS("Building return value.\n");
9665 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
9666/*closepyobjfrom*/
9667/*end of closepyobjfrom*/
9668 } /*if (f2py_success) after callfortranroutine*/
9669/*cleanupfrompyobj*/
9670 /* End of cleaning variable work */
9671 /* End of cleaning variable lwork */
9672 /* End of cleaning variable info */
9673 /* End of cleaning variable piv */
9674 /* End of cleaning variable lu */
9675 } /*if (f2py_success) of n*/
9676 /* End of cleaning variable n */
9677/*end of cleanupfrompyobj*/
9678 if (capi_buildvalue == NULL((void*)0)) {
9679/*routdebugfailure*/
9680 } else {
9681/*routdebugleave*/
9682 }
9683 CFUNCSMESS("Freeing memory.\n");
9684/*freemem*/
9685#ifdef F2PY_REPORT_ATEXIT
9686f2py_stop_clock();
9687#endif
9688 return capi_buildvalue;
9689}
9690/**************************** end of zgetri_lwork ****************************/
9691
9692/*********************************** sgesdd ***********************************/
9693static char doc_f2py_rout__flapack_sgesdd[] = "\
9694u,s,vt,info = sgesdd(a,[compute_uv,full_matrices,lwork,overwrite_a])\n\nWrapper for ``sgesdd``.\
9695\n\nParameters\n----------\n"
9696"a : input rank-2 array('f') with bounds (m,n)\n"
9697"\nOther Parameters\n----------------\n"
9698"overwrite_a : input int, optional\n Default: 0\n"
9699"compute_uv : input int, optional\n Default: 1\n"
9700"full_matrices : input int, optional\n Default: 1\n"
9701"lwork : input int, optional\n Default: max((compute_uv?4*minmn*minmn+MAX(m,n)+9*minmn:MAX(14*minmn+4,10*minmn+2+25*(25+8))+MAX(m,n)),1)\n"
9702"\nReturns\n-------\n"
9703"u : rank-2 array('f') with bounds (u0,u1)\n"
9704"s : rank-1 array('f') with bounds (minmn)\n"
9705"vt : rank-2 array('f') with bounds (vt0,vt1)\n"
9706"info : int";
9707/* extern void F_FUNC(sgesdd,SGESDD)(char*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */
9708static PyObject *f2py_rout__flapack_sgesdd(const PyObject *capi_self,
9709 PyObject *capi_args,
9710 PyObject *capi_keywds,
9711 void (*f2py_func)(char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) {
9712 PyObject * volatile capi_buildvalue = NULL((void*)0);
9713 volatile int f2py_success = 1;
9714/*decl*/
9715
9716 int m = 0;
9717 int n = 0;
9718 int minmn = 0;
9719 int u0 = 0;
9720 int u1 = 0;
9721 int vt0 = 0;
9722 int vt1 = 0;
9723 float *a = NULL((void*)0);
9724 npy_intp a_Dims[2] = {-1, -1};
9725 const int a_Rank = 2;
9726 PyArrayObject *capi_a_tmp = NULL((void*)0);
9727 int capi_a_intent = 0;
9728 int capi_overwrite_a = 0;
9729 PyObject *a_capi = Py_None(&_Py_NoneStruct);
9730 int compute_uv = 0;
9731 PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct);
9732 int full_matrices = 0;
9733 PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct);
9734 float *u = NULL((void*)0);
9735 npy_intp u_Dims[2] = {-1, -1};
9736 const int u_Rank = 2;
9737 PyArrayObject *capi_u_tmp = NULL((void*)0);
9738 int capi_u_intent = 0;
9739 float *s = NULL((void*)0);
9740 npy_intp s_Dims[1] = {-1};
9741 const int s_Rank = 1;
9742 PyArrayObject *capi_s_tmp = NULL((void*)0);
9743 int capi_s_intent = 0;
9744 float *vt = NULL((void*)0);
9745 npy_intp vt_Dims[2] = {-1, -1};
9746 const int vt_Rank = 2;
9747 PyArrayObject *capi_vt_tmp = NULL((void*)0);
9748 int capi_vt_intent = 0;
9749 float *work = NULL((void*)0);
9750 npy_intp work_Dims[1] = {-1};
9751 const int work_Rank = 1;
9752 PyArrayObject *capi_work_tmp = NULL((void*)0);
9753 int capi_work_intent = 0;
9754 int lwork = 0;
9755 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
9756 int *iwork = NULL((void*)0);
9757 npy_intp iwork_Dims[1] = {-1};
9758 const int iwork_Rank = 1;
9759 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
9760 int capi_iwork_intent = 0;
9761 int info = 0;
9762 static char *capi_kwlist[] = {"a","compute_uv","full_matrices","lwork","overwrite_a",NULL((void*)0)};
9763
9764/*routdebugenter*/
9765#ifdef F2PY_REPORT_ATEXIT
9766f2py_start_clock();
9767#endif
9768 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
9769 "O|OOOi:_flapack.sgesdd",\
9770 capi_kwlist,&a_capi,&compute_uv_capi,&full_matrices_capi,&lwork_capi,&capi_overwrite_a))
9771 return NULL((void*)0);
9772/*frompyobj*/
9773 /* Processing variable compute_uv */
9774 if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else
9775 f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.sgesdd() 1st keyword (compute_uv) can't be converted to int");
9776 if (f2py_success) {
9777 CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","sgesdd:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgesdd:compute_uv=%d", "(""compute_uv==0||compute_uv==1"
") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString
(_flapack_error,errstring); } else
{
9778 /* Processing variable full_matrices */
9779 if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else
9780 f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.sgesdd() 2nd keyword (full_matrices) can't be converted to int");
9781 if (f2py_success) {
9782 CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","sgesdd:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""sgesdd:full_matrices=%d", "(""full_matrices==0||full_matrices==1"
") failed for ""2nd keyword full_matrices", full_matrices); PyErr_SetString
(_flapack_error,errstring); } else
{
9783 /* Processing variable a */
9784 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
9785 ;
9786 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
9787 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
9788 if (capi_a_tmp == NULL((void*)0)) {
9789 if (!PyErr_Occurred())
9790 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgesdd to C/Fortran array" );
9791 } else {
9792 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
9793
9794 /* Processing variable info */
9795 /* Processing variable m */
9796 m = shape(a,0)a_Dims[0];
9797 /* Processing variable n */
9798 n = shape(a,1)a_Dims[1];
9799 /* Processing variable minmn */
9800 minmn = MIN(m,n)((m < n) ? (m) : (n));
9801 /* Processing variable u0 */
9802 u0 = (compute_uv?m:1);
9803 /* Processing variable u1 */
9804 u1 = (compute_uv?(full_matrices?m:minmn):1);
9805 /* Processing variable vt0 */
9806 vt0 = (compute_uv?(full_matrices?n:minmn):1);
9807 /* Processing variable vt1 */
9808 vt1 = (compute_uv?n:1);
9809 /* Processing variable s */
9810 s_Dims[0]=minmn;
9811 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
9812 capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
9813 if (capi_s_tmp == NULL((void*)0)) {
9814 if (!PyErr_Occurred())
9815 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.sgesdd to C/Fortran array" );
9816 } else {
9817 s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
9818
9819 /* Processing variable u */
9820 u_Dims[0]=u0,u_Dims[1]=u1;
9821 capi_u_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
9822 capi_u_tmp = array_from_pyobj(NPY_FLOAT,u_Dims,u_Rank,capi_u_intent,Py_None(&_Py_NoneStruct));
9823 if (capi_u_tmp == NULL((void*)0)) {
9824 if (!PyErr_Occurred())
9825 PyErr_SetString(_flapack_error,"failed in converting hidden `u' of _flapack.sgesdd to C/Fortran array" );
9826 } else {
9827 u = (float *)(PyArray_DATA(capi_u_tmp)((void *)((PyArrayObject_fields *)(capi_u_tmp))->data));
9828
9829 /* Processing variable vt */
9830 vt_Dims[0]=vt0,vt_Dims[1]=vt1;
9831 capi_vt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
9832 capi_vt_tmp = array_from_pyobj(NPY_FLOAT,vt_Dims,vt_Rank,capi_vt_intent,Py_None(&_Py_NoneStruct));
9833 if (capi_vt_tmp == NULL((void*)0)) {
9834 if (!PyErr_Occurred())
9835 PyErr_SetString(_flapack_error,"failed in converting hidden `vt' of _flapack.sgesdd to C/Fortran array" );
9836 } else {
9837 vt = (float *)(PyArray_DATA(capi_vt_tmp)((void *)((PyArrayObject_fields *)(capi_vt_tmp))->data));
9838
9839 /* Processing variable lwork */
9840 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max((compute_uv?4*minmn*minmn+MAX(m,n)+9*minmn:MAX(14*minmn+4,10*minmn+2+25*(25+8))+MAX(m,n)),1)(((compute_uv?4*minmn*minmn+((m > n) ? (m) : (n))+9*minmn:
((14*minmn+4 > 10*minmn+2+25*(25+8)) ? (14*minmn+4) : (10*
minmn+2+25*(25+8)))+((m > n) ? (m) : (n))) > 1) ? ((compute_uv
?4*minmn*minmn+((m > n) ? (m) : (n))+9*minmn:((14*minmn+4 >
10*minmn+2+25*(25+8)) ? (14*minmn+4) : (10*minmn+2+25*(25+8)
))+((m > n) ? (m) : (n)))) : (1))
; else
9841 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgesdd() 3rd keyword (lwork) can't be converted to int");
9842 if (f2py_success) {
9843 /* Processing variable iwork */
9844 iwork_Dims[0]=8 * minmn;
9845 capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
9846 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
9847 if (capi_iwork_tmp == NULL((void*)0)) {
9848 if (!PyErr_Occurred())
9849 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.sgesdd to C/Fortran array" );
9850 } else {
9851 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
9852
9853 /* Processing variable work */
9854 work_Dims[0]=lwork;
9855 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
9856 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
9857 if (capi_work_tmp == NULL((void*)0)) {
9858 if (!PyErr_Occurred())
9859 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgesdd to C/Fortran array" );
9860 } else {
9861 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
9862
9863/*end of frompyobj*/
9864#ifdef F2PY_REPORT_ATEXIT
9865f2py_start_call_clock();
9866#endif
9867/*callfortranroutine*/
9868 (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,a,&m,s,u,&u0,vt,&vt0,work,&lwork,iwork,&info) ;
9869 /*(*f2py_func)(&m,&n,&minmn,&u0,&u1,&vt0,&vt1,a,&compute_uv,&full_matrices,u,s,vt,work,&lwork,iwork,&info);*/
9870if (PyErr_Occurred())
9871 f2py_success = 0;
9872#ifdef F2PY_REPORT_ATEXIT
9873f2py_stop_call_clock();
9874#endif
9875/*end of callfortranroutine*/
9876 if (f2py_success) {
9877/*pyobjfrom*/
9878/*end of pyobjfrom*/
9879 CFUNCSMESS("Building return value.\n");
9880 capi_buildvalue = Py_BuildValue("NNNi",capi_u_tmp,capi_s_tmp,capi_vt_tmp,info);
9881/*closepyobjfrom*/
9882/*end of closepyobjfrom*/
9883 } /*if (f2py_success) after callfortranroutine*/
9884/*cleanupfrompyobj*/
9885 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
9886 } /*if (capi_work_tmp == NULL) ... else of work*/
9887 /* End of cleaning variable work */
9888 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
9889 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
9890 /* End of cleaning variable iwork */
9891 } /*if (f2py_success) of lwork*/
9892 /* End of cleaning variable lwork */
9893 } /*if (capi_vt_tmp == NULL) ... else of vt*/
9894 /* End of cleaning variable vt */
9895 } /*if (capi_u_tmp == NULL) ... else of u*/
9896 /* End of cleaning variable u */
9897 } /*if (capi_s_tmp == NULL) ... else of s*/
9898 /* End of cleaning variable s */
9899 /* End of cleaning variable vt1 */
9900 /* End of cleaning variable vt0 */
9901 /* End of cleaning variable u1 */
9902 /* End of cleaning variable u0 */
9903 /* End of cleaning variable minmn */
9904 /* End of cleaning variable n */
9905 /* End of cleaning variable m */
9906 /* End of cleaning variable info */
9907 if((PyObject *)capi_a_tmp!=a_capi) {
9908 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
9909 } /*if (capi_a_tmp == NULL) ... else of a*/
9910 /* End of cleaning variable a */
9911 } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/
9912 } /*if (f2py_success) of full_matrices*/
9913 /* End of cleaning variable full_matrices */
9914 } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/
9915 } /*if (f2py_success) of compute_uv*/
9916 /* End of cleaning variable compute_uv */
9917/*end of cleanupfrompyobj*/
9918 if (capi_buildvalue == NULL((void*)0)) {
9919/*routdebugfailure*/
9920 } else {
9921/*routdebugleave*/
9922 }
9923 CFUNCSMESS("Freeing memory.\n");
9924/*freemem*/
9925#ifdef F2PY_REPORT_ATEXIT
9926f2py_stop_clock();
9927#endif
9928 return capi_buildvalue;
9929}
9930/******************************* end of sgesdd *******************************/
9931
9932/*********************************** dgesdd ***********************************/
9933static char doc_f2py_rout__flapack_dgesdd[] = "\
9934u,s,vt,info = dgesdd(a,[compute_uv,full_matrices,lwork,overwrite_a])\n\nWrapper for ``dgesdd``.\
9935\n\nParameters\n----------\n"
9936"a : input rank-2 array('d') with bounds (m,n)\n"
9937"\nOther Parameters\n----------------\n"
9938"overwrite_a : input int, optional\n Default: 0\n"
9939"compute_uv : input int, optional\n Default: 1\n"
9940"full_matrices : input int, optional\n Default: 1\n"
9941"lwork : input int, optional\n Default: max((compute_uv?4*minmn*minmn+MAX(m,n)+9*minmn:MAX(14*minmn+4,10*minmn+2+25*(25+8))+MAX(m,n)),1)\n"
9942"\nReturns\n-------\n"
9943"u : rank-2 array('d') with bounds (u0,u1)\n"
9944"s : rank-1 array('d') with bounds (minmn)\n"
9945"vt : rank-2 array('d') with bounds (vt0,vt1)\n"
9946"info : int";
9947/* extern void F_FUNC(dgesdd,DGESDD)(char*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */
9948static PyObject *f2py_rout__flapack_dgesdd(const PyObject *capi_self,
9949 PyObject *capi_args,
9950 PyObject *capi_keywds,
9951 void (*f2py_func)(char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) {
9952 PyObject * volatile capi_buildvalue = NULL((void*)0);
9953 volatile int f2py_success = 1;
9954/*decl*/
9955
9956 int m = 0;
9957 int n = 0;
9958 int minmn = 0;
9959 int u0 = 0;
9960 int u1 = 0;
9961 int vt0 = 0;
9962 int vt1 = 0;
9963 double *a = NULL((void*)0);
9964 npy_intp a_Dims[2] = {-1, -1};
9965 const int a_Rank = 2;
9966 PyArrayObject *capi_a_tmp = NULL((void*)0);
9967 int capi_a_intent = 0;
9968 int capi_overwrite_a = 0;
9969 PyObject *a_capi = Py_None(&_Py_NoneStruct);
9970 int compute_uv = 0;
9971 PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct);
9972 int full_matrices = 0;
9973 PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct);
9974 double *u = NULL((void*)0);
9975 npy_intp u_Dims[2] = {-1, -1};
9976 const int u_Rank = 2;
9977 PyArrayObject *capi_u_tmp = NULL((void*)0);
9978 int capi_u_intent = 0;
9979 double *s = NULL((void*)0);
9980 npy_intp s_Dims[1] = {-1};
9981 const int s_Rank = 1;
9982 PyArrayObject *capi_s_tmp = NULL((void*)0);
9983 int capi_s_intent = 0;
9984 double *vt = NULL((void*)0);
9985 npy_intp vt_Dims[2] = {-1, -1};
9986 const int vt_Rank = 2;
9987 PyArrayObject *capi_vt_tmp = NULL((void*)0);
9988 int capi_vt_intent = 0;
9989 double *work = NULL((void*)0);
9990 npy_intp work_Dims[1] = {-1};
9991 const int work_Rank = 1;
9992 PyArrayObject *capi_work_tmp = NULL((void*)0);
9993 int capi_work_intent = 0;
9994 int lwork = 0;
9995 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
9996 int *iwork = NULL((void*)0);
9997 npy_intp iwork_Dims[1] = {-1};
9998 const int iwork_Rank = 1;
9999 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
10000 int capi_iwork_intent = 0;
10001 int info = 0;
10002 static char *capi_kwlist[] = {"a","compute_uv","full_matrices","lwork","overwrite_a",NULL((void*)0)};
10003
10004/*routdebugenter*/
10005#ifdef F2PY_REPORT_ATEXIT
10006f2py_start_clock();
10007#endif
10008 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
10009 "O|OOOi:_flapack.dgesdd",\
10010 capi_kwlist,&a_capi,&compute_uv_capi,&full_matrices_capi,&lwork_capi,&capi_overwrite_a))
10011 return NULL((void*)0);
10012/*frompyobj*/
10013 /* Processing variable compute_uv */
10014 if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else
10015 f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.dgesdd() 1st keyword (compute_uv) can't be converted to int");
10016 if (f2py_success) {
10017 CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","dgesdd:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgesdd:compute_uv=%d", "(""compute_uv==0||compute_uv==1"
") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString
(_flapack_error,errstring); } else
{
10018 /* Processing variable full_matrices */
10019 if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else
10020 f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.dgesdd() 2nd keyword (full_matrices) can't be converted to int");
10021 if (f2py_success) {
10022 CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","dgesdd:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dgesdd:full_matrices=%d", "(""full_matrices==0||full_matrices==1"
") failed for ""2nd keyword full_matrices", full_matrices); PyErr_SetString
(_flapack_error,errstring); } else
{
10023 /* Processing variable a */
10024 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
10025 ;
10026 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
10027 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
10028 if (capi_a_tmp == NULL((void*)0)) {
10029 if (!PyErr_Occurred())
10030 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgesdd to C/Fortran array" );
10031 } else {
10032 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
10033
10034 /* Processing variable info */
10035 /* Processing variable m */
10036 m = shape(a,0)a_Dims[0];
10037 /* Processing variable n */
10038 n = shape(a,1)a_Dims[1];
10039 /* Processing variable minmn */
10040 minmn = MIN(m,n)((m < n) ? (m) : (n));
10041 /* Processing variable u0 */
10042 u0 = (compute_uv?m:1);
10043 /* Processing variable u1 */
10044 u1 = (compute_uv?(full_matrices?m:minmn):1);
10045 /* Processing variable vt0 */
10046 vt0 = (compute_uv?(full_matrices?n:minmn):1);
10047 /* Processing variable vt1 */
10048 vt1 = (compute_uv?n:1);
10049 /* Processing variable s */
10050 s_Dims[0]=minmn;
10051 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
10052 capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
10053 if (capi_s_tmp == NULL((void*)0)) {
10054 if (!PyErr_Occurred())
10055 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.dgesdd to C/Fortran array" );
10056 } else {
10057 s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
10058
10059 /* Processing variable u */
10060 u_Dims[0]=u0,u_Dims[1]=u1;
10061 capi_u_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
10062 capi_u_tmp = array_from_pyobj(NPY_DOUBLE,u_Dims,u_Rank,capi_u_intent,Py_None(&_Py_NoneStruct));
10063 if (capi_u_tmp == NULL((void*)0)) {
10064 if (!PyErr_Occurred())
10065 PyErr_SetString(_flapack_error,"failed in converting hidden `u' of _flapack.dgesdd to C/Fortran array" );
10066 } else {
10067 u = (double *)(PyArray_DATA(capi_u_tmp)((void *)((PyArrayObject_fields *)(capi_u_tmp))->data));
10068
10069 /* Processing variable vt */
10070 vt_Dims[0]=vt0,vt_Dims[1]=vt1;
10071 capi_vt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
10072 capi_vt_tmp = array_from_pyobj(NPY_DOUBLE,vt_Dims,vt_Rank,capi_vt_intent,Py_None(&_Py_NoneStruct));
10073 if (capi_vt_tmp == NULL((void*)0)) {
10074 if (!PyErr_Occurred())
10075 PyErr_SetString(_flapack_error,"failed in converting hidden `vt' of _flapack.dgesdd to C/Fortran array" );
10076 } else {
10077 vt = (double *)(PyArray_DATA(capi_vt_tmp)((void *)((PyArrayObject_fields *)(capi_vt_tmp))->data));
10078
10079 /* Processing variable lwork */
10080 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max((compute_uv?4*minmn*minmn+MAX(m,n)+9*minmn:MAX(14*minmn+4,10*minmn+2+25*(25+8))+MAX(m,n)),1)(((compute_uv?4*minmn*minmn+((m > n) ? (m) : (n))+9*minmn:
((14*minmn+4 > 10*minmn+2+25*(25+8)) ? (14*minmn+4) : (10*
minmn+2+25*(25+8)))+((m > n) ? (m) : (n))) > 1) ? ((compute_uv
?4*minmn*minmn+((m > n) ? (m) : (n))+9*minmn:((14*minmn+4 >
10*minmn+2+25*(25+8)) ? (14*minmn+4) : (10*minmn+2+25*(25+8)
))+((m > n) ? (m) : (n)))) : (1))
; else
10081 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgesdd() 3rd keyword (lwork) can't be converted to int");
10082 if (f2py_success) {
10083 /* Processing variable iwork */
10084 iwork_Dims[0]=8 * minmn;
10085 capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
10086 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
10087 if (capi_iwork_tmp == NULL((void*)0)) {
10088 if (!PyErr_Occurred())
10089 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dgesdd to C/Fortran array" );
10090 } else {
10091 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
10092
10093 /* Processing variable work */
10094 work_Dims[0]=lwork;
10095 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
10096 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
10097 if (capi_work_tmp == NULL((void*)0)) {
10098 if (!PyErr_Occurred())
10099 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgesdd to C/Fortran array" );
10100 } else {
10101 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
10102
10103/*end of frompyobj*/
10104#ifdef F2PY_REPORT_ATEXIT
10105f2py_start_call_clock();
10106#endif
10107/*callfortranroutine*/
10108 (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,a,&m,s,u,&u0,vt,&vt0,work,&lwork,iwork,&info) ;
10109 /*(*f2py_func)(&m,&n,&minmn,&u0,&u1,&vt0,&vt1,a,&compute_uv,&full_matrices,u,s,vt,work,&lwork,iwork,&info);*/
10110if (PyErr_Occurred())
10111 f2py_success = 0;
10112#ifdef F2PY_REPORT_ATEXIT
10113f2py_stop_call_clock();
10114#endif
10115/*end of callfortranroutine*/
10116 if (f2py_success) {
10117/*pyobjfrom*/
10118/*end of pyobjfrom*/
10119 CFUNCSMESS("Building return value.\n");
10120 capi_buildvalue = Py_BuildValue("NNNi",capi_u_tmp,capi_s_tmp,capi_vt_tmp,info);
10121/*closepyobjfrom*/
10122/*end of closepyobjfrom*/
10123 } /*if (f2py_success) after callfortranroutine*/
10124/*cleanupfrompyobj*/
10125 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
10126 } /*if (capi_work_tmp == NULL) ... else of work*/
10127 /* End of cleaning variable work */
10128 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
10129 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
10130 /* End of cleaning variable iwork */
10131 } /*if (f2py_success) of lwork*/
10132 /* End of cleaning variable lwork */
10133 } /*if (capi_vt_tmp == NULL) ... else of vt*/
10134 /* End of cleaning variable vt */
10135 } /*if (capi_u_tmp == NULL) ... else of u*/
10136 /* End of cleaning variable u */
10137 } /*if (capi_s_tmp == NULL) ... else of s*/
10138 /* End of cleaning variable s */
10139 /* End of cleaning variable vt1 */
10140 /* End of cleaning variable vt0 */
10141 /* End of cleaning variable u1 */
10142 /* End of cleaning variable u0 */
10143 /* End of cleaning variable minmn */
10144 /* End of cleaning variable n */
10145 /* End of cleaning variable m */
10146 /* End of cleaning variable info */
10147 if((PyObject *)capi_a_tmp!=a_capi) {
10148 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
10149 } /*if (capi_a_tmp == NULL) ... else of a*/
10150 /* End of cleaning variable a */
10151 } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/
10152 } /*if (f2py_success) of full_matrices*/
10153 /* End of cleaning variable full_matrices */
10154 } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/
10155 } /*if (f2py_success) of compute_uv*/
10156 /* End of cleaning variable compute_uv */
10157/*end of cleanupfrompyobj*/
10158 if (capi_buildvalue == NULL((void*)0)) {
10159/*routdebugfailure*/
10160 } else {
10161/*routdebugleave*/
10162 }
10163 CFUNCSMESS("Freeing memory.\n");
10164/*freemem*/
10165#ifdef F2PY_REPORT_ATEXIT
10166f2py_stop_clock();
10167#endif
10168 return capi_buildvalue;
10169}
10170/******************************* end of dgesdd *******************************/
10171
10172/******************************** sgesdd_lwork ********************************/
10173static char doc_f2py_rout__flapack_sgesdd_lwork[] = "\
10174work,info = sgesdd_lwork(m,n,[compute_uv,full_matrices])\n\nWrapper for ``sgesdd_lwork``.\
10175\n\nParameters\n----------\n"
10176"m : input int\n"
10177"n : input int\n"
10178"\nOther Parameters\n----------------\n"
10179"compute_uv : input int, optional\n Default: 1\n"
10180"full_matrices : input int, optional\n Default: 1\n"
10181"\nReturns\n-------\n"
10182"work : float\n"
10183"info : int";
10184/* extern void F_FUNC(sgesdd ,SGESDD )(char*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */
10185static PyObject *f2py_rout__flapack_sgesdd_lwork(const PyObject *capi_self,
10186 PyObject *capi_args,
10187 PyObject *capi_keywds,
10188 void (*f2py_func)(char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) {
10189 PyObject * volatile capi_buildvalue = NULL((void*)0);
10190 volatile int f2py_success = 1;
10191/*decl*/
10192
10193 int m = 0;
10194 PyObject *m_capi = Py_None(&_Py_NoneStruct);
10195 int n = 0;
10196 PyObject *n_capi = Py_None(&_Py_NoneStruct);
10197 int minmn = 0;
10198 int u0 = 0;
10199 int vt0 = 0;
10200 float a = 0;
10201 int compute_uv = 0;
10202 PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct);
10203 int full_matrices = 0;
10204 PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct);
10205 float u = 0;
10206 float s = 0;
10207 float vt = 0;
10208 float work = 0;
10209 int lwork = 0;
10210 int iwork = 0;
10211 int info = 0;
10212 static char *capi_kwlist[] = {"m","n","compute_uv","full_matrices",NULL((void*)0)};
10213
10214/*routdebugenter*/
10215#ifdef F2PY_REPORT_ATEXIT
10216f2py_start_clock();
10217#endif
10218 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
10219 "OO|OO:_flapack.sgesdd_lwork",\
10220 capi_kwlist,&m_capi,&n_capi,&compute_uv_capi,&full_matrices_capi))
10221 return NULL((void*)0);
10222/*frompyobj*/
10223 /* Processing variable compute_uv */
10224 if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else
10225 f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.sgesdd_lwork() 1st keyword (compute_uv) can't be converted to int");
10226 if (f2py_success) {
10227 CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","sgesdd_lwork:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgesdd_lwork:compute_uv=%d", "(""compute_uv==0||compute_uv==1"
") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString
(_flapack_error,errstring); } else
{
10228 /* Processing variable full_matrices */
10229 if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else
10230 f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.sgesdd_lwork() 2nd keyword (full_matrices) can't be converted to int");
10231 if (f2py_success) {
10232 CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","sgesdd_lwork:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""sgesdd_lwork:full_matrices=%d"
, "(""full_matrices==0||full_matrices==1"") failed for ""2nd keyword full_matrices"
, full_matrices); PyErr_SetString(_flapack_error,errstring); }
else
{
10233 /* Processing variable m */
10234 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sgesdd_lwork() 1st argument (m) can't be converted to int");
10235 if (f2py_success) {
10236 /* Processing variable n */
10237 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgesdd_lwork() 2nd argument (n) can't be converted to int");
10238 if (f2py_success) {
10239 /* Processing variable a */
10240 /* Processing variable s */
10241 /* Processing variable u */
10242 /* Processing variable vt */
10243 /* Processing variable work */
10244 /* Processing variable lwork */
10245 lwork = -1;
10246 /* Processing variable iwork */
10247 /* Processing variable info */
10248 /* Processing variable minmn */
10249 minmn = MIN(m,n)((m < n) ? (m) : (n));
10250 /* Processing variable u0 */
10251 u0 = (compute_uv?m:1);
10252 /* Processing variable vt0 */
10253 vt0 = (compute_uv?(full_matrices?n:minmn):1);
10254/*end of frompyobj*/
10255#ifdef F2PY_REPORT_ATEXIT
10256f2py_start_call_clock();
10257#endif
10258/*callfortranroutine*/
10259 (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,&a,&m,&s,&u,&u0,&vt,&vt0,&work,&lwork,&iwork,&info) ;
10260 /*(*f2py_func)(&m,&n,&minmn,&u0,&vt0,&a,&compute_uv,&full_matrices,&u,&s,&vt,&work,&lwork,&iwork,&info);*/
10261if (PyErr_Occurred())
10262 f2py_success = 0;
10263#ifdef F2PY_REPORT_ATEXIT
10264f2py_stop_call_clock();
10265#endif
10266/*end of callfortranroutine*/
10267 if (f2py_success) {
10268/*pyobjfrom*/
10269/*end of pyobjfrom*/
10270 CFUNCSMESS("Building return value.\n");
10271 capi_buildvalue = Py_BuildValue("fi",work,info);
10272/*closepyobjfrom*/
10273/*end of closepyobjfrom*/
10274 } /*if (f2py_success) after callfortranroutine*/
10275/*cleanupfrompyobj*/
10276 /* End of cleaning variable vt0 */
10277 /* End of cleaning variable u0 */
10278 /* End of cleaning variable minmn */
10279 /* End of cleaning variable info */
10280 /* End of cleaning variable iwork */
10281 /* End of cleaning variable lwork */
10282 /* End of cleaning variable work */
10283 /* End of cleaning variable vt */
10284 /* End of cleaning variable u */
10285 /* End of cleaning variable s */
10286 /* End of cleaning variable a */
10287 } /*if (f2py_success) of n*/
10288 /* End of cleaning variable n */
10289 } /*if (f2py_success) of m*/
10290 /* End of cleaning variable m */
10291 } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/
10292 } /*if (f2py_success) of full_matrices*/
10293 /* End of cleaning variable full_matrices */
10294 } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/
10295 } /*if (f2py_success) of compute_uv*/
10296 /* End of cleaning variable compute_uv */
10297/*end of cleanupfrompyobj*/
10298 if (capi_buildvalue == NULL((void*)0)) {
10299/*routdebugfailure*/
10300 } else {
10301/*routdebugleave*/
10302 }
10303 CFUNCSMESS("Freeing memory.\n");
10304/*freemem*/
10305#ifdef F2PY_REPORT_ATEXIT
10306f2py_stop_clock();
10307#endif
10308 return capi_buildvalue;
10309}
10310/**************************** end of sgesdd_lwork ****************************/
10311
10312/******************************** dgesdd_lwork ********************************/
10313static char doc_f2py_rout__flapack_dgesdd_lwork[] = "\
10314work,info = dgesdd_lwork(m,n,[compute_uv,full_matrices])\n\nWrapper for ``dgesdd_lwork``.\
10315\n\nParameters\n----------\n"
10316"m : input int\n"
10317"n : input int\n"
10318"\nOther Parameters\n----------------\n"
10319"compute_uv : input int, optional\n Default: 1\n"
10320"full_matrices : input int, optional\n Default: 1\n"
10321"\nReturns\n-------\n"
10322"work : float\n"
10323"info : int";
10324/* extern void F_FUNC(dgesdd ,DGESDD )(char*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */
10325static PyObject *f2py_rout__flapack_dgesdd_lwork(const PyObject *capi_self,
10326 PyObject *capi_args,
10327 PyObject *capi_keywds,
10328 void (*f2py_func)(char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) {
10329 PyObject * volatile capi_buildvalue = NULL((void*)0);
10330 volatile int f2py_success = 1;
10331/*decl*/
10332
10333 int m = 0;
10334 PyObject *m_capi = Py_None(&_Py_NoneStruct);
10335 int n = 0;
10336 PyObject *n_capi = Py_None(&_Py_NoneStruct);
10337 int minmn = 0;
10338 int u0 = 0;
10339 int vt0 = 0;
10340 double a = 0;
10341 int compute_uv = 0;
10342 PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct);
10343 int full_matrices = 0;
10344 PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct);
10345 double u = 0;
10346 double s = 0;
10347 double vt = 0;
10348 double work = 0;
10349 int lwork = 0;
10350 int iwork = 0;
10351 int info = 0;
10352 static char *capi_kwlist[] = {"m","n","compute_uv","full_matrices",NULL((void*)0)};
10353
10354/*routdebugenter*/
10355#ifdef F2PY_REPORT_ATEXIT
10356f2py_start_clock();
10357#endif
10358 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
10359 "OO|OO:_flapack.dgesdd_lwork",\
10360 capi_kwlist,&m_capi,&n_capi,&compute_uv_capi,&full_matrices_capi))
10361 return NULL((void*)0);
10362/*frompyobj*/
10363 /* Processing variable compute_uv */
10364 if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else
10365 f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.dgesdd_lwork() 1st keyword (compute_uv) can't be converted to int");
10366 if (f2py_success) {
10367 CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","dgesdd_lwork:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgesdd_lwork:compute_uv=%d", "(""compute_uv==0||compute_uv==1"
") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString
(_flapack_error,errstring); } else
{
10368 /* Processing variable full_matrices */
10369 if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else
10370 f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.dgesdd_lwork() 2nd keyword (full_matrices) can't be converted to int");
10371 if (f2py_success) {
10372 CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","dgesdd_lwork:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dgesdd_lwork:full_matrices=%d"
, "(""full_matrices==0||full_matrices==1"") failed for ""2nd keyword full_matrices"
, full_matrices); PyErr_SetString(_flapack_error,errstring); }
else
{
10373 /* Processing variable m */
10374 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dgesdd_lwork() 1st argument (m) can't be converted to int");
10375 if (f2py_success) {
10376 /* Processing variable n */
10377 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgesdd_lwork() 2nd argument (n) can't be converted to int");
10378 if (f2py_success) {
10379 /* Processing variable a */
10380 /* Processing variable s */
10381 /* Processing variable u */
10382 /* Processing variable vt */
10383 /* Processing variable work */
10384 /* Processing variable lwork */
10385 lwork = -1;
10386 /* Processing variable iwork */
10387 /* Processing variable info */
10388 /* Processing variable minmn */
10389 minmn = MIN(m,n)((m < n) ? (m) : (n));
10390 /* Processing variable u0 */
10391 u0 = (compute_uv?m:1);
10392 /* Processing variable vt0 */
10393 vt0 = (compute_uv?(full_matrices?n:minmn):1);
10394/*end of frompyobj*/
10395#ifdef F2PY_REPORT_ATEXIT
10396f2py_start_call_clock();
10397#endif
10398/*callfortranroutine*/
10399 (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,&a,&m,&s,&u,&u0,&vt,&vt0,&work,&lwork,&iwork,&info) ;
10400 /*(*f2py_func)(&m,&n,&minmn,&u0,&vt0,&a,&compute_uv,&full_matrices,&u,&s,&vt,&work,&lwork,&iwork,&info);*/
10401if (PyErr_Occurred())
10402 f2py_success = 0;
10403#ifdef F2PY_REPORT_ATEXIT
10404f2py_stop_call_clock();
10405#endif
10406/*end of callfortranroutine*/
10407 if (f2py_success) {
10408/*pyobjfrom*/
10409/*end of pyobjfrom*/
10410 CFUNCSMESS("Building return value.\n");
10411 capi_buildvalue = Py_BuildValue("di",work,info);
10412/*closepyobjfrom*/
10413/*end of closepyobjfrom*/
10414 } /*if (f2py_success) after callfortranroutine*/
10415/*cleanupfrompyobj*/
10416 /* End of cleaning variable vt0 */
10417 /* End of cleaning variable u0 */
10418 /* End of cleaning variable minmn */
10419 /* End of cleaning variable info */
10420 /* End of cleaning variable iwork */
10421 /* End of cleaning variable lwork */
10422 /* End of cleaning variable work */
10423 /* End of cleaning variable vt */
10424 /* End of cleaning variable u */
10425 /* End of cleaning variable s */
10426 /* End of cleaning variable a */
10427 } /*if (f2py_success) of n*/
10428 /* End of cleaning variable n */
10429 } /*if (f2py_success) of m*/
10430 /* End of cleaning variable m */
10431 } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/
10432 } /*if (f2py_success) of full_matrices*/
10433 /* End of cleaning variable full_matrices */
10434 } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/
10435 } /*if (f2py_success) of compute_uv*/
10436 /* End of cleaning variable compute_uv */
10437/*end of cleanupfrompyobj*/
10438 if (capi_buildvalue == NULL((void*)0)) {
10439/*routdebugfailure*/
10440 } else {
10441/*routdebugleave*/
10442 }
10443 CFUNCSMESS("Freeing memory.\n");
10444/*freemem*/
10445#ifdef F2PY_REPORT_ATEXIT
10446f2py_stop_clock();
10447#endif
10448 return capi_buildvalue;
10449}
10450/**************************** end of dgesdd_lwork ****************************/
10451
10452/*********************************** cgesdd ***********************************/
10453static char doc_f2py_rout__flapack_cgesdd[] = "\
10454u,s,vt,info = cgesdd(a,[compute_uv,full_matrices,lwork,overwrite_a])\n\nWrapper for ``cgesdd``.\
10455\n\nParameters\n----------\n"
10456"a : input rank-2 array('F') with bounds (m,n)\n"
10457"\nOther Parameters\n----------------\n"
10458"overwrite_a : input int, optional\n Default: 0\n"
10459"compute_uv : input int, optional\n Default: 1\n"
10460"full_matrices : input int, optional\n Default: 1\n"
10461"lwork : input int, optional\n Default: max((compute_uv?2*minmn*minmn+MAX(m,n)+2*minmn:2*minmn+MAX(m,n)),1)\n"
10462"\nReturns\n-------\n"
10463"u : rank-2 array('F') with bounds (u0,u1)\n"
10464"s : rank-1 array('f') with bounds (minmn)\n"
10465"vt : rank-2 array('F') with bounds (vt0,vt1)\n"
10466"info : int";
10467/* extern void F_FUNC(cgesdd,CGESDD)(char*,F_INT*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT* ); */
10468static PyObject *f2py_rout__flapack_cgesdd(const PyObject *capi_self,
10469 PyObject *capi_args,
10470 PyObject *capi_keywds,
10471 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
10472 PyObject * volatile capi_buildvalue = NULL((void*)0);
10473 volatile int f2py_success = 1;
10474/*decl*/
10475
10476 int m = 0;
10477 int n = 0;
10478 int minmn = 0;
10479 int u0 = 0;
10480 int u1 = 0;
10481 int vt0 = 0;
10482 int vt1 = 0;
10483 complex_float *a = NULL((void*)0);
10484 npy_intp a_Dims[2] = {-1, -1};
10485 const int a_Rank = 2;
10486 PyArrayObject *capi_a_tmp = NULL((void*)0);
10487 int capi_a_intent = 0;
10488 int capi_overwrite_a = 0;
10489 PyObject *a_capi = Py_None(&_Py_NoneStruct);
10490 int compute_uv = 0;
10491 PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct);
10492 int full_matrices = 0;
10493 PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct);
10494 complex_float *u = NULL((void*)0);
10495 npy_intp u_Dims[2] = {-1, -1};
10496 const int u_Rank = 2;
10497 PyArrayObject *capi_u_tmp = NULL((void*)0);
10498 int capi_u_intent = 0;
10499 float *s = NULL((void*)0);
10500 npy_intp s_Dims[1] = {-1};
10501 const int s_Rank = 1;
10502 PyArrayObject *capi_s_tmp = NULL((void*)0);
10503 int capi_s_intent = 0;
10504 complex_float *vt = NULL((void*)0);
10505 npy_intp vt_Dims[2] = {-1, -1};
10506 const int vt_Rank = 2;
10507 PyArrayObject *capi_vt_tmp = NULL((void*)0);
10508 int capi_vt_intent = 0;
10509 complex_float *work = NULL((void*)0);
10510 npy_intp work_Dims[1] = {-1};
10511 const int work_Rank = 1;
10512 PyArrayObject *capi_work_tmp = NULL((void*)0);
10513 int capi_work_intent = 0;
10514 float *rwork = NULL((void*)0);
10515 npy_intp rwork_Dims[1] = {-1};
10516 const int rwork_Rank = 1;
10517 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
10518 int capi_rwork_intent = 0;
10519 int lwork = 0;
10520 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
10521 int *iwork = NULL((void*)0);
10522 npy_intp iwork_Dims[1] = {-1};
10523 const int iwork_Rank = 1;
10524 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
10525 int capi_iwork_intent = 0;
10526 int info = 0;
10527 static char *capi_kwlist[] = {"a","compute_uv","full_matrices","lwork","overwrite_a",NULL((void*)0)};
10528
10529/*routdebugenter*/
10530#ifdef F2PY_REPORT_ATEXIT
10531f2py_start_clock();
10532#endif
10533 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
10534 "O|OOOi:_flapack.cgesdd",\
10535 capi_kwlist,&a_capi,&compute_uv_capi,&full_matrices_capi,&lwork_capi,&capi_overwrite_a))
10536 return NULL((void*)0);
10537/*frompyobj*/
10538 /* Processing variable compute_uv */
10539 if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else
10540 f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.cgesdd() 1st keyword (compute_uv) can't be converted to int");
10541 if (f2py_success) {
10542 CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","cgesdd:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgesdd:compute_uv=%d", "(""compute_uv==0||compute_uv==1"
") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString
(_flapack_error,errstring); } else
{
10543 /* Processing variable full_matrices */
10544 if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else
10545 f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.cgesdd() 2nd keyword (full_matrices) can't be converted to int");
10546 if (f2py_success) {
10547 CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","cgesdd:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""cgesdd:full_matrices=%d", "(""full_matrices==0||full_matrices==1"
") failed for ""2nd keyword full_matrices", full_matrices); PyErr_SetString
(_flapack_error,errstring); } else
{
10548 /* Processing variable a */
10549 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
10550 ;
10551 capi_a_intent |= F2PY_INTENT_IN1;
10552 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
10553 if (capi_a_tmp == NULL((void*)0)) {
10554 if (!PyErr_Occurred())
10555 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgesdd to C/Fortran array" );
10556 } else {
10557 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
10558
10559 /* Processing variable info */
10560 /* Processing variable m */
10561 m = shape(a,0)a_Dims[0];
10562 /* Processing variable n */
10563 n = shape(a,1)a_Dims[1];
10564 /* Processing variable minmn */
10565 minmn = MIN(m,n)((m < n) ? (m) : (n));
10566 /* Processing variable u0 */
10567 u0 = (compute_uv?m:1);
10568 /* Processing variable u1 */
10569 u1 = (compute_uv?(full_matrices?m:minmn):1);
10570 /* Processing variable vt0 */
10571 vt0 = (compute_uv?(full_matrices?n:minmn):1);
10572 /* Processing variable vt1 */
10573 vt1 = (compute_uv?n:1);
10574 /* Processing variable s */
10575 s_Dims[0]=minmn;
10576 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
10577 capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
10578 if (capi_s_tmp == NULL((void*)0)) {
10579 if (!PyErr_Occurred())
10580 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.cgesdd to C/Fortran array" );
10581 } else {
10582 s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
10583
10584 /* Processing variable u */
10585 u_Dims[0]=u0,u_Dims[1]=u1;
10586 capi_u_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
10587 capi_u_tmp = array_from_pyobj(NPY_CFLOAT,u_Dims,u_Rank,capi_u_intent,Py_None(&_Py_NoneStruct));
10588 if (capi_u_tmp == NULL((void*)0)) {
10589 if (!PyErr_Occurred())
10590 PyErr_SetString(_flapack_error,"failed in converting hidden `u' of _flapack.cgesdd to C/Fortran array" );
10591 } else {
10592 u = (complex_float *)(PyArray_DATA(capi_u_tmp)((void *)((PyArrayObject_fields *)(capi_u_tmp))->data));
10593
10594 /* Processing variable vt */
10595 vt_Dims[0]=vt0,vt_Dims[1]=vt1;
10596 capi_vt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
10597 capi_vt_tmp = array_from_pyobj(NPY_CFLOAT,vt_Dims,vt_Rank,capi_vt_intent,Py_None(&_Py_NoneStruct));
10598 if (capi_vt_tmp == NULL((void*)0)) {
10599 if (!PyErr_Occurred())
10600 PyErr_SetString(_flapack_error,"failed in converting hidden `vt' of _flapack.cgesdd to C/Fortran array" );
10601 } else {
10602 vt = (complex_float *)(PyArray_DATA(capi_vt_tmp)((void *)((PyArrayObject_fields *)(capi_vt_tmp))->data));
10603
10604 /* Processing variable rwork */
10605 rwork_Dims[0]=(compute_uv?minmn*MAX(5*minmn+7, 2*MAX(m,n)+2*minmn+1)((5*minmn+7 > 2*((m > n) ? (m) : (n))+2*minmn+1) ? (5*minmn
+7) : (2*((m > n) ? (m) : (n))+2*minmn+1))
:7*minmn);
10606 capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
10607 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
10608 if (capi_rwork_tmp == NULL((void*)0)) {
10609 if (!PyErr_Occurred())
10610 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgesdd to C/Fortran array" );
10611 } else {
10612 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
10613
10614 /* Processing variable lwork */
10615 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max((compute_uv?2*minmn*minmn+MAX(m,n)+2*minmn:2*minmn+MAX(m,n)),1)(((compute_uv?2*minmn*minmn+((m > n) ? (m) : (n))+2*minmn:
2*minmn+((m > n) ? (m) : (n))) > 1) ? ((compute_uv?2*minmn
*minmn+((m > n) ? (m) : (n))+2*minmn:2*minmn+((m > n) ?
(m) : (n)))) : (1))
; else
10616 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgesdd() 3rd keyword (lwork) can't be converted to int");
10617 if (f2py_success) {
10618 /* Processing variable iwork */
10619 iwork_Dims[0]=8 * minmn;
10620 capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
10621 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
10622 if (capi_iwork_tmp == NULL((void*)0)) {
10623 if (!PyErr_Occurred())
10624 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.cgesdd to C/Fortran array" );
10625 } else {
10626 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
10627
10628 /* Processing variable work */
10629 work_Dims[0]=lwork;
10630 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
10631 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
10632 if (capi_work_tmp == NULL((void*)0)) {
10633 if (!PyErr_Occurred())
10634 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgesdd to C/Fortran array" );
10635 } else {
10636 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
10637
10638/*end of frompyobj*/
10639#ifdef F2PY_REPORT_ATEXIT
10640f2py_start_call_clock();
10641#endif
10642/*callfortranroutine*/
10643 (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,a,&m,s,u,&u0,vt,&vt0,work,&lwork,rwork,iwork,&info) ;
10644 /*(*f2py_func)(&m,&n,&minmn,&u0,&u1,&vt0,&vt1,a,&compute_uv,&full_matrices,u,s,vt,work,rwork,&lwork,iwork,&info);*/
10645if (PyErr_Occurred())
10646 f2py_success = 0;
10647#ifdef F2PY_REPORT_ATEXIT
10648f2py_stop_call_clock();
10649#endif
10650/*end of callfortranroutine*/
10651 if (f2py_success) {
10652/*pyobjfrom*/
10653/*end of pyobjfrom*/
10654 CFUNCSMESS("Building return value.\n");
10655 capi_buildvalue = Py_BuildValue("NNNi",capi_u_tmp,capi_s_tmp,capi_vt_tmp,info);
10656/*closepyobjfrom*/
10657/*end of closepyobjfrom*/
10658 } /*if (f2py_success) after callfortranroutine*/
10659/*cleanupfrompyobj*/
10660 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
10661 } /*if (capi_work_tmp == NULL) ... else of work*/
10662 /* End of cleaning variable work */
10663 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
10664 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
10665 /* End of cleaning variable iwork */
10666 } /*if (f2py_success) of lwork*/
10667 /* End of cleaning variable lwork */
10668 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
10669 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
10670 /* End of cleaning variable rwork */
10671 } /*if (capi_vt_tmp == NULL) ... else of vt*/
10672 /* End of cleaning variable vt */
10673 } /*if (capi_u_tmp == NULL) ... else of u*/
10674 /* End of cleaning variable u */
10675 } /*if (capi_s_tmp == NULL) ... else of s*/
10676 /* End of cleaning variable s */
10677 /* End of cleaning variable vt1 */
10678 /* End of cleaning variable vt0 */
10679 /* End of cleaning variable u1 */
10680 /* End of cleaning variable u0 */
10681 /* End of cleaning variable minmn */
10682 /* End of cleaning variable n */
10683 /* End of cleaning variable m */
10684 /* End of cleaning variable info */
10685 if((PyObject *)capi_a_tmp!=a_capi) {
10686 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
10687 } /*if (capi_a_tmp == NULL) ... else of a*/
10688 /* End of cleaning variable a */
10689 } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/
10690 } /*if (f2py_success) of full_matrices*/
10691 /* End of cleaning variable full_matrices */
10692 } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/
10693 } /*if (f2py_success) of compute_uv*/
10694 /* End of cleaning variable compute_uv */
10695/*end of cleanupfrompyobj*/
10696 if (capi_buildvalue == NULL((void*)0)) {
10697/*routdebugfailure*/
10698 } else {
10699/*routdebugleave*/
10700 }
10701 CFUNCSMESS("Freeing memory.\n");
10702/*freemem*/
10703#ifdef F2PY_REPORT_ATEXIT
10704f2py_stop_clock();
10705#endif
10706 return capi_buildvalue;
10707}
10708/******************************* end of cgesdd *******************************/
10709
10710/*********************************** zgesdd ***********************************/
10711static char doc_f2py_rout__flapack_zgesdd[] = "\
10712u,s,vt,info = zgesdd(a,[compute_uv,full_matrices,lwork,overwrite_a])\n\nWrapper for ``zgesdd``.\
10713\n\nParameters\n----------\n"
10714"a : input rank-2 array('D') with bounds (m,n)\n"
10715"\nOther Parameters\n----------------\n"
10716"overwrite_a : input int, optional\n Default: 0\n"
10717"compute_uv : input int, optional\n Default: 1\n"
10718"full_matrices : input int, optional\n Default: 1\n"
10719"lwork : input int, optional\n Default: max((compute_uv?2*minmn*minmn+MAX(m,n)+2*minmn:2*minmn+MAX(m,n)),1)\n"
10720"\nReturns\n-------\n"
10721"u : rank-2 array('D') with bounds (u0,u1)\n"
10722"s : rank-1 array('d') with bounds (minmn)\n"
10723"vt : rank-2 array('D') with bounds (vt0,vt1)\n"
10724"info : int";
10725/* extern void F_FUNC(zgesdd,ZGESDD)(char*,F_INT*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT* ); */
10726static PyObject *f2py_rout__flapack_zgesdd(const PyObject *capi_self,
10727 PyObject *capi_args,
10728 PyObject *capi_keywds,
10729 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
10730 PyObject * volatile capi_buildvalue = NULL((void*)0);
10731 volatile int f2py_success = 1;
10732/*decl*/
10733
10734 int m = 0;
10735 int n = 0;
10736 int minmn = 0;
10737 int u0 = 0;
10738 int u1 = 0;
10739 int vt0 = 0;
10740 int vt1 = 0;
10741 complex_double *a = NULL((void*)0);
10742 npy_intp a_Dims[2] = {-1, -1};
10743 const int a_Rank = 2;
10744 PyArrayObject *capi_a_tmp = NULL((void*)0);
10745 int capi_a_intent = 0;
10746 int capi_overwrite_a = 0;
10747 PyObject *a_capi = Py_None(&_Py_NoneStruct);
10748 int compute_uv = 0;
10749 PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct);
10750 int full_matrices = 0;
10751 PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct);
10752 complex_double *u = NULL((void*)0);
10753 npy_intp u_Dims[2] = {-1, -1};
10754 const int u_Rank = 2;
10755 PyArrayObject *capi_u_tmp = NULL((void*)0);
10756 int capi_u_intent = 0;
10757 double *s = NULL((void*)0);
10758 npy_intp s_Dims[1] = {-1};
10759 const int s_Rank = 1;
10760 PyArrayObject *capi_s_tmp = NULL((void*)0);
10761 int capi_s_intent = 0;
10762 complex_double *vt = NULL((void*)0);
10763 npy_intp vt_Dims[2] = {-1, -1};
10764 const int vt_Rank = 2;
10765 PyArrayObject *capi_vt_tmp = NULL((void*)0);
10766 int capi_vt_intent = 0;
10767 complex_double *work = NULL((void*)0);
10768 npy_intp work_Dims[1] = {-1};
10769 const int work_Rank = 1;
10770 PyArrayObject *capi_work_tmp = NULL((void*)0);
10771 int capi_work_intent = 0;
10772 double *rwork = NULL((void*)0);
10773 npy_intp rwork_Dims[1] = {-1};
10774 const int rwork_Rank = 1;
10775 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
10776 int capi_rwork_intent = 0;
10777 int lwork = 0;
10778 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
10779 int *iwork = NULL((void*)0);
10780 npy_intp iwork_Dims[1] = {-1};
10781 const int iwork_Rank = 1;
10782 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
10783 int capi_iwork_intent = 0;
10784 int info = 0;
10785 static char *capi_kwlist[] = {"a","compute_uv","full_matrices","lwork","overwrite_a",NULL((void*)0)};
10786
10787/*routdebugenter*/
10788#ifdef F2PY_REPORT_ATEXIT
10789f2py_start_clock();
10790#endif
10791 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
10792 "O|OOOi:_flapack.zgesdd",\
10793 capi_kwlist,&a_capi,&compute_uv_capi,&full_matrices_capi,&lwork_capi,&capi_overwrite_a))
10794 return NULL((void*)0);
10795/*frompyobj*/
10796 /* Processing variable compute_uv */
10797 if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else
10798 f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.zgesdd() 1st keyword (compute_uv) can't be converted to int");
10799 if (f2py_success) {
10800 CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","zgesdd:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgesdd:compute_uv=%d", "(""compute_uv==0||compute_uv==1"
") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString
(_flapack_error,errstring); } else
{
10801 /* Processing variable full_matrices */
10802 if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else
10803 f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.zgesdd() 2nd keyword (full_matrices) can't be converted to int");
10804 if (f2py_success) {
10805 CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","zgesdd:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zgesdd:full_matrices=%d", "(""full_matrices==0||full_matrices==1"
") failed for ""2nd keyword full_matrices", full_matrices); PyErr_SetString
(_flapack_error,errstring); } else
{
10806 /* Processing variable a */
10807 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
10808 ;
10809 capi_a_intent |= F2PY_INTENT_IN1;
10810 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
10811 if (capi_a_tmp == NULL((void*)0)) {
10812 if (!PyErr_Occurred())
10813 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgesdd to C/Fortran array" );
10814 } else {
10815 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
10816
10817 /* Processing variable info */
10818 /* Processing variable m */
10819 m = shape(a,0)a_Dims[0];
10820 /* Processing variable n */
10821 n = shape(a,1)a_Dims[1];
10822 /* Processing variable minmn */
10823 minmn = MIN(m,n)((m < n) ? (m) : (n));
10824 /* Processing variable u0 */
10825 u0 = (compute_uv?m:1);
10826 /* Processing variable u1 */
10827 u1 = (compute_uv?(full_matrices?m:minmn):1);
10828 /* Processing variable vt0 */
10829 vt0 = (compute_uv?(full_matrices?n:minmn):1);
10830 /* Processing variable vt1 */
10831 vt1 = (compute_uv?n:1);
10832 /* Processing variable s */
10833 s_Dims[0]=minmn;
10834 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
10835 capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
10836 if (capi_s_tmp == NULL((void*)0)) {
10837 if (!PyErr_Occurred())
10838 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.zgesdd to C/Fortran array" );
10839 } else {
10840 s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
10841
10842 /* Processing variable u */
10843 u_Dims[0]=u0,u_Dims[1]=u1;
10844 capi_u_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
10845 capi_u_tmp = array_from_pyobj(NPY_CDOUBLE,u_Dims,u_Rank,capi_u_intent,Py_None(&_Py_NoneStruct));
10846 if (capi_u_tmp == NULL((void*)0)) {
10847 if (!PyErr_Occurred())
10848 PyErr_SetString(_flapack_error,"failed in converting hidden `u' of _flapack.zgesdd to C/Fortran array" );
10849 } else {
10850 u = (complex_double *)(PyArray_DATA(capi_u_tmp)((void *)((PyArrayObject_fields *)(capi_u_tmp))->data));
10851
10852 /* Processing variable vt */
10853 vt_Dims[0]=vt0,vt_Dims[1]=vt1;
10854 capi_vt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
10855 capi_vt_tmp = array_from_pyobj(NPY_CDOUBLE,vt_Dims,vt_Rank,capi_vt_intent,Py_None(&_Py_NoneStruct));
10856 if (capi_vt_tmp == NULL((void*)0)) {
10857 if (!PyErr_Occurred())
10858 PyErr_SetString(_flapack_error,"failed in converting hidden `vt' of _flapack.zgesdd to C/Fortran array" );
10859 } else {
10860 vt = (complex_double *)(PyArray_DATA(capi_vt_tmp)((void *)((PyArrayObject_fields *)(capi_vt_tmp))->data));
10861
10862 /* Processing variable rwork */
10863 rwork_Dims[0]=(compute_uv?minmn*MAX(5*minmn+7, 2*MAX(m,n)+2*minmn+1)((5*minmn+7 > 2*((m > n) ? (m) : (n))+2*minmn+1) ? (5*minmn
+7) : (2*((m > n) ? (m) : (n))+2*minmn+1))
:7*minmn);
10864 capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
10865 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
10866 if (capi_rwork_tmp == NULL((void*)0)) {
10867 if (!PyErr_Occurred())
10868 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgesdd to C/Fortran array" );
10869 } else {
10870 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
10871
10872 /* Processing variable lwork */
10873 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max((compute_uv?2*minmn*minmn+MAX(m,n)+2*minmn:2*minmn+MAX(m,n)),1)(((compute_uv?2*minmn*minmn+((m > n) ? (m) : (n))+2*minmn:
2*minmn+((m > n) ? (m) : (n))) > 1) ? ((compute_uv?2*minmn
*minmn+((m > n) ? (m) : (n))+2*minmn:2*minmn+((m > n) ?
(m) : (n)))) : (1))
; else
10874 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgesdd() 3rd keyword (lwork) can't be converted to int");
10875 if (f2py_success) {
10876 /* Processing variable iwork */
10877 iwork_Dims[0]=8 * minmn;
10878 capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
10879 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
10880 if (capi_iwork_tmp == NULL((void*)0)) {
10881 if (!PyErr_Occurred())
10882 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.zgesdd to C/Fortran array" );
10883 } else {
10884 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
10885
10886 /* Processing variable work */
10887 work_Dims[0]=lwork;
10888 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
10889 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
10890 if (capi_work_tmp == NULL((void*)0)) {
10891 if (!PyErr_Occurred())
10892 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgesdd to C/Fortran array" );
10893 } else {
10894 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
10895
10896/*end of frompyobj*/
10897#ifdef F2PY_REPORT_ATEXIT
10898f2py_start_call_clock();
10899#endif
10900/*callfortranroutine*/
10901 (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,a,&m,s,u,&u0,vt,&vt0,work,&lwork,rwork,iwork,&info) ;
10902 /*(*f2py_func)(&m,&n,&minmn,&u0,&u1,&vt0,&vt1,a,&compute_uv,&full_matrices,u,s,vt,work,rwork,&lwork,iwork,&info);*/
10903if (PyErr_Occurred())
10904 f2py_success = 0;
10905#ifdef F2PY_REPORT_ATEXIT
10906f2py_stop_call_clock();
10907#endif
10908/*end of callfortranroutine*/
10909 if (f2py_success) {
10910/*pyobjfrom*/
10911/*end of pyobjfrom*/
10912 CFUNCSMESS("Building return value.\n");
10913 capi_buildvalue = Py_BuildValue("NNNi",capi_u_tmp,capi_s_tmp,capi_vt_tmp,info);
10914/*closepyobjfrom*/
10915/*end of closepyobjfrom*/
10916 } /*if (f2py_success) after callfortranroutine*/
10917/*cleanupfrompyobj*/
10918 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
10919 } /*if (capi_work_tmp == NULL) ... else of work*/
10920 /* End of cleaning variable work */
10921 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
10922 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
10923 /* End of cleaning variable iwork */
10924 } /*if (f2py_success) of lwork*/
10925 /* End of cleaning variable lwork */
10926 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
10927 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
10928 /* End of cleaning variable rwork */
10929 } /*if (capi_vt_tmp == NULL) ... else of vt*/
10930 /* End of cleaning variable vt */
10931 } /*if (capi_u_tmp == NULL) ... else of u*/
10932 /* End of cleaning variable u */
10933 } /*if (capi_s_tmp == NULL) ... else of s*/
10934 /* End of cleaning variable s */
10935 /* End of cleaning variable vt1 */
10936 /* End of cleaning variable vt0 */
10937 /* End of cleaning variable u1 */
10938 /* End of cleaning variable u0 */
10939 /* End of cleaning variable minmn */
10940 /* End of cleaning variable n */
10941 /* End of cleaning variable m */
10942 /* End of cleaning variable info */
10943 if((PyObject *)capi_a_tmp!=a_capi) {
10944 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
10945 } /*if (capi_a_tmp == NULL) ... else of a*/
10946 /* End of cleaning variable a */
10947 } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/
10948 } /*if (f2py_success) of full_matrices*/
10949 /* End of cleaning variable full_matrices */
10950 } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/
10951 } /*if (f2py_success) of compute_uv*/
10952 /* End of cleaning variable compute_uv */
10953/*end of cleanupfrompyobj*/
10954 if (capi_buildvalue == NULL((void*)0)) {
10955/*routdebugfailure*/
10956 } else {
10957/*routdebugleave*/
10958 }
10959 CFUNCSMESS("Freeing memory.\n");
10960/*freemem*/
10961#ifdef F2PY_REPORT_ATEXIT
10962f2py_stop_clock();
10963#endif
10964 return capi_buildvalue;
10965}
10966/******************************* end of zgesdd *******************************/
10967
10968/******************************** cgesdd_lwork ********************************/
10969static char doc_f2py_rout__flapack_cgesdd_lwork[] = "\
10970work,info = cgesdd_lwork(m,n,[compute_uv,full_matrices])\n\nWrapper for ``cgesdd_lwork``.\
10971\n\nParameters\n----------\n"
10972"m : input int\n"
10973"n : input int\n"
10974"\nOther Parameters\n----------------\n"
10975"compute_uv : input int, optional\n Default: 1\n"
10976"full_matrices : input int, optional\n Default: 1\n"
10977"\nReturns\n-------\n"
10978"work : complex\n"
10979"info : int";
10980/* extern void F_FUNC(cgesdd ,CGESDD )(char*,F_INT*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT* ); */
10981static PyObject *f2py_rout__flapack_cgesdd_lwork(const PyObject *capi_self,
10982 PyObject *capi_args,
10983 PyObject *capi_keywds,
10984 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
10985 PyObject * volatile capi_buildvalue = NULL((void*)0);
10986 volatile int f2py_success = 1;
10987/*decl*/
10988
10989 int m = 0;
10990 PyObject *m_capi = Py_None(&_Py_NoneStruct);
10991 int n = 0;
10992 PyObject *n_capi = Py_None(&_Py_NoneStruct);
10993 int minmn = 0;
10994 int u0 = 0;
10995 int vt0 = 0;
10996 complex_float a;
10997 int compute_uv = 0;
10998 PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct);
10999 int full_matrices = 0;
11000 PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct);
11001 complex_float u;
11002 float s = 0;
11003 complex_float vt;
11004 complex_float work;
11005 PyObject *work_capi = Py_None(&_Py_NoneStruct);
11006 float rwork = 0;
11007 int lwork = 0;
11008 int iwork = 0;
11009 int info = 0;
11010 static char *capi_kwlist[] = {"m","n","compute_uv","full_matrices",NULL((void*)0)};
11011
11012/*routdebugenter*/
11013#ifdef F2PY_REPORT_ATEXIT
11014f2py_start_clock();
11015#endif
11016 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
11017 "OO|OO:_flapack.cgesdd_lwork",\
11018 capi_kwlist,&m_capi,&n_capi,&compute_uv_capi,&full_matrices_capi))
11019 return NULL((void*)0);
11020/*frompyobj*/
11021 /* Processing variable compute_uv */
11022 if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else
11023 f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.cgesdd_lwork() 1st keyword (compute_uv) can't be converted to int");
11024 if (f2py_success) {
11025 CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","cgesdd_lwork:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgesdd_lwork:compute_uv=%d", "(""compute_uv==0||compute_uv==1"
") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString
(_flapack_error,errstring); } else
{
11026 /* Processing variable full_matrices */
11027 if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else
11028 f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.cgesdd_lwork() 2nd keyword (full_matrices) can't be converted to int");
11029 if (f2py_success) {
11030 CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","cgesdd_lwork:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""cgesdd_lwork:full_matrices=%d"
, "(""full_matrices==0||full_matrices==1"") failed for ""2nd keyword full_matrices"
, full_matrices); PyErr_SetString(_flapack_error,errstring); }
else
{
11031 /* Processing variable a */
11032 /* Processing variable s */
11033 /* Processing variable u */
11034 /* Processing variable vt */
11035 /* Processing variable work */
11036 /* Processing variable rwork */
11037 /* Processing variable lwork */
11038 lwork = -1;
11039 /* Processing variable iwork */
11040 /* Processing variable info */
11041 /* Processing variable m */
11042 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cgesdd_lwork() 1st argument (m) can't be converted to int");
11043 if (f2py_success) {
11044 /* Processing variable n */
11045 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgesdd_lwork() 2nd argument (n) can't be converted to int");
11046 if (f2py_success) {
11047 /* Processing variable minmn */
11048 minmn = MIN(m,n)((m < n) ? (m) : (n));
11049 /* Processing variable u0 */
11050 u0 = (compute_uv?m:1);
11051 /* Processing variable vt0 */
11052 vt0 = (compute_uv?(full_matrices?n:minmn):1);
11053/*end of frompyobj*/
11054#ifdef F2PY_REPORT_ATEXIT
11055f2py_start_call_clock();
11056#endif
11057/*callfortranroutine*/
11058 (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,&a,&m,&s,&u,&u0,&vt,&vt0,&work,&lwork,&rwork,&iwork,&info) ;
11059 /*(*f2py_func)(&m,&n,&minmn,&u0,&vt0,&a,&compute_uv,&full_matrices,&u,&s,&vt,&work,&rwork,&lwork,&iwork,&info);*/
11060if (PyErr_Occurred())
11061 f2py_success = 0;
11062#ifdef F2PY_REPORT_ATEXIT
11063f2py_stop_call_clock();
11064#endif
11065/*end of callfortranroutine*/
11066 if (f2py_success) {
11067/*pyobjfrom*/
11068 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
11069/*end of pyobjfrom*/
11070 CFUNCSMESS("Building return value.\n");
11071 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
11072/*closepyobjfrom*/
11073/*end of closepyobjfrom*/
11074 } /*if (f2py_success) after callfortranroutine*/
11075/*cleanupfrompyobj*/
11076 /* End of cleaning variable vt0 */
11077 /* End of cleaning variable u0 */
11078 /* End of cleaning variable minmn */
11079 } /*if (f2py_success) of n*/
11080 /* End of cleaning variable n */
11081 } /*if (f2py_success) of m*/
11082 /* End of cleaning variable m */
11083 /* End of cleaning variable info */
11084 /* End of cleaning variable iwork */
11085 /* End of cleaning variable lwork */
11086 /* End of cleaning variable rwork */
11087 /* End of cleaning variable work */
11088 /* End of cleaning variable vt */
11089 /* End of cleaning variable u */
11090 /* End of cleaning variable s */
11091 /* End of cleaning variable a */
11092 } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/
11093 } /*if (f2py_success) of full_matrices*/
11094 /* End of cleaning variable full_matrices */
11095 } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/
11096 } /*if (f2py_success) of compute_uv*/
11097 /* End of cleaning variable compute_uv */
11098/*end of cleanupfrompyobj*/
11099 if (capi_buildvalue == NULL((void*)0)) {
11100/*routdebugfailure*/
11101 } else {
11102/*routdebugleave*/
11103 }
11104 CFUNCSMESS("Freeing memory.\n");
11105/*freemem*/
11106#ifdef F2PY_REPORT_ATEXIT
11107f2py_stop_clock();
11108#endif
11109 return capi_buildvalue;
11110}
11111/**************************** end of cgesdd_lwork ****************************/
11112
11113/******************************** zgesdd_lwork ********************************/
11114static char doc_f2py_rout__flapack_zgesdd_lwork[] = "\
11115work,info = zgesdd_lwork(m,n,[compute_uv,full_matrices])\n\nWrapper for ``zgesdd_lwork``.\
11116\n\nParameters\n----------\n"
11117"m : input int\n"
11118"n : input int\n"
11119"\nOther Parameters\n----------------\n"
11120"compute_uv : input int, optional\n Default: 1\n"
11121"full_matrices : input int, optional\n Default: 1\n"
11122"\nReturns\n-------\n"
11123"work : complex\n"
11124"info : int";
11125/* extern void F_FUNC(zgesdd ,ZGESDD )(char*,F_INT*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT* ); */
11126static PyObject *f2py_rout__flapack_zgesdd_lwork(const PyObject *capi_self,
11127 PyObject *capi_args,
11128 PyObject *capi_keywds,
11129 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
11130 PyObject * volatile capi_buildvalue = NULL((void*)0);
11131 volatile int f2py_success = 1;
11132/*decl*/
11133
11134 int m = 0;
11135 PyObject *m_capi = Py_None(&_Py_NoneStruct);
11136 int n = 0;
11137 PyObject *n_capi = Py_None(&_Py_NoneStruct);
11138 int minmn = 0;
11139 int u0 = 0;
11140 int vt0 = 0;
11141 complex_double a;
11142 int compute_uv = 0;
11143 PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct);
11144 int full_matrices = 0;
11145 PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct);
11146 complex_double u;
11147 double s = 0;
11148 complex_double vt;
11149 complex_double work;
11150 PyObject *work_capi = Py_None(&_Py_NoneStruct);
11151 double rwork = 0;
11152 int lwork = 0;
11153 int iwork = 0;
11154 int info = 0;
11155 static char *capi_kwlist[] = {"m","n","compute_uv","full_matrices",NULL((void*)0)};
11156
11157/*routdebugenter*/
11158#ifdef F2PY_REPORT_ATEXIT
11159f2py_start_clock();
11160#endif
11161 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
11162 "OO|OO:_flapack.zgesdd_lwork",\
11163 capi_kwlist,&m_capi,&n_capi,&compute_uv_capi,&full_matrices_capi))
11164 return NULL((void*)0);
11165/*frompyobj*/
11166 /* Processing variable compute_uv */
11167 if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else
11168 f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.zgesdd_lwork() 1st keyword (compute_uv) can't be converted to int");
11169 if (f2py_success) {
11170 CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","zgesdd_lwork:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgesdd_lwork:compute_uv=%d", "(""compute_uv==0||compute_uv==1"
") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString
(_flapack_error,errstring); } else
{
11171 /* Processing variable full_matrices */
11172 if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else
11173 f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.zgesdd_lwork() 2nd keyword (full_matrices) can't be converted to int");
11174 if (f2py_success) {
11175 CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","zgesdd_lwork:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zgesdd_lwork:full_matrices=%d"
, "(""full_matrices==0||full_matrices==1"") failed for ""2nd keyword full_matrices"
, full_matrices); PyErr_SetString(_flapack_error,errstring); }
else
{
11176 /* Processing variable a */
11177 /* Processing variable s */
11178 /* Processing variable u */
11179 /* Processing variable vt */
11180 /* Processing variable work */
11181 /* Processing variable rwork */
11182 /* Processing variable lwork */
11183 lwork = -1;
11184 /* Processing variable iwork */
11185 /* Processing variable info */
11186 /* Processing variable m */
11187 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zgesdd_lwork() 1st argument (m) can't be converted to int");
11188 if (f2py_success) {
11189 /* Processing variable n */
11190 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgesdd_lwork() 2nd argument (n) can't be converted to int");
11191 if (f2py_success) {
11192 /* Processing variable minmn */
11193 minmn = MIN(m,n)((m < n) ? (m) : (n));
11194 /* Processing variable u0 */
11195 u0 = (compute_uv?m:1);
11196 /* Processing variable vt0 */
11197 vt0 = (compute_uv?(full_matrices?n:minmn):1);
11198/*end of frompyobj*/
11199#ifdef F2PY_REPORT_ATEXIT
11200f2py_start_call_clock();
11201#endif
11202/*callfortranroutine*/
11203 (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,&a,&m,&s,&u,&u0,&vt,&vt0,&work,&lwork,&rwork,&iwork,&info) ;
11204 /*(*f2py_func)(&m,&n,&minmn,&u0,&vt0,&a,&compute_uv,&full_matrices,&u,&s,&vt,&work,&rwork,&lwork,&iwork,&info);*/
11205if (PyErr_Occurred())
11206 f2py_success = 0;
11207#ifdef F2PY_REPORT_ATEXIT
11208f2py_stop_call_clock();
11209#endif
11210/*end of callfortranroutine*/
11211 if (f2py_success) {
11212/*pyobjfrom*/
11213 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
11214/*end of pyobjfrom*/
11215 CFUNCSMESS("Building return value.\n");
11216 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
11217/*closepyobjfrom*/
11218/*end of closepyobjfrom*/
11219 } /*if (f2py_success) after callfortranroutine*/
11220/*cleanupfrompyobj*/
11221 /* End of cleaning variable vt0 */
11222 /* End of cleaning variable u0 */
11223 /* End of cleaning variable minmn */
11224 } /*if (f2py_success) of n*/
11225 /* End of cleaning variable n */
11226 } /*if (f2py_success) of m*/
11227 /* End of cleaning variable m */
11228 /* End of cleaning variable info */
11229 /* End of cleaning variable iwork */
11230 /* End of cleaning variable lwork */
11231 /* End of cleaning variable rwork */
11232 /* End of cleaning variable work */
11233 /* End of cleaning variable vt */
11234 /* End of cleaning variable u */
11235 /* End of cleaning variable s */
11236 /* End of cleaning variable a */
11237 } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/
11238 } /*if (f2py_success) of full_matrices*/
11239 /* End of cleaning variable full_matrices */
11240 } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/
11241 } /*if (f2py_success) of compute_uv*/
11242 /* End of cleaning variable compute_uv */
11243/*end of cleanupfrompyobj*/
11244 if (capi_buildvalue == NULL((void*)0)) {
11245/*routdebugfailure*/
11246 } else {
11247/*routdebugleave*/
11248 }
11249 CFUNCSMESS("Freeing memory.\n");
11250/*freemem*/
11251#ifdef F2PY_REPORT_ATEXIT
11252f2py_stop_clock();
11253#endif
11254 return capi_buildvalue;
11255}
11256/**************************** end of zgesdd_lwork ****************************/
11257
11258/*********************************** sgesvd ***********************************/
11259static char doc_f2py_rout__flapack_sgesvd[] = "\
11260u,s,vt,info = sgesvd(a,[compute_uv,full_matrices,lwork,overwrite_a])\n\nWrapper for ``sgesvd``.\
11261\n\nParameters\n----------\n"
11262"a : input rank-2 array('f') with bounds (m,n)\n"
11263"\nOther Parameters\n----------------\n"
11264"overwrite_a : input int, optional\n Default: 0\n"
11265"compute_uv : input int, optional\n Default: 1\n"
11266"full_matrices : input int, optional\n Default: 1\n"
11267"lwork : input int, optional\n Default: max(MAX(3*minmn+MAX(m,n),5*minmn),1)\n"
11268"\nReturns\n-------\n"
11269"u : rank-2 array('f') with bounds (u0,u1)\n"
11270"s : rank-1 array('f') with bounds (minmn)\n"
11271"vt : rank-2 array('f') with bounds (vt0,vt1)\n"
11272"info : int";
11273/* extern void F_FUNC(sgesvd,SGESVD)(char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */
11274static PyObject *f2py_rout__flapack_sgesvd(const PyObject *capi_self,
11275 PyObject *capi_args,
11276 PyObject *capi_keywds,
11277 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
11278 PyObject * volatile capi_buildvalue = NULL((void*)0);
11279 volatile int f2py_success = 1;
11280/*decl*/
11281
11282 int m = 0;
11283 int n = 0;
11284 int minmn = 0;
11285 int u0 = 0;
11286 int u1 = 0;
11287 int vt0 = 0;
11288 int vt1 = 0;
11289 float *a = NULL((void*)0);
11290 npy_intp a_Dims[2] = {-1, -1};
11291 const int a_Rank = 2;
11292 PyArrayObject *capi_a_tmp = NULL((void*)0);
11293 int capi_a_intent = 0;
11294 int capi_overwrite_a = 0;
11295 PyObject *a_capi = Py_None(&_Py_NoneStruct);
11296 int compute_uv = 0;
11297 PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct);
11298 int full_matrices = 0;
11299 PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct);
11300 float *u = NULL((void*)0);
11301 npy_intp u_Dims[2] = {-1, -1};
11302 const int u_Rank = 2;
11303 PyArrayObject *capi_u_tmp = NULL((void*)0);
11304 int capi_u_intent = 0;
11305 float *s = NULL((void*)0);
11306 npy_intp s_Dims[1] = {-1};
11307 const int s_Rank = 1;
11308 PyArrayObject *capi_s_tmp = NULL((void*)0);
11309 int capi_s_intent = 0;
11310 float *vt = NULL((void*)0);
11311 npy_intp vt_Dims[2] = {-1, -1};
11312 const int vt_Rank = 2;
11313 PyArrayObject *capi_vt_tmp = NULL((void*)0);
11314 int capi_vt_intent = 0;
11315 float *work = NULL((void*)0);
11316 npy_intp work_Dims[1] = {-1};
11317 const int work_Rank = 1;
11318 PyArrayObject *capi_work_tmp = NULL((void*)0);
11319 int capi_work_intent = 0;
11320 int lwork = 0;
11321 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
11322 int info = 0;
11323 static char *capi_kwlist[] = {"a","compute_uv","full_matrices","lwork","overwrite_a",NULL((void*)0)};
11324
11325/*routdebugenter*/
11326#ifdef F2PY_REPORT_ATEXIT
11327f2py_start_clock();
11328#endif
11329 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
11330 "O|OOOi:_flapack.sgesvd",\
11331 capi_kwlist,&a_capi,&compute_uv_capi,&full_matrices_capi,&lwork_capi,&capi_overwrite_a))
11332 return NULL((void*)0);
11333/*frompyobj*/
11334 /* Processing variable compute_uv */
11335 if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else
11336 f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.sgesvd() 1st keyword (compute_uv) can't be converted to int");
11337 if (f2py_success) {
11338 CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","sgesvd:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgesvd:compute_uv=%d", "(""compute_uv==0||compute_uv==1"
") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString
(_flapack_error,errstring); } else
{
11339 /* Processing variable full_matrices */
11340 if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else
11341 f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.sgesvd() 2nd keyword (full_matrices) can't be converted to int");
11342 if (f2py_success) {
11343 CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","sgesvd:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""sgesvd:full_matrices=%d", "(""full_matrices==0||full_matrices==1"
") failed for ""2nd keyword full_matrices", full_matrices); PyErr_SetString
(_flapack_error,errstring); } else
{
11344 /* Processing variable a */
11345 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
11346 ;
11347 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
11348 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
11349 if (capi_a_tmp == NULL((void*)0)) {
11350 if (!PyErr_Occurred())
11351 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgesvd to C/Fortran array" );
11352 } else {
11353 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
11354
11355 /* Processing variable info */
11356 /* Processing variable m */
11357 m = shape(a,0)a_Dims[0];
11358 /* Processing variable n */
11359 n = shape(a,1)a_Dims[1];
11360 /* Processing variable minmn */
11361 minmn = MIN(m,n)((m < n) ? (m) : (n));
11362 /* Processing variable u0 */
11363 u0 = (compute_uv?m:1);
11364 /* Processing variable u1 */
11365 u1 = (compute_uv?(full_matrices?m:minmn):1);
11366 /* Processing variable vt0 */
11367 vt0 = (compute_uv?(full_matrices?n:minmn):1);
11368 /* Processing variable vt1 */
11369 vt1 = (compute_uv?n:1);
11370 /* Processing variable s */
11371 s_Dims[0]=minmn;
11372 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
11373 capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
11374 if (capi_s_tmp == NULL((void*)0)) {
11375 if (!PyErr_Occurred())
11376 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.sgesvd to C/Fortran array" );
11377 } else {
11378 s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
11379
11380 /* Processing variable u */
11381 u_Dims[0]=u0,u_Dims[1]=u1;
11382 capi_u_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
11383 capi_u_tmp = array_from_pyobj(NPY_FLOAT,u_Dims,u_Rank,capi_u_intent,Py_None(&_Py_NoneStruct));
11384 if (capi_u_tmp == NULL((void*)0)) {
11385 if (!PyErr_Occurred())
11386 PyErr_SetString(_flapack_error,"failed in converting hidden `u' of _flapack.sgesvd to C/Fortran array" );
11387 } else {
11388 u = (float *)(PyArray_DATA(capi_u_tmp)((void *)((PyArrayObject_fields *)(capi_u_tmp))->data));
11389
11390 /* Processing variable vt */
11391 vt_Dims[0]=vt0,vt_Dims[1]=vt1;
11392 capi_vt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
11393 capi_vt_tmp = array_from_pyobj(NPY_FLOAT,vt_Dims,vt_Rank,capi_vt_intent,Py_None(&_Py_NoneStruct));
11394 if (capi_vt_tmp == NULL((void*)0)) {
11395 if (!PyErr_Occurred())
11396 PyErr_SetString(_flapack_error,"failed in converting hidden `vt' of _flapack.sgesvd to C/Fortran array" );
11397 } else {
11398 vt = (float *)(PyArray_DATA(capi_vt_tmp)((void *)((PyArrayObject_fields *)(capi_vt_tmp))->data));
11399
11400 /* Processing variable lwork */
11401 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(MAX(3*minmn+MAX(m,n),5*minmn),1)((((3*minmn+((m > n) ? (m) : (n)) > 5*minmn) ? (3*minmn
+((m > n) ? (m) : (n))) : (5*minmn)) > 1) ? (((3*minmn+
((m > n) ? (m) : (n)) > 5*minmn) ? (3*minmn+((m > n)
? (m) : (n))) : (5*minmn))) : (1))
; else
11402 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgesvd() 3rd keyword (lwork) can't be converted to int");
11403 if (f2py_success) {
11404 /* Processing variable work */
11405 work_Dims[0]=lwork;
11406 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
11407 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
11408 if (capi_work_tmp == NULL((void*)0)) {
11409 if (!PyErr_Occurred())
11410 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgesvd to C/Fortran array" );
11411 } else {
11412 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
11413
11414/*end of frompyobj*/
11415#ifdef F2PY_REPORT_ATEXIT
11416f2py_start_call_clock();
11417#endif
11418/*callfortranroutine*/
11419 (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),(compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,a,&m,s,u,&u0,vt,&vt0,work,&lwork,&info) ;
11420 /*(*f2py_func)(&m,&n,&minmn,&u0,&u1,&vt0,&vt1,a,&compute_uv,&full_matrices,u,s,vt,work,&lwork,&info);*/
11421if (PyErr_Occurred())
11422 f2py_success = 0;
11423#ifdef F2PY_REPORT_ATEXIT
11424f2py_stop_call_clock();
11425#endif
11426/*end of callfortranroutine*/
11427 if (f2py_success) {
11428/*pyobjfrom*/
11429/*end of pyobjfrom*/
11430 CFUNCSMESS("Building return value.\n");
11431 capi_buildvalue = Py_BuildValue("NNNi",capi_u_tmp,capi_s_tmp,capi_vt_tmp,info);
11432/*closepyobjfrom*/
11433/*end of closepyobjfrom*/
11434 } /*if (f2py_success) after callfortranroutine*/
11435/*cleanupfrompyobj*/
11436 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
11437 } /*if (capi_work_tmp == NULL) ... else of work*/
11438 /* End of cleaning variable work */
11439 } /*if (f2py_success) of lwork*/
11440 /* End of cleaning variable lwork */
11441 } /*if (capi_vt_tmp == NULL) ... else of vt*/
11442 /* End of cleaning variable vt */
11443 } /*if (capi_u_tmp == NULL) ... else of u*/
11444 /* End of cleaning variable u */
11445 } /*if (capi_s_tmp == NULL) ... else of s*/
11446 /* End of cleaning variable s */
11447 /* End of cleaning variable vt1 */
11448 /* End of cleaning variable vt0 */
11449 /* End of cleaning variable u1 */
11450 /* End of cleaning variable u0 */
11451 /* End of cleaning variable minmn */
11452 /* End of cleaning variable n */
11453 /* End of cleaning variable m */
11454 /* End of cleaning variable info */
11455 if((PyObject *)capi_a_tmp!=a_capi) {
11456 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
11457 } /*if (capi_a_tmp == NULL) ... else of a*/
11458 /* End of cleaning variable a */
11459 } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/
11460 } /*if (f2py_success) of full_matrices*/
11461 /* End of cleaning variable full_matrices */
11462 } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/
11463 } /*if (f2py_success) of compute_uv*/
11464 /* End of cleaning variable compute_uv */
11465/*end of cleanupfrompyobj*/
11466 if (capi_buildvalue == NULL((void*)0)) {
11467/*routdebugfailure*/
11468 } else {
11469/*routdebugleave*/
11470 }
11471 CFUNCSMESS("Freeing memory.\n");
11472/*freemem*/
11473#ifdef F2PY_REPORT_ATEXIT
11474f2py_stop_clock();
11475#endif
11476 return capi_buildvalue;
11477}
11478/******************************* end of sgesvd *******************************/
11479
11480/*********************************** dgesvd ***********************************/
11481static char doc_f2py_rout__flapack_dgesvd[] = "\
11482u,s,vt,info = dgesvd(a,[compute_uv,full_matrices,lwork,overwrite_a])\n\nWrapper for ``dgesvd``.\
11483\n\nParameters\n----------\n"
11484"a : input rank-2 array('d') with bounds (m,n)\n"
11485"\nOther Parameters\n----------------\n"
11486"overwrite_a : input int, optional\n Default: 0\n"
11487"compute_uv : input int, optional\n Default: 1\n"
11488"full_matrices : input int, optional\n Default: 1\n"
11489"lwork : input int, optional\n Default: max(MAX(3*minmn+MAX(m,n),5*minmn),1)\n"
11490"\nReturns\n-------\n"
11491"u : rank-2 array('d') with bounds (u0,u1)\n"
11492"s : rank-1 array('d') with bounds (minmn)\n"
11493"vt : rank-2 array('d') with bounds (vt0,vt1)\n"
11494"info : int";
11495/* extern void F_FUNC(dgesvd,DGESVD)(char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */
11496static PyObject *f2py_rout__flapack_dgesvd(const PyObject *capi_self,
11497 PyObject *capi_args,
11498 PyObject *capi_keywds,
11499 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
11500 PyObject * volatile capi_buildvalue = NULL((void*)0);
11501 volatile int f2py_success = 1;
11502/*decl*/
11503
11504 int m = 0;
11505 int n = 0;
11506 int minmn = 0;
11507 int u0 = 0;
11508 int u1 = 0;
11509 int vt0 = 0;
11510 int vt1 = 0;
11511 double *a = NULL((void*)0);
11512 npy_intp a_Dims[2] = {-1, -1};
11513 const int a_Rank = 2;
11514 PyArrayObject *capi_a_tmp = NULL((void*)0);
11515 int capi_a_intent = 0;
11516 int capi_overwrite_a = 0;
11517 PyObject *a_capi = Py_None(&_Py_NoneStruct);
11518 int compute_uv = 0;
11519 PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct);
11520 int full_matrices = 0;
11521 PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct);
11522 double *u = NULL((void*)0);
11523 npy_intp u_Dims[2] = {-1, -1};
11524 const int u_Rank = 2;
11525 PyArrayObject *capi_u_tmp = NULL((void*)0);
11526 int capi_u_intent = 0;
11527 double *s = NULL((void*)0);
11528 npy_intp s_Dims[1] = {-1};
11529 const int s_Rank = 1;
11530 PyArrayObject *capi_s_tmp = NULL((void*)0);
11531 int capi_s_intent = 0;
11532 double *vt = NULL((void*)0);
11533 npy_intp vt_Dims[2] = {-1, -1};
11534 const int vt_Rank = 2;
11535 PyArrayObject *capi_vt_tmp = NULL((void*)0);
11536 int capi_vt_intent = 0;
11537 double *work = NULL((void*)0);
11538 npy_intp work_Dims[1] = {-1};
11539 const int work_Rank = 1;
11540 PyArrayObject *capi_work_tmp = NULL((void*)0);
11541 int capi_work_intent = 0;
11542 int lwork = 0;
11543 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
11544 int info = 0;
11545 static char *capi_kwlist[] = {"a","compute_uv","full_matrices","lwork","overwrite_a",NULL((void*)0)};
11546
11547/*routdebugenter*/
11548#ifdef F2PY_REPORT_ATEXIT
11549f2py_start_clock();
11550#endif
11551 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
11552 "O|OOOi:_flapack.dgesvd",\
11553 capi_kwlist,&a_capi,&compute_uv_capi,&full_matrices_capi,&lwork_capi,&capi_overwrite_a))
11554 return NULL((void*)0);
11555/*frompyobj*/
11556 /* Processing variable compute_uv */
11557 if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else
11558 f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.dgesvd() 1st keyword (compute_uv) can't be converted to int");
11559 if (f2py_success) {
11560 CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","dgesvd:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgesvd:compute_uv=%d", "(""compute_uv==0||compute_uv==1"
") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString
(_flapack_error,errstring); } else
{
11561 /* Processing variable full_matrices */
11562 if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else
11563 f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.dgesvd() 2nd keyword (full_matrices) can't be converted to int");
11564 if (f2py_success) {
11565 CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","dgesvd:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dgesvd:full_matrices=%d", "(""full_matrices==0||full_matrices==1"
") failed for ""2nd keyword full_matrices", full_matrices); PyErr_SetString
(_flapack_error,errstring); } else
{
11566 /* Processing variable a */
11567 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
11568 ;
11569 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
11570 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
11571 if (capi_a_tmp == NULL((void*)0)) {
11572 if (!PyErr_Occurred())
11573 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgesvd to C/Fortran array" );
11574 } else {
11575 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
11576
11577 /* Processing variable info */
11578 /* Processing variable m */
11579 m = shape(a,0)a_Dims[0];
11580 /* Processing variable n */
11581 n = shape(a,1)a_Dims[1];
11582 /* Processing variable minmn */
11583 minmn = MIN(m,n)((m < n) ? (m) : (n));
11584 /* Processing variable u0 */
11585 u0 = (compute_uv?m:1);
11586 /* Processing variable u1 */
11587 u1 = (compute_uv?(full_matrices?m:minmn):1);
11588 /* Processing variable vt0 */
11589 vt0 = (compute_uv?(full_matrices?n:minmn):1);
11590 /* Processing variable vt1 */
11591 vt1 = (compute_uv?n:1);
11592 /* Processing variable s */
11593 s_Dims[0]=minmn;
11594 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
11595 capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
11596 if (capi_s_tmp == NULL((void*)0)) {
11597 if (!PyErr_Occurred())
11598 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.dgesvd to C/Fortran array" );
11599 } else {
11600 s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
11601
11602 /* Processing variable u */
11603 u_Dims[0]=u0,u_Dims[1]=u1;
11604 capi_u_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
11605 capi_u_tmp = array_from_pyobj(NPY_DOUBLE,u_Dims,u_Rank,capi_u_intent,Py_None(&_Py_NoneStruct));
11606 if (capi_u_tmp == NULL((void*)0)) {
11607 if (!PyErr_Occurred())
11608 PyErr_SetString(_flapack_error,"failed in converting hidden `u' of _flapack.dgesvd to C/Fortran array" );
11609 } else {
11610 u = (double *)(PyArray_DATA(capi_u_tmp)((void *)((PyArrayObject_fields *)(capi_u_tmp))->data));
11611
11612 /* Processing variable vt */
11613 vt_Dims[0]=vt0,vt_Dims[1]=vt1;
11614 capi_vt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
11615 capi_vt_tmp = array_from_pyobj(NPY_DOUBLE,vt_Dims,vt_Rank,capi_vt_intent,Py_None(&_Py_NoneStruct));
11616 if (capi_vt_tmp == NULL((void*)0)) {
11617 if (!PyErr_Occurred())
11618 PyErr_SetString(_flapack_error,"failed in converting hidden `vt' of _flapack.dgesvd to C/Fortran array" );
11619 } else {
11620 vt = (double *)(PyArray_DATA(capi_vt_tmp)((void *)((PyArrayObject_fields *)(capi_vt_tmp))->data));
11621
11622 /* Processing variable lwork */
11623 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(MAX(3*minmn+MAX(m,n),5*minmn),1)((((3*minmn+((m > n) ? (m) : (n)) > 5*minmn) ? (3*minmn
+((m > n) ? (m) : (n))) : (5*minmn)) > 1) ? (((3*minmn+
((m > n) ? (m) : (n)) > 5*minmn) ? (3*minmn+((m > n)
? (m) : (n))) : (5*minmn))) : (1))
; else
11624 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgesvd() 3rd keyword (lwork) can't be converted to int");
11625 if (f2py_success) {
11626 /* Processing variable work */
11627 work_Dims[0]=lwork;
11628 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
11629 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
11630 if (capi_work_tmp == NULL((void*)0)) {
11631 if (!PyErr_Occurred())
11632 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgesvd to C/Fortran array" );
11633 } else {
11634 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
11635
11636/*end of frompyobj*/
11637#ifdef F2PY_REPORT_ATEXIT
11638f2py_start_call_clock();
11639#endif
11640/*callfortranroutine*/
11641 (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),(compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,a,&m,s,u,&u0,vt,&vt0,work,&lwork,&info) ;
11642 /*(*f2py_func)(&m,&n,&minmn,&u0,&u1,&vt0,&vt1,a,&compute_uv,&full_matrices,u,s,vt,work,&lwork,&info);*/
11643if (PyErr_Occurred())
11644 f2py_success = 0;
11645#ifdef F2PY_REPORT_ATEXIT
11646f2py_stop_call_clock();
11647#endif
11648/*end of callfortranroutine*/
11649 if (f2py_success) {
11650/*pyobjfrom*/
11651/*end of pyobjfrom*/
11652 CFUNCSMESS("Building return value.\n");
11653 capi_buildvalue = Py_BuildValue("NNNi",capi_u_tmp,capi_s_tmp,capi_vt_tmp,info);
11654/*closepyobjfrom*/
11655/*end of closepyobjfrom*/
11656 } /*if (f2py_success) after callfortranroutine*/
11657/*cleanupfrompyobj*/
11658 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
11659 } /*if (capi_work_tmp == NULL) ... else of work*/
11660 /* End of cleaning variable work */
11661 } /*if (f2py_success) of lwork*/
11662 /* End of cleaning variable lwork */
11663 } /*if (capi_vt_tmp == NULL) ... else of vt*/
11664 /* End of cleaning variable vt */
11665 } /*if (capi_u_tmp == NULL) ... else of u*/
11666 /* End of cleaning variable u */
11667 } /*if (capi_s_tmp == NULL) ... else of s*/
11668 /* End of cleaning variable s */
11669 /* End of cleaning variable vt1 */
11670 /* End of cleaning variable vt0 */
11671 /* End of cleaning variable u1 */
11672 /* End of cleaning variable u0 */
11673 /* End of cleaning variable minmn */
11674 /* End of cleaning variable n */
11675 /* End of cleaning variable m */
11676 /* End of cleaning variable info */
11677 if((PyObject *)capi_a_tmp!=a_capi) {
11678 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
11679 } /*if (capi_a_tmp == NULL) ... else of a*/
11680 /* End of cleaning variable a */
11681 } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/
11682 } /*if (f2py_success) of full_matrices*/
11683 /* End of cleaning variable full_matrices */
11684 } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/
11685 } /*if (f2py_success) of compute_uv*/
11686 /* End of cleaning variable compute_uv */
11687/*end of cleanupfrompyobj*/
11688 if (capi_buildvalue == NULL((void*)0)) {
11689/*routdebugfailure*/
11690 } else {
11691/*routdebugleave*/
11692 }
11693 CFUNCSMESS("Freeing memory.\n");
11694/*freemem*/
11695#ifdef F2PY_REPORT_ATEXIT
11696f2py_stop_clock();
11697#endif
11698 return capi_buildvalue;
11699}
11700/******************************* end of dgesvd *******************************/
11701
11702/******************************** sgesvd_lwork ********************************/
11703static char doc_f2py_rout__flapack_sgesvd_lwork[] = "\
11704work,info = sgesvd_lwork(m,n,[compute_uv,full_matrices])\n\nWrapper for ``sgesvd_lwork``.\
11705\n\nParameters\n----------\n"
11706"m : input int\n"
11707"n : input int\n"
11708"\nOther Parameters\n----------------\n"
11709"compute_uv : input int, optional\n Default: 1\n"
11710"full_matrices : input int, optional\n Default: 1\n"
11711"\nReturns\n-------\n"
11712"work : float\n"
11713"info : int";
11714/* extern void F_FUNC(sgesvd ,SGESVD )(char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */
11715static PyObject *f2py_rout__flapack_sgesvd_lwork(const PyObject *capi_self,
11716 PyObject *capi_args,
11717 PyObject *capi_keywds,
11718 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
11719 PyObject * volatile capi_buildvalue = NULL((void*)0);
11720 volatile int f2py_success = 1;
11721/*decl*/
11722
11723 int m = 0;
11724 PyObject *m_capi = Py_None(&_Py_NoneStruct);
11725 int n = 0;
11726 PyObject *n_capi = Py_None(&_Py_NoneStruct);
11727 int minmn = 0;
11728 int u0 = 0;
11729 int vt0 = 0;
11730 float a = 0;
11731 int compute_uv = 0;
11732 PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct);
11733 int full_matrices = 0;
11734 PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct);
11735 float u = 0;
11736 float s = 0;
11737 float vt = 0;
11738 float work = 0;
11739 int lwork = 0;
11740 int info = 0;
11741 static char *capi_kwlist[] = {"m","n","compute_uv","full_matrices",NULL((void*)0)};
11742
11743/*routdebugenter*/
11744#ifdef F2PY_REPORT_ATEXIT
11745f2py_start_clock();
11746#endif
11747 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
11748 "OO|OO:_flapack.sgesvd_lwork",\
11749 capi_kwlist,&m_capi,&n_capi,&compute_uv_capi,&full_matrices_capi))
11750 return NULL((void*)0);
11751/*frompyobj*/
11752 /* Processing variable compute_uv */
11753 if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else
11754 f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.sgesvd_lwork() 1st keyword (compute_uv) can't be converted to int");
11755 if (f2py_success) {
11756 CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","sgesvd_lwork:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgesvd_lwork:compute_uv=%d", "(""compute_uv==0||compute_uv==1"
") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString
(_flapack_error,errstring); } else
{
11757 /* Processing variable full_matrices */
11758 if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else
11759 f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.sgesvd_lwork() 2nd keyword (full_matrices) can't be converted to int");
11760 if (f2py_success) {
11761 CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","sgesvd_lwork:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""sgesvd_lwork:full_matrices=%d"
, "(""full_matrices==0||full_matrices==1"") failed for ""2nd keyword full_matrices"
, full_matrices); PyErr_SetString(_flapack_error,errstring); }
else
{
11762 /* Processing variable m */
11763 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sgesvd_lwork() 1st argument (m) can't be converted to int");
11764 if (f2py_success) {
11765 /* Processing variable n */
11766 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgesvd_lwork() 2nd argument (n) can't be converted to int");
11767 if (f2py_success) {
11768 /* Processing variable a */
11769 /* Processing variable s */
11770 /* Processing variable u */
11771 /* Processing variable vt */
11772 /* Processing variable lwork */
11773 lwork = -1;
11774 /* Processing variable work */
11775 /* Processing variable info */
11776 /* Processing variable minmn */
11777 minmn = MIN(m,n)((m < n) ? (m) : (n));
11778 /* Processing variable u0 */
11779 u0 = (compute_uv?m:1);
11780 /* Processing variable vt0 */
11781 vt0 = (compute_uv?(full_matrices?n:minmn):1);
11782/*end of frompyobj*/
11783#ifdef F2PY_REPORT_ATEXIT
11784f2py_start_call_clock();
11785#endif
11786/*callfortranroutine*/
11787 (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),(compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,&a,&m,&s,&u,&u0,&vt,&vt0,&work,&lwork,&info) ;
11788 /*(*f2py_func)(&m,&n,&minmn,&u0,&vt0,&a,&compute_uv,&full_matrices,&u,&s,&vt,&work,&lwork,&info);*/
11789if (PyErr_Occurred())
11790 f2py_success = 0;
11791#ifdef F2PY_REPORT_ATEXIT
11792f2py_stop_call_clock();
11793#endif
11794/*end of callfortranroutine*/
11795 if (f2py_success) {
11796/*pyobjfrom*/
11797/*end of pyobjfrom*/
11798 CFUNCSMESS("Building return value.\n");
11799 capi_buildvalue = Py_BuildValue("fi",work,info);
11800/*closepyobjfrom*/
11801/*end of closepyobjfrom*/
11802 } /*if (f2py_success) after callfortranroutine*/
11803/*cleanupfrompyobj*/
11804 /* End of cleaning variable vt0 */
11805 /* End of cleaning variable u0 */
11806 /* End of cleaning variable minmn */
11807 /* End of cleaning variable info */
11808 /* End of cleaning variable work */
11809 /* End of cleaning variable lwork */
11810 /* End of cleaning variable vt */
11811 /* End of cleaning variable u */
11812 /* End of cleaning variable s */
11813 /* End of cleaning variable a */
11814 } /*if (f2py_success) of n*/
11815 /* End of cleaning variable n */
11816 } /*if (f2py_success) of m*/
11817 /* End of cleaning variable m */
11818 } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/
11819 } /*if (f2py_success) of full_matrices*/
11820 /* End of cleaning variable full_matrices */
11821 } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/
11822 } /*if (f2py_success) of compute_uv*/
11823 /* End of cleaning variable compute_uv */
11824/*end of cleanupfrompyobj*/
11825 if (capi_buildvalue == NULL((void*)0)) {
11826/*routdebugfailure*/
11827 } else {
11828/*routdebugleave*/
11829 }
11830 CFUNCSMESS("Freeing memory.\n");
11831/*freemem*/
11832#ifdef F2PY_REPORT_ATEXIT
11833f2py_stop_clock();
11834#endif
11835 return capi_buildvalue;
11836}
11837/**************************** end of sgesvd_lwork ****************************/
11838
11839/******************************** dgesvd_lwork ********************************/
11840static char doc_f2py_rout__flapack_dgesvd_lwork[] = "\
11841work,info = dgesvd_lwork(m,n,[compute_uv,full_matrices])\n\nWrapper for ``dgesvd_lwork``.\
11842\n\nParameters\n----------\n"
11843"m : input int\n"
11844"n : input int\n"
11845"\nOther Parameters\n----------------\n"
11846"compute_uv : input int, optional\n Default: 1\n"
11847"full_matrices : input int, optional\n Default: 1\n"
11848"\nReturns\n-------\n"
11849"work : float\n"
11850"info : int";
11851/* extern void F_FUNC(dgesvd ,DGESVD )(char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */
11852static PyObject *f2py_rout__flapack_dgesvd_lwork(const PyObject *capi_self,
11853 PyObject *capi_args,
11854 PyObject *capi_keywds,
11855 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
11856 PyObject * volatile capi_buildvalue = NULL((void*)0);
11857 volatile int f2py_success = 1;
11858/*decl*/
11859
11860 int m = 0;
11861 PyObject *m_capi = Py_None(&_Py_NoneStruct);
11862 int n = 0;
11863 PyObject *n_capi = Py_None(&_Py_NoneStruct);
11864 int minmn = 0;
11865 int u0 = 0;
11866 int vt0 = 0;
11867 double a = 0;
11868 int compute_uv = 0;
11869 PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct);
11870 int full_matrices = 0;
11871 PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct);
11872 double u = 0;
11873 double s = 0;
11874 double vt = 0;
11875 double work = 0;
11876 int lwork = 0;
11877 int info = 0;
11878 static char *capi_kwlist[] = {"m","n","compute_uv","full_matrices",NULL((void*)0)};
11879
11880/*routdebugenter*/
11881#ifdef F2PY_REPORT_ATEXIT
11882f2py_start_clock();
11883#endif
11884 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
11885 "OO|OO:_flapack.dgesvd_lwork",\
11886 capi_kwlist,&m_capi,&n_capi,&compute_uv_capi,&full_matrices_capi))
11887 return NULL((void*)0);
11888/*frompyobj*/
11889 /* Processing variable compute_uv */
11890 if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else
11891 f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.dgesvd_lwork() 1st keyword (compute_uv) can't be converted to int");
11892 if (f2py_success) {
11893 CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","dgesvd_lwork:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgesvd_lwork:compute_uv=%d", "(""compute_uv==0||compute_uv==1"
") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString
(_flapack_error,errstring); } else
{
11894 /* Processing variable full_matrices */
11895 if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else
11896 f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.dgesvd_lwork() 2nd keyword (full_matrices) can't be converted to int");
11897 if (f2py_success) {
11898 CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","dgesvd_lwork:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dgesvd_lwork:full_matrices=%d"
, "(""full_matrices==0||full_matrices==1"") failed for ""2nd keyword full_matrices"
, full_matrices); PyErr_SetString(_flapack_error,errstring); }
else
{
11899 /* Processing variable m */
11900 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dgesvd_lwork() 1st argument (m) can't be converted to int");
11901 if (f2py_success) {
11902 /* Processing variable n */
11903 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgesvd_lwork() 2nd argument (n) can't be converted to int");
11904 if (f2py_success) {
11905 /* Processing variable a */
11906 /* Processing variable s */
11907 /* Processing variable u */
11908 /* Processing variable vt */
11909 /* Processing variable lwork */
11910 lwork = -1;
11911 /* Processing variable work */
11912 /* Processing variable info */
11913 /* Processing variable minmn */
11914 minmn = MIN(m,n)((m < n) ? (m) : (n));
11915 /* Processing variable u0 */
11916 u0 = (compute_uv?m:1);
11917 /* Processing variable vt0 */
11918 vt0 = (compute_uv?(full_matrices?n:minmn):1);
11919/*end of frompyobj*/
11920#ifdef F2PY_REPORT_ATEXIT
11921f2py_start_call_clock();
11922#endif
11923/*callfortranroutine*/
11924 (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),(compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,&a,&m,&s,&u,&u0,&vt,&vt0,&work,&lwork,&info) ;
11925 /*(*f2py_func)(&m,&n,&minmn,&u0,&vt0,&a,&compute_uv,&full_matrices,&u,&s,&vt,&work,&lwork,&info);*/
11926if (PyErr_Occurred())
11927 f2py_success = 0;
11928#ifdef F2PY_REPORT_ATEXIT
11929f2py_stop_call_clock();
11930#endif
11931/*end of callfortranroutine*/
11932 if (f2py_success) {
11933/*pyobjfrom*/
11934/*end of pyobjfrom*/
11935 CFUNCSMESS("Building return value.\n");
11936 capi_buildvalue = Py_BuildValue("di",work,info);
11937/*closepyobjfrom*/
11938/*end of closepyobjfrom*/
11939 } /*if (f2py_success) after callfortranroutine*/
11940/*cleanupfrompyobj*/
11941 /* End of cleaning variable vt0 */
11942 /* End of cleaning variable u0 */
11943 /* End of cleaning variable minmn */
11944 /* End of cleaning variable info */
11945 /* End of cleaning variable work */
11946 /* End of cleaning variable lwork */
11947 /* End of cleaning variable vt */
11948 /* End of cleaning variable u */
11949 /* End of cleaning variable s */
11950 /* End of cleaning variable a */
11951 } /*if (f2py_success) of n*/
11952 /* End of cleaning variable n */
11953 } /*if (f2py_success) of m*/
11954 /* End of cleaning variable m */
11955 } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/
11956 } /*if (f2py_success) of full_matrices*/
11957 /* End of cleaning variable full_matrices */
11958 } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/
11959 } /*if (f2py_success) of compute_uv*/
11960 /* End of cleaning variable compute_uv */
11961/*end of cleanupfrompyobj*/
11962 if (capi_buildvalue == NULL((void*)0)) {
11963/*routdebugfailure*/
11964 } else {
11965/*routdebugleave*/
11966 }
11967 CFUNCSMESS("Freeing memory.\n");
11968/*freemem*/
11969#ifdef F2PY_REPORT_ATEXIT
11970f2py_stop_clock();
11971#endif
11972 return capi_buildvalue;
11973}
11974/**************************** end of dgesvd_lwork ****************************/
11975
11976/*********************************** cgesvd ***********************************/
11977static char doc_f2py_rout__flapack_cgesvd[] = "\
11978u,s,vt,info = cgesvd(a,[compute_uv,full_matrices,lwork,overwrite_a])\n\nWrapper for ``cgesvd``.\
11979\n\nParameters\n----------\n"
11980"a : input rank-2 array('F') with bounds (m,n)\n"
11981"\nOther Parameters\n----------------\n"
11982"overwrite_a : input int, optional\n Default: 0\n"
11983"compute_uv : input int, optional\n Default: 1\n"
11984"full_matrices : input int, optional\n Default: 1\n"
11985"lwork : input int, optional\n Default: MAX(2*minmn+MAX(m,n),1)\n"
11986"\nReturns\n-------\n"
11987"u : rank-2 array('F') with bounds (u0,u1)\n"
11988"s : rank-1 array('f') with bounds (minmn)\n"
11989"vt : rank-2 array('F') with bounds (vt0,vt1)\n"
11990"info : int";
11991/* extern void F_FUNC(cgesvd,CGESVD)(char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */
11992static PyObject *f2py_rout__flapack_cgesvd(const PyObject *capi_self,
11993 PyObject *capi_args,
11994 PyObject *capi_keywds,
11995 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) {
11996 PyObject * volatile capi_buildvalue = NULL((void*)0);
11997 volatile int f2py_success = 1;
11998/*decl*/
11999
12000 int m = 0;
12001 int n = 0;
12002 int minmn = 0;
12003 int u0 = 0;
12004 int u1 = 0;
12005 int vt0 = 0;
12006 int vt1 = 0;
12007 complex_float *a = NULL((void*)0);
12008 npy_intp a_Dims[2] = {-1, -1};
12009 const int a_Rank = 2;
12010 PyArrayObject *capi_a_tmp = NULL((void*)0);
12011 int capi_a_intent = 0;
12012 int capi_overwrite_a = 0;
12013 PyObject *a_capi = Py_None(&_Py_NoneStruct);
12014 int compute_uv = 0;
12015 PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct);
12016 int full_matrices = 0;
12017 PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct);
12018 complex_float *u = NULL((void*)0);
12019 npy_intp u_Dims[2] = {-1, -1};
12020 const int u_Rank = 2;
12021 PyArrayObject *capi_u_tmp = NULL((void*)0);
12022 int capi_u_intent = 0;
12023 float *s = NULL((void*)0);
12024 npy_intp s_Dims[1] = {-1};
12025 const int s_Rank = 1;
12026 PyArrayObject *capi_s_tmp = NULL((void*)0);
12027 int capi_s_intent = 0;
12028 complex_float *vt = NULL((void*)0);
12029 npy_intp vt_Dims[2] = {-1, -1};
12030 const int vt_Rank = 2;
12031 PyArrayObject *capi_vt_tmp = NULL((void*)0);
12032 int capi_vt_intent = 0;
12033 complex_float *work = NULL((void*)0);
12034 npy_intp work_Dims[1] = {-1};
12035 const int work_Rank = 1;
12036 PyArrayObject *capi_work_tmp = NULL((void*)0);
12037 int capi_work_intent = 0;
12038 float *rwork = NULL((void*)0);
12039 npy_intp rwork_Dims[1] = {-1};
12040 const int rwork_Rank = 1;
12041 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
12042 int capi_rwork_intent = 0;
12043 int lwork = 0;
12044 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
12045 int info = 0;
12046 static char *capi_kwlist[] = {"a","compute_uv","full_matrices","lwork","overwrite_a",NULL((void*)0)};
12047
12048/*routdebugenter*/
12049#ifdef F2PY_REPORT_ATEXIT
12050f2py_start_clock();
12051#endif
12052 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
12053 "O|OOOi:_flapack.cgesvd",\
12054 capi_kwlist,&a_capi,&compute_uv_capi,&full_matrices_capi,&lwork_capi,&capi_overwrite_a))
12055 return NULL((void*)0);
12056/*frompyobj*/
12057 /* Processing variable compute_uv */
12058 if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else
12059 f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.cgesvd() 1st keyword (compute_uv) can't be converted to int");
12060 if (f2py_success) {
12061 CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","cgesvd:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgesvd:compute_uv=%d", "(""compute_uv==0||compute_uv==1"
") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString
(_flapack_error,errstring); } else
{
12062 /* Processing variable full_matrices */
12063 if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else
12064 f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.cgesvd() 2nd keyword (full_matrices) can't be converted to int");
12065 if (f2py_success) {
12066 CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","cgesvd:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""cgesvd:full_matrices=%d", "(""full_matrices==0||full_matrices==1"
") failed for ""2nd keyword full_matrices", full_matrices); PyErr_SetString
(_flapack_error,errstring); } else
{
12067 /* Processing variable a */
12068 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
12069 ;
12070 capi_a_intent |= F2PY_INTENT_IN1;
12071 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
12072 if (capi_a_tmp == NULL((void*)0)) {
12073 if (!PyErr_Occurred())
12074 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgesvd to C/Fortran array" );
12075 } else {
12076 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
12077
12078 /* Processing variable info */
12079 /* Processing variable m */
12080 m = shape(a,0)a_Dims[0];
12081 /* Processing variable n */
12082 n = shape(a,1)a_Dims[1];
12083 /* Processing variable minmn */
12084 minmn = MIN(m,n)((m < n) ? (m) : (n));
12085 /* Processing variable u0 */
12086 u0 = (compute_uv?m:1);
12087 /* Processing variable u1 */
12088 u1 = (compute_uv?(full_matrices?m:minmn):1);
12089 /* Processing variable vt0 */
12090 vt0 = (compute_uv?(full_matrices?n:minmn):1);
12091 /* Processing variable vt1 */
12092 vt1 = (compute_uv?n:1);
12093 /* Processing variable s */
12094 s_Dims[0]=minmn;
12095 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
12096 capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
12097 if (capi_s_tmp == NULL((void*)0)) {
12098 if (!PyErr_Occurred())
12099 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.cgesvd to C/Fortran array" );
12100 } else {
12101 s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
12102
12103 /* Processing variable u */
12104 u_Dims[0]=u0,u_Dims[1]=u1;
12105 capi_u_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
12106 capi_u_tmp = array_from_pyobj(NPY_CFLOAT,u_Dims,u_Rank,capi_u_intent,Py_None(&_Py_NoneStruct));
12107 if (capi_u_tmp == NULL((void*)0)) {
12108 if (!PyErr_Occurred())
12109 PyErr_SetString(_flapack_error,"failed in converting hidden `u' of _flapack.cgesvd to C/Fortran array" );
12110 } else {
12111 u = (complex_float *)(PyArray_DATA(capi_u_tmp)((void *)((PyArrayObject_fields *)(capi_u_tmp))->data));
12112
12113 /* Processing variable vt */
12114 vt_Dims[0]=vt0,vt_Dims[1]=vt1;
12115 capi_vt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
12116 capi_vt_tmp = array_from_pyobj(NPY_CFLOAT,vt_Dims,vt_Rank,capi_vt_intent,Py_None(&_Py_NoneStruct));
12117 if (capi_vt_tmp == NULL((void*)0)) {
12118 if (!PyErr_Occurred())
12119 PyErr_SetString(_flapack_error,"failed in converting hidden `vt' of _flapack.cgesvd to C/Fortran array" );
12120 } else {
12121 vt = (complex_float *)(PyArray_DATA(capi_vt_tmp)((void *)((PyArrayObject_fields *)(capi_vt_tmp))->data));
12122
12123 /* Processing variable rwork */
12124 rwork_Dims[0]=(MAX(1,5*minmn)((1 > 5*minmn) ? (1) : (5*minmn)));
12125 capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
12126 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
12127 if (capi_rwork_tmp == NULL((void*)0)) {
12128 if (!PyErr_Occurred())
12129 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgesvd to C/Fortran array" );
12130 } else {
12131 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
12132
12133 /* Processing variable lwork */
12134 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(2*minmn+MAX(m,n),1)((2*minmn+((m > n) ? (m) : (n)) > 1) ? (2*minmn+((m >
n) ? (m) : (n))) : (1))
; else
12135 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgesvd() 3rd keyword (lwork) can't be converted to int");
12136 if (f2py_success) {
12137 /* Processing variable work */
12138 work_Dims[0]=lwork;
12139 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
12140 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
12141 if (capi_work_tmp == NULL((void*)0)) {
12142 if (!PyErr_Occurred())
12143 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgesvd to C/Fortran array" );
12144 } else {
12145 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
12146
12147/*end of frompyobj*/
12148#ifdef F2PY_REPORT_ATEXIT
12149f2py_start_call_clock();
12150#endif
12151/*callfortranroutine*/
12152 (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),(compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,a,&m,s,u,&u0,vt,&vt0,work,&lwork,rwork,&info) ;
12153 /*(*f2py_func)(&m,&n,&minmn,&u0,&u1,&vt0,&vt1,a,&compute_uv,&full_matrices,u,s,vt,work,rwork,&lwork,&info);*/
12154if (PyErr_Occurred())
12155 f2py_success = 0;
12156#ifdef F2PY_REPORT_ATEXIT
12157f2py_stop_call_clock();
12158#endif
12159/*end of callfortranroutine*/
12160 if (f2py_success) {
12161/*pyobjfrom*/
12162/*end of pyobjfrom*/
12163 CFUNCSMESS("Building return value.\n");
12164 capi_buildvalue = Py_BuildValue("NNNi",capi_u_tmp,capi_s_tmp,capi_vt_tmp,info);
12165/*closepyobjfrom*/
12166/*end of closepyobjfrom*/
12167 } /*if (f2py_success) after callfortranroutine*/
12168/*cleanupfrompyobj*/
12169 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
12170 } /*if (capi_work_tmp == NULL) ... else of work*/
12171 /* End of cleaning variable work */
12172 } /*if (f2py_success) of lwork*/
12173 /* End of cleaning variable lwork */
12174 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
12175 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
12176 /* End of cleaning variable rwork */
12177 } /*if (capi_vt_tmp == NULL) ... else of vt*/
12178 /* End of cleaning variable vt */
12179 } /*if (capi_u_tmp == NULL) ... else of u*/
12180 /* End of cleaning variable u */
12181 } /*if (capi_s_tmp == NULL) ... else of s*/
12182 /* End of cleaning variable s */
12183 /* End of cleaning variable vt1 */
12184 /* End of cleaning variable vt0 */
12185 /* End of cleaning variable u1 */
12186 /* End of cleaning variable u0 */
12187 /* End of cleaning variable minmn */
12188 /* End of cleaning variable n */
12189 /* End of cleaning variable m */
12190 /* End of cleaning variable info */
12191 if((PyObject *)capi_a_tmp!=a_capi) {
12192 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
12193 } /*if (capi_a_tmp == NULL) ... else of a*/
12194 /* End of cleaning variable a */
12195 } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/
12196 } /*if (f2py_success) of full_matrices*/
12197 /* End of cleaning variable full_matrices */
12198 } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/
12199 } /*if (f2py_success) of compute_uv*/
12200 /* End of cleaning variable compute_uv */
12201/*end of cleanupfrompyobj*/
12202 if (capi_buildvalue == NULL((void*)0)) {
12203/*routdebugfailure*/
12204 } else {
12205/*routdebugleave*/
12206 }
12207 CFUNCSMESS("Freeing memory.\n");
12208/*freemem*/
12209#ifdef F2PY_REPORT_ATEXIT
12210f2py_stop_clock();
12211#endif
12212 return capi_buildvalue;
12213}
12214/******************************* end of cgesvd *******************************/
12215
12216/*********************************** zgesvd ***********************************/
12217static char doc_f2py_rout__flapack_zgesvd[] = "\
12218u,s,vt,info = zgesvd(a,[compute_uv,full_matrices,lwork,overwrite_a])\n\nWrapper for ``zgesvd``.\
12219\n\nParameters\n----------\n"
12220"a : input rank-2 array('D') with bounds (m,n)\n"
12221"\nOther Parameters\n----------------\n"
12222"overwrite_a : input int, optional\n Default: 0\n"
12223"compute_uv : input int, optional\n Default: 1\n"
12224"full_matrices : input int, optional\n Default: 1\n"
12225"lwork : input int, optional\n Default: MAX(2*minmn+MAX(m,n),1)\n"
12226"\nReturns\n-------\n"
12227"u : rank-2 array('D') with bounds (u0,u1)\n"
12228"s : rank-1 array('d') with bounds (minmn)\n"
12229"vt : rank-2 array('D') with bounds (vt0,vt1)\n"
12230"info : int";
12231/* extern void F_FUNC(zgesvd,ZGESVD)(char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */
12232static PyObject *f2py_rout__flapack_zgesvd(const PyObject *capi_self,
12233 PyObject *capi_args,
12234 PyObject *capi_keywds,
12235 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) {
12236 PyObject * volatile capi_buildvalue = NULL((void*)0);
12237 volatile int f2py_success = 1;
12238/*decl*/
12239
12240 int m = 0;
12241 int n = 0;
12242 int minmn = 0;
12243 int u0 = 0;
12244 int u1 = 0;
12245 int vt0 = 0;
12246 int vt1 = 0;
12247 complex_double *a = NULL((void*)0);
12248 npy_intp a_Dims[2] = {-1, -1};
12249 const int a_Rank = 2;
12250 PyArrayObject *capi_a_tmp = NULL((void*)0);
12251 int capi_a_intent = 0;
12252 int capi_overwrite_a = 0;
12253 PyObject *a_capi = Py_None(&_Py_NoneStruct);
12254 int compute_uv = 0;
12255 PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct);
12256 int full_matrices = 0;
12257 PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct);
12258 complex_double *u = NULL((void*)0);
12259 npy_intp u_Dims[2] = {-1, -1};
12260 const int u_Rank = 2;
12261 PyArrayObject *capi_u_tmp = NULL((void*)0);
12262 int capi_u_intent = 0;
12263 double *s = NULL((void*)0);
12264 npy_intp s_Dims[1] = {-1};
12265 const int s_Rank = 1;
12266 PyArrayObject *capi_s_tmp = NULL((void*)0);
12267 int capi_s_intent = 0;
12268 complex_double *vt = NULL((void*)0);
12269 npy_intp vt_Dims[2] = {-1, -1};
12270 const int vt_Rank = 2;
12271 PyArrayObject *capi_vt_tmp = NULL((void*)0);
12272 int capi_vt_intent = 0;
12273 complex_double *work = NULL((void*)0);
12274 npy_intp work_Dims[1] = {-1};
12275 const int work_Rank = 1;
12276 PyArrayObject *capi_work_tmp = NULL((void*)0);
12277 int capi_work_intent = 0;
12278 double *rwork = NULL((void*)0);
12279 npy_intp rwork_Dims[1] = {-1};
12280 const int rwork_Rank = 1;
12281 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
12282 int capi_rwork_intent = 0;
12283 int lwork = 0;
12284 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
12285 int info = 0;
12286 static char *capi_kwlist[] = {"a","compute_uv","full_matrices","lwork","overwrite_a",NULL((void*)0)};
12287
12288/*routdebugenter*/
12289#ifdef F2PY_REPORT_ATEXIT
12290f2py_start_clock();
12291#endif
12292 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
12293 "O|OOOi:_flapack.zgesvd",\
12294 capi_kwlist,&a_capi,&compute_uv_capi,&full_matrices_capi,&lwork_capi,&capi_overwrite_a))
12295 return NULL((void*)0);
12296/*frompyobj*/
12297 /* Processing variable compute_uv */
12298 if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else
12299 f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.zgesvd() 1st keyword (compute_uv) can't be converted to int");
12300 if (f2py_success) {
12301 CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","zgesvd:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgesvd:compute_uv=%d", "(""compute_uv==0||compute_uv==1"
") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString
(_flapack_error,errstring); } else
{
12302 /* Processing variable full_matrices */
12303 if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else
12304 f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.zgesvd() 2nd keyword (full_matrices) can't be converted to int");
12305 if (f2py_success) {
12306 CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","zgesvd:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zgesvd:full_matrices=%d", "(""full_matrices==0||full_matrices==1"
") failed for ""2nd keyword full_matrices", full_matrices); PyErr_SetString
(_flapack_error,errstring); } else
{
12307 /* Processing variable a */
12308 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
12309 ;
12310 capi_a_intent |= F2PY_INTENT_IN1;
12311 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
12312 if (capi_a_tmp == NULL((void*)0)) {
12313 if (!PyErr_Occurred())
12314 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgesvd to C/Fortran array" );
12315 } else {
12316 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
12317
12318 /* Processing variable info */
12319 /* Processing variable m */
12320 m = shape(a,0)a_Dims[0];
12321 /* Processing variable n */
12322 n = shape(a,1)a_Dims[1];
12323 /* Processing variable minmn */
12324 minmn = MIN(m,n)((m < n) ? (m) : (n));
12325 /* Processing variable u0 */
12326 u0 = (compute_uv?m:1);
12327 /* Processing variable u1 */
12328 u1 = (compute_uv?(full_matrices?m:minmn):1);
12329 /* Processing variable vt0 */
12330 vt0 = (compute_uv?(full_matrices?n:minmn):1);
12331 /* Processing variable vt1 */
12332 vt1 = (compute_uv?n:1);
12333 /* Processing variable s */
12334 s_Dims[0]=minmn;
12335 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
12336 capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
12337 if (capi_s_tmp == NULL((void*)0)) {
12338 if (!PyErr_Occurred())
12339 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.zgesvd to C/Fortran array" );
12340 } else {
12341 s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
12342
12343 /* Processing variable u */
12344 u_Dims[0]=u0,u_Dims[1]=u1;
12345 capi_u_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
12346 capi_u_tmp = array_from_pyobj(NPY_CDOUBLE,u_Dims,u_Rank,capi_u_intent,Py_None(&_Py_NoneStruct));
12347 if (capi_u_tmp == NULL((void*)0)) {
12348 if (!PyErr_Occurred())
12349 PyErr_SetString(_flapack_error,"failed in converting hidden `u' of _flapack.zgesvd to C/Fortran array" );
12350 } else {
12351 u = (complex_double *)(PyArray_DATA(capi_u_tmp)((void *)((PyArrayObject_fields *)(capi_u_tmp))->data));
12352
12353 /* Processing variable vt */
12354 vt_Dims[0]=vt0,vt_Dims[1]=vt1;
12355 capi_vt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
12356 capi_vt_tmp = array_from_pyobj(NPY_CDOUBLE,vt_Dims,vt_Rank,capi_vt_intent,Py_None(&_Py_NoneStruct));
12357 if (capi_vt_tmp == NULL((void*)0)) {
12358 if (!PyErr_Occurred())
12359 PyErr_SetString(_flapack_error,"failed in converting hidden `vt' of _flapack.zgesvd to C/Fortran array" );
12360 } else {
12361 vt = (complex_double *)(PyArray_DATA(capi_vt_tmp)((void *)((PyArrayObject_fields *)(capi_vt_tmp))->data));
12362
12363 /* Processing variable rwork */
12364 rwork_Dims[0]=(MAX(1,5*minmn)((1 > 5*minmn) ? (1) : (5*minmn)));
12365 capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
12366 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
12367 if (capi_rwork_tmp == NULL((void*)0)) {
12368 if (!PyErr_Occurred())
12369 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgesvd to C/Fortran array" );
12370 } else {
12371 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
12372
12373 /* Processing variable lwork */
12374 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(2*minmn+MAX(m,n),1)((2*minmn+((m > n) ? (m) : (n)) > 1) ? (2*minmn+((m >
n) ? (m) : (n))) : (1))
; else
12375 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgesvd() 3rd keyword (lwork) can't be converted to int");
12376 if (f2py_success) {
12377 /* Processing variable work */
12378 work_Dims[0]=lwork;
12379 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
12380 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
12381 if (capi_work_tmp == NULL((void*)0)) {
12382 if (!PyErr_Occurred())
12383 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgesvd to C/Fortran array" );
12384 } else {
12385 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
12386
12387/*end of frompyobj*/
12388#ifdef F2PY_REPORT_ATEXIT
12389f2py_start_call_clock();
12390#endif
12391/*callfortranroutine*/
12392 (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),(compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,a,&m,s,u,&u0,vt,&vt0,work,&lwork,rwork,&info) ;
12393 /*(*f2py_func)(&m,&n,&minmn,&u0,&u1,&vt0,&vt1,a,&compute_uv,&full_matrices,u,s,vt,work,rwork,&lwork,&info);*/
12394if (PyErr_Occurred())
12395 f2py_success = 0;
12396#ifdef F2PY_REPORT_ATEXIT
12397f2py_stop_call_clock();
12398#endif
12399/*end of callfortranroutine*/
12400 if (f2py_success) {
12401/*pyobjfrom*/
12402/*end of pyobjfrom*/
12403 CFUNCSMESS("Building return value.\n");
12404 capi_buildvalue = Py_BuildValue("NNNi",capi_u_tmp,capi_s_tmp,capi_vt_tmp,info);
12405/*closepyobjfrom*/
12406/*end of closepyobjfrom*/
12407 } /*if (f2py_success) after callfortranroutine*/
12408/*cleanupfrompyobj*/
12409 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
12410 } /*if (capi_work_tmp == NULL) ... else of work*/
12411 /* End of cleaning variable work */
12412 } /*if (f2py_success) of lwork*/
12413 /* End of cleaning variable lwork */
12414 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
12415 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
12416 /* End of cleaning variable rwork */
12417 } /*if (capi_vt_tmp == NULL) ... else of vt*/
12418 /* End of cleaning variable vt */
12419 } /*if (capi_u_tmp == NULL) ... else of u*/
12420 /* End of cleaning variable u */
12421 } /*if (capi_s_tmp == NULL) ... else of s*/
12422 /* End of cleaning variable s */
12423 /* End of cleaning variable vt1 */
12424 /* End of cleaning variable vt0 */
12425 /* End of cleaning variable u1 */
12426 /* End of cleaning variable u0 */
12427 /* End of cleaning variable minmn */
12428 /* End of cleaning variable n */
12429 /* End of cleaning variable m */
12430 /* End of cleaning variable info */
12431 if((PyObject *)capi_a_tmp!=a_capi) {
12432 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
12433 } /*if (capi_a_tmp == NULL) ... else of a*/
12434 /* End of cleaning variable a */
12435 } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/
12436 } /*if (f2py_success) of full_matrices*/
12437 /* End of cleaning variable full_matrices */
12438 } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/
12439 } /*if (f2py_success) of compute_uv*/
12440 /* End of cleaning variable compute_uv */
12441/*end of cleanupfrompyobj*/
12442 if (capi_buildvalue == NULL((void*)0)) {
12443/*routdebugfailure*/
12444 } else {
12445/*routdebugleave*/
12446 }
12447 CFUNCSMESS("Freeing memory.\n");
12448/*freemem*/
12449#ifdef F2PY_REPORT_ATEXIT
12450f2py_stop_clock();
12451#endif
12452 return capi_buildvalue;
12453}
12454/******************************* end of zgesvd *******************************/
12455
12456/******************************** cgesvd_lwork ********************************/
12457static char doc_f2py_rout__flapack_cgesvd_lwork[] = "\
12458work,info = cgesvd_lwork(m,n,[compute_uv,full_matrices])\n\nWrapper for ``cgesvd_lwork``.\
12459\n\nParameters\n----------\n"
12460"m : input int\n"
12461"n : input int\n"
12462"\nOther Parameters\n----------------\n"
12463"compute_uv : input int, optional\n Default: 1\n"
12464"full_matrices : input int, optional\n Default: 1\n"
12465"\nReturns\n-------\n"
12466"work : complex\n"
12467"info : int";
12468/* extern void F_FUNC(cgesvd ,CGESVD )(char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */
12469static PyObject *f2py_rout__flapack_cgesvd_lwork(const PyObject *capi_self,
12470 PyObject *capi_args,
12471 PyObject *capi_keywds,
12472 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) {
12473 PyObject * volatile capi_buildvalue = NULL((void*)0);
12474 volatile int f2py_success = 1;
12475/*decl*/
12476
12477 int m = 0;
12478 PyObject *m_capi = Py_None(&_Py_NoneStruct);
12479 int n = 0;
12480 PyObject *n_capi = Py_None(&_Py_NoneStruct);
12481 int minmn = 0;
12482 int u0 = 0;
12483 int vt0 = 0;
12484 complex_float a;
12485 int compute_uv = 0;
12486 PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct);
12487 int full_matrices = 0;
12488 PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct);
12489 complex_float u;
12490 float s = 0;
12491 complex_float vt;
12492 complex_float work;
12493 PyObject *work_capi = Py_None(&_Py_NoneStruct);
12494 float rwork = 0;
12495 int lwork = 0;
12496 int info = 0;
12497 static char *capi_kwlist[] = {"m","n","compute_uv","full_matrices",NULL((void*)0)};
12498
12499/*routdebugenter*/
12500#ifdef F2PY_REPORT_ATEXIT
12501f2py_start_clock();
12502#endif
12503 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
12504 "OO|OO:_flapack.cgesvd_lwork",\
12505 capi_kwlist,&m_capi,&n_capi,&compute_uv_capi,&full_matrices_capi))
12506 return NULL((void*)0);
12507/*frompyobj*/
12508 /* Processing variable compute_uv */
12509 if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else
12510 f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.cgesvd_lwork() 1st keyword (compute_uv) can't be converted to int");
12511 if (f2py_success) {
12512 CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","cgesvd_lwork:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgesvd_lwork:compute_uv=%d", "(""compute_uv==0||compute_uv==1"
") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString
(_flapack_error,errstring); } else
{
12513 /* Processing variable full_matrices */
12514 if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else
12515 f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.cgesvd_lwork() 2nd keyword (full_matrices) can't be converted to int");
12516 if (f2py_success) {
12517 CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","cgesvd_lwork:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""cgesvd_lwork:full_matrices=%d"
, "(""full_matrices==0||full_matrices==1"") failed for ""2nd keyword full_matrices"
, full_matrices); PyErr_SetString(_flapack_error,errstring); }
else
{
12518 /* Processing variable lwork */
12519 lwork = -1;
12520 /* Processing variable a */
12521 /* Processing variable s */
12522 /* Processing variable u */
12523 /* Processing variable vt */
12524 /* Processing variable work */
12525 /* Processing variable rwork */
12526 /* Processing variable info */
12527 /* Processing variable m */
12528 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cgesvd_lwork() 1st argument (m) can't be converted to int");
12529 if (f2py_success) {
12530 /* Processing variable n */
12531 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgesvd_lwork() 2nd argument (n) can't be converted to int");
12532 if (f2py_success) {
12533 /* Processing variable minmn */
12534 minmn = MIN(m,n)((m < n) ? (m) : (n));
12535 /* Processing variable u0 */
12536 u0 = (compute_uv?m:1);
12537 /* Processing variable vt0 */
12538 vt0 = (compute_uv?(full_matrices?n:minmn):1);
12539/*end of frompyobj*/
12540#ifdef F2PY_REPORT_ATEXIT
12541f2py_start_call_clock();
12542#endif
12543/*callfortranroutine*/
12544 (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),(compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,&a,&m,&s,&u,&u0,&vt,&vt0,&work,&lwork,&rwork,&info) ;
12545 /*(*f2py_func)(&m,&n,&minmn,&u0,&vt0,&a,&compute_uv,&full_matrices,&u,&s,&vt,&work,&rwork,&lwork,&info);*/
12546if (PyErr_Occurred())
12547 f2py_success = 0;
12548#ifdef F2PY_REPORT_ATEXIT
12549f2py_stop_call_clock();
12550#endif
12551/*end of callfortranroutine*/
12552 if (f2py_success) {
12553/*pyobjfrom*/
12554 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
12555/*end of pyobjfrom*/
12556 CFUNCSMESS("Building return value.\n");
12557 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
12558/*closepyobjfrom*/
12559/*end of closepyobjfrom*/
12560 } /*if (f2py_success) after callfortranroutine*/
12561/*cleanupfrompyobj*/
12562 /* End of cleaning variable vt0 */
12563 /* End of cleaning variable u0 */
12564 /* End of cleaning variable minmn */
12565 } /*if (f2py_success) of n*/
12566 /* End of cleaning variable n */
12567 } /*if (f2py_success) of m*/
12568 /* End of cleaning variable m */
12569 /* End of cleaning variable info */
12570 /* End of cleaning variable rwork */
12571 /* End of cleaning variable work */
12572 /* End of cleaning variable vt */
12573 /* End of cleaning variable u */
12574 /* End of cleaning variable s */
12575 /* End of cleaning variable a */
12576 /* End of cleaning variable lwork */
12577 } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/
12578 } /*if (f2py_success) of full_matrices*/
12579 /* End of cleaning variable full_matrices */
12580 } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/
12581 } /*if (f2py_success) of compute_uv*/
12582 /* End of cleaning variable compute_uv */
12583/*end of cleanupfrompyobj*/
12584 if (capi_buildvalue == NULL((void*)0)) {
12585/*routdebugfailure*/
12586 } else {
12587/*routdebugleave*/
12588 }
12589 CFUNCSMESS("Freeing memory.\n");
12590/*freemem*/
12591#ifdef F2PY_REPORT_ATEXIT
12592f2py_stop_clock();
12593#endif
12594 return capi_buildvalue;
12595}
12596/**************************** end of cgesvd_lwork ****************************/
12597
12598/******************************** zgesvd_lwork ********************************/
12599static char doc_f2py_rout__flapack_zgesvd_lwork[] = "\
12600work,info = zgesvd_lwork(m,n,[compute_uv,full_matrices])\n\nWrapper for ``zgesvd_lwork``.\
12601\n\nParameters\n----------\n"
12602"m : input int\n"
12603"n : input int\n"
12604"\nOther Parameters\n----------------\n"
12605"compute_uv : input int, optional\n Default: 1\n"
12606"full_matrices : input int, optional\n Default: 1\n"
12607"\nReturns\n-------\n"
12608"work : complex\n"
12609"info : int";
12610/* extern void F_FUNC(zgesvd ,ZGESVD )(char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */
12611static PyObject *f2py_rout__flapack_zgesvd_lwork(const PyObject *capi_self,
12612 PyObject *capi_args,
12613 PyObject *capi_keywds,
12614 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) {
12615 PyObject * volatile capi_buildvalue = NULL((void*)0);
12616 volatile int f2py_success = 1;
12617/*decl*/
12618
12619 int m = 0;
12620 PyObject *m_capi = Py_None(&_Py_NoneStruct);
12621 int n = 0;
12622 PyObject *n_capi = Py_None(&_Py_NoneStruct);
12623 int minmn = 0;
12624 int u0 = 0;
12625 int vt0 = 0;
12626 complex_double a;
12627 int compute_uv = 0;
12628 PyObject *compute_uv_capi = Py_None(&_Py_NoneStruct);
12629 int full_matrices = 0;
12630 PyObject *full_matrices_capi = Py_None(&_Py_NoneStruct);
12631 complex_double u;
12632 double s = 0;
12633 complex_double vt;
12634 complex_double work;
12635 PyObject *work_capi = Py_None(&_Py_NoneStruct);
12636 double rwork = 0;
12637 int lwork = 0;
12638 int info = 0;
12639 static char *capi_kwlist[] = {"m","n","compute_uv","full_matrices",NULL((void*)0)};
12640
12641/*routdebugenter*/
12642#ifdef F2PY_REPORT_ATEXIT
12643f2py_start_clock();
12644#endif
12645 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
12646 "OO|OO:_flapack.zgesvd_lwork",\
12647 capi_kwlist,&m_capi,&n_capi,&compute_uv_capi,&full_matrices_capi))
12648 return NULL((void*)0);
12649/*frompyobj*/
12650 /* Processing variable compute_uv */
12651 if (compute_uv_capi == Py_None(&_Py_NoneStruct)) compute_uv = 1; else
12652 f2py_success = int_from_pyobj(&compute_uv,compute_uv_capi,"_flapack.zgesvd_lwork() 1st keyword (compute_uv) can't be converted to int");
12653 if (f2py_success) {
12654 CHECKSCALAR(compute_uv==0||compute_uv==1,"compute_uv==0||compute_uv==1","1st keyword compute_uv","zgesvd_lwork:compute_uv=%d",compute_uv)if (!(compute_uv==0||compute_uv==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgesvd_lwork:compute_uv=%d", "(""compute_uv==0||compute_uv==1"
") failed for ""1st keyword compute_uv", compute_uv); PyErr_SetString
(_flapack_error,errstring); } else
{
12655 /* Processing variable full_matrices */
12656 if (full_matrices_capi == Py_None(&_Py_NoneStruct)) full_matrices = 1; else
12657 f2py_success = int_from_pyobj(&full_matrices,full_matrices_capi,"_flapack.zgesvd_lwork() 2nd keyword (full_matrices) can't be converted to int");
12658 if (f2py_success) {
12659 CHECKSCALAR(full_matrices==0||full_matrices==1,"full_matrices==0||full_matrices==1","2nd keyword full_matrices","zgesvd_lwork:full_matrices=%d",full_matrices)if (!(full_matrices==0||full_matrices==1)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zgesvd_lwork:full_matrices=%d"
, "(""full_matrices==0||full_matrices==1"") failed for ""2nd keyword full_matrices"
, full_matrices); PyErr_SetString(_flapack_error,errstring); }
else
{
12660 /* Processing variable lwork */
12661 lwork = -1;
12662 /* Processing variable a */
12663 /* Processing variable s */
12664 /* Processing variable u */
12665 /* Processing variable vt */
12666 /* Processing variable work */
12667 /* Processing variable rwork */
12668 /* Processing variable info */
12669 /* Processing variable m */
12670 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zgesvd_lwork() 1st argument (m) can't be converted to int");
12671 if (f2py_success) {
12672 /* Processing variable n */
12673 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgesvd_lwork() 2nd argument (n) can't be converted to int");
12674 if (f2py_success) {
12675 /* Processing variable minmn */
12676 minmn = MIN(m,n)((m < n) ? (m) : (n));
12677 /* Processing variable u0 */
12678 u0 = (compute_uv?m:1);
12679 /* Processing variable vt0 */
12680 vt0 = (compute_uv?(full_matrices?n:minmn):1);
12681/*end of frompyobj*/
12682#ifdef F2PY_REPORT_ATEXIT
12683f2py_start_call_clock();
12684#endif
12685/*callfortranroutine*/
12686 (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),(compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,&a,&m,&s,&u,&u0,&vt,&vt0,&work,&lwork,&rwork,&info) ;
12687 /*(*f2py_func)(&m,&n,&minmn,&u0,&vt0,&a,&compute_uv,&full_matrices,&u,&s,&vt,&work,&rwork,&lwork,&info);*/
12688if (PyErr_Occurred())
12689 f2py_success = 0;
12690#ifdef F2PY_REPORT_ATEXIT
12691f2py_stop_call_clock();
12692#endif
12693/*end of callfortranroutine*/
12694 if (f2py_success) {
12695/*pyobjfrom*/
12696 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
12697/*end of pyobjfrom*/
12698 CFUNCSMESS("Building return value.\n");
12699 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
12700/*closepyobjfrom*/
12701/*end of closepyobjfrom*/
12702 } /*if (f2py_success) after callfortranroutine*/
12703/*cleanupfrompyobj*/
12704 /* End of cleaning variable vt0 */
12705 /* End of cleaning variable u0 */
12706 /* End of cleaning variable minmn */
12707 } /*if (f2py_success) of n*/
12708 /* End of cleaning variable n */
12709 } /*if (f2py_success) of m*/
12710 /* End of cleaning variable m */
12711 /* End of cleaning variable info */
12712 /* End of cleaning variable rwork */
12713 /* End of cleaning variable work */
12714 /* End of cleaning variable vt */
12715 /* End of cleaning variable u */
12716 /* End of cleaning variable s */
12717 /* End of cleaning variable a */
12718 /* End of cleaning variable lwork */
12719 } /*CHECKSCALAR(full_matrices==0||full_matrices==1)*/
12720 } /*if (f2py_success) of full_matrices*/
12721 /* End of cleaning variable full_matrices */
12722 } /*CHECKSCALAR(compute_uv==0||compute_uv==1)*/
12723 } /*if (f2py_success) of compute_uv*/
12724 /* End of cleaning variable compute_uv */
12725/*end of cleanupfrompyobj*/
12726 if (capi_buildvalue == NULL((void*)0)) {
12727/*routdebugfailure*/
12728 } else {
12729/*routdebugleave*/
12730 }
12731 CFUNCSMESS("Freeing memory.\n");
12732/*freemem*/
12733#ifdef F2PY_REPORT_ATEXIT
12734f2py_stop_clock();
12735#endif
12736 return capi_buildvalue;
12737}
12738/**************************** end of zgesvd_lwork ****************************/
12739
12740/*********************************** sgels ***********************************/
12741static char doc_f2py_rout__flapack_sgels[] = "\
12742lqr,x,info = sgels(a,b,[trans,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``sgels``.\
12743\n\nParameters\n----------\n"
12744"a : input rank-2 array('f') with bounds (m,n)\n"
12745"b : input rank-2 array('f') with bounds (MAX(m,n),nrhs)\n"
12746"\nOther Parameters\n----------------\n"
12747"trans : input string(len=1), optional\n Default: 'N'\n"
12748"overwrite_a : input int, optional\n Default: 0\n"
12749"overwrite_b : input int, optional\n Default: 0\n"
12750"lwork : input int, optional\n Default: MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1)\n"
12751"\nReturns\n-------\n"
12752"lqr : rank-2 array('f') with bounds (m,n) and a storage\n"
12753"x : rank-2 array('f') with bounds (MAX(m,n),nrhs) and b storage\n"
12754"info : int";
12755/* extern void F_FUNC(sgels,SGELS)(char*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */
12756static PyObject *f2py_rout__flapack_sgels(const PyObject *capi_self,
12757 PyObject *capi_args,
12758 PyObject *capi_keywds,
12759 void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
12760 PyObject * volatile capi_buildvalue = NULL((void*)0);
12761 volatile int f2py_success = 1;
12762/*decl*/
12763
12764 string trans = NULL((void*)0);
12765 int slen(trans)capi_trans_len;
12766 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
12767 int m = 0;
12768 int n = 0;
12769 int nrhs = 0;
12770 float *a = NULL((void*)0);
12771 npy_intp a_Dims[2] = {-1, -1};
12772 const int a_Rank = 2;
12773 PyArrayObject *capi_a_tmp = NULL((void*)0);
12774 int capi_a_intent = 0;
12775 int capi_overwrite_a = 0;
12776 PyObject *a_capi = Py_None(&_Py_NoneStruct);
12777 int lda = 0;
12778 float *b = NULL((void*)0);
12779 npy_intp b_Dims[2] = {-1, -1};
12780 const int b_Rank = 2;
12781 PyArrayObject *capi_b_tmp = NULL((void*)0);
12782 int capi_b_intent = 0;
12783 int capi_overwrite_b = 0;
12784 PyObject *b_capi = Py_None(&_Py_NoneStruct);
12785 int ldb = 0;
12786 float *work = NULL((void*)0);
12787 npy_intp work_Dims[1] = {-1};
12788 const int work_Rank = 1;
12789 PyArrayObject *capi_work_tmp = NULL((void*)0);
12790 int capi_work_intent = 0;
12791 int lwork = 0;
12792 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
12793 int info = 0;
12794 static char *capi_kwlist[] = {"a","b","trans","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
12795
12796/*routdebugenter*/
12797#ifdef F2PY_REPORT_ATEXIT
12798f2py_start_clock();
12799#endif
12800 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
12801 "OO|OOii:_flapack.sgels",\
12802 capi_kwlist,&a_capi,&b_capi,&trans_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
12803 return NULL((void*)0);
12804/*frompyobj*/
12805 /* Processing variable a */
12806 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
12807 ;
12808 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
12809 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
12810 if (capi_a_tmp == NULL((void*)0)) {
12811 if (!PyErr_Occurred())
12812 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgels to C/Fortran array" );
12813 } else {
12814 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
12815
12816 /* Processing variable info */
12817 /* Processing variable m */
12818 m = shape(a,0)a_Dims[0];
12819 /* Processing variable n */
12820 n = shape(a,1)a_Dims[1];
12821 /* Processing variable lda */
12822 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
12823 /* Processing variable trans */
12824 slen(trans)capi_trans_len = 1;
12825 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.sgels to C string");
12826 if (f2py_success) {
12827 CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","1st keyword trans","sgels:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgels:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'"
") failed for ""1st keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
12828 /* Processing variable b */
12829 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
12830 b_Dims[0]=MAX(m,n)((m > n) ? (m) : (n));
12831 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
12832 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
12833 if (capi_b_tmp == NULL((void*)0)) {
12834 if (!PyErr_Occurred())
12835 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sgels to C/Fortran array" );
12836 } else {
12837 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
12838
12839 CHECKARRAY(shape(b,0)==MAX(m,n),"shape(b,0)==MAX(m,n)","2nd argument b")if (!(b_Dims[0]==((m > n) ? (m) : (n)))) { PyErr_SetString
(_flapack_error,"(""shape(b,0)==MAX(m,n)"") failed for ""2nd argument b"
); } else
{
12840 /* Processing variable ldb */
12841 ldb = MAX(1,MAX(m,n))((1 > ((m > n) ? (m) : (n))) ? (1) : (((m > n) ? (m)
: (n))))
;
12842 /* Processing variable nrhs */
12843 nrhs = shape(b,1)b_Dims[1];
12844 /* Processing variable lwork */
12845 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1)((((m < n) ? (m) : (n))+((((m < n) ? (m) : (n)) > nrhs
) ? (((m < n) ? (m) : (n))) : (nrhs)) > 1) ? (((m < n
) ? (m) : (n))+((((m < n) ? (m) : (n)) > nrhs) ? (((m <
n) ? (m) : (n))) : (nrhs))) : (1))
; else
12846 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgels() 2nd keyword (lwork) can't be converted to int");
12847 if (f2py_success) {
12848 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","sgels:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgels:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
12849 /* Processing variable work */
12850 work_Dims[0]=MAX(1,lwork)((1 > lwork) ? (1) : (lwork));
12851 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
12852 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
12853 if (capi_work_tmp == NULL((void*)0)) {
12854 if (!PyErr_Occurred())
12855 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgels to C/Fortran array" );
12856 } else {
12857 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
12858
12859/*end of frompyobj*/
12860#ifdef F2PY_REPORT_ATEXIT
12861f2py_start_call_clock();
12862#endif
12863/*callfortranroutine*/
12864 (*f2py_func)(trans,&m,&n,&nrhs,a,&lda,b,&ldb,work,&lwork,&info) ;
12865 /*(*f2py_func)(trans,&m,&n,&nrhs,a,&lda,b,&ldb,work,&lwork,&info,slen(trans));*/
12866if (PyErr_Occurred())
12867 f2py_success = 0;
12868#ifdef F2PY_REPORT_ATEXIT
12869f2py_stop_call_clock();
12870#endif
12871/*end of callfortranroutine*/
12872 if (f2py_success) {
12873/*pyobjfrom*/
12874/*end of pyobjfrom*/
12875 CFUNCSMESS("Building return value.\n");
12876 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info);
12877/*closepyobjfrom*/
12878/*end of closepyobjfrom*/
12879 } /*if (f2py_success) after callfortranroutine*/
12880/*cleanupfrompyobj*/
12881 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
12882 } /*if (capi_work_tmp == NULL) ... else of work*/
12883 /* End of cleaning variable work */
12884 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
12885 } /*if (f2py_success) of lwork*/
12886 /* End of cleaning variable lwork */
12887 /* End of cleaning variable nrhs */
12888 /* End of cleaning variable ldb */
12889 } /*CHECKARRAY(shape(b,0)==MAX(m,n))*/
12890 } /*if (capi_b_tmp == NULL) ... else of b*/
12891 /* End of cleaning variable b */
12892 } /*CHECKSTRING(*trans=='N'||*trans=='T')*/
12893 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
12894 } /*if (f2py_success) of trans*/
12895 /* End of cleaning variable trans */
12896 /* End of cleaning variable lda */
12897 /* End of cleaning variable n */
12898 /* End of cleaning variable m */
12899 /* End of cleaning variable info */
12900 } /*if (capi_a_tmp == NULL) ... else of a*/
12901 /* End of cleaning variable a */
12902/*end of cleanupfrompyobj*/
12903 if (capi_buildvalue == NULL((void*)0)) {
12904/*routdebugfailure*/
12905 } else {
12906/*routdebugleave*/
12907 }
12908 CFUNCSMESS("Freeing memory.\n");
12909/*freemem*/
12910#ifdef F2PY_REPORT_ATEXIT
12911f2py_stop_clock();
12912#endif
12913 return capi_buildvalue;
12914}
12915/******************************** end of sgels ********************************/
12916
12917/*********************************** dgels ***********************************/
12918static char doc_f2py_rout__flapack_dgels[] = "\
12919lqr,x,info = dgels(a,b,[trans,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``dgels``.\
12920\n\nParameters\n----------\n"
12921"a : input rank-2 array('d') with bounds (m,n)\n"
12922"b : input rank-2 array('d') with bounds (MAX(m,n),nrhs)\n"
12923"\nOther Parameters\n----------------\n"
12924"trans : input string(len=1), optional\n Default: 'N'\n"
12925"overwrite_a : input int, optional\n Default: 0\n"
12926"overwrite_b : input int, optional\n Default: 0\n"
12927"lwork : input int, optional\n Default: MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1)\n"
12928"\nReturns\n-------\n"
12929"lqr : rank-2 array('d') with bounds (m,n) and a storage\n"
12930"x : rank-2 array('d') with bounds (MAX(m,n),nrhs) and b storage\n"
12931"info : int";
12932/* extern void F_FUNC(dgels,DGELS)(char*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */
12933static PyObject *f2py_rout__flapack_dgels(const PyObject *capi_self,
12934 PyObject *capi_args,
12935 PyObject *capi_keywds,
12936 void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
12937 PyObject * volatile capi_buildvalue = NULL((void*)0);
12938 volatile int f2py_success = 1;
12939/*decl*/
12940
12941 string trans = NULL((void*)0);
12942 int slen(trans)capi_trans_len;
12943 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
12944 int m = 0;
12945 int n = 0;
12946 int nrhs = 0;
12947 double *a = NULL((void*)0);
12948 npy_intp a_Dims[2] = {-1, -1};
12949 const int a_Rank = 2;
12950 PyArrayObject *capi_a_tmp = NULL((void*)0);
12951 int capi_a_intent = 0;
12952 int capi_overwrite_a = 0;
12953 PyObject *a_capi = Py_None(&_Py_NoneStruct);
12954 int lda = 0;
12955 double *b = NULL((void*)0);
12956 npy_intp b_Dims[2] = {-1, -1};
12957 const int b_Rank = 2;
12958 PyArrayObject *capi_b_tmp = NULL((void*)0);
12959 int capi_b_intent = 0;
12960 int capi_overwrite_b = 0;
12961 PyObject *b_capi = Py_None(&_Py_NoneStruct);
12962 int ldb = 0;
12963 double *work = NULL((void*)0);
12964 npy_intp work_Dims[1] = {-1};
12965 const int work_Rank = 1;
12966 PyArrayObject *capi_work_tmp = NULL((void*)0);
12967 int capi_work_intent = 0;
12968 int lwork = 0;
12969 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
12970 int info = 0;
12971 static char *capi_kwlist[] = {"a","b","trans","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
12972
12973/*routdebugenter*/
12974#ifdef F2PY_REPORT_ATEXIT
12975f2py_start_clock();
12976#endif
12977 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
12978 "OO|OOii:_flapack.dgels",\
12979 capi_kwlist,&a_capi,&b_capi,&trans_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
12980 return NULL((void*)0);
12981/*frompyobj*/
12982 /* Processing variable a */
12983 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
12984 ;
12985 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
12986 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
12987 if (capi_a_tmp == NULL((void*)0)) {
12988 if (!PyErr_Occurred())
12989 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgels to C/Fortran array" );
12990 } else {
12991 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
12992
12993 /* Processing variable info */
12994 /* Processing variable m */
12995 m = shape(a,0)a_Dims[0];
12996 /* Processing variable n */
12997 n = shape(a,1)a_Dims[1];
12998 /* Processing variable lda */
12999 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
13000 /* Processing variable trans */
13001 slen(trans)capi_trans_len = 1;
13002 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.dgels to C string");
13003 if (f2py_success) {
13004 CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","1st keyword trans","dgels:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgels:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'"
") failed for ""1st keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
13005 /* Processing variable b */
13006 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
13007 b_Dims[0]=MAX(m,n)((m > n) ? (m) : (n));
13008 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
13009 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
13010 if (capi_b_tmp == NULL((void*)0)) {
13011 if (!PyErr_Occurred())
13012 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dgels to C/Fortran array" );
13013 } else {
13014 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
13015
13016 CHECKARRAY(shape(b,0)==MAX(m,n),"shape(b,0)==MAX(m,n)","2nd argument b")if (!(b_Dims[0]==((m > n) ? (m) : (n)))) { PyErr_SetString
(_flapack_error,"(""shape(b,0)==MAX(m,n)"") failed for ""2nd argument b"
); } else
{
13017 /* Processing variable ldb */
13018 ldb = MAX(1,MAX(m,n))((1 > ((m > n) ? (m) : (n))) ? (1) : (((m > n) ? (m)
: (n))))
;
13019 /* Processing variable nrhs */
13020 nrhs = shape(b,1)b_Dims[1];
13021 /* Processing variable lwork */
13022 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1)((((m < n) ? (m) : (n))+((((m < n) ? (m) : (n)) > nrhs
) ? (((m < n) ? (m) : (n))) : (nrhs)) > 1) ? (((m < n
) ? (m) : (n))+((((m < n) ? (m) : (n)) > nrhs) ? (((m <
n) ? (m) : (n))) : (nrhs))) : (1))
; else
13023 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgels() 2nd keyword (lwork) can't be converted to int");
13024 if (f2py_success) {
13025 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","dgels:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgels:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
13026 /* Processing variable work */
13027 work_Dims[0]=MAX(1,lwork)((1 > lwork) ? (1) : (lwork));
13028 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
13029 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
13030 if (capi_work_tmp == NULL((void*)0)) {
13031 if (!PyErr_Occurred())
13032 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgels to C/Fortran array" );
13033 } else {
13034 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
13035
13036/*end of frompyobj*/
13037#ifdef F2PY_REPORT_ATEXIT
13038f2py_start_call_clock();
13039#endif
13040/*callfortranroutine*/
13041 (*f2py_func)(trans,&m,&n,&nrhs,a,&lda,b,&ldb,work,&lwork,&info) ;
13042 /*(*f2py_func)(trans,&m,&n,&nrhs,a,&lda,b,&ldb,work,&lwork,&info,slen(trans));*/
13043if (PyErr_Occurred())
13044 f2py_success = 0;
13045#ifdef F2PY_REPORT_ATEXIT
13046f2py_stop_call_clock();
13047#endif
13048/*end of callfortranroutine*/
13049 if (f2py_success) {
13050/*pyobjfrom*/
13051/*end of pyobjfrom*/
13052 CFUNCSMESS("Building return value.\n");
13053 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info);
13054/*closepyobjfrom*/
13055/*end of closepyobjfrom*/
13056 } /*if (f2py_success) after callfortranroutine*/
13057/*cleanupfrompyobj*/
13058 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
13059 } /*if (capi_work_tmp == NULL) ... else of work*/
13060 /* End of cleaning variable work */
13061 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
13062 } /*if (f2py_success) of lwork*/
13063 /* End of cleaning variable lwork */
13064 /* End of cleaning variable nrhs */
13065 /* End of cleaning variable ldb */
13066 } /*CHECKARRAY(shape(b,0)==MAX(m,n))*/
13067 } /*if (capi_b_tmp == NULL) ... else of b*/
13068 /* End of cleaning variable b */
13069 } /*CHECKSTRING(*trans=='N'||*trans=='T')*/
13070 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
13071 } /*if (f2py_success) of trans*/
13072 /* End of cleaning variable trans */
13073 /* End of cleaning variable lda */
13074 /* End of cleaning variable n */
13075 /* End of cleaning variable m */
13076 /* End of cleaning variable info */
13077 } /*if (capi_a_tmp == NULL) ... else of a*/
13078 /* End of cleaning variable a */
13079/*end of cleanupfrompyobj*/
13080 if (capi_buildvalue == NULL((void*)0)) {
13081/*routdebugfailure*/
13082 } else {
13083/*routdebugleave*/
13084 }
13085 CFUNCSMESS("Freeing memory.\n");
13086/*freemem*/
13087#ifdef F2PY_REPORT_ATEXIT
13088f2py_stop_clock();
13089#endif
13090 return capi_buildvalue;
13091}
13092/******************************** end of dgels ********************************/
13093
13094/*********************************** cgels ***********************************/
13095static char doc_f2py_rout__flapack_cgels[] = "\
13096lqr,x,info = cgels(a,b,[trans,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``cgels``.\
13097\n\nParameters\n----------\n"
13098"a : input rank-2 array('F') with bounds (m,n)\n"
13099"b : input rank-2 array('F') with bounds (MAX(m,n),nrhs)\n"
13100"\nOther Parameters\n----------------\n"
13101"trans : input string(len=1), optional\n Default: 'N'\n"
13102"overwrite_a : input int, optional\n Default: 0\n"
13103"overwrite_b : input int, optional\n Default: 0\n"
13104"lwork : input int, optional\n Default: MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1)\n"
13105"\nReturns\n-------\n"
13106"lqr : rank-2 array('F') with bounds (m,n) and a storage\n"
13107"x : rank-2 array('F') with bounds (MAX(m,n),nrhs) and b storage\n"
13108"info : int";
13109/* extern void F_FUNC(cgels,CGELS)(char*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */
13110static PyObject *f2py_rout__flapack_cgels(const PyObject *capi_self,
13111 PyObject *capi_args,
13112 PyObject *capi_keywds,
13113 void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
13114 PyObject * volatile capi_buildvalue = NULL((void*)0);
13115 volatile int f2py_success = 1;
13116/*decl*/
13117
13118 string trans = NULL((void*)0);
13119 int slen(trans)capi_trans_len;
13120 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
13121 int m = 0;
13122 int n = 0;
13123 int nrhs = 0;
13124 complex_float *a = NULL((void*)0);
13125 npy_intp a_Dims[2] = {-1, -1};
13126 const int a_Rank = 2;
13127 PyArrayObject *capi_a_tmp = NULL((void*)0);
13128 int capi_a_intent = 0;
13129 int capi_overwrite_a = 0;
13130 PyObject *a_capi = Py_None(&_Py_NoneStruct);
13131 int lda = 0;
13132 complex_float *b = NULL((void*)0);
13133 npy_intp b_Dims[2] = {-1, -1};
13134 const int b_Rank = 2;
13135 PyArrayObject *capi_b_tmp = NULL((void*)0);
13136 int capi_b_intent = 0;
13137 int capi_overwrite_b = 0;
13138 PyObject *b_capi = Py_None(&_Py_NoneStruct);
13139 int ldb = 0;
13140 complex_float *work = NULL((void*)0);
13141 npy_intp work_Dims[1] = {-1};
13142 const int work_Rank = 1;
13143 PyArrayObject *capi_work_tmp = NULL((void*)0);
13144 int capi_work_intent = 0;
13145 int lwork = 0;
13146 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
13147 int info = 0;
13148 static char *capi_kwlist[] = {"a","b","trans","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
13149
13150/*routdebugenter*/
13151#ifdef F2PY_REPORT_ATEXIT
13152f2py_start_clock();
13153#endif
13154 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
13155 "OO|OOii:_flapack.cgels",\
13156 capi_kwlist,&a_capi,&b_capi,&trans_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
13157 return NULL((void*)0);
13158/*frompyobj*/
13159 /* Processing variable a */
13160 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
13161 ;
13162 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
13163 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
13164 if (capi_a_tmp == NULL((void*)0)) {
13165 if (!PyErr_Occurred())
13166 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgels to C/Fortran array" );
13167 } else {
13168 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
13169
13170 /* Processing variable info */
13171 /* Processing variable m */
13172 m = shape(a,0)a_Dims[0];
13173 /* Processing variable n */
13174 n = shape(a,1)a_Dims[1];
13175 /* Processing variable lda */
13176 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
13177 /* Processing variable trans */
13178 slen(trans)capi_trans_len = 1;
13179 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.cgels to C string");
13180 if (f2py_success) {
13181 CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","1st keyword trans","cgels:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgels:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'"
") failed for ""1st keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
13182 /* Processing variable b */
13183 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
13184 b_Dims[0]=MAX(m,n)((m > n) ? (m) : (n));
13185 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
13186 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
13187 if (capi_b_tmp == NULL((void*)0)) {
13188 if (!PyErr_Occurred())
13189 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cgels to C/Fortran array" );
13190 } else {
13191 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
13192
13193 CHECKARRAY(shape(b,0)==MAX(m,n),"shape(b,0)==MAX(m,n)","2nd argument b")if (!(b_Dims[0]==((m > n) ? (m) : (n)))) { PyErr_SetString
(_flapack_error,"(""shape(b,0)==MAX(m,n)"") failed for ""2nd argument b"
); } else
{
13194 /* Processing variable ldb */
13195 ldb = MAX(1,MAX(m,n))((1 > ((m > n) ? (m) : (n))) ? (1) : (((m > n) ? (m)
: (n))))
;
13196 /* Processing variable nrhs */
13197 nrhs = shape(b,1)b_Dims[1];
13198 /* Processing variable lwork */
13199 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1)((((m < n) ? (m) : (n))+((((m < n) ? (m) : (n)) > nrhs
) ? (((m < n) ? (m) : (n))) : (nrhs)) > 1) ? (((m < n
) ? (m) : (n))+((((m < n) ? (m) : (n)) > nrhs) ? (((m <
n) ? (m) : (n))) : (nrhs))) : (1))
; else
13200 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgels() 2nd keyword (lwork) can't be converted to int");
13201 if (f2py_success) {
13202 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","cgels:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgels:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
13203 /* Processing variable work */
13204 work_Dims[0]=MAX(1,lwork)((1 > lwork) ? (1) : (lwork));
13205 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
13206 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
13207 if (capi_work_tmp == NULL((void*)0)) {
13208 if (!PyErr_Occurred())
13209 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgels to C/Fortran array" );
13210 } else {
13211 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
13212
13213/*end of frompyobj*/
13214#ifdef F2PY_REPORT_ATEXIT
13215f2py_start_call_clock();
13216#endif
13217/*callfortranroutine*/
13218 (*f2py_func)(trans,&m,&n,&nrhs,a,&lda,b,&ldb,work,&lwork,&info) ;
13219 /*(*f2py_func)(trans,&m,&n,&nrhs,a,&lda,b,&ldb,work,&lwork,&info,slen(trans));*/
13220if (PyErr_Occurred())
13221 f2py_success = 0;
13222#ifdef F2PY_REPORT_ATEXIT
13223f2py_stop_call_clock();
13224#endif
13225/*end of callfortranroutine*/
13226 if (f2py_success) {
13227/*pyobjfrom*/
13228/*end of pyobjfrom*/
13229 CFUNCSMESS("Building return value.\n");
13230 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info);
13231/*closepyobjfrom*/
13232/*end of closepyobjfrom*/
13233 } /*if (f2py_success) after callfortranroutine*/
13234/*cleanupfrompyobj*/
13235 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
13236 } /*if (capi_work_tmp == NULL) ... else of work*/
13237 /* End of cleaning variable work */
13238 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
13239 } /*if (f2py_success) of lwork*/
13240 /* End of cleaning variable lwork */
13241 /* End of cleaning variable nrhs */
13242 /* End of cleaning variable ldb */
13243 } /*CHECKARRAY(shape(b,0)==MAX(m,n))*/
13244 } /*if (capi_b_tmp == NULL) ... else of b*/
13245 /* End of cleaning variable b */
13246 } /*CHECKSTRING(*trans=='N'||*trans=='C')*/
13247 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
13248 } /*if (f2py_success) of trans*/
13249 /* End of cleaning variable trans */
13250 /* End of cleaning variable lda */
13251 /* End of cleaning variable n */
13252 /* End of cleaning variable m */
13253 /* End of cleaning variable info */
13254 } /*if (capi_a_tmp == NULL) ... else of a*/
13255 /* End of cleaning variable a */
13256/*end of cleanupfrompyobj*/
13257 if (capi_buildvalue == NULL((void*)0)) {
13258/*routdebugfailure*/
13259 } else {
13260/*routdebugleave*/
13261 }
13262 CFUNCSMESS("Freeing memory.\n");
13263/*freemem*/
13264#ifdef F2PY_REPORT_ATEXIT
13265f2py_stop_clock();
13266#endif
13267 return capi_buildvalue;
13268}
13269/******************************** end of cgels ********************************/
13270
13271/*********************************** zgels ***********************************/
13272static char doc_f2py_rout__flapack_zgels[] = "\
13273lqr,x,info = zgels(a,b,[trans,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``zgels``.\
13274\n\nParameters\n----------\n"
13275"a : input rank-2 array('D') with bounds (m,n)\n"
13276"b : input rank-2 array('D') with bounds (MAX(m,n),nrhs)\n"
13277"\nOther Parameters\n----------------\n"
13278"trans : input string(len=1), optional\n Default: 'N'\n"
13279"overwrite_a : input int, optional\n Default: 0\n"
13280"overwrite_b : input int, optional\n Default: 0\n"
13281"lwork : input int, optional\n Default: MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1)\n"
13282"\nReturns\n-------\n"
13283"lqr : rank-2 array('D') with bounds (m,n) and a storage\n"
13284"x : rank-2 array('D') with bounds (MAX(m,n),nrhs) and b storage\n"
13285"info : int";
13286/* extern void F_FUNC(zgels,ZGELS)(char*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */
13287static PyObject *f2py_rout__flapack_zgels(const PyObject *capi_self,
13288 PyObject *capi_args,
13289 PyObject *capi_keywds,
13290 void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
13291 PyObject * volatile capi_buildvalue = NULL((void*)0);
13292 volatile int f2py_success = 1;
13293/*decl*/
13294
13295 string trans = NULL((void*)0);
13296 int slen(trans)capi_trans_len;
13297 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
13298 int m = 0;
13299 int n = 0;
13300 int nrhs = 0;
13301 complex_double *a = NULL((void*)0);
13302 npy_intp a_Dims[2] = {-1, -1};
13303 const int a_Rank = 2;
13304 PyArrayObject *capi_a_tmp = NULL((void*)0);
13305 int capi_a_intent = 0;
13306 int capi_overwrite_a = 0;
13307 PyObject *a_capi = Py_None(&_Py_NoneStruct);
13308 int lda = 0;
13309 complex_double *b = NULL((void*)0);
13310 npy_intp b_Dims[2] = {-1, -1};
13311 const int b_Rank = 2;
13312 PyArrayObject *capi_b_tmp = NULL((void*)0);
13313 int capi_b_intent = 0;
13314 int capi_overwrite_b = 0;
13315 PyObject *b_capi = Py_None(&_Py_NoneStruct);
13316 int ldb = 0;
13317 complex_double *work = NULL((void*)0);
13318 npy_intp work_Dims[1] = {-1};
13319 const int work_Rank = 1;
13320 PyArrayObject *capi_work_tmp = NULL((void*)0);
13321 int capi_work_intent = 0;
13322 int lwork = 0;
13323 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
13324 int info = 0;
13325 static char *capi_kwlist[] = {"a","b","trans","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
13326
13327/*routdebugenter*/
13328#ifdef F2PY_REPORT_ATEXIT
13329f2py_start_clock();
13330#endif
13331 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
13332 "OO|OOii:_flapack.zgels",\
13333 capi_kwlist,&a_capi,&b_capi,&trans_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
13334 return NULL((void*)0);
13335/*frompyobj*/
13336 /* Processing variable a */
13337 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
13338 ;
13339 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
13340 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
13341 if (capi_a_tmp == NULL((void*)0)) {
13342 if (!PyErr_Occurred())
13343 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgels to C/Fortran array" );
13344 } else {
13345 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
13346
13347 /* Processing variable info */
13348 /* Processing variable m */
13349 m = shape(a,0)a_Dims[0];
13350 /* Processing variable n */
13351 n = shape(a,1)a_Dims[1];
13352 /* Processing variable lda */
13353 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
13354 /* Processing variable trans */
13355 slen(trans)capi_trans_len = 1;
13356 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.zgels to C string");
13357 if (f2py_success) {
13358 CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","1st keyword trans","zgels:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgels:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'"
") failed for ""1st keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
13359 /* Processing variable b */
13360 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
13361 b_Dims[0]=MAX(m,n)((m > n) ? (m) : (n));
13362 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
13363 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
13364 if (capi_b_tmp == NULL((void*)0)) {
13365 if (!PyErr_Occurred())
13366 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zgels to C/Fortran array" );
13367 } else {
13368 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
13369
13370 CHECKARRAY(shape(b,0)==MAX(m,n),"shape(b,0)==MAX(m,n)","2nd argument b")if (!(b_Dims[0]==((m > n) ? (m) : (n)))) { PyErr_SetString
(_flapack_error,"(""shape(b,0)==MAX(m,n)"") failed for ""2nd argument b"
); } else
{
13371 /* Processing variable ldb */
13372 ldb = MAX(1,MAX(m,n))((1 > ((m > n) ? (m) : (n))) ? (1) : (((m > n) ? (m)
: (n))))
;
13373 /* Processing variable nrhs */
13374 nrhs = shape(b,1)b_Dims[1];
13375 /* Processing variable lwork */
13376 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1)((((m < n) ? (m) : (n))+((((m < n) ? (m) : (n)) > nrhs
) ? (((m < n) ? (m) : (n))) : (nrhs)) > 1) ? (((m < n
) ? (m) : (n))+((((m < n) ? (m) : (n)) > nrhs) ? (((m <
n) ? (m) : (n))) : (nrhs))) : (1))
; else
13377 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgels() 2nd keyword (lwork) can't be converted to int");
13378 if (f2py_success) {
13379 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","zgels:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgels:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
13380 /* Processing variable work */
13381 work_Dims[0]=MAX(1,lwork)((1 > lwork) ? (1) : (lwork));
13382 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
13383 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
13384 if (capi_work_tmp == NULL((void*)0)) {
13385 if (!PyErr_Occurred())
13386 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgels to C/Fortran array" );
13387 } else {
13388 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
13389
13390/*end of frompyobj*/
13391#ifdef F2PY_REPORT_ATEXIT
13392f2py_start_call_clock();
13393#endif
13394/*callfortranroutine*/
13395 (*f2py_func)(trans,&m,&n,&nrhs,a,&lda,b,&ldb,work,&lwork,&info) ;
13396 /*(*f2py_func)(trans,&m,&n,&nrhs,a,&lda,b,&ldb,work,&lwork,&info,slen(trans));*/
13397if (PyErr_Occurred())
13398 f2py_success = 0;
13399#ifdef F2PY_REPORT_ATEXIT
13400f2py_stop_call_clock();
13401#endif
13402/*end of callfortranroutine*/
13403 if (f2py_success) {
13404/*pyobjfrom*/
13405/*end of pyobjfrom*/
13406 CFUNCSMESS("Building return value.\n");
13407 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info);
13408/*closepyobjfrom*/
13409/*end of closepyobjfrom*/
13410 } /*if (f2py_success) after callfortranroutine*/
13411/*cleanupfrompyobj*/
13412 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
13413 } /*if (capi_work_tmp == NULL) ... else of work*/
13414 /* End of cleaning variable work */
13415 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
13416 } /*if (f2py_success) of lwork*/
13417 /* End of cleaning variable lwork */
13418 /* End of cleaning variable nrhs */
13419 /* End of cleaning variable ldb */
13420 } /*CHECKARRAY(shape(b,0)==MAX(m,n))*/
13421 } /*if (capi_b_tmp == NULL) ... else of b*/
13422 /* End of cleaning variable b */
13423 } /*CHECKSTRING(*trans=='N'||*trans=='C')*/
13424 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
13425 } /*if (f2py_success) of trans*/
13426 /* End of cleaning variable trans */
13427 /* End of cleaning variable lda */
13428 /* End of cleaning variable n */
13429 /* End of cleaning variable m */
13430 /* End of cleaning variable info */
13431 } /*if (capi_a_tmp == NULL) ... else of a*/
13432 /* End of cleaning variable a */
13433/*end of cleanupfrompyobj*/
13434 if (capi_buildvalue == NULL((void*)0)) {
13435/*routdebugfailure*/
13436 } else {
13437/*routdebugleave*/
13438 }
13439 CFUNCSMESS("Freeing memory.\n");
13440/*freemem*/
13441#ifdef F2PY_REPORT_ATEXIT
13442f2py_stop_clock();
13443#endif
13444 return capi_buildvalue;
13445}
13446/******************************** end of zgels ********************************/
13447
13448/******************************** sgels_lwork ********************************/
13449static char doc_f2py_rout__flapack_sgels_lwork[] = "\
13450work,info = sgels_lwork(m,n,nrhs,[trans])\n\nWrapper for ``sgels_lwork``.\
13451\n\nParameters\n----------\n"
13452"m : input int\n"
13453"n : input int\n"
13454"nrhs : input int\n"
13455"\nOther Parameters\n----------------\n"
13456"trans : input string(len=1), optional\n Default: 'N'\n"
13457"\nReturns\n-------\n"
13458"work : float\n"
13459"info : int";
13460/* extern void F_FUNC(sgels ,SGELS )(char*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */
13461static PyObject *f2py_rout__flapack_sgels_lwork(const PyObject *capi_self,
13462 PyObject *capi_args,
13463 PyObject *capi_keywds,
13464 void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
13465 PyObject * volatile capi_buildvalue = NULL((void*)0);
13466 volatile int f2py_success = 1;
13467/*decl*/
13468
13469 string trans = NULL((void*)0);
13470 int slen(trans)capi_trans_len;
13471 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
13472 int m = 0;
13473 PyObject *m_capi = Py_None(&_Py_NoneStruct);
13474 int n = 0;
13475 PyObject *n_capi = Py_None(&_Py_NoneStruct);
13476 int nrhs = 0;
13477 PyObject *nrhs_capi = Py_None(&_Py_NoneStruct);
13478 float a = 0;
13479 int lda = 0;
13480 float b = 0;
13481 int ldb = 0;
13482 float work = 0;
13483 int lwork = 0;
13484 int info = 0;
13485 static char *capi_kwlist[] = {"m","n","nrhs","trans",NULL((void*)0)};
13486
13487/*routdebugenter*/
13488#ifdef F2PY_REPORT_ATEXIT
13489f2py_start_clock();
13490#endif
13491 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
13492 "OOO|O:_flapack.sgels_lwork",\
13493 capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&trans_capi))
13494 return NULL((void*)0);
13495/*frompyobj*/
13496 /* Processing variable m */
13497 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sgels_lwork() 1st argument (m) can't be converted to int");
13498 if (f2py_success) {
13499 CHECKSCALAR(m>=0,"m>=0","1st argument m","sgels_lwork:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgels_lwork:m=%d", "(""m>=0"") failed for ""1st argument m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
13500 /* Processing variable n */
13501 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgels_lwork() 2nd argument (n) can't be converted to int");
13502 if (f2py_success) {
13503 CHECKSCALAR(n>=0,"n>=0","2nd argument n","sgels_lwork:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgels_lwork:n=%d", "(""n>=0"") failed for ""2nd argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
13504 /* Processing variable nrhs */
13505 f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.sgels_lwork() 3rd argument (nrhs) can't be converted to int");
13506 if (f2py_success) {
13507 CHECKSCALAR(nrhs>=0,"nrhs>=0","3rd argument nrhs","sgels_lwork:nrhs=%d",nrhs)if (!(nrhs>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgels_lwork:nrhs=%d", "(""nrhs>=0"") failed for "
"3rd argument nrhs", nrhs); PyErr_SetString(_flapack_error,errstring
); } else
{
13508 /* Processing variable a */
13509 /* Processing variable b */
13510 /* Processing variable lwork */
13511 lwork = -1;
13512 /* Processing variable work */
13513 /* Processing variable info */
13514 /* Processing variable trans */
13515 slen(trans)capi_trans_len = 1;
13516 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.sgels_lwork to C string");
13517 if (f2py_success) {
13518 CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","1st keyword trans","sgels_lwork:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgels_lwork:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'"
") failed for ""1st keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
13519 /* Processing variable lda */
13520 lda = MAX(1,m)((1 > m) ? (1) : (m));
13521 /* Processing variable ldb */
13522 ldb = MAX(1,MAX(m,n))((1 > ((m > n) ? (m) : (n))) ? (1) : (((m > n) ? (m)
: (n))))
;
13523/*end of frompyobj*/
13524#ifdef F2PY_REPORT_ATEXIT
13525f2py_start_call_clock();
13526#endif
13527/*callfortranroutine*/
13528 (*f2py_func)(trans,&m,&n,&nrhs,&a,&lda,&b,&ldb,&work,&lwork,&info) ;
13529 /*(*f2py_func)(trans,&m,&n,&nrhs,&a,&lda,&b,&ldb,&work,&lwork,&info,slen(trans));*/
13530if (PyErr_Occurred())
13531 f2py_success = 0;
13532#ifdef F2PY_REPORT_ATEXIT
13533f2py_stop_call_clock();
13534#endif
13535/*end of callfortranroutine*/
13536 if (f2py_success) {
13537/*pyobjfrom*/
13538/*end of pyobjfrom*/
13539 CFUNCSMESS("Building return value.\n");
13540 capi_buildvalue = Py_BuildValue("fi",work,info);
13541/*closepyobjfrom*/
13542/*end of closepyobjfrom*/
13543 } /*if (f2py_success) after callfortranroutine*/
13544/*cleanupfrompyobj*/
13545 /* End of cleaning variable ldb */
13546 /* End of cleaning variable lda */
13547 } /*CHECKSTRING(*trans=='N'||*trans=='T')*/
13548 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
13549 } /*if (f2py_success) of trans*/
13550 /* End of cleaning variable trans */
13551 /* End of cleaning variable info */
13552 /* End of cleaning variable work */
13553 /* End of cleaning variable lwork */
13554 /* End of cleaning variable b */
13555 /* End of cleaning variable a */
13556 } /*CHECKSCALAR(nrhs>=0)*/
13557 } /*if (f2py_success) of nrhs*/
13558 /* End of cleaning variable nrhs */
13559 } /*CHECKSCALAR(n>=0)*/
13560 } /*if (f2py_success) of n*/
13561 /* End of cleaning variable n */
13562 } /*CHECKSCALAR(m>=0)*/
13563 } /*if (f2py_success) of m*/
13564 /* End of cleaning variable m */
13565/*end of cleanupfrompyobj*/
13566 if (capi_buildvalue == NULL((void*)0)) {
13567/*routdebugfailure*/
13568 } else {
13569/*routdebugleave*/
13570 }
13571 CFUNCSMESS("Freeing memory.\n");
13572/*freemem*/
13573#ifdef F2PY_REPORT_ATEXIT
13574f2py_stop_clock();
13575#endif
13576 return capi_buildvalue;
13577}
13578/***************************** end of sgels_lwork *****************************/
13579
13580/******************************** dgels_lwork ********************************/
13581static char doc_f2py_rout__flapack_dgels_lwork[] = "\
13582work,info = dgels_lwork(m,n,nrhs,[trans])\n\nWrapper for ``dgels_lwork``.\
13583\n\nParameters\n----------\n"
13584"m : input int\n"
13585"n : input int\n"
13586"nrhs : input int\n"
13587"\nOther Parameters\n----------------\n"
13588"trans : input string(len=1), optional\n Default: 'N'\n"
13589"\nReturns\n-------\n"
13590"work : float\n"
13591"info : int";
13592/* extern void F_FUNC(dgels ,DGELS )(char*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */
13593static PyObject *f2py_rout__flapack_dgels_lwork(const PyObject *capi_self,
13594 PyObject *capi_args,
13595 PyObject *capi_keywds,
13596 void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
13597 PyObject * volatile capi_buildvalue = NULL((void*)0);
13598 volatile int f2py_success = 1;
13599/*decl*/
13600
13601 string trans = NULL((void*)0);
13602 int slen(trans)capi_trans_len;
13603 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
13604 int m = 0;
13605 PyObject *m_capi = Py_None(&_Py_NoneStruct);
13606 int n = 0;
13607 PyObject *n_capi = Py_None(&_Py_NoneStruct);
13608 int nrhs = 0;
13609 PyObject *nrhs_capi = Py_None(&_Py_NoneStruct);
13610 double a = 0;
13611 int lda = 0;
13612 double b = 0;
13613 int ldb = 0;
13614 double work = 0;
13615 int lwork = 0;
13616 int info = 0;
13617 static char *capi_kwlist[] = {"m","n","nrhs","trans",NULL((void*)0)};
13618
13619/*routdebugenter*/
13620#ifdef F2PY_REPORT_ATEXIT
13621f2py_start_clock();
13622#endif
13623 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
13624 "OOO|O:_flapack.dgels_lwork",\
13625 capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&trans_capi))
13626 return NULL((void*)0);
13627/*frompyobj*/
13628 /* Processing variable m */
13629 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dgels_lwork() 1st argument (m) can't be converted to int");
13630 if (f2py_success) {
13631 CHECKSCALAR(m>=0,"m>=0","1st argument m","dgels_lwork:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgels_lwork:m=%d", "(""m>=0"") failed for ""1st argument m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
13632 /* Processing variable n */
13633 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgels_lwork() 2nd argument (n) can't be converted to int");
13634 if (f2py_success) {
13635 CHECKSCALAR(n>=0,"n>=0","2nd argument n","dgels_lwork:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgels_lwork:n=%d", "(""n>=0"") failed for ""2nd argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
13636 /* Processing variable nrhs */
13637 f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.dgels_lwork() 3rd argument (nrhs) can't be converted to int");
13638 if (f2py_success) {
13639 CHECKSCALAR(nrhs>=0,"nrhs>=0","3rd argument nrhs","dgels_lwork:nrhs=%d",nrhs)if (!(nrhs>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgels_lwork:nrhs=%d", "(""nrhs>=0"") failed for "
"3rd argument nrhs", nrhs); PyErr_SetString(_flapack_error,errstring
); } else
{
13640 /* Processing variable a */
13641 /* Processing variable b */
13642 /* Processing variable lwork */
13643 lwork = -1;
13644 /* Processing variable work */
13645 /* Processing variable info */
13646 /* Processing variable trans */
13647 slen(trans)capi_trans_len = 1;
13648 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.dgels_lwork to C string");
13649 if (f2py_success) {
13650 CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","1st keyword trans","dgels_lwork:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgels_lwork:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'"
") failed for ""1st keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
13651 /* Processing variable lda */
13652 lda = MAX(1,m)((1 > m) ? (1) : (m));
13653 /* Processing variable ldb */
13654 ldb = MAX(1,MAX(m,n))((1 > ((m > n) ? (m) : (n))) ? (1) : (((m > n) ? (m)
: (n))))
;
13655/*end of frompyobj*/
13656#ifdef F2PY_REPORT_ATEXIT
13657f2py_start_call_clock();
13658#endif
13659/*callfortranroutine*/
13660 (*f2py_func)(trans,&m,&n,&nrhs,&a,&lda,&b,&ldb,&work,&lwork,&info) ;
13661 /*(*f2py_func)(trans,&m,&n,&nrhs,&a,&lda,&b,&ldb,&work,&lwork,&info,slen(trans));*/
13662if (PyErr_Occurred())
13663 f2py_success = 0;
13664#ifdef F2PY_REPORT_ATEXIT
13665f2py_stop_call_clock();
13666#endif
13667/*end of callfortranroutine*/
13668 if (f2py_success) {
13669/*pyobjfrom*/
13670/*end of pyobjfrom*/
13671 CFUNCSMESS("Building return value.\n");
13672 capi_buildvalue = Py_BuildValue("di",work,info);
13673/*closepyobjfrom*/
13674/*end of closepyobjfrom*/
13675 } /*if (f2py_success) after callfortranroutine*/
13676/*cleanupfrompyobj*/
13677 /* End of cleaning variable ldb */
13678 /* End of cleaning variable lda */
13679 } /*CHECKSTRING(*trans=='N'||*trans=='T')*/
13680 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
13681 } /*if (f2py_success) of trans*/
13682 /* End of cleaning variable trans */
13683 /* End of cleaning variable info */
13684 /* End of cleaning variable work */
13685 /* End of cleaning variable lwork */
13686 /* End of cleaning variable b */
13687 /* End of cleaning variable a */
13688 } /*CHECKSCALAR(nrhs>=0)*/
13689 } /*if (f2py_success) of nrhs*/
13690 /* End of cleaning variable nrhs */
13691 } /*CHECKSCALAR(n>=0)*/
13692 } /*if (f2py_success) of n*/
13693 /* End of cleaning variable n */
13694 } /*CHECKSCALAR(m>=0)*/
13695 } /*if (f2py_success) of m*/
13696 /* End of cleaning variable m */
13697/*end of cleanupfrompyobj*/
13698 if (capi_buildvalue == NULL((void*)0)) {
13699/*routdebugfailure*/
13700 } else {
13701/*routdebugleave*/
13702 }
13703 CFUNCSMESS("Freeing memory.\n");
13704/*freemem*/
13705#ifdef F2PY_REPORT_ATEXIT
13706f2py_stop_clock();
13707#endif
13708 return capi_buildvalue;
13709}
13710/***************************** end of dgels_lwork *****************************/
13711
13712/******************************** cgels_lwork ********************************/
13713static char doc_f2py_rout__flapack_cgels_lwork[] = "\
13714work,info = cgels_lwork(m,n,nrhs,[trans])\n\nWrapper for ``cgels_lwork``.\
13715\n\nParameters\n----------\n"
13716"m : input int\n"
13717"n : input int\n"
13718"nrhs : input int\n"
13719"\nOther Parameters\n----------------\n"
13720"trans : input string(len=1), optional\n Default: 'N'\n"
13721"\nReturns\n-------\n"
13722"work : complex\n"
13723"info : int";
13724/* extern void F_FUNC(cgels ,CGELS )(char*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */
13725static PyObject *f2py_rout__flapack_cgels_lwork(const PyObject *capi_self,
13726 PyObject *capi_args,
13727 PyObject *capi_keywds,
13728 void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
13729 PyObject * volatile capi_buildvalue = NULL((void*)0);
13730 volatile int f2py_success = 1;
13731/*decl*/
13732
13733 string trans = NULL((void*)0);
13734 int slen(trans)capi_trans_len;
13735 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
13736 int m = 0;
13737 PyObject *m_capi = Py_None(&_Py_NoneStruct);
13738 int n = 0;
13739 PyObject *n_capi = Py_None(&_Py_NoneStruct);
13740 int nrhs = 0;
13741 PyObject *nrhs_capi = Py_None(&_Py_NoneStruct);
13742 complex_float a;
13743 int lda = 0;
13744 complex_float b;
13745 int ldb = 0;
13746 complex_float work;
13747 PyObject *work_capi = Py_None(&_Py_NoneStruct);
13748 int lwork = 0;
13749 int info = 0;
13750 static char *capi_kwlist[] = {"m","n","nrhs","trans",NULL((void*)0)};
13751
13752/*routdebugenter*/
13753#ifdef F2PY_REPORT_ATEXIT
13754f2py_start_clock();
13755#endif
13756 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
13757 "OOO|O:_flapack.cgels_lwork",\
13758 capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&trans_capi))
13759 return NULL((void*)0);
13760/*frompyobj*/
13761 /* Processing variable m */
13762 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cgels_lwork() 1st argument (m) can't be converted to int");
13763 if (f2py_success) {
13764 CHECKSCALAR(m>=0,"m>=0","1st argument m","cgels_lwork:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgels_lwork:m=%d", "(""m>=0"") failed for ""1st argument m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
13765 /* Processing variable n */
13766 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgels_lwork() 2nd argument (n) can't be converted to int");
13767 if (f2py_success) {
13768 CHECKSCALAR(n>=0,"n>=0","2nd argument n","cgels_lwork:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgels_lwork:n=%d", "(""n>=0"") failed for ""2nd argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
13769 /* Processing variable nrhs */
13770 f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.cgels_lwork() 3rd argument (nrhs) can't be converted to int");
13771 if (f2py_success) {
13772 CHECKSCALAR(nrhs>=0,"nrhs>=0","3rd argument nrhs","cgels_lwork:nrhs=%d",nrhs)if (!(nrhs>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgels_lwork:nrhs=%d", "(""nrhs>=0"") failed for "
"3rd argument nrhs", nrhs); PyErr_SetString(_flapack_error,errstring
); } else
{
13773 /* Processing variable a */
13774 /* Processing variable b */
13775 /* Processing variable lwork */
13776 lwork = -1;
13777 /* Processing variable work */
13778 /* Processing variable info */
13779 /* Processing variable trans */
13780 slen(trans)capi_trans_len = 1;
13781 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.cgels_lwork to C string");
13782 if (f2py_success) {
13783 CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","1st keyword trans","cgels_lwork:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgels_lwork:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'"
") failed for ""1st keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
13784 /* Processing variable lda */
13785 lda = MAX(1,m)((1 > m) ? (1) : (m));
13786 /* Processing variable ldb */
13787 ldb = MAX(1,MAX(m,n))((1 > ((m > n) ? (m) : (n))) ? (1) : (((m > n) ? (m)
: (n))))
;
13788/*end of frompyobj*/
13789#ifdef F2PY_REPORT_ATEXIT
13790f2py_start_call_clock();
13791#endif
13792/*callfortranroutine*/
13793 (*f2py_func)(trans,&m,&n,&nrhs,&a,&lda,&b,&ldb,&work,&lwork,&info) ;
13794 /*(*f2py_func)(trans,&m,&n,&nrhs,&a,&lda,&b,&ldb,&work,&lwork,&info,slen(trans));*/
13795if (PyErr_Occurred())
13796 f2py_success = 0;
13797#ifdef F2PY_REPORT_ATEXIT
13798f2py_stop_call_clock();
13799#endif
13800/*end of callfortranroutine*/
13801 if (f2py_success) {
13802/*pyobjfrom*/
13803 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
13804/*end of pyobjfrom*/
13805 CFUNCSMESS("Building return value.\n");
13806 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
13807/*closepyobjfrom*/
13808/*end of closepyobjfrom*/
13809 } /*if (f2py_success) after callfortranroutine*/
13810/*cleanupfrompyobj*/
13811 /* End of cleaning variable ldb */
13812 /* End of cleaning variable lda */
13813 } /*CHECKSTRING(*trans=='N'||*trans=='C')*/
13814 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
13815 } /*if (f2py_success) of trans*/
13816 /* End of cleaning variable trans */
13817 /* End of cleaning variable info */
13818 /* End of cleaning variable work */
13819 /* End of cleaning variable lwork */
13820 /* End of cleaning variable b */
13821 /* End of cleaning variable a */
13822 } /*CHECKSCALAR(nrhs>=0)*/
13823 } /*if (f2py_success) of nrhs*/
13824 /* End of cleaning variable nrhs */
13825 } /*CHECKSCALAR(n>=0)*/
13826 } /*if (f2py_success) of n*/
13827 /* End of cleaning variable n */
13828 } /*CHECKSCALAR(m>=0)*/
13829 } /*if (f2py_success) of m*/
13830 /* End of cleaning variable m */
13831/*end of cleanupfrompyobj*/
13832 if (capi_buildvalue == NULL((void*)0)) {
13833/*routdebugfailure*/
13834 } else {
13835/*routdebugleave*/
13836 }
13837 CFUNCSMESS("Freeing memory.\n");
13838/*freemem*/
13839#ifdef F2PY_REPORT_ATEXIT
13840f2py_stop_clock();
13841#endif
13842 return capi_buildvalue;
13843}
13844/***************************** end of cgels_lwork *****************************/
13845
13846/******************************** zgels_lwork ********************************/
13847static char doc_f2py_rout__flapack_zgels_lwork[] = "\
13848work,info = zgels_lwork(m,n,nrhs,[trans])\n\nWrapper for ``zgels_lwork``.\
13849\n\nParameters\n----------\n"
13850"m : input int\n"
13851"n : input int\n"
13852"nrhs : input int\n"
13853"\nOther Parameters\n----------------\n"
13854"trans : input string(len=1), optional\n Default: 'N'\n"
13855"\nReturns\n-------\n"
13856"work : complex\n"
13857"info : int";
13858/* extern void F_FUNC(zgels ,ZGELS )(char*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */
13859static PyObject *f2py_rout__flapack_zgels_lwork(const PyObject *capi_self,
13860 PyObject *capi_args,
13861 PyObject *capi_keywds,
13862 void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
13863 PyObject * volatile capi_buildvalue = NULL((void*)0);
13864 volatile int f2py_success = 1;
13865/*decl*/
13866
13867 string trans = NULL((void*)0);
13868 int slen(trans)capi_trans_len;
13869 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
13870 int m = 0;
13871 PyObject *m_capi = Py_None(&_Py_NoneStruct);
13872 int n = 0;
13873 PyObject *n_capi = Py_None(&_Py_NoneStruct);
13874 int nrhs = 0;
13875 PyObject *nrhs_capi = Py_None(&_Py_NoneStruct);
13876 complex_double a;
13877 int lda = 0;
13878 complex_double b;
13879 int ldb = 0;
13880 complex_double work;
13881 PyObject *work_capi = Py_None(&_Py_NoneStruct);
13882 int lwork = 0;
13883 int info = 0;
13884 static char *capi_kwlist[] = {"m","n","nrhs","trans",NULL((void*)0)};
13885
13886/*routdebugenter*/
13887#ifdef F2PY_REPORT_ATEXIT
13888f2py_start_clock();
13889#endif
13890 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
13891 "OOO|O:_flapack.zgels_lwork",\
13892 capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&trans_capi))
13893 return NULL((void*)0);
13894/*frompyobj*/
13895 /* Processing variable m */
13896 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zgels_lwork() 1st argument (m) can't be converted to int");
13897 if (f2py_success) {
13898 CHECKSCALAR(m>=0,"m>=0","1st argument m","zgels_lwork:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgels_lwork:m=%d", "(""m>=0"") failed for ""1st argument m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
13899 /* Processing variable n */
13900 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgels_lwork() 2nd argument (n) can't be converted to int");
13901 if (f2py_success) {
13902 CHECKSCALAR(n>=0,"n>=0","2nd argument n","zgels_lwork:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgels_lwork:n=%d", "(""n>=0"") failed for ""2nd argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
13903 /* Processing variable nrhs */
13904 f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.zgels_lwork() 3rd argument (nrhs) can't be converted to int");
13905 if (f2py_success) {
13906 CHECKSCALAR(nrhs>=0,"nrhs>=0","3rd argument nrhs","zgels_lwork:nrhs=%d",nrhs)if (!(nrhs>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgels_lwork:nrhs=%d", "(""nrhs>=0"") failed for "
"3rd argument nrhs", nrhs); PyErr_SetString(_flapack_error,errstring
); } else
{
13907 /* Processing variable a */
13908 /* Processing variable b */
13909 /* Processing variable lwork */
13910 lwork = -1;
13911 /* Processing variable work */
13912 /* Processing variable info */
13913 /* Processing variable trans */
13914 slen(trans)capi_trans_len = 1;
13915 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.zgels_lwork to C string");
13916 if (f2py_success) {
13917 CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","1st keyword trans","zgels_lwork:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgels_lwork:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'"
") failed for ""1st keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
13918 /* Processing variable lda */
13919 lda = MAX(1,m)((1 > m) ? (1) : (m));
13920 /* Processing variable ldb */
13921 ldb = MAX(1,MAX(m,n))((1 > ((m > n) ? (m) : (n))) ? (1) : (((m > n) ? (m)
: (n))))
;
13922/*end of frompyobj*/
13923#ifdef F2PY_REPORT_ATEXIT
13924f2py_start_call_clock();
13925#endif
13926/*callfortranroutine*/
13927 (*f2py_func)(trans,&m,&n,&nrhs,&a,&lda,&b,&ldb,&work,&lwork,&info) ;
13928 /*(*f2py_func)(trans,&m,&n,&nrhs,&a,&lda,&b,&ldb,&work,&lwork,&info,slen(trans));*/
13929if (PyErr_Occurred())
13930 f2py_success = 0;
13931#ifdef F2PY_REPORT_ATEXIT
13932f2py_stop_call_clock();
13933#endif
13934/*end of callfortranroutine*/
13935 if (f2py_success) {
13936/*pyobjfrom*/
13937 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
13938/*end of pyobjfrom*/
13939 CFUNCSMESS("Building return value.\n");
13940 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
13941/*closepyobjfrom*/
13942/*end of closepyobjfrom*/
13943 } /*if (f2py_success) after callfortranroutine*/
13944/*cleanupfrompyobj*/
13945 /* End of cleaning variable ldb */
13946 /* End of cleaning variable lda */
13947 } /*CHECKSTRING(*trans=='N'||*trans=='C')*/
13948 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
13949 } /*if (f2py_success) of trans*/
13950 /* End of cleaning variable trans */
13951 /* End of cleaning variable info */
13952 /* End of cleaning variable work */
13953 /* End of cleaning variable lwork */
13954 /* End of cleaning variable b */
13955 /* End of cleaning variable a */
13956 } /*CHECKSCALAR(nrhs>=0)*/
13957 } /*if (f2py_success) of nrhs*/
13958 /* End of cleaning variable nrhs */
13959 } /*CHECKSCALAR(n>=0)*/
13960 } /*if (f2py_success) of n*/
13961 /* End of cleaning variable n */
13962 } /*CHECKSCALAR(m>=0)*/
13963 } /*if (f2py_success) of m*/
13964 /* End of cleaning variable m */
13965/*end of cleanupfrompyobj*/
13966 if (capi_buildvalue == NULL((void*)0)) {
13967/*routdebugfailure*/
13968 } else {
13969/*routdebugleave*/
13970 }
13971 CFUNCSMESS("Freeing memory.\n");
13972/*freemem*/
13973#ifdef F2PY_REPORT_ATEXIT
13974f2py_stop_clock();
13975#endif
13976 return capi_buildvalue;
13977}
13978/***************************** end of zgels_lwork *****************************/
13979
13980/*********************************** sgelss ***********************************/
13981static char doc_f2py_rout__flapack_sgelss[] = "\
13982v,x,s,rank,work,info = sgelss(a,b,[cond,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``sgelss``.\
13983\n\nParameters\n----------\n"
13984"a : input rank-2 array('f') with bounds (m,n)\n"
13985"b : input rank-2 array('f') with bounds (maxmn,nrhs)\n"
13986"\nOther Parameters\n----------------\n"
13987"overwrite_a : input int, optional\n Default: 0\n"
13988"overwrite_b : input int, optional\n Default: 0\n"
13989"cond : input float, optional\n Default: -1.0\n"
13990"lwork : input int, optional\n Default: max(3*minmn+MAX(2*minmn,MAX(maxmn,nrhs)),1)\n"
13991"\nReturns\n-------\n"
13992"v : rank-2 array('f') with bounds (m,n) and a storage\n"
13993"x : rank-2 array('f') with bounds (maxmn,nrhs) and b storage\n"
13994"s : rank-1 array('f') with bounds (minmn)\n"
13995"rank : int\n"
13996"work : rank-1 array('f') with bounds (MAX(lwork,1))\n"
13997"info : int";
13998/* extern void F_FUNC(sgelss,SGELSS)(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT* ); */
13999static PyObject *f2py_rout__flapack_sgelss(const PyObject *capi_self,
14000 PyObject *capi_args,
14001 PyObject *capi_keywds,
14002 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
14003 PyObject * volatile capi_buildvalue = NULL((void*)0);
14004 volatile int f2py_success = 1;
14005/*decl*/
14006
14007 int m = 0;
14008 int n = 0;
14009 int minmn = 0;
14010 int maxmn = 0;
14011 int nrhs = 0;
14012 float *a = NULL((void*)0);
14013 npy_intp a_Dims[2] = {-1, -1};
14014 const int a_Rank = 2;
14015 PyArrayObject *capi_a_tmp = NULL((void*)0);
14016 int capi_a_intent = 0;
14017 int capi_overwrite_a = 0;
14018 PyObject *a_capi = Py_None(&_Py_NoneStruct);
14019 float *b = NULL((void*)0);
14020 npy_intp b_Dims[2] = {-1, -1};
14021 const int b_Rank = 2;
14022 PyArrayObject *capi_b_tmp = NULL((void*)0);
14023 int capi_b_intent = 0;
14024 int capi_overwrite_b = 0;
14025 PyObject *b_capi = Py_None(&_Py_NoneStruct);
14026 float *s = NULL((void*)0);
14027 npy_intp s_Dims[1] = {-1};
14028 const int s_Rank = 1;
14029 PyArrayObject *capi_s_tmp = NULL((void*)0);
14030 int capi_s_intent = 0;
14031 float cond = 0;
14032 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
14033 int r = 0;
14034 float *work = NULL((void*)0);
14035 npy_intp work_Dims[1] = {-1};
14036 const int work_Rank = 1;
14037 PyArrayObject *capi_work_tmp = NULL((void*)0);
14038 int capi_work_intent = 0;
14039 int lwork = 0;
14040 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
14041 int info = 0;
14042 static char *capi_kwlist[] = {"a","b","cond","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
14043
14044/*routdebugenter*/
14045#ifdef F2PY_REPORT_ATEXIT
14046f2py_start_clock();
14047#endif
14048 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
14049 "OO|OOii:_flapack.sgelss",\
14050 capi_kwlist,&a_capi,&b_capi,&cond_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
14051 return NULL((void*)0);
14052/*frompyobj*/
14053 /* Processing variable a */
14054 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
14055 ;
14056 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
14057 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
14058 if (capi_a_tmp == NULL((void*)0)) {
14059 if (!PyErr_Occurred())
14060 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgelss to C/Fortran array" );
14061 } else {
14062 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
14063
14064 /* Processing variable cond */
14065 if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else
14066 f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.sgelss() 1st keyword (cond) can't be converted to float");
14067 if (f2py_success) {
14068 /* Processing variable r */
14069 /* Processing variable info */
14070 /* Processing variable m */
14071 m = shape(a,0)a_Dims[0];
14072 /* Processing variable n */
14073 n = shape(a,1)a_Dims[1];
14074 /* Processing variable minmn */
14075 minmn = MIN(m,n)((m < n) ? (m) : (n));
14076 /* Processing variable maxmn */
14077 maxmn = MAX(m,n)((m > n) ? (m) : (n));
14078 /* Processing variable b */
14079 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
14080 b_Dims[0]=maxmn;
14081 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
14082 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
14083 if (capi_b_tmp == NULL((void*)0)) {
14084 if (!PyErr_Occurred())
14085 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sgelss to C/Fortran array" );
14086 } else {
14087 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
14088
14089 CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"("
"maxmn==shape(b,0)"") failed for ""2nd argument b"); } else
{
14090 /* Processing variable s */
14091 s_Dims[0]=minmn;
14092 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
14093 capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
14094 if (capi_s_tmp == NULL((void*)0)) {
14095 if (!PyErr_Occurred())
14096 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.sgelss to C/Fortran array" );
14097 } else {
14098 s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
14099
14100 /* Processing variable nrhs */
14101 nrhs = shape(b,1)b_Dims[1];
14102 /* Processing variable lwork */
14103 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*minmn+MAX(2*minmn,MAX(maxmn,nrhs)),1)((3*minmn+((2*minmn > ((maxmn > nrhs) ? (maxmn) : (nrhs
))) ? (2*minmn) : (((maxmn > nrhs) ? (maxmn) : (nrhs)))) >
1) ? (3*minmn+((2*minmn > ((maxmn > nrhs) ? (maxmn) : (
nrhs))) ? (2*minmn) : (((maxmn > nrhs) ? (maxmn) : (nrhs))
))) : (1))
; else
14104 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgelss() 2nd keyword (lwork) can't be converted to int");
14105 if (f2py_success) {
14106 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","sgelss:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgelss:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
14107 /* Processing variable work */
14108 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
14109 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
14110 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
14111 if (capi_work_tmp == NULL((void*)0)) {
14112 if (!PyErr_Occurred())
14113 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgelss to C/Fortran array" );
14114 } else {
14115 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
14116
14117/*end of frompyobj*/
14118#ifdef F2PY_REPORT_ATEXIT
14119f2py_start_call_clock();
14120#endif
14121/*callfortranroutine*/
14122 (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,s,&cond,&r,work,&lwork,&info) ;
14123 /*(*f2py_func)(&m,&n,&minmn,&maxmn,&nrhs,a,b,s,&cond,&r,work,&lwork,&info);*/
14124if (PyErr_Occurred())
14125 f2py_success = 0;
14126#ifdef F2PY_REPORT_ATEXIT
14127f2py_stop_call_clock();
14128#endif
14129/*end of callfortranroutine*/
14130 if (f2py_success) {
14131/*pyobjfrom*/
14132/*end of pyobjfrom*/
14133 CFUNCSMESS("Building return value.\n");
14134 capi_buildvalue = Py_BuildValue("NNNiNi",capi_a_tmp,capi_b_tmp,capi_s_tmp,r,capi_work_tmp,info);
14135/*closepyobjfrom*/
14136/*end of closepyobjfrom*/
14137 } /*if (f2py_success) after callfortranroutine*/
14138/*cleanupfrompyobj*/
14139 } /*if (capi_work_tmp == NULL) ... else of work*/
14140 /* End of cleaning variable work */
14141 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
14142 } /*if (f2py_success) of lwork*/
14143 /* End of cleaning variable lwork */
14144 /* End of cleaning variable nrhs */
14145 } /*if (capi_s_tmp == NULL) ... else of s*/
14146 /* End of cleaning variable s */
14147 } /*CHECKARRAY(maxmn==shape(b,0))*/
14148 } /*if (capi_b_tmp == NULL) ... else of b*/
14149 /* End of cleaning variable b */
14150 /* End of cleaning variable maxmn */
14151 /* End of cleaning variable minmn */
14152 /* End of cleaning variable n */
14153 /* End of cleaning variable m */
14154 /* End of cleaning variable info */
14155 /* End of cleaning variable r */
14156 } /*if (f2py_success) of cond*/
14157 /* End of cleaning variable cond */
14158 } /*if (capi_a_tmp == NULL) ... else of a*/
14159 /* End of cleaning variable a */
14160/*end of cleanupfrompyobj*/
14161 if (capi_buildvalue == NULL((void*)0)) {
14162/*routdebugfailure*/
14163 } else {
14164/*routdebugleave*/
14165 }
14166 CFUNCSMESS("Freeing memory.\n");
14167/*freemem*/
14168#ifdef F2PY_REPORT_ATEXIT
14169f2py_stop_clock();
14170#endif
14171 return capi_buildvalue;
14172}
14173/******************************* end of sgelss *******************************/
14174
14175/*********************************** dgelss ***********************************/
14176static char doc_f2py_rout__flapack_dgelss[] = "\
14177v,x,s,rank,work,info = dgelss(a,b,[cond,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``dgelss``.\
14178\n\nParameters\n----------\n"
14179"a : input rank-2 array('d') with bounds (m,n)\n"
14180"b : input rank-2 array('d') with bounds (maxmn,nrhs)\n"
14181"\nOther Parameters\n----------------\n"
14182"overwrite_a : input int, optional\n Default: 0\n"
14183"overwrite_b : input int, optional\n Default: 0\n"
14184"cond : input float, optional\n Default: -1.0\n"
14185"lwork : input int, optional\n Default: max(3*minmn+MAX(2*minmn,MAX(maxmn,nrhs)),1)\n"
14186"\nReturns\n-------\n"
14187"v : rank-2 array('d') with bounds (m,n) and a storage\n"
14188"x : rank-2 array('d') with bounds (maxmn,nrhs) and b storage\n"
14189"s : rank-1 array('d') with bounds (minmn)\n"
14190"rank : int\n"
14191"work : rank-1 array('d') with bounds (MAX(lwork,1))\n"
14192"info : int";
14193/* extern void F_FUNC(dgelss,DGELSS)(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT* ); */
14194static PyObject *f2py_rout__flapack_dgelss(const PyObject *capi_self,
14195 PyObject *capi_args,
14196 PyObject *capi_keywds,
14197 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
14198 PyObject * volatile capi_buildvalue = NULL((void*)0);
14199 volatile int f2py_success = 1;
14200/*decl*/
14201
14202 int m = 0;
14203 int n = 0;
14204 int minmn = 0;
14205 int maxmn = 0;
14206 int nrhs = 0;
14207 double *a = NULL((void*)0);
14208 npy_intp a_Dims[2] = {-1, -1};
14209 const int a_Rank = 2;
14210 PyArrayObject *capi_a_tmp = NULL((void*)0);
14211 int capi_a_intent = 0;
14212 int capi_overwrite_a = 0;
14213 PyObject *a_capi = Py_None(&_Py_NoneStruct);
14214 double *b = NULL((void*)0);
14215 npy_intp b_Dims[2] = {-1, -1};
14216 const int b_Rank = 2;
14217 PyArrayObject *capi_b_tmp = NULL((void*)0);
14218 int capi_b_intent = 0;
14219 int capi_overwrite_b = 0;
14220 PyObject *b_capi = Py_None(&_Py_NoneStruct);
14221 double *s = NULL((void*)0);
14222 npy_intp s_Dims[1] = {-1};
14223 const int s_Rank = 1;
14224 PyArrayObject *capi_s_tmp = NULL((void*)0);
14225 int capi_s_intent = 0;
14226 double cond = 0;
14227 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
14228 int r = 0;
14229 double *work = NULL((void*)0);
14230 npy_intp work_Dims[1] = {-1};
14231 const int work_Rank = 1;
14232 PyArrayObject *capi_work_tmp = NULL((void*)0);
14233 int capi_work_intent = 0;
14234 int lwork = 0;
14235 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
14236 int info = 0;
14237 static char *capi_kwlist[] = {"a","b","cond","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
14238
14239/*routdebugenter*/
14240#ifdef F2PY_REPORT_ATEXIT
14241f2py_start_clock();
14242#endif
14243 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
14244 "OO|OOii:_flapack.dgelss",\
14245 capi_kwlist,&a_capi,&b_capi,&cond_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
14246 return NULL((void*)0);
14247/*frompyobj*/
14248 /* Processing variable a */
14249 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
14250 ;
14251 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
14252 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
14253 if (capi_a_tmp == NULL((void*)0)) {
14254 if (!PyErr_Occurred())
14255 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgelss to C/Fortran array" );
14256 } else {
14257 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
14258
14259 /* Processing variable cond */
14260 if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else
14261 f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.dgelss() 1st keyword (cond) can't be converted to double");
14262 if (f2py_success) {
14263 /* Processing variable r */
14264 /* Processing variable info */
14265 /* Processing variable m */
14266 m = shape(a,0)a_Dims[0];
14267 /* Processing variable n */
14268 n = shape(a,1)a_Dims[1];
14269 /* Processing variable minmn */
14270 minmn = MIN(m,n)((m < n) ? (m) : (n));
14271 /* Processing variable maxmn */
14272 maxmn = MAX(m,n)((m > n) ? (m) : (n));
14273 /* Processing variable b */
14274 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
14275 b_Dims[0]=maxmn;
14276 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
14277 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
14278 if (capi_b_tmp == NULL((void*)0)) {
14279 if (!PyErr_Occurred())
14280 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dgelss to C/Fortran array" );
14281 } else {
14282 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
14283
14284 CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"("
"maxmn==shape(b,0)"") failed for ""2nd argument b"); } else
{
14285 /* Processing variable s */
14286 s_Dims[0]=minmn;
14287 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
14288 capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
14289 if (capi_s_tmp == NULL((void*)0)) {
14290 if (!PyErr_Occurred())
14291 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.dgelss to C/Fortran array" );
14292 } else {
14293 s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
14294
14295 /* Processing variable nrhs */
14296 nrhs = shape(b,1)b_Dims[1];
14297 /* Processing variable lwork */
14298 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*minmn+MAX(2*minmn,MAX(maxmn,nrhs)),1)((3*minmn+((2*minmn > ((maxmn > nrhs) ? (maxmn) : (nrhs
))) ? (2*minmn) : (((maxmn > nrhs) ? (maxmn) : (nrhs)))) >
1) ? (3*minmn+((2*minmn > ((maxmn > nrhs) ? (maxmn) : (
nrhs))) ? (2*minmn) : (((maxmn > nrhs) ? (maxmn) : (nrhs))
))) : (1))
; else
14299 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgelss() 2nd keyword (lwork) can't be converted to int");
14300 if (f2py_success) {
14301 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","dgelss:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgelss:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
14302 /* Processing variable work */
14303 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
14304 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
14305 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
14306 if (capi_work_tmp == NULL((void*)0)) {
14307 if (!PyErr_Occurred())
14308 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgelss to C/Fortran array" );
14309 } else {
14310 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
14311
14312/*end of frompyobj*/
14313#ifdef F2PY_REPORT_ATEXIT
14314f2py_start_call_clock();
14315#endif
14316/*callfortranroutine*/
14317 (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,s,&cond,&r,work,&lwork,&info) ;
14318 /*(*f2py_func)(&m,&n,&minmn,&maxmn,&nrhs,a,b,s,&cond,&r,work,&lwork,&info);*/
14319if (PyErr_Occurred())
14320 f2py_success = 0;
14321#ifdef F2PY_REPORT_ATEXIT
14322f2py_stop_call_clock();
14323#endif
14324/*end of callfortranroutine*/
14325 if (f2py_success) {
14326/*pyobjfrom*/
14327/*end of pyobjfrom*/
14328 CFUNCSMESS("Building return value.\n");
14329 capi_buildvalue = Py_BuildValue("NNNiNi",capi_a_tmp,capi_b_tmp,capi_s_tmp,r,capi_work_tmp,info);
14330/*closepyobjfrom*/
14331/*end of closepyobjfrom*/
14332 } /*if (f2py_success) after callfortranroutine*/
14333/*cleanupfrompyobj*/
14334 } /*if (capi_work_tmp == NULL) ... else of work*/
14335 /* End of cleaning variable work */
14336 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
14337 } /*if (f2py_success) of lwork*/
14338 /* End of cleaning variable lwork */
14339 /* End of cleaning variable nrhs */
14340 } /*if (capi_s_tmp == NULL) ... else of s*/
14341 /* End of cleaning variable s */
14342 } /*CHECKARRAY(maxmn==shape(b,0))*/
14343 } /*if (capi_b_tmp == NULL) ... else of b*/
14344 /* End of cleaning variable b */
14345 /* End of cleaning variable maxmn */
14346 /* End of cleaning variable minmn */
14347 /* End of cleaning variable n */
14348 /* End of cleaning variable m */
14349 /* End of cleaning variable info */
14350 /* End of cleaning variable r */
14351 } /*if (f2py_success) of cond*/
14352 /* End of cleaning variable cond */
14353 } /*if (capi_a_tmp == NULL) ... else of a*/
14354 /* End of cleaning variable a */
14355/*end of cleanupfrompyobj*/
14356 if (capi_buildvalue == NULL((void*)0)) {
14357/*routdebugfailure*/
14358 } else {
14359/*routdebugleave*/
14360 }
14361 CFUNCSMESS("Freeing memory.\n");
14362/*freemem*/
14363#ifdef F2PY_REPORT_ATEXIT
14364f2py_stop_clock();
14365#endif
14366 return capi_buildvalue;
14367}
14368/******************************* end of dgelss *******************************/
14369
14370/******************************** sgelss_lwork ********************************/
14371static char doc_f2py_rout__flapack_sgelss_lwork[] = "\
14372work,info = sgelss_lwork(m,n,nrhs,[cond,lwork])\n\nWrapper for ``sgelss_lwork``.\
14373\n\nParameters\n----------\n"
14374"m : input int\n"
14375"n : input int\n"
14376"nrhs : input int\n"
14377"\nOther Parameters\n----------------\n"
14378"cond : input float, optional\n Default: -1.0\n"
14379"lwork : input int, optional\n Default: -1\n"
14380"\nReturns\n-------\n"
14381"work : float\n"
14382"info : int";
14383/* extern void F_FUNC(sgelss ,SGELSS )(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT* ); */
14384static PyObject *f2py_rout__flapack_sgelss_lwork(const PyObject *capi_self,
14385 PyObject *capi_args,
14386 PyObject *capi_keywds,
14387 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
14388 PyObject * volatile capi_buildvalue = NULL((void*)0);
14389 volatile int f2py_success = 1;
14390/*decl*/
14391
14392 int m = 0;
14393 PyObject *m_capi = Py_None(&_Py_NoneStruct);
14394 int n = 0;
14395 PyObject *n_capi = Py_None(&_Py_NoneStruct);
14396 int maxmn = 0;
14397 int nrhs = 0;
14398 PyObject *nrhs_capi = Py_None(&_Py_NoneStruct);
14399 float a = 0;
14400 float b = 0;
14401 float s = 0;
14402 float cond = 0;
14403 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
14404 int r = 0;
14405 float work = 0;
14406 int lwork = 0;
14407 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
14408 int info = 0;
14409 static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)};
14410
14411/*routdebugenter*/
14412#ifdef F2PY_REPORT_ATEXIT
14413f2py_start_clock();
14414#endif
14415 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
14416 "OOO|OO:_flapack.sgelss_lwork",\
14417 capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi))
14418 return NULL((void*)0);
14419/*frompyobj*/
14420 /* Processing variable m */
14421 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sgelss_lwork() 1st argument (m) can't be converted to int");
14422 if (f2py_success) {
14423 /* Processing variable n */
14424 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgelss_lwork() 2nd argument (n) can't be converted to int");
14425 if (f2py_success) {
14426 /* Processing variable a */
14427 /* Processing variable nrhs */
14428 f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.sgelss_lwork() 3rd argument (nrhs) can't be converted to int");
14429 if (f2py_success) {
14430 /* Processing variable b */
14431 /* Processing variable cond */
14432 if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else
14433 f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.sgelss_lwork() 1st keyword (cond) can't be converted to float");
14434 if (f2py_success) {
14435 /* Processing variable r */
14436 /* Processing variable s */
14437 /* Processing variable lwork */
14438 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else
14439 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgelss_lwork() 2nd keyword (lwork) can't be converted to int");
14440 if (f2py_success) {
14441 /* Processing variable work */
14442 /* Processing variable info */
14443 /* Processing variable maxmn */
14444 maxmn = MAX(m,n)((m > n) ? (m) : (n));
14445/*end of frompyobj*/
14446#ifdef F2PY_REPORT_ATEXIT
14447f2py_start_call_clock();
14448#endif
14449/*callfortranroutine*/
14450 (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&s,&cond,&r,&work,&lwork,&info) ;
14451 /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&s,&cond,&r,&work,&lwork,&info);*/
14452if (PyErr_Occurred())
14453 f2py_success = 0;
14454#ifdef F2PY_REPORT_ATEXIT
14455f2py_stop_call_clock();
14456#endif
14457/*end of callfortranroutine*/
14458 if (f2py_success) {
14459/*pyobjfrom*/
14460/*end of pyobjfrom*/
14461 CFUNCSMESS("Building return value.\n");
14462 capi_buildvalue = Py_BuildValue("fi",work,info);
14463/*closepyobjfrom*/
14464/*end of closepyobjfrom*/
14465 } /*if (f2py_success) after callfortranroutine*/
14466/*cleanupfrompyobj*/
14467 /* End of cleaning variable maxmn */
14468 /* End of cleaning variable info */
14469 /* End of cleaning variable work */
14470 } /*if (f2py_success) of lwork*/
14471 /* End of cleaning variable lwork */
14472 /* End of cleaning variable s */
14473 /* End of cleaning variable r */
14474 } /*if (f2py_success) of cond*/
14475 /* End of cleaning variable cond */
14476 /* End of cleaning variable b */
14477 } /*if (f2py_success) of nrhs*/
14478 /* End of cleaning variable nrhs */
14479 /* End of cleaning variable a */
14480 } /*if (f2py_success) of n*/
14481 /* End of cleaning variable n */
14482 } /*if (f2py_success) of m*/
14483 /* End of cleaning variable m */
14484/*end of cleanupfrompyobj*/
14485 if (capi_buildvalue == NULL((void*)0)) {
14486/*routdebugfailure*/
14487 } else {
14488/*routdebugleave*/
14489 }
14490 CFUNCSMESS("Freeing memory.\n");
14491/*freemem*/
14492#ifdef F2PY_REPORT_ATEXIT
14493f2py_stop_clock();
14494#endif
14495 return capi_buildvalue;
14496}
14497/**************************** end of sgelss_lwork ****************************/
14498
14499/******************************** dgelss_lwork ********************************/
14500static char doc_f2py_rout__flapack_dgelss_lwork[] = "\
14501work,info = dgelss_lwork(m,n,nrhs,[cond,lwork])\n\nWrapper for ``dgelss_lwork``.\
14502\n\nParameters\n----------\n"
14503"m : input int\n"
14504"n : input int\n"
14505"nrhs : input int\n"
14506"\nOther Parameters\n----------------\n"
14507"cond : input float, optional\n Default: -1.0\n"
14508"lwork : input int, optional\n Default: -1\n"
14509"\nReturns\n-------\n"
14510"work : float\n"
14511"info : int";
14512/* extern void F_FUNC(dgelss ,DGELSS )(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT* ); */
14513static PyObject *f2py_rout__flapack_dgelss_lwork(const PyObject *capi_self,
14514 PyObject *capi_args,
14515 PyObject *capi_keywds,
14516 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
14517 PyObject * volatile capi_buildvalue = NULL((void*)0);
14518 volatile int f2py_success = 1;
14519/*decl*/
14520
14521 int m = 0;
14522 PyObject *m_capi = Py_None(&_Py_NoneStruct);
14523 int n = 0;
14524 PyObject *n_capi = Py_None(&_Py_NoneStruct);
14525 int maxmn = 0;
14526 int nrhs = 0;
14527 PyObject *nrhs_capi = Py_None(&_Py_NoneStruct);
14528 double a = 0;
14529 double b = 0;
14530 double s = 0;
14531 double cond = 0;
14532 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
14533 int r = 0;
14534 double work = 0;
14535 int lwork = 0;
14536 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
14537 int info = 0;
14538 static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)};
14539
14540/*routdebugenter*/
14541#ifdef F2PY_REPORT_ATEXIT
14542f2py_start_clock();
14543#endif
14544 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
14545 "OOO|OO:_flapack.dgelss_lwork",\
14546 capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi))
14547 return NULL((void*)0);
14548/*frompyobj*/
14549 /* Processing variable m */
14550 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dgelss_lwork() 1st argument (m) can't be converted to int");
14551 if (f2py_success) {
14552 /* Processing variable n */
14553 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgelss_lwork() 2nd argument (n) can't be converted to int");
14554 if (f2py_success) {
14555 /* Processing variable a */
14556 /* Processing variable nrhs */
14557 f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.dgelss_lwork() 3rd argument (nrhs) can't be converted to int");
14558 if (f2py_success) {
14559 /* Processing variable b */
14560 /* Processing variable cond */
14561 if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else
14562 f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.dgelss_lwork() 1st keyword (cond) can't be converted to double");
14563 if (f2py_success) {
14564 /* Processing variable r */
14565 /* Processing variable s */
14566 /* Processing variable lwork */
14567 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else
14568 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgelss_lwork() 2nd keyword (lwork) can't be converted to int");
14569 if (f2py_success) {
14570 /* Processing variable work */
14571 /* Processing variable info */
14572 /* Processing variable maxmn */
14573 maxmn = MAX(m,n)((m > n) ? (m) : (n));
14574/*end of frompyobj*/
14575#ifdef F2PY_REPORT_ATEXIT
14576f2py_start_call_clock();
14577#endif
14578/*callfortranroutine*/
14579 (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&s,&cond,&r,&work,&lwork,&info) ;
14580 /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&s,&cond,&r,&work,&lwork,&info);*/
14581if (PyErr_Occurred())
14582 f2py_success = 0;
14583#ifdef F2PY_REPORT_ATEXIT
14584f2py_stop_call_clock();
14585#endif
14586/*end of callfortranroutine*/
14587 if (f2py_success) {
14588/*pyobjfrom*/
14589/*end of pyobjfrom*/
14590 CFUNCSMESS("Building return value.\n");
14591 capi_buildvalue = Py_BuildValue("di",work,info);
14592/*closepyobjfrom*/
14593/*end of closepyobjfrom*/
14594 } /*if (f2py_success) after callfortranroutine*/
14595/*cleanupfrompyobj*/
14596 /* End of cleaning variable maxmn */
14597 /* End of cleaning variable info */
14598 /* End of cleaning variable work */
14599 } /*if (f2py_success) of lwork*/
14600 /* End of cleaning variable lwork */
14601 /* End of cleaning variable s */
14602 /* End of cleaning variable r */
14603 } /*if (f2py_success) of cond*/
14604 /* End of cleaning variable cond */
14605 /* End of cleaning variable b */
14606 } /*if (f2py_success) of nrhs*/
14607 /* End of cleaning variable nrhs */
14608 /* End of cleaning variable a */
14609 } /*if (f2py_success) of n*/
14610 /* End of cleaning variable n */
14611 } /*if (f2py_success) of m*/
14612 /* End of cleaning variable m */
14613/*end of cleanupfrompyobj*/
14614 if (capi_buildvalue == NULL((void*)0)) {
14615/*routdebugfailure*/
14616 } else {
14617/*routdebugleave*/
14618 }
14619 CFUNCSMESS("Freeing memory.\n");
14620/*freemem*/
14621#ifdef F2PY_REPORT_ATEXIT
14622f2py_stop_clock();
14623#endif
14624 return capi_buildvalue;
14625}
14626/**************************** end of dgelss_lwork ****************************/
14627
14628/*********************************** cgelss ***********************************/
14629static char doc_f2py_rout__flapack_cgelss[] = "\
14630v,x,s,rank,work,info = cgelss(a,b,[cond,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``cgelss``.\
14631\n\nParameters\n----------\n"
14632"a : input rank-2 array('F') with bounds (m,n)\n"
14633"b : input rank-2 array('F') with bounds (maxmn,nrhs)\n"
14634"\nOther Parameters\n----------------\n"
14635"overwrite_a : input int, optional\n Default: 0\n"
14636"overwrite_b : input int, optional\n Default: 0\n"
14637"cond : input float, optional\n Default: -1.0\n"
14638"lwork : input int, optional\n Default: max(2*minmn+MAX(maxmn,nrhs),1)\n"
14639"\nReturns\n-------\n"
14640"v : rank-2 array('F') with bounds (m,n) and a storage\n"
14641"x : rank-2 array('F') with bounds (maxmn,nrhs) and b storage\n"
14642"s : rank-1 array('f') with bounds (minmn)\n"
14643"rank : int\n"
14644"work : rank-1 array('F') with bounds (MAX(lwork,1))\n"
14645"info : int";
14646/* extern void F_FUNC(cgelss,CGELSS)(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */
14647static PyObject *f2py_rout__flapack_cgelss(const PyObject *capi_self,
14648 PyObject *capi_args,
14649 PyObject *capi_keywds,
14650 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) {
14651 PyObject * volatile capi_buildvalue = NULL((void*)0);
14652 volatile int f2py_success = 1;
14653/*decl*/
14654
14655 int m = 0;
14656 int n = 0;
14657 int minmn = 0;
14658 int maxmn = 0;
14659 int nrhs = 0;
14660 complex_float *a = NULL((void*)0);
14661 npy_intp a_Dims[2] = {-1, -1};
14662 const int a_Rank = 2;
14663 PyArrayObject *capi_a_tmp = NULL((void*)0);
14664 int capi_a_intent = 0;
14665 int capi_overwrite_a = 0;
14666 PyObject *a_capi = Py_None(&_Py_NoneStruct);
14667 complex_float *b = NULL((void*)0);
14668 npy_intp b_Dims[2] = {-1, -1};
14669 const int b_Rank = 2;
14670 PyArrayObject *capi_b_tmp = NULL((void*)0);
14671 int capi_b_intent = 0;
14672 int capi_overwrite_b = 0;
14673 PyObject *b_capi = Py_None(&_Py_NoneStruct);
14674 float *s = NULL((void*)0);
14675 npy_intp s_Dims[1] = {-1};
14676 const int s_Rank = 1;
14677 PyArrayObject *capi_s_tmp = NULL((void*)0);
14678 int capi_s_intent = 0;
14679 float cond = 0;
14680 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
14681 int r = 0;
14682 complex_float *work = NULL((void*)0);
14683 npy_intp work_Dims[1] = {-1};
14684 const int work_Rank = 1;
14685 PyArrayObject *capi_work_tmp = NULL((void*)0);
14686 int capi_work_intent = 0;
14687 float *rwork = NULL((void*)0);
14688 npy_intp rwork_Dims[1] = {-1};
14689 const int rwork_Rank = 1;
14690 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
14691 int capi_rwork_intent = 0;
14692 int lwork = 0;
14693 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
14694 int info = 0;
14695 static char *capi_kwlist[] = {"a","b","cond","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
14696
14697/*routdebugenter*/
14698#ifdef F2PY_REPORT_ATEXIT
14699f2py_start_clock();
14700#endif
14701 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
14702 "OO|OOii:_flapack.cgelss",\
14703 capi_kwlist,&a_capi,&b_capi,&cond_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
14704 return NULL((void*)0);
14705/*frompyobj*/
14706 /* Processing variable a */
14707 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
14708 ;
14709 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
14710 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
14711 if (capi_a_tmp == NULL((void*)0)) {
14712 if (!PyErr_Occurred())
14713 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgelss to C/Fortran array" );
14714 } else {
14715 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
14716
14717 /* Processing variable cond */
14718 if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else
14719 f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.cgelss() 1st keyword (cond) can't be converted to float");
14720 if (f2py_success) {
14721 /* Processing variable r */
14722 /* Processing variable info */
14723 /* Processing variable m */
14724 m = shape(a,0)a_Dims[0];
14725 /* Processing variable n */
14726 n = shape(a,1)a_Dims[1];
14727 /* Processing variable minmn */
14728 minmn = MIN(m,n)((m < n) ? (m) : (n));
14729 /* Processing variable maxmn */
14730 maxmn = MAX(m,n)((m > n) ? (m) : (n));
14731 /* Processing variable b */
14732 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
14733 b_Dims[0]=maxmn;
14734 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
14735 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
14736 if (capi_b_tmp == NULL((void*)0)) {
14737 if (!PyErr_Occurred())
14738 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cgelss to C/Fortran array" );
14739 } else {
14740 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
14741
14742 CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"("
"maxmn==shape(b,0)"") failed for ""2nd argument b"); } else
{
14743 /* Processing variable s */
14744 s_Dims[0]=minmn;
14745 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
14746 capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
14747 if (capi_s_tmp == NULL((void*)0)) {
14748 if (!PyErr_Occurred())
14749 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.cgelss to C/Fortran array" );
14750 } else {
14751 s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
14752
14753 /* Processing variable nrhs */
14754 nrhs = shape(b,1)b_Dims[1];
14755 /* Processing variable lwork */
14756 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*minmn+MAX(maxmn,nrhs),1)((2*minmn+((maxmn > nrhs) ? (maxmn) : (nrhs)) > 1) ? (2
*minmn+((maxmn > nrhs) ? (maxmn) : (nrhs))) : (1))
; else
14757 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgelss() 2nd keyword (lwork) can't be converted to int");
14758 if (f2py_success) {
14759 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","cgelss:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgelss:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
14760 /* Processing variable work */
14761 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
14762 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
14763 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
14764 if (capi_work_tmp == NULL((void*)0)) {
14765 if (!PyErr_Occurred())
14766 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgelss to C/Fortran array" );
14767 } else {
14768 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
14769
14770 /* Processing variable rwork */
14771 rwork_Dims[0]=5 * minmn;
14772 capi_rwork_intent |= F2PY_INTENT_HIDE8;
14773 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
14774 if (capi_rwork_tmp == NULL((void*)0)) {
14775 if (!PyErr_Occurred())
14776 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgelss to C/Fortran array" );
14777 } else {
14778 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
14779
14780/*end of frompyobj*/
14781#ifdef F2PY_REPORT_ATEXIT
14782f2py_start_call_clock();
14783#endif
14784/*callfortranroutine*/
14785 (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,s,&cond,&r,work,&lwork,rwork,&info) ;
14786 /*(*f2py_func)(&m,&n,&minmn,&maxmn,&nrhs,a,b,s,&cond,&r,work,rwork,&lwork,&info);*/
14787if (PyErr_Occurred())
14788 f2py_success = 0;
14789#ifdef F2PY_REPORT_ATEXIT
14790f2py_stop_call_clock();
14791#endif
14792/*end of callfortranroutine*/
14793 if (f2py_success) {
14794/*pyobjfrom*/
14795/*end of pyobjfrom*/
14796 CFUNCSMESS("Building return value.\n");
14797 capi_buildvalue = Py_BuildValue("NNNiNi",capi_a_tmp,capi_b_tmp,capi_s_tmp,r,capi_work_tmp,info);
14798/*closepyobjfrom*/
14799/*end of closepyobjfrom*/
14800 } /*if (f2py_success) after callfortranroutine*/
14801/*cleanupfrompyobj*/
14802 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
14803 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
14804 /* End of cleaning variable rwork */
14805 } /*if (capi_work_tmp == NULL) ... else of work*/
14806 /* End of cleaning variable work */
14807 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
14808 } /*if (f2py_success) of lwork*/
14809 /* End of cleaning variable lwork */
14810 /* End of cleaning variable nrhs */
14811 } /*if (capi_s_tmp == NULL) ... else of s*/
14812 /* End of cleaning variable s */
14813 } /*CHECKARRAY(maxmn==shape(b,0))*/
14814 } /*if (capi_b_tmp == NULL) ... else of b*/
14815 /* End of cleaning variable b */
14816 /* End of cleaning variable maxmn */
14817 /* End of cleaning variable minmn */
14818 /* End of cleaning variable n */
14819 /* End of cleaning variable m */
14820 /* End of cleaning variable info */
14821 /* End of cleaning variable r */
14822 } /*if (f2py_success) of cond*/
14823 /* End of cleaning variable cond */
14824 } /*if (capi_a_tmp == NULL) ... else of a*/
14825 /* End of cleaning variable a */
14826/*end of cleanupfrompyobj*/
14827 if (capi_buildvalue == NULL((void*)0)) {
14828/*routdebugfailure*/
14829 } else {
14830/*routdebugleave*/
14831 }
14832 CFUNCSMESS("Freeing memory.\n");
14833/*freemem*/
14834#ifdef F2PY_REPORT_ATEXIT
14835f2py_stop_clock();
14836#endif
14837 return capi_buildvalue;
14838}
14839/******************************* end of cgelss *******************************/
14840
14841/*********************************** zgelss ***********************************/
14842static char doc_f2py_rout__flapack_zgelss[] = "\
14843v,x,s,rank,work,info = zgelss(a,b,[cond,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``zgelss``.\
14844\n\nParameters\n----------\n"
14845"a : input rank-2 array('D') with bounds (m,n)\n"
14846"b : input rank-2 array('D') with bounds (maxmn,nrhs)\n"
14847"\nOther Parameters\n----------------\n"
14848"overwrite_a : input int, optional\n Default: 0\n"
14849"overwrite_b : input int, optional\n Default: 0\n"
14850"cond : input float, optional\n Default: -1.0\n"
14851"lwork : input int, optional\n Default: max(2*minmn+MAX(maxmn,nrhs),1)\n"
14852"\nReturns\n-------\n"
14853"v : rank-2 array('D') with bounds (m,n) and a storage\n"
14854"x : rank-2 array('D') with bounds (maxmn,nrhs) and b storage\n"
14855"s : rank-1 array('d') with bounds (minmn)\n"
14856"rank : int\n"
14857"work : rank-1 array('D') with bounds (MAX(lwork,1))\n"
14858"info : int";
14859/* extern void F_FUNC(zgelss,ZGELSS)(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */
14860static PyObject *f2py_rout__flapack_zgelss(const PyObject *capi_self,
14861 PyObject *capi_args,
14862 PyObject *capi_keywds,
14863 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) {
14864 PyObject * volatile capi_buildvalue = NULL((void*)0);
14865 volatile int f2py_success = 1;
14866/*decl*/
14867
14868 int m = 0;
14869 int n = 0;
14870 int minmn = 0;
14871 int maxmn = 0;
14872 int nrhs = 0;
14873 complex_double *a = NULL((void*)0);
14874 npy_intp a_Dims[2] = {-1, -1};
14875 const int a_Rank = 2;
14876 PyArrayObject *capi_a_tmp = NULL((void*)0);
14877 int capi_a_intent = 0;
14878 int capi_overwrite_a = 0;
14879 PyObject *a_capi = Py_None(&_Py_NoneStruct);
14880 complex_double *b = NULL((void*)0);
14881 npy_intp b_Dims[2] = {-1, -1};
14882 const int b_Rank = 2;
14883 PyArrayObject *capi_b_tmp = NULL((void*)0);
14884 int capi_b_intent = 0;
14885 int capi_overwrite_b = 0;
14886 PyObject *b_capi = Py_None(&_Py_NoneStruct);
14887 double *s = NULL((void*)0);
14888 npy_intp s_Dims[1] = {-1};
14889 const int s_Rank = 1;
14890 PyArrayObject *capi_s_tmp = NULL((void*)0);
14891 int capi_s_intent = 0;
14892 double cond = 0;
14893 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
14894 int r = 0;
14895 complex_double *work = NULL((void*)0);
14896 npy_intp work_Dims[1] = {-1};
14897 const int work_Rank = 1;
14898 PyArrayObject *capi_work_tmp = NULL((void*)0);
14899 int capi_work_intent = 0;
14900 double *rwork = NULL((void*)0);
14901 npy_intp rwork_Dims[1] = {-1};
14902 const int rwork_Rank = 1;
14903 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
14904 int capi_rwork_intent = 0;
14905 int lwork = 0;
14906 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
14907 int info = 0;
14908 static char *capi_kwlist[] = {"a","b","cond","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
14909
14910/*routdebugenter*/
14911#ifdef F2PY_REPORT_ATEXIT
14912f2py_start_clock();
14913#endif
14914 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
14915 "OO|OOii:_flapack.zgelss",\
14916 capi_kwlist,&a_capi,&b_capi,&cond_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
14917 return NULL((void*)0);
14918/*frompyobj*/
14919 /* Processing variable a */
14920 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
14921 ;
14922 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
14923 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
14924 if (capi_a_tmp == NULL((void*)0)) {
14925 if (!PyErr_Occurred())
14926 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgelss to C/Fortran array" );
14927 } else {
14928 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
14929
14930 /* Processing variable cond */
14931 if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else
14932 f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.zgelss() 1st keyword (cond) can't be converted to double");
14933 if (f2py_success) {
14934 /* Processing variable r */
14935 /* Processing variable info */
14936 /* Processing variable m */
14937 m = shape(a,0)a_Dims[0];
14938 /* Processing variable n */
14939 n = shape(a,1)a_Dims[1];
14940 /* Processing variable minmn */
14941 minmn = MIN(m,n)((m < n) ? (m) : (n));
14942 /* Processing variable maxmn */
14943 maxmn = MAX(m,n)((m > n) ? (m) : (n));
14944 /* Processing variable b */
14945 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
14946 b_Dims[0]=maxmn;
14947 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
14948 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
14949 if (capi_b_tmp == NULL((void*)0)) {
14950 if (!PyErr_Occurred())
14951 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zgelss to C/Fortran array" );
14952 } else {
14953 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
14954
14955 CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"("
"maxmn==shape(b,0)"") failed for ""2nd argument b"); } else
{
14956 /* Processing variable s */
14957 s_Dims[0]=minmn;
14958 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
14959 capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
14960 if (capi_s_tmp == NULL((void*)0)) {
14961 if (!PyErr_Occurred())
14962 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.zgelss to C/Fortran array" );
14963 } else {
14964 s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
14965
14966 /* Processing variable nrhs */
14967 nrhs = shape(b,1)b_Dims[1];
14968 /* Processing variable lwork */
14969 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*minmn+MAX(maxmn,nrhs),1)((2*minmn+((maxmn > nrhs) ? (maxmn) : (nrhs)) > 1) ? (2
*minmn+((maxmn > nrhs) ? (maxmn) : (nrhs))) : (1))
; else
14970 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgelss() 2nd keyword (lwork) can't be converted to int");
14971 if (f2py_success) {
14972 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","zgelss:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgelss:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
14973 /* Processing variable work */
14974 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
14975 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
14976 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
14977 if (capi_work_tmp == NULL((void*)0)) {
14978 if (!PyErr_Occurred())
14979 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgelss to C/Fortran array" );
14980 } else {
14981 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
14982
14983 /* Processing variable rwork */
14984 rwork_Dims[0]=5 * minmn;
14985 capi_rwork_intent |= F2PY_INTENT_HIDE8;
14986 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
14987 if (capi_rwork_tmp == NULL((void*)0)) {
14988 if (!PyErr_Occurred())
14989 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgelss to C/Fortran array" );
14990 } else {
14991 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
14992
14993/*end of frompyobj*/
14994#ifdef F2PY_REPORT_ATEXIT
14995f2py_start_call_clock();
14996#endif
14997/*callfortranroutine*/
14998 (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,s,&cond,&r,work,&lwork,rwork,&info) ;
14999 /*(*f2py_func)(&m,&n,&minmn,&maxmn,&nrhs,a,b,s,&cond,&r,work,rwork,&lwork,&info);*/
15000if (PyErr_Occurred())
15001 f2py_success = 0;
15002#ifdef F2PY_REPORT_ATEXIT
15003f2py_stop_call_clock();
15004#endif
15005/*end of callfortranroutine*/
15006 if (f2py_success) {
15007/*pyobjfrom*/
15008/*end of pyobjfrom*/
15009 CFUNCSMESS("Building return value.\n");
15010 capi_buildvalue = Py_BuildValue("NNNiNi",capi_a_tmp,capi_b_tmp,capi_s_tmp,r,capi_work_tmp,info);
15011/*closepyobjfrom*/
15012/*end of closepyobjfrom*/
15013 } /*if (f2py_success) after callfortranroutine*/
15014/*cleanupfrompyobj*/
15015 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
15016 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
15017 /* End of cleaning variable rwork */
15018 } /*if (capi_work_tmp == NULL) ... else of work*/
15019 /* End of cleaning variable work */
15020 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
15021 } /*if (f2py_success) of lwork*/
15022 /* End of cleaning variable lwork */
15023 /* End of cleaning variable nrhs */
15024 } /*if (capi_s_tmp == NULL) ... else of s*/
15025 /* End of cleaning variable s */
15026 } /*CHECKARRAY(maxmn==shape(b,0))*/
15027 } /*if (capi_b_tmp == NULL) ... else of b*/
15028 /* End of cleaning variable b */
15029 /* End of cleaning variable maxmn */
15030 /* End of cleaning variable minmn */
15031 /* End of cleaning variable n */
15032 /* End of cleaning variable m */
15033 /* End of cleaning variable info */
15034 /* End of cleaning variable r */
15035 } /*if (f2py_success) of cond*/
15036 /* End of cleaning variable cond */
15037 } /*if (capi_a_tmp == NULL) ... else of a*/
15038 /* End of cleaning variable a */
15039/*end of cleanupfrompyobj*/
15040 if (capi_buildvalue == NULL((void*)0)) {
15041/*routdebugfailure*/
15042 } else {
15043/*routdebugleave*/
15044 }
15045 CFUNCSMESS("Freeing memory.\n");
15046/*freemem*/
15047#ifdef F2PY_REPORT_ATEXIT
15048f2py_stop_clock();
15049#endif
15050 return capi_buildvalue;
15051}
15052/******************************* end of zgelss *******************************/
15053
15054/******************************** cgelss_lwork ********************************/
15055static char doc_f2py_rout__flapack_cgelss_lwork[] = "\
15056work,info = cgelss_lwork(m,n,nrhs,[cond,lwork])\n\nWrapper for ``cgelss_lwork``.\
15057\n\nParameters\n----------\n"
15058"m : input int\n"
15059"n : input int\n"
15060"nrhs : input int\n"
15061"\nOther Parameters\n----------------\n"
15062"cond : input float, optional\n Default: -1.0\n"
15063"lwork : input int, optional\n Default: -1\n"
15064"\nReturns\n-------\n"
15065"work : complex\n"
15066"info : int";
15067/* extern void F_FUNC(cgelss ,CGELSS )(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */
15068static PyObject *f2py_rout__flapack_cgelss_lwork(const PyObject *capi_self,
15069 PyObject *capi_args,
15070 PyObject *capi_keywds,
15071 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) {
15072 PyObject * volatile capi_buildvalue = NULL((void*)0);
15073 volatile int f2py_success = 1;
15074/*decl*/
15075
15076 int m = 0;
15077 PyObject *m_capi = Py_None(&_Py_NoneStruct);
15078 int n = 0;
15079 PyObject *n_capi = Py_None(&_Py_NoneStruct);
15080 int maxmn = 0;
15081 int nrhs = 0;
15082 PyObject *nrhs_capi = Py_None(&_Py_NoneStruct);
15083 complex_float a;
15084 complex_float b;
15085 float s = 0;
15086 float cond = 0;
15087 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
15088 int r = 0;
15089 complex_float work;
15090 PyObject *work_capi = Py_None(&_Py_NoneStruct);
15091 float rwork = 0;
15092 int lwork = 0;
15093 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
15094 int info = 0;
15095 static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)};
15096
15097/*routdebugenter*/
15098#ifdef F2PY_REPORT_ATEXIT
15099f2py_start_clock();
15100#endif
15101 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
15102 "OOO|OO:_flapack.cgelss_lwork",\
15103 capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi))
15104 return NULL((void*)0);
15105/*frompyobj*/
15106 /* Processing variable m */
15107 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cgelss_lwork() 1st argument (m) can't be converted to int");
15108 if (f2py_success) {
15109 /* Processing variable n */
15110 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgelss_lwork() 2nd argument (n) can't be converted to int");
15111 if (f2py_success) {
15112 /* Processing variable a */
15113 /* Processing variable nrhs */
15114 f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.cgelss_lwork() 3rd argument (nrhs) can't be converted to int");
15115 if (f2py_success) {
15116 /* Processing variable b */
15117 /* Processing variable cond */
15118 if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else
15119 f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.cgelss_lwork() 1st keyword (cond) can't be converted to float");
15120 if (f2py_success) {
15121 /* Processing variable r */
15122 /* Processing variable s */
15123 /* Processing variable lwork */
15124 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else
15125 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgelss_lwork() 2nd keyword (lwork) can't be converted to int");
15126 if (f2py_success) {
15127 /* Processing variable work */
15128 /* Processing variable rwork */
15129 /* Processing variable info */
15130 /* Processing variable maxmn */
15131 maxmn = MAX(m,n)((m > n) ? (m) : (n));
15132/*end of frompyobj*/
15133#ifdef F2PY_REPORT_ATEXIT
15134f2py_start_call_clock();
15135#endif
15136/*callfortranroutine*/
15137 (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&s,&cond,&r,&work,&lwork,&rwork,&info) ;
15138 /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&s,&cond,&r,&work,&rwork,&lwork,&info);*/
15139if (PyErr_Occurred())
15140 f2py_success = 0;
15141#ifdef F2PY_REPORT_ATEXIT
15142f2py_stop_call_clock();
15143#endif
15144/*end of callfortranroutine*/
15145 if (f2py_success) {
15146/*pyobjfrom*/
15147 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
15148/*end of pyobjfrom*/
15149 CFUNCSMESS("Building return value.\n");
15150 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
15151/*closepyobjfrom*/
15152/*end of closepyobjfrom*/
15153 } /*if (f2py_success) after callfortranroutine*/
15154/*cleanupfrompyobj*/
15155 /* End of cleaning variable maxmn */
15156 /* End of cleaning variable info */
15157 /* End of cleaning variable rwork */
15158 /* End of cleaning variable work */
15159 } /*if (f2py_success) of lwork*/
15160 /* End of cleaning variable lwork */
15161 /* End of cleaning variable s */
15162 /* End of cleaning variable r */
15163 } /*if (f2py_success) of cond*/
15164 /* End of cleaning variable cond */
15165 /* End of cleaning variable b */
15166 } /*if (f2py_success) of nrhs*/
15167 /* End of cleaning variable nrhs */
15168 /* End of cleaning variable a */
15169 } /*if (f2py_success) of n*/
15170 /* End of cleaning variable n */
15171 } /*if (f2py_success) of m*/
15172 /* End of cleaning variable m */
15173/*end of cleanupfrompyobj*/
15174 if (capi_buildvalue == NULL((void*)0)) {
15175/*routdebugfailure*/
15176 } else {
15177/*routdebugleave*/
15178 }
15179 CFUNCSMESS("Freeing memory.\n");
15180/*freemem*/
15181#ifdef F2PY_REPORT_ATEXIT
15182f2py_stop_clock();
15183#endif
15184 return capi_buildvalue;
15185}
15186/**************************** end of cgelss_lwork ****************************/
15187
15188/******************************** zgelss_lwork ********************************/
15189static char doc_f2py_rout__flapack_zgelss_lwork[] = "\
15190work,info = zgelss_lwork(m,n,nrhs,[cond,lwork])\n\nWrapper for ``zgelss_lwork``.\
15191\n\nParameters\n----------\n"
15192"m : input int\n"
15193"n : input int\n"
15194"nrhs : input int\n"
15195"\nOther Parameters\n----------------\n"
15196"cond : input float, optional\n Default: -1.0\n"
15197"lwork : input int, optional\n Default: -1\n"
15198"\nReturns\n-------\n"
15199"work : complex\n"
15200"info : int";
15201/* extern void F_FUNC(zgelss ,ZGELSS )(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */
15202static PyObject *f2py_rout__flapack_zgelss_lwork(const PyObject *capi_self,
15203 PyObject *capi_args,
15204 PyObject *capi_keywds,
15205 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) {
15206 PyObject * volatile capi_buildvalue = NULL((void*)0);
15207 volatile int f2py_success = 1;
15208/*decl*/
15209
15210 int m = 0;
15211 PyObject *m_capi = Py_None(&_Py_NoneStruct);
15212 int n = 0;
15213 PyObject *n_capi = Py_None(&_Py_NoneStruct);
15214 int maxmn = 0;
15215 int nrhs = 0;
15216 PyObject *nrhs_capi = Py_None(&_Py_NoneStruct);
15217 complex_double a;
15218 complex_double b;
15219 double s = 0;
15220 double cond = 0;
15221 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
15222 int r = 0;
15223 complex_double work;
15224 PyObject *work_capi = Py_None(&_Py_NoneStruct);
15225 double rwork = 0;
15226 int lwork = 0;
15227 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
15228 int info = 0;
15229 static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)};
15230
15231/*routdebugenter*/
15232#ifdef F2PY_REPORT_ATEXIT
15233f2py_start_clock();
15234#endif
15235 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
15236 "OOO|OO:_flapack.zgelss_lwork",\
15237 capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi))
15238 return NULL((void*)0);
15239/*frompyobj*/
15240 /* Processing variable m */
15241 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zgelss_lwork() 1st argument (m) can't be converted to int");
15242 if (f2py_success) {
15243 /* Processing variable n */
15244 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgelss_lwork() 2nd argument (n) can't be converted to int");
15245 if (f2py_success) {
15246 /* Processing variable a */
15247 /* Processing variable nrhs */
15248 f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.zgelss_lwork() 3rd argument (nrhs) can't be converted to int");
15249 if (f2py_success) {
15250 /* Processing variable b */
15251 /* Processing variable cond */
15252 if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else
15253 f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.zgelss_lwork() 1st keyword (cond) can't be converted to double");
15254 if (f2py_success) {
15255 /* Processing variable r */
15256 /* Processing variable s */
15257 /* Processing variable lwork */
15258 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else
15259 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgelss_lwork() 2nd keyword (lwork) can't be converted to int");
15260 if (f2py_success) {
15261 /* Processing variable work */
15262 /* Processing variable rwork */
15263 /* Processing variable info */
15264 /* Processing variable maxmn */
15265 maxmn = MAX(m,n)((m > n) ? (m) : (n));
15266/*end of frompyobj*/
15267#ifdef F2PY_REPORT_ATEXIT
15268f2py_start_call_clock();
15269#endif
15270/*callfortranroutine*/
15271 (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&s,&cond,&r,&work,&lwork,&rwork,&info) ;
15272 /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&s,&cond,&r,&work,&rwork,&lwork,&info);*/
15273if (PyErr_Occurred())
15274 f2py_success = 0;
15275#ifdef F2PY_REPORT_ATEXIT
15276f2py_stop_call_clock();
15277#endif
15278/*end of callfortranroutine*/
15279 if (f2py_success) {
15280/*pyobjfrom*/
15281 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
15282/*end of pyobjfrom*/
15283 CFUNCSMESS("Building return value.\n");
15284 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
15285/*closepyobjfrom*/
15286/*end of closepyobjfrom*/
15287 } /*if (f2py_success) after callfortranroutine*/
15288/*cleanupfrompyobj*/
15289 /* End of cleaning variable maxmn */
15290 /* End of cleaning variable info */
15291 /* End of cleaning variable rwork */
15292 /* End of cleaning variable work */
15293 } /*if (f2py_success) of lwork*/
15294 /* End of cleaning variable lwork */
15295 /* End of cleaning variable s */
15296 /* End of cleaning variable r */
15297 } /*if (f2py_success) of cond*/
15298 /* End of cleaning variable cond */
15299 /* End of cleaning variable b */
15300 } /*if (f2py_success) of nrhs*/
15301 /* End of cleaning variable nrhs */
15302 /* End of cleaning variable a */
15303 } /*if (f2py_success) of n*/
15304 /* End of cleaning variable n */
15305 } /*if (f2py_success) of m*/
15306 /* End of cleaning variable m */
15307/*end of cleanupfrompyobj*/
15308 if (capi_buildvalue == NULL((void*)0)) {
15309/*routdebugfailure*/
15310 } else {
15311/*routdebugleave*/
15312 }
15313 CFUNCSMESS("Freeing memory.\n");
15314/*freemem*/
15315#ifdef F2PY_REPORT_ATEXIT
15316f2py_stop_clock();
15317#endif
15318 return capi_buildvalue;
15319}
15320/**************************** end of zgelss_lwork ****************************/
15321
15322/*********************************** sgelsy ***********************************/
15323static char doc_f2py_rout__flapack_sgelsy[] = "\
15324v,x,j,rank,info = sgelsy(a,b,jptv,cond,lwork,[overwrite_a,overwrite_b])\n\nWrapper for ``sgelsy``.\
15325\n\nParameters\n----------\n"
15326"a : input rank-2 array('f') with bounds (m,n)\n"
15327"b : input rank-2 array('f') with bounds (maxmn,nrhs)\n"
15328"jptv : input rank-1 array('i') with bounds (n)\n"
15329"cond : input float\n"
15330"lwork : input int\n"
15331"\nOther Parameters\n----------------\n"
15332"overwrite_a : input int, optional\n Default: 0\n"
15333"overwrite_b : input int, optional\n Default: 0\n"
15334"\nReturns\n-------\n"
15335"v : rank-2 array('f') with bounds (m,n) and a storage\n"
15336"x : rank-2 array('f') with bounds (maxmn,nrhs) and b storage\n"
15337"j : rank-1 array('i') with bounds (n) and jptv storage\n"
15338"rank : int\n"
15339"info : int";
15340/* extern void F_FUNC(sgelsy,SGELSY)(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */
15341static PyObject *f2py_rout__flapack_sgelsy(const PyObject *capi_self,
15342 PyObject *capi_args,
15343 PyObject *capi_keywds,
15344 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
15345 PyObject * volatile capi_buildvalue = NULL((void*)0);
15346 volatile int f2py_success = 1;
15347/*decl*/
15348
15349 int m = 0;
15350 int n = 0;
15351 int maxmn = 0;
15352 int minmn = 0;
15353 int nrhs = 0;
15354 float *a = NULL((void*)0);
15355 npy_intp a_Dims[2] = {-1, -1};
15356 const int a_Rank = 2;
15357 PyArrayObject *capi_a_tmp = NULL((void*)0);
15358 int capi_a_intent = 0;
15359 int capi_overwrite_a = 0;
15360 PyObject *a_capi = Py_None(&_Py_NoneStruct);
15361 float *b = NULL((void*)0);
15362 npy_intp b_Dims[2] = {-1, -1};
15363 const int b_Rank = 2;
15364 PyArrayObject *capi_b_tmp = NULL((void*)0);
15365 int capi_b_intent = 0;
15366 int capi_overwrite_b = 0;
15367 PyObject *b_capi = Py_None(&_Py_NoneStruct);
15368 int *jptv = NULL((void*)0);
15369 npy_intp jptv_Dims[1] = {-1};
15370 const int jptv_Rank = 1;
15371 PyArrayObject *capi_jptv_tmp = NULL((void*)0);
15372 int capi_jptv_intent = 0;
15373 PyObject *jptv_capi = Py_None(&_Py_NoneStruct);
15374 float cond = 0;
15375 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
15376 int r = 0;
15377 float *work = NULL((void*)0);
15378 npy_intp work_Dims[1] = {-1};
15379 const int work_Rank = 1;
15380 PyArrayObject *capi_work_tmp = NULL((void*)0);
15381 int capi_work_intent = 0;
15382 int lwork = 0;
15383 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
15384 int info = 0;
15385 static char *capi_kwlist[] = {"a","b","jptv","cond","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
15386
15387/*routdebugenter*/
15388#ifdef F2PY_REPORT_ATEXIT
15389f2py_start_clock();
15390#endif
15391 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
15392 "OOOOO|ii:_flapack.sgelsy",\
15393 capi_kwlist,&a_capi,&b_capi,&jptv_capi,&cond_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
15394 return NULL((void*)0);
15395/*frompyobj*/
15396 /* Processing variable a */
15397 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
15398 ;
15399 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
15400 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
15401 if (capi_a_tmp == NULL((void*)0)) {
15402 if (!PyErr_Occurred())
15403 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgelsy to C/Fortran array" );
15404 } else {
15405 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
15406
15407 /* Processing variable cond */
15408 f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.sgelsy() 4th argument (cond) can't be converted to float");
15409 if (f2py_success) {
15410 /* Processing variable r */
15411 /* Processing variable info */
15412 /* Processing variable m */
15413 m = shape(a,0)a_Dims[0];
15414 /* Processing variable n */
15415 n = shape(a,1)a_Dims[1];
15416 /* Processing variable maxmn */
15417 maxmn = MAX(m,n)((m > n) ? (m) : (n));
15418 /* Processing variable minmn */
15419 minmn = MIN(m,n)((m < n) ? (m) : (n));
15420 /* Processing variable b */
15421 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
15422 b_Dims[0]=maxmn;
15423 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
15424 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
15425 if (capi_b_tmp == NULL((void*)0)) {
15426 if (!PyErr_Occurred())
15427 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sgelsy to C/Fortran array" );
15428 } else {
15429 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
15430
15431 CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"("
"maxmn==shape(b,0)"") failed for ""2nd argument b"); } else
{
15432 /* Processing variable jptv */
15433 jptv_Dims[0]=n;
15434 capi_jptv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
15435 capi_jptv_tmp = array_from_pyobj(NPY_INT,jptv_Dims,jptv_Rank,capi_jptv_intent,jptv_capi);
15436 if (capi_jptv_tmp == NULL((void*)0)) {
15437 if (!PyErr_Occurred())
15438 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `jptv' of _flapack.sgelsy to C/Fortran array" );
15439 } else {
15440 jptv = (int *)(PyArray_DATA(capi_jptv_tmp)((void *)((PyArrayObject_fields *)(capi_jptv_tmp))->data));
15441
15442 /* Processing variable nrhs */
15443 nrhs = shape(b,1)b_Dims[1];
15444 /* Processing variable lwork */
15445 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgelsy() 5th argument (lwork) can't be converted to int");
15446 if (f2py_success) {
15447 CHECKSCALAR(lwork>=MAX(minmn+3*n+1, 2*minmn+nrhs),"lwork>=MAX(minmn+3*n+1, 2*minmn+nrhs)","5th argument lwork","sgelsy:lwork=%d",lwork)if (!(lwork>=((minmn+3*n+1 > 2*minmn+nrhs) ? (minmn+3*n
+1) : (2*minmn+nrhs)))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgelsy:lwork=%d", "(""lwork>=MAX(minmn+3*n+1, 2*minmn+nrhs)"
") failed for ""5th argument lwork", lwork); PyErr_SetString(
_flapack_error,errstring); } else
{
15448 /* Processing variable work */
15449 work_Dims[0]=lwork;
15450 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
15451 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
15452 if (capi_work_tmp == NULL((void*)0)) {
15453 if (!PyErr_Occurred())
15454 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgelsy to C/Fortran array" );
15455 } else {
15456 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
15457
15458/*end of frompyobj*/
15459#ifdef F2PY_REPORT_ATEXIT
15460f2py_start_call_clock();
15461#endif
15462/*callfortranroutine*/
15463 (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,jptv,&cond,&r,work,&lwork,&info) ;
15464 /*(*f2py_func)(&m,&n,&maxmn,&minmn,&nrhs,a,b,jptv,&cond,&r,work,&lwork,&info);*/
15465if (PyErr_Occurred())
15466 f2py_success = 0;
15467#ifdef F2PY_REPORT_ATEXIT
15468f2py_stop_call_clock();
15469#endif
15470/*end of callfortranroutine*/
15471 if (f2py_success) {
15472/*pyobjfrom*/
15473/*end of pyobjfrom*/
15474 CFUNCSMESS("Building return value.\n");
15475 capi_buildvalue = Py_BuildValue("NNNii",capi_a_tmp,capi_b_tmp,capi_jptv_tmp,r,info);
15476/*closepyobjfrom*/
15477/*end of closepyobjfrom*/
15478 } /*if (f2py_success) after callfortranroutine*/
15479/*cleanupfrompyobj*/
15480 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
15481 } /*if (capi_work_tmp == NULL) ... else of work*/
15482 /* End of cleaning variable work */
15483 } /*CHECKSCALAR(lwork>=MAX(minmn+3*n+1, 2*minmn+nrhs))*/
15484 } /*if (f2py_success) of lwork*/
15485 /* End of cleaning variable lwork */
15486 /* End of cleaning variable nrhs */
15487 } /*if (capi_jptv_tmp == NULL) ... else of jptv*/
15488 /* End of cleaning variable jptv */
15489 } /*CHECKARRAY(maxmn==shape(b,0))*/
15490 } /*if (capi_b_tmp == NULL) ... else of b*/
15491 /* End of cleaning variable b */
15492 /* End of cleaning variable minmn */
15493 /* End of cleaning variable maxmn */
15494 /* End of cleaning variable n */
15495 /* End of cleaning variable m */
15496 /* End of cleaning variable info */
15497 /* End of cleaning variable r */
15498 } /*if (f2py_success) of cond*/
15499 /* End of cleaning variable cond */
15500 } /*if (capi_a_tmp == NULL) ... else of a*/
15501 /* End of cleaning variable a */
15502/*end of cleanupfrompyobj*/
15503 if (capi_buildvalue == NULL((void*)0)) {
15504/*routdebugfailure*/
15505 } else {
15506/*routdebugleave*/
15507 }
15508 CFUNCSMESS("Freeing memory.\n");
15509/*freemem*/
15510#ifdef F2PY_REPORT_ATEXIT
15511f2py_stop_clock();
15512#endif
15513 return capi_buildvalue;
15514}
15515/******************************* end of sgelsy *******************************/
15516
15517/*********************************** dgelsy ***********************************/
15518static char doc_f2py_rout__flapack_dgelsy[] = "\
15519v,x,j,rank,info = dgelsy(a,b,jptv,cond,lwork,[overwrite_a,overwrite_b])\n\nWrapper for ``dgelsy``.\
15520\n\nParameters\n----------\n"
15521"a : input rank-2 array('d') with bounds (m,n)\n"
15522"b : input rank-2 array('d') with bounds (maxmn,nrhs)\n"
15523"jptv : input rank-1 array('i') with bounds (n)\n"
15524"cond : input float\n"
15525"lwork : input int\n"
15526"\nOther Parameters\n----------------\n"
15527"overwrite_a : input int, optional\n Default: 0\n"
15528"overwrite_b : input int, optional\n Default: 0\n"
15529"\nReturns\n-------\n"
15530"v : rank-2 array('d') with bounds (m,n) and a storage\n"
15531"x : rank-2 array('d') with bounds (maxmn,nrhs) and b storage\n"
15532"j : rank-1 array('i') with bounds (n) and jptv storage\n"
15533"rank : int\n"
15534"info : int";
15535/* extern void F_FUNC(dgelsy,DGELSY)(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */
15536static PyObject *f2py_rout__flapack_dgelsy(const PyObject *capi_self,
15537 PyObject *capi_args,
15538 PyObject *capi_keywds,
15539 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
15540 PyObject * volatile capi_buildvalue = NULL((void*)0);
15541 volatile int f2py_success = 1;
15542/*decl*/
15543
15544 int m = 0;
15545 int n = 0;
15546 int maxmn = 0;
15547 int minmn = 0;
15548 int nrhs = 0;
15549 double *a = NULL((void*)0);
15550 npy_intp a_Dims[2] = {-1, -1};
15551 const int a_Rank = 2;
15552 PyArrayObject *capi_a_tmp = NULL((void*)0);
15553 int capi_a_intent = 0;
15554 int capi_overwrite_a = 0;
15555 PyObject *a_capi = Py_None(&_Py_NoneStruct);
15556 double *b = NULL((void*)0);
15557 npy_intp b_Dims[2] = {-1, -1};
15558 const int b_Rank = 2;
15559 PyArrayObject *capi_b_tmp = NULL((void*)0);
15560 int capi_b_intent = 0;
15561 int capi_overwrite_b = 0;
15562 PyObject *b_capi = Py_None(&_Py_NoneStruct);
15563 int *jptv = NULL((void*)0);
15564 npy_intp jptv_Dims[1] = {-1};
15565 const int jptv_Rank = 1;
15566 PyArrayObject *capi_jptv_tmp = NULL((void*)0);
15567 int capi_jptv_intent = 0;
15568 PyObject *jptv_capi = Py_None(&_Py_NoneStruct);
15569 double cond = 0;
15570 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
15571 int r = 0;
15572 double *work = NULL((void*)0);
15573 npy_intp work_Dims[1] = {-1};
15574 const int work_Rank = 1;
15575 PyArrayObject *capi_work_tmp = NULL((void*)0);
15576 int capi_work_intent = 0;
15577 int lwork = 0;
15578 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
15579 int info = 0;
15580 static char *capi_kwlist[] = {"a","b","jptv","cond","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
15581
15582/*routdebugenter*/
15583#ifdef F2PY_REPORT_ATEXIT
15584f2py_start_clock();
15585#endif
15586 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
15587 "OOOOO|ii:_flapack.dgelsy",\
15588 capi_kwlist,&a_capi,&b_capi,&jptv_capi,&cond_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
15589 return NULL((void*)0);
15590/*frompyobj*/
15591 /* Processing variable a */
15592 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
15593 ;
15594 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
15595 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
15596 if (capi_a_tmp == NULL((void*)0)) {
15597 if (!PyErr_Occurred())
15598 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgelsy to C/Fortran array" );
15599 } else {
15600 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
15601
15602 /* Processing variable cond */
15603 f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.dgelsy() 4th argument (cond) can't be converted to double");
15604 if (f2py_success) {
15605 /* Processing variable r */
15606 /* Processing variable info */
15607 /* Processing variable m */
15608 m = shape(a,0)a_Dims[0];
15609 /* Processing variable n */
15610 n = shape(a,1)a_Dims[1];
15611 /* Processing variable maxmn */
15612 maxmn = MAX(m,n)((m > n) ? (m) : (n));
15613 /* Processing variable minmn */
15614 minmn = MIN(m,n)((m < n) ? (m) : (n));
15615 /* Processing variable b */
15616 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
15617 b_Dims[0]=maxmn;
15618 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
15619 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
15620 if (capi_b_tmp == NULL((void*)0)) {
15621 if (!PyErr_Occurred())
15622 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dgelsy to C/Fortran array" );
15623 } else {
15624 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
15625
15626 CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"("
"maxmn==shape(b,0)"") failed for ""2nd argument b"); } else
{
15627 /* Processing variable jptv */
15628 jptv_Dims[0]=n;
15629 capi_jptv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
15630 capi_jptv_tmp = array_from_pyobj(NPY_INT,jptv_Dims,jptv_Rank,capi_jptv_intent,jptv_capi);
15631 if (capi_jptv_tmp == NULL((void*)0)) {
15632 if (!PyErr_Occurred())
15633 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `jptv' of _flapack.dgelsy to C/Fortran array" );
15634 } else {
15635 jptv = (int *)(PyArray_DATA(capi_jptv_tmp)((void *)((PyArrayObject_fields *)(capi_jptv_tmp))->data));
15636
15637 /* Processing variable nrhs */
15638 nrhs = shape(b,1)b_Dims[1];
15639 /* Processing variable lwork */
15640 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgelsy() 5th argument (lwork) can't be converted to int");
15641 if (f2py_success) {
15642 CHECKSCALAR(lwork>=MAX(minmn+3*n+1, 2*minmn+nrhs),"lwork>=MAX(minmn+3*n+1, 2*minmn+nrhs)","5th argument lwork","dgelsy:lwork=%d",lwork)if (!(lwork>=((minmn+3*n+1 > 2*minmn+nrhs) ? (minmn+3*n
+1) : (2*minmn+nrhs)))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgelsy:lwork=%d", "(""lwork>=MAX(minmn+3*n+1, 2*minmn+nrhs)"
") failed for ""5th argument lwork", lwork); PyErr_SetString(
_flapack_error,errstring); } else
{
15643 /* Processing variable work */
15644 work_Dims[0]=lwork;
15645 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
15646 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
15647 if (capi_work_tmp == NULL((void*)0)) {
15648 if (!PyErr_Occurred())
15649 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgelsy to C/Fortran array" );
15650 } else {
15651 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
15652
15653/*end of frompyobj*/
15654#ifdef F2PY_REPORT_ATEXIT
15655f2py_start_call_clock();
15656#endif
15657/*callfortranroutine*/
15658 (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,jptv,&cond,&r,work,&lwork,&info) ;
15659 /*(*f2py_func)(&m,&n,&maxmn,&minmn,&nrhs,a,b,jptv,&cond,&r,work,&lwork,&info);*/
15660if (PyErr_Occurred())
15661 f2py_success = 0;
15662#ifdef F2PY_REPORT_ATEXIT
15663f2py_stop_call_clock();
15664#endif
15665/*end of callfortranroutine*/
15666 if (f2py_success) {
15667/*pyobjfrom*/
15668/*end of pyobjfrom*/
15669 CFUNCSMESS("Building return value.\n");
15670 capi_buildvalue = Py_BuildValue("NNNii",capi_a_tmp,capi_b_tmp,capi_jptv_tmp,r,info);
15671/*closepyobjfrom*/
15672/*end of closepyobjfrom*/
15673 } /*if (f2py_success) after callfortranroutine*/
15674/*cleanupfrompyobj*/
15675 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
15676 } /*if (capi_work_tmp == NULL) ... else of work*/
15677 /* End of cleaning variable work */
15678 } /*CHECKSCALAR(lwork>=MAX(minmn+3*n+1, 2*minmn+nrhs))*/
15679 } /*if (f2py_success) of lwork*/
15680 /* End of cleaning variable lwork */
15681 /* End of cleaning variable nrhs */
15682 } /*if (capi_jptv_tmp == NULL) ... else of jptv*/
15683 /* End of cleaning variable jptv */
15684 } /*CHECKARRAY(maxmn==shape(b,0))*/
15685 } /*if (capi_b_tmp == NULL) ... else of b*/
15686 /* End of cleaning variable b */
15687 /* End of cleaning variable minmn */
15688 /* End of cleaning variable maxmn */
15689 /* End of cleaning variable n */
15690 /* End of cleaning variable m */
15691 /* End of cleaning variable info */
15692 /* End of cleaning variable r */
15693 } /*if (f2py_success) of cond*/
15694 /* End of cleaning variable cond */
15695 } /*if (capi_a_tmp == NULL) ... else of a*/
15696 /* End of cleaning variable a */
15697/*end of cleanupfrompyobj*/
15698 if (capi_buildvalue == NULL((void*)0)) {
15699/*routdebugfailure*/
15700 } else {
15701/*routdebugleave*/
15702 }
15703 CFUNCSMESS("Freeing memory.\n");
15704/*freemem*/
15705#ifdef F2PY_REPORT_ATEXIT
15706f2py_stop_clock();
15707#endif
15708 return capi_buildvalue;
15709}
15710/******************************* end of dgelsy *******************************/
15711
15712/******************************** sgelsy_lwork ********************************/
15713static char doc_f2py_rout__flapack_sgelsy_lwork[] = "\
15714work,info = sgelsy_lwork(m,n,nrhs,cond,[lwork])\n\nWrapper for ``sgelsy_lwork``.\
15715\n\nParameters\n----------\n"
15716"m : input int\n"
15717"n : input int\n"
15718"nrhs : input int\n"
15719"cond : input float\n"
15720"\nOther Parameters\n----------------\n"
15721"lwork : input int, optional\n Default: -1\n"
15722"\nReturns\n-------\n"
15723"work : float\n"
15724"info : int";
15725/* extern void F_FUNC(sgelsy ,SGELSY )(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */
15726static PyObject *f2py_rout__flapack_sgelsy_lwork(const PyObject *capi_self,
15727 PyObject *capi_args,
15728 PyObject *capi_keywds,
15729 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
15730 PyObject * volatile capi_buildvalue = NULL((void*)0);
15731 volatile int f2py_success = 1;
15732/*decl*/
15733
15734 int m = 0;
15735 PyObject *m_capi = Py_None(&_Py_NoneStruct);
15736 int n = 0;
15737 PyObject *n_capi = Py_None(&_Py_NoneStruct);
15738 int maxmn = 0;
15739 int nrhs = 0;
15740 PyObject *nrhs_capi = Py_None(&_Py_NoneStruct);
15741 float a = 0;
15742 float b = 0;
15743 int jptv = 0;
15744 float cond = 0;
15745 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
15746 int r = 0;
15747 float work = 0;
15748 int lwork = 0;
15749 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
15750 int info = 0;
15751 static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)};
15752
15753/*routdebugenter*/
15754#ifdef F2PY_REPORT_ATEXIT
15755f2py_start_clock();
15756#endif
15757 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
15758 "OOOO|O:_flapack.sgelsy_lwork",\
15759 capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi))
15760 return NULL((void*)0);
15761/*frompyobj*/
15762 /* Processing variable m */
15763 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sgelsy_lwork() 1st argument (m) can't be converted to int");
15764 if (f2py_success) {
15765 /* Processing variable n */
15766 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgelsy_lwork() 2nd argument (n) can't be converted to int");
15767 if (f2py_success) {
15768 /* Processing variable a */
15769 /* Processing variable nrhs */
15770 f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.sgelsy_lwork() 3rd argument (nrhs) can't be converted to int");
15771 if (f2py_success) {
15772 /* Processing variable b */
15773 /* Processing variable cond */
15774 f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.sgelsy_lwork() 4th argument (cond) can't be converted to float");
15775 if (f2py_success) {
15776 /* Processing variable r */
15777 /* Processing variable jptv */
15778 /* Processing variable lwork */
15779 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else
15780 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgelsy_lwork() 1st keyword (lwork) can't be converted to int");
15781 if (f2py_success) {
15782 /* Processing variable work */
15783 /* Processing variable info */
15784 /* Processing variable maxmn */
15785 maxmn = MAX(m,n)((m > n) ? (m) : (n));
15786/*end of frompyobj*/
15787#ifdef F2PY_REPORT_ATEXIT
15788f2py_start_call_clock();
15789#endif
15790/*callfortranroutine*/
15791 (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&jptv,&cond,&r,&work,&lwork,&info) ;
15792 /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&jptv,&cond,&r,&work,&lwork,&info);*/
15793if (PyErr_Occurred())
15794 f2py_success = 0;
15795#ifdef F2PY_REPORT_ATEXIT
15796f2py_stop_call_clock();
15797#endif
15798/*end of callfortranroutine*/
15799 if (f2py_success) {
15800/*pyobjfrom*/
15801/*end of pyobjfrom*/
15802 CFUNCSMESS("Building return value.\n");
15803 capi_buildvalue = Py_BuildValue("fi",work,info);
15804/*closepyobjfrom*/
15805/*end of closepyobjfrom*/
15806 } /*if (f2py_success) after callfortranroutine*/
15807/*cleanupfrompyobj*/
15808 /* End of cleaning variable maxmn */
15809 /* End of cleaning variable info */
15810 /* End of cleaning variable work */
15811 } /*if (f2py_success) of lwork*/
15812 /* End of cleaning variable lwork */
15813 /* End of cleaning variable jptv */
15814 /* End of cleaning variable r */
15815 } /*if (f2py_success) of cond*/
15816 /* End of cleaning variable cond */
15817 /* End of cleaning variable b */
15818 } /*if (f2py_success) of nrhs*/
15819 /* End of cleaning variable nrhs */
15820 /* End of cleaning variable a */
15821 } /*if (f2py_success) of n*/
15822 /* End of cleaning variable n */
15823 } /*if (f2py_success) of m*/
15824 /* End of cleaning variable m */
15825/*end of cleanupfrompyobj*/
15826 if (capi_buildvalue == NULL((void*)0)) {
15827/*routdebugfailure*/
15828 } else {
15829/*routdebugleave*/
15830 }
15831 CFUNCSMESS("Freeing memory.\n");
15832/*freemem*/
15833#ifdef F2PY_REPORT_ATEXIT
15834f2py_stop_clock();
15835#endif
15836 return capi_buildvalue;
15837}
15838/**************************** end of sgelsy_lwork ****************************/
15839
15840/******************************** dgelsy_lwork ********************************/
15841static char doc_f2py_rout__flapack_dgelsy_lwork[] = "\
15842work,info = dgelsy_lwork(m,n,nrhs,cond,[lwork])\n\nWrapper for ``dgelsy_lwork``.\
15843\n\nParameters\n----------\n"
15844"m : input int\n"
15845"n : input int\n"
15846"nrhs : input int\n"
15847"cond : input float\n"
15848"\nOther Parameters\n----------------\n"
15849"lwork : input int, optional\n Default: -1\n"
15850"\nReturns\n-------\n"
15851"work : float\n"
15852"info : int";
15853/* extern void F_FUNC(dgelsy ,DGELSY )(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */
15854static PyObject *f2py_rout__flapack_dgelsy_lwork(const PyObject *capi_self,
15855 PyObject *capi_args,
15856 PyObject *capi_keywds,
15857 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
15858 PyObject * volatile capi_buildvalue = NULL((void*)0);
15859 volatile int f2py_success = 1;
15860/*decl*/
15861
15862 int m = 0;
15863 PyObject *m_capi = Py_None(&_Py_NoneStruct);
15864 int n = 0;
15865 PyObject *n_capi = Py_None(&_Py_NoneStruct);
15866 int maxmn = 0;
15867 int nrhs = 0;
15868 PyObject *nrhs_capi = Py_None(&_Py_NoneStruct);
15869 double a = 0;
15870 double b = 0;
15871 int jptv = 0;
15872 double cond = 0;
15873 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
15874 int r = 0;
15875 double work = 0;
15876 int lwork = 0;
15877 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
15878 int info = 0;
15879 static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)};
15880
15881/*routdebugenter*/
15882#ifdef F2PY_REPORT_ATEXIT
15883f2py_start_clock();
15884#endif
15885 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
15886 "OOOO|O:_flapack.dgelsy_lwork",\
15887 capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi))
15888 return NULL((void*)0);
15889/*frompyobj*/
15890 /* Processing variable m */
15891 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dgelsy_lwork() 1st argument (m) can't be converted to int");
15892 if (f2py_success) {
15893 /* Processing variable n */
15894 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgelsy_lwork() 2nd argument (n) can't be converted to int");
15895 if (f2py_success) {
15896 /* Processing variable a */
15897 /* Processing variable nrhs */
15898 f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.dgelsy_lwork() 3rd argument (nrhs) can't be converted to int");
15899 if (f2py_success) {
15900 /* Processing variable b */
15901 /* Processing variable cond */
15902 f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.dgelsy_lwork() 4th argument (cond) can't be converted to double");
15903 if (f2py_success) {
15904 /* Processing variable r */
15905 /* Processing variable jptv */
15906 /* Processing variable lwork */
15907 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else
15908 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgelsy_lwork() 1st keyword (lwork) can't be converted to int");
15909 if (f2py_success) {
15910 /* Processing variable work */
15911 /* Processing variable info */
15912 /* Processing variable maxmn */
15913 maxmn = MAX(m,n)((m > n) ? (m) : (n));
15914/*end of frompyobj*/
15915#ifdef F2PY_REPORT_ATEXIT
15916f2py_start_call_clock();
15917#endif
15918/*callfortranroutine*/
15919 (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&jptv,&cond,&r,&work,&lwork,&info) ;
15920 /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&jptv,&cond,&r,&work,&lwork,&info);*/
15921if (PyErr_Occurred())
15922 f2py_success = 0;
15923#ifdef F2PY_REPORT_ATEXIT
15924f2py_stop_call_clock();
15925#endif
15926/*end of callfortranroutine*/
15927 if (f2py_success) {
15928/*pyobjfrom*/
15929/*end of pyobjfrom*/
15930 CFUNCSMESS("Building return value.\n");
15931 capi_buildvalue = Py_BuildValue("di",work,info);
15932/*closepyobjfrom*/
15933/*end of closepyobjfrom*/
15934 } /*if (f2py_success) after callfortranroutine*/
15935/*cleanupfrompyobj*/
15936 /* End of cleaning variable maxmn */
15937 /* End of cleaning variable info */
15938 /* End of cleaning variable work */
15939 } /*if (f2py_success) of lwork*/
15940 /* End of cleaning variable lwork */
15941 /* End of cleaning variable jptv */
15942 /* End of cleaning variable r */
15943 } /*if (f2py_success) of cond*/
15944 /* End of cleaning variable cond */
15945 /* End of cleaning variable b */
15946 } /*if (f2py_success) of nrhs*/
15947 /* End of cleaning variable nrhs */
15948 /* End of cleaning variable a */
15949 } /*if (f2py_success) of n*/
15950 /* End of cleaning variable n */
15951 } /*if (f2py_success) of m*/
15952 /* End of cleaning variable m */
15953/*end of cleanupfrompyobj*/
15954 if (capi_buildvalue == NULL((void*)0)) {
15955/*routdebugfailure*/
15956 } else {
15957/*routdebugleave*/
15958 }
15959 CFUNCSMESS("Freeing memory.\n");
15960/*freemem*/
15961#ifdef F2PY_REPORT_ATEXIT
15962f2py_stop_clock();
15963#endif
15964 return capi_buildvalue;
15965}
15966/**************************** end of dgelsy_lwork ****************************/
15967
15968/*********************************** cgelsy ***********************************/
15969static char doc_f2py_rout__flapack_cgelsy[] = "\
15970v,x,j,rank,info = cgelsy(a,b,jptv,cond,lwork,[overwrite_a,overwrite_b])\n\nWrapper for ``cgelsy``.\
15971\n\nParameters\n----------\n"
15972"a : input rank-2 array('F') with bounds (m,n)\n"
15973"b : input rank-2 array('F') with bounds (maxmn,nrhs)\n"
15974"jptv : input rank-1 array('i') with bounds (n)\n"
15975"cond : input float\n"
15976"lwork : input int\n"
15977"\nOther Parameters\n----------------\n"
15978"overwrite_a : input int, optional\n Default: 0\n"
15979"overwrite_b : input int, optional\n Default: 0\n"
15980"\nReturns\n-------\n"
15981"v : rank-2 array('F') with bounds (m,n) and a storage\n"
15982"x : rank-2 array('F') with bounds (maxmn,nrhs) and b storage\n"
15983"j : rank-1 array('i') with bounds (n) and jptv storage\n"
15984"rank : int\n"
15985"info : int";
15986/* extern void F_FUNC(cgelsy,CGELSY)(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */
15987static PyObject *f2py_rout__flapack_cgelsy(const PyObject *capi_self,
15988 PyObject *capi_args,
15989 PyObject *capi_keywds,
15990 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) {
15991 PyObject * volatile capi_buildvalue = NULL((void*)0);
15992 volatile int f2py_success = 1;
15993/*decl*/
15994
15995 int m = 0;
15996 int n = 0;
15997 int maxmn = 0;
15998 int minmn = 0;
15999 int nrhs = 0;
16000 complex_float *a = NULL((void*)0);
16001 npy_intp a_Dims[2] = {-1, -1};
16002 const int a_Rank = 2;
16003 PyArrayObject *capi_a_tmp = NULL((void*)0);
16004 int capi_a_intent = 0;
16005 int capi_overwrite_a = 0;
16006 PyObject *a_capi = Py_None(&_Py_NoneStruct);
16007 complex_float *b = NULL((void*)0);
16008 npy_intp b_Dims[2] = {-1, -1};
16009 const int b_Rank = 2;
16010 PyArrayObject *capi_b_tmp = NULL((void*)0);
16011 int capi_b_intent = 0;
16012 int capi_overwrite_b = 0;
16013 PyObject *b_capi = Py_None(&_Py_NoneStruct);
16014 int *jptv = NULL((void*)0);
16015 npy_intp jptv_Dims[1] = {-1};
16016 const int jptv_Rank = 1;
16017 PyArrayObject *capi_jptv_tmp = NULL((void*)0);
16018 int capi_jptv_intent = 0;
16019 PyObject *jptv_capi = Py_None(&_Py_NoneStruct);
16020 float cond = 0;
16021 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
16022 int r = 0;
16023 complex_float *work = NULL((void*)0);
16024 npy_intp work_Dims[1] = {-1};
16025 const int work_Rank = 1;
16026 PyArrayObject *capi_work_tmp = NULL((void*)0);
16027 int capi_work_intent = 0;
16028 int lwork = 0;
16029 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
16030 float *rwork = NULL((void*)0);
16031 npy_intp rwork_Dims[1] = {-1};
16032 const int rwork_Rank = 1;
16033 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
16034 int capi_rwork_intent = 0;
16035 int info = 0;
16036 static char *capi_kwlist[] = {"a","b","jptv","cond","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
16037
16038/*routdebugenter*/
16039#ifdef F2PY_REPORT_ATEXIT
16040f2py_start_clock();
16041#endif
16042 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
16043 "OOOOO|ii:_flapack.cgelsy",\
16044 capi_kwlist,&a_capi,&b_capi,&jptv_capi,&cond_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
16045 return NULL((void*)0);
16046/*frompyobj*/
16047 /* Processing variable a */
16048 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
16049 ;
16050 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
16051 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
16052 if (capi_a_tmp == NULL((void*)0)) {
16053 if (!PyErr_Occurred())
16054 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgelsy to C/Fortran array" );
16055 } else {
16056 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
16057
16058 /* Processing variable cond */
16059 f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.cgelsy() 4th argument (cond) can't be converted to float");
16060 if (f2py_success) {
16061 /* Processing variable r */
16062 /* Processing variable info */
16063 /* Processing variable m */
16064 m = shape(a,0)a_Dims[0];
16065 /* Processing variable n */
16066 n = shape(a,1)a_Dims[1];
16067 /* Processing variable maxmn */
16068 maxmn = MAX(m,n)((m > n) ? (m) : (n));
16069 /* Processing variable minmn */
16070 minmn = MIN(m,n)((m < n) ? (m) : (n));
16071 /* Processing variable b */
16072 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
16073 b_Dims[0]=maxmn;
16074 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
16075 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
16076 if (capi_b_tmp == NULL((void*)0)) {
16077 if (!PyErr_Occurred())
16078 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cgelsy to C/Fortran array" );
16079 } else {
16080 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
16081
16082 CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"("
"maxmn==shape(b,0)"") failed for ""2nd argument b"); } else
{
16083 /* Processing variable jptv */
16084 jptv_Dims[0]=n;
16085 capi_jptv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
16086 capi_jptv_tmp = array_from_pyobj(NPY_INT,jptv_Dims,jptv_Rank,capi_jptv_intent,jptv_capi);
16087 if (capi_jptv_tmp == NULL((void*)0)) {
16088 if (!PyErr_Occurred())
16089 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `jptv' of _flapack.cgelsy to C/Fortran array" );
16090 } else {
16091 jptv = (int *)(PyArray_DATA(capi_jptv_tmp)((void *)((PyArrayObject_fields *)(capi_jptv_tmp))->data));
16092
16093 /* Processing variable rwork */
16094 rwork_Dims[0]=2 * n;
16095 capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
16096 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
16097 if (capi_rwork_tmp == NULL((void*)0)) {
16098 if (!PyErr_Occurred())
16099 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgelsy to C/Fortran array" );
16100 } else {
16101 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
16102
16103 /* Processing variable nrhs */
16104 nrhs = shape(b,1)b_Dims[1];
16105 /* Processing variable lwork */
16106 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgelsy() 5th argument (lwork) can't be converted to int");
16107 if (f2py_success) {
16108 CHECKSCALAR(lwork>=minmn+MAX(MAX(2*minmn, n+1), minmn+nrhs),"lwork>=minmn+MAX(MAX(2*minmn, n+1), minmn+nrhs)","5th argument lwork","cgelsy:lwork=%d",lwork)if (!(lwork>=minmn+((((2*minmn > n+1) ? (2*minmn) : (n+
1)) > minmn+nrhs) ? (((2*minmn > n+1) ? (2*minmn) : (n+
1))) : (minmn+nrhs)))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgelsy:lwork=%d", "(""lwork>=minmn+MAX(MAX(2*minmn, n+1), minmn+nrhs)"
") failed for ""5th argument lwork", lwork); PyErr_SetString(
_flapack_error,errstring); } else
{
16109 /* Processing variable work */
16110 work_Dims[0]=lwork;
16111 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
16112 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
16113 if (capi_work_tmp == NULL((void*)0)) {
16114 if (!PyErr_Occurred())
16115 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgelsy to C/Fortran array" );
16116 } else {
16117 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
16118
16119/*end of frompyobj*/
16120#ifdef F2PY_REPORT_ATEXIT
16121f2py_start_call_clock();
16122#endif
16123/*callfortranroutine*/
16124 (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,jptv,&cond,&r,work,&lwork,rwork,&info) ;
16125 /*(*f2py_func)(&m,&n,&maxmn,&minmn,&nrhs,a,b,jptv,&cond,&r,work,&lwork,rwork,&info);*/
16126if (PyErr_Occurred())
16127 f2py_success = 0;
16128#ifdef F2PY_REPORT_ATEXIT
16129f2py_stop_call_clock();
16130#endif
16131/*end of callfortranroutine*/
16132 if (f2py_success) {
16133/*pyobjfrom*/
16134/*end of pyobjfrom*/
16135 CFUNCSMESS("Building return value.\n");
16136 capi_buildvalue = Py_BuildValue("NNNii",capi_a_tmp,capi_b_tmp,capi_jptv_tmp,r,info);
16137/*closepyobjfrom*/
16138/*end of closepyobjfrom*/
16139 } /*if (f2py_success) after callfortranroutine*/
16140/*cleanupfrompyobj*/
16141 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
16142 } /*if (capi_work_tmp == NULL) ... else of work*/
16143 /* End of cleaning variable work */
16144 } /*CHECKSCALAR(lwork>=minmn+MAX(MAX(2*minmn, n+1), minmn+nrhs))*/
16145 } /*if (f2py_success) of lwork*/
16146 /* End of cleaning variable lwork */
16147 /* End of cleaning variable nrhs */
16148 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
16149 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
16150 /* End of cleaning variable rwork */
16151 } /*if (capi_jptv_tmp == NULL) ... else of jptv*/
16152 /* End of cleaning variable jptv */
16153 } /*CHECKARRAY(maxmn==shape(b,0))*/
16154 } /*if (capi_b_tmp == NULL) ... else of b*/
16155 /* End of cleaning variable b */
16156 /* End of cleaning variable minmn */
16157 /* End of cleaning variable maxmn */
16158 /* End of cleaning variable n */
16159 /* End of cleaning variable m */
16160 /* End of cleaning variable info */
16161 /* End of cleaning variable r */
16162 } /*if (f2py_success) of cond*/
16163 /* End of cleaning variable cond */
16164 } /*if (capi_a_tmp == NULL) ... else of a*/
16165 /* End of cleaning variable a */
16166/*end of cleanupfrompyobj*/
16167 if (capi_buildvalue == NULL((void*)0)) {
16168/*routdebugfailure*/
16169 } else {
16170/*routdebugleave*/
16171 }
16172 CFUNCSMESS("Freeing memory.\n");
16173/*freemem*/
16174#ifdef F2PY_REPORT_ATEXIT
16175f2py_stop_clock();
16176#endif
16177 return capi_buildvalue;
16178}
16179/******************************* end of cgelsy *******************************/
16180
16181/*********************************** zgelsy ***********************************/
16182static char doc_f2py_rout__flapack_zgelsy[] = "\
16183v,x,j,rank,info = zgelsy(a,b,jptv,cond,lwork,[overwrite_a,overwrite_b])\n\nWrapper for ``zgelsy``.\
16184\n\nParameters\n----------\n"
16185"a : input rank-2 array('D') with bounds (m,n)\n"
16186"b : input rank-2 array('D') with bounds (maxmn,nrhs)\n"
16187"jptv : input rank-1 array('i') with bounds (n)\n"
16188"cond : input float\n"
16189"lwork : input int\n"
16190"\nOther Parameters\n----------------\n"
16191"overwrite_a : input int, optional\n Default: 0\n"
16192"overwrite_b : input int, optional\n Default: 0\n"
16193"\nReturns\n-------\n"
16194"v : rank-2 array('D') with bounds (m,n) and a storage\n"
16195"x : rank-2 array('D') with bounds (maxmn,nrhs) and b storage\n"
16196"j : rank-1 array('i') with bounds (n) and jptv storage\n"
16197"rank : int\n"
16198"info : int";
16199/* extern void F_FUNC(zgelsy,ZGELSY)(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */
16200static PyObject *f2py_rout__flapack_zgelsy(const PyObject *capi_self,
16201 PyObject *capi_args,
16202 PyObject *capi_keywds,
16203 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) {
16204 PyObject * volatile capi_buildvalue = NULL((void*)0);
16205 volatile int f2py_success = 1;
16206/*decl*/
16207
16208 int m = 0;
16209 int n = 0;
16210 int maxmn = 0;
16211 int minmn = 0;
16212 int nrhs = 0;
16213 complex_double *a = NULL((void*)0);
16214 npy_intp a_Dims[2] = {-1, -1};
16215 const int a_Rank = 2;
16216 PyArrayObject *capi_a_tmp = NULL((void*)0);
16217 int capi_a_intent = 0;
16218 int capi_overwrite_a = 0;
16219 PyObject *a_capi = Py_None(&_Py_NoneStruct);
16220 complex_double *b = NULL((void*)0);
16221 npy_intp b_Dims[2] = {-1, -1};
16222 const int b_Rank = 2;
16223 PyArrayObject *capi_b_tmp = NULL((void*)0);
16224 int capi_b_intent = 0;
16225 int capi_overwrite_b = 0;
16226 PyObject *b_capi = Py_None(&_Py_NoneStruct);
16227 int *jptv = NULL((void*)0);
16228 npy_intp jptv_Dims[1] = {-1};
16229 const int jptv_Rank = 1;
16230 PyArrayObject *capi_jptv_tmp = NULL((void*)0);
16231 int capi_jptv_intent = 0;
16232 PyObject *jptv_capi = Py_None(&_Py_NoneStruct);
16233 double cond = 0;
16234 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
16235 int r = 0;
16236 complex_double *work = NULL((void*)0);
16237 npy_intp work_Dims[1] = {-1};
16238 const int work_Rank = 1;
16239 PyArrayObject *capi_work_tmp = NULL((void*)0);
16240 int capi_work_intent = 0;
16241 int lwork = 0;
16242 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
16243 double *rwork = NULL((void*)0);
16244 npy_intp rwork_Dims[1] = {-1};
16245 const int rwork_Rank = 1;
16246 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
16247 int capi_rwork_intent = 0;
16248 int info = 0;
16249 static char *capi_kwlist[] = {"a","b","jptv","cond","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
16250
16251/*routdebugenter*/
16252#ifdef F2PY_REPORT_ATEXIT
16253f2py_start_clock();
16254#endif
16255 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
16256 "OOOOO|ii:_flapack.zgelsy",\
16257 capi_kwlist,&a_capi,&b_capi,&jptv_capi,&cond_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
16258 return NULL((void*)0);
16259/*frompyobj*/
16260 /* Processing variable a */
16261 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
16262 ;
16263 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
16264 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
16265 if (capi_a_tmp == NULL((void*)0)) {
16266 if (!PyErr_Occurred())
16267 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgelsy to C/Fortran array" );
16268 } else {
16269 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
16270
16271 /* Processing variable cond */
16272 f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.zgelsy() 4th argument (cond) can't be converted to double");
16273 if (f2py_success) {
16274 /* Processing variable r */
16275 /* Processing variable info */
16276 /* Processing variable m */
16277 m = shape(a,0)a_Dims[0];
16278 /* Processing variable n */
16279 n = shape(a,1)a_Dims[1];
16280 /* Processing variable maxmn */
16281 maxmn = MAX(m,n)((m > n) ? (m) : (n));
16282 /* Processing variable minmn */
16283 minmn = MIN(m,n)((m < n) ? (m) : (n));
16284 /* Processing variable b */
16285 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
16286 b_Dims[0]=maxmn;
16287 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
16288 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
16289 if (capi_b_tmp == NULL((void*)0)) {
16290 if (!PyErr_Occurred())
16291 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zgelsy to C/Fortran array" );
16292 } else {
16293 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
16294
16295 CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"("
"maxmn==shape(b,0)"") failed for ""2nd argument b"); } else
{
16296 /* Processing variable jptv */
16297 jptv_Dims[0]=n;
16298 capi_jptv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
16299 capi_jptv_tmp = array_from_pyobj(NPY_INT,jptv_Dims,jptv_Rank,capi_jptv_intent,jptv_capi);
16300 if (capi_jptv_tmp == NULL((void*)0)) {
16301 if (!PyErr_Occurred())
16302 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `jptv' of _flapack.zgelsy to C/Fortran array" );
16303 } else {
16304 jptv = (int *)(PyArray_DATA(capi_jptv_tmp)((void *)((PyArrayObject_fields *)(capi_jptv_tmp))->data));
16305
16306 /* Processing variable rwork */
16307 rwork_Dims[0]=2 * n;
16308 capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
16309 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
16310 if (capi_rwork_tmp == NULL((void*)0)) {
16311 if (!PyErr_Occurred())
16312 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgelsy to C/Fortran array" );
16313 } else {
16314 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
16315
16316 /* Processing variable nrhs */
16317 nrhs = shape(b,1)b_Dims[1];
16318 /* Processing variable lwork */
16319 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgelsy() 5th argument (lwork) can't be converted to int");
16320 if (f2py_success) {
16321 CHECKSCALAR(lwork>=minmn+MAX(MAX(2*minmn, n+1), minmn+nrhs),"lwork>=minmn+MAX(MAX(2*minmn, n+1), minmn+nrhs)","5th argument lwork","zgelsy:lwork=%d",lwork)if (!(lwork>=minmn+((((2*minmn > n+1) ? (2*minmn) : (n+
1)) > minmn+nrhs) ? (((2*minmn > n+1) ? (2*minmn) : (n+
1))) : (minmn+nrhs)))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgelsy:lwork=%d", "(""lwork>=minmn+MAX(MAX(2*minmn, n+1), minmn+nrhs)"
") failed for ""5th argument lwork", lwork); PyErr_SetString(
_flapack_error,errstring); } else
{
16322 /* Processing variable work */
16323 work_Dims[0]=lwork;
16324 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
16325 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
16326 if (capi_work_tmp == NULL((void*)0)) {
16327 if (!PyErr_Occurred())
16328 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgelsy to C/Fortran array" );
16329 } else {
16330 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
16331
16332/*end of frompyobj*/
16333#ifdef F2PY_REPORT_ATEXIT
16334f2py_start_call_clock();
16335#endif
16336/*callfortranroutine*/
16337 (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,jptv,&cond,&r,work,&lwork,rwork,&info) ;
16338 /*(*f2py_func)(&m,&n,&maxmn,&minmn,&nrhs,a,b,jptv,&cond,&r,work,&lwork,rwork,&info);*/
16339if (PyErr_Occurred())
16340 f2py_success = 0;
16341#ifdef F2PY_REPORT_ATEXIT
16342f2py_stop_call_clock();
16343#endif
16344/*end of callfortranroutine*/
16345 if (f2py_success) {
16346/*pyobjfrom*/
16347/*end of pyobjfrom*/
16348 CFUNCSMESS("Building return value.\n");
16349 capi_buildvalue = Py_BuildValue("NNNii",capi_a_tmp,capi_b_tmp,capi_jptv_tmp,r,info);
16350/*closepyobjfrom*/
16351/*end of closepyobjfrom*/
16352 } /*if (f2py_success) after callfortranroutine*/
16353/*cleanupfrompyobj*/
16354 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
16355 } /*if (capi_work_tmp == NULL) ... else of work*/
16356 /* End of cleaning variable work */
16357 } /*CHECKSCALAR(lwork>=minmn+MAX(MAX(2*minmn, n+1), minmn+nrhs))*/
16358 } /*if (f2py_success) of lwork*/
16359 /* End of cleaning variable lwork */
16360 /* End of cleaning variable nrhs */
16361 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
16362 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
16363 /* End of cleaning variable rwork */
16364 } /*if (capi_jptv_tmp == NULL) ... else of jptv*/
16365 /* End of cleaning variable jptv */
16366 } /*CHECKARRAY(maxmn==shape(b,0))*/
16367 } /*if (capi_b_tmp == NULL) ... else of b*/
16368 /* End of cleaning variable b */
16369 /* End of cleaning variable minmn */
16370 /* End of cleaning variable maxmn */
16371 /* End of cleaning variable n */
16372 /* End of cleaning variable m */
16373 /* End of cleaning variable info */
16374 /* End of cleaning variable r */
16375 } /*if (f2py_success) of cond*/
16376 /* End of cleaning variable cond */
16377 } /*if (capi_a_tmp == NULL) ... else of a*/
16378 /* End of cleaning variable a */
16379/*end of cleanupfrompyobj*/
16380 if (capi_buildvalue == NULL((void*)0)) {
16381/*routdebugfailure*/
16382 } else {
16383/*routdebugleave*/
16384 }
16385 CFUNCSMESS("Freeing memory.\n");
16386/*freemem*/
16387#ifdef F2PY_REPORT_ATEXIT
16388f2py_stop_clock();
16389#endif
16390 return capi_buildvalue;
16391}
16392/******************************* end of zgelsy *******************************/
16393
16394/******************************** cgelsy_lwork ********************************/
16395static char doc_f2py_rout__flapack_cgelsy_lwork[] = "\
16396work,info = cgelsy_lwork(m,n,nrhs,cond,[lwork])\n\nWrapper for ``cgelsy_lwork``.\
16397\n\nParameters\n----------\n"
16398"m : input int\n"
16399"n : input int\n"
16400"nrhs : input int\n"
16401"cond : input float\n"
16402"\nOther Parameters\n----------------\n"
16403"lwork : input int, optional\n Default: -1\n"
16404"\nReturns\n-------\n"
16405"work : complex\n"
16406"info : int";
16407/* extern void F_FUNC(cgelsy ,CGELSY )(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */
16408static PyObject *f2py_rout__flapack_cgelsy_lwork(const PyObject *capi_self,
16409 PyObject *capi_args,
16410 PyObject *capi_keywds,
16411 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) {
16412 PyObject * volatile capi_buildvalue = NULL((void*)0);
16413 volatile int f2py_success = 1;
16414/*decl*/
16415
16416 int m = 0;
16417 PyObject *m_capi = Py_None(&_Py_NoneStruct);
16418 int n = 0;
16419 PyObject *n_capi = Py_None(&_Py_NoneStruct);
16420 int maxmn = 0;
16421 int nrhs = 0;
16422 PyObject *nrhs_capi = Py_None(&_Py_NoneStruct);
16423 complex_float a;
16424 complex_float b;
16425 int jptv = 0;
16426 float cond = 0;
16427 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
16428 int r = 0;
16429 complex_float work;
16430 PyObject *work_capi = Py_None(&_Py_NoneStruct);
16431 int lwork = 0;
16432 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
16433 float rwork = 0;
16434 int info = 0;
16435 static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)};
16436
16437/*routdebugenter*/
16438#ifdef F2PY_REPORT_ATEXIT
16439f2py_start_clock();
16440#endif
16441 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
16442 "OOOO|O:_flapack.cgelsy_lwork",\
16443 capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi))
16444 return NULL((void*)0);
16445/*frompyobj*/
16446 /* Processing variable m */
16447 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cgelsy_lwork() 1st argument (m) can't be converted to int");
16448 if (f2py_success) {
16449 /* Processing variable n */
16450 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgelsy_lwork() 2nd argument (n) can't be converted to int");
16451 if (f2py_success) {
16452 /* Processing variable a */
16453 /* Processing variable nrhs */
16454 f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.cgelsy_lwork() 3rd argument (nrhs) can't be converted to int");
16455 if (f2py_success) {
16456 /* Processing variable b */
16457 /* Processing variable cond */
16458 f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.cgelsy_lwork() 4th argument (cond) can't be converted to float");
16459 if (f2py_success) {
16460 /* Processing variable r */
16461 /* Processing variable jptv */
16462 /* Processing variable lwork */
16463 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else
16464 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgelsy_lwork() 1st keyword (lwork) can't be converted to int");
16465 if (f2py_success) {
16466 /* Processing variable work */
16467 /* Processing variable rwork */
16468 /* Processing variable info */
16469 /* Processing variable maxmn */
16470 maxmn = MAX(m,n)((m > n) ? (m) : (n));
16471/*end of frompyobj*/
16472#ifdef F2PY_REPORT_ATEXIT
16473f2py_start_call_clock();
16474#endif
16475/*callfortranroutine*/
16476 (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&jptv,&cond,&r,&work,&lwork,&rwork,&info) ;
16477 /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&jptv,&cond,&r,&work,&lwork,&rwork,&info);*/
16478if (PyErr_Occurred())
16479 f2py_success = 0;
16480#ifdef F2PY_REPORT_ATEXIT
16481f2py_stop_call_clock();
16482#endif
16483/*end of callfortranroutine*/
16484 if (f2py_success) {
16485/*pyobjfrom*/
16486 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
16487/*end of pyobjfrom*/
16488 CFUNCSMESS("Building return value.\n");
16489 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
16490/*closepyobjfrom*/
16491/*end of closepyobjfrom*/
16492 } /*if (f2py_success) after callfortranroutine*/
16493/*cleanupfrompyobj*/
16494 /* End of cleaning variable maxmn */
16495 /* End of cleaning variable info */
16496 /* End of cleaning variable rwork */
16497 /* End of cleaning variable work */
16498 } /*if (f2py_success) of lwork*/
16499 /* End of cleaning variable lwork */
16500 /* End of cleaning variable jptv */
16501 /* End of cleaning variable r */
16502 } /*if (f2py_success) of cond*/
16503 /* End of cleaning variable cond */
16504 /* End of cleaning variable b */
16505 } /*if (f2py_success) of nrhs*/
16506 /* End of cleaning variable nrhs */
16507 /* End of cleaning variable a */
16508 } /*if (f2py_success) of n*/
16509 /* End of cleaning variable n */
16510 } /*if (f2py_success) of m*/
16511 /* End of cleaning variable m */
16512/*end of cleanupfrompyobj*/
16513 if (capi_buildvalue == NULL((void*)0)) {
16514/*routdebugfailure*/
16515 } else {
16516/*routdebugleave*/
16517 }
16518 CFUNCSMESS("Freeing memory.\n");
16519/*freemem*/
16520#ifdef F2PY_REPORT_ATEXIT
16521f2py_stop_clock();
16522#endif
16523 return capi_buildvalue;
16524}
16525/**************************** end of cgelsy_lwork ****************************/
16526
16527/******************************** zgelsy_lwork ********************************/
16528static char doc_f2py_rout__flapack_zgelsy_lwork[] = "\
16529work,info = zgelsy_lwork(m,n,nrhs,cond,[lwork])\n\nWrapper for ``zgelsy_lwork``.\
16530\n\nParameters\n----------\n"
16531"m : input int\n"
16532"n : input int\n"
16533"nrhs : input int\n"
16534"cond : input float\n"
16535"\nOther Parameters\n----------------\n"
16536"lwork : input int, optional\n Default: -1\n"
16537"\nReturns\n-------\n"
16538"work : complex\n"
16539"info : int";
16540/* extern void F_FUNC(zgelsy ,ZGELSY )(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */
16541static PyObject *f2py_rout__flapack_zgelsy_lwork(const PyObject *capi_self,
16542 PyObject *capi_args,
16543 PyObject *capi_keywds,
16544 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) {
16545 PyObject * volatile capi_buildvalue = NULL((void*)0);
16546 volatile int f2py_success = 1;
16547/*decl*/
16548
16549 int m = 0;
16550 PyObject *m_capi = Py_None(&_Py_NoneStruct);
16551 int n = 0;
16552 PyObject *n_capi = Py_None(&_Py_NoneStruct);
16553 int maxmn = 0;
16554 int nrhs = 0;
16555 PyObject *nrhs_capi = Py_None(&_Py_NoneStruct);
16556 complex_double a;
16557 complex_double b;
16558 int jptv = 0;
16559 double cond = 0;
16560 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
16561 int r = 0;
16562 complex_double work;
16563 PyObject *work_capi = Py_None(&_Py_NoneStruct);
16564 int lwork = 0;
16565 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
16566 double rwork = 0;
16567 int info = 0;
16568 static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)};
16569
16570/*routdebugenter*/
16571#ifdef F2PY_REPORT_ATEXIT
16572f2py_start_clock();
16573#endif
16574 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
16575 "OOOO|O:_flapack.zgelsy_lwork",\
16576 capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi))
16577 return NULL((void*)0);
16578/*frompyobj*/
16579 /* Processing variable m */
16580 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zgelsy_lwork() 1st argument (m) can't be converted to int");
16581 if (f2py_success) {
16582 /* Processing variable n */
16583 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgelsy_lwork() 2nd argument (n) can't be converted to int");
16584 if (f2py_success) {
16585 /* Processing variable a */
16586 /* Processing variable nrhs */
16587 f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.zgelsy_lwork() 3rd argument (nrhs) can't be converted to int");
16588 if (f2py_success) {
16589 /* Processing variable b */
16590 /* Processing variable cond */
16591 f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.zgelsy_lwork() 4th argument (cond) can't be converted to double");
16592 if (f2py_success) {
16593 /* Processing variable r */
16594 /* Processing variable jptv */
16595 /* Processing variable lwork */
16596 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else
16597 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgelsy_lwork() 1st keyword (lwork) can't be converted to int");
16598 if (f2py_success) {
16599 /* Processing variable work */
16600 /* Processing variable rwork */
16601 /* Processing variable info */
16602 /* Processing variable maxmn */
16603 maxmn = MAX(m,n)((m > n) ? (m) : (n));
16604/*end of frompyobj*/
16605#ifdef F2PY_REPORT_ATEXIT
16606f2py_start_call_clock();
16607#endif
16608/*callfortranroutine*/
16609 (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&jptv,&cond,&r,&work,&lwork,&rwork,&info) ;
16610 /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&jptv,&cond,&r,&work,&lwork,&rwork,&info);*/
16611if (PyErr_Occurred())
16612 f2py_success = 0;
16613#ifdef F2PY_REPORT_ATEXIT
16614f2py_stop_call_clock();
16615#endif
16616/*end of callfortranroutine*/
16617 if (f2py_success) {
16618/*pyobjfrom*/
16619 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
16620/*end of pyobjfrom*/
16621 CFUNCSMESS("Building return value.\n");
16622 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
16623/*closepyobjfrom*/
16624/*end of closepyobjfrom*/
16625 } /*if (f2py_success) after callfortranroutine*/
16626/*cleanupfrompyobj*/
16627 /* End of cleaning variable maxmn */
16628 /* End of cleaning variable info */
16629 /* End of cleaning variable rwork */
16630 /* End of cleaning variable work */
16631 } /*if (f2py_success) of lwork*/
16632 /* End of cleaning variable lwork */
16633 /* End of cleaning variable jptv */
16634 /* End of cleaning variable r */
16635 } /*if (f2py_success) of cond*/
16636 /* End of cleaning variable cond */
16637 /* End of cleaning variable b */
16638 } /*if (f2py_success) of nrhs*/
16639 /* End of cleaning variable nrhs */
16640 /* End of cleaning variable a */
16641 } /*if (f2py_success) of n*/
16642 /* End of cleaning variable n */
16643 } /*if (f2py_success) of m*/
16644 /* End of cleaning variable m */
16645/*end of cleanupfrompyobj*/
16646 if (capi_buildvalue == NULL((void*)0)) {
16647/*routdebugfailure*/
16648 } else {
16649/*routdebugleave*/
16650 }
16651 CFUNCSMESS("Freeing memory.\n");
16652/*freemem*/
16653#ifdef F2PY_REPORT_ATEXIT
16654f2py_stop_clock();
16655#endif
16656 return capi_buildvalue;
16657}
16658/**************************** end of zgelsy_lwork ****************************/
16659
16660/*********************************** sgelsd ***********************************/
16661static char doc_f2py_rout__flapack_sgelsd[] = "\
16662x,s,rank,info = sgelsd(a,b,lwork,size_iwork,[cond,overwrite_a,overwrite_b])\n\nWrapper for ``sgelsd``.\
16663\n\nParameters\n----------\n"
16664"a : input rank-2 array('f') with bounds (m,n)\n"
16665"b : input rank-2 array('f') with bounds (maxmn,nrhs)\n"
16666"lwork : input int\n"
16667"size_iwork : input int\n"
16668"\nOther Parameters\n----------------\n"
16669"overwrite_a : input int, optional\n Default: 0\n"
16670"overwrite_b : input int, optional\n Default: 0\n"
16671"cond : input float, optional\n Default: -1.0\n"
16672"\nReturns\n-------\n"
16673"x : rank-2 array('f') with bounds (maxmn,nrhs) and b storage\n"
16674"s : rank-1 array('f') with bounds (minmn)\n"
16675"rank : int\n"
16676"info : int";
16677/* extern void F_FUNC(sgelsd,SGELSD)(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */
16678static PyObject *f2py_rout__flapack_sgelsd(const PyObject *capi_self,
16679 PyObject *capi_args,
16680 PyObject *capi_keywds,
16681 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) {
16682 PyObject * volatile capi_buildvalue = NULL((void*)0);
16683 volatile int f2py_success = 1;
16684/*decl*/
16685
16686 int m = 0;
16687 int n = 0;
16688 int minmn = 0;
16689 int maxmn = 0;
16690 int nrhs = 0;
16691 float *a = NULL((void*)0);
16692 npy_intp a_Dims[2] = {-1, -1};
16693 const int a_Rank = 2;
16694 PyArrayObject *capi_a_tmp = NULL((void*)0);
16695 int capi_a_intent = 0;
16696 int capi_overwrite_a = 0;
16697 PyObject *a_capi = Py_None(&_Py_NoneStruct);
16698 float *b = NULL((void*)0);
16699 npy_intp b_Dims[2] = {-1, -1};
16700 const int b_Rank = 2;
16701 PyArrayObject *capi_b_tmp = NULL((void*)0);
16702 int capi_b_intent = 0;
16703 int capi_overwrite_b = 0;
16704 PyObject *b_capi = Py_None(&_Py_NoneStruct);
16705 float *s = NULL((void*)0);
16706 npy_intp s_Dims[1] = {-1};
16707 const int s_Rank = 1;
16708 PyArrayObject *capi_s_tmp = NULL((void*)0);
16709 int capi_s_intent = 0;
16710 float cond = 0;
16711 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
16712 int r = 0;
16713 float *work = NULL((void*)0);
16714 npy_intp work_Dims[1] = {-1};
16715 const int work_Rank = 1;
16716 PyArrayObject *capi_work_tmp = NULL((void*)0);
16717 int capi_work_intent = 0;
16718 int lwork = 0;
16719 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
16720 int size_iwork = 0;
16721 PyObject *size_iwork_capi = Py_None(&_Py_NoneStruct);
16722 int *iwork = NULL((void*)0);
16723 npy_intp iwork_Dims[1] = {-1};
16724 const int iwork_Rank = 1;
16725 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
16726 int capi_iwork_intent = 0;
16727 int info = 0;
16728 static char *capi_kwlist[] = {"a","b","lwork","size_iwork","cond","overwrite_a","overwrite_b",NULL((void*)0)};
16729
16730/*routdebugenter*/
16731#ifdef F2PY_REPORT_ATEXIT
16732f2py_start_clock();
16733#endif
16734 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
16735 "OOOO|Oii:_flapack.sgelsd",\
16736 capi_kwlist,&a_capi,&b_capi,&lwork_capi,&size_iwork_capi,&cond_capi,&capi_overwrite_a,&capi_overwrite_b))
16737 return NULL((void*)0);
16738/*frompyobj*/
16739 /* Processing variable a */
16740 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
16741 ;
16742 capi_a_intent |= F2PY_INTENT_IN1;
16743 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
16744 if (capi_a_tmp == NULL((void*)0)) {
16745 if (!PyErr_Occurred())
16746 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgelsd to C/Fortran array" );
16747 } else {
16748 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
16749
16750 /* Processing variable cond */
16751 if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else
16752 f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.sgelsd() 1st keyword (cond) can't be converted to float");
16753 if (f2py_success) {
16754 /* Processing variable r */
16755 /* Processing variable lwork */
16756 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgelsd() 3rd argument (lwork) can't be converted to int");
16757 if (f2py_success) {
16758 CHECKSCALAR(lwork>=1,"lwork>=1","3rd argument lwork","sgelsd:lwork=%d",lwork)if (!(lwork>=1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgelsd:lwork=%d", "(""lwork>=1"") failed for ""3rd argument lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
16759 /* Processing variable size_iwork */
16760 f2py_success = int_from_pyobj(&size_iwork,size_iwork_capi,"_flapack.sgelsd() 4th argument (size_iwork) can't be converted to int");
16761 if (f2py_success) {
16762 /* Processing variable info */
16763 /* Processing variable m */
16764 m = shape(a,0)a_Dims[0];
16765 /* Processing variable n */
16766 n = shape(a,1)a_Dims[1];
16767 /* Processing variable minmn */
16768 minmn = MIN(m,n)((m < n) ? (m) : (n));
16769 /* Processing variable maxmn */
16770 maxmn = MAX(m,n)((m > n) ? (m) : (n));
16771 /* Processing variable b */
16772 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
16773 b_Dims[0]=maxmn;
16774 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
16775 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
16776 if (capi_b_tmp == NULL((void*)0)) {
16777 if (!PyErr_Occurred())
16778 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sgelsd to C/Fortran array" );
16779 } else {
16780 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
16781
16782 CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"("
"maxmn==shape(b,0)"") failed for ""2nd argument b"); } else
{
16783 /* Processing variable s */
16784 s_Dims[0]=minmn;
16785 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
16786 capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
16787 if (capi_s_tmp == NULL((void*)0)) {
16788 if (!PyErr_Occurred())
16789 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.sgelsd to C/Fortran array" );
16790 } else {
16791 s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
16792
16793 /* Processing variable work */
16794 work_Dims[0]=lwork;
16795 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
16796 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
16797 if (capi_work_tmp == NULL((void*)0)) {
16798 if (!PyErr_Occurred())
16799 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgelsd to C/Fortran array" );
16800 } else {
16801 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
16802
16803 /* Processing variable iwork */
16804 iwork_Dims[0]=MAX(1,size_iwork)((1 > size_iwork) ? (1) : (size_iwork));
16805 capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
16806 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
16807 if (capi_iwork_tmp == NULL((void*)0)) {
16808 if (!PyErr_Occurred())
16809 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.sgelsd to C/Fortran array" );
16810 } else {
16811 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
16812
16813 /* Processing variable nrhs */
16814 nrhs = shape(b,1)b_Dims[1];
16815/*end of frompyobj*/
16816#ifdef F2PY_REPORT_ATEXIT
16817f2py_start_call_clock();
16818#endif
16819/*callfortranroutine*/
16820 (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,s,&cond,&r,work,&lwork,iwork,&info) ;
16821 /*(*f2py_func)(&m,&n,&minmn,&maxmn,&nrhs,a,b,s,&cond,&r,work,&lwork,&size_iwork,iwork,&info);*/
16822if (PyErr_Occurred())
16823 f2py_success = 0;
16824#ifdef F2PY_REPORT_ATEXIT
16825f2py_stop_call_clock();
16826#endif
16827/*end of callfortranroutine*/
16828 if (f2py_success) {
16829/*pyobjfrom*/
16830/*end of pyobjfrom*/
16831 CFUNCSMESS("Building return value.\n");
16832 capi_buildvalue = Py_BuildValue("NNii",capi_b_tmp,capi_s_tmp,r,info);
16833/*closepyobjfrom*/
16834/*end of closepyobjfrom*/
16835 } /*if (f2py_success) after callfortranroutine*/
16836/*cleanupfrompyobj*/
16837 /* End of cleaning variable nrhs */
16838 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
16839 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
16840 /* End of cleaning variable iwork */
16841 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
16842 } /*if (capi_work_tmp == NULL) ... else of work*/
16843 /* End of cleaning variable work */
16844 } /*if (capi_s_tmp == NULL) ... else of s*/
16845 /* End of cleaning variable s */
16846 } /*CHECKARRAY(maxmn==shape(b,0))*/
16847 } /*if (capi_b_tmp == NULL) ... else of b*/
16848 /* End of cleaning variable b */
16849 /* End of cleaning variable maxmn */
16850 /* End of cleaning variable minmn */
16851 /* End of cleaning variable n */
16852 /* End of cleaning variable m */
16853 /* End of cleaning variable info */
16854 } /*if (f2py_success) of size_iwork*/
16855 /* End of cleaning variable size_iwork */
16856 } /*CHECKSCALAR(lwork>=1)*/
16857 } /*if (f2py_success) of lwork*/
16858 /* End of cleaning variable lwork */
16859 /* End of cleaning variable r */
16860 } /*if (f2py_success) of cond*/
16861 /* End of cleaning variable cond */
16862 if((PyObject *)capi_a_tmp!=a_capi) {
16863 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
16864 } /*if (capi_a_tmp == NULL) ... else of a*/
16865 /* End of cleaning variable a */
16866/*end of cleanupfrompyobj*/
16867 if (capi_buildvalue == NULL((void*)0)) {
16868/*routdebugfailure*/
16869 } else {
16870/*routdebugleave*/
16871 }
16872 CFUNCSMESS("Freeing memory.\n");
16873/*freemem*/
16874#ifdef F2PY_REPORT_ATEXIT
16875f2py_stop_clock();
16876#endif
16877 return capi_buildvalue;
16878}
16879/******************************* end of sgelsd *******************************/
16880
16881/*********************************** dgelsd ***********************************/
16882static char doc_f2py_rout__flapack_dgelsd[] = "\
16883x,s,rank,info = dgelsd(a,b,lwork,size_iwork,[cond,overwrite_a,overwrite_b])\n\nWrapper for ``dgelsd``.\
16884\n\nParameters\n----------\n"
16885"a : input rank-2 array('d') with bounds (m,n)\n"
16886"b : input rank-2 array('d') with bounds (maxmn,nrhs)\n"
16887"lwork : input int\n"
16888"size_iwork : input int\n"
16889"\nOther Parameters\n----------------\n"
16890"overwrite_a : input int, optional\n Default: 0\n"
16891"overwrite_b : input int, optional\n Default: 0\n"
16892"cond : input float, optional\n Default: -1.0\n"
16893"\nReturns\n-------\n"
16894"x : rank-2 array('d') with bounds (maxmn,nrhs) and b storage\n"
16895"s : rank-1 array('d') with bounds (minmn)\n"
16896"rank : int\n"
16897"info : int";
16898/* extern void F_FUNC(dgelsd,DGELSD)(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */
16899static PyObject *f2py_rout__flapack_dgelsd(const PyObject *capi_self,
16900 PyObject *capi_args,
16901 PyObject *capi_keywds,
16902 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) {
16903 PyObject * volatile capi_buildvalue = NULL((void*)0);
16904 volatile int f2py_success = 1;
16905/*decl*/
16906
16907 int m = 0;
16908 int n = 0;
16909 int minmn = 0;
16910 int maxmn = 0;
16911 int nrhs = 0;
16912 double *a = NULL((void*)0);
16913 npy_intp a_Dims[2] = {-1, -1};
16914 const int a_Rank = 2;
16915 PyArrayObject *capi_a_tmp = NULL((void*)0);
16916 int capi_a_intent = 0;
16917 int capi_overwrite_a = 0;
16918 PyObject *a_capi = Py_None(&_Py_NoneStruct);
16919 double *b = NULL((void*)0);
16920 npy_intp b_Dims[2] = {-1, -1};
16921 const int b_Rank = 2;
16922 PyArrayObject *capi_b_tmp = NULL((void*)0);
16923 int capi_b_intent = 0;
16924 int capi_overwrite_b = 0;
16925 PyObject *b_capi = Py_None(&_Py_NoneStruct);
16926 double *s = NULL((void*)0);
16927 npy_intp s_Dims[1] = {-1};
16928 const int s_Rank = 1;
16929 PyArrayObject *capi_s_tmp = NULL((void*)0);
16930 int capi_s_intent = 0;
16931 double cond = 0;
16932 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
16933 int r = 0;
16934 double *work = NULL((void*)0);
16935 npy_intp work_Dims[1] = {-1};
16936 const int work_Rank = 1;
16937 PyArrayObject *capi_work_tmp = NULL((void*)0);
16938 int capi_work_intent = 0;
16939 int lwork = 0;
16940 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
16941 int size_iwork = 0;
16942 PyObject *size_iwork_capi = Py_None(&_Py_NoneStruct);
16943 int *iwork = NULL((void*)0);
16944 npy_intp iwork_Dims[1] = {-1};
16945 const int iwork_Rank = 1;
16946 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
16947 int capi_iwork_intent = 0;
16948 int info = 0;
16949 static char *capi_kwlist[] = {"a","b","lwork","size_iwork","cond","overwrite_a","overwrite_b",NULL((void*)0)};
16950
16951/*routdebugenter*/
16952#ifdef F2PY_REPORT_ATEXIT
16953f2py_start_clock();
16954#endif
16955 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
16956 "OOOO|Oii:_flapack.dgelsd",\
16957 capi_kwlist,&a_capi,&b_capi,&lwork_capi,&size_iwork_capi,&cond_capi,&capi_overwrite_a,&capi_overwrite_b))
16958 return NULL((void*)0);
16959/*frompyobj*/
16960 /* Processing variable a */
16961 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
16962 ;
16963 capi_a_intent |= F2PY_INTENT_IN1;
16964 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
16965 if (capi_a_tmp == NULL((void*)0)) {
16966 if (!PyErr_Occurred())
16967 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgelsd to C/Fortran array" );
16968 } else {
16969 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
16970
16971 /* Processing variable cond */
16972 if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else
16973 f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.dgelsd() 1st keyword (cond) can't be converted to double");
16974 if (f2py_success) {
16975 /* Processing variable r */
16976 /* Processing variable lwork */
16977 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgelsd() 3rd argument (lwork) can't be converted to int");
16978 if (f2py_success) {
16979 CHECKSCALAR(lwork>=1,"lwork>=1","3rd argument lwork","dgelsd:lwork=%d",lwork)if (!(lwork>=1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgelsd:lwork=%d", "(""lwork>=1"") failed for ""3rd argument lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
16980 /* Processing variable size_iwork */
16981 f2py_success = int_from_pyobj(&size_iwork,size_iwork_capi,"_flapack.dgelsd() 4th argument (size_iwork) can't be converted to int");
16982 if (f2py_success) {
16983 /* Processing variable info */
16984 /* Processing variable m */
16985 m = shape(a,0)a_Dims[0];
16986 /* Processing variable n */
16987 n = shape(a,1)a_Dims[1];
16988 /* Processing variable minmn */
16989 minmn = MIN(m,n)((m < n) ? (m) : (n));
16990 /* Processing variable maxmn */
16991 maxmn = MAX(m,n)((m > n) ? (m) : (n));
16992 /* Processing variable b */
16993 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
16994 b_Dims[0]=maxmn;
16995 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
16996 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
16997 if (capi_b_tmp == NULL((void*)0)) {
16998 if (!PyErr_Occurred())
16999 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dgelsd to C/Fortran array" );
17000 } else {
17001 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
17002
17003 CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"("
"maxmn==shape(b,0)"") failed for ""2nd argument b"); } else
{
17004 /* Processing variable s */
17005 s_Dims[0]=minmn;
17006 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
17007 capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
17008 if (capi_s_tmp == NULL((void*)0)) {
17009 if (!PyErr_Occurred())
17010 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.dgelsd to C/Fortran array" );
17011 } else {
17012 s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
17013
17014 /* Processing variable work */
17015 work_Dims[0]=lwork;
17016 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
17017 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
17018 if (capi_work_tmp == NULL((void*)0)) {
17019 if (!PyErr_Occurred())
17020 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgelsd to C/Fortran array" );
17021 } else {
17022 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
17023
17024 /* Processing variable iwork */
17025 iwork_Dims[0]=MAX(1,size_iwork)((1 > size_iwork) ? (1) : (size_iwork));
17026 capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
17027 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
17028 if (capi_iwork_tmp == NULL((void*)0)) {
17029 if (!PyErr_Occurred())
17030 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dgelsd to C/Fortran array" );
17031 } else {
17032 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
17033
17034 /* Processing variable nrhs */
17035 nrhs = shape(b,1)b_Dims[1];
17036/*end of frompyobj*/
17037#ifdef F2PY_REPORT_ATEXIT
17038f2py_start_call_clock();
17039#endif
17040/*callfortranroutine*/
17041 (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,s,&cond,&r,work,&lwork,iwork,&info) ;
17042 /*(*f2py_func)(&m,&n,&minmn,&maxmn,&nrhs,a,b,s,&cond,&r,work,&lwork,&size_iwork,iwork,&info);*/
17043if (PyErr_Occurred())
17044 f2py_success = 0;
17045#ifdef F2PY_REPORT_ATEXIT
17046f2py_stop_call_clock();
17047#endif
17048/*end of callfortranroutine*/
17049 if (f2py_success) {
17050/*pyobjfrom*/
17051/*end of pyobjfrom*/
17052 CFUNCSMESS("Building return value.\n");
17053 capi_buildvalue = Py_BuildValue("NNii",capi_b_tmp,capi_s_tmp,r,info);
17054/*closepyobjfrom*/
17055/*end of closepyobjfrom*/
17056 } /*if (f2py_success) after callfortranroutine*/
17057/*cleanupfrompyobj*/
17058 /* End of cleaning variable nrhs */
17059 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
17060 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
17061 /* End of cleaning variable iwork */
17062 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
17063 } /*if (capi_work_tmp == NULL) ... else of work*/
17064 /* End of cleaning variable work */
17065 } /*if (capi_s_tmp == NULL) ... else of s*/
17066 /* End of cleaning variable s */
17067 } /*CHECKARRAY(maxmn==shape(b,0))*/
17068 } /*if (capi_b_tmp == NULL) ... else of b*/
17069 /* End of cleaning variable b */
17070 /* End of cleaning variable maxmn */
17071 /* End of cleaning variable minmn */
17072 /* End of cleaning variable n */
17073 /* End of cleaning variable m */
17074 /* End of cleaning variable info */
17075 } /*if (f2py_success) of size_iwork*/
17076 /* End of cleaning variable size_iwork */
17077 } /*CHECKSCALAR(lwork>=1)*/
17078 } /*if (f2py_success) of lwork*/
17079 /* End of cleaning variable lwork */
17080 /* End of cleaning variable r */
17081 } /*if (f2py_success) of cond*/
17082 /* End of cleaning variable cond */
17083 if((PyObject *)capi_a_tmp!=a_capi) {
17084 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
17085 } /*if (capi_a_tmp == NULL) ... else of a*/
17086 /* End of cleaning variable a */
17087/*end of cleanupfrompyobj*/
17088 if (capi_buildvalue == NULL((void*)0)) {
17089/*routdebugfailure*/
17090 } else {
17091/*routdebugleave*/
17092 }
17093 CFUNCSMESS("Freeing memory.\n");
17094/*freemem*/
17095#ifdef F2PY_REPORT_ATEXIT
17096f2py_stop_clock();
17097#endif
17098 return capi_buildvalue;
17099}
17100/******************************* end of dgelsd *******************************/
17101
17102/******************************** sgelsd_lwork ********************************/
17103static char doc_f2py_rout__flapack_sgelsd_lwork[] = "\
17104work,iwork,info = sgelsd_lwork(m,n,nrhs,[cond,lwork])\n\nWrapper for ``sgelsd_lwork``.\
17105\n\nParameters\n----------\n"
17106"m : input int\n"
17107"n : input int\n"
17108"nrhs : input int\n"
17109"\nOther Parameters\n----------------\n"
17110"cond : input float, optional\n Default: -1.0\n"
17111"lwork : input int, optional\n Default: -1\n"
17112"\nReturns\n-------\n"
17113"work : float\n"
17114"iwork : int\n"
17115"info : int";
17116/* extern void F_FUNC(sgelsd ,SGELSD )(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */
17117static PyObject *f2py_rout__flapack_sgelsd_lwork(const PyObject *capi_self,
17118 PyObject *capi_args,
17119 PyObject *capi_keywds,
17120 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) {
17121 PyObject * volatile capi_buildvalue = NULL((void*)0);
17122 volatile int f2py_success = 1;
17123/*decl*/
17124
17125 int m = 0;
17126 PyObject *m_capi = Py_None(&_Py_NoneStruct);
17127 int n = 0;
17128 PyObject *n_capi = Py_None(&_Py_NoneStruct);
17129 int maxmn = 0;
17130 int nrhs = 0;
17131 PyObject *nrhs_capi = Py_None(&_Py_NoneStruct);
17132 float a = 0;
17133 float b = 0;
17134 float s = 0;
17135 float cond = 0;
17136 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
17137 int r = 0;
17138 float work = 0;
17139 int lwork = 0;
17140 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
17141 int iwork = 0;
17142 int info = 0;
17143 static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)};
17144
17145/*routdebugenter*/
17146#ifdef F2PY_REPORT_ATEXIT
17147f2py_start_clock();
17148#endif
17149 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
17150 "OOO|OO:_flapack.sgelsd_lwork",\
17151 capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi))
17152 return NULL((void*)0);
17153/*frompyobj*/
17154 /* Processing variable m */
17155 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sgelsd_lwork() 1st argument (m) can't be converted to int");
17156 if (f2py_success) {
17157 /* Processing variable n */
17158 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgelsd_lwork() 2nd argument (n) can't be converted to int");
17159 if (f2py_success) {
17160 /* Processing variable a */
17161 /* Processing variable nrhs */
17162 f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.sgelsd_lwork() 3rd argument (nrhs) can't be converted to int");
17163 if (f2py_success) {
17164 /* Processing variable b */
17165 /* Processing variable cond */
17166 if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else
17167 f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.sgelsd_lwork() 1st keyword (cond) can't be converted to float");
17168 if (f2py_success) {
17169 /* Processing variable r */
17170 /* Processing variable s */
17171 /* Processing variable lwork */
17172 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else
17173 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgelsd_lwork() 2nd keyword (lwork) can't be converted to int");
17174 if (f2py_success) {
17175 /* Processing variable work */
17176 /* Processing variable iwork */
17177 /* Processing variable info */
17178 /* Processing variable maxmn */
17179 maxmn = MAX(m,n)((m > n) ? (m) : (n));
17180/*end of frompyobj*/
17181#ifdef F2PY_REPORT_ATEXIT
17182f2py_start_call_clock();
17183#endif
17184/*callfortranroutine*/
17185 (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&s,&cond,&r,&work,&lwork,&iwork,&info) ;
17186 /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&s,&cond,&r,&work,&lwork,&iwork,&info);*/
17187if (PyErr_Occurred())
17188 f2py_success = 0;
17189#ifdef F2PY_REPORT_ATEXIT
17190f2py_stop_call_clock();
17191#endif
17192/*end of callfortranroutine*/
17193 if (f2py_success) {
17194/*pyobjfrom*/
17195/*end of pyobjfrom*/
17196 CFUNCSMESS("Building return value.\n");
17197 capi_buildvalue = Py_BuildValue("fii",work,iwork,info);
17198/*closepyobjfrom*/
17199/*end of closepyobjfrom*/
17200 } /*if (f2py_success) after callfortranroutine*/
17201/*cleanupfrompyobj*/
17202 /* End of cleaning variable maxmn */
17203 /* End of cleaning variable info */
17204 /* End of cleaning variable iwork */
17205 /* End of cleaning variable work */
17206 } /*if (f2py_success) of lwork*/
17207 /* End of cleaning variable lwork */
17208 /* End of cleaning variable s */
17209 /* End of cleaning variable r */
17210 } /*if (f2py_success) of cond*/
17211 /* End of cleaning variable cond */
17212 /* End of cleaning variable b */
17213 } /*if (f2py_success) of nrhs*/
17214 /* End of cleaning variable nrhs */
17215 /* End of cleaning variable a */
17216 } /*if (f2py_success) of n*/
17217 /* End of cleaning variable n */
17218 } /*if (f2py_success) of m*/
17219 /* End of cleaning variable m */
17220/*end of cleanupfrompyobj*/
17221 if (capi_buildvalue == NULL((void*)0)) {
17222/*routdebugfailure*/
17223 } else {
17224/*routdebugleave*/
17225 }
17226 CFUNCSMESS("Freeing memory.\n");
17227/*freemem*/
17228#ifdef F2PY_REPORT_ATEXIT
17229f2py_stop_clock();
17230#endif
17231 return capi_buildvalue;
17232}
17233/**************************** end of sgelsd_lwork ****************************/
17234
17235/******************************** dgelsd_lwork ********************************/
17236static char doc_f2py_rout__flapack_dgelsd_lwork[] = "\
17237work,iwork,info = dgelsd_lwork(m,n,nrhs,[cond,lwork])\n\nWrapper for ``dgelsd_lwork``.\
17238\n\nParameters\n----------\n"
17239"m : input int\n"
17240"n : input int\n"
17241"nrhs : input int\n"
17242"\nOther Parameters\n----------------\n"
17243"cond : input float, optional\n Default: -1.0\n"
17244"lwork : input int, optional\n Default: -1\n"
17245"\nReturns\n-------\n"
17246"work : float\n"
17247"iwork : int\n"
17248"info : int";
17249/* extern void F_FUNC(dgelsd ,DGELSD )(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */
17250static PyObject *f2py_rout__flapack_dgelsd_lwork(const PyObject *capi_self,
17251 PyObject *capi_args,
17252 PyObject *capi_keywds,
17253 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) {
17254 PyObject * volatile capi_buildvalue = NULL((void*)0);
17255 volatile int f2py_success = 1;
17256/*decl*/
17257
17258 int m = 0;
17259 PyObject *m_capi = Py_None(&_Py_NoneStruct);
17260 int n = 0;
17261 PyObject *n_capi = Py_None(&_Py_NoneStruct);
17262 int maxmn = 0;
17263 int nrhs = 0;
17264 PyObject *nrhs_capi = Py_None(&_Py_NoneStruct);
17265 double a = 0;
17266 double b = 0;
17267 double s = 0;
17268 double cond = 0;
17269 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
17270 int r = 0;
17271 double work = 0;
17272 int lwork = 0;
17273 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
17274 int iwork = 0;
17275 int info = 0;
17276 static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)};
17277
17278/*routdebugenter*/
17279#ifdef F2PY_REPORT_ATEXIT
17280f2py_start_clock();
17281#endif
17282 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
17283 "OOO|OO:_flapack.dgelsd_lwork",\
17284 capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi))
17285 return NULL((void*)0);
17286/*frompyobj*/
17287 /* Processing variable m */
17288 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dgelsd_lwork() 1st argument (m) can't be converted to int");
17289 if (f2py_success) {
17290 /* Processing variable n */
17291 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgelsd_lwork() 2nd argument (n) can't be converted to int");
17292 if (f2py_success) {
17293 /* Processing variable a */
17294 /* Processing variable nrhs */
17295 f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.dgelsd_lwork() 3rd argument (nrhs) can't be converted to int");
17296 if (f2py_success) {
17297 /* Processing variable b */
17298 /* Processing variable cond */
17299 if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else
17300 f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.dgelsd_lwork() 1st keyword (cond) can't be converted to double");
17301 if (f2py_success) {
17302 /* Processing variable r */
17303 /* Processing variable s */
17304 /* Processing variable lwork */
17305 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else
17306 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgelsd_lwork() 2nd keyword (lwork) can't be converted to int");
17307 if (f2py_success) {
17308 /* Processing variable work */
17309 /* Processing variable iwork */
17310 /* Processing variable info */
17311 /* Processing variable maxmn */
17312 maxmn = MAX(m,n)((m > n) ? (m) : (n));
17313/*end of frompyobj*/
17314#ifdef F2PY_REPORT_ATEXIT
17315f2py_start_call_clock();
17316#endif
17317/*callfortranroutine*/
17318 (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&s,&cond,&r,&work,&lwork,&iwork,&info) ;
17319 /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&s,&cond,&r,&work,&lwork,&iwork,&info);*/
17320if (PyErr_Occurred())
17321 f2py_success = 0;
17322#ifdef F2PY_REPORT_ATEXIT
17323f2py_stop_call_clock();
17324#endif
17325/*end of callfortranroutine*/
17326 if (f2py_success) {
17327/*pyobjfrom*/
17328/*end of pyobjfrom*/
17329 CFUNCSMESS("Building return value.\n");
17330 capi_buildvalue = Py_BuildValue("dii",work,iwork,info);
17331/*closepyobjfrom*/
17332/*end of closepyobjfrom*/
17333 } /*if (f2py_success) after callfortranroutine*/
17334/*cleanupfrompyobj*/
17335 /* End of cleaning variable maxmn */
17336 /* End of cleaning variable info */
17337 /* End of cleaning variable iwork */
17338 /* End of cleaning variable work */
17339 } /*if (f2py_success) of lwork*/
17340 /* End of cleaning variable lwork */
17341 /* End of cleaning variable s */
17342 /* End of cleaning variable r */
17343 } /*if (f2py_success) of cond*/
17344 /* End of cleaning variable cond */
17345 /* End of cleaning variable b */
17346 } /*if (f2py_success) of nrhs*/
17347 /* End of cleaning variable nrhs */
17348 /* End of cleaning variable a */
17349 } /*if (f2py_success) of n*/
17350 /* End of cleaning variable n */
17351 } /*if (f2py_success) of m*/
17352 /* End of cleaning variable m */
17353/*end of cleanupfrompyobj*/
17354 if (capi_buildvalue == NULL((void*)0)) {
17355/*routdebugfailure*/
17356 } else {
17357/*routdebugleave*/
17358 }
17359 CFUNCSMESS("Freeing memory.\n");
17360/*freemem*/
17361#ifdef F2PY_REPORT_ATEXIT
17362f2py_stop_clock();
17363#endif
17364 return capi_buildvalue;
17365}
17366/**************************** end of dgelsd_lwork ****************************/
17367
17368/*********************************** cgelsd ***********************************/
17369static char doc_f2py_rout__flapack_cgelsd[] = "\
17370x,s,rank,info = cgelsd(a,b,lwork,size_rwork,size_iwork,[cond,overwrite_a,overwrite_b])\n\nWrapper for ``cgelsd``.\
17371\n\nParameters\n----------\n"
17372"a : input rank-2 array('F') with bounds (m,n)\n"
17373"b : input rank-2 array('F') with bounds (maxmn,nrhs)\n"
17374"lwork : input int\n"
17375"size_rwork : input int\n"
17376"size_iwork : input int\n"
17377"\nOther Parameters\n----------------\n"
17378"overwrite_a : input int, optional\n Default: 0\n"
17379"overwrite_b : input int, optional\n Default: 0\n"
17380"cond : input float, optional\n Default: -1.0\n"
17381"\nReturns\n-------\n"
17382"x : rank-2 array('F') with bounds (maxmn,nrhs) and b storage\n"
17383"s : rank-1 array('f') with bounds (minmn)\n"
17384"rank : int\n"
17385"info : int";
17386/* extern void F_FUNC(cgelsd,CGELSD)(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*, complex_float*,F_INT*,float*,F_INT*,F_INT* ); */
17387static PyObject *f2py_rout__flapack_cgelsd(const PyObject *capi_self,
17388 PyObject *capi_args,
17389 PyObject *capi_keywds,
17390 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*, complex_float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
17391 PyObject * volatile capi_buildvalue = NULL((void*)0);
17392 volatile int f2py_success = 1;
17393/*decl*/
17394
17395 int m = 0;
17396 int n = 0;
17397 int minmn = 0;
17398 int maxmn = 0;
17399 int nrhs = 0;
17400 complex_float *a = NULL((void*)0);
17401 npy_intp a_Dims[2] = {-1, -1};
17402 const int a_Rank = 2;
17403 PyArrayObject *capi_a_tmp = NULL((void*)0);
17404 int capi_a_intent = 0;
17405 int capi_overwrite_a = 0;
17406 PyObject *a_capi = Py_None(&_Py_NoneStruct);
17407 complex_float *b = NULL((void*)0);
17408 npy_intp b_Dims[2] = {-1, -1};
17409 const int b_Rank = 2;
17410 PyArrayObject *capi_b_tmp = NULL((void*)0);
17411 int capi_b_intent = 0;
17412 int capi_overwrite_b = 0;
17413 PyObject *b_capi = Py_None(&_Py_NoneStruct);
17414 float *s = NULL((void*)0);
17415 npy_intp s_Dims[1] = {-1};
17416 const int s_Rank = 1;
17417 PyArrayObject *capi_s_tmp = NULL((void*)0);
17418 int capi_s_intent = 0;
17419 float cond = 0;
17420 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
17421 int r = 0;
17422 complex_float *work = NULL((void*)0);
17423 npy_intp work_Dims[1] = {-1};
17424 const int work_Rank = 1;
17425 PyArrayObject *capi_work_tmp = NULL((void*)0);
17426 int capi_work_intent = 0;
17427 int lwork = 0;
17428 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
17429 int size_rwork = 0;
17430 PyObject *size_rwork_capi = Py_None(&_Py_NoneStruct);
17431 float *rwork = NULL((void*)0);
17432 npy_intp rwork_Dims[1] = {-1};
17433 const int rwork_Rank = 1;
17434 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
17435 int capi_rwork_intent = 0;
17436 int size_iwork = 0;
17437 PyObject *size_iwork_capi = Py_None(&_Py_NoneStruct);
17438 int *iwork = NULL((void*)0);
17439 npy_intp iwork_Dims[1] = {-1};
17440 const int iwork_Rank = 1;
17441 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
17442 int capi_iwork_intent = 0;
17443 int info = 0;
17444 static char *capi_kwlist[] = {"a","b","lwork","size_rwork","size_iwork","cond","overwrite_a","overwrite_b",NULL((void*)0)};
17445
17446/*routdebugenter*/
17447#ifdef F2PY_REPORT_ATEXIT
17448f2py_start_clock();
17449#endif
17450 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
17451 "OOOOO|Oii:_flapack.cgelsd",\
17452 capi_kwlist,&a_capi,&b_capi,&lwork_capi,&size_rwork_capi,&size_iwork_capi,&cond_capi,&capi_overwrite_a,&capi_overwrite_b))
17453 return NULL((void*)0);
17454/*frompyobj*/
17455 /* Processing variable a */
17456 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
17457 ;
17458 capi_a_intent |= F2PY_INTENT_IN1;
17459 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
17460 if (capi_a_tmp == NULL((void*)0)) {
17461 if (!PyErr_Occurred())
17462 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgelsd to C/Fortran array" );
17463 } else {
17464 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
17465
17466 /* Processing variable cond */
17467 if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else
17468 f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.cgelsd() 1st keyword (cond) can't be converted to float");
17469 if (f2py_success) {
17470 /* Processing variable r */
17471 /* Processing variable lwork */
17472 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgelsd() 3rd argument (lwork) can't be converted to int");
17473 if (f2py_success) {
17474 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","3rd argument lwork","cgelsd:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgelsd:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"3rd argument lwork", lwork); PyErr_SetString(_flapack_error,
errstring); } else
{
17475 /* Processing variable size_rwork */
17476 f2py_success = int_from_pyobj(&size_rwork,size_rwork_capi,"_flapack.cgelsd() 4th argument (size_rwork) can't be converted to int");
17477 if (f2py_success) {
17478 /* Processing variable size_iwork */
17479 f2py_success = int_from_pyobj(&size_iwork,size_iwork_capi,"_flapack.cgelsd() 5th argument (size_iwork) can't be converted to int");
17480 if (f2py_success) {
17481 /* Processing variable info */
17482 /* Processing variable m */
17483 m = shape(a,0)a_Dims[0];
17484 /* Processing variable n */
17485 n = shape(a,1)a_Dims[1];
17486 /* Processing variable minmn */
17487 minmn = MIN(m,n)((m < n) ? (m) : (n));
17488 /* Processing variable maxmn */
17489 maxmn = MAX(m,n)((m > n) ? (m) : (n));
17490 /* Processing variable b */
17491 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
17492 b_Dims[0]=maxmn;
17493 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
17494 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
17495 if (capi_b_tmp == NULL((void*)0)) {
17496 if (!PyErr_Occurred())
17497 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cgelsd to C/Fortran array" );
17498 } else {
17499 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
17500
17501 CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"("
"maxmn==shape(b,0)"") failed for ""2nd argument b"); } else
{
17502 /* Processing variable s */
17503 s_Dims[0]=minmn;
17504 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
17505 capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
17506 if (capi_s_tmp == NULL((void*)0)) {
17507 if (!PyErr_Occurred())
17508 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.cgelsd to C/Fortran array" );
17509 } else {
17510 s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
17511
17512 /* Processing variable work */
17513 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
17514 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
17515 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
17516 if (capi_work_tmp == NULL((void*)0)) {
17517 if (!PyErr_Occurred())
17518 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgelsd to C/Fortran array" );
17519 } else {
17520 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
17521
17522 /* Processing variable rwork */
17523 rwork_Dims[0]=MAX(1,size_rwork)((1 > size_rwork) ? (1) : (size_rwork));
17524 capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
17525 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
17526 if (capi_rwork_tmp == NULL((void*)0)) {
17527 if (!PyErr_Occurred())
17528 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgelsd to C/Fortran array" );
17529 } else {
17530 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
17531
17532 /* Processing variable iwork */
17533 iwork_Dims[0]=MAX(1,size_iwork)((1 > size_iwork) ? (1) : (size_iwork));
17534 capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
17535 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
17536 if (capi_iwork_tmp == NULL((void*)0)) {
17537 if (!PyErr_Occurred())
17538 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.cgelsd to C/Fortran array" );
17539 } else {
17540 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
17541
17542 /* Processing variable nrhs */
17543 nrhs = shape(b,1)b_Dims[1];
17544/*end of frompyobj*/
17545#ifdef F2PY_REPORT_ATEXIT
17546f2py_start_call_clock();
17547#endif
17548/*callfortranroutine*/
17549 (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,s,&cond,&r,work,&lwork, rwork, iwork,&info) ;
17550 /*(*f2py_func)(&m,&n,&minmn,&maxmn,&nrhs,a,b,s,&cond,&r,work,&lwork,&size_rwork,rwork,&size_iwork,iwork,&info);*/
17551if (PyErr_Occurred())
17552 f2py_success = 0;
17553#ifdef F2PY_REPORT_ATEXIT
17554f2py_stop_call_clock();
17555#endif
17556/*end of callfortranroutine*/
17557 if (f2py_success) {
17558/*pyobjfrom*/
17559/*end of pyobjfrom*/
17560 CFUNCSMESS("Building return value.\n");
17561 capi_buildvalue = Py_BuildValue("NNii",capi_b_tmp,capi_s_tmp,r,info);
17562/*closepyobjfrom*/
17563/*end of closepyobjfrom*/
17564 } /*if (f2py_success) after callfortranroutine*/
17565/*cleanupfrompyobj*/
17566 /* End of cleaning variable nrhs */
17567 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
17568 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
17569 /* End of cleaning variable iwork */
17570 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
17571 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
17572 /* End of cleaning variable rwork */
17573 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
17574 } /*if (capi_work_tmp == NULL) ... else of work*/
17575 /* End of cleaning variable work */
17576 } /*if (capi_s_tmp == NULL) ... else of s*/
17577 /* End of cleaning variable s */
17578 } /*CHECKARRAY(maxmn==shape(b,0))*/
17579 } /*if (capi_b_tmp == NULL) ... else of b*/
17580 /* End of cleaning variable b */
17581 /* End of cleaning variable maxmn */
17582 /* End of cleaning variable minmn */
17583 /* End of cleaning variable n */
17584 /* End of cleaning variable m */
17585 /* End of cleaning variable info */
17586 } /*if (f2py_success) of size_iwork*/
17587 /* End of cleaning variable size_iwork */
17588 } /*if (f2py_success) of size_rwork*/
17589 /* End of cleaning variable size_rwork */
17590 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
17591 } /*if (f2py_success) of lwork*/
17592 /* End of cleaning variable lwork */
17593 /* End of cleaning variable r */
17594 } /*if (f2py_success) of cond*/
17595 /* End of cleaning variable cond */
17596 if((PyObject *)capi_a_tmp!=a_capi) {
17597 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
17598 } /*if (capi_a_tmp == NULL) ... else of a*/
17599 /* End of cleaning variable a */
17600/*end of cleanupfrompyobj*/
17601 if (capi_buildvalue == NULL((void*)0)) {
17602/*routdebugfailure*/
17603 } else {
17604/*routdebugleave*/
17605 }
17606 CFUNCSMESS("Freeing memory.\n");
17607/*freemem*/
17608#ifdef F2PY_REPORT_ATEXIT
17609f2py_stop_clock();
17610#endif
17611 return capi_buildvalue;
17612}
17613/******************************* end of cgelsd *******************************/
17614
17615/*********************************** zgelsd ***********************************/
17616static char doc_f2py_rout__flapack_zgelsd[] = "\
17617x,s,rank,info = zgelsd(a,b,lwork,size_rwork,size_iwork,[cond,overwrite_a,overwrite_b])\n\nWrapper for ``zgelsd``.\
17618\n\nParameters\n----------\n"
17619"a : input rank-2 array('D') with bounds (m,n)\n"
17620"b : input rank-2 array('D') with bounds (maxmn,nrhs)\n"
17621"lwork : input int\n"
17622"size_rwork : input int\n"
17623"size_iwork : input int\n"
17624"\nOther Parameters\n----------------\n"
17625"overwrite_a : input int, optional\n Default: 0\n"
17626"overwrite_b : input int, optional\n Default: 0\n"
17627"cond : input float, optional\n Default: -1.0\n"
17628"\nReturns\n-------\n"
17629"x : rank-2 array('D') with bounds (maxmn,nrhs) and b storage\n"
17630"s : rank-1 array('d') with bounds (minmn)\n"
17631"rank : int\n"
17632"info : int";
17633/* extern void F_FUNC(zgelsd,ZGELSD)(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*, complex_double*,F_INT*,double*,F_INT*,F_INT* ); */
17634static PyObject *f2py_rout__flapack_zgelsd(const PyObject *capi_self,
17635 PyObject *capi_args,
17636 PyObject *capi_keywds,
17637 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*, complex_double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
17638 PyObject * volatile capi_buildvalue = NULL((void*)0);
17639 volatile int f2py_success = 1;
17640/*decl*/
17641
17642 int m = 0;
17643 int n = 0;
17644 int minmn = 0;
17645 int maxmn = 0;
17646 int nrhs = 0;
17647 complex_double *a = NULL((void*)0);
17648 npy_intp a_Dims[2] = {-1, -1};
17649 const int a_Rank = 2;
17650 PyArrayObject *capi_a_tmp = NULL((void*)0);
17651 int capi_a_intent = 0;
17652 int capi_overwrite_a = 0;
17653 PyObject *a_capi = Py_None(&_Py_NoneStruct);
17654 complex_double *b = NULL((void*)0);
17655 npy_intp b_Dims[2] = {-1, -1};
17656 const int b_Rank = 2;
17657 PyArrayObject *capi_b_tmp = NULL((void*)0);
17658 int capi_b_intent = 0;
17659 int capi_overwrite_b = 0;
17660 PyObject *b_capi = Py_None(&_Py_NoneStruct);
17661 double *s = NULL((void*)0);
17662 npy_intp s_Dims[1] = {-1};
17663 const int s_Rank = 1;
17664 PyArrayObject *capi_s_tmp = NULL((void*)0);
17665 int capi_s_intent = 0;
17666 double cond = 0;
17667 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
17668 int r = 0;
17669 complex_double *work = NULL((void*)0);
17670 npy_intp work_Dims[1] = {-1};
17671 const int work_Rank = 1;
17672 PyArrayObject *capi_work_tmp = NULL((void*)0);
17673 int capi_work_intent = 0;
17674 int lwork = 0;
17675 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
17676 int size_rwork = 0;
17677 PyObject *size_rwork_capi = Py_None(&_Py_NoneStruct);
17678 double *rwork = NULL((void*)0);
17679 npy_intp rwork_Dims[1] = {-1};
17680 const int rwork_Rank = 1;
17681 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
17682 int capi_rwork_intent = 0;
17683 int size_iwork = 0;
17684 PyObject *size_iwork_capi = Py_None(&_Py_NoneStruct);
17685 int *iwork = NULL((void*)0);
17686 npy_intp iwork_Dims[1] = {-1};
17687 const int iwork_Rank = 1;
17688 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
17689 int capi_iwork_intent = 0;
17690 int info = 0;
17691 static char *capi_kwlist[] = {"a","b","lwork","size_rwork","size_iwork","cond","overwrite_a","overwrite_b",NULL((void*)0)};
17692
17693/*routdebugenter*/
17694#ifdef F2PY_REPORT_ATEXIT
17695f2py_start_clock();
17696#endif
17697 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
17698 "OOOOO|Oii:_flapack.zgelsd",\
17699 capi_kwlist,&a_capi,&b_capi,&lwork_capi,&size_rwork_capi,&size_iwork_capi,&cond_capi,&capi_overwrite_a,&capi_overwrite_b))
17700 return NULL((void*)0);
17701/*frompyobj*/
17702 /* Processing variable a */
17703 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
17704 ;
17705 capi_a_intent |= F2PY_INTENT_IN1;
17706 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
17707 if (capi_a_tmp == NULL((void*)0)) {
17708 if (!PyErr_Occurred())
17709 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgelsd to C/Fortran array" );
17710 } else {
17711 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
17712
17713 /* Processing variable cond */
17714 if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else
17715 f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.zgelsd() 1st keyword (cond) can't be converted to double");
17716 if (f2py_success) {
17717 /* Processing variable r */
17718 /* Processing variable lwork */
17719 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgelsd() 3rd argument (lwork) can't be converted to int");
17720 if (f2py_success) {
17721 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","3rd argument lwork","zgelsd:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgelsd:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"3rd argument lwork", lwork); PyErr_SetString(_flapack_error,
errstring); } else
{
17722 /* Processing variable size_rwork */
17723 f2py_success = int_from_pyobj(&size_rwork,size_rwork_capi,"_flapack.zgelsd() 4th argument (size_rwork) can't be converted to int");
17724 if (f2py_success) {
17725 /* Processing variable size_iwork */
17726 f2py_success = int_from_pyobj(&size_iwork,size_iwork_capi,"_flapack.zgelsd() 5th argument (size_iwork) can't be converted to int");
17727 if (f2py_success) {
17728 /* Processing variable info */
17729 /* Processing variable m */
17730 m = shape(a,0)a_Dims[0];
17731 /* Processing variable n */
17732 n = shape(a,1)a_Dims[1];
17733 /* Processing variable minmn */
17734 minmn = MIN(m,n)((m < n) ? (m) : (n));
17735 /* Processing variable maxmn */
17736 maxmn = MAX(m,n)((m > n) ? (m) : (n));
17737 /* Processing variable b */
17738 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
17739 b_Dims[0]=maxmn;
17740 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
17741 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
17742 if (capi_b_tmp == NULL((void*)0)) {
17743 if (!PyErr_Occurred())
17744 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zgelsd to C/Fortran array" );
17745 } else {
17746 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
17747
17748 CHECKARRAY(maxmn==shape(b,0),"maxmn==shape(b,0)","2nd argument b")if (!(maxmn==b_Dims[0])) { PyErr_SetString(_flapack_error,"("
"maxmn==shape(b,0)"") failed for ""2nd argument b"); } else
{
17749 /* Processing variable s */
17750 s_Dims[0]=minmn;
17751 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
17752 capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
17753 if (capi_s_tmp == NULL((void*)0)) {
17754 if (!PyErr_Occurred())
17755 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.zgelsd to C/Fortran array" );
17756 } else {
17757 s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
17758
17759 /* Processing variable work */
17760 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
17761 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
17762 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
17763 if (capi_work_tmp == NULL((void*)0)) {
17764 if (!PyErr_Occurred())
17765 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgelsd to C/Fortran array" );
17766 } else {
17767 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
17768
17769 /* Processing variable rwork */
17770 rwork_Dims[0]=MAX(1,size_rwork)((1 > size_rwork) ? (1) : (size_rwork));
17771 capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
17772 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
17773 if (capi_rwork_tmp == NULL((void*)0)) {
17774 if (!PyErr_Occurred())
17775 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgelsd to C/Fortran array" );
17776 } else {
17777 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
17778
17779 /* Processing variable iwork */
17780 iwork_Dims[0]=MAX(1,size_iwork)((1 > size_iwork) ? (1) : (size_iwork));
17781 capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
17782 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
17783 if (capi_iwork_tmp == NULL((void*)0)) {
17784 if (!PyErr_Occurred())
17785 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.zgelsd to C/Fortran array" );
17786 } else {
17787 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
17788
17789 /* Processing variable nrhs */
17790 nrhs = shape(b,1)b_Dims[1];
17791/*end of frompyobj*/
17792#ifdef F2PY_REPORT_ATEXIT
17793f2py_start_call_clock();
17794#endif
17795/*callfortranroutine*/
17796 (*f2py_func)(&m,&n,&nrhs,a,&m,b,&maxmn,s,&cond,&r,work,&lwork, rwork, iwork,&info) ;
17797 /*(*f2py_func)(&m,&n,&minmn,&maxmn,&nrhs,a,b,s,&cond,&r,work,&lwork,&size_rwork,rwork,&size_iwork,iwork,&info);*/
17798if (PyErr_Occurred())
17799 f2py_success = 0;
17800#ifdef F2PY_REPORT_ATEXIT
17801f2py_stop_call_clock();
17802#endif
17803/*end of callfortranroutine*/
17804 if (f2py_success) {
17805/*pyobjfrom*/
17806/*end of pyobjfrom*/
17807 CFUNCSMESS("Building return value.\n");
17808 capi_buildvalue = Py_BuildValue("NNii",capi_b_tmp,capi_s_tmp,r,info);
17809/*closepyobjfrom*/
17810/*end of closepyobjfrom*/
17811 } /*if (f2py_success) after callfortranroutine*/
17812/*cleanupfrompyobj*/
17813 /* End of cleaning variable nrhs */
17814 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
17815 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
17816 /* End of cleaning variable iwork */
17817 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
17818 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
17819 /* End of cleaning variable rwork */
17820 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
17821 } /*if (capi_work_tmp == NULL) ... else of work*/
17822 /* End of cleaning variable work */
17823 } /*if (capi_s_tmp == NULL) ... else of s*/
17824 /* End of cleaning variable s */
17825 } /*CHECKARRAY(maxmn==shape(b,0))*/
17826 } /*if (capi_b_tmp == NULL) ... else of b*/
17827 /* End of cleaning variable b */
17828 /* End of cleaning variable maxmn */
17829 /* End of cleaning variable minmn */
17830 /* End of cleaning variable n */
17831 /* End of cleaning variable m */
17832 /* End of cleaning variable info */
17833 } /*if (f2py_success) of size_iwork*/
17834 /* End of cleaning variable size_iwork */
17835 } /*if (f2py_success) of size_rwork*/
17836 /* End of cleaning variable size_rwork */
17837 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
17838 } /*if (f2py_success) of lwork*/
17839 /* End of cleaning variable lwork */
17840 /* End of cleaning variable r */
17841 } /*if (f2py_success) of cond*/
17842 /* End of cleaning variable cond */
17843 if((PyObject *)capi_a_tmp!=a_capi) {
17844 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
17845 } /*if (capi_a_tmp == NULL) ... else of a*/
17846 /* End of cleaning variable a */
17847/*end of cleanupfrompyobj*/
17848 if (capi_buildvalue == NULL((void*)0)) {
17849/*routdebugfailure*/
17850 } else {
17851/*routdebugleave*/
17852 }
17853 CFUNCSMESS("Freeing memory.\n");
17854/*freemem*/
17855#ifdef F2PY_REPORT_ATEXIT
17856f2py_stop_clock();
17857#endif
17858 return capi_buildvalue;
17859}
17860/******************************* end of zgelsd *******************************/
17861
17862/******************************** cgelsd_lwork ********************************/
17863static char doc_f2py_rout__flapack_cgelsd_lwork[] = "\
17864work,rwork,iwork,info = cgelsd_lwork(m,n,nrhs,[cond,lwork])\n\nWrapper for ``cgelsd_lwork``.\
17865\n\nParameters\n----------\n"
17866"m : input int\n"
17867"n : input int\n"
17868"nrhs : input int\n"
17869"\nOther Parameters\n----------------\n"
17870"cond : input float, optional\n Default: -1.0\n"
17871"lwork : input int, optional\n Default: -1\n"
17872"\nReturns\n-------\n"
17873"work : complex\n"
17874"rwork : float\n"
17875"iwork : int\n"
17876"info : int";
17877/* extern void F_FUNC(cgelsd ,CGELSD )(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*, complex_float*,F_INT*,float*,F_INT*,F_INT* ); */
17878static PyObject *f2py_rout__flapack_cgelsd_lwork(const PyObject *capi_self,
17879 PyObject *capi_args,
17880 PyObject *capi_keywds,
17881 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*, complex_float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
17882 PyObject * volatile capi_buildvalue = NULL((void*)0);
17883 volatile int f2py_success = 1;
17884/*decl*/
17885
17886 int m = 0;
17887 PyObject *m_capi = Py_None(&_Py_NoneStruct);
17888 int n = 0;
17889 PyObject *n_capi = Py_None(&_Py_NoneStruct);
17890 int maxmn = 0;
17891 int nrhs = 0;
17892 PyObject *nrhs_capi = Py_None(&_Py_NoneStruct);
17893 complex_float a;
17894 complex_float b;
17895 float s = 0;
17896 float cond = 0;
17897 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
17898 int r = 0;
17899 complex_float work;
17900 PyObject *work_capi = Py_None(&_Py_NoneStruct);
17901 int lwork = 0;
17902 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
17903 float rwork = 0;
17904 int iwork = 0;
17905 int info = 0;
17906 static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)};
17907
17908/*routdebugenter*/
17909#ifdef F2PY_REPORT_ATEXIT
17910f2py_start_clock();
17911#endif
17912 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
17913 "OOO|OO:_flapack.cgelsd_lwork",\
17914 capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi))
17915 return NULL((void*)0);
17916/*frompyobj*/
17917 /* Processing variable m */
17918 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cgelsd_lwork() 1st argument (m) can't be converted to int");
17919 if (f2py_success) {
17920 /* Processing variable n */
17921 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgelsd_lwork() 2nd argument (n) can't be converted to int");
17922 if (f2py_success) {
17923 /* Processing variable a */
17924 /* Processing variable nrhs */
17925 f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.cgelsd_lwork() 3rd argument (nrhs) can't be converted to int");
17926 if (f2py_success) {
17927 /* Processing variable b */
17928 /* Processing variable cond */
17929 if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else
17930 f2py_success = float_from_pyobj(&cond,cond_capi,"_flapack.cgelsd_lwork() 1st keyword (cond) can't be converted to float");
17931 if (f2py_success) {
17932 /* Processing variable r */
17933 /* Processing variable s */
17934 /* Processing variable lwork */
17935 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else
17936 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgelsd_lwork() 2nd keyword (lwork) can't be converted to int");
17937 if (f2py_success) {
17938 /* Processing variable work */
17939 /* Processing variable rwork */
17940 /* Processing variable iwork */
17941 /* Processing variable info */
17942 /* Processing variable maxmn */
17943 maxmn = MAX(m,n)((m > n) ? (m) : (n));
17944/*end of frompyobj*/
17945#ifdef F2PY_REPORT_ATEXIT
17946f2py_start_call_clock();
17947#endif
17948/*callfortranroutine*/
17949 (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&s,&cond,&r,&work,&lwork, &rwork, &iwork,&info) ;
17950 /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&s,&cond,&r,&work,&lwork,&rwork,&iwork,&info);*/
17951if (PyErr_Occurred())
17952 f2py_success = 0;
17953#ifdef F2PY_REPORT_ATEXIT
17954f2py_stop_call_clock();
17955#endif
17956/*end of callfortranroutine*/
17957 if (f2py_success) {
17958/*pyobjfrom*/
17959 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
17960/*end of pyobjfrom*/
17961 CFUNCSMESS("Building return value.\n");
17962 capi_buildvalue = Py_BuildValue("Nfii",work_capi,rwork,iwork,info);
17963/*closepyobjfrom*/
17964/*end of closepyobjfrom*/
17965 } /*if (f2py_success) after callfortranroutine*/
17966/*cleanupfrompyobj*/
17967 /* End of cleaning variable maxmn */
17968 /* End of cleaning variable info */
17969 /* End of cleaning variable iwork */
17970 /* End of cleaning variable rwork */
17971 /* End of cleaning variable work */
17972 } /*if (f2py_success) of lwork*/
17973 /* End of cleaning variable lwork */
17974 /* End of cleaning variable s */
17975 /* End of cleaning variable r */
17976 } /*if (f2py_success) of cond*/
17977 /* End of cleaning variable cond */
17978 /* End of cleaning variable b */
17979 } /*if (f2py_success) of nrhs*/
17980 /* End of cleaning variable nrhs */
17981 /* End of cleaning variable a */
17982 } /*if (f2py_success) of n*/
17983 /* End of cleaning variable n */
17984 } /*if (f2py_success) of m*/
17985 /* End of cleaning variable m */
17986/*end of cleanupfrompyobj*/
17987 if (capi_buildvalue == NULL((void*)0)) {
17988/*routdebugfailure*/
17989 } else {
17990/*routdebugleave*/
17991 }
17992 CFUNCSMESS("Freeing memory.\n");
17993/*freemem*/
17994#ifdef F2PY_REPORT_ATEXIT
17995f2py_stop_clock();
17996#endif
17997 return capi_buildvalue;
17998}
17999/**************************** end of cgelsd_lwork ****************************/
18000
18001/******************************** zgelsd_lwork ********************************/
18002static char doc_f2py_rout__flapack_zgelsd_lwork[] = "\
18003work,rwork,iwork,info = zgelsd_lwork(m,n,nrhs,[cond,lwork])\n\nWrapper for ``zgelsd_lwork``.\
18004\n\nParameters\n----------\n"
18005"m : input int\n"
18006"n : input int\n"
18007"nrhs : input int\n"
18008"\nOther Parameters\n----------------\n"
18009"cond : input float, optional\n Default: -1.0\n"
18010"lwork : input int, optional\n Default: -1\n"
18011"\nReturns\n-------\n"
18012"work : complex\n"
18013"rwork : float\n"
18014"iwork : int\n"
18015"info : int";
18016/* extern void F_FUNC(zgelsd ,ZGELSD )(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*, complex_double*,F_INT*,double*,F_INT*,F_INT* ); */
18017static PyObject *f2py_rout__flapack_zgelsd_lwork(const PyObject *capi_self,
18018 PyObject *capi_args,
18019 PyObject *capi_keywds,
18020 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*, complex_double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
18021 PyObject * volatile capi_buildvalue = NULL((void*)0);
18022 volatile int f2py_success = 1;
18023/*decl*/
18024
18025 int m = 0;
18026 PyObject *m_capi = Py_None(&_Py_NoneStruct);
18027 int n = 0;
18028 PyObject *n_capi = Py_None(&_Py_NoneStruct);
18029 int maxmn = 0;
18030 int nrhs = 0;
18031 PyObject *nrhs_capi = Py_None(&_Py_NoneStruct);
18032 complex_double a;
18033 complex_double b;
18034 double s = 0;
18035 double cond = 0;
18036 PyObject *cond_capi = Py_None(&_Py_NoneStruct);
18037 int r = 0;
18038 complex_double work;
18039 PyObject *work_capi = Py_None(&_Py_NoneStruct);
18040 int lwork = 0;
18041 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
18042 double rwork = 0;
18043 int iwork = 0;
18044 int info = 0;
18045 static char *capi_kwlist[] = {"m","n","nrhs","cond","lwork",NULL((void*)0)};
18046
18047/*routdebugenter*/
18048#ifdef F2PY_REPORT_ATEXIT
18049f2py_start_clock();
18050#endif
18051 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
18052 "OOO|OO:_flapack.zgelsd_lwork",\
18053 capi_kwlist,&m_capi,&n_capi,&nrhs_capi,&cond_capi,&lwork_capi))
18054 return NULL((void*)0);
18055/*frompyobj*/
18056 /* Processing variable m */
18057 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zgelsd_lwork() 1st argument (m) can't be converted to int");
18058 if (f2py_success) {
18059 /* Processing variable n */
18060 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgelsd_lwork() 2nd argument (n) can't be converted to int");
18061 if (f2py_success) {
18062 /* Processing variable a */
18063 /* Processing variable nrhs */
18064 f2py_success = int_from_pyobj(&nrhs,nrhs_capi,"_flapack.zgelsd_lwork() 3rd argument (nrhs) can't be converted to int");
18065 if (f2py_success) {
18066 /* Processing variable b */
18067 /* Processing variable cond */
18068 if (cond_capi == Py_None(&_Py_NoneStruct)) cond = -1.0; else
18069 f2py_success = double_from_pyobj(&cond,cond_capi,"_flapack.zgelsd_lwork() 1st keyword (cond) can't be converted to double");
18070 if (f2py_success) {
18071 /* Processing variable r */
18072 /* Processing variable s */
18073 /* Processing variable lwork */
18074 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = -1; else
18075 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgelsd_lwork() 2nd keyword (lwork) can't be converted to int");
18076 if (f2py_success) {
18077 /* Processing variable work */
18078 /* Processing variable rwork */
18079 /* Processing variable iwork */
18080 /* Processing variable info */
18081 /* Processing variable maxmn */
18082 maxmn = MAX(m,n)((m > n) ? (m) : (n));
18083/*end of frompyobj*/
18084#ifdef F2PY_REPORT_ATEXIT
18085f2py_start_call_clock();
18086#endif
18087/*callfortranroutine*/
18088 (*f2py_func)(&m,&n,&nrhs,&a,&m,&b,&maxmn,&s,&cond,&r,&work,&lwork, &rwork, &iwork,&info) ;
18089 /*(*f2py_func)(&m,&n,&maxmn,&nrhs,&a,&b,&s,&cond,&r,&work,&lwork,&rwork,&iwork,&info);*/
18090if (PyErr_Occurred())
18091 f2py_success = 0;
18092#ifdef F2PY_REPORT_ATEXIT
18093f2py_stop_call_clock();
18094#endif
18095/*end of callfortranroutine*/
18096 if (f2py_success) {
18097/*pyobjfrom*/
18098 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
18099/*end of pyobjfrom*/
18100 CFUNCSMESS("Building return value.\n");
18101 capi_buildvalue = Py_BuildValue("Ndii",work_capi,rwork,iwork,info);
18102/*closepyobjfrom*/
18103/*end of closepyobjfrom*/
18104 } /*if (f2py_success) after callfortranroutine*/
18105/*cleanupfrompyobj*/
18106 /* End of cleaning variable maxmn */
18107 /* End of cleaning variable info */
18108 /* End of cleaning variable iwork */
18109 /* End of cleaning variable rwork */
18110 /* End of cleaning variable work */
18111 } /*if (f2py_success) of lwork*/
18112 /* End of cleaning variable lwork */
18113 /* End of cleaning variable s */
18114 /* End of cleaning variable r */
18115 } /*if (f2py_success) of cond*/
18116 /* End of cleaning variable cond */
18117 /* End of cleaning variable b */
18118 } /*if (f2py_success) of nrhs*/
18119 /* End of cleaning variable nrhs */
18120 /* End of cleaning variable a */
18121 } /*if (f2py_success) of n*/
18122 /* End of cleaning variable n */
18123 } /*if (f2py_success) of m*/
18124 /* End of cleaning variable m */
18125/*end of cleanupfrompyobj*/
18126 if (capi_buildvalue == NULL((void*)0)) {
18127/*routdebugfailure*/
18128 } else {
18129/*routdebugleave*/
18130 }
18131 CFUNCSMESS("Freeing memory.\n");
18132/*freemem*/
18133#ifdef F2PY_REPORT_ATEXIT
18134f2py_stop_clock();
18135#endif
18136 return capi_buildvalue;
18137}
18138/**************************** end of zgelsd_lwork ****************************/
18139
18140/*********************************** sgeqp3 ***********************************/
18141static char doc_f2py_rout__flapack_sgeqp3[] = "\
18142qr,jpvt,tau,work,info = sgeqp3(a,[lwork,overwrite_a])\n\nWrapper for ``sgeqp3``.\
18143\n\nParameters\n----------\n"
18144"a : input rank-2 array('f') with bounds (m,n)\n"
18145"\nOther Parameters\n----------------\n"
18146"overwrite_a : input int, optional\n Default: 0\n"
18147"lwork : input int, optional\n Default: max(3*(n+1),1)\n"
18148"\nReturns\n-------\n"
18149"qr : rank-2 array('f') with bounds (m,n) and a storage\n"
18150"jpvt : rank-1 array('i') with bounds (n)\n"
18151"tau : rank-1 array('f') with bounds (MIN(m,n))\n"
18152"work : rank-1 array('f') with bounds (MAX(lwork,1))\n"
18153"info : int";
18154/* extern void F_FUNC(sgeqp3,SGEQP3)(F_INT*,F_INT*,float*,F_INT*,F_INT*,float*,float*,F_INT*,F_INT* ); */
18155static PyObject *f2py_rout__flapack_sgeqp3(const PyObject *capi_self,
18156 PyObject *capi_args,
18157 PyObject *capi_keywds,
18158 void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
18159 PyObject * volatile capi_buildvalue = NULL((void*)0);
18160 volatile int f2py_success = 1;
18161/*decl*/
18162
18163 int m = 0;
18164 int n = 0;
18165 float *a = NULL((void*)0);
18166 npy_intp a_Dims[2] = {-1, -1};
18167 const int a_Rank = 2;
18168 PyArrayObject *capi_a_tmp = NULL((void*)0);
18169 int capi_a_intent = 0;
18170 int capi_overwrite_a = 0;
18171 PyObject *a_capi = Py_None(&_Py_NoneStruct);
18172 int *jpvt = NULL((void*)0);
18173 npy_intp jpvt_Dims[1] = {-1};
18174 const int jpvt_Rank = 1;
18175 PyArrayObject *capi_jpvt_tmp = NULL((void*)0);
18176 int capi_jpvt_intent = 0;
18177 float *tau = NULL((void*)0);
18178 npy_intp tau_Dims[1] = {-1};
18179 const int tau_Rank = 1;
18180 PyArrayObject *capi_tau_tmp = NULL((void*)0);
18181 int capi_tau_intent = 0;
18182 float *work = NULL((void*)0);
18183 npy_intp work_Dims[1] = {-1};
18184 const int work_Rank = 1;
18185 PyArrayObject *capi_work_tmp = NULL((void*)0);
18186 int capi_work_intent = 0;
18187 int lwork = 0;
18188 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
18189 int info = 0;
18190 static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)};
18191
18192/*routdebugenter*/
18193#ifdef F2PY_REPORT_ATEXIT
18194f2py_start_clock();
18195#endif
18196 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
18197 "O|Oi:_flapack.sgeqp3",\
18198 capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a))
18199 return NULL((void*)0);
18200/*frompyobj*/
18201 /* Processing variable a */
18202 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
18203 ;
18204 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
18205 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
18206 if (capi_a_tmp == NULL((void*)0)) {
18207 if (!PyErr_Occurred())
18208 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgeqp3 to C/Fortran array" );
18209 } else {
18210 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
18211
18212 /* Processing variable info */
18213 /* Processing variable m */
18214 m = shape(a,0)a_Dims[0];
18215 /* Processing variable n */
18216 n = shape(a,1)a_Dims[1];
18217 /* Processing variable jpvt */
18218 jpvt_Dims[0]=n;
18219 capi_jpvt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
18220 capi_jpvt_tmp = array_from_pyobj(NPY_INT,jpvt_Dims,jpvt_Rank,capi_jpvt_intent,Py_None(&_Py_NoneStruct));
18221 if (capi_jpvt_tmp == NULL((void*)0)) {
18222 if (!PyErr_Occurred())
18223 PyErr_SetString(_flapack_error,"failed in converting hidden `jpvt' of _flapack.sgeqp3 to C/Fortran array" );
18224 } else {
18225 jpvt = (int *)(PyArray_DATA(capi_jpvt_tmp)((void *)((PyArrayObject_fields *)(capi_jpvt_tmp))->data));
18226
18227 /* Processing variable tau */
18228 tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
18229 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
18230 capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
18231 if (capi_tau_tmp == NULL((void*)0)) {
18232 if (!PyErr_Occurred())
18233 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.sgeqp3 to C/Fortran array" );
18234 } else {
18235 tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
18236
18237 /* Processing variable lwork */
18238 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*(n+1),1)((3*(n+1) > 1) ? (3*(n+1)) : (1)); else
18239 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgeqp3() 1st keyword (lwork) can't be converted to int");
18240 if (f2py_success) {
18241 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","sgeqp3:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgeqp3:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
18242 /* Processing variable work */
18243 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
18244 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
18245 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
18246 if (capi_work_tmp == NULL((void*)0)) {
18247 if (!PyErr_Occurred())
18248 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgeqp3 to C/Fortran array" );
18249 } else {
18250 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
18251
18252/*end of frompyobj*/
18253#ifdef F2PY_REPORT_ATEXIT
18254f2py_start_call_clock();
18255#endif
18256/*callfortranroutine*/
18257 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
18258 (*f2py_func)(&m,&n,a,&m,jpvt,tau,work,&lwork,&info) ;
18259 /*(*f2py_func)(&m,&n,a,jpvt,tau,work,&lwork,&info);*/
18260 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
18261if (PyErr_Occurred())
18262 f2py_success = 0;
18263#ifdef F2PY_REPORT_ATEXIT
18264f2py_stop_call_clock();
18265#endif
18266/*end of callfortranroutine*/
18267 if (f2py_success) {
18268/*pyobjfrom*/
18269/*end of pyobjfrom*/
18270 CFUNCSMESS("Building return value.\n");
18271 capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_jpvt_tmp,capi_tau_tmp,capi_work_tmp,info);
18272/*closepyobjfrom*/
18273/*end of closepyobjfrom*/
18274 } /*if (f2py_success) after callfortranroutine*/
18275/*cleanupfrompyobj*/
18276 } /*if (capi_work_tmp == NULL) ... else of work*/
18277 /* End of cleaning variable work */
18278 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
18279 } /*if (f2py_success) of lwork*/
18280 /* End of cleaning variable lwork */
18281 } /*if (capi_tau_tmp == NULL) ... else of tau*/
18282 /* End of cleaning variable tau */
18283 } /*if (capi_jpvt_tmp == NULL) ... else of jpvt*/
18284 /* End of cleaning variable jpvt */
18285 /* End of cleaning variable n */
18286 /* End of cleaning variable m */
18287 /* End of cleaning variable info */
18288 } /*if (capi_a_tmp == NULL) ... else of a*/
18289 /* End of cleaning variable a */
18290/*end of cleanupfrompyobj*/
18291 if (capi_buildvalue == NULL((void*)0)) {
18292/*routdebugfailure*/
18293 } else {
18294/*routdebugleave*/
18295 }
18296 CFUNCSMESS("Freeing memory.\n");
18297/*freemem*/
18298#ifdef F2PY_REPORT_ATEXIT
18299f2py_stop_clock();
18300#endif
18301 return capi_buildvalue;
18302}
18303/******************************* end of sgeqp3 *******************************/
18304
18305/*********************************** dgeqp3 ***********************************/
18306static char doc_f2py_rout__flapack_dgeqp3[] = "\
18307qr,jpvt,tau,work,info = dgeqp3(a,[lwork,overwrite_a])\n\nWrapper for ``dgeqp3``.\
18308\n\nParameters\n----------\n"
18309"a : input rank-2 array('d') with bounds (m,n)\n"
18310"\nOther Parameters\n----------------\n"
18311"overwrite_a : input int, optional\n Default: 0\n"
18312"lwork : input int, optional\n Default: max(3*(n+1),1)\n"
18313"\nReturns\n-------\n"
18314"qr : rank-2 array('d') with bounds (m,n) and a storage\n"
18315"jpvt : rank-1 array('i') with bounds (n)\n"
18316"tau : rank-1 array('d') with bounds (MIN(m,n))\n"
18317"work : rank-1 array('d') with bounds (MAX(lwork,1))\n"
18318"info : int";
18319/* extern void F_FUNC(dgeqp3,DGEQP3)(F_INT*,F_INT*,double*,F_INT*,F_INT*,double*,double*,F_INT*,F_INT* ); */
18320static PyObject *f2py_rout__flapack_dgeqp3(const PyObject *capi_self,
18321 PyObject *capi_args,
18322 PyObject *capi_keywds,
18323 void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
18324 PyObject * volatile capi_buildvalue = NULL((void*)0);
18325 volatile int f2py_success = 1;
18326/*decl*/
18327
18328 int m = 0;
18329 int n = 0;
18330 double *a = NULL((void*)0);
18331 npy_intp a_Dims[2] = {-1, -1};
18332 const int a_Rank = 2;
18333 PyArrayObject *capi_a_tmp = NULL((void*)0);
18334 int capi_a_intent = 0;
18335 int capi_overwrite_a = 0;
18336 PyObject *a_capi = Py_None(&_Py_NoneStruct);
18337 int *jpvt = NULL((void*)0);
18338 npy_intp jpvt_Dims[1] = {-1};
18339 const int jpvt_Rank = 1;
18340 PyArrayObject *capi_jpvt_tmp = NULL((void*)0);
18341 int capi_jpvt_intent = 0;
18342 double *tau = NULL((void*)0);
18343 npy_intp tau_Dims[1] = {-1};
18344 const int tau_Rank = 1;
18345 PyArrayObject *capi_tau_tmp = NULL((void*)0);
18346 int capi_tau_intent = 0;
18347 double *work = NULL((void*)0);
18348 npy_intp work_Dims[1] = {-1};
18349 const int work_Rank = 1;
18350 PyArrayObject *capi_work_tmp = NULL((void*)0);
18351 int capi_work_intent = 0;
18352 int lwork = 0;
18353 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
18354 int info = 0;
18355 static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)};
18356
18357/*routdebugenter*/
18358#ifdef F2PY_REPORT_ATEXIT
18359f2py_start_clock();
18360#endif
18361 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
18362 "O|Oi:_flapack.dgeqp3",\
18363 capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a))
18364 return NULL((void*)0);
18365/*frompyobj*/
18366 /* Processing variable a */
18367 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
18368 ;
18369 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
18370 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
18371 if (capi_a_tmp == NULL((void*)0)) {
18372 if (!PyErr_Occurred())
18373 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgeqp3 to C/Fortran array" );
18374 } else {
18375 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
18376
18377 /* Processing variable info */
18378 /* Processing variable m */
18379 m = shape(a,0)a_Dims[0];
18380 /* Processing variable n */
18381 n = shape(a,1)a_Dims[1];
18382 /* Processing variable jpvt */
18383 jpvt_Dims[0]=n;
18384 capi_jpvt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
18385 capi_jpvt_tmp = array_from_pyobj(NPY_INT,jpvt_Dims,jpvt_Rank,capi_jpvt_intent,Py_None(&_Py_NoneStruct));
18386 if (capi_jpvt_tmp == NULL((void*)0)) {
18387 if (!PyErr_Occurred())
18388 PyErr_SetString(_flapack_error,"failed in converting hidden `jpvt' of _flapack.dgeqp3 to C/Fortran array" );
18389 } else {
18390 jpvt = (int *)(PyArray_DATA(capi_jpvt_tmp)((void *)((PyArrayObject_fields *)(capi_jpvt_tmp))->data));
18391
18392 /* Processing variable tau */
18393 tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
18394 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
18395 capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
18396 if (capi_tau_tmp == NULL((void*)0)) {
18397 if (!PyErr_Occurred())
18398 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.dgeqp3 to C/Fortran array" );
18399 } else {
18400 tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
18401
18402 /* Processing variable lwork */
18403 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*(n+1),1)((3*(n+1) > 1) ? (3*(n+1)) : (1)); else
18404 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgeqp3() 1st keyword (lwork) can't be converted to int");
18405 if (f2py_success) {
18406 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","dgeqp3:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgeqp3:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
18407 /* Processing variable work */
18408 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
18409 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
18410 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
18411 if (capi_work_tmp == NULL((void*)0)) {
18412 if (!PyErr_Occurred())
18413 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgeqp3 to C/Fortran array" );
18414 } else {
18415 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
18416
18417/*end of frompyobj*/
18418#ifdef F2PY_REPORT_ATEXIT
18419f2py_start_call_clock();
18420#endif
18421/*callfortranroutine*/
18422 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
18423 (*f2py_func)(&m,&n,a,&m,jpvt,tau,work,&lwork,&info) ;
18424 /*(*f2py_func)(&m,&n,a,jpvt,tau,work,&lwork,&info);*/
18425 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
18426if (PyErr_Occurred())
18427 f2py_success = 0;
18428#ifdef F2PY_REPORT_ATEXIT
18429f2py_stop_call_clock();
18430#endif
18431/*end of callfortranroutine*/
18432 if (f2py_success) {
18433/*pyobjfrom*/
18434/*end of pyobjfrom*/
18435 CFUNCSMESS("Building return value.\n");
18436 capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_jpvt_tmp,capi_tau_tmp,capi_work_tmp,info);
18437/*closepyobjfrom*/
18438/*end of closepyobjfrom*/
18439 } /*if (f2py_success) after callfortranroutine*/
18440/*cleanupfrompyobj*/
18441 } /*if (capi_work_tmp == NULL) ... else of work*/
18442 /* End of cleaning variable work */
18443 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
18444 } /*if (f2py_success) of lwork*/
18445 /* End of cleaning variable lwork */
18446 } /*if (capi_tau_tmp == NULL) ... else of tau*/
18447 /* End of cleaning variable tau */
18448 } /*if (capi_jpvt_tmp == NULL) ... else of jpvt*/
18449 /* End of cleaning variable jpvt */
18450 /* End of cleaning variable n */
18451 /* End of cleaning variable m */
18452 /* End of cleaning variable info */
18453 } /*if (capi_a_tmp == NULL) ... else of a*/
18454 /* End of cleaning variable a */
18455/*end of cleanupfrompyobj*/
18456 if (capi_buildvalue == NULL((void*)0)) {
18457/*routdebugfailure*/
18458 } else {
18459/*routdebugleave*/
18460 }
18461 CFUNCSMESS("Freeing memory.\n");
18462/*freemem*/
18463#ifdef F2PY_REPORT_ATEXIT
18464f2py_stop_clock();
18465#endif
18466 return capi_buildvalue;
18467}
18468/******************************* end of dgeqp3 *******************************/
18469
18470/*********************************** cgeqp3 ***********************************/
18471static char doc_f2py_rout__flapack_cgeqp3[] = "\
18472qr,jpvt,tau,work,info = cgeqp3(a,[lwork,overwrite_a])\n\nWrapper for ``cgeqp3``.\
18473\n\nParameters\n----------\n"
18474"a : input rank-2 array('F') with bounds (m,n)\n"
18475"\nOther Parameters\n----------------\n"
18476"overwrite_a : input int, optional\n Default: 0\n"
18477"lwork : input int, optional\n Default: max(3*(n+1),1)\n"
18478"\nReturns\n-------\n"
18479"qr : rank-2 array('F') with bounds (m,n) and a storage\n"
18480"jpvt : rank-1 array('i') with bounds (n)\n"
18481"tau : rank-1 array('F') with bounds (MIN(m,n))\n"
18482"work : rank-1 array('F') with bounds (MAX(lwork,1))\n"
18483"info : int";
18484/* extern void F_FUNC(cgeqp3,CGEQP3)(F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,complex_float*,F_INT*,float*,F_INT* ); */
18485static PyObject *f2py_rout__flapack_cgeqp3(const PyObject *capi_self,
18486 PyObject *capi_args,
18487 PyObject *capi_keywds,
18488 void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,complex_float*,F_INTint*,float*,F_INTint* )) {
18489 PyObject * volatile capi_buildvalue = NULL((void*)0);
18490 volatile int f2py_success = 1;
18491/*decl*/
18492
18493 int m = 0;
18494 int n = 0;
18495 complex_float *a = NULL((void*)0);
18496 npy_intp a_Dims[2] = {-1, -1};
18497 const int a_Rank = 2;
18498 PyArrayObject *capi_a_tmp = NULL((void*)0);
18499 int capi_a_intent = 0;
18500 int capi_overwrite_a = 0;
18501 PyObject *a_capi = Py_None(&_Py_NoneStruct);
18502 int *jpvt = NULL((void*)0);
18503 npy_intp jpvt_Dims[1] = {-1};
18504 const int jpvt_Rank = 1;
18505 PyArrayObject *capi_jpvt_tmp = NULL((void*)0);
18506 int capi_jpvt_intent = 0;
18507 complex_float *tau = NULL((void*)0);
18508 npy_intp tau_Dims[1] = {-1};
18509 const int tau_Rank = 1;
18510 PyArrayObject *capi_tau_tmp = NULL((void*)0);
18511 int capi_tau_intent = 0;
18512 complex_float *work = NULL((void*)0);
18513 npy_intp work_Dims[1] = {-1};
18514 const int work_Rank = 1;
18515 PyArrayObject *capi_work_tmp = NULL((void*)0);
18516 int capi_work_intent = 0;
18517 int lwork = 0;
18518 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
18519 float *rwork = NULL((void*)0);
18520 npy_intp rwork_Dims[1] = {-1};
18521 const int rwork_Rank = 1;
18522 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
18523 int capi_rwork_intent = 0;
18524 int info = 0;
18525 static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)};
18526
18527/*routdebugenter*/
18528#ifdef F2PY_REPORT_ATEXIT
18529f2py_start_clock();
18530#endif
18531 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
18532 "O|Oi:_flapack.cgeqp3",\
18533 capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a))
18534 return NULL((void*)0);
18535/*frompyobj*/
18536 /* Processing variable a */
18537 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
18538 ;
18539 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
18540 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
18541 if (capi_a_tmp == NULL((void*)0)) {
18542 if (!PyErr_Occurred())
18543 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgeqp3 to C/Fortran array" );
18544 } else {
18545 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
18546
18547 /* Processing variable info */
18548 /* Processing variable m */
18549 m = shape(a,0)a_Dims[0];
18550 /* Processing variable n */
18551 n = shape(a,1)a_Dims[1];
18552 /* Processing variable jpvt */
18553 jpvt_Dims[0]=n;
18554 capi_jpvt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
18555 capi_jpvt_tmp = array_from_pyobj(NPY_INT,jpvt_Dims,jpvt_Rank,capi_jpvt_intent,Py_None(&_Py_NoneStruct));
18556 if (capi_jpvt_tmp == NULL((void*)0)) {
18557 if (!PyErr_Occurred())
18558 PyErr_SetString(_flapack_error,"failed in converting hidden `jpvt' of _flapack.cgeqp3 to C/Fortran array" );
18559 } else {
18560 jpvt = (int *)(PyArray_DATA(capi_jpvt_tmp)((void *)((PyArrayObject_fields *)(capi_jpvt_tmp))->data));
18561
18562 /* Processing variable tau */
18563 tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
18564 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
18565 capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
18566 if (capi_tau_tmp == NULL((void*)0)) {
18567 if (!PyErr_Occurred())
18568 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.cgeqp3 to C/Fortran array" );
18569 } else {
18570 tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
18571
18572 /* Processing variable lwork */
18573 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*(n+1),1)((3*(n+1) > 1) ? (3*(n+1)) : (1)); else
18574 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgeqp3() 1st keyword (lwork) can't be converted to int");
18575 if (f2py_success) {
18576 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","cgeqp3:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgeqp3:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
18577 /* Processing variable work */
18578 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
18579 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
18580 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
18581 if (capi_work_tmp == NULL((void*)0)) {
18582 if (!PyErr_Occurred())
18583 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgeqp3 to C/Fortran array" );
18584 } else {
18585 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
18586
18587 /* Processing variable rwork */
18588 rwork_Dims[0]=2 * n;
18589 capi_rwork_intent |= F2PY_INTENT_HIDE8;
18590 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
18591 if (capi_rwork_tmp == NULL((void*)0)) {
18592 if (!PyErr_Occurred())
18593 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgeqp3 to C/Fortran array" );
18594 } else {
18595 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
18596
18597/*end of frompyobj*/
18598#ifdef F2PY_REPORT_ATEXIT
18599f2py_start_call_clock();
18600#endif
18601/*callfortranroutine*/
18602 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
18603 (*f2py_func)(&m,&n,a,&m,jpvt,tau,work,&lwork,rwork,&info) ;
18604 /*(*f2py_func)(&m,&n,a,jpvt,tau,work,&lwork,rwork,&info);*/
18605 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
18606if (PyErr_Occurred())
18607 f2py_success = 0;
18608#ifdef F2PY_REPORT_ATEXIT
18609f2py_stop_call_clock();
18610#endif
18611/*end of callfortranroutine*/
18612 if (f2py_success) {
18613/*pyobjfrom*/
18614/*end of pyobjfrom*/
18615 CFUNCSMESS("Building return value.\n");
18616 capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_jpvt_tmp,capi_tau_tmp,capi_work_tmp,info);
18617/*closepyobjfrom*/
18618/*end of closepyobjfrom*/
18619 } /*if (f2py_success) after callfortranroutine*/
18620/*cleanupfrompyobj*/
18621 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
18622 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
18623 /* End of cleaning variable rwork */
18624 } /*if (capi_work_tmp == NULL) ... else of work*/
18625 /* End of cleaning variable work */
18626 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
18627 } /*if (f2py_success) of lwork*/
18628 /* End of cleaning variable lwork */
18629 } /*if (capi_tau_tmp == NULL) ... else of tau*/
18630 /* End of cleaning variable tau */
18631 } /*if (capi_jpvt_tmp == NULL) ... else of jpvt*/
18632 /* End of cleaning variable jpvt */
18633 /* End of cleaning variable n */
18634 /* End of cleaning variable m */
18635 /* End of cleaning variable info */
18636 } /*if (capi_a_tmp == NULL) ... else of a*/
18637 /* End of cleaning variable a */
18638/*end of cleanupfrompyobj*/
18639 if (capi_buildvalue == NULL((void*)0)) {
18640/*routdebugfailure*/
18641 } else {
18642/*routdebugleave*/
18643 }
18644 CFUNCSMESS("Freeing memory.\n");
18645/*freemem*/
18646#ifdef F2PY_REPORT_ATEXIT
18647f2py_stop_clock();
18648#endif
18649 return capi_buildvalue;
18650}
18651/******************************* end of cgeqp3 *******************************/
18652
18653/*********************************** zgeqp3 ***********************************/
18654static char doc_f2py_rout__flapack_zgeqp3[] = "\
18655qr,jpvt,tau,work,info = zgeqp3(a,[lwork,overwrite_a])\n\nWrapper for ``zgeqp3``.\
18656\n\nParameters\n----------\n"
18657"a : input rank-2 array('D') with bounds (m,n)\n"
18658"\nOther Parameters\n----------------\n"
18659"overwrite_a : input int, optional\n Default: 0\n"
18660"lwork : input int, optional\n Default: max(3*(n+1),1)\n"
18661"\nReturns\n-------\n"
18662"qr : rank-2 array('D') with bounds (m,n) and a storage\n"
18663"jpvt : rank-1 array('i') with bounds (n)\n"
18664"tau : rank-1 array('D') with bounds (MIN(m,n))\n"
18665"work : rank-1 array('D') with bounds (MAX(lwork,1))\n"
18666"info : int";
18667/* extern void F_FUNC(zgeqp3,ZGEQP3)(F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,complex_double*,F_INT*,double*,F_INT* ); */
18668static PyObject *f2py_rout__flapack_zgeqp3(const PyObject *capi_self,
18669 PyObject *capi_args,
18670 PyObject *capi_keywds,
18671 void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,complex_double*,F_INTint*,double*,F_INTint* )) {
18672 PyObject * volatile capi_buildvalue = NULL((void*)0);
18673 volatile int f2py_success = 1;
18674/*decl*/
18675
18676 int m = 0;
18677 int n = 0;
18678 complex_double *a = NULL((void*)0);
18679 npy_intp a_Dims[2] = {-1, -1};
18680 const int a_Rank = 2;
18681 PyArrayObject *capi_a_tmp = NULL((void*)0);
18682 int capi_a_intent = 0;
18683 int capi_overwrite_a = 0;
18684 PyObject *a_capi = Py_None(&_Py_NoneStruct);
18685 int *jpvt = NULL((void*)0);
18686 npy_intp jpvt_Dims[1] = {-1};
18687 const int jpvt_Rank = 1;
18688 PyArrayObject *capi_jpvt_tmp = NULL((void*)0);
18689 int capi_jpvt_intent = 0;
18690 complex_double *tau = NULL((void*)0);
18691 npy_intp tau_Dims[1] = {-1};
18692 const int tau_Rank = 1;
18693 PyArrayObject *capi_tau_tmp = NULL((void*)0);
18694 int capi_tau_intent = 0;
18695 complex_double *work = NULL((void*)0);
18696 npy_intp work_Dims[1] = {-1};
18697 const int work_Rank = 1;
18698 PyArrayObject *capi_work_tmp = NULL((void*)0);
18699 int capi_work_intent = 0;
18700 int lwork = 0;
18701 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
18702 double *rwork = NULL((void*)0);
18703 npy_intp rwork_Dims[1] = {-1};
18704 const int rwork_Rank = 1;
18705 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
18706 int capi_rwork_intent = 0;
18707 int info = 0;
18708 static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)};
18709
18710/*routdebugenter*/
18711#ifdef F2PY_REPORT_ATEXIT
18712f2py_start_clock();
18713#endif
18714 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
18715 "O|Oi:_flapack.zgeqp3",\
18716 capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a))
18717 return NULL((void*)0);
18718/*frompyobj*/
18719 /* Processing variable a */
18720 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
18721 ;
18722 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
18723 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
18724 if (capi_a_tmp == NULL((void*)0)) {
18725 if (!PyErr_Occurred())
18726 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgeqp3 to C/Fortran array" );
18727 } else {
18728 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
18729
18730 /* Processing variable info */
18731 /* Processing variable m */
18732 m = shape(a,0)a_Dims[0];
18733 /* Processing variable n */
18734 n = shape(a,1)a_Dims[1];
18735 /* Processing variable jpvt */
18736 jpvt_Dims[0]=n;
18737 capi_jpvt_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
18738 capi_jpvt_tmp = array_from_pyobj(NPY_INT,jpvt_Dims,jpvt_Rank,capi_jpvt_intent,Py_None(&_Py_NoneStruct));
18739 if (capi_jpvt_tmp == NULL((void*)0)) {
18740 if (!PyErr_Occurred())
18741 PyErr_SetString(_flapack_error,"failed in converting hidden `jpvt' of _flapack.zgeqp3 to C/Fortran array" );
18742 } else {
18743 jpvt = (int *)(PyArray_DATA(capi_jpvt_tmp)((void *)((PyArrayObject_fields *)(capi_jpvt_tmp))->data));
18744
18745 /* Processing variable tau */
18746 tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
18747 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
18748 capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
18749 if (capi_tau_tmp == NULL((void*)0)) {
18750 if (!PyErr_Occurred())
18751 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.zgeqp3 to C/Fortran array" );
18752 } else {
18753 tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
18754
18755 /* Processing variable lwork */
18756 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*(n+1),1)((3*(n+1) > 1) ? (3*(n+1)) : (1)); else
18757 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgeqp3() 1st keyword (lwork) can't be converted to int");
18758 if (f2py_success) {
18759 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","zgeqp3:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgeqp3:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
18760 /* Processing variable work */
18761 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
18762 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
18763 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
18764 if (capi_work_tmp == NULL((void*)0)) {
18765 if (!PyErr_Occurred())
18766 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgeqp3 to C/Fortran array" );
18767 } else {
18768 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
18769
18770 /* Processing variable rwork */
18771 rwork_Dims[0]=2 * n;
18772 capi_rwork_intent |= F2PY_INTENT_HIDE8;
18773 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
18774 if (capi_rwork_tmp == NULL((void*)0)) {
18775 if (!PyErr_Occurred())
18776 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgeqp3 to C/Fortran array" );
18777 } else {
18778 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
18779
18780/*end of frompyobj*/
18781#ifdef F2PY_REPORT_ATEXIT
18782f2py_start_call_clock();
18783#endif
18784/*callfortranroutine*/
18785 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
18786 (*f2py_func)(&m,&n,a,&m,jpvt,tau,work,&lwork,rwork,&info) ;
18787 /*(*f2py_func)(&m,&n,a,jpvt,tau,work,&lwork,rwork,&info);*/
18788 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
18789if (PyErr_Occurred())
18790 f2py_success = 0;
18791#ifdef F2PY_REPORT_ATEXIT
18792f2py_stop_call_clock();
18793#endif
18794/*end of callfortranroutine*/
18795 if (f2py_success) {
18796/*pyobjfrom*/
18797/*end of pyobjfrom*/
18798 CFUNCSMESS("Building return value.\n");
18799 capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_jpvt_tmp,capi_tau_tmp,capi_work_tmp,info);
18800/*closepyobjfrom*/
18801/*end of closepyobjfrom*/
18802 } /*if (f2py_success) after callfortranroutine*/
18803/*cleanupfrompyobj*/
18804 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
18805 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
18806 /* End of cleaning variable rwork */
18807 } /*if (capi_work_tmp == NULL) ... else of work*/
18808 /* End of cleaning variable work */
18809 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
18810 } /*if (f2py_success) of lwork*/
18811 /* End of cleaning variable lwork */
18812 } /*if (capi_tau_tmp == NULL) ... else of tau*/
18813 /* End of cleaning variable tau */
18814 } /*if (capi_jpvt_tmp == NULL) ... else of jpvt*/
18815 /* End of cleaning variable jpvt */
18816 /* End of cleaning variable n */
18817 /* End of cleaning variable m */
18818 /* End of cleaning variable info */
18819 } /*if (capi_a_tmp == NULL) ... else of a*/
18820 /* End of cleaning variable a */
18821/*end of cleanupfrompyobj*/
18822 if (capi_buildvalue == NULL((void*)0)) {
18823/*routdebugfailure*/
18824 } else {
18825/*routdebugleave*/
18826 }
18827 CFUNCSMESS("Freeing memory.\n");
18828/*freemem*/
18829#ifdef F2PY_REPORT_ATEXIT
18830f2py_stop_clock();
18831#endif
18832 return capi_buildvalue;
18833}
18834/******************************* end of zgeqp3 *******************************/
18835
18836/*********************************** sgeqrf ***********************************/
18837static char doc_f2py_rout__flapack_sgeqrf[] = "\
18838qr,tau,work,info = sgeqrf(a,[lwork,overwrite_a])\n\nWrapper for ``sgeqrf``.\
18839\n\nParameters\n----------\n"
18840"a : input rank-2 array('f') with bounds (m,n)\n"
18841"\nOther Parameters\n----------------\n"
18842"overwrite_a : input int, optional\n Default: 0\n"
18843"lwork : input int, optional\n Default: max(3*n,1)\n"
18844"\nReturns\n-------\n"
18845"qr : rank-2 array('f') with bounds (m,n) and a storage\n"
18846"tau : rank-1 array('f') with bounds (MIN(m,n))\n"
18847"work : rank-1 array('f') with bounds (MAX(lwork,1))\n"
18848"info : int";
18849/* extern void F_FUNC(sgeqrf,SGEQRF)(F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */
18850static PyObject *f2py_rout__flapack_sgeqrf(const PyObject *capi_self,
18851 PyObject *capi_args,
18852 PyObject *capi_keywds,
18853 void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
18854 PyObject * volatile capi_buildvalue = NULL((void*)0);
18855 volatile int f2py_success = 1;
18856/*decl*/
18857
18858 int m = 0;
18859 int n = 0;
18860 float *a = NULL((void*)0);
18861 npy_intp a_Dims[2] = {-1, -1};
18862 const int a_Rank = 2;
18863 PyArrayObject *capi_a_tmp = NULL((void*)0);
18864 int capi_a_intent = 0;
18865 int capi_overwrite_a = 0;
18866 PyObject *a_capi = Py_None(&_Py_NoneStruct);
18867 float *tau = NULL((void*)0);
18868 npy_intp tau_Dims[1] = {-1};
18869 const int tau_Rank = 1;
18870 PyArrayObject *capi_tau_tmp = NULL((void*)0);
18871 int capi_tau_intent = 0;
18872 float *work = NULL((void*)0);
18873 npy_intp work_Dims[1] = {-1};
18874 const int work_Rank = 1;
18875 PyArrayObject *capi_work_tmp = NULL((void*)0);
18876 int capi_work_intent = 0;
18877 int lwork = 0;
18878 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
18879 int info = 0;
18880 static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)};
18881
18882/*routdebugenter*/
18883#ifdef F2PY_REPORT_ATEXIT
18884f2py_start_clock();
18885#endif
18886 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
18887 "O|Oi:_flapack.sgeqrf",\
18888 capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a))
18889 return NULL((void*)0);
18890/*frompyobj*/
18891 /* Processing variable a */
18892 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
18893 ;
18894 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
18895 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
18896 if (capi_a_tmp == NULL((void*)0)) {
18897 if (!PyErr_Occurred())
18898 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgeqrf to C/Fortran array" );
18899 } else {
18900 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
18901
18902 /* Processing variable info */
18903 /* Processing variable m */
18904 m = shape(a,0)a_Dims[0];
18905 /* Processing variable n */
18906 n = shape(a,1)a_Dims[1];
18907 /* Processing variable tau */
18908 tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
18909 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
18910 capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
18911 if (capi_tau_tmp == NULL((void*)0)) {
18912 if (!PyErr_Occurred())
18913 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.sgeqrf to C/Fortran array" );
18914 } else {
18915 tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
18916
18917 /* Processing variable lwork */
18918 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else
18919 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgeqrf() 1st keyword (lwork) can't be converted to int");
18920 if (f2py_success) {
18921 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","sgeqrf:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgeqrf:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
18922 /* Processing variable work */
18923 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
18924 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
18925 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
18926 if (capi_work_tmp == NULL((void*)0)) {
18927 if (!PyErr_Occurred())
18928 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgeqrf to C/Fortran array" );
18929 } else {
18930 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
18931
18932/*end of frompyobj*/
18933#ifdef F2PY_REPORT_ATEXIT
18934f2py_start_call_clock();
18935#endif
18936/*callfortranroutine*/
18937 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
18938 (*f2py_func)(&m,&n,a,&m,tau,work,&lwork,&info) ;
18939 /*(*f2py_func)(&m,&n,a,tau,work,&lwork,&info);*/
18940 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
18941if (PyErr_Occurred())
18942 f2py_success = 0;
18943#ifdef F2PY_REPORT_ATEXIT
18944f2py_stop_call_clock();
18945#endif
18946/*end of callfortranroutine*/
18947 if (f2py_success) {
18948/*pyobjfrom*/
18949/*end of pyobjfrom*/
18950 CFUNCSMESS("Building return value.\n");
18951 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_tau_tmp,capi_work_tmp,info);
18952/*closepyobjfrom*/
18953/*end of closepyobjfrom*/
18954 } /*if (f2py_success) after callfortranroutine*/
18955/*cleanupfrompyobj*/
18956 } /*if (capi_work_tmp == NULL) ... else of work*/
18957 /* End of cleaning variable work */
18958 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
18959 } /*if (f2py_success) of lwork*/
18960 /* End of cleaning variable lwork */
18961 } /*if (capi_tau_tmp == NULL) ... else of tau*/
18962 /* End of cleaning variable tau */
18963 /* End of cleaning variable n */
18964 /* End of cleaning variable m */
18965 /* End of cleaning variable info */
18966 } /*if (capi_a_tmp == NULL) ... else of a*/
18967 /* End of cleaning variable a */
18968/*end of cleanupfrompyobj*/
18969 if (capi_buildvalue == NULL((void*)0)) {
18970/*routdebugfailure*/
18971 } else {
18972/*routdebugleave*/
18973 }
18974 CFUNCSMESS("Freeing memory.\n");
18975/*freemem*/
18976#ifdef F2PY_REPORT_ATEXIT
18977f2py_stop_clock();
18978#endif
18979 return capi_buildvalue;
18980}
18981/******************************* end of sgeqrf *******************************/
18982
18983/*********************************** dgeqrf ***********************************/
18984static char doc_f2py_rout__flapack_dgeqrf[] = "\
18985qr,tau,work,info = dgeqrf(a,[lwork,overwrite_a])\n\nWrapper for ``dgeqrf``.\
18986\n\nParameters\n----------\n"
18987"a : input rank-2 array('d') with bounds (m,n)\n"
18988"\nOther Parameters\n----------------\n"
18989"overwrite_a : input int, optional\n Default: 0\n"
18990"lwork : input int, optional\n Default: max(3*n,1)\n"
18991"\nReturns\n-------\n"
18992"qr : rank-2 array('d') with bounds (m,n) and a storage\n"
18993"tau : rank-1 array('d') with bounds (MIN(m,n))\n"
18994"work : rank-1 array('d') with bounds (MAX(lwork,1))\n"
18995"info : int";
18996/* extern void F_FUNC(dgeqrf,DGEQRF)(F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */
18997static PyObject *f2py_rout__flapack_dgeqrf(const PyObject *capi_self,
18998 PyObject *capi_args,
18999 PyObject *capi_keywds,
19000 void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
19001 PyObject * volatile capi_buildvalue = NULL((void*)0);
19002 volatile int f2py_success = 1;
19003/*decl*/
19004
19005 int m = 0;
19006 int n = 0;
19007 double *a = NULL((void*)0);
19008 npy_intp a_Dims[2] = {-1, -1};
19009 const int a_Rank = 2;
19010 PyArrayObject *capi_a_tmp = NULL((void*)0);
19011 int capi_a_intent = 0;
19012 int capi_overwrite_a = 0;
19013 PyObject *a_capi = Py_None(&_Py_NoneStruct);
19014 double *tau = NULL((void*)0);
19015 npy_intp tau_Dims[1] = {-1};
19016 const int tau_Rank = 1;
19017 PyArrayObject *capi_tau_tmp = NULL((void*)0);
19018 int capi_tau_intent = 0;
19019 double *work = NULL((void*)0);
19020 npy_intp work_Dims[1] = {-1};
19021 const int work_Rank = 1;
19022 PyArrayObject *capi_work_tmp = NULL((void*)0);
19023 int capi_work_intent = 0;
19024 int lwork = 0;
19025 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
19026 int info = 0;
19027 static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)};
19028
19029/*routdebugenter*/
19030#ifdef F2PY_REPORT_ATEXIT
19031f2py_start_clock();
19032#endif
19033 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
19034 "O|Oi:_flapack.dgeqrf",\
19035 capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a))
19036 return NULL((void*)0);
19037/*frompyobj*/
19038 /* Processing variable a */
19039 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
19040 ;
19041 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
19042 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
19043 if (capi_a_tmp == NULL((void*)0)) {
19044 if (!PyErr_Occurred())
19045 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgeqrf to C/Fortran array" );
19046 } else {
19047 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
19048
19049 /* Processing variable info */
19050 /* Processing variable m */
19051 m = shape(a,0)a_Dims[0];
19052 /* Processing variable n */
19053 n = shape(a,1)a_Dims[1];
19054 /* Processing variable tau */
19055 tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
19056 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
19057 capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
19058 if (capi_tau_tmp == NULL((void*)0)) {
19059 if (!PyErr_Occurred())
19060 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.dgeqrf to C/Fortran array" );
19061 } else {
19062 tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
19063
19064 /* Processing variable lwork */
19065 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else
19066 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgeqrf() 1st keyword (lwork) can't be converted to int");
19067 if (f2py_success) {
19068 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","dgeqrf:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgeqrf:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
19069 /* Processing variable work */
19070 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
19071 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
19072 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
19073 if (capi_work_tmp == NULL((void*)0)) {
19074 if (!PyErr_Occurred())
19075 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgeqrf to C/Fortran array" );
19076 } else {
19077 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
19078
19079/*end of frompyobj*/
19080#ifdef F2PY_REPORT_ATEXIT
19081f2py_start_call_clock();
19082#endif
19083/*callfortranroutine*/
19084 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
19085 (*f2py_func)(&m,&n,a,&m,tau,work,&lwork,&info) ;
19086 /*(*f2py_func)(&m,&n,a,tau,work,&lwork,&info);*/
19087 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
19088if (PyErr_Occurred())
19089 f2py_success = 0;
19090#ifdef F2PY_REPORT_ATEXIT
19091f2py_stop_call_clock();
19092#endif
19093/*end of callfortranroutine*/
19094 if (f2py_success) {
19095/*pyobjfrom*/
19096/*end of pyobjfrom*/
19097 CFUNCSMESS("Building return value.\n");
19098 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_tau_tmp,capi_work_tmp,info);
19099/*closepyobjfrom*/
19100/*end of closepyobjfrom*/
19101 } /*if (f2py_success) after callfortranroutine*/
19102/*cleanupfrompyobj*/
19103 } /*if (capi_work_tmp == NULL) ... else of work*/
19104 /* End of cleaning variable work */
19105 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
19106 } /*if (f2py_success) of lwork*/
19107 /* End of cleaning variable lwork */
19108 } /*if (capi_tau_tmp == NULL) ... else of tau*/
19109 /* End of cleaning variable tau */
19110 /* End of cleaning variable n */
19111 /* End of cleaning variable m */
19112 /* End of cleaning variable info */
19113 } /*if (capi_a_tmp == NULL) ... else of a*/
19114 /* End of cleaning variable a */
19115/*end of cleanupfrompyobj*/
19116 if (capi_buildvalue == NULL((void*)0)) {
19117/*routdebugfailure*/
19118 } else {
19119/*routdebugleave*/
19120 }
19121 CFUNCSMESS("Freeing memory.\n");
19122/*freemem*/
19123#ifdef F2PY_REPORT_ATEXIT
19124f2py_stop_clock();
19125#endif
19126 return capi_buildvalue;
19127}
19128/******************************* end of dgeqrf *******************************/
19129
19130/*********************************** cgeqrf ***********************************/
19131static char doc_f2py_rout__flapack_cgeqrf[] = "\
19132qr,tau,work,info = cgeqrf(a,[lwork,overwrite_a])\n\nWrapper for ``cgeqrf``.\
19133\n\nParameters\n----------\n"
19134"a : input rank-2 array('F') with bounds (m,n)\n"
19135"\nOther Parameters\n----------------\n"
19136"overwrite_a : input int, optional\n Default: 0\n"
19137"lwork : input int, optional\n Default: max(3*n,1)\n"
19138"\nReturns\n-------\n"
19139"qr : rank-2 array('F') with bounds (m,n) and a storage\n"
19140"tau : rank-1 array('F') with bounds (MIN(m,n))\n"
19141"work : rank-1 array('F') with bounds (MAX(lwork,1))\n"
19142"info : int";
19143/* extern void F_FUNC(cgeqrf,CGEQRF)(F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */
19144static PyObject *f2py_rout__flapack_cgeqrf(const PyObject *capi_self,
19145 PyObject *capi_args,
19146 PyObject *capi_keywds,
19147 void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
19148 PyObject * volatile capi_buildvalue = NULL((void*)0);
19149 volatile int f2py_success = 1;
19150/*decl*/
19151
19152 int m = 0;
19153 int n = 0;
19154 complex_float *a = NULL((void*)0);
19155 npy_intp a_Dims[2] = {-1, -1};
19156 const int a_Rank = 2;
19157 PyArrayObject *capi_a_tmp = NULL((void*)0);
19158 int capi_a_intent = 0;
19159 int capi_overwrite_a = 0;
19160 PyObject *a_capi = Py_None(&_Py_NoneStruct);
19161 complex_float *tau = NULL((void*)0);
19162 npy_intp tau_Dims[1] = {-1};
19163 const int tau_Rank = 1;
19164 PyArrayObject *capi_tau_tmp = NULL((void*)0);
19165 int capi_tau_intent = 0;
19166 complex_float *work = NULL((void*)0);
19167 npy_intp work_Dims[1] = {-1};
19168 const int work_Rank = 1;
19169 PyArrayObject *capi_work_tmp = NULL((void*)0);
19170 int capi_work_intent = 0;
19171 int lwork = 0;
19172 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
19173 int info = 0;
19174 static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)};
19175
19176/*routdebugenter*/
19177#ifdef F2PY_REPORT_ATEXIT
19178f2py_start_clock();
19179#endif
19180 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
19181 "O|Oi:_flapack.cgeqrf",\
19182 capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a))
19183 return NULL((void*)0);
19184/*frompyobj*/
19185 /* Processing variable a */
19186 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
19187 ;
19188 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
19189 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
19190 if (capi_a_tmp == NULL((void*)0)) {
19191 if (!PyErr_Occurred())
19192 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgeqrf to C/Fortran array" );
19193 } else {
19194 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
19195
19196 /* Processing variable info */
19197 /* Processing variable m */
19198 m = shape(a,0)a_Dims[0];
19199 /* Processing variable n */
19200 n = shape(a,1)a_Dims[1];
19201 /* Processing variable tau */
19202 tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
19203 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
19204 capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
19205 if (capi_tau_tmp == NULL((void*)0)) {
19206 if (!PyErr_Occurred())
19207 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.cgeqrf to C/Fortran array" );
19208 } else {
19209 tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
19210
19211 /* Processing variable lwork */
19212 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else
19213 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgeqrf() 1st keyword (lwork) can't be converted to int");
19214 if (f2py_success) {
19215 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","cgeqrf:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgeqrf:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
19216 /* Processing variable work */
19217 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
19218 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
19219 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
19220 if (capi_work_tmp == NULL((void*)0)) {
19221 if (!PyErr_Occurred())
19222 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgeqrf to C/Fortran array" );
19223 } else {
19224 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
19225
19226/*end of frompyobj*/
19227#ifdef F2PY_REPORT_ATEXIT
19228f2py_start_call_clock();
19229#endif
19230/*callfortranroutine*/
19231 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
19232 (*f2py_func)(&m,&n,a,&m,tau,work,&lwork,&info) ;
19233 /*(*f2py_func)(&m,&n,a,tau,work,&lwork,&info);*/
19234 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
19235if (PyErr_Occurred())
19236 f2py_success = 0;
19237#ifdef F2PY_REPORT_ATEXIT
19238f2py_stop_call_clock();
19239#endif
19240/*end of callfortranroutine*/
19241 if (f2py_success) {
19242/*pyobjfrom*/
19243/*end of pyobjfrom*/
19244 CFUNCSMESS("Building return value.\n");
19245 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_tau_tmp,capi_work_tmp,info);
19246/*closepyobjfrom*/
19247/*end of closepyobjfrom*/
19248 } /*if (f2py_success) after callfortranroutine*/
19249/*cleanupfrompyobj*/
19250 } /*if (capi_work_tmp == NULL) ... else of work*/
19251 /* End of cleaning variable work */
19252 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
19253 } /*if (f2py_success) of lwork*/
19254 /* End of cleaning variable lwork */
19255 } /*if (capi_tau_tmp == NULL) ... else of tau*/
19256 /* End of cleaning variable tau */
19257 /* End of cleaning variable n */
19258 /* End of cleaning variable m */
19259 /* End of cleaning variable info */
19260 } /*if (capi_a_tmp == NULL) ... else of a*/
19261 /* End of cleaning variable a */
19262/*end of cleanupfrompyobj*/
19263 if (capi_buildvalue == NULL((void*)0)) {
19264/*routdebugfailure*/
19265 } else {
19266/*routdebugleave*/
19267 }
19268 CFUNCSMESS("Freeing memory.\n");
19269/*freemem*/
19270#ifdef F2PY_REPORT_ATEXIT
19271f2py_stop_clock();
19272#endif
19273 return capi_buildvalue;
19274}
19275/******************************* end of cgeqrf *******************************/
19276
19277/*********************************** zgeqrf ***********************************/
19278static char doc_f2py_rout__flapack_zgeqrf[] = "\
19279qr,tau,work,info = zgeqrf(a,[lwork,overwrite_a])\n\nWrapper for ``zgeqrf``.\
19280\n\nParameters\n----------\n"
19281"a : input rank-2 array('D') with bounds (m,n)\n"
19282"\nOther Parameters\n----------------\n"
19283"overwrite_a : input int, optional\n Default: 0\n"
19284"lwork : input int, optional\n Default: max(3*n,1)\n"
19285"\nReturns\n-------\n"
19286"qr : rank-2 array('D') with bounds (m,n) and a storage\n"
19287"tau : rank-1 array('D') with bounds (MIN(m,n))\n"
19288"work : rank-1 array('D') with bounds (MAX(lwork,1))\n"
19289"info : int";
19290/* extern void F_FUNC(zgeqrf,ZGEQRF)(F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */
19291static PyObject *f2py_rout__flapack_zgeqrf(const PyObject *capi_self,
19292 PyObject *capi_args,
19293 PyObject *capi_keywds,
19294 void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
19295 PyObject * volatile capi_buildvalue = NULL((void*)0);
19296 volatile int f2py_success = 1;
19297/*decl*/
19298
19299 int m = 0;
19300 int n = 0;
19301 complex_double *a = NULL((void*)0);
19302 npy_intp a_Dims[2] = {-1, -1};
19303 const int a_Rank = 2;
19304 PyArrayObject *capi_a_tmp = NULL((void*)0);
19305 int capi_a_intent = 0;
19306 int capi_overwrite_a = 0;
19307 PyObject *a_capi = Py_None(&_Py_NoneStruct);
19308 complex_double *tau = NULL((void*)0);
19309 npy_intp tau_Dims[1] = {-1};
19310 const int tau_Rank = 1;
19311 PyArrayObject *capi_tau_tmp = NULL((void*)0);
19312 int capi_tau_intent = 0;
19313 complex_double *work = NULL((void*)0);
19314 npy_intp work_Dims[1] = {-1};
19315 const int work_Rank = 1;
19316 PyArrayObject *capi_work_tmp = NULL((void*)0);
19317 int capi_work_intent = 0;
19318 int lwork = 0;
19319 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
19320 int info = 0;
19321 static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)};
19322
19323/*routdebugenter*/
19324#ifdef F2PY_REPORT_ATEXIT
19325f2py_start_clock();
19326#endif
19327 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
19328 "O|Oi:_flapack.zgeqrf",\
19329 capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a))
19330 return NULL((void*)0);
19331/*frompyobj*/
19332 /* Processing variable a */
19333 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
19334 ;
19335 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
19336 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
19337 if (capi_a_tmp == NULL((void*)0)) {
19338 if (!PyErr_Occurred())
19339 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgeqrf to C/Fortran array" );
19340 } else {
19341 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
19342
19343 /* Processing variable info */
19344 /* Processing variable m */
19345 m = shape(a,0)a_Dims[0];
19346 /* Processing variable n */
19347 n = shape(a,1)a_Dims[1];
19348 /* Processing variable tau */
19349 tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
19350 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
19351 capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
19352 if (capi_tau_tmp == NULL((void*)0)) {
19353 if (!PyErr_Occurred())
19354 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.zgeqrf to C/Fortran array" );
19355 } else {
19356 tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
19357
19358 /* Processing variable lwork */
19359 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else
19360 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgeqrf() 1st keyword (lwork) can't be converted to int");
19361 if (f2py_success) {
19362 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","zgeqrf:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgeqrf:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
19363 /* Processing variable work */
19364 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
19365 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
19366 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
19367 if (capi_work_tmp == NULL((void*)0)) {
19368 if (!PyErr_Occurred())
19369 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgeqrf to C/Fortran array" );
19370 } else {
19371 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
19372
19373/*end of frompyobj*/
19374#ifdef F2PY_REPORT_ATEXIT
19375f2py_start_call_clock();
19376#endif
19377/*callfortranroutine*/
19378 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
19379 (*f2py_func)(&m,&n,a,&m,tau,work,&lwork,&info) ;
19380 /*(*f2py_func)(&m,&n,a,tau,work,&lwork,&info);*/
19381 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
19382if (PyErr_Occurred())
19383 f2py_success = 0;
19384#ifdef F2PY_REPORT_ATEXIT
19385f2py_stop_call_clock();
19386#endif
19387/*end of callfortranroutine*/
19388 if (f2py_success) {
19389/*pyobjfrom*/
19390/*end of pyobjfrom*/
19391 CFUNCSMESS("Building return value.\n");
19392 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_tau_tmp,capi_work_tmp,info);
19393/*closepyobjfrom*/
19394/*end of closepyobjfrom*/
19395 } /*if (f2py_success) after callfortranroutine*/
19396/*cleanupfrompyobj*/
19397 } /*if (capi_work_tmp == NULL) ... else of work*/
19398 /* End of cleaning variable work */
19399 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
19400 } /*if (f2py_success) of lwork*/
19401 /* End of cleaning variable lwork */
19402 } /*if (capi_tau_tmp == NULL) ... else of tau*/
19403 /* End of cleaning variable tau */
19404 /* End of cleaning variable n */
19405 /* End of cleaning variable m */
19406 /* End of cleaning variable info */
19407 } /*if (capi_a_tmp == NULL) ... else of a*/
19408 /* End of cleaning variable a */
19409/*end of cleanupfrompyobj*/
19410 if (capi_buildvalue == NULL((void*)0)) {
19411/*routdebugfailure*/
19412 } else {
19413/*routdebugleave*/
19414 }
19415 CFUNCSMESS("Freeing memory.\n");
19416/*freemem*/
19417#ifdef F2PY_REPORT_ATEXIT
19418f2py_stop_clock();
19419#endif
19420 return capi_buildvalue;
19421}
19422/******************************* end of zgeqrf *******************************/
19423
19424/******************************** sgeqrf_lwork ********************************/
19425static char doc_f2py_rout__flapack_sgeqrf_lwork[] = "\
19426work,info = sgeqrf_lwork(m,n)\n\nWrapper for ``sgeqrf_lwork``.\
19427\n\nParameters\n----------\n"
19428"m : input int\n"
19429"n : input int\n"
19430"\nReturns\n-------\n"
19431"work : float\n"
19432"info : int";
19433/* extern void F_FUNC(sgeqrf ,SGEQRF )(F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */
19434static PyObject *f2py_rout__flapack_sgeqrf_lwork(const PyObject *capi_self,
19435 PyObject *capi_args,
19436 PyObject *capi_keywds,
19437 void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
19438 PyObject * volatile capi_buildvalue = NULL((void*)0);
19439 volatile int f2py_success = 1;
19440/*decl*/
19441
19442 int m = 0;
19443 PyObject *m_capi = Py_None(&_Py_NoneStruct);
19444 int n = 0;
19445 PyObject *n_capi = Py_None(&_Py_NoneStruct);
19446 float a = 0;
19447 float tau = 0;
19448 float work = 0;
19449 int lwork = 0;
19450 int info = 0;
19451 static char *capi_kwlist[] = {"m","n",NULL((void*)0)};
19452
19453/*routdebugenter*/
19454#ifdef F2PY_REPORT_ATEXIT
19455f2py_start_clock();
19456#endif
19457 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
19458 "OO:_flapack.sgeqrf_lwork",\
19459 capi_kwlist,&m_capi,&n_capi))
19460 return NULL((void*)0);
19461/*frompyobj*/
19462 /* Processing variable m */
19463 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sgeqrf_lwork() 1st argument (m) can't be converted to int");
19464 if (f2py_success) {
19465 CHECKSCALAR(m > 0,"m > 0","1st argument m","sgeqrf_lwork:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgeqrf_lwork:m=%d", "(""m > 0"") failed for ""1st argument m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
19466 /* Processing variable n */
19467 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgeqrf_lwork() 2nd argument (n) can't be converted to int");
19468 if (f2py_success) {
19469 CHECKSCALAR(n > 0,"n > 0","2nd argument n","sgeqrf_lwork:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgeqrf_lwork:n=%d", "(""n > 0"") failed for ""2nd argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
19470 /* Processing variable a */
19471 /* Processing variable tau */
19472 /* Processing variable work */
19473 /* Processing variable lwork */
19474 lwork = -1;
19475 /* Processing variable info */
19476/*end of frompyobj*/
19477#ifdef F2PY_REPORT_ATEXIT
19478f2py_start_call_clock();
19479#endif
19480/*callfortranroutine*/
19481 (*f2py_func)(&m,&n,&a,&m,&tau,&work,&lwork,&info) ;
19482 /*(*f2py_func)(&m,&n,&a,&tau,&work,&lwork,&info);*/
19483if (PyErr_Occurred())
19484 f2py_success = 0;
19485#ifdef F2PY_REPORT_ATEXIT
19486f2py_stop_call_clock();
19487#endif
19488/*end of callfortranroutine*/
19489 if (f2py_success) {
19490/*pyobjfrom*/
19491/*end of pyobjfrom*/
19492 CFUNCSMESS("Building return value.\n");
19493 capi_buildvalue = Py_BuildValue("fi",work,info);
19494/*closepyobjfrom*/
19495/*end of closepyobjfrom*/
19496 } /*if (f2py_success) after callfortranroutine*/
19497/*cleanupfrompyobj*/
19498 /* End of cleaning variable info */
19499 /* End of cleaning variable lwork */
19500 /* End of cleaning variable work */
19501 /* End of cleaning variable tau */
19502 /* End of cleaning variable a */
19503 } /*CHECKSCALAR(n > 0)*/
19504 } /*if (f2py_success) of n*/
19505 /* End of cleaning variable n */
19506 } /*CHECKSCALAR(m > 0)*/
19507 } /*if (f2py_success) of m*/
19508 /* End of cleaning variable m */
19509/*end of cleanupfrompyobj*/
19510 if (capi_buildvalue == NULL((void*)0)) {
19511/*routdebugfailure*/
19512 } else {
19513/*routdebugleave*/
19514 }
19515 CFUNCSMESS("Freeing memory.\n");
19516/*freemem*/
19517#ifdef F2PY_REPORT_ATEXIT
19518f2py_stop_clock();
19519#endif
19520 return capi_buildvalue;
19521}
19522/**************************** end of sgeqrf_lwork ****************************/
19523
19524/******************************** dgeqrf_lwork ********************************/
19525static char doc_f2py_rout__flapack_dgeqrf_lwork[] = "\
19526work,info = dgeqrf_lwork(m,n)\n\nWrapper for ``dgeqrf_lwork``.\
19527\n\nParameters\n----------\n"
19528"m : input int\n"
19529"n : input int\n"
19530"\nReturns\n-------\n"
19531"work : float\n"
19532"info : int";
19533/* extern void F_FUNC(dgeqrf ,DGEQRF )(F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */
19534static PyObject *f2py_rout__flapack_dgeqrf_lwork(const PyObject *capi_self,
19535 PyObject *capi_args,
19536 PyObject *capi_keywds,
19537 void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
19538 PyObject * volatile capi_buildvalue = NULL((void*)0);
19539 volatile int f2py_success = 1;
19540/*decl*/
19541
19542 int m = 0;
19543 PyObject *m_capi = Py_None(&_Py_NoneStruct);
19544 int n = 0;
19545 PyObject *n_capi = Py_None(&_Py_NoneStruct);
19546 double a = 0;
19547 double tau = 0;
19548 double work = 0;
19549 int lwork = 0;
19550 int info = 0;
19551 static char *capi_kwlist[] = {"m","n",NULL((void*)0)};
19552
19553/*routdebugenter*/
19554#ifdef F2PY_REPORT_ATEXIT
19555f2py_start_clock();
19556#endif
19557 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
19558 "OO:_flapack.dgeqrf_lwork",\
19559 capi_kwlist,&m_capi,&n_capi))
19560 return NULL((void*)0);
19561/*frompyobj*/
19562 /* Processing variable m */
19563 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dgeqrf_lwork() 1st argument (m) can't be converted to int");
19564 if (f2py_success) {
19565 CHECKSCALAR(m > 0,"m > 0","1st argument m","dgeqrf_lwork:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgeqrf_lwork:m=%d", "(""m > 0"") failed for ""1st argument m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
19566 /* Processing variable n */
19567 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgeqrf_lwork() 2nd argument (n) can't be converted to int");
19568 if (f2py_success) {
19569 CHECKSCALAR(n > 0,"n > 0","2nd argument n","dgeqrf_lwork:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgeqrf_lwork:n=%d", "(""n > 0"") failed for ""2nd argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
19570 /* Processing variable a */
19571 /* Processing variable tau */
19572 /* Processing variable work */
19573 /* Processing variable lwork */
19574 lwork = -1;
19575 /* Processing variable info */
19576/*end of frompyobj*/
19577#ifdef F2PY_REPORT_ATEXIT
19578f2py_start_call_clock();
19579#endif
19580/*callfortranroutine*/
19581 (*f2py_func)(&m,&n,&a,&m,&tau,&work,&lwork,&info) ;
19582 /*(*f2py_func)(&m,&n,&a,&tau,&work,&lwork,&info);*/
19583if (PyErr_Occurred())
19584 f2py_success = 0;
19585#ifdef F2PY_REPORT_ATEXIT
19586f2py_stop_call_clock();
19587#endif
19588/*end of callfortranroutine*/
19589 if (f2py_success) {
19590/*pyobjfrom*/
19591/*end of pyobjfrom*/
19592 CFUNCSMESS("Building return value.\n");
19593 capi_buildvalue = Py_BuildValue("di",work,info);
19594/*closepyobjfrom*/
19595/*end of closepyobjfrom*/
19596 } /*if (f2py_success) after callfortranroutine*/
19597/*cleanupfrompyobj*/
19598 /* End of cleaning variable info */
19599 /* End of cleaning variable lwork */
19600 /* End of cleaning variable work */
19601 /* End of cleaning variable tau */
19602 /* End of cleaning variable a */
19603 } /*CHECKSCALAR(n > 0)*/
19604 } /*if (f2py_success) of n*/
19605 /* End of cleaning variable n */
19606 } /*CHECKSCALAR(m > 0)*/
19607 } /*if (f2py_success) of m*/
19608 /* End of cleaning variable m */
19609/*end of cleanupfrompyobj*/
19610 if (capi_buildvalue == NULL((void*)0)) {
19611/*routdebugfailure*/
19612 } else {
19613/*routdebugleave*/
19614 }
19615 CFUNCSMESS("Freeing memory.\n");
19616/*freemem*/
19617#ifdef F2PY_REPORT_ATEXIT
19618f2py_stop_clock();
19619#endif
19620 return capi_buildvalue;
19621}
19622/**************************** end of dgeqrf_lwork ****************************/
19623
19624/******************************** cgeqrf_lwork ********************************/
19625static char doc_f2py_rout__flapack_cgeqrf_lwork[] = "\
19626work,info = cgeqrf_lwork(m,n)\n\nWrapper for ``cgeqrf_lwork``.\
19627\n\nParameters\n----------\n"
19628"m : input int\n"
19629"n : input int\n"
19630"\nReturns\n-------\n"
19631"work : complex\n"
19632"info : int";
19633/* extern void F_FUNC(cgeqrf ,CGEQRF )(F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */
19634static PyObject *f2py_rout__flapack_cgeqrf_lwork(const PyObject *capi_self,
19635 PyObject *capi_args,
19636 PyObject *capi_keywds,
19637 void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
19638 PyObject * volatile capi_buildvalue = NULL((void*)0);
19639 volatile int f2py_success = 1;
19640/*decl*/
19641
19642 int m = 0;
19643 PyObject *m_capi = Py_None(&_Py_NoneStruct);
19644 int n = 0;
19645 PyObject *n_capi = Py_None(&_Py_NoneStruct);
19646 complex_float a;
19647 complex_float tau;
19648 complex_float work;
19649 PyObject *work_capi = Py_None(&_Py_NoneStruct);
19650 int lwork = 0;
19651 int info = 0;
19652 static char *capi_kwlist[] = {"m","n",NULL((void*)0)};
19653
19654/*routdebugenter*/
19655#ifdef F2PY_REPORT_ATEXIT
19656f2py_start_clock();
19657#endif
19658 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
19659 "OO:_flapack.cgeqrf_lwork",\
19660 capi_kwlist,&m_capi,&n_capi))
19661 return NULL((void*)0);
19662/*frompyobj*/
19663 /* Processing variable m */
19664 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cgeqrf_lwork() 1st argument (m) can't be converted to int");
19665 if (f2py_success) {
19666 CHECKSCALAR(m > 0,"m > 0","1st argument m","cgeqrf_lwork:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgeqrf_lwork:m=%d", "(""m > 0"") failed for ""1st argument m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
19667 /* Processing variable n */
19668 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgeqrf_lwork() 2nd argument (n) can't be converted to int");
19669 if (f2py_success) {
19670 CHECKSCALAR(n > 0,"n > 0","2nd argument n","cgeqrf_lwork:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgeqrf_lwork:n=%d", "(""n > 0"") failed for ""2nd argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
19671 /* Processing variable a */
19672 /* Processing variable tau */
19673 /* Processing variable work */
19674 /* Processing variable lwork */
19675 lwork = -1;
19676 /* Processing variable info */
19677/*end of frompyobj*/
19678#ifdef F2PY_REPORT_ATEXIT
19679f2py_start_call_clock();
19680#endif
19681/*callfortranroutine*/
19682 (*f2py_func)(&m,&n,&a,&m,&tau,&work,&lwork,&info) ;
19683 /*(*f2py_func)(&m,&n,&a,&tau,&work,&lwork,&info);*/
19684if (PyErr_Occurred())
19685 f2py_success = 0;
19686#ifdef F2PY_REPORT_ATEXIT
19687f2py_stop_call_clock();
19688#endif
19689/*end of callfortranroutine*/
19690 if (f2py_success) {
19691/*pyobjfrom*/
19692 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
19693/*end of pyobjfrom*/
19694 CFUNCSMESS("Building return value.\n");
19695 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
19696/*closepyobjfrom*/
19697/*end of closepyobjfrom*/
19698 } /*if (f2py_success) after callfortranroutine*/
19699/*cleanupfrompyobj*/
19700 /* End of cleaning variable info */
19701 /* End of cleaning variable lwork */
19702 /* End of cleaning variable work */
19703 /* End of cleaning variable tau */
19704 /* End of cleaning variable a */
19705 } /*CHECKSCALAR(n > 0)*/
19706 } /*if (f2py_success) of n*/
19707 /* End of cleaning variable n */
19708 } /*CHECKSCALAR(m > 0)*/
19709 } /*if (f2py_success) of m*/
19710 /* End of cleaning variable m */
19711/*end of cleanupfrompyobj*/
19712 if (capi_buildvalue == NULL((void*)0)) {
19713/*routdebugfailure*/
19714 } else {
19715/*routdebugleave*/
19716 }
19717 CFUNCSMESS("Freeing memory.\n");
19718/*freemem*/
19719#ifdef F2PY_REPORT_ATEXIT
19720f2py_stop_clock();
19721#endif
19722 return capi_buildvalue;
19723}
19724/**************************** end of cgeqrf_lwork ****************************/
19725
19726/******************************** zgeqrf_lwork ********************************/
19727static char doc_f2py_rout__flapack_zgeqrf_lwork[] = "\
19728work,info = zgeqrf_lwork(m,n)\n\nWrapper for ``zgeqrf_lwork``.\
19729\n\nParameters\n----------\n"
19730"m : input int\n"
19731"n : input int\n"
19732"\nReturns\n-------\n"
19733"work : complex\n"
19734"info : int";
19735/* extern void F_FUNC(zgeqrf ,ZGEQRF )(F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */
19736static PyObject *f2py_rout__flapack_zgeqrf_lwork(const PyObject *capi_self,
19737 PyObject *capi_args,
19738 PyObject *capi_keywds,
19739 void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
19740 PyObject * volatile capi_buildvalue = NULL((void*)0);
19741 volatile int f2py_success = 1;
19742/*decl*/
19743
19744 int m = 0;
19745 PyObject *m_capi = Py_None(&_Py_NoneStruct);
19746 int n = 0;
19747 PyObject *n_capi = Py_None(&_Py_NoneStruct);
19748 complex_double a;
19749 complex_double tau;
19750 complex_double work;
19751 PyObject *work_capi = Py_None(&_Py_NoneStruct);
19752 int lwork = 0;
19753 int info = 0;
19754 static char *capi_kwlist[] = {"m","n",NULL((void*)0)};
19755
19756/*routdebugenter*/
19757#ifdef F2PY_REPORT_ATEXIT
19758f2py_start_clock();
19759#endif
19760 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
19761 "OO:_flapack.zgeqrf_lwork",\
19762 capi_kwlist,&m_capi,&n_capi))
19763 return NULL((void*)0);
19764/*frompyobj*/
19765 /* Processing variable m */
19766 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zgeqrf_lwork() 1st argument (m) can't be converted to int");
19767 if (f2py_success) {
19768 CHECKSCALAR(m > 0,"m > 0","1st argument m","zgeqrf_lwork:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgeqrf_lwork:m=%d", "(""m > 0"") failed for ""1st argument m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
19769 /* Processing variable n */
19770 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgeqrf_lwork() 2nd argument (n) can't be converted to int");
19771 if (f2py_success) {
19772 CHECKSCALAR(n > 0,"n > 0","2nd argument n","zgeqrf_lwork:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgeqrf_lwork:n=%d", "(""n > 0"") failed for ""2nd argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
19773 /* Processing variable a */
19774 /* Processing variable tau */
19775 /* Processing variable work */
19776 /* Processing variable lwork */
19777 lwork = -1;
19778 /* Processing variable info */
19779/*end of frompyobj*/
19780#ifdef F2PY_REPORT_ATEXIT
19781f2py_start_call_clock();
19782#endif
19783/*callfortranroutine*/
19784 (*f2py_func)(&m,&n,&a,&m,&tau,&work,&lwork,&info) ;
19785 /*(*f2py_func)(&m,&n,&a,&tau,&work,&lwork,&info);*/
19786if (PyErr_Occurred())
19787 f2py_success = 0;
19788#ifdef F2PY_REPORT_ATEXIT
19789f2py_stop_call_clock();
19790#endif
19791/*end of callfortranroutine*/
19792 if (f2py_success) {
19793/*pyobjfrom*/
19794 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
19795/*end of pyobjfrom*/
19796 CFUNCSMESS("Building return value.\n");
19797 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
19798/*closepyobjfrom*/
19799/*end of closepyobjfrom*/
19800 } /*if (f2py_success) after callfortranroutine*/
19801/*cleanupfrompyobj*/
19802 /* End of cleaning variable info */
19803 /* End of cleaning variable lwork */
19804 /* End of cleaning variable work */
19805 /* End of cleaning variable tau */
19806 /* End of cleaning variable a */
19807 } /*CHECKSCALAR(n > 0)*/
19808 } /*if (f2py_success) of n*/
19809 /* End of cleaning variable n */
19810 } /*CHECKSCALAR(m > 0)*/
19811 } /*if (f2py_success) of m*/
19812 /* End of cleaning variable m */
19813/*end of cleanupfrompyobj*/
19814 if (capi_buildvalue == NULL((void*)0)) {
19815/*routdebugfailure*/
19816 } else {
19817/*routdebugleave*/
19818 }
19819 CFUNCSMESS("Freeing memory.\n");
19820/*freemem*/
19821#ifdef F2PY_REPORT_ATEXIT
19822f2py_stop_clock();
19823#endif
19824 return capi_buildvalue;
19825}
19826/**************************** end of zgeqrf_lwork ****************************/
19827
19828/********************************** sgeqrfp **********************************/
19829static char doc_f2py_rout__flapack_sgeqrfp[] = "\
19830qr,tau,info = sgeqrfp(a,[lwork,overwrite_a])\n\nWrapper for ``sgeqrfp``.\
19831\n\nParameters\n----------\n"
19832"a : input rank-2 array('f') with bounds (m,n)\n"
19833"\nOther Parameters\n----------------\n"
19834"overwrite_a : input int, optional\n Default: 0\n"
19835"lwork : input int, optional\n Default: MAX(1, n)\n"
19836"\nReturns\n-------\n"
19837"qr : rank-2 array('f') with bounds (m,n) and a storage\n"
19838"tau : rank-1 array('f') with bounds (MIN(m,n))\n"
19839"info : int";
19840/* extern void F_FUNC(sgeqrfp,SGEQRFP)(F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */
19841static PyObject *f2py_rout__flapack_sgeqrfp(const PyObject *capi_self,
19842 PyObject *capi_args,
19843 PyObject *capi_keywds,
19844 void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
19845 PyObject * volatile capi_buildvalue = NULL((void*)0);
19846 volatile int f2py_success = 1;
19847/*decl*/
19848
19849 int m = 0;
19850 int n = 0;
19851 float *a = NULL((void*)0);
19852 npy_intp a_Dims[2] = {-1, -1};
19853 const int a_Rank = 2;
19854 PyArrayObject *capi_a_tmp = NULL((void*)0);
19855 int capi_a_intent = 0;
19856 int capi_overwrite_a = 0;
19857 PyObject *a_capi = Py_None(&_Py_NoneStruct);
19858 int lda = 0;
19859 float *tau = NULL((void*)0);
19860 npy_intp tau_Dims[1] = {-1};
19861 const int tau_Rank = 1;
19862 PyArrayObject *capi_tau_tmp = NULL((void*)0);
19863 int capi_tau_intent = 0;
19864 float *work = NULL((void*)0);
19865 npy_intp work_Dims[1] = {-1};
19866 const int work_Rank = 1;
19867 PyArrayObject *capi_work_tmp = NULL((void*)0);
19868 int capi_work_intent = 0;
19869 int lwork = 0;
19870 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
19871 int info = 0;
19872 static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)};
19873
19874/*routdebugenter*/
19875#ifdef F2PY_REPORT_ATEXIT
19876f2py_start_clock();
19877#endif
19878 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
19879 "O|Oi:_flapack.sgeqrfp",\
19880 capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a))
19881 return NULL((void*)0);
19882/*frompyobj*/
19883 /* Processing variable a */
19884 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
19885 ;
19886 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
19887 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
19888 if (capi_a_tmp == NULL((void*)0)) {
19889 if (!PyErr_Occurred())
19890 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgeqrfp to C/Fortran array" );
19891 } else {
19892 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
19893
19894 /* Processing variable info */
19895 /* Processing variable m */
19896 m = shape(a, 0)a_Dims[0];
19897 CHECKSCALAR(m > 0,"m > 0","hidden m","sgeqrfp:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgeqrfp:m=%d", "(""m > 0"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
19898 /* Processing variable n */
19899 n = shape(a, 1)a_Dims[1];
19900 CHECKSCALAR(n > 0,"n > 0","hidden n","sgeqrfp:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgeqrfp:n=%d", "(""n > 0"") failed for ""hidden n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
19901 /* Processing variable lda */
19902 lda = max(1, shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
19903 /* Processing variable tau */
19904 tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
19905 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
19906 capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
19907 if (capi_tau_tmp == NULL((void*)0)) {
19908 if (!PyErr_Occurred())
19909 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.sgeqrfp to C/Fortran array" );
19910 } else {
19911 tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
19912
19913 /* Processing variable lwork */
19914 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(1, n)((1 > n) ? (1) : (n)); else
19915 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgeqrfp() 1st keyword (lwork) can't be converted to int");
19916 if (f2py_success) {
19917 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","sgeqrfp:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgeqrfp:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
19918 /* Processing variable work */
19919 work_Dims[0]=lwork;
19920 capi_work_intent |= F2PY_INTENT_HIDE8;
19921 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
19922 if (capi_work_tmp == NULL((void*)0)) {
19923 if (!PyErr_Occurred())
19924 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgeqrfp to C/Fortran array" );
19925 } else {
19926 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
19927
19928/*end of frompyobj*/
19929#ifdef F2PY_REPORT_ATEXIT
19930f2py_start_call_clock();
19931#endif
19932/*callfortranroutine*/
19933 (*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info) ;
19934 /*(*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info);*/
19935if (PyErr_Occurred())
19936 f2py_success = 0;
19937#ifdef F2PY_REPORT_ATEXIT
19938f2py_stop_call_clock();
19939#endif
19940/*end of callfortranroutine*/
19941 if (f2py_success) {
19942/*pyobjfrom*/
19943/*end of pyobjfrom*/
19944 CFUNCSMESS("Building return value.\n");
19945 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info);
19946/*closepyobjfrom*/
19947/*end of closepyobjfrom*/
19948 } /*if (f2py_success) after callfortranroutine*/
19949/*cleanupfrompyobj*/
19950 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
19951 } /*if (capi_work_tmp == NULL) ... else of work*/
19952 /* End of cleaning variable work */
19953 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
19954 } /*if (f2py_success) of lwork*/
19955 /* End of cleaning variable lwork */
19956 } /*if (capi_tau_tmp == NULL) ... else of tau*/
19957 /* End of cleaning variable tau */
19958 /* End of cleaning variable lda */
19959 } /*CHECKSCALAR(n > 0)*/
19960 /* End of cleaning variable n */
19961 } /*CHECKSCALAR(m > 0)*/
19962 /* End of cleaning variable m */
19963 /* End of cleaning variable info */
19964 } /*if (capi_a_tmp == NULL) ... else of a*/
19965 /* End of cleaning variable a */
19966/*end of cleanupfrompyobj*/
19967 if (capi_buildvalue == NULL((void*)0)) {
19968/*routdebugfailure*/
19969 } else {
19970/*routdebugleave*/
19971 }
19972 CFUNCSMESS("Freeing memory.\n");
19973/*freemem*/
19974#ifdef F2PY_REPORT_ATEXIT
19975f2py_stop_clock();
19976#endif
19977 return capi_buildvalue;
19978}
19979/******************************* end of sgeqrfp *******************************/
19980
19981/********************************** dgeqrfp **********************************/
19982static char doc_f2py_rout__flapack_dgeqrfp[] = "\
19983qr,tau,info = dgeqrfp(a,[lwork,overwrite_a])\n\nWrapper for ``dgeqrfp``.\
19984\n\nParameters\n----------\n"
19985"a : input rank-2 array('d') with bounds (m,n)\n"
19986"\nOther Parameters\n----------------\n"
19987"overwrite_a : input int, optional\n Default: 0\n"
19988"lwork : input int, optional\n Default: MAX(1, n)\n"
19989"\nReturns\n-------\n"
19990"qr : rank-2 array('d') with bounds (m,n) and a storage\n"
19991"tau : rank-1 array('d') with bounds (MIN(m,n))\n"
19992"info : int";
19993/* extern void F_FUNC(dgeqrfp,DGEQRFP)(F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */
19994static PyObject *f2py_rout__flapack_dgeqrfp(const PyObject *capi_self,
19995 PyObject *capi_args,
19996 PyObject *capi_keywds,
19997 void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
19998 PyObject * volatile capi_buildvalue = NULL((void*)0);
19999 volatile int f2py_success = 1;
20000/*decl*/
20001
20002 int m = 0;
20003 int n = 0;
20004 double *a = NULL((void*)0);
20005 npy_intp a_Dims[2] = {-1, -1};
20006 const int a_Rank = 2;
20007 PyArrayObject *capi_a_tmp = NULL((void*)0);
20008 int capi_a_intent = 0;
20009 int capi_overwrite_a = 0;
20010 PyObject *a_capi = Py_None(&_Py_NoneStruct);
20011 int lda = 0;
20012 double *tau = NULL((void*)0);
20013 npy_intp tau_Dims[1] = {-1};
20014 const int tau_Rank = 1;
20015 PyArrayObject *capi_tau_tmp = NULL((void*)0);
20016 int capi_tau_intent = 0;
20017 double *work = NULL((void*)0);
20018 npy_intp work_Dims[1] = {-1};
20019 const int work_Rank = 1;
20020 PyArrayObject *capi_work_tmp = NULL((void*)0);
20021 int capi_work_intent = 0;
20022 int lwork = 0;
20023 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
20024 int info = 0;
20025 static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)};
20026
20027/*routdebugenter*/
20028#ifdef F2PY_REPORT_ATEXIT
20029f2py_start_clock();
20030#endif
20031 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
20032 "O|Oi:_flapack.dgeqrfp",\
20033 capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a))
20034 return NULL((void*)0);
20035/*frompyobj*/
20036 /* Processing variable a */
20037 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
20038 ;
20039 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
20040 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
20041 if (capi_a_tmp == NULL((void*)0)) {
20042 if (!PyErr_Occurred())
20043 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgeqrfp to C/Fortran array" );
20044 } else {
20045 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
20046
20047 /* Processing variable info */
20048 /* Processing variable m */
20049 m = shape(a, 0)a_Dims[0];
20050 CHECKSCALAR(m > 0,"m > 0","hidden m","dgeqrfp:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgeqrfp:m=%d", "(""m > 0"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
20051 /* Processing variable n */
20052 n = shape(a, 1)a_Dims[1];
20053 CHECKSCALAR(n > 0,"n > 0","hidden n","dgeqrfp:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgeqrfp:n=%d", "(""n > 0"") failed for ""hidden n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
20054 /* Processing variable lda */
20055 lda = max(1, shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
20056 /* Processing variable tau */
20057 tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
20058 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
20059 capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
20060 if (capi_tau_tmp == NULL((void*)0)) {
20061 if (!PyErr_Occurred())
20062 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.dgeqrfp to C/Fortran array" );
20063 } else {
20064 tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
20065
20066 /* Processing variable lwork */
20067 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(1, n)((1 > n) ? (1) : (n)); else
20068 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgeqrfp() 1st keyword (lwork) can't be converted to int");
20069 if (f2py_success) {
20070 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","dgeqrfp:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgeqrfp:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
20071 /* Processing variable work */
20072 work_Dims[0]=lwork;
20073 capi_work_intent |= F2PY_INTENT_HIDE8;
20074 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
20075 if (capi_work_tmp == NULL((void*)0)) {
20076 if (!PyErr_Occurred())
20077 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgeqrfp to C/Fortran array" );
20078 } else {
20079 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
20080
20081/*end of frompyobj*/
20082#ifdef F2PY_REPORT_ATEXIT
20083f2py_start_call_clock();
20084#endif
20085/*callfortranroutine*/
20086 (*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info) ;
20087 /*(*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info);*/
20088if (PyErr_Occurred())
20089 f2py_success = 0;
20090#ifdef F2PY_REPORT_ATEXIT
20091f2py_stop_call_clock();
20092#endif
20093/*end of callfortranroutine*/
20094 if (f2py_success) {
20095/*pyobjfrom*/
20096/*end of pyobjfrom*/
20097 CFUNCSMESS("Building return value.\n");
20098 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info);
20099/*closepyobjfrom*/
20100/*end of closepyobjfrom*/
20101 } /*if (f2py_success) after callfortranroutine*/
20102/*cleanupfrompyobj*/
20103 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
20104 } /*if (capi_work_tmp == NULL) ... else of work*/
20105 /* End of cleaning variable work */
20106 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
20107 } /*if (f2py_success) of lwork*/
20108 /* End of cleaning variable lwork */
20109 } /*if (capi_tau_tmp == NULL) ... else of tau*/
20110 /* End of cleaning variable tau */
20111 /* End of cleaning variable lda */
20112 } /*CHECKSCALAR(n > 0)*/
20113 /* End of cleaning variable n */
20114 } /*CHECKSCALAR(m > 0)*/
20115 /* End of cleaning variable m */
20116 /* End of cleaning variable info */
20117 } /*if (capi_a_tmp == NULL) ... else of a*/
20118 /* End of cleaning variable a */
20119/*end of cleanupfrompyobj*/
20120 if (capi_buildvalue == NULL((void*)0)) {
20121/*routdebugfailure*/
20122 } else {
20123/*routdebugleave*/
20124 }
20125 CFUNCSMESS("Freeing memory.\n");
20126/*freemem*/
20127#ifdef F2PY_REPORT_ATEXIT
20128f2py_stop_clock();
20129#endif
20130 return capi_buildvalue;
20131}
20132/******************************* end of dgeqrfp *******************************/
20133
20134/********************************** cgeqrfp **********************************/
20135static char doc_f2py_rout__flapack_cgeqrfp[] = "\
20136qr,tau,info = cgeqrfp(a,[lwork,overwrite_a])\n\nWrapper for ``cgeqrfp``.\
20137\n\nParameters\n----------\n"
20138"a : input rank-2 array('F') with bounds (m,n)\n"
20139"\nOther Parameters\n----------------\n"
20140"overwrite_a : input int, optional\n Default: 0\n"
20141"lwork : input int, optional\n Default: MAX(1, n)\n"
20142"\nReturns\n-------\n"
20143"qr : rank-2 array('F') with bounds (m,n) and a storage\n"
20144"tau : rank-1 array('F') with bounds (MIN(m,n))\n"
20145"info : int";
20146/* extern void F_FUNC(cgeqrfp,CGEQRFP)(F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */
20147static PyObject *f2py_rout__flapack_cgeqrfp(const PyObject *capi_self,
20148 PyObject *capi_args,
20149 PyObject *capi_keywds,
20150 void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
20151 PyObject * volatile capi_buildvalue = NULL((void*)0);
20152 volatile int f2py_success = 1;
20153/*decl*/
20154
20155 int m = 0;
20156 int n = 0;
20157 complex_float *a = NULL((void*)0);
20158 npy_intp a_Dims[2] = {-1, -1};
20159 const int a_Rank = 2;
20160 PyArrayObject *capi_a_tmp = NULL((void*)0);
20161 int capi_a_intent = 0;
20162 int capi_overwrite_a = 0;
20163 PyObject *a_capi = Py_None(&_Py_NoneStruct);
20164 int lda = 0;
20165 complex_float *tau = NULL((void*)0);
20166 npy_intp tau_Dims[1] = {-1};
20167 const int tau_Rank = 1;
20168 PyArrayObject *capi_tau_tmp = NULL((void*)0);
20169 int capi_tau_intent = 0;
20170 complex_float *work = NULL((void*)0);
20171 npy_intp work_Dims[1] = {-1};
20172 const int work_Rank = 1;
20173 PyArrayObject *capi_work_tmp = NULL((void*)0);
20174 int capi_work_intent = 0;
20175 int lwork = 0;
20176 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
20177 int info = 0;
20178 static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)};
20179
20180/*routdebugenter*/
20181#ifdef F2PY_REPORT_ATEXIT
20182f2py_start_clock();
20183#endif
20184 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
20185 "O|Oi:_flapack.cgeqrfp",\
20186 capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a))
20187 return NULL((void*)0);
20188/*frompyobj*/
20189 /* Processing variable a */
20190 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
20191 ;
20192 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
20193 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
20194 if (capi_a_tmp == NULL((void*)0)) {
20195 if (!PyErr_Occurred())
20196 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgeqrfp to C/Fortran array" );
20197 } else {
20198 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
20199
20200 /* Processing variable info */
20201 /* Processing variable m */
20202 m = shape(a, 0)a_Dims[0];
20203 CHECKSCALAR(m > 0,"m > 0","hidden m","cgeqrfp:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgeqrfp:m=%d", "(""m > 0"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
20204 /* Processing variable n */
20205 n = shape(a, 1)a_Dims[1];
20206 CHECKSCALAR(n > 0,"n > 0","hidden n","cgeqrfp:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgeqrfp:n=%d", "(""n > 0"") failed for ""hidden n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
20207 /* Processing variable lda */
20208 lda = max(1, shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
20209 /* Processing variable tau */
20210 tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
20211 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
20212 capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
20213 if (capi_tau_tmp == NULL((void*)0)) {
20214 if (!PyErr_Occurred())
20215 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.cgeqrfp to C/Fortran array" );
20216 } else {
20217 tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
20218
20219 /* Processing variable lwork */
20220 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(1, n)((1 > n) ? (1) : (n)); else
20221 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgeqrfp() 1st keyword (lwork) can't be converted to int");
20222 if (f2py_success) {
20223 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","cgeqrfp:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgeqrfp:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
20224 /* Processing variable work */
20225 work_Dims[0]=lwork;
20226 capi_work_intent |= F2PY_INTENT_HIDE8;
20227 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
20228 if (capi_work_tmp == NULL((void*)0)) {
20229 if (!PyErr_Occurred())
20230 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgeqrfp to C/Fortran array" );
20231 } else {
20232 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
20233
20234/*end of frompyobj*/
20235#ifdef F2PY_REPORT_ATEXIT
20236f2py_start_call_clock();
20237#endif
20238/*callfortranroutine*/
20239 (*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info) ;
20240 /*(*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info);*/
20241if (PyErr_Occurred())
20242 f2py_success = 0;
20243#ifdef F2PY_REPORT_ATEXIT
20244f2py_stop_call_clock();
20245#endif
20246/*end of callfortranroutine*/
20247 if (f2py_success) {
20248/*pyobjfrom*/
20249/*end of pyobjfrom*/
20250 CFUNCSMESS("Building return value.\n");
20251 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info);
20252/*closepyobjfrom*/
20253/*end of closepyobjfrom*/
20254 } /*if (f2py_success) after callfortranroutine*/
20255/*cleanupfrompyobj*/
20256 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
20257 } /*if (capi_work_tmp == NULL) ... else of work*/
20258 /* End of cleaning variable work */
20259 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
20260 } /*if (f2py_success) of lwork*/
20261 /* End of cleaning variable lwork */
20262 } /*if (capi_tau_tmp == NULL) ... else of tau*/
20263 /* End of cleaning variable tau */
20264 /* End of cleaning variable lda */
20265 } /*CHECKSCALAR(n > 0)*/
20266 /* End of cleaning variable n */
20267 } /*CHECKSCALAR(m > 0)*/
20268 /* End of cleaning variable m */
20269 /* End of cleaning variable info */
20270 } /*if (capi_a_tmp == NULL) ... else of a*/
20271 /* End of cleaning variable a */
20272/*end of cleanupfrompyobj*/
20273 if (capi_buildvalue == NULL((void*)0)) {
20274/*routdebugfailure*/
20275 } else {
20276/*routdebugleave*/
20277 }
20278 CFUNCSMESS("Freeing memory.\n");
20279/*freemem*/
20280#ifdef F2PY_REPORT_ATEXIT
20281f2py_stop_clock();
20282#endif
20283 return capi_buildvalue;
20284}
20285/******************************* end of cgeqrfp *******************************/
20286
20287/********************************** zgeqrfp **********************************/
20288static char doc_f2py_rout__flapack_zgeqrfp[] = "\
20289qr,tau,info = zgeqrfp(a,[lwork,overwrite_a])\n\nWrapper for ``zgeqrfp``.\
20290\n\nParameters\n----------\n"
20291"a : input rank-2 array('D') with bounds (m,n)\n"
20292"\nOther Parameters\n----------------\n"
20293"overwrite_a : input int, optional\n Default: 0\n"
20294"lwork : input int, optional\n Default: MAX(1, n)\n"
20295"\nReturns\n-------\n"
20296"qr : rank-2 array('D') with bounds (m,n) and a storage\n"
20297"tau : rank-1 array('D') with bounds (MIN(m,n))\n"
20298"info : int";
20299/* extern void F_FUNC(zgeqrfp,ZGEQRFP)(F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */
20300static PyObject *f2py_rout__flapack_zgeqrfp(const PyObject *capi_self,
20301 PyObject *capi_args,
20302 PyObject *capi_keywds,
20303 void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
20304 PyObject * volatile capi_buildvalue = NULL((void*)0);
20305 volatile int f2py_success = 1;
20306/*decl*/
20307
20308 int m = 0;
20309 int n = 0;
20310 complex_double *a = NULL((void*)0);
20311 npy_intp a_Dims[2] = {-1, -1};
20312 const int a_Rank = 2;
20313 PyArrayObject *capi_a_tmp = NULL((void*)0);
20314 int capi_a_intent = 0;
20315 int capi_overwrite_a = 0;
20316 PyObject *a_capi = Py_None(&_Py_NoneStruct);
20317 int lda = 0;
20318 complex_double *tau = NULL((void*)0);
20319 npy_intp tau_Dims[1] = {-1};
20320 const int tau_Rank = 1;
20321 PyArrayObject *capi_tau_tmp = NULL((void*)0);
20322 int capi_tau_intent = 0;
20323 complex_double *work = NULL((void*)0);
20324 npy_intp work_Dims[1] = {-1};
20325 const int work_Rank = 1;
20326 PyArrayObject *capi_work_tmp = NULL((void*)0);
20327 int capi_work_intent = 0;
20328 int lwork = 0;
20329 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
20330 int info = 0;
20331 static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)};
20332
20333/*routdebugenter*/
20334#ifdef F2PY_REPORT_ATEXIT
20335f2py_start_clock();
20336#endif
20337 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
20338 "O|Oi:_flapack.zgeqrfp",\
20339 capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a))
20340 return NULL((void*)0);
20341/*frompyobj*/
20342 /* Processing variable a */
20343 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
20344 ;
20345 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
20346 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
20347 if (capi_a_tmp == NULL((void*)0)) {
20348 if (!PyErr_Occurred())
20349 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgeqrfp to C/Fortran array" );
20350 } else {
20351 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
20352
20353 /* Processing variable info */
20354 /* Processing variable m */
20355 m = shape(a, 0)a_Dims[0];
20356 CHECKSCALAR(m > 0,"m > 0","hidden m","zgeqrfp:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgeqrfp:m=%d", "(""m > 0"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
20357 /* Processing variable n */
20358 n = shape(a, 1)a_Dims[1];
20359 CHECKSCALAR(n > 0,"n > 0","hidden n","zgeqrfp:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgeqrfp:n=%d", "(""n > 0"") failed for ""hidden n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
20360 /* Processing variable lda */
20361 lda = max(1, shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
20362 /* Processing variable tau */
20363 tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
20364 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
20365 capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
20366 if (capi_tau_tmp == NULL((void*)0)) {
20367 if (!PyErr_Occurred())
20368 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.zgeqrfp to C/Fortran array" );
20369 } else {
20370 tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
20371
20372 /* Processing variable lwork */
20373 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(1, n)((1 > n) ? (1) : (n)); else
20374 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgeqrfp() 1st keyword (lwork) can't be converted to int");
20375 if (f2py_success) {
20376 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","zgeqrfp:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgeqrfp:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
20377 /* Processing variable work */
20378 work_Dims[0]=lwork;
20379 capi_work_intent |= F2PY_INTENT_HIDE8;
20380 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
20381 if (capi_work_tmp == NULL((void*)0)) {
20382 if (!PyErr_Occurred())
20383 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgeqrfp to C/Fortran array" );
20384 } else {
20385 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
20386
20387/*end of frompyobj*/
20388#ifdef F2PY_REPORT_ATEXIT
20389f2py_start_call_clock();
20390#endif
20391/*callfortranroutine*/
20392 (*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info) ;
20393 /*(*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info);*/
20394if (PyErr_Occurred())
20395 f2py_success = 0;
20396#ifdef F2PY_REPORT_ATEXIT
20397f2py_stop_call_clock();
20398#endif
20399/*end of callfortranroutine*/
20400 if (f2py_success) {
20401/*pyobjfrom*/
20402/*end of pyobjfrom*/
20403 CFUNCSMESS("Building return value.\n");
20404 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info);
20405/*closepyobjfrom*/
20406/*end of closepyobjfrom*/
20407 } /*if (f2py_success) after callfortranroutine*/
20408/*cleanupfrompyobj*/
20409 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
20410 } /*if (capi_work_tmp == NULL) ... else of work*/
20411 /* End of cleaning variable work */
20412 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
20413 } /*if (f2py_success) of lwork*/
20414 /* End of cleaning variable lwork */
20415 } /*if (capi_tau_tmp == NULL) ... else of tau*/
20416 /* End of cleaning variable tau */
20417 /* End of cleaning variable lda */
20418 } /*CHECKSCALAR(n > 0)*/
20419 /* End of cleaning variable n */
20420 } /*CHECKSCALAR(m > 0)*/
20421 /* End of cleaning variable m */
20422 /* End of cleaning variable info */
20423 } /*if (capi_a_tmp == NULL) ... else of a*/
20424 /* End of cleaning variable a */
20425/*end of cleanupfrompyobj*/
20426 if (capi_buildvalue == NULL((void*)0)) {
20427/*routdebugfailure*/
20428 } else {
20429/*routdebugleave*/
20430 }
20431 CFUNCSMESS("Freeing memory.\n");
20432/*freemem*/
20433#ifdef F2PY_REPORT_ATEXIT
20434f2py_stop_clock();
20435#endif
20436 return capi_buildvalue;
20437}
20438/******************************* end of zgeqrfp *******************************/
20439
20440/******************************* sgeqrfp_lwork *******************************/
20441static char doc_f2py_rout__flapack_sgeqrfp_lwork[] = "\
20442work,info = sgeqrfp_lwork(m,n)\n\nWrapper for ``sgeqrfp_lwork``.\
20443\n\nParameters\n----------\n"
20444"m : input int\n"
20445"n : input int\n"
20446"\nReturns\n-------\n"
20447"work : float\n"
20448"info : int";
20449/* extern void F_FUNC(sgeqrfp ,SGEQRFP )(F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */
20450static PyObject *f2py_rout__flapack_sgeqrfp_lwork(const PyObject *capi_self,
20451 PyObject *capi_args,
20452 PyObject *capi_keywds,
20453 void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
20454 PyObject * volatile capi_buildvalue = NULL((void*)0);
20455 volatile int f2py_success = 1;
20456/*decl*/
20457
20458 int m = 0;
20459 PyObject *m_capi = Py_None(&_Py_NoneStruct);
20460 int n = 0;
20461 PyObject *n_capi = Py_None(&_Py_NoneStruct);
20462 float a = 0;
20463 int lda = 0;
20464 float tau = 0;
20465 float work = 0;
20466 int lwork = 0;
20467 int info = 0;
20468 static char *capi_kwlist[] = {"m","n",NULL((void*)0)};
20469
20470/*routdebugenter*/
20471#ifdef F2PY_REPORT_ATEXIT
20472f2py_start_clock();
20473#endif
20474 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
20475 "OO:_flapack.sgeqrfp_lwork",\
20476 capi_kwlist,&m_capi,&n_capi))
20477 return NULL((void*)0);
20478/*frompyobj*/
20479 /* Processing variable m */
20480 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sgeqrfp_lwork() 1st argument (m) can't be converted to int");
20481 if (f2py_success) {
20482 CHECKSCALAR(m > 0,"m > 0","1st argument m","sgeqrfp_lwork:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgeqrfp_lwork:m=%d", "(""m > 0"") failed for ""1st argument m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
20483 /* Processing variable n */
20484 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgeqrfp_lwork() 2nd argument (n) can't be converted to int");
20485 if (f2py_success) {
20486 CHECKSCALAR(n > 0,"n > 0","2nd argument n","sgeqrfp_lwork:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgeqrfp_lwork:n=%d", "(""n > 0"") failed for ""2nd argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
20487 /* Processing variable a */
20488 /* Processing variable tau */
20489 /* Processing variable work */
20490 /* Processing variable lwork */
20491 lwork = -1;
20492 /* Processing variable info */
20493 /* Processing variable lda */
20494 lda = m;
20495/*end of frompyobj*/
20496#ifdef F2PY_REPORT_ATEXIT
20497f2py_start_call_clock();
20498#endif
20499/*callfortranroutine*/
20500 (*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info) ;
20501 /*(*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info);*/
20502if (PyErr_Occurred())
20503 f2py_success = 0;
20504#ifdef F2PY_REPORT_ATEXIT
20505f2py_stop_call_clock();
20506#endif
20507/*end of callfortranroutine*/
20508 if (f2py_success) {
20509/*pyobjfrom*/
20510/*end of pyobjfrom*/
20511 CFUNCSMESS("Building return value.\n");
20512 capi_buildvalue = Py_BuildValue("fi",work,info);
20513/*closepyobjfrom*/
20514/*end of closepyobjfrom*/
20515 } /*if (f2py_success) after callfortranroutine*/
20516/*cleanupfrompyobj*/
20517 /* End of cleaning variable lda */
20518 /* End of cleaning variable info */
20519 /* End of cleaning variable lwork */
20520 /* End of cleaning variable work */
20521 /* End of cleaning variable tau */
20522 /* End of cleaning variable a */
20523 } /*CHECKSCALAR(n > 0)*/
20524 } /*if (f2py_success) of n*/
20525 /* End of cleaning variable n */
20526 } /*CHECKSCALAR(m > 0)*/
20527 } /*if (f2py_success) of m*/
20528 /* End of cleaning variable m */
20529/*end of cleanupfrompyobj*/
20530 if (capi_buildvalue == NULL((void*)0)) {
20531/*routdebugfailure*/
20532 } else {
20533/*routdebugleave*/
20534 }
20535 CFUNCSMESS("Freeing memory.\n");
20536/*freemem*/
20537#ifdef F2PY_REPORT_ATEXIT
20538f2py_stop_clock();
20539#endif
20540 return capi_buildvalue;
20541}
20542/**************************** end of sgeqrfp_lwork ****************************/
20543
20544/******************************* dgeqrfp_lwork *******************************/
20545static char doc_f2py_rout__flapack_dgeqrfp_lwork[] = "\
20546work,info = dgeqrfp_lwork(m,n)\n\nWrapper for ``dgeqrfp_lwork``.\
20547\n\nParameters\n----------\n"
20548"m : input int\n"
20549"n : input int\n"
20550"\nReturns\n-------\n"
20551"work : float\n"
20552"info : int";
20553/* extern void F_FUNC(dgeqrfp ,DGEQRFP )(F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */
20554static PyObject *f2py_rout__flapack_dgeqrfp_lwork(const PyObject *capi_self,
20555 PyObject *capi_args,
20556 PyObject *capi_keywds,
20557 void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
20558 PyObject * volatile capi_buildvalue = NULL((void*)0);
20559 volatile int f2py_success = 1;
20560/*decl*/
20561
20562 int m = 0;
20563 PyObject *m_capi = Py_None(&_Py_NoneStruct);
20564 int n = 0;
20565 PyObject *n_capi = Py_None(&_Py_NoneStruct);
20566 double a = 0;
20567 int lda = 0;
20568 double tau = 0;
20569 double work = 0;
20570 int lwork = 0;
20571 int info = 0;
20572 static char *capi_kwlist[] = {"m","n",NULL((void*)0)};
20573
20574/*routdebugenter*/
20575#ifdef F2PY_REPORT_ATEXIT
20576f2py_start_clock();
20577#endif
20578 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
20579 "OO:_flapack.dgeqrfp_lwork",\
20580 capi_kwlist,&m_capi,&n_capi))
20581 return NULL((void*)0);
20582/*frompyobj*/
20583 /* Processing variable m */
20584 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dgeqrfp_lwork() 1st argument (m) can't be converted to int");
20585 if (f2py_success) {
20586 CHECKSCALAR(m > 0,"m > 0","1st argument m","dgeqrfp_lwork:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgeqrfp_lwork:m=%d", "(""m > 0"") failed for ""1st argument m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
20587 /* Processing variable n */
20588 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgeqrfp_lwork() 2nd argument (n) can't be converted to int");
20589 if (f2py_success) {
20590 CHECKSCALAR(n > 0,"n > 0","2nd argument n","dgeqrfp_lwork:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgeqrfp_lwork:n=%d", "(""n > 0"") failed for ""2nd argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
20591 /* Processing variable a */
20592 /* Processing variable tau */
20593 /* Processing variable work */
20594 /* Processing variable lwork */
20595 lwork = -1;
20596 /* Processing variable info */
20597 /* Processing variable lda */
20598 lda = m;
20599/*end of frompyobj*/
20600#ifdef F2PY_REPORT_ATEXIT
20601f2py_start_call_clock();
20602#endif
20603/*callfortranroutine*/
20604 (*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info) ;
20605 /*(*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info);*/
20606if (PyErr_Occurred())
20607 f2py_success = 0;
20608#ifdef F2PY_REPORT_ATEXIT
20609f2py_stop_call_clock();
20610#endif
20611/*end of callfortranroutine*/
20612 if (f2py_success) {
20613/*pyobjfrom*/
20614/*end of pyobjfrom*/
20615 CFUNCSMESS("Building return value.\n");
20616 capi_buildvalue = Py_BuildValue("di",work,info);
20617/*closepyobjfrom*/
20618/*end of closepyobjfrom*/
20619 } /*if (f2py_success) after callfortranroutine*/
20620/*cleanupfrompyobj*/
20621 /* End of cleaning variable lda */
20622 /* End of cleaning variable info */
20623 /* End of cleaning variable lwork */
20624 /* End of cleaning variable work */
20625 /* End of cleaning variable tau */
20626 /* End of cleaning variable a */
20627 } /*CHECKSCALAR(n > 0)*/
20628 } /*if (f2py_success) of n*/
20629 /* End of cleaning variable n */
20630 } /*CHECKSCALAR(m > 0)*/
20631 } /*if (f2py_success) of m*/
20632 /* End of cleaning variable m */
20633/*end of cleanupfrompyobj*/
20634 if (capi_buildvalue == NULL((void*)0)) {
20635/*routdebugfailure*/
20636 } else {
20637/*routdebugleave*/
20638 }
20639 CFUNCSMESS("Freeing memory.\n");
20640/*freemem*/
20641#ifdef F2PY_REPORT_ATEXIT
20642f2py_stop_clock();
20643#endif
20644 return capi_buildvalue;
20645}
20646/**************************** end of dgeqrfp_lwork ****************************/
20647
20648/******************************* cgeqrfp_lwork *******************************/
20649static char doc_f2py_rout__flapack_cgeqrfp_lwork[] = "\
20650work,info = cgeqrfp_lwork(m,n)\n\nWrapper for ``cgeqrfp_lwork``.\
20651\n\nParameters\n----------\n"
20652"m : input int\n"
20653"n : input int\n"
20654"\nReturns\n-------\n"
20655"work : complex\n"
20656"info : int";
20657/* extern void F_FUNC(cgeqrfp ,CGEQRFP )(F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */
20658static PyObject *f2py_rout__flapack_cgeqrfp_lwork(const PyObject *capi_self,
20659 PyObject *capi_args,
20660 PyObject *capi_keywds,
20661 void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
20662 PyObject * volatile capi_buildvalue = NULL((void*)0);
20663 volatile int f2py_success = 1;
20664/*decl*/
20665
20666 int m = 0;
20667 PyObject *m_capi = Py_None(&_Py_NoneStruct);
20668 int n = 0;
20669 PyObject *n_capi = Py_None(&_Py_NoneStruct);
20670 complex_float a;
20671 int lda = 0;
20672 complex_float tau;
20673 complex_float work;
20674 PyObject *work_capi = Py_None(&_Py_NoneStruct);
20675 int lwork = 0;
20676 int info = 0;
20677 static char *capi_kwlist[] = {"m","n",NULL((void*)0)};
20678
20679/*routdebugenter*/
20680#ifdef F2PY_REPORT_ATEXIT
20681f2py_start_clock();
20682#endif
20683 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
20684 "OO:_flapack.cgeqrfp_lwork",\
20685 capi_kwlist,&m_capi,&n_capi))
20686 return NULL((void*)0);
20687/*frompyobj*/
20688 /* Processing variable m */
20689 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cgeqrfp_lwork() 1st argument (m) can't be converted to int");
20690 if (f2py_success) {
20691 CHECKSCALAR(m > 0,"m > 0","1st argument m","cgeqrfp_lwork:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgeqrfp_lwork:m=%d", "(""m > 0"") failed for ""1st argument m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
20692 /* Processing variable n */
20693 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgeqrfp_lwork() 2nd argument (n) can't be converted to int");
20694 if (f2py_success) {
20695 CHECKSCALAR(n > 0,"n > 0","2nd argument n","cgeqrfp_lwork:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgeqrfp_lwork:n=%d", "(""n > 0"") failed for ""2nd argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
20696 /* Processing variable a */
20697 /* Processing variable tau */
20698 /* Processing variable work */
20699 /* Processing variable lwork */
20700 lwork = -1;
20701 /* Processing variable info */
20702 /* Processing variable lda */
20703 lda = m;
20704/*end of frompyobj*/
20705#ifdef F2PY_REPORT_ATEXIT
20706f2py_start_call_clock();
20707#endif
20708/*callfortranroutine*/
20709 (*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info) ;
20710 /*(*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info);*/
20711if (PyErr_Occurred())
20712 f2py_success = 0;
20713#ifdef F2PY_REPORT_ATEXIT
20714f2py_stop_call_clock();
20715#endif
20716/*end of callfortranroutine*/
20717 if (f2py_success) {
20718/*pyobjfrom*/
20719 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
20720/*end of pyobjfrom*/
20721 CFUNCSMESS("Building return value.\n");
20722 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
20723/*closepyobjfrom*/
20724/*end of closepyobjfrom*/
20725 } /*if (f2py_success) after callfortranroutine*/
20726/*cleanupfrompyobj*/
20727 /* End of cleaning variable lda */
20728 /* End of cleaning variable info */
20729 /* End of cleaning variable lwork */
20730 /* End of cleaning variable work */
20731 /* End of cleaning variable tau */
20732 /* End of cleaning variable a */
20733 } /*CHECKSCALAR(n > 0)*/
20734 } /*if (f2py_success) of n*/
20735 /* End of cleaning variable n */
20736 } /*CHECKSCALAR(m > 0)*/
20737 } /*if (f2py_success) of m*/
20738 /* End of cleaning variable m */
20739/*end of cleanupfrompyobj*/
20740 if (capi_buildvalue == NULL((void*)0)) {
20741/*routdebugfailure*/
20742 } else {
20743/*routdebugleave*/
20744 }
20745 CFUNCSMESS("Freeing memory.\n");
20746/*freemem*/
20747#ifdef F2PY_REPORT_ATEXIT
20748f2py_stop_clock();
20749#endif
20750 return capi_buildvalue;
20751}
20752/**************************** end of cgeqrfp_lwork ****************************/
20753
20754/******************************* zgeqrfp_lwork *******************************/
20755static char doc_f2py_rout__flapack_zgeqrfp_lwork[] = "\
20756work,info = zgeqrfp_lwork(m,n)\n\nWrapper for ``zgeqrfp_lwork``.\
20757\n\nParameters\n----------\n"
20758"m : input int\n"
20759"n : input int\n"
20760"\nReturns\n-------\n"
20761"work : complex\n"
20762"info : int";
20763/* extern void F_FUNC(zgeqrfp ,ZGEQRFP )(F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */
20764static PyObject *f2py_rout__flapack_zgeqrfp_lwork(const PyObject *capi_self,
20765 PyObject *capi_args,
20766 PyObject *capi_keywds,
20767 void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
20768 PyObject * volatile capi_buildvalue = NULL((void*)0);
20769 volatile int f2py_success = 1;
20770/*decl*/
20771
20772 int m = 0;
20773 PyObject *m_capi = Py_None(&_Py_NoneStruct);
20774 int n = 0;
20775 PyObject *n_capi = Py_None(&_Py_NoneStruct);
20776 complex_double a;
20777 int lda = 0;
20778 complex_double tau;
20779 complex_double work;
20780 PyObject *work_capi = Py_None(&_Py_NoneStruct);
20781 int lwork = 0;
20782 int info = 0;
20783 static char *capi_kwlist[] = {"m","n",NULL((void*)0)};
20784
20785/*routdebugenter*/
20786#ifdef F2PY_REPORT_ATEXIT
20787f2py_start_clock();
20788#endif
20789 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
20790 "OO:_flapack.zgeqrfp_lwork",\
20791 capi_kwlist,&m_capi,&n_capi))
20792 return NULL((void*)0);
20793/*frompyobj*/
20794 /* Processing variable m */
20795 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zgeqrfp_lwork() 1st argument (m) can't be converted to int");
20796 if (f2py_success) {
20797 CHECKSCALAR(m > 0,"m > 0","1st argument m","zgeqrfp_lwork:m=%d",m)if (!(m > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgeqrfp_lwork:m=%d", "(""m > 0"") failed for ""1st argument m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
20798 /* Processing variable n */
20799 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgeqrfp_lwork() 2nd argument (n) can't be converted to int");
20800 if (f2py_success) {
20801 CHECKSCALAR(n > 0,"n > 0","2nd argument n","zgeqrfp_lwork:n=%d",n)if (!(n > 0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgeqrfp_lwork:n=%d", "(""n > 0"") failed for ""2nd argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
20802 /* Processing variable a */
20803 /* Processing variable tau */
20804 /* Processing variable work */
20805 /* Processing variable lwork */
20806 lwork = -1;
20807 /* Processing variable info */
20808 /* Processing variable lda */
20809 lda = m;
20810/*end of frompyobj*/
20811#ifdef F2PY_REPORT_ATEXIT
20812f2py_start_call_clock();
20813#endif
20814/*callfortranroutine*/
20815 (*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info) ;
20816 /*(*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info);*/
20817if (PyErr_Occurred())
20818 f2py_success = 0;
20819#ifdef F2PY_REPORT_ATEXIT
20820f2py_stop_call_clock();
20821#endif
20822/*end of callfortranroutine*/
20823 if (f2py_success) {
20824/*pyobjfrom*/
20825 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
20826/*end of pyobjfrom*/
20827 CFUNCSMESS("Building return value.\n");
20828 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
20829/*closepyobjfrom*/
20830/*end of closepyobjfrom*/
20831 } /*if (f2py_success) after callfortranroutine*/
20832/*cleanupfrompyobj*/
20833 /* End of cleaning variable lda */
20834 /* End of cleaning variable info */
20835 /* End of cleaning variable lwork */
20836 /* End of cleaning variable work */
20837 /* End of cleaning variable tau */
20838 /* End of cleaning variable a */
20839 } /*CHECKSCALAR(n > 0)*/
20840 } /*if (f2py_success) of n*/
20841 /* End of cleaning variable n */
20842 } /*CHECKSCALAR(m > 0)*/
20843 } /*if (f2py_success) of m*/
20844 /* End of cleaning variable m */
20845/*end of cleanupfrompyobj*/
20846 if (capi_buildvalue == NULL((void*)0)) {
20847/*routdebugfailure*/
20848 } else {
20849/*routdebugleave*/
20850 }
20851 CFUNCSMESS("Freeing memory.\n");
20852/*freemem*/
20853#ifdef F2PY_REPORT_ATEXIT
20854f2py_stop_clock();
20855#endif
20856 return capi_buildvalue;
20857}
20858/**************************** end of zgeqrfp_lwork ****************************/
20859
20860/*********************************** sgerqf ***********************************/
20861static char doc_f2py_rout__flapack_sgerqf[] = "\
20862qr,tau,work,info = sgerqf(a,[lwork,overwrite_a])\n\nWrapper for ``sgerqf``.\
20863\n\nParameters\n----------\n"
20864"a : input rank-2 array('f') with bounds (m,n)\n"
20865"\nOther Parameters\n----------------\n"
20866"overwrite_a : input int, optional\n Default: 0\n"
20867"lwork : input int, optional\n Default: max(3*m,1)\n"
20868"\nReturns\n-------\n"
20869"qr : rank-2 array('f') with bounds (m,n) and a storage\n"
20870"tau : rank-1 array('f') with bounds (MIN(m,n))\n"
20871"work : rank-1 array('f') with bounds (MAX(lwork,1))\n"
20872"info : int";
20873/* extern void F_FUNC(sgerqf,SGERQF)(F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */
20874static PyObject *f2py_rout__flapack_sgerqf(const PyObject *capi_self,
20875 PyObject *capi_args,
20876 PyObject *capi_keywds,
20877 void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
20878 PyObject * volatile capi_buildvalue = NULL((void*)0);
20879 volatile int f2py_success = 1;
20880/*decl*/
20881
20882 int m = 0;
20883 int n = 0;
20884 float *a = NULL((void*)0);
20885 npy_intp a_Dims[2] = {-1, -1};
20886 const int a_Rank = 2;
20887 PyArrayObject *capi_a_tmp = NULL((void*)0);
20888 int capi_a_intent = 0;
20889 int capi_overwrite_a = 0;
20890 PyObject *a_capi = Py_None(&_Py_NoneStruct);
20891 float *tau = NULL((void*)0);
20892 npy_intp tau_Dims[1] = {-1};
20893 const int tau_Rank = 1;
20894 PyArrayObject *capi_tau_tmp = NULL((void*)0);
20895 int capi_tau_intent = 0;
20896 float *work = NULL((void*)0);
20897 npy_intp work_Dims[1] = {-1};
20898 const int work_Rank = 1;
20899 PyArrayObject *capi_work_tmp = NULL((void*)0);
20900 int capi_work_intent = 0;
20901 int lwork = 0;
20902 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
20903 int info = 0;
20904 static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)};
20905
20906/*routdebugenter*/
20907#ifdef F2PY_REPORT_ATEXIT
20908f2py_start_clock();
20909#endif
20910 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
20911 "O|Oi:_flapack.sgerqf",\
20912 capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a))
20913 return NULL((void*)0);
20914/*frompyobj*/
20915 /* Processing variable a */
20916 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
20917 ;
20918 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
20919 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
20920 if (capi_a_tmp == NULL((void*)0)) {
20921 if (!PyErr_Occurred())
20922 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgerqf to C/Fortran array" );
20923 } else {
20924 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
20925
20926 /* Processing variable info */
20927 /* Processing variable m */
20928 m = shape(a,0)a_Dims[0];
20929 /* Processing variable n */
20930 n = shape(a,1)a_Dims[1];
20931 /* Processing variable tau */
20932 tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
20933 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
20934 capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
20935 if (capi_tau_tmp == NULL((void*)0)) {
20936 if (!PyErr_Occurred())
20937 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.sgerqf to C/Fortran array" );
20938 } else {
20939 tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
20940
20941 /* Processing variable lwork */
20942 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*m,1)((3*m > 1) ? (3*m) : (1)); else
20943 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgerqf() 1st keyword (lwork) can't be converted to int");
20944 if (f2py_success) {
20945 CHECKSCALAR(lwork>=m||lwork==-1,"lwork>=m||lwork==-1","1st keyword lwork","sgerqf:lwork=%d",lwork)if (!(lwork>=m||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgerqf:lwork=%d", "(""lwork>=m||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
20946 /* Processing variable work */
20947 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
20948 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
20949 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
20950 if (capi_work_tmp == NULL((void*)0)) {
20951 if (!PyErr_Occurred())
20952 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgerqf to C/Fortran array" );
20953 } else {
20954 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
20955
20956/*end of frompyobj*/
20957#ifdef F2PY_REPORT_ATEXIT
20958f2py_start_call_clock();
20959#endif
20960/*callfortranroutine*/
20961 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
20962 (*f2py_func)(&m,&n,a,&m,tau,work,&lwork,&info) ;
20963 /*(*f2py_func)(&m,&n,a,tau,work,&lwork,&info);*/
20964 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
20965if (PyErr_Occurred())
20966 f2py_success = 0;
20967#ifdef F2PY_REPORT_ATEXIT
20968f2py_stop_call_clock();
20969#endif
20970/*end of callfortranroutine*/
20971 if (f2py_success) {
20972/*pyobjfrom*/
20973/*end of pyobjfrom*/
20974 CFUNCSMESS("Building return value.\n");
20975 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_tau_tmp,capi_work_tmp,info);
20976/*closepyobjfrom*/
20977/*end of closepyobjfrom*/
20978 } /*if (f2py_success) after callfortranroutine*/
20979/*cleanupfrompyobj*/
20980 } /*if (capi_work_tmp == NULL) ... else of work*/
20981 /* End of cleaning variable work */
20982 } /*CHECKSCALAR(lwork>=m||lwork==-1)*/
20983 } /*if (f2py_success) of lwork*/
20984 /* End of cleaning variable lwork */
20985 } /*if (capi_tau_tmp == NULL) ... else of tau*/
20986 /* End of cleaning variable tau */
20987 /* End of cleaning variable n */
20988 /* End of cleaning variable m */
20989 /* End of cleaning variable info */
20990 } /*if (capi_a_tmp == NULL) ... else of a*/
20991 /* End of cleaning variable a */
20992/*end of cleanupfrompyobj*/
20993 if (capi_buildvalue == NULL((void*)0)) {
20994/*routdebugfailure*/
20995 } else {
20996/*routdebugleave*/
20997 }
20998 CFUNCSMESS("Freeing memory.\n");
20999/*freemem*/
21000#ifdef F2PY_REPORT_ATEXIT
21001f2py_stop_clock();
21002#endif
21003 return capi_buildvalue;
21004}
21005/******************************* end of sgerqf *******************************/
21006
21007/*********************************** dgerqf ***********************************/
21008static char doc_f2py_rout__flapack_dgerqf[] = "\
21009qr,tau,work,info = dgerqf(a,[lwork,overwrite_a])\n\nWrapper for ``dgerqf``.\
21010\n\nParameters\n----------\n"
21011"a : input rank-2 array('d') with bounds (m,n)\n"
21012"\nOther Parameters\n----------------\n"
21013"overwrite_a : input int, optional\n Default: 0\n"
21014"lwork : input int, optional\n Default: max(3*m,1)\n"
21015"\nReturns\n-------\n"
21016"qr : rank-2 array('d') with bounds (m,n) and a storage\n"
21017"tau : rank-1 array('d') with bounds (MIN(m,n))\n"
21018"work : rank-1 array('d') with bounds (MAX(lwork,1))\n"
21019"info : int";
21020/* extern void F_FUNC(dgerqf,DGERQF)(F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */
21021static PyObject *f2py_rout__flapack_dgerqf(const PyObject *capi_self,
21022 PyObject *capi_args,
21023 PyObject *capi_keywds,
21024 void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
21025 PyObject * volatile capi_buildvalue = NULL((void*)0);
21026 volatile int f2py_success = 1;
21027/*decl*/
21028
21029 int m = 0;
21030 int n = 0;
21031 double *a = NULL((void*)0);
21032 npy_intp a_Dims[2] = {-1, -1};
21033 const int a_Rank = 2;
21034 PyArrayObject *capi_a_tmp = NULL((void*)0);
21035 int capi_a_intent = 0;
21036 int capi_overwrite_a = 0;
21037 PyObject *a_capi = Py_None(&_Py_NoneStruct);
21038 double *tau = NULL((void*)0);
21039 npy_intp tau_Dims[1] = {-1};
21040 const int tau_Rank = 1;
21041 PyArrayObject *capi_tau_tmp = NULL((void*)0);
21042 int capi_tau_intent = 0;
21043 double *work = NULL((void*)0);
21044 npy_intp work_Dims[1] = {-1};
21045 const int work_Rank = 1;
21046 PyArrayObject *capi_work_tmp = NULL((void*)0);
21047 int capi_work_intent = 0;
21048 int lwork = 0;
21049 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
21050 int info = 0;
21051 static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)};
21052
21053/*routdebugenter*/
21054#ifdef F2PY_REPORT_ATEXIT
21055f2py_start_clock();
21056#endif
21057 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
21058 "O|Oi:_flapack.dgerqf",\
21059 capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a))
21060 return NULL((void*)0);
21061/*frompyobj*/
21062 /* Processing variable a */
21063 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
21064 ;
21065 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
21066 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
21067 if (capi_a_tmp == NULL((void*)0)) {
21068 if (!PyErr_Occurred())
21069 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgerqf to C/Fortran array" );
21070 } else {
21071 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
21072
21073 /* Processing variable info */
21074 /* Processing variable m */
21075 m = shape(a,0)a_Dims[0];
21076 /* Processing variable n */
21077 n = shape(a,1)a_Dims[1];
21078 /* Processing variable tau */
21079 tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
21080 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
21081 capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
21082 if (capi_tau_tmp == NULL((void*)0)) {
21083 if (!PyErr_Occurred())
21084 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.dgerqf to C/Fortran array" );
21085 } else {
21086 tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
21087
21088 /* Processing variable lwork */
21089 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*m,1)((3*m > 1) ? (3*m) : (1)); else
21090 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgerqf() 1st keyword (lwork) can't be converted to int");
21091 if (f2py_success) {
21092 CHECKSCALAR(lwork>=m||lwork==-1,"lwork>=m||lwork==-1","1st keyword lwork","dgerqf:lwork=%d",lwork)if (!(lwork>=m||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgerqf:lwork=%d", "(""lwork>=m||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
21093 /* Processing variable work */
21094 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
21095 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
21096 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
21097 if (capi_work_tmp == NULL((void*)0)) {
21098 if (!PyErr_Occurred())
21099 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgerqf to C/Fortran array" );
21100 } else {
21101 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
21102
21103/*end of frompyobj*/
21104#ifdef F2PY_REPORT_ATEXIT
21105f2py_start_call_clock();
21106#endif
21107/*callfortranroutine*/
21108 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
21109 (*f2py_func)(&m,&n,a,&m,tau,work,&lwork,&info) ;
21110 /*(*f2py_func)(&m,&n,a,tau,work,&lwork,&info);*/
21111 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
21112if (PyErr_Occurred())
21113 f2py_success = 0;
21114#ifdef F2PY_REPORT_ATEXIT
21115f2py_stop_call_clock();
21116#endif
21117/*end of callfortranroutine*/
21118 if (f2py_success) {
21119/*pyobjfrom*/
21120/*end of pyobjfrom*/
21121 CFUNCSMESS("Building return value.\n");
21122 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_tau_tmp,capi_work_tmp,info);
21123/*closepyobjfrom*/
21124/*end of closepyobjfrom*/
21125 } /*if (f2py_success) after callfortranroutine*/
21126/*cleanupfrompyobj*/
21127 } /*if (capi_work_tmp == NULL) ... else of work*/
21128 /* End of cleaning variable work */
21129 } /*CHECKSCALAR(lwork>=m||lwork==-1)*/
21130 } /*if (f2py_success) of lwork*/
21131 /* End of cleaning variable lwork */
21132 } /*if (capi_tau_tmp == NULL) ... else of tau*/
21133 /* End of cleaning variable tau */
21134 /* End of cleaning variable n */
21135 /* End of cleaning variable m */
21136 /* End of cleaning variable info */
21137 } /*if (capi_a_tmp == NULL) ... else of a*/
21138 /* End of cleaning variable a */
21139/*end of cleanupfrompyobj*/
21140 if (capi_buildvalue == NULL((void*)0)) {
21141/*routdebugfailure*/
21142 } else {
21143/*routdebugleave*/
21144 }
21145 CFUNCSMESS("Freeing memory.\n");
21146/*freemem*/
21147#ifdef F2PY_REPORT_ATEXIT
21148f2py_stop_clock();
21149#endif
21150 return capi_buildvalue;
21151}
21152/******************************* end of dgerqf *******************************/
21153
21154/*********************************** cgerqf ***********************************/
21155static char doc_f2py_rout__flapack_cgerqf[] = "\
21156qr,tau,work,info = cgerqf(a,[lwork,overwrite_a])\n\nWrapper for ``cgerqf``.\
21157\n\nParameters\n----------\n"
21158"a : input rank-2 array('F') with bounds (m,n)\n"
21159"\nOther Parameters\n----------------\n"
21160"overwrite_a : input int, optional\n Default: 0\n"
21161"lwork : input int, optional\n Default: max(3*m,1)\n"
21162"\nReturns\n-------\n"
21163"qr : rank-2 array('F') with bounds (m,n) and a storage\n"
21164"tau : rank-1 array('F') with bounds (MIN(m,n))\n"
21165"work : rank-1 array('F') with bounds (MAX(lwork,1))\n"
21166"info : int";
21167/* extern void F_FUNC(cgerqf,CGERQF)(F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */
21168static PyObject *f2py_rout__flapack_cgerqf(const PyObject *capi_self,
21169 PyObject *capi_args,
21170 PyObject *capi_keywds,
21171 void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
21172 PyObject * volatile capi_buildvalue = NULL((void*)0);
21173 volatile int f2py_success = 1;
21174/*decl*/
21175
21176 int m = 0;
21177 int n = 0;
21178 complex_float *a = NULL((void*)0);
21179 npy_intp a_Dims[2] = {-1, -1};
21180 const int a_Rank = 2;
21181 PyArrayObject *capi_a_tmp = NULL((void*)0);
21182 int capi_a_intent = 0;
21183 int capi_overwrite_a = 0;
21184 PyObject *a_capi = Py_None(&_Py_NoneStruct);
21185 complex_float *tau = NULL((void*)0);
21186 npy_intp tau_Dims[1] = {-1};
21187 const int tau_Rank = 1;
21188 PyArrayObject *capi_tau_tmp = NULL((void*)0);
21189 int capi_tau_intent = 0;
21190 complex_float *work = NULL((void*)0);
21191 npy_intp work_Dims[1] = {-1};
21192 const int work_Rank = 1;
21193 PyArrayObject *capi_work_tmp = NULL((void*)0);
21194 int capi_work_intent = 0;
21195 int lwork = 0;
21196 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
21197 int info = 0;
21198 static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)};
21199
21200/*routdebugenter*/
21201#ifdef F2PY_REPORT_ATEXIT
21202f2py_start_clock();
21203#endif
21204 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
21205 "O|Oi:_flapack.cgerqf",\
21206 capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a))
21207 return NULL((void*)0);
21208/*frompyobj*/
21209 /* Processing variable a */
21210 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
21211 ;
21212 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
21213 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
21214 if (capi_a_tmp == NULL((void*)0)) {
21215 if (!PyErr_Occurred())
21216 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgerqf to C/Fortran array" );
21217 } else {
21218 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
21219
21220 /* Processing variable info */
21221 /* Processing variable m */
21222 m = shape(a,0)a_Dims[0];
21223 /* Processing variable n */
21224 n = shape(a,1)a_Dims[1];
21225 /* Processing variable tau */
21226 tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
21227 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
21228 capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
21229 if (capi_tau_tmp == NULL((void*)0)) {
21230 if (!PyErr_Occurred())
21231 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.cgerqf to C/Fortran array" );
21232 } else {
21233 tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
21234
21235 /* Processing variable lwork */
21236 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*m,1)((3*m > 1) ? (3*m) : (1)); else
21237 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgerqf() 1st keyword (lwork) can't be converted to int");
21238 if (f2py_success) {
21239 CHECKSCALAR(lwork>=m||lwork==-1,"lwork>=m||lwork==-1","1st keyword lwork","cgerqf:lwork=%d",lwork)if (!(lwork>=m||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgerqf:lwork=%d", "(""lwork>=m||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
21240 /* Processing variable work */
21241 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
21242 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
21243 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
21244 if (capi_work_tmp == NULL((void*)0)) {
21245 if (!PyErr_Occurred())
21246 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgerqf to C/Fortran array" );
21247 } else {
21248 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
21249
21250/*end of frompyobj*/
21251#ifdef F2PY_REPORT_ATEXIT
21252f2py_start_call_clock();
21253#endif
21254/*callfortranroutine*/
21255 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
21256 (*f2py_func)(&m,&n,a,&m,tau,work,&lwork,&info) ;
21257 /*(*f2py_func)(&m,&n,a,tau,work,&lwork,&info);*/
21258 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
21259if (PyErr_Occurred())
21260 f2py_success = 0;
21261#ifdef F2PY_REPORT_ATEXIT
21262f2py_stop_call_clock();
21263#endif
21264/*end of callfortranroutine*/
21265 if (f2py_success) {
21266/*pyobjfrom*/
21267/*end of pyobjfrom*/
21268 CFUNCSMESS("Building return value.\n");
21269 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_tau_tmp,capi_work_tmp,info);
21270/*closepyobjfrom*/
21271/*end of closepyobjfrom*/
21272 } /*if (f2py_success) after callfortranroutine*/
21273/*cleanupfrompyobj*/
21274 } /*if (capi_work_tmp == NULL) ... else of work*/
21275 /* End of cleaning variable work */
21276 } /*CHECKSCALAR(lwork>=m||lwork==-1)*/
21277 } /*if (f2py_success) of lwork*/
21278 /* End of cleaning variable lwork */
21279 } /*if (capi_tau_tmp == NULL) ... else of tau*/
21280 /* End of cleaning variable tau */
21281 /* End of cleaning variable n */
21282 /* End of cleaning variable m */
21283 /* End of cleaning variable info */
21284 } /*if (capi_a_tmp == NULL) ... else of a*/
21285 /* End of cleaning variable a */
21286/*end of cleanupfrompyobj*/
21287 if (capi_buildvalue == NULL((void*)0)) {
21288/*routdebugfailure*/
21289 } else {
21290/*routdebugleave*/
21291 }
21292 CFUNCSMESS("Freeing memory.\n");
21293/*freemem*/
21294#ifdef F2PY_REPORT_ATEXIT
21295f2py_stop_clock();
21296#endif
21297 return capi_buildvalue;
21298}
21299/******************************* end of cgerqf *******************************/
21300
21301/*********************************** zgerqf ***********************************/
21302static char doc_f2py_rout__flapack_zgerqf[] = "\
21303qr,tau,work,info = zgerqf(a,[lwork,overwrite_a])\n\nWrapper for ``zgerqf``.\
21304\n\nParameters\n----------\n"
21305"a : input rank-2 array('D') with bounds (m,n)\n"
21306"\nOther Parameters\n----------------\n"
21307"overwrite_a : input int, optional\n Default: 0\n"
21308"lwork : input int, optional\n Default: max(3*m,1)\n"
21309"\nReturns\n-------\n"
21310"qr : rank-2 array('D') with bounds (m,n) and a storage\n"
21311"tau : rank-1 array('D') with bounds (MIN(m,n))\n"
21312"work : rank-1 array('D') with bounds (MAX(lwork,1))\n"
21313"info : int";
21314/* extern void F_FUNC(zgerqf,ZGERQF)(F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */
21315static PyObject *f2py_rout__flapack_zgerqf(const PyObject *capi_self,
21316 PyObject *capi_args,
21317 PyObject *capi_keywds,
21318 void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
21319 PyObject * volatile capi_buildvalue = NULL((void*)0);
21320 volatile int f2py_success = 1;
21321/*decl*/
21322
21323 int m = 0;
21324 int n = 0;
21325 complex_double *a = NULL((void*)0);
21326 npy_intp a_Dims[2] = {-1, -1};
21327 const int a_Rank = 2;
21328 PyArrayObject *capi_a_tmp = NULL((void*)0);
21329 int capi_a_intent = 0;
21330 int capi_overwrite_a = 0;
21331 PyObject *a_capi = Py_None(&_Py_NoneStruct);
21332 complex_double *tau = NULL((void*)0);
21333 npy_intp tau_Dims[1] = {-1};
21334 const int tau_Rank = 1;
21335 PyArrayObject *capi_tau_tmp = NULL((void*)0);
21336 int capi_tau_intent = 0;
21337 complex_double *work = NULL((void*)0);
21338 npy_intp work_Dims[1] = {-1};
21339 const int work_Rank = 1;
21340 PyArrayObject *capi_work_tmp = NULL((void*)0);
21341 int capi_work_intent = 0;
21342 int lwork = 0;
21343 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
21344 int info = 0;
21345 static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)};
21346
21347/*routdebugenter*/
21348#ifdef F2PY_REPORT_ATEXIT
21349f2py_start_clock();
21350#endif
21351 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
21352 "O|Oi:_flapack.zgerqf",\
21353 capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a))
21354 return NULL((void*)0);
21355/*frompyobj*/
21356 /* Processing variable a */
21357 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
21358 ;
21359 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
21360 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
21361 if (capi_a_tmp == NULL((void*)0)) {
21362 if (!PyErr_Occurred())
21363 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgerqf to C/Fortran array" );
21364 } else {
21365 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
21366
21367 /* Processing variable info */
21368 /* Processing variable m */
21369 m = shape(a,0)a_Dims[0];
21370 /* Processing variable n */
21371 n = shape(a,1)a_Dims[1];
21372 /* Processing variable tau */
21373 tau_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
21374 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
21375 capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
21376 if (capi_tau_tmp == NULL((void*)0)) {
21377 if (!PyErr_Occurred())
21378 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.zgerqf to C/Fortran array" );
21379 } else {
21380 tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
21381
21382 /* Processing variable lwork */
21383 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*m,1)((3*m > 1) ? (3*m) : (1)); else
21384 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgerqf() 1st keyword (lwork) can't be converted to int");
21385 if (f2py_success) {
21386 CHECKSCALAR(lwork>=m||lwork==-1,"lwork>=m||lwork==-1","1st keyword lwork","zgerqf:lwork=%d",lwork)if (!(lwork>=m||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgerqf:lwork=%d", "(""lwork>=m||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
21387 /* Processing variable work */
21388 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
21389 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
21390 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
21391 if (capi_work_tmp == NULL((void*)0)) {
21392 if (!PyErr_Occurred())
21393 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgerqf to C/Fortran array" );
21394 } else {
21395 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
21396
21397/*end of frompyobj*/
21398#ifdef F2PY_REPORT_ATEXIT
21399f2py_start_call_clock();
21400#endif
21401/*callfortranroutine*/
21402 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
21403 (*f2py_func)(&m,&n,a,&m,tau,work,&lwork,&info) ;
21404 /*(*f2py_func)(&m,&n,a,tau,work,&lwork,&info);*/
21405 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
21406if (PyErr_Occurred())
21407 f2py_success = 0;
21408#ifdef F2PY_REPORT_ATEXIT
21409f2py_stop_call_clock();
21410#endif
21411/*end of callfortranroutine*/
21412 if (f2py_success) {
21413/*pyobjfrom*/
21414/*end of pyobjfrom*/
21415 CFUNCSMESS("Building return value.\n");
21416 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_tau_tmp,capi_work_tmp,info);
21417/*closepyobjfrom*/
21418/*end of closepyobjfrom*/
21419 } /*if (f2py_success) after callfortranroutine*/
21420/*cleanupfrompyobj*/
21421 } /*if (capi_work_tmp == NULL) ... else of work*/
21422 /* End of cleaning variable work */
21423 } /*CHECKSCALAR(lwork>=m||lwork==-1)*/
21424 } /*if (f2py_success) of lwork*/
21425 /* End of cleaning variable lwork */
21426 } /*if (capi_tau_tmp == NULL) ... else of tau*/
21427 /* End of cleaning variable tau */
21428 /* End of cleaning variable n */
21429 /* End of cleaning variable m */
21430 /* End of cleaning variable info */
21431 } /*if (capi_a_tmp == NULL) ... else of a*/
21432 /* End of cleaning variable a */
21433/*end of cleanupfrompyobj*/
21434 if (capi_buildvalue == NULL((void*)0)) {
21435/*routdebugfailure*/
21436 } else {
21437/*routdebugleave*/
21438 }
21439 CFUNCSMESS("Freeing memory.\n");
21440/*freemem*/
21441#ifdef F2PY_REPORT_ATEXIT
21442f2py_stop_clock();
21443#endif
21444 return capi_buildvalue;
21445}
21446/******************************* end of zgerqf *******************************/
21447
21448/*********************************** sgeev ***********************************/
21449static char doc_f2py_rout__flapack_sgeev[] = "\
21450wr,wi,vl,vr,info = sgeev(a,[compute_vl,compute_vr,lwork,overwrite_a])\n\nWrapper for ``sgeev``.\
21451\n\nParameters\n----------\n"
21452"a : input rank-2 array('f') with bounds (n,n)\n"
21453"\nOther Parameters\n----------------\n"
21454"compute_vl : input int, optional\n Default: 1\n"
21455"compute_vr : input int, optional\n Default: 1\n"
21456"overwrite_a : input int, optional\n Default: 0\n"
21457"lwork : input int, optional\n Default: max(4*n,1)\n"
21458"\nReturns\n-------\n"
21459"wr : rank-1 array('f') with bounds (n)\n"
21460"wi : rank-1 array('f') with bounds (n)\n"
21461"vl : rank-2 array('f') with bounds (ldvl,n)\n"
21462"vr : rank-2 array('f') with bounds (ldvr,n)\n"
21463"info : int";
21464/* extern void F_FUNC(sgeev,SGEEV)(char*,char*,F_INT*,float*,F_INT*,float*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */
21465static PyObject *f2py_rout__flapack_sgeev(const PyObject *capi_self,
21466 PyObject *capi_args,
21467 PyObject *capi_keywds,
21468 void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
21469 PyObject * volatile capi_buildvalue = NULL((void*)0);
21470 volatile int f2py_success = 1;
21471/*decl*/
21472
21473 int compute_vl = 0;
21474 PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct);
21475 int compute_vr = 0;
21476 PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct);
21477 int n = 0;
21478 float *a = NULL((void*)0);
21479 npy_intp a_Dims[2] = {-1, -1};
21480 const int a_Rank = 2;
21481 PyArrayObject *capi_a_tmp = NULL((void*)0);
21482 int capi_a_intent = 0;
21483 int capi_overwrite_a = 0;
21484 PyObject *a_capi = Py_None(&_Py_NoneStruct);
21485 float *wr = NULL((void*)0);
21486 npy_intp wr_Dims[1] = {-1};
21487 const int wr_Rank = 1;
21488 PyArrayObject *capi_wr_tmp = NULL((void*)0);
21489 int capi_wr_intent = 0;
21490 float *wi = NULL((void*)0);
21491 npy_intp wi_Dims[1] = {-1};
21492 const int wi_Rank = 1;
21493 PyArrayObject *capi_wi_tmp = NULL((void*)0);
21494 int capi_wi_intent = 0;
21495 float *vl = NULL((void*)0);
21496 npy_intp vl_Dims[2] = {-1, -1};
21497 const int vl_Rank = 2;
21498 PyArrayObject *capi_vl_tmp = NULL((void*)0);
21499 int capi_vl_intent = 0;
21500 int ldvl = 0;
21501 float *vr = NULL((void*)0);
21502 npy_intp vr_Dims[2] = {-1, -1};
21503 const int vr_Rank = 2;
21504 PyArrayObject *capi_vr_tmp = NULL((void*)0);
21505 int capi_vr_intent = 0;
21506 int ldvr = 0;
21507 float *work = NULL((void*)0);
21508 npy_intp work_Dims[1] = {-1};
21509 const int work_Rank = 1;
21510 PyArrayObject *capi_work_tmp = NULL((void*)0);
21511 int capi_work_intent = 0;
21512 int lwork = 0;
21513 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
21514 int info = 0;
21515 static char *capi_kwlist[] = {"a","compute_vl","compute_vr","lwork","overwrite_a",NULL((void*)0)};
21516
21517/*routdebugenter*/
21518#ifdef F2PY_REPORT_ATEXIT
21519f2py_start_clock();
21520#endif
21521 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
21522 "O|OOOi:_flapack.sgeev",\
21523 capi_kwlist,&a_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a))
21524 return NULL((void*)0);
21525/*frompyobj*/
21526 /* Processing variable compute_vl */
21527 if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else
21528 f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.sgeev() 1st keyword (compute_vl) can't be converted to int");
21529 if (f2py_success) {
21530 CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","sgeev:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgeev:compute_vl=%d", "(""compute_vl==1||compute_vl==0"
") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString
(_flapack_error,errstring); } else
{
21531 /* Processing variable compute_vr */
21532 if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else
21533 f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.sgeev() 2nd keyword (compute_vr) can't be converted to int");
21534 if (f2py_success) {
21535 CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","sgeev:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgeev:compute_vr=%d", "(""compute_vr==1||compute_vr==0"
") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString
(_flapack_error,errstring); } else
{
21536 /* Processing variable a */
21537 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
21538 ;
21539 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
21540 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
21541 if (capi_a_tmp == NULL((void*)0)) {
21542 if (!PyErr_Occurred())
21543 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgeev to C/Fortran array" );
21544 } else {
21545 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
21546
21547 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
21548 /* Processing variable info */
21549 /* Processing variable n */
21550 n = shape(a,0)a_Dims[0];
21551 /* Processing variable wr */
21552 wr_Dims[0]=n;
21553 capi_wr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
21554 capi_wr_tmp = array_from_pyobj(NPY_FLOAT,wr_Dims,wr_Rank,capi_wr_intent,Py_None(&_Py_NoneStruct));
21555 if (capi_wr_tmp == NULL((void*)0)) {
21556 if (!PyErr_Occurred())
21557 PyErr_SetString(_flapack_error,"failed in converting hidden `wr' of _flapack.sgeev to C/Fortran array" );
21558 } else {
21559 wr = (float *)(PyArray_DATA(capi_wr_tmp)((void *)((PyArrayObject_fields *)(capi_wr_tmp))->data));
21560
21561 /* Processing variable wi */
21562 wi_Dims[0]=n;
21563 capi_wi_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
21564 capi_wi_tmp = array_from_pyobj(NPY_FLOAT,wi_Dims,wi_Rank,capi_wi_intent,Py_None(&_Py_NoneStruct));
21565 if (capi_wi_tmp == NULL((void*)0)) {
21566 if (!PyErr_Occurred())
21567 PyErr_SetString(_flapack_error,"failed in converting hidden `wi' of _flapack.sgeev to C/Fortran array" );
21568 } else {
21569 wi = (float *)(PyArray_DATA(capi_wi_tmp)((void *)((PyArrayObject_fields *)(capi_wi_tmp))->data));
21570
21571 /* Processing variable ldvl */
21572 ldvl = (compute_vl?n:1);
21573 /* Processing variable ldvr */
21574 ldvr = (compute_vr?n:1);
21575 /* Processing variable lwork */
21576 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(4*n,1)((4*n > 1) ? (4*n) : (1)); else
21577 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgeev() 3rd keyword (lwork) can't be converted to int");
21578 if (f2py_success) {
21579 CHECKSCALAR(lwork>=((compute_vl||compute_vr)?4*n:3*n),"lwork>=((compute_vl||compute_vr)?4*n:3*n)","3rd keyword lwork","sgeev:lwork=%d",lwork)if (!(lwork>=((compute_vl||compute_vr)?4*n:3*n))) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""sgeev:lwork=%d", "(""lwork>=((compute_vl||compute_vr)?4*n:3*n)"
") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
21580 /* Processing variable work */
21581 work_Dims[0]=lwork;
21582 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
21583 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
21584 if (capi_work_tmp == NULL((void*)0)) {
21585 if (!PyErr_Occurred())
21586 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgeev to C/Fortran array" );
21587 } else {
21588 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
21589
21590 /* Processing variable vl */
21591 vl_Dims[0]=ldvl,vl_Dims[1]=n;
21592 capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
21593 capi_vl_tmp = array_from_pyobj(NPY_FLOAT,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct));
21594 if (capi_vl_tmp == NULL((void*)0)) {
21595 if (!PyErr_Occurred())
21596 PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.sgeev to C/Fortran array" );
21597 } else {
21598 vl = (float *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data));
21599
21600 /* Processing variable vr */
21601 vr_Dims[0]=ldvr,vr_Dims[1]=n;
21602 capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
21603 capi_vr_tmp = array_from_pyobj(NPY_FLOAT,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct));
21604 if (capi_vr_tmp == NULL((void*)0)) {
21605 if (!PyErr_Occurred())
21606 PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.sgeev to C/Fortran array" );
21607 } else {
21608 vr = (float *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data));
21609
21610/*end of frompyobj*/
21611#ifdef F2PY_REPORT_ATEXIT
21612f2py_start_call_clock();
21613#endif
21614/*callfortranroutine*/
21615 {(*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,wr,wi,vl,&ldvl,vr,&ldvr,work,&lwork,&info);} ;
21616 /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,wr,wi,vl,&ldvl,vr,&ldvr,work,&lwork,&info);*/
21617if (PyErr_Occurred())
21618 f2py_success = 0;
21619#ifdef F2PY_REPORT_ATEXIT
21620f2py_stop_call_clock();
21621#endif
21622/*end of callfortranroutine*/
21623 if (f2py_success) {
21624/*pyobjfrom*/
21625/*end of pyobjfrom*/
21626 CFUNCSMESS("Building return value.\n");
21627 capi_buildvalue = Py_BuildValue("NNNNi",capi_wr_tmp,capi_wi_tmp,capi_vl_tmp,capi_vr_tmp,info);
21628/*closepyobjfrom*/
21629/*end of closepyobjfrom*/
21630 } /*if (f2py_success) after callfortranroutine*/
21631/*cleanupfrompyobj*/
21632 } /*if (capi_vr_tmp == NULL) ... else of vr*/
21633 /* End of cleaning variable vr */
21634 } /*if (capi_vl_tmp == NULL) ... else of vl*/
21635 /* End of cleaning variable vl */
21636 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
21637 } /*if (capi_work_tmp == NULL) ... else of work*/
21638 /* End of cleaning variable work */
21639 } /*CHECKSCALAR(lwork>=((compute_vl||compute_vr)?4*n:3*n))*/
21640 } /*if (f2py_success) of lwork*/
21641 /* End of cleaning variable lwork */
21642 /* End of cleaning variable ldvr */
21643 /* End of cleaning variable ldvl */
21644 } /*if (capi_wi_tmp == NULL) ... else of wi*/
21645 /* End of cleaning variable wi */
21646 } /*if (capi_wr_tmp == NULL) ... else of wr*/
21647 /* End of cleaning variable wr */
21648 /* End of cleaning variable n */
21649 /* End of cleaning variable info */
21650 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
21651 if((PyObject *)capi_a_tmp!=a_capi) {
21652 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
21653 } /*if (capi_a_tmp == NULL) ... else of a*/
21654 /* End of cleaning variable a */
21655 } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/
21656 } /*if (f2py_success) of compute_vr*/
21657 /* End of cleaning variable compute_vr */
21658 } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/
21659 } /*if (f2py_success) of compute_vl*/
21660 /* End of cleaning variable compute_vl */
21661/*end of cleanupfrompyobj*/
21662 if (capi_buildvalue == NULL((void*)0)) {
21663/*routdebugfailure*/
21664 } else {
21665/*routdebugleave*/
21666 }
21667 CFUNCSMESS("Freeing memory.\n");
21668/*freemem*/
21669#ifdef F2PY_REPORT_ATEXIT
21670f2py_stop_clock();
21671#endif
21672 return capi_buildvalue;
21673}
21674/******************************** end of sgeev ********************************/
21675
21676/*********************************** dgeev ***********************************/
21677static char doc_f2py_rout__flapack_dgeev[] = "\
21678wr,wi,vl,vr,info = dgeev(a,[compute_vl,compute_vr,lwork,overwrite_a])\n\nWrapper for ``dgeev``.\
21679\n\nParameters\n----------\n"
21680"a : input rank-2 array('d') with bounds (n,n)\n"
21681"\nOther Parameters\n----------------\n"
21682"compute_vl : input int, optional\n Default: 1\n"
21683"compute_vr : input int, optional\n Default: 1\n"
21684"overwrite_a : input int, optional\n Default: 0\n"
21685"lwork : input int, optional\n Default: max(4*n,1)\n"
21686"\nReturns\n-------\n"
21687"wr : rank-1 array('d') with bounds (n)\n"
21688"wi : rank-1 array('d') with bounds (n)\n"
21689"vl : rank-2 array('d') with bounds (ldvl,n)\n"
21690"vr : rank-2 array('d') with bounds (ldvr,n)\n"
21691"info : int";
21692/* extern void F_FUNC(dgeev,DGEEV)(char*,char*,F_INT*,double*,F_INT*,double*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */
21693static PyObject *f2py_rout__flapack_dgeev(const PyObject *capi_self,
21694 PyObject *capi_args,
21695 PyObject *capi_keywds,
21696 void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
21697 PyObject * volatile capi_buildvalue = NULL((void*)0);
21698 volatile int f2py_success = 1;
21699/*decl*/
21700
21701 int compute_vl = 0;
21702 PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct);
21703 int compute_vr = 0;
21704 PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct);
21705 int n = 0;
21706 double *a = NULL((void*)0);
21707 npy_intp a_Dims[2] = {-1, -1};
21708 const int a_Rank = 2;
21709 PyArrayObject *capi_a_tmp = NULL((void*)0);
21710 int capi_a_intent = 0;
21711 int capi_overwrite_a = 0;
21712 PyObject *a_capi = Py_None(&_Py_NoneStruct);
21713 double *wr = NULL((void*)0);
21714 npy_intp wr_Dims[1] = {-1};
21715 const int wr_Rank = 1;
21716 PyArrayObject *capi_wr_tmp = NULL((void*)0);
21717 int capi_wr_intent = 0;
21718 double *wi = NULL((void*)0);
21719 npy_intp wi_Dims[1] = {-1};
21720 const int wi_Rank = 1;
21721 PyArrayObject *capi_wi_tmp = NULL((void*)0);
21722 int capi_wi_intent = 0;
21723 double *vl = NULL((void*)0);
21724 npy_intp vl_Dims[2] = {-1, -1};
21725 const int vl_Rank = 2;
21726 PyArrayObject *capi_vl_tmp = NULL((void*)0);
21727 int capi_vl_intent = 0;
21728 int ldvl = 0;
21729 double *vr = NULL((void*)0);
21730 npy_intp vr_Dims[2] = {-1, -1};
21731 const int vr_Rank = 2;
21732 PyArrayObject *capi_vr_tmp = NULL((void*)0);
21733 int capi_vr_intent = 0;
21734 int ldvr = 0;
21735 double *work = NULL((void*)0);
21736 npy_intp work_Dims[1] = {-1};
21737 const int work_Rank = 1;
21738 PyArrayObject *capi_work_tmp = NULL((void*)0);
21739 int capi_work_intent = 0;
21740 int lwork = 0;
21741 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
21742 int info = 0;
21743 static char *capi_kwlist[] = {"a","compute_vl","compute_vr","lwork","overwrite_a",NULL((void*)0)};
21744
21745/*routdebugenter*/
21746#ifdef F2PY_REPORT_ATEXIT
21747f2py_start_clock();
21748#endif
21749 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
21750 "O|OOOi:_flapack.dgeev",\
21751 capi_kwlist,&a_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a))
21752 return NULL((void*)0);
21753/*frompyobj*/
21754 /* Processing variable compute_vl */
21755 if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else
21756 f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.dgeev() 1st keyword (compute_vl) can't be converted to int");
21757 if (f2py_success) {
21758 CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","dgeev:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgeev:compute_vl=%d", "(""compute_vl==1||compute_vl==0"
") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString
(_flapack_error,errstring); } else
{
21759 /* Processing variable compute_vr */
21760 if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else
21761 f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.dgeev() 2nd keyword (compute_vr) can't be converted to int");
21762 if (f2py_success) {
21763 CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","dgeev:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgeev:compute_vr=%d", "(""compute_vr==1||compute_vr==0"
") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString
(_flapack_error,errstring); } else
{
21764 /* Processing variable a */
21765 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
21766 ;
21767 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
21768 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
21769 if (capi_a_tmp == NULL((void*)0)) {
21770 if (!PyErr_Occurred())
21771 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgeev to C/Fortran array" );
21772 } else {
21773 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
21774
21775 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
21776 /* Processing variable info */
21777 /* Processing variable n */
21778 n = shape(a,0)a_Dims[0];
21779 /* Processing variable wr */
21780 wr_Dims[0]=n;
21781 capi_wr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
21782 capi_wr_tmp = array_from_pyobj(NPY_DOUBLE,wr_Dims,wr_Rank,capi_wr_intent,Py_None(&_Py_NoneStruct));
21783 if (capi_wr_tmp == NULL((void*)0)) {
21784 if (!PyErr_Occurred())
21785 PyErr_SetString(_flapack_error,"failed in converting hidden `wr' of _flapack.dgeev to C/Fortran array" );
21786 } else {
21787 wr = (double *)(PyArray_DATA(capi_wr_tmp)((void *)((PyArrayObject_fields *)(capi_wr_tmp))->data));
21788
21789 /* Processing variable wi */
21790 wi_Dims[0]=n;
21791 capi_wi_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
21792 capi_wi_tmp = array_from_pyobj(NPY_DOUBLE,wi_Dims,wi_Rank,capi_wi_intent,Py_None(&_Py_NoneStruct));
21793 if (capi_wi_tmp == NULL((void*)0)) {
21794 if (!PyErr_Occurred())
21795 PyErr_SetString(_flapack_error,"failed in converting hidden `wi' of _flapack.dgeev to C/Fortran array" );
21796 } else {
21797 wi = (double *)(PyArray_DATA(capi_wi_tmp)((void *)((PyArrayObject_fields *)(capi_wi_tmp))->data));
21798
21799 /* Processing variable ldvl */
21800 ldvl = (compute_vl?n:1);
21801 /* Processing variable ldvr */
21802 ldvr = (compute_vr?n:1);
21803 /* Processing variable lwork */
21804 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(4*n,1)((4*n > 1) ? (4*n) : (1)); else
21805 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgeev() 3rd keyword (lwork) can't be converted to int");
21806 if (f2py_success) {
21807 CHECKSCALAR(lwork>=((compute_vl||compute_vr)?4*n:3*n),"lwork>=((compute_vl||compute_vr)?4*n:3*n)","3rd keyword lwork","dgeev:lwork=%d",lwork)if (!(lwork>=((compute_vl||compute_vr)?4*n:3*n))) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dgeev:lwork=%d", "(""lwork>=((compute_vl||compute_vr)?4*n:3*n)"
") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
21808 /* Processing variable work */
21809 work_Dims[0]=lwork;
21810 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
21811 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
21812 if (capi_work_tmp == NULL((void*)0)) {
21813 if (!PyErr_Occurred())
21814 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgeev to C/Fortran array" );
21815 } else {
21816 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
21817
21818 /* Processing variable vl */
21819 vl_Dims[0]=ldvl,vl_Dims[1]=n;
21820 capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
21821 capi_vl_tmp = array_from_pyobj(NPY_DOUBLE,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct));
21822 if (capi_vl_tmp == NULL((void*)0)) {
21823 if (!PyErr_Occurred())
21824 PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.dgeev to C/Fortran array" );
21825 } else {
21826 vl = (double *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data));
21827
21828 /* Processing variable vr */
21829 vr_Dims[0]=ldvr,vr_Dims[1]=n;
21830 capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
21831 capi_vr_tmp = array_from_pyobj(NPY_DOUBLE,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct));
21832 if (capi_vr_tmp == NULL((void*)0)) {
21833 if (!PyErr_Occurred())
21834 PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.dgeev to C/Fortran array" );
21835 } else {
21836 vr = (double *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data));
21837
21838/*end of frompyobj*/
21839#ifdef F2PY_REPORT_ATEXIT
21840f2py_start_call_clock();
21841#endif
21842/*callfortranroutine*/
21843 {(*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,wr,wi,vl,&ldvl,vr,&ldvr,work,&lwork,&info);} ;
21844 /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,wr,wi,vl,&ldvl,vr,&ldvr,work,&lwork,&info);*/
21845if (PyErr_Occurred())
21846 f2py_success = 0;
21847#ifdef F2PY_REPORT_ATEXIT
21848f2py_stop_call_clock();
21849#endif
21850/*end of callfortranroutine*/
21851 if (f2py_success) {
21852/*pyobjfrom*/
21853/*end of pyobjfrom*/
21854 CFUNCSMESS("Building return value.\n");
21855 capi_buildvalue = Py_BuildValue("NNNNi",capi_wr_tmp,capi_wi_tmp,capi_vl_tmp,capi_vr_tmp,info);
21856/*closepyobjfrom*/
21857/*end of closepyobjfrom*/
21858 } /*if (f2py_success) after callfortranroutine*/
21859/*cleanupfrompyobj*/
21860 } /*if (capi_vr_tmp == NULL) ... else of vr*/
21861 /* End of cleaning variable vr */
21862 } /*if (capi_vl_tmp == NULL) ... else of vl*/
21863 /* End of cleaning variable vl */
21864 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
21865 } /*if (capi_work_tmp == NULL) ... else of work*/
21866 /* End of cleaning variable work */
21867 } /*CHECKSCALAR(lwork>=((compute_vl||compute_vr)?4*n:3*n))*/
21868 } /*if (f2py_success) of lwork*/
21869 /* End of cleaning variable lwork */
21870 /* End of cleaning variable ldvr */
21871 /* End of cleaning variable ldvl */
21872 } /*if (capi_wi_tmp == NULL) ... else of wi*/
21873 /* End of cleaning variable wi */
21874 } /*if (capi_wr_tmp == NULL) ... else of wr*/
21875 /* End of cleaning variable wr */
21876 /* End of cleaning variable n */
21877 /* End of cleaning variable info */
21878 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
21879 if((PyObject *)capi_a_tmp!=a_capi) {
21880 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
21881 } /*if (capi_a_tmp == NULL) ... else of a*/
21882 /* End of cleaning variable a */
21883 } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/
21884 } /*if (f2py_success) of compute_vr*/
21885 /* End of cleaning variable compute_vr */
21886 } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/
21887 } /*if (f2py_success) of compute_vl*/
21888 /* End of cleaning variable compute_vl */
21889/*end of cleanupfrompyobj*/
21890 if (capi_buildvalue == NULL((void*)0)) {
21891/*routdebugfailure*/
21892 } else {
21893/*routdebugleave*/
21894 }
21895 CFUNCSMESS("Freeing memory.\n");
21896/*freemem*/
21897#ifdef F2PY_REPORT_ATEXIT
21898f2py_stop_clock();
21899#endif
21900 return capi_buildvalue;
21901}
21902/******************************** end of dgeev ********************************/
21903
21904/******************************** sgeev_lwork ********************************/
21905static char doc_f2py_rout__flapack_sgeev_lwork[] = "\
21906work,info = sgeev_lwork(n,[compute_vl,compute_vr])\n\nWrapper for ``sgeev_lwork``.\
21907\n\nParameters\n----------\n"
21908"n : input int\n"
21909"\nOther Parameters\n----------------\n"
21910"compute_vl : input int, optional\n Default: 1\n"
21911"compute_vr : input int, optional\n Default: 1\n"
21912"\nReturns\n-------\n"
21913"work : float\n"
21914"info : int";
21915/* extern void F_FUNC(sgeev ,SGEEV )(char*,char*,F_INT*,float*,F_INT*,float*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */
21916static PyObject *f2py_rout__flapack_sgeev_lwork(const PyObject *capi_self,
21917 PyObject *capi_args,
21918 PyObject *capi_keywds,
21919 void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
21920 PyObject * volatile capi_buildvalue = NULL((void*)0);
21921 volatile int f2py_success = 1;
21922/*decl*/
21923
21924 int compute_vl = 0;
21925 PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct);
21926 int compute_vr = 0;
21927 PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct);
21928 int n = 0;
21929 PyObject *n_capi = Py_None(&_Py_NoneStruct);
21930 float a = 0;
21931 float wr = 0;
21932 float wi = 0;
21933 float vl = 0;
21934 int ldvl = 0;
21935 float vr = 0;
21936 int ldvr = 0;
21937 float work = 0;
21938 int lwork = 0;
21939 int info = 0;
21940 static char *capi_kwlist[] = {"n","compute_vl","compute_vr",NULL((void*)0)};
21941
21942/*routdebugenter*/
21943#ifdef F2PY_REPORT_ATEXIT
21944f2py_start_clock();
21945#endif
21946 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
21947 "O|OO:_flapack.sgeev_lwork",\
21948 capi_kwlist,&n_capi,&compute_vl_capi,&compute_vr_capi))
21949 return NULL((void*)0);
21950/*frompyobj*/
21951 /* Processing variable compute_vl */
21952 if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else
21953 f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.sgeev_lwork() 1st keyword (compute_vl) can't be converted to int");
21954 if (f2py_success) {
21955 CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","sgeev_lwork:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgeev_lwork:compute_vl=%d", "(""compute_vl==1||compute_vl==0"
") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString
(_flapack_error,errstring); } else
{
21956 /* Processing variable compute_vr */
21957 if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else
21958 f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.sgeev_lwork() 2nd keyword (compute_vr) can't be converted to int");
21959 if (f2py_success) {
21960 CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","sgeev_lwork:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgeev_lwork:compute_vr=%d", "(""compute_vr==1||compute_vr==0"
") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString
(_flapack_error,errstring); } else
{
21961 /* Processing variable n */
21962 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgeev_lwork() 1st argument (n) can't be converted to int");
21963 if (f2py_success) {
21964 /* Processing variable a */
21965 /* Processing variable wr */
21966 /* Processing variable wi */
21967 /* Processing variable vl */
21968 /* Processing variable vr */
21969 /* Processing variable lwork */
21970 lwork = -1;
21971 /* Processing variable work */
21972 /* Processing variable info */
21973 /* Processing variable ldvl */
21974 ldvl = (compute_vl?n:1);
21975 /* Processing variable ldvr */
21976 ldvr = (compute_vr?n:1);
21977/*end of frompyobj*/
21978#ifdef F2PY_REPORT_ATEXIT
21979f2py_start_call_clock();
21980#endif
21981/*callfortranroutine*/
21982 {(*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,&a,&n,&wr,&wi,&vl,&ldvl,&vr,&ldvr,&work,&lwork,&info);} ;
21983 /*(*f2py_func)(&compute_vl,&compute_vr,&n,&a,&wr,&wi,&vl,&ldvl,&vr,&ldvr,&work,&lwork,&info);*/
21984if (PyErr_Occurred())
21985 f2py_success = 0;
21986#ifdef F2PY_REPORT_ATEXIT
21987f2py_stop_call_clock();
21988#endif
21989/*end of callfortranroutine*/
21990 if (f2py_success) {
21991/*pyobjfrom*/
21992/*end of pyobjfrom*/
21993 CFUNCSMESS("Building return value.\n");
21994 capi_buildvalue = Py_BuildValue("fi",work,info);
21995/*closepyobjfrom*/
21996/*end of closepyobjfrom*/
21997 } /*if (f2py_success) after callfortranroutine*/
21998/*cleanupfrompyobj*/
21999 /* End of cleaning variable ldvr */
22000 /* End of cleaning variable ldvl */
22001 /* End of cleaning variable info */
22002 /* End of cleaning variable work */
22003 /* End of cleaning variable lwork */
22004 /* End of cleaning variable vr */
22005 /* End of cleaning variable vl */
22006 /* End of cleaning variable wi */
22007 /* End of cleaning variable wr */
22008 /* End of cleaning variable a */
22009 } /*if (f2py_success) of n*/
22010 /* End of cleaning variable n */
22011 } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/
22012 } /*if (f2py_success) of compute_vr*/
22013 /* End of cleaning variable compute_vr */
22014 } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/
22015 } /*if (f2py_success) of compute_vl*/
22016 /* End of cleaning variable compute_vl */
22017/*end of cleanupfrompyobj*/
22018 if (capi_buildvalue == NULL((void*)0)) {
22019/*routdebugfailure*/
22020 } else {
22021/*routdebugleave*/
22022 }
22023 CFUNCSMESS("Freeing memory.\n");
22024/*freemem*/
22025#ifdef F2PY_REPORT_ATEXIT
22026f2py_stop_clock();
22027#endif
22028 return capi_buildvalue;
22029}
22030/***************************** end of sgeev_lwork *****************************/
22031
22032/******************************** dgeev_lwork ********************************/
22033static char doc_f2py_rout__flapack_dgeev_lwork[] = "\
22034work,info = dgeev_lwork(n,[compute_vl,compute_vr])\n\nWrapper for ``dgeev_lwork``.\
22035\n\nParameters\n----------\n"
22036"n : input int\n"
22037"\nOther Parameters\n----------------\n"
22038"compute_vl : input int, optional\n Default: 1\n"
22039"compute_vr : input int, optional\n Default: 1\n"
22040"\nReturns\n-------\n"
22041"work : float\n"
22042"info : int";
22043/* extern void F_FUNC(dgeev ,DGEEV )(char*,char*,F_INT*,double*,F_INT*,double*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */
22044static PyObject *f2py_rout__flapack_dgeev_lwork(const PyObject *capi_self,
22045 PyObject *capi_args,
22046 PyObject *capi_keywds,
22047 void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
22048 PyObject * volatile capi_buildvalue = NULL((void*)0);
22049 volatile int f2py_success = 1;
22050/*decl*/
22051
22052 int compute_vl = 0;
22053 PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct);
22054 int compute_vr = 0;
22055 PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct);
22056 int n = 0;
22057 PyObject *n_capi = Py_None(&_Py_NoneStruct);
22058 double a = 0;
22059 double wr = 0;
22060 double wi = 0;
22061 double vl = 0;
22062 int ldvl = 0;
22063 double vr = 0;
22064 int ldvr = 0;
22065 double work = 0;
22066 int lwork = 0;
22067 int info = 0;
22068 static char *capi_kwlist[] = {"n","compute_vl","compute_vr",NULL((void*)0)};
22069
22070/*routdebugenter*/
22071#ifdef F2PY_REPORT_ATEXIT
22072f2py_start_clock();
22073#endif
22074 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
22075 "O|OO:_flapack.dgeev_lwork",\
22076 capi_kwlist,&n_capi,&compute_vl_capi,&compute_vr_capi))
22077 return NULL((void*)0);
22078/*frompyobj*/
22079 /* Processing variable compute_vl */
22080 if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else
22081 f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.dgeev_lwork() 1st keyword (compute_vl) can't be converted to int");
22082 if (f2py_success) {
22083 CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","dgeev_lwork:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgeev_lwork:compute_vl=%d", "(""compute_vl==1||compute_vl==0"
") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString
(_flapack_error,errstring); } else
{
22084 /* Processing variable compute_vr */
22085 if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else
22086 f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.dgeev_lwork() 2nd keyword (compute_vr) can't be converted to int");
22087 if (f2py_success) {
22088 CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","dgeev_lwork:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgeev_lwork:compute_vr=%d", "(""compute_vr==1||compute_vr==0"
") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString
(_flapack_error,errstring); } else
{
22089 /* Processing variable n */
22090 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgeev_lwork() 1st argument (n) can't be converted to int");
22091 if (f2py_success) {
22092 /* Processing variable a */
22093 /* Processing variable wr */
22094 /* Processing variable wi */
22095 /* Processing variable vl */
22096 /* Processing variable vr */
22097 /* Processing variable lwork */
22098 lwork = -1;
22099 /* Processing variable work */
22100 /* Processing variable info */
22101 /* Processing variable ldvl */
22102 ldvl = (compute_vl?n:1);
22103 /* Processing variable ldvr */
22104 ldvr = (compute_vr?n:1);
22105/*end of frompyobj*/
22106#ifdef F2PY_REPORT_ATEXIT
22107f2py_start_call_clock();
22108#endif
22109/*callfortranroutine*/
22110 {(*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,&a,&n,&wr,&wi,&vl,&ldvl,&vr,&ldvr,&work,&lwork,&info);} ;
22111 /*(*f2py_func)(&compute_vl,&compute_vr,&n,&a,&wr,&wi,&vl,&ldvl,&vr,&ldvr,&work,&lwork,&info);*/
22112if (PyErr_Occurred())
22113 f2py_success = 0;
22114#ifdef F2PY_REPORT_ATEXIT
22115f2py_stop_call_clock();
22116#endif
22117/*end of callfortranroutine*/
22118 if (f2py_success) {
22119/*pyobjfrom*/
22120/*end of pyobjfrom*/
22121 CFUNCSMESS("Building return value.\n");
22122 capi_buildvalue = Py_BuildValue("di",work,info);
22123/*closepyobjfrom*/
22124/*end of closepyobjfrom*/
22125 } /*if (f2py_success) after callfortranroutine*/
22126/*cleanupfrompyobj*/
22127 /* End of cleaning variable ldvr */
22128 /* End of cleaning variable ldvl */
22129 /* End of cleaning variable info */
22130 /* End of cleaning variable work */
22131 /* End of cleaning variable lwork */
22132 /* End of cleaning variable vr */
22133 /* End of cleaning variable vl */
22134 /* End of cleaning variable wi */
22135 /* End of cleaning variable wr */
22136 /* End of cleaning variable a */
22137 } /*if (f2py_success) of n*/
22138 /* End of cleaning variable n */
22139 } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/
22140 } /*if (f2py_success) of compute_vr*/
22141 /* End of cleaning variable compute_vr */
22142 } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/
22143 } /*if (f2py_success) of compute_vl*/
22144 /* End of cleaning variable compute_vl */
22145/*end of cleanupfrompyobj*/
22146 if (capi_buildvalue == NULL((void*)0)) {
22147/*routdebugfailure*/
22148 } else {
22149/*routdebugleave*/
22150 }
22151 CFUNCSMESS("Freeing memory.\n");
22152/*freemem*/
22153#ifdef F2PY_REPORT_ATEXIT
22154f2py_stop_clock();
22155#endif
22156 return capi_buildvalue;
22157}
22158/***************************** end of dgeev_lwork *****************************/
22159
22160/*********************************** cgeev ***********************************/
22161static char doc_f2py_rout__flapack_cgeev[] = "\
22162w,vl,vr,info = cgeev(a,[compute_vl,compute_vr,lwork,overwrite_a])\n\nWrapper for ``cgeev``.\
22163\n\nParameters\n----------\n"
22164"a : input rank-2 array('F') with bounds (n,n)\n"
22165"\nOther Parameters\n----------------\n"
22166"compute_vl : input int, optional\n Default: 1\n"
22167"compute_vr : input int, optional\n Default: 1\n"
22168"overwrite_a : input int, optional\n Default: 0\n"
22169"lwork : input int, optional\n Default: max(2*n,1)\n"
22170"\nReturns\n-------\n"
22171"w : rank-1 array('F') with bounds (n)\n"
22172"vl : rank-2 array('F') with bounds (ldvl,n)\n"
22173"vr : rank-2 array('F') with bounds (ldvr,n)\n"
22174"info : int";
22175/* extern void F_FUNC(cgeev,CGEEV)(char*,char*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */
22176static PyObject *f2py_rout__flapack_cgeev(const PyObject *capi_self,
22177 PyObject *capi_args,
22178 PyObject *capi_keywds,
22179 void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) {
22180 PyObject * volatile capi_buildvalue = NULL((void*)0);
22181 volatile int f2py_success = 1;
22182/*decl*/
22183
22184 int compute_vl = 0;
22185 PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct);
22186 int compute_vr = 0;
22187 PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct);
22188 int n = 0;
22189 complex_float *a = NULL((void*)0);
22190 npy_intp a_Dims[2] = {-1, -1};
22191 const int a_Rank = 2;
22192 PyArrayObject *capi_a_tmp = NULL((void*)0);
22193 int capi_a_intent = 0;
22194 int capi_overwrite_a = 0;
22195 PyObject *a_capi = Py_None(&_Py_NoneStruct);
22196 complex_float *w = NULL((void*)0);
22197 npy_intp w_Dims[1] = {-1};
22198 const int w_Rank = 1;
22199 PyArrayObject *capi_w_tmp = NULL((void*)0);
22200 int capi_w_intent = 0;
22201 complex_float *vl = NULL((void*)0);
22202 npy_intp vl_Dims[2] = {-1, -1};
22203 const int vl_Rank = 2;
22204 PyArrayObject *capi_vl_tmp = NULL((void*)0);
22205 int capi_vl_intent = 0;
22206 int ldvl = 0;
22207 complex_float *vr = NULL((void*)0);
22208 npy_intp vr_Dims[2] = {-1, -1};
22209 const int vr_Rank = 2;
22210 PyArrayObject *capi_vr_tmp = NULL((void*)0);
22211 int capi_vr_intent = 0;
22212 int ldvr = 0;
22213 complex_float *work = NULL((void*)0);
22214 npy_intp work_Dims[1] = {-1};
22215 const int work_Rank = 1;
22216 PyArrayObject *capi_work_tmp = NULL((void*)0);
22217 int capi_work_intent = 0;
22218 int lwork = 0;
22219 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
22220 float *rwork = NULL((void*)0);
22221 npy_intp rwork_Dims[1] = {-1};
22222 const int rwork_Rank = 1;
22223 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
22224 int capi_rwork_intent = 0;
22225 int info = 0;
22226 static char *capi_kwlist[] = {"a","compute_vl","compute_vr","lwork","overwrite_a",NULL((void*)0)};
22227
22228/*routdebugenter*/
22229#ifdef F2PY_REPORT_ATEXIT
22230f2py_start_clock();
22231#endif
22232 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
22233 "O|OOOi:_flapack.cgeev",\
22234 capi_kwlist,&a_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a))
22235 return NULL((void*)0);
22236/*frompyobj*/
22237 /* Processing variable compute_vl */
22238 if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else
22239 f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.cgeev() 1st keyword (compute_vl) can't be converted to int");
22240 if (f2py_success) {
22241 CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","cgeev:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgeev:compute_vl=%d", "(""compute_vl==1||compute_vl==0"
") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString
(_flapack_error,errstring); } else
{
22242 /* Processing variable compute_vr */
22243 if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else
22244 f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.cgeev() 2nd keyword (compute_vr) can't be converted to int");
22245 if (f2py_success) {
22246 CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","cgeev:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgeev:compute_vr=%d", "(""compute_vr==1||compute_vr==0"
") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString
(_flapack_error,errstring); } else
{
22247 /* Processing variable a */
22248 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
22249 ;
22250 capi_a_intent |= F2PY_INTENT_IN1;
22251 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
22252 if (capi_a_tmp == NULL((void*)0)) {
22253 if (!PyErr_Occurred())
22254 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgeev to C/Fortran array" );
22255 } else {
22256 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
22257
22258 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
22259 /* Processing variable info */
22260 /* Processing variable n */
22261 n = shape(a,0)a_Dims[0];
22262 /* Processing variable w */
22263 w_Dims[0]=n;
22264 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
22265 capi_w_tmp = array_from_pyobj(NPY_CFLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
22266 if (capi_w_tmp == NULL((void*)0)) {
22267 if (!PyErr_Occurred())
22268 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.cgeev to C/Fortran array" );
22269 } else {
22270 w = (complex_float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
22271
22272 /* Processing variable ldvl */
22273 ldvl = (compute_vl?n:1);
22274 /* Processing variable ldvr */
22275 ldvr = (compute_vr?n:1);
22276 /* Processing variable lwork */
22277 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else
22278 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgeev() 3rd keyword (lwork) can't be converted to int");
22279 if (f2py_success) {
22280 CHECKSCALAR(lwork>=2*n,"lwork>=2*n","3rd keyword lwork","cgeev:lwork=%d",lwork)if (!(lwork>=2*n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgeev:lwork=%d", "(""lwork>=2*n"") failed for ""3rd keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
22281 /* Processing variable work */
22282 work_Dims[0]=lwork;
22283 capi_work_intent |= F2PY_INTENT_HIDE8;
22284 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
22285 if (capi_work_tmp == NULL((void*)0)) {
22286 if (!PyErr_Occurred())
22287 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgeev to C/Fortran array" );
22288 } else {
22289 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
22290
22291 /* Processing variable rwork */
22292 rwork_Dims[0]=2 * n;
22293 capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
22294 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
22295 if (capi_rwork_tmp == NULL((void*)0)) {
22296 if (!PyErr_Occurred())
22297 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgeev to C/Fortran array" );
22298 } else {
22299 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
22300
22301 /* Processing variable vl */
22302 vl_Dims[0]=ldvl,vl_Dims[1]=n;
22303 capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
22304 capi_vl_tmp = array_from_pyobj(NPY_CFLOAT,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct));
22305 if (capi_vl_tmp == NULL((void*)0)) {
22306 if (!PyErr_Occurred())
22307 PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.cgeev to C/Fortran array" );
22308 } else {
22309 vl = (complex_float *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data));
22310
22311 /* Processing variable vr */
22312 vr_Dims[0]=ldvr,vr_Dims[1]=n;
22313 capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
22314 capi_vr_tmp = array_from_pyobj(NPY_CFLOAT,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct));
22315 if (capi_vr_tmp == NULL((void*)0)) {
22316 if (!PyErr_Occurred())
22317 PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.cgeev to C/Fortran array" );
22318 } else {
22319 vr = (complex_float *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data));
22320
22321/*end of frompyobj*/
22322#ifdef F2PY_REPORT_ATEXIT
22323f2py_start_call_clock();
22324#endif
22325/*callfortranroutine*/
22326 (*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,w,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info) ;
22327 /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,w,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info);*/
22328if (PyErr_Occurred())
22329 f2py_success = 0;
22330#ifdef F2PY_REPORT_ATEXIT
22331f2py_stop_call_clock();
22332#endif
22333/*end of callfortranroutine*/
22334 if (f2py_success) {
22335/*pyobjfrom*/
22336/*end of pyobjfrom*/
22337 CFUNCSMESS("Building return value.\n");
22338 capi_buildvalue = Py_BuildValue("NNNi",capi_w_tmp,capi_vl_tmp,capi_vr_tmp,info);
22339/*closepyobjfrom*/
22340/*end of closepyobjfrom*/
22341 } /*if (f2py_success) after callfortranroutine*/
22342/*cleanupfrompyobj*/
22343 } /*if (capi_vr_tmp == NULL) ... else of vr*/
22344 /* End of cleaning variable vr */
22345 } /*if (capi_vl_tmp == NULL) ... else of vl*/
22346 /* End of cleaning variable vl */
22347 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
22348 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
22349 /* End of cleaning variable rwork */
22350 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
22351 } /*if (capi_work_tmp == NULL) ... else of work*/
22352 /* End of cleaning variable work */
22353 } /*CHECKSCALAR(lwork>=2*n)*/
22354 } /*if (f2py_success) of lwork*/
22355 /* End of cleaning variable lwork */
22356 /* End of cleaning variable ldvr */
22357 /* End of cleaning variable ldvl */
22358 } /*if (capi_w_tmp == NULL) ... else of w*/
22359 /* End of cleaning variable w */
22360 /* End of cleaning variable n */
22361 /* End of cleaning variable info */
22362 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
22363 if((PyObject *)capi_a_tmp!=a_capi) {
22364 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
22365 } /*if (capi_a_tmp == NULL) ... else of a*/
22366 /* End of cleaning variable a */
22367 } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/
22368 } /*if (f2py_success) of compute_vr*/
22369 /* End of cleaning variable compute_vr */
22370 } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/
22371 } /*if (f2py_success) of compute_vl*/
22372 /* End of cleaning variable compute_vl */
22373/*end of cleanupfrompyobj*/
22374 if (capi_buildvalue == NULL((void*)0)) {
22375/*routdebugfailure*/
22376 } else {
22377/*routdebugleave*/
22378 }
22379 CFUNCSMESS("Freeing memory.\n");
22380/*freemem*/
22381#ifdef F2PY_REPORT_ATEXIT
22382f2py_stop_clock();
22383#endif
22384 return capi_buildvalue;
22385}
22386/******************************** end of cgeev ********************************/
22387
22388/*********************************** zgeev ***********************************/
22389static char doc_f2py_rout__flapack_zgeev[] = "\
22390w,vl,vr,info = zgeev(a,[compute_vl,compute_vr,lwork,overwrite_a])\n\nWrapper for ``zgeev``.\
22391\n\nParameters\n----------\n"
22392"a : input rank-2 array('D') with bounds (n,n)\n"
22393"\nOther Parameters\n----------------\n"
22394"compute_vl : input int, optional\n Default: 1\n"
22395"compute_vr : input int, optional\n Default: 1\n"
22396"overwrite_a : input int, optional\n Default: 0\n"
22397"lwork : input int, optional\n Default: max(2*n,1)\n"
22398"\nReturns\n-------\n"
22399"w : rank-1 array('D') with bounds (n)\n"
22400"vl : rank-2 array('D') with bounds (ldvl,n)\n"
22401"vr : rank-2 array('D') with bounds (ldvr,n)\n"
22402"info : int";
22403/* extern void F_FUNC(zgeev,ZGEEV)(char*,char*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */
22404static PyObject *f2py_rout__flapack_zgeev(const PyObject *capi_self,
22405 PyObject *capi_args,
22406 PyObject *capi_keywds,
22407 void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) {
22408 PyObject * volatile capi_buildvalue = NULL((void*)0);
22409 volatile int f2py_success = 1;
22410/*decl*/
22411
22412 int compute_vl = 0;
22413 PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct);
22414 int compute_vr = 0;
22415 PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct);
22416 int n = 0;
22417 complex_double *a = NULL((void*)0);
22418 npy_intp a_Dims[2] = {-1, -1};
22419 const int a_Rank = 2;
22420 PyArrayObject *capi_a_tmp = NULL((void*)0);
22421 int capi_a_intent = 0;
22422 int capi_overwrite_a = 0;
22423 PyObject *a_capi = Py_None(&_Py_NoneStruct);
22424 complex_double *w = NULL((void*)0);
22425 npy_intp w_Dims[1] = {-1};
22426 const int w_Rank = 1;
22427 PyArrayObject *capi_w_tmp = NULL((void*)0);
22428 int capi_w_intent = 0;
22429 complex_double *vl = NULL((void*)0);
22430 npy_intp vl_Dims[2] = {-1, -1};
22431 const int vl_Rank = 2;
22432 PyArrayObject *capi_vl_tmp = NULL((void*)0);
22433 int capi_vl_intent = 0;
22434 int ldvl = 0;
22435 complex_double *vr = NULL((void*)0);
22436 npy_intp vr_Dims[2] = {-1, -1};
22437 const int vr_Rank = 2;
22438 PyArrayObject *capi_vr_tmp = NULL((void*)0);
22439 int capi_vr_intent = 0;
22440 int ldvr = 0;
22441 complex_double *work = NULL((void*)0);
22442 npy_intp work_Dims[1] = {-1};
22443 const int work_Rank = 1;
22444 PyArrayObject *capi_work_tmp = NULL((void*)0);
22445 int capi_work_intent = 0;
22446 int lwork = 0;
22447 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
22448 double *rwork = NULL((void*)0);
22449 npy_intp rwork_Dims[1] = {-1};
22450 const int rwork_Rank = 1;
22451 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
22452 int capi_rwork_intent = 0;
22453 int info = 0;
22454 static char *capi_kwlist[] = {"a","compute_vl","compute_vr","lwork","overwrite_a",NULL((void*)0)};
22455
22456/*routdebugenter*/
22457#ifdef F2PY_REPORT_ATEXIT
22458f2py_start_clock();
22459#endif
22460 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
22461 "O|OOOi:_flapack.zgeev",\
22462 capi_kwlist,&a_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a))
22463 return NULL((void*)0);
22464/*frompyobj*/
22465 /* Processing variable compute_vl */
22466 if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else
22467 f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.zgeev() 1st keyword (compute_vl) can't be converted to int");
22468 if (f2py_success) {
22469 CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","zgeev:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgeev:compute_vl=%d", "(""compute_vl==1||compute_vl==0"
") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString
(_flapack_error,errstring); } else
{
22470 /* Processing variable compute_vr */
22471 if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else
22472 f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.zgeev() 2nd keyword (compute_vr) can't be converted to int");
22473 if (f2py_success) {
22474 CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","zgeev:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgeev:compute_vr=%d", "(""compute_vr==1||compute_vr==0"
") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString
(_flapack_error,errstring); } else
{
22475 /* Processing variable a */
22476 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
22477 ;
22478 capi_a_intent |= F2PY_INTENT_IN1;
22479 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
22480 if (capi_a_tmp == NULL((void*)0)) {
22481 if (!PyErr_Occurred())
22482 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgeev to C/Fortran array" );
22483 } else {
22484 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
22485
22486 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
22487 /* Processing variable info */
22488 /* Processing variable n */
22489 n = shape(a,0)a_Dims[0];
22490 /* Processing variable w */
22491 w_Dims[0]=n;
22492 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
22493 capi_w_tmp = array_from_pyobj(NPY_CDOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
22494 if (capi_w_tmp == NULL((void*)0)) {
22495 if (!PyErr_Occurred())
22496 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zgeev to C/Fortran array" );
22497 } else {
22498 w = (complex_double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
22499
22500 /* Processing variable ldvl */
22501 ldvl = (compute_vl?n:1);
22502 /* Processing variable ldvr */
22503 ldvr = (compute_vr?n:1);
22504 /* Processing variable lwork */
22505 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else
22506 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgeev() 3rd keyword (lwork) can't be converted to int");
22507 if (f2py_success) {
22508 CHECKSCALAR(lwork>=2*n,"lwork>=2*n","3rd keyword lwork","zgeev:lwork=%d",lwork)if (!(lwork>=2*n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgeev:lwork=%d", "(""lwork>=2*n"") failed for ""3rd keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
22509 /* Processing variable work */
22510 work_Dims[0]=lwork;
22511 capi_work_intent |= F2PY_INTENT_HIDE8;
22512 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
22513 if (capi_work_tmp == NULL((void*)0)) {
22514 if (!PyErr_Occurred())
22515 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgeev to C/Fortran array" );
22516 } else {
22517 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
22518
22519 /* Processing variable rwork */
22520 rwork_Dims[0]=2 * n;
22521 capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
22522 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
22523 if (capi_rwork_tmp == NULL((void*)0)) {
22524 if (!PyErr_Occurred())
22525 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgeev to C/Fortran array" );
22526 } else {
22527 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
22528
22529 /* Processing variable vl */
22530 vl_Dims[0]=ldvl,vl_Dims[1]=n;
22531 capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
22532 capi_vl_tmp = array_from_pyobj(NPY_CDOUBLE,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct));
22533 if (capi_vl_tmp == NULL((void*)0)) {
22534 if (!PyErr_Occurred())
22535 PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.zgeev to C/Fortran array" );
22536 } else {
22537 vl = (complex_double *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data));
22538
22539 /* Processing variable vr */
22540 vr_Dims[0]=ldvr,vr_Dims[1]=n;
22541 capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
22542 capi_vr_tmp = array_from_pyobj(NPY_CDOUBLE,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct));
22543 if (capi_vr_tmp == NULL((void*)0)) {
22544 if (!PyErr_Occurred())
22545 PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.zgeev to C/Fortran array" );
22546 } else {
22547 vr = (complex_double *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data));
22548
22549/*end of frompyobj*/
22550#ifdef F2PY_REPORT_ATEXIT
22551f2py_start_call_clock();
22552#endif
22553/*callfortranroutine*/
22554 (*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,w,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info) ;
22555 /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,w,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info);*/
22556if (PyErr_Occurred())
22557 f2py_success = 0;
22558#ifdef F2PY_REPORT_ATEXIT
22559f2py_stop_call_clock();
22560#endif
22561/*end of callfortranroutine*/
22562 if (f2py_success) {
22563/*pyobjfrom*/
22564/*end of pyobjfrom*/
22565 CFUNCSMESS("Building return value.\n");
22566 capi_buildvalue = Py_BuildValue("NNNi",capi_w_tmp,capi_vl_tmp,capi_vr_tmp,info);
22567/*closepyobjfrom*/
22568/*end of closepyobjfrom*/
22569 } /*if (f2py_success) after callfortranroutine*/
22570/*cleanupfrompyobj*/
22571 } /*if (capi_vr_tmp == NULL) ... else of vr*/
22572 /* End of cleaning variable vr */
22573 } /*if (capi_vl_tmp == NULL) ... else of vl*/
22574 /* End of cleaning variable vl */
22575 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
22576 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
22577 /* End of cleaning variable rwork */
22578 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
22579 } /*if (capi_work_tmp == NULL) ... else of work*/
22580 /* End of cleaning variable work */
22581 } /*CHECKSCALAR(lwork>=2*n)*/
22582 } /*if (f2py_success) of lwork*/
22583 /* End of cleaning variable lwork */
22584 /* End of cleaning variable ldvr */
22585 /* End of cleaning variable ldvl */
22586 } /*if (capi_w_tmp == NULL) ... else of w*/
22587 /* End of cleaning variable w */
22588 /* End of cleaning variable n */
22589 /* End of cleaning variable info */
22590 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
22591 if((PyObject *)capi_a_tmp!=a_capi) {
22592 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
22593 } /*if (capi_a_tmp == NULL) ... else of a*/
22594 /* End of cleaning variable a */
22595 } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/
22596 } /*if (f2py_success) of compute_vr*/
22597 /* End of cleaning variable compute_vr */
22598 } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/
22599 } /*if (f2py_success) of compute_vl*/
22600 /* End of cleaning variable compute_vl */
22601/*end of cleanupfrompyobj*/
22602 if (capi_buildvalue == NULL((void*)0)) {
22603/*routdebugfailure*/
22604 } else {
22605/*routdebugleave*/
22606 }
22607 CFUNCSMESS("Freeing memory.\n");
22608/*freemem*/
22609#ifdef F2PY_REPORT_ATEXIT
22610f2py_stop_clock();
22611#endif
22612 return capi_buildvalue;
22613}
22614/******************************** end of zgeev ********************************/
22615
22616/******************************** cgeev_lwork ********************************/
22617static char doc_f2py_rout__flapack_cgeev_lwork[] = "\
22618work,info = cgeev_lwork(n,[compute_vl,compute_vr])\n\nWrapper for ``cgeev_lwork``.\
22619\n\nParameters\n----------\n"
22620"n : input int\n"
22621"\nOther Parameters\n----------------\n"
22622"compute_vl : input int, optional\n Default: 1\n"
22623"compute_vr : input int, optional\n Default: 1\n"
22624"\nReturns\n-------\n"
22625"work : complex\n"
22626"info : int";
22627/* extern void F_FUNC(cgeev ,CGEEV )(char*,char*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */
22628static PyObject *f2py_rout__flapack_cgeev_lwork(const PyObject *capi_self,
22629 PyObject *capi_args,
22630 PyObject *capi_keywds,
22631 void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) {
22632 PyObject * volatile capi_buildvalue = NULL((void*)0);
22633 volatile int f2py_success = 1;
22634/*decl*/
22635
22636 int compute_vl = 0;
22637 PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct);
22638 int compute_vr = 0;
22639 PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct);
22640 int n = 0;
22641 PyObject *n_capi = Py_None(&_Py_NoneStruct);
22642 complex_float a;
22643 complex_float w;
22644 complex_float vl;
22645 int ldvl = 0;
22646 complex_float vr;
22647 int ldvr = 0;
22648 complex_float work;
22649 PyObject *work_capi = Py_None(&_Py_NoneStruct);
22650 int lwork = 0;
22651 float rwork = 0;
22652 int info = 0;
22653 static char *capi_kwlist[] = {"n","compute_vl","compute_vr",NULL((void*)0)};
22654
22655/*routdebugenter*/
22656#ifdef F2PY_REPORT_ATEXIT
22657f2py_start_clock();
22658#endif
22659 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
22660 "O|OO:_flapack.cgeev_lwork",\
22661 capi_kwlist,&n_capi,&compute_vl_capi,&compute_vr_capi))
22662 return NULL((void*)0);
22663/*frompyobj*/
22664 /* Processing variable compute_vl */
22665 if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else
22666 f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.cgeev_lwork() 1st keyword (compute_vl) can't be converted to int");
22667 if (f2py_success) {
22668 CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","cgeev_lwork:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgeev_lwork:compute_vl=%d", "(""compute_vl==1||compute_vl==0"
") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString
(_flapack_error,errstring); } else
{
22669 /* Processing variable compute_vr */
22670 if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else
22671 f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.cgeev_lwork() 2nd keyword (compute_vr) can't be converted to int");
22672 if (f2py_success) {
22673 CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","cgeev_lwork:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgeev_lwork:compute_vr=%d", "(""compute_vr==1||compute_vr==0"
") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString
(_flapack_error,errstring); } else
{
22674 /* Processing variable n */
22675 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgeev_lwork() 1st argument (n) can't be converted to int");
22676 if (f2py_success) {
22677 /* Processing variable a */
22678 /* Processing variable w */
22679 /* Processing variable vl */
22680 /* Processing variable vr */
22681 /* Processing variable lwork */
22682 lwork = -1;
22683 /* Processing variable work */
22684 /* Processing variable rwork */
22685 /* Processing variable info */
22686 /* Processing variable ldvl */
22687 ldvl = (compute_vl?n:1);
22688 /* Processing variable ldvr */
22689 ldvr = (compute_vr?n:1);
22690/*end of frompyobj*/
22691#ifdef F2PY_REPORT_ATEXIT
22692f2py_start_call_clock();
22693#endif
22694/*callfortranroutine*/
22695 (*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,&a,&n,&w,&vl,&ldvl,&vr,&ldvr,&work,&lwork,&rwork,&info) ;
22696 /*(*f2py_func)(&compute_vl,&compute_vr,&n,&a,&w,&vl,&ldvl,&vr,&ldvr,&work,&lwork,&rwork,&info);*/
22697if (PyErr_Occurred())
22698 f2py_success = 0;
22699#ifdef F2PY_REPORT_ATEXIT
22700f2py_stop_call_clock();
22701#endif
22702/*end of callfortranroutine*/
22703 if (f2py_success) {
22704/*pyobjfrom*/
22705 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
22706/*end of pyobjfrom*/
22707 CFUNCSMESS("Building return value.\n");
22708 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
22709/*closepyobjfrom*/
22710/*end of closepyobjfrom*/
22711 } /*if (f2py_success) after callfortranroutine*/
22712/*cleanupfrompyobj*/
22713 /* End of cleaning variable ldvr */
22714 /* End of cleaning variable ldvl */
22715 /* End of cleaning variable info */
22716 /* End of cleaning variable rwork */
22717 /* End of cleaning variable work */
22718 /* End of cleaning variable lwork */
22719 /* End of cleaning variable vr */
22720 /* End of cleaning variable vl */
22721 /* End of cleaning variable w */
22722 /* End of cleaning variable a */
22723 } /*if (f2py_success) of n*/
22724 /* End of cleaning variable n */
22725 } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/
22726 } /*if (f2py_success) of compute_vr*/
22727 /* End of cleaning variable compute_vr */
22728 } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/
22729 } /*if (f2py_success) of compute_vl*/
22730 /* End of cleaning variable compute_vl */
22731/*end of cleanupfrompyobj*/
22732 if (capi_buildvalue == NULL((void*)0)) {
22733/*routdebugfailure*/
22734 } else {
22735/*routdebugleave*/
22736 }
22737 CFUNCSMESS("Freeing memory.\n");
22738/*freemem*/
22739#ifdef F2PY_REPORT_ATEXIT
22740f2py_stop_clock();
22741#endif
22742 return capi_buildvalue;
22743}
22744/***************************** end of cgeev_lwork *****************************/
22745
22746/******************************** zgeev_lwork ********************************/
22747static char doc_f2py_rout__flapack_zgeev_lwork[] = "\
22748work,info = zgeev_lwork(n,[compute_vl,compute_vr])\n\nWrapper for ``zgeev_lwork``.\
22749\n\nParameters\n----------\n"
22750"n : input int\n"
22751"\nOther Parameters\n----------------\n"
22752"compute_vl : input int, optional\n Default: 1\n"
22753"compute_vr : input int, optional\n Default: 1\n"
22754"\nReturns\n-------\n"
22755"work : complex\n"
22756"info : int";
22757/* extern void F_FUNC(zgeev ,ZGEEV )(char*,char*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */
22758static PyObject *f2py_rout__flapack_zgeev_lwork(const PyObject *capi_self,
22759 PyObject *capi_args,
22760 PyObject *capi_keywds,
22761 void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) {
22762 PyObject * volatile capi_buildvalue = NULL((void*)0);
22763 volatile int f2py_success = 1;
22764/*decl*/
22765
22766 int compute_vl = 0;
22767 PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct);
22768 int compute_vr = 0;
22769 PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct);
22770 int n = 0;
22771 PyObject *n_capi = Py_None(&_Py_NoneStruct);
22772 complex_double a;
22773 complex_double w;
22774 complex_double vl;
22775 int ldvl = 0;
22776 complex_double vr;
22777 int ldvr = 0;
22778 complex_double work;
22779 PyObject *work_capi = Py_None(&_Py_NoneStruct);
22780 int lwork = 0;
22781 double rwork = 0;
22782 int info = 0;
22783 static char *capi_kwlist[] = {"n","compute_vl","compute_vr",NULL((void*)0)};
22784
22785/*routdebugenter*/
22786#ifdef F2PY_REPORT_ATEXIT
22787f2py_start_clock();
22788#endif
22789 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
22790 "O|OO:_flapack.zgeev_lwork",\
22791 capi_kwlist,&n_capi,&compute_vl_capi,&compute_vr_capi))
22792 return NULL((void*)0);
22793/*frompyobj*/
22794 /* Processing variable compute_vl */
22795 if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else
22796 f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.zgeev_lwork() 1st keyword (compute_vl) can't be converted to int");
22797 if (f2py_success) {
22798 CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","zgeev_lwork:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgeev_lwork:compute_vl=%d", "(""compute_vl==1||compute_vl==0"
") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString
(_flapack_error,errstring); } else
{
22799 /* Processing variable compute_vr */
22800 if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else
22801 f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.zgeev_lwork() 2nd keyword (compute_vr) can't be converted to int");
22802 if (f2py_success) {
22803 CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","zgeev_lwork:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgeev_lwork:compute_vr=%d", "(""compute_vr==1||compute_vr==0"
") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString
(_flapack_error,errstring); } else
{
22804 /* Processing variable n */
22805 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgeev_lwork() 1st argument (n) can't be converted to int");
22806 if (f2py_success) {
22807 /* Processing variable a */
22808 /* Processing variable w */
22809 /* Processing variable vl */
22810 /* Processing variable vr */
22811 /* Processing variable lwork */
22812 lwork = -1;
22813 /* Processing variable work */
22814 /* Processing variable rwork */
22815 /* Processing variable info */
22816 /* Processing variable ldvl */
22817 ldvl = (compute_vl?n:1);
22818 /* Processing variable ldvr */
22819 ldvr = (compute_vr?n:1);
22820/*end of frompyobj*/
22821#ifdef F2PY_REPORT_ATEXIT
22822f2py_start_call_clock();
22823#endif
22824/*callfortranroutine*/
22825 (*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,&a,&n,&w,&vl,&ldvl,&vr,&ldvr,&work,&lwork,&rwork,&info) ;
22826 /*(*f2py_func)(&compute_vl,&compute_vr,&n,&a,&w,&vl,&ldvl,&vr,&ldvr,&work,&lwork,&rwork,&info);*/
22827if (PyErr_Occurred())
22828 f2py_success = 0;
22829#ifdef F2PY_REPORT_ATEXIT
22830f2py_stop_call_clock();
22831#endif
22832/*end of callfortranroutine*/
22833 if (f2py_success) {
22834/*pyobjfrom*/
22835 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
22836/*end of pyobjfrom*/
22837 CFUNCSMESS("Building return value.\n");
22838 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
22839/*closepyobjfrom*/
22840/*end of closepyobjfrom*/
22841 } /*if (f2py_success) after callfortranroutine*/
22842/*cleanupfrompyobj*/
22843 /* End of cleaning variable ldvr */
22844 /* End of cleaning variable ldvl */
22845 /* End of cleaning variable info */
22846 /* End of cleaning variable rwork */
22847 /* End of cleaning variable work */
22848 /* End of cleaning variable lwork */
22849 /* End of cleaning variable vr */
22850 /* End of cleaning variable vl */
22851 /* End of cleaning variable w */
22852 /* End of cleaning variable a */
22853 } /*if (f2py_success) of n*/
22854 /* End of cleaning variable n */
22855 } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/
22856 } /*if (f2py_success) of compute_vr*/
22857 /* End of cleaning variable compute_vr */
22858 } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/
22859 } /*if (f2py_success) of compute_vl*/
22860 /* End of cleaning variable compute_vl */
22861/*end of cleanupfrompyobj*/
22862 if (capi_buildvalue == NULL((void*)0)) {
22863/*routdebugfailure*/
22864 } else {
22865/*routdebugleave*/
22866 }
22867 CFUNCSMESS("Freeing memory.\n");
22868/*freemem*/
22869#ifdef F2PY_REPORT_ATEXIT
22870f2py_stop_clock();
22871#endif
22872 return capi_buildvalue;
22873}
22874/***************************** end of zgeev_lwork *****************************/
22875
22876/*********************************** sgegv ***********************************/
22877static char doc_f2py_rout__flapack_sgegv[] = "\
22878alphar,alphai,beta,vl,vr,info = sgegv(a,b,[compute_vl,compute_vr,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``sgegv``.\
22879\n\nParameters\n----------\n"
22880"a : input rank-2 array('f') with bounds (n,n)\n"
22881"b : input rank-2 array('f') with bounds (n,n)\n"
22882"\nOther Parameters\n----------------\n"
22883"compute_vl : input int, optional\n Default: 1\n"
22884"compute_vr : input int, optional\n Default: 1\n"
22885"overwrite_a : input int, optional\n Default: 0\n"
22886"overwrite_b : input int, optional\n Default: 0\n"
22887"lwork : input int, optional\n Default: max(8*n,1)\n"
22888"\nReturns\n-------\n"
22889"alphar : rank-1 array('f') with bounds (n)\n"
22890"alphai : rank-1 array('f') with bounds (n)\n"
22891"beta : rank-1 array('f') with bounds (n)\n"
22892"vl : rank-2 array('f') with bounds (ldvl,n)\n"
22893"vr : rank-2 array('f') with bounds (ldvr,n)\n"
22894"info : int";
22895/* extern void F_FUNC(sgegv,SGEGV)(char*,char*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */
22896static PyObject *f2py_rout__flapack_sgegv(const PyObject *capi_self,
22897 PyObject *capi_args,
22898 PyObject *capi_keywds,
22899 void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
22900 PyObject * volatile capi_buildvalue = NULL((void*)0);
22901 volatile int f2py_success = 1;
22902/*decl*/
22903
22904 int compute_vl = 0;
22905 PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct);
22906 int compute_vr = 0;
22907 PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct);
22908 int n = 0;
22909 float *a = NULL((void*)0);
22910 npy_intp a_Dims[2] = {-1, -1};
22911 const int a_Rank = 2;
22912 PyArrayObject *capi_a_tmp = NULL((void*)0);
22913 int capi_a_intent = 0;
22914 int capi_overwrite_a = 0;
22915 PyObject *a_capi = Py_None(&_Py_NoneStruct);
22916 float *b = NULL((void*)0);
22917 npy_intp b_Dims[2] = {-1, -1};
22918 const int b_Rank = 2;
22919 PyArrayObject *capi_b_tmp = NULL((void*)0);
22920 int capi_b_intent = 0;
22921 int capi_overwrite_b = 0;
22922 PyObject *b_capi = Py_None(&_Py_NoneStruct);
22923 float *alphar = NULL((void*)0);
22924 npy_intp alphar_Dims[1] = {-1};
22925 const int alphar_Rank = 1;
22926 PyArrayObject *capi_alphar_tmp = NULL((void*)0);
22927 int capi_alphar_intent = 0;
22928 float *alphai = NULL((void*)0);
22929 npy_intp alphai_Dims[1] = {-1};
22930 const int alphai_Rank = 1;
22931 PyArrayObject *capi_alphai_tmp = NULL((void*)0);
22932 int capi_alphai_intent = 0;
22933 float *beta = NULL((void*)0);
22934 npy_intp beta_Dims[1] = {-1};
22935 const int beta_Rank = 1;
22936 PyArrayObject *capi_beta_tmp = NULL((void*)0);
22937 int capi_beta_intent = 0;
22938 float *vl = NULL((void*)0);
22939 npy_intp vl_Dims[2] = {-1, -1};
22940 const int vl_Rank = 2;
22941 PyArrayObject *capi_vl_tmp = NULL((void*)0);
22942 int capi_vl_intent = 0;
22943 int ldvl = 0;
22944 float *vr = NULL((void*)0);
22945 npy_intp vr_Dims[2] = {-1, -1};
22946 const int vr_Rank = 2;
22947 PyArrayObject *capi_vr_tmp = NULL((void*)0);
22948 int capi_vr_intent = 0;
22949 int ldvr = 0;
22950 float *work = NULL((void*)0);
22951 npy_intp work_Dims[1] = {-1};
22952 const int work_Rank = 1;
22953 PyArrayObject *capi_work_tmp = NULL((void*)0);
22954 int capi_work_intent = 0;
22955 int lwork = 0;
22956 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
22957 int info = 0;
22958 static char *capi_kwlist[] = {"a","b","compute_vl","compute_vr","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
22959
22960/*routdebugenter*/
22961#ifdef F2PY_REPORT_ATEXIT
22962f2py_start_clock();
22963#endif
22964 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
22965 "OO|OOOii:_flapack.sgegv",\
22966 capi_kwlist,&a_capi,&b_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
22967 return NULL((void*)0);
22968/*frompyobj*/
22969 /* Processing variable compute_vl */
22970 if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else
22971 f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.sgegv() 1st keyword (compute_vl) can't be converted to int");
22972 if (f2py_success) {
22973 CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","sgegv:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgegv:compute_vl=%d", "(""compute_vl==1||compute_vl==0"
") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString
(_flapack_error,errstring); } else
{
22974 /* Processing variable compute_vr */
22975 if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else
22976 f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.sgegv() 2nd keyword (compute_vr) can't be converted to int");
22977 if (f2py_success) {
22978 CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","sgegv:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgegv:compute_vr=%d", "(""compute_vr==1||compute_vr==0"
") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString
(_flapack_error,errstring); } else
{
22979 /* Processing variable a */
22980 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
22981 ;
22982 capi_a_intent |= F2PY_INTENT_IN1;
22983 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
22984 if (capi_a_tmp == NULL((void*)0)) {
22985 if (!PyErr_Occurred())
22986 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgegv to C/Fortran array" );
22987 } else {
22988 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
22989
22990 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
22991 /* Processing variable info */
22992 /* Processing variable n */
22993 n = shape(a,0)a_Dims[0];
22994 /* Processing variable b */
22995 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
22996 b_Dims[0]=n,b_Dims[1]=n;
22997 capi_b_intent |= F2PY_INTENT_IN1;
22998 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
22999 if (capi_b_tmp == NULL((void*)0)) {
23000 if (!PyErr_Occurred())
23001 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sgegv to C/Fortran array" );
23002 } else {
23003 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
23004
23005 CHECKARRAY(shape(b,0)==shape(b,1) && shape(b,0)==n,"shape(b,0)==shape(b,1) && shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==b_Dims[1] && b_Dims[0]==n)) { PyErr_SetString
(_flapack_error,"(""shape(b,0)==shape(b,1) && shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
23006 /* Processing variable alphar */
23007 alphar_Dims[0]=n;
23008 capi_alphar_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
23009 capi_alphar_tmp = array_from_pyobj(NPY_FLOAT,alphar_Dims,alphar_Rank,capi_alphar_intent,Py_None(&_Py_NoneStruct));
23010 if (capi_alphar_tmp == NULL((void*)0)) {
23011 if (!PyErr_Occurred())
23012 PyErr_SetString(_flapack_error,"failed in converting hidden `alphar' of _flapack.sgegv to C/Fortran array" );
23013 } else {
23014 alphar = (float *)(PyArray_DATA(capi_alphar_tmp)((void *)((PyArrayObject_fields *)(capi_alphar_tmp))->data
)
);
23015
23016 /* Processing variable alphai */
23017 alphai_Dims[0]=n;
23018 capi_alphai_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
23019 capi_alphai_tmp = array_from_pyobj(NPY_FLOAT,alphai_Dims,alphai_Rank,capi_alphai_intent,Py_None(&_Py_NoneStruct));
23020 if (capi_alphai_tmp == NULL((void*)0)) {
23021 if (!PyErr_Occurred())
23022 PyErr_SetString(_flapack_error,"failed in converting hidden `alphai' of _flapack.sgegv to C/Fortran array" );
23023 } else {
23024 alphai = (float *)(PyArray_DATA(capi_alphai_tmp)((void *)((PyArrayObject_fields *)(capi_alphai_tmp))->data
)
);
23025
23026 /* Processing variable beta */
23027 beta_Dims[0]=n;
23028 capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
23029 capi_beta_tmp = array_from_pyobj(NPY_FLOAT,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct));
23030 if (capi_beta_tmp == NULL((void*)0)) {
23031 if (!PyErr_Occurred())
23032 PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.sgegv to C/Fortran array" );
23033 } else {
23034 beta = (float *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data));
23035
23036 /* Processing variable ldvl */
23037 ldvl = (compute_vl?n:1);
23038 /* Processing variable ldvr */
23039 ldvr = (compute_vr?n:1);
23040 /* Processing variable lwork */
23041 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(8*n,1)((8*n > 1) ? (8*n) : (1)); else
23042 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgegv() 3rd keyword (lwork) can't be converted to int");
23043 if (f2py_success) {
23044 CHECKSCALAR(lwork>=8*n,"lwork>=8*n","3rd keyword lwork","sgegv:lwork=%d",lwork)if (!(lwork>=8*n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgegv:lwork=%d", "(""lwork>=8*n"") failed for ""3rd keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
23045 /* Processing variable work */
23046 work_Dims[0]=lwork;
23047 capi_work_intent |= F2PY_INTENT_HIDE8;
23048 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
23049 if (capi_work_tmp == NULL((void*)0)) {
23050 if (!PyErr_Occurred())
23051 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgegv to C/Fortran array" );
23052 } else {
23053 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
23054
23055 /* Processing variable vl */
23056 vl_Dims[0]=ldvl,vl_Dims[1]=n;
23057 capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
23058 capi_vl_tmp = array_from_pyobj(NPY_FLOAT,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct));
23059 if (capi_vl_tmp == NULL((void*)0)) {
23060 if (!PyErr_Occurred())
23061 PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.sgegv to C/Fortran array" );
23062 } else {
23063 vl = (float *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data));
23064
23065 /* Processing variable vr */
23066 vr_Dims[0]=ldvr,vr_Dims[1]=n;
23067 capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
23068 capi_vr_tmp = array_from_pyobj(NPY_FLOAT,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct));
23069 if (capi_vr_tmp == NULL((void*)0)) {
23070 if (!PyErr_Occurred())
23071 PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.sgegv to C/Fortran array" );
23072 } else {
23073 vr = (float *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data));
23074
23075/*end of frompyobj*/
23076#ifdef F2PY_REPORT_ATEXIT
23077f2py_start_call_clock();
23078#endif
23079/*callfortranroutine*/
23080 (*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,b,&n,alphar,alphai,beta,vl,&ldvl,vr,&ldvr,work,&lwork,&info) ;
23081 /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,b,alphar,alphai,beta,vl,&ldvl,vr,&ldvr,work,&lwork,&info);*/
23082if (PyErr_Occurred())
23083 f2py_success = 0;
23084#ifdef F2PY_REPORT_ATEXIT
23085f2py_stop_call_clock();
23086#endif
23087/*end of callfortranroutine*/
23088 if (f2py_success) {
23089/*pyobjfrom*/
23090/*end of pyobjfrom*/
23091 CFUNCSMESS("Building return value.\n");
23092 capi_buildvalue = Py_BuildValue("NNNNNi",capi_alphar_tmp,capi_alphai_tmp,capi_beta_tmp,capi_vl_tmp,capi_vr_tmp,info);
23093/*closepyobjfrom*/
23094/*end of closepyobjfrom*/
23095 } /*if (f2py_success) after callfortranroutine*/
23096/*cleanupfrompyobj*/
23097 } /*if (capi_vr_tmp == NULL) ... else of vr*/
23098 /* End of cleaning variable vr */
23099 } /*if (capi_vl_tmp == NULL) ... else of vl*/
23100 /* End of cleaning variable vl */
23101 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
23102 } /*if (capi_work_tmp == NULL) ... else of work*/
23103 /* End of cleaning variable work */
23104 } /*CHECKSCALAR(lwork>=8*n)*/
23105 } /*if (f2py_success) of lwork*/
23106 /* End of cleaning variable lwork */
23107 /* End of cleaning variable ldvr */
23108 /* End of cleaning variable ldvl */
23109 } /*if (capi_beta_tmp == NULL) ... else of beta*/
23110 /* End of cleaning variable beta */
23111 } /*if (capi_alphai_tmp == NULL) ... else of alphai*/
23112 /* End of cleaning variable alphai */
23113 } /*if (capi_alphar_tmp == NULL) ... else of alphar*/
23114 /* End of cleaning variable alphar */
23115 } /*CHECKARRAY(shape(b,0)==shape(b,1) && shape(b,0)==n)*/
23116 if((PyObject *)capi_b_tmp!=b_capi) {
23117 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
23118 } /*if (capi_b_tmp == NULL) ... else of b*/
23119 /* End of cleaning variable b */
23120 /* End of cleaning variable n */
23121 /* End of cleaning variable info */
23122 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
23123 if((PyObject *)capi_a_tmp!=a_capi) {
23124 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
23125 } /*if (capi_a_tmp == NULL) ... else of a*/
23126 /* End of cleaning variable a */
23127 } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/
23128 } /*if (f2py_success) of compute_vr*/
23129 /* End of cleaning variable compute_vr */
23130 } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/
23131 } /*if (f2py_success) of compute_vl*/
23132 /* End of cleaning variable compute_vl */
23133/*end of cleanupfrompyobj*/
23134 if (capi_buildvalue == NULL((void*)0)) {
23135/*routdebugfailure*/
23136 } else {
23137/*routdebugleave*/
23138 }
23139 CFUNCSMESS("Freeing memory.\n");
23140/*freemem*/
23141#ifdef F2PY_REPORT_ATEXIT
23142f2py_stop_clock();
23143#endif
23144 return capi_buildvalue;
23145}
23146/******************************** end of sgegv ********************************/
23147
23148/*********************************** dgegv ***********************************/
23149static char doc_f2py_rout__flapack_dgegv[] = "\
23150alphar,alphai,beta,vl,vr,info = dgegv(a,b,[compute_vl,compute_vr,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``dgegv``.\
23151\n\nParameters\n----------\n"
23152"a : input rank-2 array('d') with bounds (n,n)\n"
23153"b : input rank-2 array('d') with bounds (n,n)\n"
23154"\nOther Parameters\n----------------\n"
23155"compute_vl : input int, optional\n Default: 1\n"
23156"compute_vr : input int, optional\n Default: 1\n"
23157"overwrite_a : input int, optional\n Default: 0\n"
23158"overwrite_b : input int, optional\n Default: 0\n"
23159"lwork : input int, optional\n Default: max(8*n,1)\n"
23160"\nReturns\n-------\n"
23161"alphar : rank-1 array('d') with bounds (n)\n"
23162"alphai : rank-1 array('d') with bounds (n)\n"
23163"beta : rank-1 array('d') with bounds (n)\n"
23164"vl : rank-2 array('d') with bounds (ldvl,n)\n"
23165"vr : rank-2 array('d') with bounds (ldvr,n)\n"
23166"info : int";
23167/* extern void F_FUNC(dgegv,DGEGV)(char*,char*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */
23168static PyObject *f2py_rout__flapack_dgegv(const PyObject *capi_self,
23169 PyObject *capi_args,
23170 PyObject *capi_keywds,
23171 void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
23172 PyObject * volatile capi_buildvalue = NULL((void*)0);
23173 volatile int f2py_success = 1;
23174/*decl*/
23175
23176 int compute_vl = 0;
23177 PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct);
23178 int compute_vr = 0;
23179 PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct);
23180 int n = 0;
23181 double *a = NULL((void*)0);
23182 npy_intp a_Dims[2] = {-1, -1};
23183 const int a_Rank = 2;
23184 PyArrayObject *capi_a_tmp = NULL((void*)0);
23185 int capi_a_intent = 0;
23186 int capi_overwrite_a = 0;
23187 PyObject *a_capi = Py_None(&_Py_NoneStruct);
23188 double *b = NULL((void*)0);
23189 npy_intp b_Dims[2] = {-1, -1};
23190 const int b_Rank = 2;
23191 PyArrayObject *capi_b_tmp = NULL((void*)0);
23192 int capi_b_intent = 0;
23193 int capi_overwrite_b = 0;
23194 PyObject *b_capi = Py_None(&_Py_NoneStruct);
23195 double *alphar = NULL((void*)0);
23196 npy_intp alphar_Dims[1] = {-1};
23197 const int alphar_Rank = 1;
23198 PyArrayObject *capi_alphar_tmp = NULL((void*)0);
23199 int capi_alphar_intent = 0;
23200 double *alphai = NULL((void*)0);
23201 npy_intp alphai_Dims[1] = {-1};
23202 const int alphai_Rank = 1;
23203 PyArrayObject *capi_alphai_tmp = NULL((void*)0);
23204 int capi_alphai_intent = 0;
23205 double *beta = NULL((void*)0);
23206 npy_intp beta_Dims[1] = {-1};
23207 const int beta_Rank = 1;
23208 PyArrayObject *capi_beta_tmp = NULL((void*)0);
23209 int capi_beta_intent = 0;
23210 double *vl = NULL((void*)0);
23211 npy_intp vl_Dims[2] = {-1, -1};
23212 const int vl_Rank = 2;
23213 PyArrayObject *capi_vl_tmp = NULL((void*)0);
23214 int capi_vl_intent = 0;
23215 int ldvl = 0;
23216 double *vr = NULL((void*)0);
23217 npy_intp vr_Dims[2] = {-1, -1};
23218 const int vr_Rank = 2;
23219 PyArrayObject *capi_vr_tmp = NULL((void*)0);
23220 int capi_vr_intent = 0;
23221 int ldvr = 0;
23222 double *work = NULL((void*)0);
23223 npy_intp work_Dims[1] = {-1};
23224 const int work_Rank = 1;
23225 PyArrayObject *capi_work_tmp = NULL((void*)0);
23226 int capi_work_intent = 0;
23227 int lwork = 0;
23228 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
23229 int info = 0;
23230 static char *capi_kwlist[] = {"a","b","compute_vl","compute_vr","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
23231
23232/*routdebugenter*/
23233#ifdef F2PY_REPORT_ATEXIT
23234f2py_start_clock();
23235#endif
23236 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
23237 "OO|OOOii:_flapack.dgegv",\
23238 capi_kwlist,&a_capi,&b_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
23239 return NULL((void*)0);
23240/*frompyobj*/
23241 /* Processing variable compute_vl */
23242 if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else
23243 f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.dgegv() 1st keyword (compute_vl) can't be converted to int");
23244 if (f2py_success) {
23245 CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","dgegv:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgegv:compute_vl=%d", "(""compute_vl==1||compute_vl==0"
") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString
(_flapack_error,errstring); } else
{
23246 /* Processing variable compute_vr */
23247 if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else
23248 f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.dgegv() 2nd keyword (compute_vr) can't be converted to int");
23249 if (f2py_success) {
23250 CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","dgegv:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgegv:compute_vr=%d", "(""compute_vr==1||compute_vr==0"
") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString
(_flapack_error,errstring); } else
{
23251 /* Processing variable a */
23252 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
23253 ;
23254 capi_a_intent |= F2PY_INTENT_IN1;
23255 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
23256 if (capi_a_tmp == NULL((void*)0)) {
23257 if (!PyErr_Occurred())
23258 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgegv to C/Fortran array" );
23259 } else {
23260 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
23261
23262 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
23263 /* Processing variable info */
23264 /* Processing variable n */
23265 n = shape(a,0)a_Dims[0];
23266 /* Processing variable b */
23267 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
23268 b_Dims[0]=n,b_Dims[1]=n;
23269 capi_b_intent |= F2PY_INTENT_IN1;
23270 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
23271 if (capi_b_tmp == NULL((void*)0)) {
23272 if (!PyErr_Occurred())
23273 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dgegv to C/Fortran array" );
23274 } else {
23275 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
23276
23277 CHECKARRAY(shape(b,0)==shape(b,1) && shape(b,0)==n,"shape(b,0)==shape(b,1) && shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==b_Dims[1] && b_Dims[0]==n)) { PyErr_SetString
(_flapack_error,"(""shape(b,0)==shape(b,1) && shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
23278 /* Processing variable alphar */
23279 alphar_Dims[0]=n;
23280 capi_alphar_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
23281 capi_alphar_tmp = array_from_pyobj(NPY_DOUBLE,alphar_Dims,alphar_Rank,capi_alphar_intent,Py_None(&_Py_NoneStruct));
23282 if (capi_alphar_tmp == NULL((void*)0)) {
23283 if (!PyErr_Occurred())
23284 PyErr_SetString(_flapack_error,"failed in converting hidden `alphar' of _flapack.dgegv to C/Fortran array" );
23285 } else {
23286 alphar = (double *)(PyArray_DATA(capi_alphar_tmp)((void *)((PyArrayObject_fields *)(capi_alphar_tmp))->data
)
);
23287
23288 /* Processing variable alphai */
23289 alphai_Dims[0]=n;
23290 capi_alphai_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
23291 capi_alphai_tmp = array_from_pyobj(NPY_DOUBLE,alphai_Dims,alphai_Rank,capi_alphai_intent,Py_None(&_Py_NoneStruct));
23292 if (capi_alphai_tmp == NULL((void*)0)) {
23293 if (!PyErr_Occurred())
23294 PyErr_SetString(_flapack_error,"failed in converting hidden `alphai' of _flapack.dgegv to C/Fortran array" );
23295 } else {
23296 alphai = (double *)(PyArray_DATA(capi_alphai_tmp)((void *)((PyArrayObject_fields *)(capi_alphai_tmp))->data
)
);
23297
23298 /* Processing variable beta */
23299 beta_Dims[0]=n;
23300 capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
23301 capi_beta_tmp = array_from_pyobj(NPY_DOUBLE,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct));
23302 if (capi_beta_tmp == NULL((void*)0)) {
23303 if (!PyErr_Occurred())
23304 PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.dgegv to C/Fortran array" );
23305 } else {
23306 beta = (double *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data));
23307
23308 /* Processing variable ldvl */
23309 ldvl = (compute_vl?n:1);
23310 /* Processing variable ldvr */
23311 ldvr = (compute_vr?n:1);
23312 /* Processing variable lwork */
23313 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(8*n,1)((8*n > 1) ? (8*n) : (1)); else
23314 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgegv() 3rd keyword (lwork) can't be converted to int");
23315 if (f2py_success) {
23316 CHECKSCALAR(lwork>=8*n,"lwork>=8*n","3rd keyword lwork","dgegv:lwork=%d",lwork)if (!(lwork>=8*n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgegv:lwork=%d", "(""lwork>=8*n"") failed for ""3rd keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
23317 /* Processing variable work */
23318 work_Dims[0]=lwork;
23319 capi_work_intent |= F2PY_INTENT_HIDE8;
23320 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
23321 if (capi_work_tmp == NULL((void*)0)) {
23322 if (!PyErr_Occurred())
23323 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgegv to C/Fortran array" );
23324 } else {
23325 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
23326
23327 /* Processing variable vl */
23328 vl_Dims[0]=ldvl,vl_Dims[1]=n;
23329 capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
23330 capi_vl_tmp = array_from_pyobj(NPY_DOUBLE,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct));
23331 if (capi_vl_tmp == NULL((void*)0)) {
23332 if (!PyErr_Occurred())
23333 PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.dgegv to C/Fortran array" );
23334 } else {
23335 vl = (double *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data));
23336
23337 /* Processing variable vr */
23338 vr_Dims[0]=ldvr,vr_Dims[1]=n;
23339 capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
23340 capi_vr_tmp = array_from_pyobj(NPY_DOUBLE,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct));
23341 if (capi_vr_tmp == NULL((void*)0)) {
23342 if (!PyErr_Occurred())
23343 PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.dgegv to C/Fortran array" );
23344 } else {
23345 vr = (double *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data));
23346
23347/*end of frompyobj*/
23348#ifdef F2PY_REPORT_ATEXIT
23349f2py_start_call_clock();
23350#endif
23351/*callfortranroutine*/
23352 (*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,b,&n,alphar,alphai,beta,vl,&ldvl,vr,&ldvr,work,&lwork,&info) ;
23353 /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,b,alphar,alphai,beta,vl,&ldvl,vr,&ldvr,work,&lwork,&info);*/
23354if (PyErr_Occurred())
23355 f2py_success = 0;
23356#ifdef F2PY_REPORT_ATEXIT
23357f2py_stop_call_clock();
23358#endif
23359/*end of callfortranroutine*/
23360 if (f2py_success) {
23361/*pyobjfrom*/
23362/*end of pyobjfrom*/
23363 CFUNCSMESS("Building return value.\n");
23364 capi_buildvalue = Py_BuildValue("NNNNNi",capi_alphar_tmp,capi_alphai_tmp,capi_beta_tmp,capi_vl_tmp,capi_vr_tmp,info);
23365/*closepyobjfrom*/
23366/*end of closepyobjfrom*/
23367 } /*if (f2py_success) after callfortranroutine*/
23368/*cleanupfrompyobj*/
23369 } /*if (capi_vr_tmp == NULL) ... else of vr*/
23370 /* End of cleaning variable vr */
23371 } /*if (capi_vl_tmp == NULL) ... else of vl*/
23372 /* End of cleaning variable vl */
23373 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
23374 } /*if (capi_work_tmp == NULL) ... else of work*/
23375 /* End of cleaning variable work */
23376 } /*CHECKSCALAR(lwork>=8*n)*/
23377 } /*if (f2py_success) of lwork*/
23378 /* End of cleaning variable lwork */
23379 /* End of cleaning variable ldvr */
23380 /* End of cleaning variable ldvl */
23381 } /*if (capi_beta_tmp == NULL) ... else of beta*/
23382 /* End of cleaning variable beta */
23383 } /*if (capi_alphai_tmp == NULL) ... else of alphai*/
23384 /* End of cleaning variable alphai */
23385 } /*if (capi_alphar_tmp == NULL) ... else of alphar*/
23386 /* End of cleaning variable alphar */
23387 } /*CHECKARRAY(shape(b,0)==shape(b,1) && shape(b,0)==n)*/
23388 if((PyObject *)capi_b_tmp!=b_capi) {
23389 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
23390 } /*if (capi_b_tmp == NULL) ... else of b*/
23391 /* End of cleaning variable b */
23392 /* End of cleaning variable n */
23393 /* End of cleaning variable info */
23394 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
23395 if((PyObject *)capi_a_tmp!=a_capi) {
23396 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
23397 } /*if (capi_a_tmp == NULL) ... else of a*/
23398 /* End of cleaning variable a */
23399 } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/
23400 } /*if (f2py_success) of compute_vr*/
23401 /* End of cleaning variable compute_vr */
23402 } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/
23403 } /*if (f2py_success) of compute_vl*/
23404 /* End of cleaning variable compute_vl */
23405/*end of cleanupfrompyobj*/
23406 if (capi_buildvalue == NULL((void*)0)) {
23407/*routdebugfailure*/
23408 } else {
23409/*routdebugleave*/
23410 }
23411 CFUNCSMESS("Freeing memory.\n");
23412/*freemem*/
23413#ifdef F2PY_REPORT_ATEXIT
23414f2py_stop_clock();
23415#endif
23416 return capi_buildvalue;
23417}
23418/******************************** end of dgegv ********************************/
23419
23420/*********************************** cgegv ***********************************/
23421static char doc_f2py_rout__flapack_cgegv[] = "\
23422alpha,beta,vl,vr,info = cgegv(a,b,[compute_vl,compute_vr,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``cgegv``.\
23423\n\nParameters\n----------\n"
23424"a : input rank-2 array('F') with bounds (n,n)\n"
23425"b : input rank-2 array('F') with bounds (n,n)\n"
23426"\nOther Parameters\n----------------\n"
23427"compute_vl : input int, optional\n Default: 1\n"
23428"compute_vr : input int, optional\n Default: 1\n"
23429"overwrite_a : input int, optional\n Default: 0\n"
23430"overwrite_b : input int, optional\n Default: 0\n"
23431"lwork : input int, optional\n Default: max(2*n,1)\n"
23432"\nReturns\n-------\n"
23433"alpha : rank-1 array('F') with bounds (n)\n"
23434"beta : rank-1 array('F') with bounds (n)\n"
23435"vl : rank-2 array('F') with bounds (ldvl,n)\n"
23436"vr : rank-2 array('F') with bounds (ldvr,n)\n"
23437"info : int";
23438/* extern void F_FUNC(cgegv,CGEGV)(char*,char*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */
23439static PyObject *f2py_rout__flapack_cgegv(const PyObject *capi_self,
23440 PyObject *capi_args,
23441 PyObject *capi_keywds,
23442 void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) {
23443 PyObject * volatile capi_buildvalue = NULL((void*)0);
23444 volatile int f2py_success = 1;
23445/*decl*/
23446
23447 int compute_vl = 0;
23448 PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct);
23449 int compute_vr = 0;
23450 PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct);
23451 int n = 0;
23452 complex_float *a = NULL((void*)0);
23453 npy_intp a_Dims[2] = {-1, -1};
23454 const int a_Rank = 2;
23455 PyArrayObject *capi_a_tmp = NULL((void*)0);
23456 int capi_a_intent = 0;
23457 int capi_overwrite_a = 0;
23458 PyObject *a_capi = Py_None(&_Py_NoneStruct);
23459 complex_float *b = NULL((void*)0);
23460 npy_intp b_Dims[2] = {-1, -1};
23461 const int b_Rank = 2;
23462 PyArrayObject *capi_b_tmp = NULL((void*)0);
23463 int capi_b_intent = 0;
23464 int capi_overwrite_b = 0;
23465 PyObject *b_capi = Py_None(&_Py_NoneStruct);
23466 complex_float *alpha = NULL((void*)0);
23467 npy_intp alpha_Dims[1] = {-1};
23468 const int alpha_Rank = 1;
23469 PyArrayObject *capi_alpha_tmp = NULL((void*)0);
23470 int capi_alpha_intent = 0;
23471 complex_float *beta = NULL((void*)0);
23472 npy_intp beta_Dims[1] = {-1};
23473 const int beta_Rank = 1;
23474 PyArrayObject *capi_beta_tmp = NULL((void*)0);
23475 int capi_beta_intent = 0;
23476 complex_float *vl = NULL((void*)0);
23477 npy_intp vl_Dims[2] = {-1, -1};
23478 const int vl_Rank = 2;
23479 PyArrayObject *capi_vl_tmp = NULL((void*)0);
23480 int capi_vl_intent = 0;
23481 int ldvl = 0;
23482 complex_float *vr = NULL((void*)0);
23483 npy_intp vr_Dims[2] = {-1, -1};
23484 const int vr_Rank = 2;
23485 PyArrayObject *capi_vr_tmp = NULL((void*)0);
23486 int capi_vr_intent = 0;
23487 int ldvr = 0;
23488 complex_float *work = NULL((void*)0);
23489 npy_intp work_Dims[1] = {-1};
23490 const int work_Rank = 1;
23491 PyArrayObject *capi_work_tmp = NULL((void*)0);
23492 int capi_work_intent = 0;
23493 int lwork = 0;
23494 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
23495 float *rwork = NULL((void*)0);
23496 npy_intp rwork_Dims[1] = {-1};
23497 const int rwork_Rank = 1;
23498 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
23499 int capi_rwork_intent = 0;
23500 int info = 0;
23501 static char *capi_kwlist[] = {"a","b","compute_vl","compute_vr","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
23502
23503/*routdebugenter*/
23504#ifdef F2PY_REPORT_ATEXIT
23505f2py_start_clock();
23506#endif
23507 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
23508 "OO|OOOii:_flapack.cgegv",\
23509 capi_kwlist,&a_capi,&b_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
23510 return NULL((void*)0);
23511/*frompyobj*/
23512 /* Processing variable compute_vl */
23513 if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else
23514 f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.cgegv() 1st keyword (compute_vl) can't be converted to int");
23515 if (f2py_success) {
23516 CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","cgegv:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgegv:compute_vl=%d", "(""compute_vl==1||compute_vl==0"
") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString
(_flapack_error,errstring); } else
{
23517 /* Processing variable compute_vr */
23518 if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else
23519 f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.cgegv() 2nd keyword (compute_vr) can't be converted to int");
23520 if (f2py_success) {
23521 CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","cgegv:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgegv:compute_vr=%d", "(""compute_vr==1||compute_vr==0"
") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString
(_flapack_error,errstring); } else
{
23522 /* Processing variable a */
23523 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
23524 ;
23525 capi_a_intent |= F2PY_INTENT_IN1;
23526 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
23527 if (capi_a_tmp == NULL((void*)0)) {
23528 if (!PyErr_Occurred())
23529 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgegv to C/Fortran array" );
23530 } else {
23531 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
23532
23533 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
23534 /* Processing variable info */
23535 /* Processing variable n */
23536 n = shape(a,0)a_Dims[0];
23537 /* Processing variable b */
23538 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
23539 b_Dims[0]=n,b_Dims[1]=n;
23540 capi_b_intent |= F2PY_INTENT_IN1;
23541 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
23542 if (capi_b_tmp == NULL((void*)0)) {
23543 if (!PyErr_Occurred())
23544 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cgegv to C/Fortran array" );
23545 } else {
23546 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
23547
23548 CHECKARRAY(shape(b,0)==shape(b,1) && shape(b,0)==n,"shape(b,0)==shape(b,1) && shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==b_Dims[1] && b_Dims[0]==n)) { PyErr_SetString
(_flapack_error,"(""shape(b,0)==shape(b,1) && shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
23549 /* Processing variable alpha */
23550 alpha_Dims[0]=n;
23551 capi_alpha_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
23552 capi_alpha_tmp = array_from_pyobj(NPY_CFLOAT,alpha_Dims,alpha_Rank,capi_alpha_intent,Py_None(&_Py_NoneStruct));
23553 if (capi_alpha_tmp == NULL((void*)0)) {
23554 if (!PyErr_Occurred())
23555 PyErr_SetString(_flapack_error,"failed in converting hidden `alpha' of _flapack.cgegv to C/Fortran array" );
23556 } else {
23557 alpha = (complex_float *)(PyArray_DATA(capi_alpha_tmp)((void *)((PyArrayObject_fields *)(capi_alpha_tmp))->data));
23558
23559 /* Processing variable beta */
23560 beta_Dims[0]=n;
23561 capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
23562 capi_beta_tmp = array_from_pyobj(NPY_CFLOAT,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct));
23563 if (capi_beta_tmp == NULL((void*)0)) {
23564 if (!PyErr_Occurred())
23565 PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.cgegv to C/Fortran array" );
23566 } else {
23567 beta = (complex_float *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data));
23568
23569 /* Processing variable ldvl */
23570 ldvl = (compute_vl?n:1);
23571 /* Processing variable ldvr */
23572 ldvr = (compute_vr?n:1);
23573 /* Processing variable lwork */
23574 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else
23575 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgegv() 3rd keyword (lwork) can't be converted to int");
23576 if (f2py_success) {
23577 CHECKSCALAR(lwork>=2*n,"lwork>=2*n","3rd keyword lwork","cgegv:lwork=%d",lwork)if (!(lwork>=2*n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgegv:lwork=%d", "(""lwork>=2*n"") failed for ""3rd keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
23578 /* Processing variable work */
23579 work_Dims[0]=lwork;
23580 capi_work_intent |= F2PY_INTENT_HIDE8;
23581 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
23582 if (capi_work_tmp == NULL((void*)0)) {
23583 if (!PyErr_Occurred())
23584 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgegv to C/Fortran array" );
23585 } else {
23586 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
23587
23588 /* Processing variable rwork */
23589 rwork_Dims[0]=8 * n;
23590 capi_rwork_intent |= F2PY_INTENT_HIDE8;
23591 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
23592 if (capi_rwork_tmp == NULL((void*)0)) {
23593 if (!PyErr_Occurred())
23594 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgegv to C/Fortran array" );
23595 } else {
23596 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
23597
23598 /* Processing variable vl */
23599 vl_Dims[0]=ldvl,vl_Dims[1]=n;
23600 capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
23601 capi_vl_tmp = array_from_pyobj(NPY_CFLOAT,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct));
23602 if (capi_vl_tmp == NULL((void*)0)) {
23603 if (!PyErr_Occurred())
23604 PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.cgegv to C/Fortran array" );
23605 } else {
23606 vl = (complex_float *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data));
23607
23608 /* Processing variable vr */
23609 vr_Dims[0]=ldvr,vr_Dims[1]=n;
23610 capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
23611 capi_vr_tmp = array_from_pyobj(NPY_CFLOAT,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct));
23612 if (capi_vr_tmp == NULL((void*)0)) {
23613 if (!PyErr_Occurred())
23614 PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.cgegv to C/Fortran array" );
23615 } else {
23616 vr = (complex_float *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data));
23617
23618/*end of frompyobj*/
23619#ifdef F2PY_REPORT_ATEXIT
23620f2py_start_call_clock();
23621#endif
23622/*callfortranroutine*/
23623 (*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,b,&n,alpha,beta,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info) ;
23624 /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,b,alpha,beta,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info);*/
23625if (PyErr_Occurred())
23626 f2py_success = 0;
23627#ifdef F2PY_REPORT_ATEXIT
23628f2py_stop_call_clock();
23629#endif
23630/*end of callfortranroutine*/
23631 if (f2py_success) {
23632/*pyobjfrom*/
23633/*end of pyobjfrom*/
23634 CFUNCSMESS("Building return value.\n");
23635 capi_buildvalue = Py_BuildValue("NNNNi",capi_alpha_tmp,capi_beta_tmp,capi_vl_tmp,capi_vr_tmp,info);
23636/*closepyobjfrom*/
23637/*end of closepyobjfrom*/
23638 } /*if (f2py_success) after callfortranroutine*/
23639/*cleanupfrompyobj*/
23640 } /*if (capi_vr_tmp == NULL) ... else of vr*/
23641 /* End of cleaning variable vr */
23642 } /*if (capi_vl_tmp == NULL) ... else of vl*/
23643 /* End of cleaning variable vl */
23644 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
23645 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
23646 /* End of cleaning variable rwork */
23647 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
23648 } /*if (capi_work_tmp == NULL) ... else of work*/
23649 /* End of cleaning variable work */
23650 } /*CHECKSCALAR(lwork>=2*n)*/
23651 } /*if (f2py_success) of lwork*/
23652 /* End of cleaning variable lwork */
23653 /* End of cleaning variable ldvr */
23654 /* End of cleaning variable ldvl */
23655 } /*if (capi_beta_tmp == NULL) ... else of beta*/
23656 /* End of cleaning variable beta */
23657 } /*if (capi_alpha_tmp == NULL) ... else of alpha*/
23658 /* End of cleaning variable alpha */
23659 } /*CHECKARRAY(shape(b,0)==shape(b,1) && shape(b,0)==n)*/
23660 if((PyObject *)capi_b_tmp!=b_capi) {
23661 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
23662 } /*if (capi_b_tmp == NULL) ... else of b*/
23663 /* End of cleaning variable b */
23664 /* End of cleaning variable n */
23665 /* End of cleaning variable info */
23666 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
23667 if((PyObject *)capi_a_tmp!=a_capi) {
23668 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
23669 } /*if (capi_a_tmp == NULL) ... else of a*/
23670 /* End of cleaning variable a */
23671 } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/
23672 } /*if (f2py_success) of compute_vr*/
23673 /* End of cleaning variable compute_vr */
23674 } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/
23675 } /*if (f2py_success) of compute_vl*/
23676 /* End of cleaning variable compute_vl */
23677/*end of cleanupfrompyobj*/
23678 if (capi_buildvalue == NULL((void*)0)) {
23679/*routdebugfailure*/
23680 } else {
23681/*routdebugleave*/
23682 }
23683 CFUNCSMESS("Freeing memory.\n");
23684/*freemem*/
23685#ifdef F2PY_REPORT_ATEXIT
23686f2py_stop_clock();
23687#endif
23688 return capi_buildvalue;
23689}
23690/******************************** end of cgegv ********************************/
23691
23692/*********************************** zgegv ***********************************/
23693static char doc_f2py_rout__flapack_zgegv[] = "\
23694alpha,beta,vl,vr,info = zgegv(a,b,[compute_vl,compute_vr,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``zgegv``.\
23695\n\nParameters\n----------\n"
23696"a : input rank-2 array('D') with bounds (n,n)\n"
23697"b : input rank-2 array('D') with bounds (n,n)\n"
23698"\nOther Parameters\n----------------\n"
23699"compute_vl : input int, optional\n Default: 1\n"
23700"compute_vr : input int, optional\n Default: 1\n"
23701"overwrite_a : input int, optional\n Default: 0\n"
23702"overwrite_b : input int, optional\n Default: 0\n"
23703"lwork : input int, optional\n Default: max(2*n,1)\n"
23704"\nReturns\n-------\n"
23705"alpha : rank-1 array('D') with bounds (n)\n"
23706"beta : rank-1 array('D') with bounds (n)\n"
23707"vl : rank-2 array('D') with bounds (ldvl,n)\n"
23708"vr : rank-2 array('D') with bounds (ldvr,n)\n"
23709"info : int";
23710/* extern void F_FUNC(zgegv,ZGEGV)(char*,char*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */
23711static PyObject *f2py_rout__flapack_zgegv(const PyObject *capi_self,
23712 PyObject *capi_args,
23713 PyObject *capi_keywds,
23714 void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) {
23715 PyObject * volatile capi_buildvalue = NULL((void*)0);
23716 volatile int f2py_success = 1;
23717/*decl*/
23718
23719 int compute_vl = 0;
23720 PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct);
23721 int compute_vr = 0;
23722 PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct);
23723 int n = 0;
23724 complex_double *a = NULL((void*)0);
23725 npy_intp a_Dims[2] = {-1, -1};
23726 const int a_Rank = 2;
23727 PyArrayObject *capi_a_tmp = NULL((void*)0);
23728 int capi_a_intent = 0;
23729 int capi_overwrite_a = 0;
23730 PyObject *a_capi = Py_None(&_Py_NoneStruct);
23731 complex_double *b = NULL((void*)0);
23732 npy_intp b_Dims[2] = {-1, -1};
23733 const int b_Rank = 2;
23734 PyArrayObject *capi_b_tmp = NULL((void*)0);
23735 int capi_b_intent = 0;
23736 int capi_overwrite_b = 0;
23737 PyObject *b_capi = Py_None(&_Py_NoneStruct);
23738 complex_double *alpha = NULL((void*)0);
23739 npy_intp alpha_Dims[1] = {-1};
23740 const int alpha_Rank = 1;
23741 PyArrayObject *capi_alpha_tmp = NULL((void*)0);
23742 int capi_alpha_intent = 0;
23743 complex_double *beta = NULL((void*)0);
23744 npy_intp beta_Dims[1] = {-1};
23745 const int beta_Rank = 1;
23746 PyArrayObject *capi_beta_tmp = NULL((void*)0);
23747 int capi_beta_intent = 0;
23748 complex_double *vl = NULL((void*)0);
23749 npy_intp vl_Dims[2] = {-1, -1};
23750 const int vl_Rank = 2;
23751 PyArrayObject *capi_vl_tmp = NULL((void*)0);
23752 int capi_vl_intent = 0;
23753 int ldvl = 0;
23754 complex_double *vr = NULL((void*)0);
23755 npy_intp vr_Dims[2] = {-1, -1};
23756 const int vr_Rank = 2;
23757 PyArrayObject *capi_vr_tmp = NULL((void*)0);
23758 int capi_vr_intent = 0;
23759 int ldvr = 0;
23760 complex_double *work = NULL((void*)0);
23761 npy_intp work_Dims[1] = {-1};
23762 const int work_Rank = 1;
23763 PyArrayObject *capi_work_tmp = NULL((void*)0);
23764 int capi_work_intent = 0;
23765 int lwork = 0;
23766 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
23767 double *rwork = NULL((void*)0);
23768 npy_intp rwork_Dims[1] = {-1};
23769 const int rwork_Rank = 1;
23770 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
23771 int capi_rwork_intent = 0;
23772 int info = 0;
23773 static char *capi_kwlist[] = {"a","b","compute_vl","compute_vr","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
23774
23775/*routdebugenter*/
23776#ifdef F2PY_REPORT_ATEXIT
23777f2py_start_clock();
23778#endif
23779 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
23780 "OO|OOOii:_flapack.zgegv",\
23781 capi_kwlist,&a_capi,&b_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
23782 return NULL((void*)0);
23783/*frompyobj*/
23784 /* Processing variable compute_vl */
23785 if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else
23786 f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.zgegv() 1st keyword (compute_vl) can't be converted to int");
23787 if (f2py_success) {
23788 CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","zgegv:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgegv:compute_vl=%d", "(""compute_vl==1||compute_vl==0"
") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString
(_flapack_error,errstring); } else
{
23789 /* Processing variable compute_vr */
23790 if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else
23791 f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.zgegv() 2nd keyword (compute_vr) can't be converted to int");
23792 if (f2py_success) {
23793 CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","zgegv:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgegv:compute_vr=%d", "(""compute_vr==1||compute_vr==0"
") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString
(_flapack_error,errstring); } else
{
23794 /* Processing variable a */
23795 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
23796 ;
23797 capi_a_intent |= F2PY_INTENT_IN1;
23798 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
23799 if (capi_a_tmp == NULL((void*)0)) {
23800 if (!PyErr_Occurred())
23801 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgegv to C/Fortran array" );
23802 } else {
23803 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
23804
23805 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
23806 /* Processing variable info */
23807 /* Processing variable n */
23808 n = shape(a,0)a_Dims[0];
23809 /* Processing variable b */
23810 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
23811 b_Dims[0]=n,b_Dims[1]=n;
23812 capi_b_intent |= F2PY_INTENT_IN1;
23813 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
23814 if (capi_b_tmp == NULL((void*)0)) {
23815 if (!PyErr_Occurred())
23816 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zgegv to C/Fortran array" );
23817 } else {
23818 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
23819
23820 CHECKARRAY(shape(b,0)==shape(b,1) && shape(b,0)==n,"shape(b,0)==shape(b,1) && shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==b_Dims[1] && b_Dims[0]==n)) { PyErr_SetString
(_flapack_error,"(""shape(b,0)==shape(b,1) && shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
23821 /* Processing variable alpha */
23822 alpha_Dims[0]=n;
23823 capi_alpha_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
23824 capi_alpha_tmp = array_from_pyobj(NPY_CDOUBLE,alpha_Dims,alpha_Rank,capi_alpha_intent,Py_None(&_Py_NoneStruct));
23825 if (capi_alpha_tmp == NULL((void*)0)) {
23826 if (!PyErr_Occurred())
23827 PyErr_SetString(_flapack_error,"failed in converting hidden `alpha' of _flapack.zgegv to C/Fortran array" );
23828 } else {
23829 alpha = (complex_double *)(PyArray_DATA(capi_alpha_tmp)((void *)((PyArrayObject_fields *)(capi_alpha_tmp))->data));
23830
23831 /* Processing variable beta */
23832 beta_Dims[0]=n;
23833 capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
23834 capi_beta_tmp = array_from_pyobj(NPY_CDOUBLE,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct));
23835 if (capi_beta_tmp == NULL((void*)0)) {
23836 if (!PyErr_Occurred())
23837 PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.zgegv to C/Fortran array" );
23838 } else {
23839 beta = (complex_double *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data));
23840
23841 /* Processing variable ldvl */
23842 ldvl = (compute_vl?n:1);
23843 /* Processing variable ldvr */
23844 ldvr = (compute_vr?n:1);
23845 /* Processing variable lwork */
23846 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else
23847 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgegv() 3rd keyword (lwork) can't be converted to int");
23848 if (f2py_success) {
23849 CHECKSCALAR(lwork>=2*n,"lwork>=2*n","3rd keyword lwork","zgegv:lwork=%d",lwork)if (!(lwork>=2*n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgegv:lwork=%d", "(""lwork>=2*n"") failed for ""3rd keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
23850 /* Processing variable work */
23851 work_Dims[0]=lwork;
23852 capi_work_intent |= F2PY_INTENT_HIDE8;
23853 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
23854 if (capi_work_tmp == NULL((void*)0)) {
23855 if (!PyErr_Occurred())
23856 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgegv to C/Fortran array" );
23857 } else {
23858 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
23859
23860 /* Processing variable rwork */
23861 rwork_Dims[0]=8 * n;
23862 capi_rwork_intent |= F2PY_INTENT_HIDE8;
23863 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
23864 if (capi_rwork_tmp == NULL((void*)0)) {
23865 if (!PyErr_Occurred())
23866 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgegv to C/Fortran array" );
23867 } else {
23868 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
23869
23870 /* Processing variable vl */
23871 vl_Dims[0]=ldvl,vl_Dims[1]=n;
23872 capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
23873 capi_vl_tmp = array_from_pyobj(NPY_CDOUBLE,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct));
23874 if (capi_vl_tmp == NULL((void*)0)) {
23875 if (!PyErr_Occurred())
23876 PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.zgegv to C/Fortran array" );
23877 } else {
23878 vl = (complex_double *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data));
23879
23880 /* Processing variable vr */
23881 vr_Dims[0]=ldvr,vr_Dims[1]=n;
23882 capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
23883 capi_vr_tmp = array_from_pyobj(NPY_CDOUBLE,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct));
23884 if (capi_vr_tmp == NULL((void*)0)) {
23885 if (!PyErr_Occurred())
23886 PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.zgegv to C/Fortran array" );
23887 } else {
23888 vr = (complex_double *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data));
23889
23890/*end of frompyobj*/
23891#ifdef F2PY_REPORT_ATEXIT
23892f2py_start_call_clock();
23893#endif
23894/*callfortranroutine*/
23895 (*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,b,&n,alpha,beta,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info) ;
23896 /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,b,alpha,beta,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info);*/
23897if (PyErr_Occurred())
23898 f2py_success = 0;
23899#ifdef F2PY_REPORT_ATEXIT
23900f2py_stop_call_clock();
23901#endif
23902/*end of callfortranroutine*/
23903 if (f2py_success) {
23904/*pyobjfrom*/
23905/*end of pyobjfrom*/
23906 CFUNCSMESS("Building return value.\n");
23907 capi_buildvalue = Py_BuildValue("NNNNi",capi_alpha_tmp,capi_beta_tmp,capi_vl_tmp,capi_vr_tmp,info);
23908/*closepyobjfrom*/
23909/*end of closepyobjfrom*/
23910 } /*if (f2py_success) after callfortranroutine*/
23911/*cleanupfrompyobj*/
23912 } /*if (capi_vr_tmp == NULL) ... else of vr*/
23913 /* End of cleaning variable vr */
23914 } /*if (capi_vl_tmp == NULL) ... else of vl*/
23915 /* End of cleaning variable vl */
23916 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
23917 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
23918 /* End of cleaning variable rwork */
23919 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
23920 } /*if (capi_work_tmp == NULL) ... else of work*/
23921 /* End of cleaning variable work */
23922 } /*CHECKSCALAR(lwork>=2*n)*/
23923 } /*if (f2py_success) of lwork*/
23924 /* End of cleaning variable lwork */
23925 /* End of cleaning variable ldvr */
23926 /* End of cleaning variable ldvl */
23927 } /*if (capi_beta_tmp == NULL) ... else of beta*/
23928 /* End of cleaning variable beta */
23929 } /*if (capi_alpha_tmp == NULL) ... else of alpha*/
23930 /* End of cleaning variable alpha */
23931 } /*CHECKARRAY(shape(b,0)==shape(b,1) && shape(b,0)==n)*/
23932 if((PyObject *)capi_b_tmp!=b_capi) {
23933 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
23934 } /*if (capi_b_tmp == NULL) ... else of b*/
23935 /* End of cleaning variable b */
23936 /* End of cleaning variable n */
23937 /* End of cleaning variable info */
23938 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
23939 if((PyObject *)capi_a_tmp!=a_capi) {
23940 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
23941 } /*if (capi_a_tmp == NULL) ... else of a*/
23942 /* End of cleaning variable a */
23943 } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/
23944 } /*if (f2py_success) of compute_vr*/
23945 /* End of cleaning variable compute_vr */
23946 } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/
23947 } /*if (f2py_success) of compute_vl*/
23948 /* End of cleaning variable compute_vl */
23949/*end of cleanupfrompyobj*/
23950 if (capi_buildvalue == NULL((void*)0)) {
23951/*routdebugfailure*/
23952 } else {
23953/*routdebugleave*/
23954 }
23955 CFUNCSMESS("Freeing memory.\n");
23956/*freemem*/
23957#ifdef F2PY_REPORT_ATEXIT
23958f2py_stop_clock();
23959#endif
23960 return capi_buildvalue;
23961}
23962/******************************** end of zgegv ********************************/
23963
23964/*********************************** cgees ***********************************/
23965static char doc_f2py_rout__flapack_cgees[] = "\
23966t,sdim,w,vs,work,info = cgees(cselect,a,[compute_v,sort_t,lwork,cselect_extra_args,overwrite_a])\n\nWrapper for ``cgees``.\
23967\n\nParameters\n----------\n"
23968"cselect : call-back function\n"
23969"a : input rank-2 array('F') with bounds (n,n)\n"
23970"\nOther Parameters\n----------------\n"
23971"compute_v : input int, optional\n Default: 1\n"
23972"sort_t : input int, optional\n Default: 0\n"
23973"cselect_extra_args : input tuple, optional\n Default: ()\n"
23974"overwrite_a : input int, optional\n Default: 0\n"
23975"lwork : input int, optional\n Default: max(3*n,1)\n"
23976"\nReturns\n-------\n"
23977"t : rank-2 array('F') with bounds (n,n) and a storage\n"
23978"sdim : int\n"
23979"w : rank-1 array('F') with bounds (n)\n"
23980"vs : rank-2 array('F') with bounds (ldvs,n)\n"
23981"work : rank-1 array('F') with bounds (MAX(lwork,1))\n"
23982"info : int\n"
23983"\nNotes\n-----\nCall-back functions::\n\n"
23984" def cselect(arg): return cselect\n\
23985 Required arguments:\n"
23986" arg : input complex\n"
23987" Return objects:\n"
23988" cselect : int";
23989/* extern void F_FUNC(cgees,CGEES)(char*,char*,F_INT(*)(complex_float*),F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT,F_INT ); */
23990static PyObject *f2py_rout__flapack_cgees(const PyObject *capi_self,
23991 PyObject *capi_args,
23992 PyObject *capi_keywds,
23993 void (*f2py_func)(char*,char*,F_INTint(*)(complex_float*),F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint,F_INTint )) {
23994 PyObject * volatile capi_buildvalue = NULL((void*)0);
23995 volatile int f2py_success = 1;
23996/*decl*/
23997
23998 int compute_v = 0;
23999 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
24000 int sort_t = 0;
24001 PyObject *sort_t_capi = Py_None(&_Py_NoneStruct);
24002 PyObject *cselect_capi = Py_None(&_Py_NoneStruct);
24003 PyTupleObject *cselect_xa_capi = NULL((void*)0);
24004 PyTupleObject *cselect_args_capi = NULL((void*)0);
24005 int cselect_nofargs_capi = 0;
24006 cb_cselect_in_gees__user__routines_typedef cselect_cptr;
24007 int n = 0;
24008 complex_float *a = NULL((void*)0);
24009 npy_intp a_Dims[2] = {-1, -1};
24010 const int a_Rank = 2;
24011 PyArrayObject *capi_a_tmp = NULL((void*)0);
24012 int capi_a_intent = 0;
24013 int capi_overwrite_a = 0;
24014 PyObject *a_capi = Py_None(&_Py_NoneStruct);
24015 int nrows = 0;
24016 int sdim = 0;
24017 complex_float *w = NULL((void*)0);
24018 npy_intp w_Dims[1] = {-1};
24019 const int w_Rank = 1;
24020 PyArrayObject *capi_w_tmp = NULL((void*)0);
24021 int capi_w_intent = 0;
24022 complex_float *vs = NULL((void*)0);
24023 npy_intp vs_Dims[2] = {-1, -1};
24024 const int vs_Rank = 2;
24025 PyArrayObject *capi_vs_tmp = NULL((void*)0);
24026 int capi_vs_intent = 0;
24027 int ldvs = 0;
24028 complex_float *work = NULL((void*)0);
24029 npy_intp work_Dims[1] = {-1};
24030 const int work_Rank = 1;
24031 PyArrayObject *capi_work_tmp = NULL((void*)0);
24032 int capi_work_intent = 0;
24033 int lwork = 0;
24034 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
24035 float *rwork = NULL((void*)0);
24036 npy_intp rwork_Dims[1] = {-1};
24037 const int rwork_Rank = 1;
24038 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
24039 int capi_rwork_intent = 0;
24040 int *bwork = NULL((void*)0);
24041 npy_intp bwork_Dims[1] = {-1};
24042 const int bwork_Rank = 1;
24043 PyArrayObject *capi_bwork_tmp = NULL((void*)0);
24044 int capi_bwork_intent = 0;
24045 int info = 0;
24046 static char *capi_kwlist[] = {"cselect","a","compute_v","sort_t","lwork","cselect_extra_args","overwrite_a",NULL((void*)0)};
24047
24048/*routdebugenter*/
24049#ifdef F2PY_REPORT_ATEXIT
24050f2py_start_clock();
24051#endif
24052 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
24053 "OO|OOOO!i:_flapack.cgees",\
24054 capi_kwlist,&cselect_capi,&a_capi,&compute_v_capi,&sort_t_capi,&lwork_capi,&PyTuple_Type,&cselect_xa_capi,&capi_overwrite_a))
24055 return NULL((void*)0);
24056/*frompyobj*/
24057 /* Processing variable compute_v */
24058 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
24059 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.cgees() 1st keyword (compute_v) can't be converted to int");
24060 if (f2py_success) {
24061 CHECKSCALAR(compute_v==0||compute_v==1,"compute_v==0||compute_v==1","1st keyword compute_v","cgees:compute_v=%d",compute_v)if (!(compute_v==0||compute_v==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgees:compute_v=%d", "(""compute_v==0||compute_v==1"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
24062 /* Processing variable sort_t */
24063 if (sort_t_capi == Py_None(&_Py_NoneStruct)) sort_t = 0; else
24064 f2py_success = int_from_pyobj(&sort_t,sort_t_capi,"_flapack.cgees() 2nd keyword (sort_t) can't be converted to int");
24065 if (f2py_success) {
24066 CHECKSCALAR(sort_t==0||sort_t==1,"sort_t==0||sort_t==1","2nd keyword sort_t","cgees:sort_t=%d",sort_t)if (!(sort_t==0||sort_t==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgees:sort_t=%d", "(""sort_t==0||sort_t==1"") failed for "
"2nd keyword sort_t", sort_t); PyErr_SetString(_flapack_error
,errstring); } else
{
24067 /* Processing variable cselect */
24068if(F2PyCapsule_Check(cselect_capi)) {
24069 cselect_cptr = F2PyCapsule_AsVoidPtr(cselect_capi);
24070} else {
24071 cselect_cptr = cb_cselect_in_gees__user__routines;
24072}
24073
24074 cselect_nofargs_capi = cb_cselect_in_gees__user__routines_nofargs;
24075 if (create_cb_arglist(cselect_capi,cselect_xa_capi,1,0,&cb_cselect_in_gees__user__routines_nofargs,&cselect_args_capi,"failed in processing argument list for call-back cselect.")) {
24076 jmp_buf cselect_jmpbuf;
24077 CFUNCSMESS("Saving jmpbuf for `cselect`.\n");
24078 SWAP(cselect_capi,cb_cselect_in_gees__user__routines_capi,PyObject){ PyObject *c; c = cselect_capi; cselect_capi = cb_cselect_in_gees__user__routines_capi
; cb_cselect_in_gees__user__routines_capi = c;}
;
24079 SWAP(cselect_args_capi,cb_cselect_in_gees__user__routines_args_capi,PyTupleObject){ PyTupleObject *c; c = cselect_args_capi; cselect_args_capi =
cb_cselect_in_gees__user__routines_args_capi; cb_cselect_in_gees__user__routines_args_capi
= c;}
;
24080 memcpy(&cselect_jmpbuf,&cb_cselect_in_gees__user__routines_jmpbuf,sizeof(jmp_buf));
24081 /* Processing variable a */
24082 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
24083 ;
24084 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
24085 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
24086 if (capi_a_tmp == NULL((void*)0)) {
24087 if (!PyErr_Occurred())
24088 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.cgees to C/Fortran array" );
24089 } else {
24090 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
24091
24092 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","2nd argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""2nd argument a");
} else
{
24093 /* Processing variable sdim */
24094 sdim = 0;
24095 /* Processing variable info */
24096 /* Processing variable n */
24097 n = shape(a,1)a_Dims[1];
24098 /* Processing variable nrows */
24099 nrows = shape(a,0)a_Dims[0];
24100 /* Processing variable w */
24101 w_Dims[0]=n;
24102 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
24103 capi_w_tmp = array_from_pyobj(NPY_CFLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
24104 if (capi_w_tmp == NULL((void*)0)) {
24105 if (!PyErr_Occurred())
24106 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.cgees to C/Fortran array" );
24107 } else {
24108 w = (complex_float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
24109
24110 /* Processing variable ldvs */
24111 ldvs = ((compute_v==1)?n:1);
24112 /* Processing variable lwork */
24113 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else
24114 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgees() 3rd keyword (lwork) can't be converted to int");
24115 if (f2py_success) {
24116 CHECKSCALAR((lwork==-1)||(lwork >= MAX(1,2*n)),"(lwork==-1)||(lwork >= MAX(1,2*n))","3rd keyword lwork","cgees:lwork=%d",lwork)if (!((lwork==-1)||(lwork >= ((1 > 2*n) ? (1) : (2*n)))
)) { char errstring[256]; __builtin___sprintf_chk (errstring,
2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cgees:lwork=%d"
, "(""(lwork==-1)||(lwork >= MAX(1,2*n))"") failed for ""3rd keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
24117 /* Processing variable rwork */
24118 rwork_Dims[0]=n;
24119 capi_rwork_intent |= F2PY_INTENT_HIDE8;
24120 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
24121 if (capi_rwork_tmp == NULL((void*)0)) {
24122 if (!PyErr_Occurred())
24123 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgees to C/Fortran array" );
24124 } else {
24125 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
24126
24127 /* Processing variable bwork */
24128 bwork_Dims[0]=n;
24129 capi_bwork_intent |= F2PY_INTENT_HIDE8;
24130 capi_bwork_tmp = array_from_pyobj(NPY_INT,bwork_Dims,bwork_Rank,capi_bwork_intent,Py_None(&_Py_NoneStruct));
24131 if (capi_bwork_tmp == NULL((void*)0)) {
24132 if (!PyErr_Occurred())
24133 PyErr_SetString(_flapack_error,"failed in converting hidden `bwork' of _flapack.cgees to C/Fortran array" );
24134 } else {
24135 bwork = (int *)(PyArray_DATA(capi_bwork_tmp)((void *)((PyArrayObject_fields *)(capi_bwork_tmp))->data));
24136
24137 /* Processing variable vs */
24138 vs_Dims[0]=ldvs,vs_Dims[1]=n;
24139 capi_vs_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
24140 capi_vs_tmp = array_from_pyobj(NPY_CFLOAT,vs_Dims,vs_Rank,capi_vs_intent,Py_None(&_Py_NoneStruct));
24141 if (capi_vs_tmp == NULL((void*)0)) {
24142 if (!PyErr_Occurred())
24143 PyErr_SetString(_flapack_error,"failed in converting hidden `vs' of _flapack.cgees to C/Fortran array" );
24144 } else {
24145 vs = (complex_float *)(PyArray_DATA(capi_vs_tmp)((void *)((PyArrayObject_fields *)(capi_vs_tmp))->data));
24146
24147 /* Processing variable work */
24148 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
24149 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
24150 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
24151 if (capi_work_tmp == NULL((void*)0)) {
24152 if (!PyErr_Occurred())
24153 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgees to C/Fortran array" );
24154 } else {
24155 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
24156
24157/*end of frompyobj*/
24158#ifdef F2PY_REPORT_ATEXIT
24159f2py_start_call_clock();
24160#endif
24161/*callfortranroutine*/
24162 if ((setjmp(cb_cselect_in_gees__user__routines_jmpbuf)_setjmp (cb_cselect_in_gees__user__routines_jmpbuf))) {
24163 f2py_success = 0;
24164 } else {
24165 (*f2py_func)((compute_v?"V":"N"),(sort_t?"S":"N"),cb_cselect_in_gees__user__routines,&n,a,&nrows,&sdim,w,vs,&ldvs,work,&lwork,rwork,bwork,&info,1,1) ;
24166 /*(*f2py_func)(&compute_v,&sort_t,cselect_cptr,&n,a,&nrows,&sdim,w,vs,&ldvs,work,&lwork,rwork,bwork,&info);*/
24167 }
24168if (PyErr_Occurred())
24169 f2py_success = 0;
24170#ifdef F2PY_REPORT_ATEXIT
24171f2py_stop_call_clock();
24172#endif
24173/*end of callfortranroutine*/
24174 if (f2py_success) {
24175/*pyobjfrom*/
24176/*end of pyobjfrom*/
24177 CFUNCSMESS("Building return value.\n");
24178 capi_buildvalue = Py_BuildValue("NiNNNi",capi_a_tmp,sdim,capi_w_tmp,capi_vs_tmp,capi_work_tmp,info);
24179/*closepyobjfrom*/
24180/*end of closepyobjfrom*/
24181 } /*if (f2py_success) after callfortranroutine*/
24182/*cleanupfrompyobj*/
24183 } /*if (capi_work_tmp == NULL) ... else of work*/
24184 /* End of cleaning variable work */
24185 } /*if (capi_vs_tmp == NULL) ... else of vs*/
24186 /* End of cleaning variable vs */
24187 Py_XDECREF(capi_bwork_tmp)_Py_XDECREF(((PyObject*)(capi_bwork_tmp)));
24188 } /*if (capi_bwork_tmp == NULL) ... else of bwork*/
24189 /* End of cleaning variable bwork */
24190 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
24191 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
24192 /* End of cleaning variable rwork */
24193 } /*CHECKSCALAR((lwork==-1)||(lwork >= MAX(1,2*n)))*/
24194 } /*if (f2py_success) of lwork*/
24195 /* End of cleaning variable lwork */
24196 /* End of cleaning variable ldvs */
24197 } /*if (capi_w_tmp == NULL) ... else of w*/
24198 /* End of cleaning variable w */
24199 /* End of cleaning variable nrows */
24200 /* End of cleaning variable n */
24201 /* End of cleaning variable info */
24202 /* End of cleaning variable sdim */
24203 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
24204 } /*if (capi_a_tmp == NULL) ... else of a*/
24205 /* End of cleaning variable a */
24206 CFUNCSMESS("Restoring jmpbuf for `cselect`.\n");
24207 cb_cselect_in_gees__user__routines_capi = cselect_capi;
24208 Py_DECREF(cb_cselect_in_gees__user__routines_args_capi)_Py_DECREF(((PyObject*)(cb_cselect_in_gees__user__routines_args_capi
)))
;
24209 cb_cselect_in_gees__user__routines_args_capi = cselect_args_capi;
24210 cb_cselect_in_gees__user__routines_nofargs = cselect_nofargs_capi;
24211 memcpy(&cb_cselect_in_gees__user__routines_jmpbuf,&cselect_jmpbuf,sizeof(jmp_buf));
24212 }
24213 /* End of cleaning variable cselect */
24214 } /*CHECKSCALAR(sort_t==0||sort_t==1)*/
24215 } /*if (f2py_success) of sort_t*/
24216 /* End of cleaning variable sort_t */
24217 } /*CHECKSCALAR(compute_v==0||compute_v==1)*/
24218 } /*if (f2py_success) of compute_v*/
24219 /* End of cleaning variable compute_v */
24220/*end of cleanupfrompyobj*/
24221 if (capi_buildvalue == NULL((void*)0)) {
24222/*routdebugfailure*/
24223 } else {
24224/*routdebugleave*/
24225 }
24226 CFUNCSMESS("Freeing memory.\n");
24227/*freemem*/
24228#ifdef F2PY_REPORT_ATEXIT
24229f2py_stop_clock();
24230#endif
24231 return capi_buildvalue;
24232}
24233/******************************** end of cgees ********************************/
24234
24235/*********************************** zgees ***********************************/
24236static char doc_f2py_rout__flapack_zgees[] = "\
24237t,sdim,w,vs,work,info = zgees(zselect,a,[compute_v,sort_t,lwork,zselect_extra_args,overwrite_a])\n\nWrapper for ``zgees``.\
24238\n\nParameters\n----------\n"
24239"zselect : call-back function\n"
24240"a : input rank-2 array('D') with bounds (n,n)\n"
24241"\nOther Parameters\n----------------\n"
24242"compute_v : input int, optional\n Default: 1\n"
24243"sort_t : input int, optional\n Default: 0\n"
24244"zselect_extra_args : input tuple, optional\n Default: ()\n"
24245"overwrite_a : input int, optional\n Default: 0\n"
24246"lwork : input int, optional\n Default: max(3*n,1)\n"
24247"\nReturns\n-------\n"
24248"t : rank-2 array('D') with bounds (n,n) and a storage\n"
24249"sdim : int\n"
24250"w : rank-1 array('D') with bounds (n)\n"
24251"vs : rank-2 array('D') with bounds (ldvs,n)\n"
24252"work : rank-1 array('D') with bounds (MAX(lwork,1))\n"
24253"info : int\n"
24254"\nNotes\n-----\nCall-back functions::\n\n"
24255" def zselect(arg): return zselect\n\
24256 Required arguments:\n"
24257" arg : input complex\n"
24258" Return objects:\n"
24259" zselect : int";
24260/* extern void F_FUNC(zgees,ZGEES)(char*,char*,F_INT(*)(complex_double*),F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT,F_INT ); */
24261static PyObject *f2py_rout__flapack_zgees(const PyObject *capi_self,
24262 PyObject *capi_args,
24263 PyObject *capi_keywds,
24264 void (*f2py_func)(char*,char*,F_INTint(*)(complex_double*),F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint,F_INTint )) {
24265 PyObject * volatile capi_buildvalue = NULL((void*)0);
24266 volatile int f2py_success = 1;
24267/*decl*/
24268
24269 int compute_v = 0;
24270 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
24271 int sort_t = 0;
24272 PyObject *sort_t_capi = Py_None(&_Py_NoneStruct);
24273 PyObject *zselect_capi = Py_None(&_Py_NoneStruct);
24274 PyTupleObject *zselect_xa_capi = NULL((void*)0);
24275 PyTupleObject *zselect_args_capi = NULL((void*)0);
24276 int zselect_nofargs_capi = 0;
24277 cb_zselect_in_gees__user__routines_typedef zselect_cptr;
24278 int n = 0;
24279 complex_double *a = NULL((void*)0);
24280 npy_intp a_Dims[2] = {-1, -1};
24281 const int a_Rank = 2;
24282 PyArrayObject *capi_a_tmp = NULL((void*)0);
24283 int capi_a_intent = 0;
24284 int capi_overwrite_a = 0;
24285 PyObject *a_capi = Py_None(&_Py_NoneStruct);
24286 int nrows = 0;
24287 int sdim = 0;
24288 complex_double *w = NULL((void*)0);
24289 npy_intp w_Dims[1] = {-1};
24290 const int w_Rank = 1;
24291 PyArrayObject *capi_w_tmp = NULL((void*)0);
24292 int capi_w_intent = 0;
24293 complex_double *vs = NULL((void*)0);
24294 npy_intp vs_Dims[2] = {-1, -1};
24295 const int vs_Rank = 2;
24296 PyArrayObject *capi_vs_tmp = NULL((void*)0);
24297 int capi_vs_intent = 0;
24298 int ldvs = 0;
24299 complex_double *work = NULL((void*)0);
24300 npy_intp work_Dims[1] = {-1};
24301 const int work_Rank = 1;
24302 PyArrayObject *capi_work_tmp = NULL((void*)0);
24303 int capi_work_intent = 0;
24304 int lwork = 0;
24305 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
24306 double *rwork = NULL((void*)0);
24307 npy_intp rwork_Dims[1] = {-1};
24308 const int rwork_Rank = 1;
24309 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
24310 int capi_rwork_intent = 0;
24311 int *bwork = NULL((void*)0);
24312 npy_intp bwork_Dims[1] = {-1};
24313 const int bwork_Rank = 1;
24314 PyArrayObject *capi_bwork_tmp = NULL((void*)0);
24315 int capi_bwork_intent = 0;
24316 int info = 0;
24317 static char *capi_kwlist[] = {"zselect","a","compute_v","sort_t","lwork","zselect_extra_args","overwrite_a",NULL((void*)0)};
24318
24319/*routdebugenter*/
24320#ifdef F2PY_REPORT_ATEXIT
24321f2py_start_clock();
24322#endif
24323 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
24324 "OO|OOOO!i:_flapack.zgees",\
24325 capi_kwlist,&zselect_capi,&a_capi,&compute_v_capi,&sort_t_capi,&lwork_capi,&PyTuple_Type,&zselect_xa_capi,&capi_overwrite_a))
24326 return NULL((void*)0);
24327/*frompyobj*/
24328 /* Processing variable compute_v */
24329 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
24330 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.zgees() 1st keyword (compute_v) can't be converted to int");
24331 if (f2py_success) {
24332 CHECKSCALAR(compute_v==0||compute_v==1,"compute_v==0||compute_v==1","1st keyword compute_v","zgees:compute_v=%d",compute_v)if (!(compute_v==0||compute_v==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgees:compute_v=%d", "(""compute_v==0||compute_v==1"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
24333 /* Processing variable sort_t */
24334 if (sort_t_capi == Py_None(&_Py_NoneStruct)) sort_t = 0; else
24335 f2py_success = int_from_pyobj(&sort_t,sort_t_capi,"_flapack.zgees() 2nd keyword (sort_t) can't be converted to int");
24336 if (f2py_success) {
24337 CHECKSCALAR(sort_t==0||sort_t==1,"sort_t==0||sort_t==1","2nd keyword sort_t","zgees:sort_t=%d",sort_t)if (!(sort_t==0||sort_t==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgees:sort_t=%d", "(""sort_t==0||sort_t==1"") failed for "
"2nd keyword sort_t", sort_t); PyErr_SetString(_flapack_error
,errstring); } else
{
24338 /* Processing variable zselect */
24339if(F2PyCapsule_Check(zselect_capi)) {
24340 zselect_cptr = F2PyCapsule_AsVoidPtr(zselect_capi);
24341} else {
24342 zselect_cptr = cb_zselect_in_gees__user__routines;
24343}
24344
24345 zselect_nofargs_capi = cb_zselect_in_gees__user__routines_nofargs;
24346 if (create_cb_arglist(zselect_capi,zselect_xa_capi,1,0,&cb_zselect_in_gees__user__routines_nofargs,&zselect_args_capi,"failed in processing argument list for call-back zselect.")) {
24347 jmp_buf zselect_jmpbuf;
24348 CFUNCSMESS("Saving jmpbuf for `zselect`.\n");
24349 SWAP(zselect_capi,cb_zselect_in_gees__user__routines_capi,PyObject){ PyObject *c; c = zselect_capi; zselect_capi = cb_zselect_in_gees__user__routines_capi
; cb_zselect_in_gees__user__routines_capi = c;}
;
24350 SWAP(zselect_args_capi,cb_zselect_in_gees__user__routines_args_capi,PyTupleObject){ PyTupleObject *c; c = zselect_args_capi; zselect_args_capi =
cb_zselect_in_gees__user__routines_args_capi; cb_zselect_in_gees__user__routines_args_capi
= c;}
;
24351 memcpy(&zselect_jmpbuf,&cb_zselect_in_gees__user__routines_jmpbuf,sizeof(jmp_buf));
24352 /* Processing variable a */
24353 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
24354 ;
24355 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
24356 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
24357 if (capi_a_tmp == NULL((void*)0)) {
24358 if (!PyErr_Occurred())
24359 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.zgees to C/Fortran array" );
24360 } else {
24361 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
24362
24363 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","2nd argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""2nd argument a");
} else
{
24364 /* Processing variable sdim */
24365 sdim = 0;
24366 /* Processing variable info */
24367 /* Processing variable n */
24368 n = shape(a,1)a_Dims[1];
24369 /* Processing variable nrows */
24370 nrows = shape(a,0)a_Dims[0];
24371 /* Processing variable w */
24372 w_Dims[0]=n;
24373 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
24374 capi_w_tmp = array_from_pyobj(NPY_CDOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
24375 if (capi_w_tmp == NULL((void*)0)) {
24376 if (!PyErr_Occurred())
24377 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zgees to C/Fortran array" );
24378 } else {
24379 w = (complex_double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
24380
24381 /* Processing variable ldvs */
24382 ldvs = ((compute_v==1)?n:1);
24383 /* Processing variable lwork */
24384 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else
24385 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgees() 3rd keyword (lwork) can't be converted to int");
24386 if (f2py_success) {
24387 CHECKSCALAR((lwork==-1)||(lwork >= MAX(1,2*n)),"(lwork==-1)||(lwork >= MAX(1,2*n))","3rd keyword lwork","zgees:lwork=%d",lwork)if (!((lwork==-1)||(lwork >= ((1 > 2*n) ? (1) : (2*n)))
)) { char errstring[256]; __builtin___sprintf_chk (errstring,
2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zgees:lwork=%d"
, "(""(lwork==-1)||(lwork >= MAX(1,2*n))"") failed for ""3rd keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
24388 /* Processing variable rwork */
24389 rwork_Dims[0]=n;
24390 capi_rwork_intent |= F2PY_INTENT_HIDE8;
24391 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
24392 if (capi_rwork_tmp == NULL((void*)0)) {
24393 if (!PyErr_Occurred())
24394 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgees to C/Fortran array" );
24395 } else {
24396 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
24397
24398 /* Processing variable bwork */
24399 bwork_Dims[0]=n;
24400 capi_bwork_intent |= F2PY_INTENT_HIDE8;
24401 capi_bwork_tmp = array_from_pyobj(NPY_INT,bwork_Dims,bwork_Rank,capi_bwork_intent,Py_None(&_Py_NoneStruct));
24402 if (capi_bwork_tmp == NULL((void*)0)) {
24403 if (!PyErr_Occurred())
24404 PyErr_SetString(_flapack_error,"failed in converting hidden `bwork' of _flapack.zgees to C/Fortran array" );
24405 } else {
24406 bwork = (int *)(PyArray_DATA(capi_bwork_tmp)((void *)((PyArrayObject_fields *)(capi_bwork_tmp))->data));
24407
24408 /* Processing variable vs */
24409 vs_Dims[0]=ldvs,vs_Dims[1]=n;
24410 capi_vs_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
24411 capi_vs_tmp = array_from_pyobj(NPY_CDOUBLE,vs_Dims,vs_Rank,capi_vs_intent,Py_None(&_Py_NoneStruct));
24412 if (capi_vs_tmp == NULL((void*)0)) {
24413 if (!PyErr_Occurred())
24414 PyErr_SetString(_flapack_error,"failed in converting hidden `vs' of _flapack.zgees to C/Fortran array" );
24415 } else {
24416 vs = (complex_double *)(PyArray_DATA(capi_vs_tmp)((void *)((PyArrayObject_fields *)(capi_vs_tmp))->data));
24417
24418 /* Processing variable work */
24419 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
24420 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
24421 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
24422 if (capi_work_tmp == NULL((void*)0)) {
24423 if (!PyErr_Occurred())
24424 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgees to C/Fortran array" );
24425 } else {
24426 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
24427
24428/*end of frompyobj*/
24429#ifdef F2PY_REPORT_ATEXIT
24430f2py_start_call_clock();
24431#endif
24432/*callfortranroutine*/
24433 if ((setjmp(cb_zselect_in_gees__user__routines_jmpbuf)_setjmp (cb_zselect_in_gees__user__routines_jmpbuf))) {
24434 f2py_success = 0;
24435 } else {
24436 (*f2py_func)((compute_v?"V":"N"),(sort_t?"S":"N"),cb_zselect_in_gees__user__routines,&n,a,&nrows,&sdim,w,vs,&ldvs,work,&lwork,rwork,bwork,&info,1,1) ;
24437 /*(*f2py_func)(&compute_v,&sort_t,zselect_cptr,&n,a,&nrows,&sdim,w,vs,&ldvs,work,&lwork,rwork,bwork,&info);*/
24438 }
24439if (PyErr_Occurred())
24440 f2py_success = 0;
24441#ifdef F2PY_REPORT_ATEXIT
24442f2py_stop_call_clock();
24443#endif
24444/*end of callfortranroutine*/
24445 if (f2py_success) {
24446/*pyobjfrom*/
24447/*end of pyobjfrom*/
24448 CFUNCSMESS("Building return value.\n");
24449 capi_buildvalue = Py_BuildValue("NiNNNi",capi_a_tmp,sdim,capi_w_tmp,capi_vs_tmp,capi_work_tmp,info);
24450/*closepyobjfrom*/
24451/*end of closepyobjfrom*/
24452 } /*if (f2py_success) after callfortranroutine*/
24453/*cleanupfrompyobj*/
24454 } /*if (capi_work_tmp == NULL) ... else of work*/
24455 /* End of cleaning variable work */
24456 } /*if (capi_vs_tmp == NULL) ... else of vs*/
24457 /* End of cleaning variable vs */
24458 Py_XDECREF(capi_bwork_tmp)_Py_XDECREF(((PyObject*)(capi_bwork_tmp)));
24459 } /*if (capi_bwork_tmp == NULL) ... else of bwork*/
24460 /* End of cleaning variable bwork */
24461 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
24462 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
24463 /* End of cleaning variable rwork */
24464 } /*CHECKSCALAR((lwork==-1)||(lwork >= MAX(1,2*n)))*/
24465 } /*if (f2py_success) of lwork*/
24466 /* End of cleaning variable lwork */
24467 /* End of cleaning variable ldvs */
24468 } /*if (capi_w_tmp == NULL) ... else of w*/
24469 /* End of cleaning variable w */
24470 /* End of cleaning variable nrows */
24471 /* End of cleaning variable n */
24472 /* End of cleaning variable info */
24473 /* End of cleaning variable sdim */
24474 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
24475 } /*if (capi_a_tmp == NULL) ... else of a*/
24476 /* End of cleaning variable a */
24477 CFUNCSMESS("Restoring jmpbuf for `zselect`.\n");
24478 cb_zselect_in_gees__user__routines_capi = zselect_capi;
24479 Py_DECREF(cb_zselect_in_gees__user__routines_args_capi)_Py_DECREF(((PyObject*)(cb_zselect_in_gees__user__routines_args_capi
)))
;
24480 cb_zselect_in_gees__user__routines_args_capi = zselect_args_capi;
24481 cb_zselect_in_gees__user__routines_nofargs = zselect_nofargs_capi;
24482 memcpy(&cb_zselect_in_gees__user__routines_jmpbuf,&zselect_jmpbuf,sizeof(jmp_buf));
24483 }
24484 /* End of cleaning variable zselect */
24485 } /*CHECKSCALAR(sort_t==0||sort_t==1)*/
24486 } /*if (f2py_success) of sort_t*/
24487 /* End of cleaning variable sort_t */
24488 } /*CHECKSCALAR(compute_v==0||compute_v==1)*/
24489 } /*if (f2py_success) of compute_v*/
24490 /* End of cleaning variable compute_v */
24491/*end of cleanupfrompyobj*/
24492 if (capi_buildvalue == NULL((void*)0)) {
24493/*routdebugfailure*/
24494 } else {
24495/*routdebugleave*/
24496 }
24497 CFUNCSMESS("Freeing memory.\n");
24498/*freemem*/
24499#ifdef F2PY_REPORT_ATEXIT
24500f2py_stop_clock();
24501#endif
24502 return capi_buildvalue;
24503}
24504/******************************** end of zgees ********************************/
24505
24506/*********************************** sgees ***********************************/
24507static char doc_f2py_rout__flapack_sgees[] = "\
24508t,sdim,wr,wi,vs,work,info = sgees(sselect,a,[compute_v,sort_t,lwork,sselect_extra_args,overwrite_a])\n\nWrapper for ``sgees``.\
24509\n\nParameters\n----------\n"
24510"sselect : call-back function\n"
24511"a : input rank-2 array('f') with bounds (n,n)\n"
24512"\nOther Parameters\n----------------\n"
24513"compute_v : input int, optional\n Default: 1\n"
24514"sort_t : input int, optional\n Default: 0\n"
24515"sselect_extra_args : input tuple, optional\n Default: ()\n"
24516"overwrite_a : input int, optional\n Default: 0\n"
24517"lwork : input int, optional\n Default: max(3*n,1)\n"
24518"\nReturns\n-------\n"
24519"t : rank-2 array('f') with bounds (n,n) and a storage\n"
24520"sdim : int\n"
24521"wr : rank-1 array('f') with bounds (n)\n"
24522"wi : rank-1 array('f') with bounds (n)\n"
24523"vs : rank-2 array('f') with bounds (ldvs,n)\n"
24524"work : rank-1 array('f') with bounds (MAX(lwork,1))\n"
24525"info : int\n"
24526"\nNotes\n-----\nCall-back functions::\n\n"
24527" def sselect(arg1,arg2): return sselect\n\
24528 Required arguments:\n"
24529" arg1 : input float\n"
24530" arg2 : input float\n"
24531" Return objects:\n"
24532" sselect : int";
24533/* extern void F_FUNC(sgees,SGEES)(char*,char*,F_INT(*)(float*,float*),F_INT*,float*,F_INT*,F_INT*,float*,float*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT,F_INT ); */
24534static PyObject *f2py_rout__flapack_sgees(const PyObject *capi_self,
24535 PyObject *capi_args,
24536 PyObject *capi_keywds,
24537 void (*f2py_func)(char*,char*,F_INTint(*)(float*,float*),F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint,F_INTint )) {
24538 PyObject * volatile capi_buildvalue = NULL((void*)0);
24539 volatile int f2py_success = 1;
24540/*decl*/
24541
24542 int compute_v = 0;
24543 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
24544 int sort_t = 0;
24545 PyObject *sort_t_capi = Py_None(&_Py_NoneStruct);
24546 PyObject *sselect_capi = Py_None(&_Py_NoneStruct);
24547 PyTupleObject *sselect_xa_capi = NULL((void*)0);
24548 PyTupleObject *sselect_args_capi = NULL((void*)0);
24549 int sselect_nofargs_capi = 0;
24550 cb_sselect_in_gees__user__routines_typedef sselect_cptr;
24551 int n = 0;
24552 float *a = NULL((void*)0);
24553 npy_intp a_Dims[2] = {-1, -1};
24554 const int a_Rank = 2;
24555 PyArrayObject *capi_a_tmp = NULL((void*)0);
24556 int capi_a_intent = 0;
24557 int capi_overwrite_a = 0;
24558 PyObject *a_capi = Py_None(&_Py_NoneStruct);
24559 int nrows = 0;
24560 int sdim = 0;
24561 float *wr = NULL((void*)0);
24562 npy_intp wr_Dims[1] = {-1};
24563 const int wr_Rank = 1;
24564 PyArrayObject *capi_wr_tmp = NULL((void*)0);
24565 int capi_wr_intent = 0;
24566 float *wi = NULL((void*)0);
24567 npy_intp wi_Dims[1] = {-1};
24568 const int wi_Rank = 1;
24569 PyArrayObject *capi_wi_tmp = NULL((void*)0);
24570 int capi_wi_intent = 0;
24571 float *vs = NULL((void*)0);
24572 npy_intp vs_Dims[2] = {-1, -1};
24573 const int vs_Rank = 2;
24574 PyArrayObject *capi_vs_tmp = NULL((void*)0);
24575 int capi_vs_intent = 0;
24576 int ldvs = 0;
24577 float *work = NULL((void*)0);
24578 npy_intp work_Dims[1] = {-1};
24579 const int work_Rank = 1;
24580 PyArrayObject *capi_work_tmp = NULL((void*)0);
24581 int capi_work_intent = 0;
24582 int lwork = 0;
24583 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
24584 int *bwork = NULL((void*)0);
24585 npy_intp bwork_Dims[1] = {-1};
24586 const int bwork_Rank = 1;
24587 PyArrayObject *capi_bwork_tmp = NULL((void*)0);
24588 int capi_bwork_intent = 0;
24589 int info = 0;
24590 static char *capi_kwlist[] = {"sselect","a","compute_v","sort_t","lwork","sselect_extra_args","overwrite_a",NULL((void*)0)};
24591
24592/*routdebugenter*/
24593#ifdef F2PY_REPORT_ATEXIT
24594f2py_start_clock();
24595#endif
24596 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
24597 "OO|OOOO!i:_flapack.sgees",\
24598 capi_kwlist,&sselect_capi,&a_capi,&compute_v_capi,&sort_t_capi,&lwork_capi,&PyTuple_Type,&sselect_xa_capi,&capi_overwrite_a))
24599 return NULL((void*)0);
24600/*frompyobj*/
24601 /* Processing variable compute_v */
24602 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
24603 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.sgees() 1st keyword (compute_v) can't be converted to int");
24604 if (f2py_success) {
24605 CHECKSCALAR(compute_v==0||compute_v==1,"compute_v==0||compute_v==1","1st keyword compute_v","sgees:compute_v=%d",compute_v)if (!(compute_v==0||compute_v==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgees:compute_v=%d", "(""compute_v==0||compute_v==1"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
24606 /* Processing variable sort_t */
24607 if (sort_t_capi == Py_None(&_Py_NoneStruct)) sort_t = 0; else
24608 f2py_success = int_from_pyobj(&sort_t,sort_t_capi,"_flapack.sgees() 2nd keyword (sort_t) can't be converted to int");
24609 if (f2py_success) {
24610 CHECKSCALAR(sort_t==0||sort_t==1,"sort_t==0||sort_t==1","2nd keyword sort_t","sgees:sort_t=%d",sort_t)if (!(sort_t==0||sort_t==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgees:sort_t=%d", "(""sort_t==0||sort_t==1"") failed for "
"2nd keyword sort_t", sort_t); PyErr_SetString(_flapack_error
,errstring); } else
{
24611 /* Processing variable sselect */
24612if(F2PyCapsule_Check(sselect_capi)) {
24613 sselect_cptr = F2PyCapsule_AsVoidPtr(sselect_capi);
24614} else {
24615 sselect_cptr = cb_sselect_in_gees__user__routines;
24616}
24617
24618 sselect_nofargs_capi = cb_sselect_in_gees__user__routines_nofargs;
24619 if (create_cb_arglist(sselect_capi,sselect_xa_capi,2,0,&cb_sselect_in_gees__user__routines_nofargs,&sselect_args_capi,"failed in processing argument list for call-back sselect.")) {
24620 jmp_buf sselect_jmpbuf;
24621 CFUNCSMESS("Saving jmpbuf for `sselect`.\n");
24622 SWAP(sselect_capi,cb_sselect_in_gees__user__routines_capi,PyObject){ PyObject *c; c = sselect_capi; sselect_capi = cb_sselect_in_gees__user__routines_capi
; cb_sselect_in_gees__user__routines_capi = c;}
;
24623 SWAP(sselect_args_capi,cb_sselect_in_gees__user__routines_args_capi,PyTupleObject){ PyTupleObject *c; c = sselect_args_capi; sselect_args_capi =
cb_sselect_in_gees__user__routines_args_capi; cb_sselect_in_gees__user__routines_args_capi
= c;}
;
24624 memcpy(&sselect_jmpbuf,&cb_sselect_in_gees__user__routines_jmpbuf,sizeof(jmp_buf));
24625 /* Processing variable a */
24626 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
24627 ;
24628 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
24629 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
24630 if (capi_a_tmp == NULL((void*)0)) {
24631 if (!PyErr_Occurred())
24632 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.sgees to C/Fortran array" );
24633 } else {
24634 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
24635
24636 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","2nd argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""2nd argument a");
} else
{
24637 /* Processing variable sdim */
24638 sdim = 0;
24639 /* Processing variable info */
24640 /* Processing variable n */
24641 n = shape(a,1)a_Dims[1];
24642 /* Processing variable nrows */
24643 nrows = shape(a,0)a_Dims[0];
24644 /* Processing variable wr */
24645 wr_Dims[0]=n;
24646 capi_wr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
24647 capi_wr_tmp = array_from_pyobj(NPY_FLOAT,wr_Dims,wr_Rank,capi_wr_intent,Py_None(&_Py_NoneStruct));
24648 if (capi_wr_tmp == NULL((void*)0)) {
24649 if (!PyErr_Occurred())
24650 PyErr_SetString(_flapack_error,"failed in converting hidden `wr' of _flapack.sgees to C/Fortran array" );
24651 } else {
24652 wr = (float *)(PyArray_DATA(capi_wr_tmp)((void *)((PyArrayObject_fields *)(capi_wr_tmp))->data));
24653
24654 /* Processing variable wi */
24655 wi_Dims[0]=n;
24656 capi_wi_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
24657 capi_wi_tmp = array_from_pyobj(NPY_FLOAT,wi_Dims,wi_Rank,capi_wi_intent,Py_None(&_Py_NoneStruct));
24658 if (capi_wi_tmp == NULL((void*)0)) {
24659 if (!PyErr_Occurred())
24660 PyErr_SetString(_flapack_error,"failed in converting hidden `wi' of _flapack.sgees to C/Fortran array" );
24661 } else {
24662 wi = (float *)(PyArray_DATA(capi_wi_tmp)((void *)((PyArrayObject_fields *)(capi_wi_tmp))->data));
24663
24664 /* Processing variable ldvs */
24665 ldvs = ((compute_v==1)?n:1);
24666 /* Processing variable lwork */
24667 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else
24668 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgees() 3rd keyword (lwork) can't be converted to int");
24669 if (f2py_success) {
24670 CHECKSCALAR((lwork==-1)||(lwork >= MAX(1,2*n)),"(lwork==-1)||(lwork >= MAX(1,2*n))","3rd keyword lwork","sgees:lwork=%d",lwork)if (!((lwork==-1)||(lwork >= ((1 > 2*n) ? (1) : (2*n)))
)) { char errstring[256]; __builtin___sprintf_chk (errstring,
2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sgees:lwork=%d"
, "(""(lwork==-1)||(lwork >= MAX(1,2*n))"") failed for ""3rd keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
24671 /* Processing variable bwork */
24672 bwork_Dims[0]=n;
24673 capi_bwork_intent |= F2PY_INTENT_HIDE8;
24674 capi_bwork_tmp = array_from_pyobj(NPY_INT,bwork_Dims,bwork_Rank,capi_bwork_intent,Py_None(&_Py_NoneStruct));
24675 if (capi_bwork_tmp == NULL((void*)0)) {
24676 if (!PyErr_Occurred())
24677 PyErr_SetString(_flapack_error,"failed in converting hidden `bwork' of _flapack.sgees to C/Fortran array" );
24678 } else {
24679 bwork = (int *)(PyArray_DATA(capi_bwork_tmp)((void *)((PyArrayObject_fields *)(capi_bwork_tmp))->data));
24680
24681 /* Processing variable vs */
24682 vs_Dims[0]=ldvs,vs_Dims[1]=n;
24683 capi_vs_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
24684 capi_vs_tmp = array_from_pyobj(NPY_FLOAT,vs_Dims,vs_Rank,capi_vs_intent,Py_None(&_Py_NoneStruct));
24685 if (capi_vs_tmp == NULL((void*)0)) {
24686 if (!PyErr_Occurred())
24687 PyErr_SetString(_flapack_error,"failed in converting hidden `vs' of _flapack.sgees to C/Fortran array" );
24688 } else {
24689 vs = (float *)(PyArray_DATA(capi_vs_tmp)((void *)((PyArrayObject_fields *)(capi_vs_tmp))->data));
24690
24691 /* Processing variable work */
24692 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
24693 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
24694 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
24695 if (capi_work_tmp == NULL((void*)0)) {
24696 if (!PyErr_Occurred())
24697 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgees to C/Fortran array" );
24698 } else {
24699 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
24700
24701/*end of frompyobj*/
24702#ifdef F2PY_REPORT_ATEXIT
24703f2py_start_call_clock();
24704#endif
24705/*callfortranroutine*/
24706 if ((setjmp(cb_sselect_in_gees__user__routines_jmpbuf)_setjmp (cb_sselect_in_gees__user__routines_jmpbuf))) {
24707 f2py_success = 0;
24708 } else {
24709 (*f2py_func)((compute_v?"V":"N"),(sort_t?"S":"N"),cb_sselect_in_gees__user__routines,&n,a,&nrows,&sdim,wr,wi,vs,&ldvs,work,&lwork,bwork,&info,1,1) ;
24710 /*(*f2py_func)(&compute_v,&sort_t,sselect_cptr,&n,a,&nrows,&sdim,wr,wi,vs,&ldvs,work,&lwork,bwork,&info);*/
24711 }
24712if (PyErr_Occurred())
24713 f2py_success = 0;
24714#ifdef F2PY_REPORT_ATEXIT
24715f2py_stop_call_clock();
24716#endif
24717/*end of callfortranroutine*/
24718 if (f2py_success) {
24719/*pyobjfrom*/
24720/*end of pyobjfrom*/
24721 CFUNCSMESS("Building return value.\n");
24722 capi_buildvalue = Py_BuildValue("NiNNNNi",capi_a_tmp,sdim,capi_wr_tmp,capi_wi_tmp,capi_vs_tmp,capi_work_tmp,info);
24723/*closepyobjfrom*/
24724/*end of closepyobjfrom*/
24725 } /*if (f2py_success) after callfortranroutine*/
24726/*cleanupfrompyobj*/
24727 } /*if (capi_work_tmp == NULL) ... else of work*/
24728 /* End of cleaning variable work */
24729 } /*if (capi_vs_tmp == NULL) ... else of vs*/
24730 /* End of cleaning variable vs */
24731 Py_XDECREF(capi_bwork_tmp)_Py_XDECREF(((PyObject*)(capi_bwork_tmp)));
24732 } /*if (capi_bwork_tmp == NULL) ... else of bwork*/
24733 /* End of cleaning variable bwork */
24734 } /*CHECKSCALAR((lwork==-1)||(lwork >= MAX(1,2*n)))*/
24735 } /*if (f2py_success) of lwork*/
24736 /* End of cleaning variable lwork */
24737 /* End of cleaning variable ldvs */
24738 } /*if (capi_wi_tmp == NULL) ... else of wi*/
24739 /* End of cleaning variable wi */
24740 } /*if (capi_wr_tmp == NULL) ... else of wr*/
24741 /* End of cleaning variable wr */
24742 /* End of cleaning variable nrows */
24743 /* End of cleaning variable n */
24744 /* End of cleaning variable info */
24745 /* End of cleaning variable sdim */
24746 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
24747 } /*if (capi_a_tmp == NULL) ... else of a*/
24748 /* End of cleaning variable a */
24749 CFUNCSMESS("Restoring jmpbuf for `sselect`.\n");
24750 cb_sselect_in_gees__user__routines_capi = sselect_capi;
24751 Py_DECREF(cb_sselect_in_gees__user__routines_args_capi)_Py_DECREF(((PyObject*)(cb_sselect_in_gees__user__routines_args_capi
)))
;
24752 cb_sselect_in_gees__user__routines_args_capi = sselect_args_capi;
24753 cb_sselect_in_gees__user__routines_nofargs = sselect_nofargs_capi;
24754 memcpy(&cb_sselect_in_gees__user__routines_jmpbuf,&sselect_jmpbuf,sizeof(jmp_buf));
24755 }
24756 /* End of cleaning variable sselect */
24757 } /*CHECKSCALAR(sort_t==0||sort_t==1)*/
24758 } /*if (f2py_success) of sort_t*/
24759 /* End of cleaning variable sort_t */
24760 } /*CHECKSCALAR(compute_v==0||compute_v==1)*/
24761 } /*if (f2py_success) of compute_v*/
24762 /* End of cleaning variable compute_v */
24763/*end of cleanupfrompyobj*/
24764 if (capi_buildvalue == NULL((void*)0)) {
24765/*routdebugfailure*/
24766 } else {
24767/*routdebugleave*/
24768 }
24769 CFUNCSMESS("Freeing memory.\n");
24770/*freemem*/
24771#ifdef F2PY_REPORT_ATEXIT
24772f2py_stop_clock();
24773#endif
24774 return capi_buildvalue;
24775}
24776/******************************** end of sgees ********************************/
24777
24778/*********************************** dgees ***********************************/
24779static char doc_f2py_rout__flapack_dgees[] = "\
24780t,sdim,wr,wi,vs,work,info = dgees(dselect,a,[compute_v,sort_t,lwork,dselect_extra_args,overwrite_a])\n\nWrapper for ``dgees``.\
24781\n\nParameters\n----------\n"
24782"dselect : call-back function\n"
24783"a : input rank-2 array('d') with bounds (n,n)\n"
24784"\nOther Parameters\n----------------\n"
24785"compute_v : input int, optional\n Default: 1\n"
24786"sort_t : input int, optional\n Default: 0\n"
24787"dselect_extra_args : input tuple, optional\n Default: ()\n"
24788"overwrite_a : input int, optional\n Default: 0\n"
24789"lwork : input int, optional\n Default: max(3*n,1)\n"
24790"\nReturns\n-------\n"
24791"t : rank-2 array('d') with bounds (n,n) and a storage\n"
24792"sdim : int\n"
24793"wr : rank-1 array('d') with bounds (n)\n"
24794"wi : rank-1 array('d') with bounds (n)\n"
24795"vs : rank-2 array('d') with bounds (ldvs,n)\n"
24796"work : rank-1 array('d') with bounds (MAX(lwork,1))\n"
24797"info : int\n"
24798"\nNotes\n-----\nCall-back functions::\n\n"
24799" def dselect(arg1,arg2): return dselect\n\
24800 Required arguments:\n"
24801" arg1 : input float\n"
24802" arg2 : input float\n"
24803" Return objects:\n"
24804" dselect : int";
24805/* extern void F_FUNC(dgees,DGEES)(char*,char*,F_INT(*)(double*,double*),F_INT*,double*,F_INT*,F_INT*,double*,double*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT,F_INT ); */
24806static PyObject *f2py_rout__flapack_dgees(const PyObject *capi_self,
24807 PyObject *capi_args,
24808 PyObject *capi_keywds,
24809 void (*f2py_func)(char*,char*,F_INTint(*)(double*,double*),F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint,F_INTint )) {
24810 PyObject * volatile capi_buildvalue = NULL((void*)0);
24811 volatile int f2py_success = 1;
24812/*decl*/
24813
24814 int compute_v = 0;
24815 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
24816 int sort_t = 0;
24817 PyObject *sort_t_capi = Py_None(&_Py_NoneStruct);
24818 PyObject *dselect_capi = Py_None(&_Py_NoneStruct);
24819 PyTupleObject *dselect_xa_capi = NULL((void*)0);
24820 PyTupleObject *dselect_args_capi = NULL((void*)0);
24821 int dselect_nofargs_capi = 0;
24822 cb_dselect_in_gees__user__routines_typedef dselect_cptr;
24823 int n = 0;
24824 double *a = NULL((void*)0);
24825 npy_intp a_Dims[2] = {-1, -1};
24826 const int a_Rank = 2;
24827 PyArrayObject *capi_a_tmp = NULL((void*)0);
24828 int capi_a_intent = 0;
24829 int capi_overwrite_a = 0;
24830 PyObject *a_capi = Py_None(&_Py_NoneStruct);
24831 int nrows = 0;
24832 int sdim = 0;
24833 double *wr = NULL((void*)0);
24834 npy_intp wr_Dims[1] = {-1};
24835 const int wr_Rank = 1;
24836 PyArrayObject *capi_wr_tmp = NULL((void*)0);
24837 int capi_wr_intent = 0;
24838 double *wi = NULL((void*)0);
24839 npy_intp wi_Dims[1] = {-1};
24840 const int wi_Rank = 1;
24841 PyArrayObject *capi_wi_tmp = NULL((void*)0);
24842 int capi_wi_intent = 0;
24843 double *vs = NULL((void*)0);
24844 npy_intp vs_Dims[2] = {-1, -1};
24845 const int vs_Rank = 2;
24846 PyArrayObject *capi_vs_tmp = NULL((void*)0);
24847 int capi_vs_intent = 0;
24848 int ldvs = 0;
24849 double *work = NULL((void*)0);
24850 npy_intp work_Dims[1] = {-1};
24851 const int work_Rank = 1;
24852 PyArrayObject *capi_work_tmp = NULL((void*)0);
24853 int capi_work_intent = 0;
24854 int lwork = 0;
24855 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
24856 int *bwork = NULL((void*)0);
24857 npy_intp bwork_Dims[1] = {-1};
24858 const int bwork_Rank = 1;
24859 PyArrayObject *capi_bwork_tmp = NULL((void*)0);
24860 int capi_bwork_intent = 0;
24861 int info = 0;
24862 static char *capi_kwlist[] = {"dselect","a","compute_v","sort_t","lwork","dselect_extra_args","overwrite_a",NULL((void*)0)};
24863
24864/*routdebugenter*/
24865#ifdef F2PY_REPORT_ATEXIT
24866f2py_start_clock();
24867#endif
24868 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
24869 "OO|OOOO!i:_flapack.dgees",\
24870 capi_kwlist,&dselect_capi,&a_capi,&compute_v_capi,&sort_t_capi,&lwork_capi,&PyTuple_Type,&dselect_xa_capi,&capi_overwrite_a))
24871 return NULL((void*)0);
24872/*frompyobj*/
24873 /* Processing variable compute_v */
24874 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
24875 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dgees() 1st keyword (compute_v) can't be converted to int");
24876 if (f2py_success) {
24877 CHECKSCALAR(compute_v==0||compute_v==1,"compute_v==0||compute_v==1","1st keyword compute_v","dgees:compute_v=%d",compute_v)if (!(compute_v==0||compute_v==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgees:compute_v=%d", "(""compute_v==0||compute_v==1"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
24878 /* Processing variable sort_t */
24879 if (sort_t_capi == Py_None(&_Py_NoneStruct)) sort_t = 0; else
24880 f2py_success = int_from_pyobj(&sort_t,sort_t_capi,"_flapack.dgees() 2nd keyword (sort_t) can't be converted to int");
24881 if (f2py_success) {
24882 CHECKSCALAR(sort_t==0||sort_t==1,"sort_t==0||sort_t==1","2nd keyword sort_t","dgees:sort_t=%d",sort_t)if (!(sort_t==0||sort_t==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgees:sort_t=%d", "(""sort_t==0||sort_t==1"") failed for "
"2nd keyword sort_t", sort_t); PyErr_SetString(_flapack_error
,errstring); } else
{
24883 /* Processing variable dselect */
24884if(F2PyCapsule_Check(dselect_capi)) {
24885 dselect_cptr = F2PyCapsule_AsVoidPtr(dselect_capi);
24886} else {
24887 dselect_cptr = cb_dselect_in_gees__user__routines;
24888}
24889
24890 dselect_nofargs_capi = cb_dselect_in_gees__user__routines_nofargs;
24891 if (create_cb_arglist(dselect_capi,dselect_xa_capi,2,0,&cb_dselect_in_gees__user__routines_nofargs,&dselect_args_capi,"failed in processing argument list for call-back dselect.")) {
24892 jmp_buf dselect_jmpbuf;
24893 CFUNCSMESS("Saving jmpbuf for `dselect`.\n");
24894 SWAP(dselect_capi,cb_dselect_in_gees__user__routines_capi,PyObject){ PyObject *c; c = dselect_capi; dselect_capi = cb_dselect_in_gees__user__routines_capi
; cb_dselect_in_gees__user__routines_capi = c;}
;
24895 SWAP(dselect_args_capi,cb_dselect_in_gees__user__routines_args_capi,PyTupleObject){ PyTupleObject *c; c = dselect_args_capi; dselect_args_capi =
cb_dselect_in_gees__user__routines_args_capi; cb_dselect_in_gees__user__routines_args_capi
= c;}
;
24896 memcpy(&dselect_jmpbuf,&cb_dselect_in_gees__user__routines_jmpbuf,sizeof(jmp_buf));
24897 /* Processing variable a */
24898 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
24899 ;
24900 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
24901 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
24902 if (capi_a_tmp == NULL((void*)0)) {
24903 if (!PyErr_Occurred())
24904 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.dgees to C/Fortran array" );
24905 } else {
24906 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
24907
24908 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","2nd argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""2nd argument a");
} else
{
24909 /* Processing variable sdim */
24910 sdim = 0;
24911 /* Processing variable info */
24912 /* Processing variable n */
24913 n = shape(a,1)a_Dims[1];
24914 /* Processing variable nrows */
24915 nrows = shape(a,0)a_Dims[0];
24916 /* Processing variable wr */
24917 wr_Dims[0]=n;
24918 capi_wr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
24919 capi_wr_tmp = array_from_pyobj(NPY_DOUBLE,wr_Dims,wr_Rank,capi_wr_intent,Py_None(&_Py_NoneStruct));
24920 if (capi_wr_tmp == NULL((void*)0)) {
24921 if (!PyErr_Occurred())
24922 PyErr_SetString(_flapack_error,"failed in converting hidden `wr' of _flapack.dgees to C/Fortran array" );
24923 } else {
24924 wr = (double *)(PyArray_DATA(capi_wr_tmp)((void *)((PyArrayObject_fields *)(capi_wr_tmp))->data));
24925
24926 /* Processing variable wi */
24927 wi_Dims[0]=n;
24928 capi_wi_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
24929 capi_wi_tmp = array_from_pyobj(NPY_DOUBLE,wi_Dims,wi_Rank,capi_wi_intent,Py_None(&_Py_NoneStruct));
24930 if (capi_wi_tmp == NULL((void*)0)) {
24931 if (!PyErr_Occurred())
24932 PyErr_SetString(_flapack_error,"failed in converting hidden `wi' of _flapack.dgees to C/Fortran array" );
24933 } else {
24934 wi = (double *)(PyArray_DATA(capi_wi_tmp)((void *)((PyArrayObject_fields *)(capi_wi_tmp))->data));
24935
24936 /* Processing variable ldvs */
24937 ldvs = ((compute_v==1)?n:1);
24938 /* Processing variable lwork */
24939 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else
24940 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgees() 3rd keyword (lwork) can't be converted to int");
24941 if (f2py_success) {
24942 CHECKSCALAR((lwork==-1)||(lwork >= MAX(1,2*n)),"(lwork==-1)||(lwork >= MAX(1,2*n))","3rd keyword lwork","dgees:lwork=%d",lwork)if (!((lwork==-1)||(lwork >= ((1 > 2*n) ? (1) : (2*n)))
)) { char errstring[256]; __builtin___sprintf_chk (errstring,
2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dgees:lwork=%d"
, "(""(lwork==-1)||(lwork >= MAX(1,2*n))"") failed for ""3rd keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
24943 /* Processing variable bwork */
24944 bwork_Dims[0]=n;
24945 capi_bwork_intent |= F2PY_INTENT_HIDE8;
24946 capi_bwork_tmp = array_from_pyobj(NPY_INT,bwork_Dims,bwork_Rank,capi_bwork_intent,Py_None(&_Py_NoneStruct));
24947 if (capi_bwork_tmp == NULL((void*)0)) {
24948 if (!PyErr_Occurred())
24949 PyErr_SetString(_flapack_error,"failed in converting hidden `bwork' of _flapack.dgees to C/Fortran array" );
24950 } else {
24951 bwork = (int *)(PyArray_DATA(capi_bwork_tmp)((void *)((PyArrayObject_fields *)(capi_bwork_tmp))->data));
24952
24953 /* Processing variable vs */
24954 vs_Dims[0]=ldvs,vs_Dims[1]=n;
24955 capi_vs_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
24956 capi_vs_tmp = array_from_pyobj(NPY_DOUBLE,vs_Dims,vs_Rank,capi_vs_intent,Py_None(&_Py_NoneStruct));
24957 if (capi_vs_tmp == NULL((void*)0)) {
24958 if (!PyErr_Occurred())
24959 PyErr_SetString(_flapack_error,"failed in converting hidden `vs' of _flapack.dgees to C/Fortran array" );
24960 } else {
24961 vs = (double *)(PyArray_DATA(capi_vs_tmp)((void *)((PyArrayObject_fields *)(capi_vs_tmp))->data));
24962
24963 /* Processing variable work */
24964 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
24965 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
24966 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
24967 if (capi_work_tmp == NULL((void*)0)) {
24968 if (!PyErr_Occurred())
24969 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgees to C/Fortran array" );
24970 } else {
24971 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
24972
24973/*end of frompyobj*/
24974#ifdef F2PY_REPORT_ATEXIT
24975f2py_start_call_clock();
24976#endif
24977/*callfortranroutine*/
24978 if ((setjmp(cb_dselect_in_gees__user__routines_jmpbuf)_setjmp (cb_dselect_in_gees__user__routines_jmpbuf))) {
24979 f2py_success = 0;
24980 } else {
24981 (*f2py_func)((compute_v?"V":"N"),(sort_t?"S":"N"),cb_dselect_in_gees__user__routines,&n,a,&nrows,&sdim,wr,wi,vs,&ldvs,work,&lwork,bwork,&info,1,1) ;
24982 /*(*f2py_func)(&compute_v,&sort_t,dselect_cptr,&n,a,&nrows,&sdim,wr,wi,vs,&ldvs,work,&lwork,bwork,&info);*/
24983 }
24984if (PyErr_Occurred())
24985 f2py_success = 0;
24986#ifdef F2PY_REPORT_ATEXIT
24987f2py_stop_call_clock();
24988#endif
24989/*end of callfortranroutine*/
24990 if (f2py_success) {
24991/*pyobjfrom*/
24992/*end of pyobjfrom*/
24993 CFUNCSMESS("Building return value.\n");
24994 capi_buildvalue = Py_BuildValue("NiNNNNi",capi_a_tmp,sdim,capi_wr_tmp,capi_wi_tmp,capi_vs_tmp,capi_work_tmp,info);
24995/*closepyobjfrom*/
24996/*end of closepyobjfrom*/
24997 } /*if (f2py_success) after callfortranroutine*/
24998/*cleanupfrompyobj*/
24999 } /*if (capi_work_tmp == NULL) ... else of work*/
25000 /* End of cleaning variable work */
25001 } /*if (capi_vs_tmp == NULL) ... else of vs*/
25002 /* End of cleaning variable vs */
25003 Py_XDECREF(capi_bwork_tmp)_Py_XDECREF(((PyObject*)(capi_bwork_tmp)));
25004 } /*if (capi_bwork_tmp == NULL) ... else of bwork*/
25005 /* End of cleaning variable bwork */
25006 } /*CHECKSCALAR((lwork==-1)||(lwork >= MAX(1,2*n)))*/
25007 } /*if (f2py_success) of lwork*/
25008 /* End of cleaning variable lwork */
25009 /* End of cleaning variable ldvs */
25010 } /*if (capi_wi_tmp == NULL) ... else of wi*/
25011 /* End of cleaning variable wi */
25012 } /*if (capi_wr_tmp == NULL) ... else of wr*/
25013 /* End of cleaning variable wr */
25014 /* End of cleaning variable nrows */
25015 /* End of cleaning variable n */
25016 /* End of cleaning variable info */
25017 /* End of cleaning variable sdim */
25018 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
25019 } /*if (capi_a_tmp == NULL) ... else of a*/
25020 /* End of cleaning variable a */
25021 CFUNCSMESS("Restoring jmpbuf for `dselect`.\n");
25022 cb_dselect_in_gees__user__routines_capi = dselect_capi;
25023 Py_DECREF(cb_dselect_in_gees__user__routines_args_capi)_Py_DECREF(((PyObject*)(cb_dselect_in_gees__user__routines_args_capi
)))
;
25024 cb_dselect_in_gees__user__routines_args_capi = dselect_args_capi;
25025 cb_dselect_in_gees__user__routines_nofargs = dselect_nofargs_capi;
25026 memcpy(&cb_dselect_in_gees__user__routines_jmpbuf,&dselect_jmpbuf,sizeof(jmp_buf));
25027 }
25028 /* End of cleaning variable dselect */
25029 } /*CHECKSCALAR(sort_t==0||sort_t==1)*/
25030 } /*if (f2py_success) of sort_t*/
25031 /* End of cleaning variable sort_t */
25032 } /*CHECKSCALAR(compute_v==0||compute_v==1)*/
25033 } /*if (f2py_success) of compute_v*/
25034 /* End of cleaning variable compute_v */
25035/*end of cleanupfrompyobj*/
25036 if (capi_buildvalue == NULL((void*)0)) {
25037/*routdebugfailure*/
25038 } else {
25039/*routdebugleave*/
25040 }
25041 CFUNCSMESS("Freeing memory.\n");
25042/*freemem*/
25043#ifdef F2PY_REPORT_ATEXIT
25044f2py_stop_clock();
25045#endif
25046 return capi_buildvalue;
25047}
25048/******************************** end of dgees ********************************/
25049
25050/*********************************** sgges ***********************************/
25051static char doc_f2py_rout__flapack_sgges[] = "\
25052a,b,sdim,alphar,alphai,beta,vsl,vsr,work,info = sgges(sselect,a,b,[jobvsl,jobvsr,sort_t,ldvsl,ldvsr,lwork,sselect_extra_args,overwrite_a,overwrite_b])\n\nWrapper for ``sgges``.\
25053\n\nParameters\n----------\n"
25054"sselect : call-back function\n"
25055"a : input rank-2 array('f') with bounds (lda,n)\n"
25056"b : input rank-2 array('f') with bounds (ldb,n)\n"
25057"\nOther Parameters\n----------------\n"
25058"jobvsl : input int, optional\n Default: 1\n"
25059"jobvsr : input int, optional\n Default: 1\n"
25060"sort_t : input int, optional\n Default: 0\n"
25061"sselect_extra_args : input tuple, optional\n Default: ()\n"
25062"overwrite_a : input int, optional\n Default: 0\n"
25063"overwrite_b : input int, optional\n Default: 0\n"
25064"ldvsl : input int, optional\n Default: ((jobvsl==1)?n:1)\n"
25065"ldvsr : input int, optional\n Default: ((jobvsr==1)?n:1)\n"
25066"lwork : input int, optional\n Default: max(8*n+16,1)\n"
25067"\nReturns\n-------\n"
25068"a : rank-2 array('f') with bounds (lda,n)\n"
25069"b : rank-2 array('f') with bounds (ldb,n)\n"
25070"sdim : int\n"
25071"alphar : rank-1 array('f') with bounds (n)\n"
25072"alphai : rank-1 array('f') with bounds (n)\n"
25073"beta : rank-1 array('f') with bounds (n)\n"
25074"vsl : rank-2 array('f') with bounds (ldvsl,n)\n"
25075"vsr : rank-2 array('f') with bounds (ldvsr,n)\n"
25076"work : rank-1 array('f') with bounds (MAX(lwork,1))\n"
25077"info : int\n"
25078"\nNotes\n-----\nCall-back functions::\n\n"
25079" def sselect(alphar,alphai,beta): return sselect\n\
25080 Required arguments:\n"
25081" alphar : input float\n"
25082" alphai : input float\n"
25083" beta : input float\n"
25084" Return objects:\n"
25085" sselect : int";
25086/* extern void F_FUNC(sgges,SGGES)(char*,char*,char*,F_INT(*)(float*,float*,float*),F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,float*,float*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */
25087static PyObject *f2py_rout__flapack_sgges(const PyObject *capi_self,
25088 PyObject *capi_args,
25089 PyObject *capi_keywds,
25090 void (*f2py_func)(char*,char*,char*,F_INTint(*)(float*,float*,float*),F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) {
25091 PyObject * volatile capi_buildvalue = NULL((void*)0);
25092 volatile int f2py_success = 1;
25093/*decl*/
25094
25095 int jobvsl = 0;
25096 PyObject *jobvsl_capi = Py_None(&_Py_NoneStruct);
25097 int jobvsr = 0;
25098 PyObject *jobvsr_capi = Py_None(&_Py_NoneStruct);
25099 int sort_t = 0;
25100 PyObject *sort_t_capi = Py_None(&_Py_NoneStruct);
25101 PyObject *sselect_capi = Py_None(&_Py_NoneStruct);
25102 PyTupleObject *sselect_xa_capi = NULL((void*)0);
25103 PyTupleObject *sselect_args_capi = NULL((void*)0);
25104 int sselect_nofargs_capi = 0;
25105 cb_sselect_in_gges__user__routines_typedef sselect_cptr;
25106 int n = 0;
25107 float *a = NULL((void*)0);
25108 npy_intp a_Dims[2] = {-1, -1};
25109 const int a_Rank = 2;
25110 PyArrayObject *capi_a_tmp = NULL((void*)0);
25111 int capi_a_intent = 0;
25112 int capi_overwrite_a = 0;
25113 PyObject *a_capi = Py_None(&_Py_NoneStruct);
25114 int lda = 0;
25115 float *b = NULL((void*)0);
25116 npy_intp b_Dims[2] = {-1, -1};
25117 const int b_Rank = 2;
25118 PyArrayObject *capi_b_tmp = NULL((void*)0);
25119 int capi_b_intent = 0;
25120 int capi_overwrite_b = 0;
25121 PyObject *b_capi = Py_None(&_Py_NoneStruct);
25122 int ldb = 0;
25123 int sdim = 0;
25124 float *alphar = NULL((void*)0);
25125 npy_intp alphar_Dims[1] = {-1};
25126 const int alphar_Rank = 1;
25127 PyArrayObject *capi_alphar_tmp = NULL((void*)0);
25128 int capi_alphar_intent = 0;
25129 float *alphai = NULL((void*)0);
25130 npy_intp alphai_Dims[1] = {-1};
25131 const int alphai_Rank = 1;
25132 PyArrayObject *capi_alphai_tmp = NULL((void*)0);
25133 int capi_alphai_intent = 0;
25134 float *beta = NULL((void*)0);
25135 npy_intp beta_Dims[1] = {-1};
25136 const int beta_Rank = 1;
25137 PyArrayObject *capi_beta_tmp = NULL((void*)0);
25138 int capi_beta_intent = 0;
25139 float *vsl = NULL((void*)0);
25140 npy_intp vsl_Dims[2] = {-1, -1};
25141 const int vsl_Rank = 2;
25142 PyArrayObject *capi_vsl_tmp = NULL((void*)0);
25143 int capi_vsl_intent = 0;
25144 int ldvsl = 0;
25145 PyObject *ldvsl_capi = Py_None(&_Py_NoneStruct);
25146 float *vsr = NULL((void*)0);
25147 npy_intp vsr_Dims[2] = {-1, -1};
25148 const int vsr_Rank = 2;
25149 PyArrayObject *capi_vsr_tmp = NULL((void*)0);
25150 int capi_vsr_intent = 0;
25151 int ldvsr = 0;
25152 PyObject *ldvsr_capi = Py_None(&_Py_NoneStruct);
25153 float *work = NULL((void*)0);
25154 npy_intp work_Dims[1] = {-1};
25155 const int work_Rank = 1;
25156 PyArrayObject *capi_work_tmp = NULL((void*)0);
25157 int capi_work_intent = 0;
25158 int lwork = 0;
25159 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
25160 int *bwork = NULL((void*)0);
25161 npy_intp bwork_Dims[1] = {-1};
25162 const int bwork_Rank = 1;
25163 PyArrayObject *capi_bwork_tmp = NULL((void*)0);
25164 int capi_bwork_intent = 0;
25165 int info = 0;
25166 static char *capi_kwlist[] = {"sselect","a","b","jobvsl","jobvsr","sort_t","ldvsl","ldvsr","lwork","sselect_extra_args","overwrite_a","overwrite_b",NULL((void*)0)};
25167
25168/*routdebugenter*/
25169#ifdef F2PY_REPORT_ATEXIT
25170f2py_start_clock();
25171#endif
25172 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
25173 "OOO|OOOOOOO!ii:_flapack.sgges",\
25174 capi_kwlist,&sselect_capi,&a_capi,&b_capi,&jobvsl_capi,&jobvsr_capi,&sort_t_capi,&ldvsl_capi,&ldvsr_capi,&lwork_capi,&PyTuple_Type,&sselect_xa_capi,&capi_overwrite_a,&capi_overwrite_b))
25175 return NULL((void*)0);
25176/*frompyobj*/
25177 /* Processing variable jobvsl */
25178 if (jobvsl_capi == Py_None(&_Py_NoneStruct)) jobvsl = 1; else
25179 f2py_success = int_from_pyobj(&jobvsl,jobvsl_capi,"_flapack.sgges() 1st keyword (jobvsl) can't be converted to int");
25180 if (f2py_success) {
25181 CHECKSCALAR(jobvsl==0||jobvsl==1,"jobvsl==0||jobvsl==1","1st keyword jobvsl","sgges:jobvsl=%d",jobvsl)if (!(jobvsl==0||jobvsl==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgges:jobvsl=%d", "(""jobvsl==0||jobvsl==1"") failed for "
"1st keyword jobvsl", jobvsl); PyErr_SetString(_flapack_error
,errstring); } else
{
25182 /* Processing variable jobvsr */
25183 if (jobvsr_capi == Py_None(&_Py_NoneStruct)) jobvsr = 1; else
25184 f2py_success = int_from_pyobj(&jobvsr,jobvsr_capi,"_flapack.sgges() 2nd keyword (jobvsr) can't be converted to int");
25185 if (f2py_success) {
25186 CHECKSCALAR(jobvsr==0||jobvsr==1,"jobvsr==0||jobvsr==1","2nd keyword jobvsr","sgges:jobvsr=%d",jobvsr)if (!(jobvsr==0||jobvsr==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgges:jobvsr=%d", "(""jobvsr==0||jobvsr==1"") failed for "
"2nd keyword jobvsr", jobvsr); PyErr_SetString(_flapack_error
,errstring); } else
{
25187 /* Processing variable sort_t */
25188 if (sort_t_capi == Py_None(&_Py_NoneStruct)) sort_t = 0; else
25189 f2py_success = int_from_pyobj(&sort_t,sort_t_capi,"_flapack.sgges() 3rd keyword (sort_t) can't be converted to int");
25190 if (f2py_success) {
25191 CHECKSCALAR(sort_t==0||sort_t==1,"sort_t==0||sort_t==1","3rd keyword sort_t","sgges:sort_t=%d",sort_t)if (!(sort_t==0||sort_t==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgges:sort_t=%d", "(""sort_t==0||sort_t==1"") failed for "
"3rd keyword sort_t", sort_t); PyErr_SetString(_flapack_error
,errstring); } else
{
25192 /* Processing variable sselect */
25193if(F2PyCapsule_Check(sselect_capi)) {
25194 sselect_cptr = F2PyCapsule_AsVoidPtr(sselect_capi);
25195} else {
25196 sselect_cptr = cb_sselect_in_gges__user__routines;
25197}
25198
25199 sselect_nofargs_capi = cb_sselect_in_gges__user__routines_nofargs;
25200 if (create_cb_arglist(sselect_capi,sselect_xa_capi,3,0,&cb_sselect_in_gges__user__routines_nofargs,&sselect_args_capi,"failed in processing argument list for call-back sselect.")) {
25201 jmp_buf sselect_jmpbuf;
25202 CFUNCSMESS("Saving jmpbuf for `sselect`.\n");
25203 SWAP(sselect_capi,cb_sselect_in_gges__user__routines_capi,PyObject){ PyObject *c; c = sselect_capi; sselect_capi = cb_sselect_in_gges__user__routines_capi
; cb_sselect_in_gges__user__routines_capi = c;}
;
25204 SWAP(sselect_args_capi,cb_sselect_in_gges__user__routines_args_capi,PyTupleObject){ PyTupleObject *c; c = sselect_args_capi; sselect_args_capi =
cb_sselect_in_gges__user__routines_args_capi; cb_sselect_in_gges__user__routines_args_capi
= c;}
;
25205 memcpy(&sselect_jmpbuf,&cb_sselect_in_gges__user__routines_jmpbuf,sizeof(jmp_buf));
25206 /* Processing variable a */
25207 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
25208 ;
25209 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
25210 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
25211 if (capi_a_tmp == NULL((void*)0)) {
25212 if (!PyErr_Occurred())
25213 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.sgges to C/Fortran array" );
25214 } else {
25215 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
25216
25217 /* Processing variable sdim */
25218 sdim = 0;
25219 /* Processing variable info */
25220 /* Processing variable n */
25221 n = shape(a,1)a_Dims[1];
25222 /* Processing variable lda */
25223 lda = shape(a,0)a_Dims[0];
25224 /* Processing variable b */
25225 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
25226 b_Dims[1]=n;
25227 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
25228 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
25229 if (capi_b_tmp == NULL((void*)0)) {
25230 if (!PyErr_Occurred())
25231 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.sgges to C/Fortran array" );
25232 } else {
25233 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
25234
25235 /* Processing variable ldb */
25236 ldb = shape(b,0)b_Dims[0];
25237 /* Processing variable alphar */
25238 alphar_Dims[0]=n;
25239 capi_alphar_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
25240 capi_alphar_tmp = array_from_pyobj(NPY_FLOAT,alphar_Dims,alphar_Rank,capi_alphar_intent,Py_None(&_Py_NoneStruct));
25241 if (capi_alphar_tmp == NULL((void*)0)) {
25242 if (!PyErr_Occurred())
25243 PyErr_SetString(_flapack_error,"failed in converting hidden `alphar' of _flapack.sgges to C/Fortran array" );
25244 } else {
25245 alphar = (float *)(PyArray_DATA(capi_alphar_tmp)((void *)((PyArrayObject_fields *)(capi_alphar_tmp))->data
)
);
25246
25247 /* Processing variable alphai */
25248 alphai_Dims[0]=n;
25249 capi_alphai_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
25250 capi_alphai_tmp = array_from_pyobj(NPY_FLOAT,alphai_Dims,alphai_Rank,capi_alphai_intent,Py_None(&_Py_NoneStruct));
25251 if (capi_alphai_tmp == NULL((void*)0)) {
25252 if (!PyErr_Occurred())
25253 PyErr_SetString(_flapack_error,"failed in converting hidden `alphai' of _flapack.sgges to C/Fortran array" );
25254 } else {
25255 alphai = (float *)(PyArray_DATA(capi_alphai_tmp)((void *)((PyArrayObject_fields *)(capi_alphai_tmp))->data
)
);
25256
25257 /* Processing variable beta */
25258 beta_Dims[0]=n;
25259 capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
25260 capi_beta_tmp = array_from_pyobj(NPY_FLOAT,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct));
25261 if (capi_beta_tmp == NULL((void*)0)) {
25262 if (!PyErr_Occurred())
25263 PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.sgges to C/Fortran array" );
25264 } else {
25265 beta = (float *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data));
25266
25267 /* Processing variable ldvsl */
25268 if (ldvsl_capi == Py_None(&_Py_NoneStruct)) ldvsl = ((jobvsl==1)?n:1); else
25269 f2py_success = int_from_pyobj(&ldvsl,ldvsl_capi,"_flapack.sgges() 4th keyword (ldvsl) can't be converted to int");
25270 if (f2py_success) {
25271 /* Processing variable ldvsr */
25272 if (ldvsr_capi == Py_None(&_Py_NoneStruct)) ldvsr = ((jobvsr==1)?n:1); else
25273 f2py_success = int_from_pyobj(&ldvsr,ldvsr_capi,"_flapack.sgges() 5th keyword (ldvsr) can't be converted to int");
25274 if (f2py_success) {
25275 /* Processing variable lwork */
25276 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(8*n+16,1)((8*n+16 > 1) ? (8*n+16) : (1)); else
25277 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgges() 6th keyword (lwork) can't be converted to int");
25278 if (f2py_success) {
25279 CHECKSCALAR(lwork>=MAX(1,MAX(8*n, 6*n+16))||lwork==-1,"lwork>=MAX(1,MAX(8*n, 6*n+16))||lwork==-1","6th keyword lwork","sgges:lwork=%d",lwork)if (!(lwork>=((1 > ((8*n > 6*n+16) ? (8*n) : (6*n+16
))) ? (1) : (((8*n > 6*n+16) ? (8*n) : (6*n+16))))||lwork==
-1)) { char errstring[256]; __builtin___sprintf_chk (errstring
, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sgges:lwork=%d"
, "(""lwork>=MAX(1,MAX(8*n, 6*n+16))||lwork==-1"") failed for "
"6th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
25280 /* Processing variable bwork */
25281 bwork_Dims[0]=n;
25282 capi_bwork_intent |= F2PY_INTENT_HIDE8;
25283 capi_bwork_tmp = array_from_pyobj(NPY_INT,bwork_Dims,bwork_Rank,capi_bwork_intent,Py_None(&_Py_NoneStruct));
25284 if (capi_bwork_tmp == NULL((void*)0)) {
25285 if (!PyErr_Occurred())
25286 PyErr_SetString(_flapack_error,"failed in converting hidden `bwork' of _flapack.sgges to C/Fortran array" );
25287 } else {
25288 bwork = (int *)(PyArray_DATA(capi_bwork_tmp)((void *)((PyArrayObject_fields *)(capi_bwork_tmp))->data));
25289
25290 /* Processing variable vsl */
25291 vsl_Dims[0]=ldvsl,vsl_Dims[1]=n;
25292 capi_vsl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
25293 capi_vsl_tmp = array_from_pyobj(NPY_FLOAT,vsl_Dims,vsl_Rank,capi_vsl_intent,Py_None(&_Py_NoneStruct));
25294 if (capi_vsl_tmp == NULL((void*)0)) {
25295 if (!PyErr_Occurred())
25296 PyErr_SetString(_flapack_error,"failed in converting hidden `vsl' of _flapack.sgges to C/Fortran array" );
25297 } else {
25298 vsl = (float *)(PyArray_DATA(capi_vsl_tmp)((void *)((PyArrayObject_fields *)(capi_vsl_tmp))->data));
25299
25300 /* Processing variable vsr */
25301 vsr_Dims[0]=ldvsr,vsr_Dims[1]=n;
25302 capi_vsr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
25303 capi_vsr_tmp = array_from_pyobj(NPY_FLOAT,vsr_Dims,vsr_Rank,capi_vsr_intent,Py_None(&_Py_NoneStruct));
25304 if (capi_vsr_tmp == NULL((void*)0)) {
25305 if (!PyErr_Occurred())
25306 PyErr_SetString(_flapack_error,"failed in converting hidden `vsr' of _flapack.sgges to C/Fortran array" );
25307 } else {
25308 vsr = (float *)(PyArray_DATA(capi_vsr_tmp)((void *)((PyArrayObject_fields *)(capi_vsr_tmp))->data));
25309
25310 /* Processing variable work */
25311 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
25312 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
25313 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
25314 if (capi_work_tmp == NULL((void*)0)) {
25315 if (!PyErr_Occurred())
25316 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgges to C/Fortran array" );
25317 } else {
25318 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
25319
25320/*end of frompyobj*/
25321#ifdef F2PY_REPORT_ATEXIT
25322f2py_start_call_clock();
25323#endif
25324/*callfortranroutine*/
25325 if ((setjmp(cb_sselect_in_gges__user__routines_jmpbuf)_setjmp (cb_sselect_in_gges__user__routines_jmpbuf))) {
25326 f2py_success = 0;
25327 } else {
25328 (*f2py_func)((jobvsl?"V":"N"),(jobvsr?"V":"N"),(sort_t?"S":"N"),cb_sselect_in_gges__user__routines,&n,a,&lda,b,&ldb,&sdim,alphar,alphai,beta,vsl,&ldvsl,vsr,&ldvsr,work,&lwork,bwork,&info) ;
25329 /*(*f2py_func)(&jobvsl,&jobvsr,&sort_t,sselect_cptr,&n,a,&lda,b,&ldb,&sdim,alphar,alphai,beta,vsl,&ldvsl,vsr,&ldvsr,work,&lwork,bwork,&info);*/
25330 }
25331if (PyErr_Occurred())
25332 f2py_success = 0;
25333#ifdef F2PY_REPORT_ATEXIT
25334f2py_stop_call_clock();
25335#endif
25336/*end of callfortranroutine*/
25337 if (f2py_success) {
25338/*pyobjfrom*/
25339/*end of pyobjfrom*/
25340 CFUNCSMESS("Building return value.\n");
25341 capi_buildvalue = Py_BuildValue("NNiNNNNNNi",capi_a_tmp,capi_b_tmp,sdim,capi_alphar_tmp,capi_alphai_tmp,capi_beta_tmp,capi_vsl_tmp,capi_vsr_tmp,capi_work_tmp,info);
25342/*closepyobjfrom*/
25343/*end of closepyobjfrom*/
25344 } /*if (f2py_success) after callfortranroutine*/
25345/*cleanupfrompyobj*/
25346 } /*if (capi_work_tmp == NULL) ... else of work*/
25347 /* End of cleaning variable work */
25348 } /*if (capi_vsr_tmp == NULL) ... else of vsr*/
25349 /* End of cleaning variable vsr */
25350 } /*if (capi_vsl_tmp == NULL) ... else of vsl*/
25351 /* End of cleaning variable vsl */
25352 Py_XDECREF(capi_bwork_tmp)_Py_XDECREF(((PyObject*)(capi_bwork_tmp)));
25353 } /*if (capi_bwork_tmp == NULL) ... else of bwork*/
25354 /* End of cleaning variable bwork */
25355 } /*CHECKSCALAR(lwork>=MAX(1,MAX(8*n, 6*n+16))||lwork==-1)*/
25356 } /*if (f2py_success) of lwork*/
25357 /* End of cleaning variable lwork */
25358 } /*if (f2py_success) of ldvsr*/
25359 /* End of cleaning variable ldvsr */
25360 } /*if (f2py_success) of ldvsl*/
25361 /* End of cleaning variable ldvsl */
25362 } /*if (capi_beta_tmp == NULL) ... else of beta*/
25363 /* End of cleaning variable beta */
25364 } /*if (capi_alphai_tmp == NULL) ... else of alphai*/
25365 /* End of cleaning variable alphai */
25366 } /*if (capi_alphar_tmp == NULL) ... else of alphar*/
25367 /* End of cleaning variable alphar */
25368 /* End of cleaning variable ldb */
25369 } /*if (capi_b_tmp == NULL) ... else of b*/
25370 /* End of cleaning variable b */
25371 /* End of cleaning variable lda */
25372 /* End of cleaning variable n */
25373 /* End of cleaning variable info */
25374 /* End of cleaning variable sdim */
25375 } /*if (capi_a_tmp == NULL) ... else of a*/
25376 /* End of cleaning variable a */
25377 CFUNCSMESS("Restoring jmpbuf for `sselect`.\n");
25378 cb_sselect_in_gges__user__routines_capi = sselect_capi;
25379 Py_DECREF(cb_sselect_in_gges__user__routines_args_capi)_Py_DECREF(((PyObject*)(cb_sselect_in_gges__user__routines_args_capi
)))
;
25380 cb_sselect_in_gges__user__routines_args_capi = sselect_args_capi;
25381 cb_sselect_in_gges__user__routines_nofargs = sselect_nofargs_capi;
25382 memcpy(&cb_sselect_in_gges__user__routines_jmpbuf,&sselect_jmpbuf,sizeof(jmp_buf));
25383 }
25384 /* End of cleaning variable sselect */
25385 } /*CHECKSCALAR(sort_t==0||sort_t==1)*/
25386 } /*if (f2py_success) of sort_t*/
25387 /* End of cleaning variable sort_t */
25388 } /*CHECKSCALAR(jobvsr==0||jobvsr==1)*/
25389 } /*if (f2py_success) of jobvsr*/
25390 /* End of cleaning variable jobvsr */
25391 } /*CHECKSCALAR(jobvsl==0||jobvsl==1)*/
25392 } /*if (f2py_success) of jobvsl*/
25393 /* End of cleaning variable jobvsl */
25394/*end of cleanupfrompyobj*/
25395 if (capi_buildvalue == NULL((void*)0)) {
25396/*routdebugfailure*/
25397 } else {
25398/*routdebugleave*/
25399 }
25400 CFUNCSMESS("Freeing memory.\n");
25401/*freemem*/
25402#ifdef F2PY_REPORT_ATEXIT
25403f2py_stop_clock();
25404#endif
25405 return capi_buildvalue;
25406}
25407/******************************** end of sgges ********************************/
25408
25409/*********************************** dgges ***********************************/
25410static char doc_f2py_rout__flapack_dgges[] = "\
25411a,b,sdim,alphar,alphai,beta,vsl,vsr,work,info = dgges(dselect,a,b,[jobvsl,jobvsr,sort_t,ldvsl,ldvsr,lwork,dselect_extra_args,overwrite_a,overwrite_b])\n\nWrapper for ``dgges``.\
25412\n\nParameters\n----------\n"
25413"dselect : call-back function\n"
25414"a : input rank-2 array('d') with bounds (lda,n)\n"
25415"b : input rank-2 array('d') with bounds (ldb,n)\n"
25416"\nOther Parameters\n----------------\n"
25417"jobvsl : input int, optional\n Default: 1\n"
25418"jobvsr : input int, optional\n Default: 1\n"
25419"sort_t : input int, optional\n Default: 0\n"
25420"dselect_extra_args : input tuple, optional\n Default: ()\n"
25421"overwrite_a : input int, optional\n Default: 0\n"
25422"overwrite_b : input int, optional\n Default: 0\n"
25423"ldvsl : input int, optional\n Default: ((jobvsl==1)?n:1)\n"
25424"ldvsr : input int, optional\n Default: ((jobvsr==1)?n:1)\n"
25425"lwork : input int, optional\n Default: max(8*n+16,1)\n"
25426"\nReturns\n-------\n"
25427"a : rank-2 array('d') with bounds (lda,n)\n"
25428"b : rank-2 array('d') with bounds (ldb,n)\n"
25429"sdim : int\n"
25430"alphar : rank-1 array('d') with bounds (n)\n"
25431"alphai : rank-1 array('d') with bounds (n)\n"
25432"beta : rank-1 array('d') with bounds (n)\n"
25433"vsl : rank-2 array('d') with bounds (ldvsl,n)\n"
25434"vsr : rank-2 array('d') with bounds (ldvsr,n)\n"
25435"work : rank-1 array('d') with bounds (MAX(lwork,1))\n"
25436"info : int\n"
25437"\nNotes\n-----\nCall-back functions::\n\n"
25438" def dselect(alphar,alphai,beta): return dselect\n\
25439 Required arguments:\n"
25440" alphar : input float\n"
25441" alphai : input float\n"
25442" beta : input float\n"
25443" Return objects:\n"
25444" dselect : int";
25445/* extern void F_FUNC(dgges,DGGES)(char*,char*,char*,F_INT(*)(double*,double*,double*),F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,double*,double*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */
25446static PyObject *f2py_rout__flapack_dgges(const PyObject *capi_self,
25447 PyObject *capi_args,
25448 PyObject *capi_keywds,
25449 void (*f2py_func)(char*,char*,char*,F_INTint(*)(double*,double*,double*),F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) {
25450 PyObject * volatile capi_buildvalue = NULL((void*)0);
25451 volatile int f2py_success = 1;
25452/*decl*/
25453
25454 int jobvsl = 0;
25455 PyObject *jobvsl_capi = Py_None(&_Py_NoneStruct);
25456 int jobvsr = 0;
25457 PyObject *jobvsr_capi = Py_None(&_Py_NoneStruct);
25458 int sort_t = 0;
25459 PyObject *sort_t_capi = Py_None(&_Py_NoneStruct);
25460 PyObject *dselect_capi = Py_None(&_Py_NoneStruct);
25461 PyTupleObject *dselect_xa_capi = NULL((void*)0);
25462 PyTupleObject *dselect_args_capi = NULL((void*)0);
25463 int dselect_nofargs_capi = 0;
25464 cb_dselect_in_gges__user__routines_typedef dselect_cptr;
25465 int n = 0;
25466 double *a = NULL((void*)0);
25467 npy_intp a_Dims[2] = {-1, -1};
25468 const int a_Rank = 2;
25469 PyArrayObject *capi_a_tmp = NULL((void*)0);
25470 int capi_a_intent = 0;
25471 int capi_overwrite_a = 0;
25472 PyObject *a_capi = Py_None(&_Py_NoneStruct);
25473 int lda = 0;
25474 double *b = NULL((void*)0);
25475 npy_intp b_Dims[2] = {-1, -1};
25476 const int b_Rank = 2;
25477 PyArrayObject *capi_b_tmp = NULL((void*)0);
25478 int capi_b_intent = 0;
25479 int capi_overwrite_b = 0;
25480 PyObject *b_capi = Py_None(&_Py_NoneStruct);
25481 int ldb = 0;
25482 int sdim = 0;
25483 double *alphar = NULL((void*)0);
25484 npy_intp alphar_Dims[1] = {-1};
25485 const int alphar_Rank = 1;
25486 PyArrayObject *capi_alphar_tmp = NULL((void*)0);
25487 int capi_alphar_intent = 0;
25488 double *alphai = NULL((void*)0);
25489 npy_intp alphai_Dims[1] = {-1};
25490 const int alphai_Rank = 1;
25491 PyArrayObject *capi_alphai_tmp = NULL((void*)0);
25492 int capi_alphai_intent = 0;
25493 double *beta = NULL((void*)0);
25494 npy_intp beta_Dims[1] = {-1};
25495 const int beta_Rank = 1;
25496 PyArrayObject *capi_beta_tmp = NULL((void*)0);
25497 int capi_beta_intent = 0;
25498 double *vsl = NULL((void*)0);
25499 npy_intp vsl_Dims[2] = {-1, -1};
25500 const int vsl_Rank = 2;
25501 PyArrayObject *capi_vsl_tmp = NULL((void*)0);
25502 int capi_vsl_intent = 0;
25503 int ldvsl = 0;
25504 PyObject *ldvsl_capi = Py_None(&_Py_NoneStruct);
25505 double *vsr = NULL((void*)0);
25506 npy_intp vsr_Dims[2] = {-1, -1};
25507 const int vsr_Rank = 2;
25508 PyArrayObject *capi_vsr_tmp = NULL((void*)0);
25509 int capi_vsr_intent = 0;
25510 int ldvsr = 0;
25511 PyObject *ldvsr_capi = Py_None(&_Py_NoneStruct);
25512 double *work = NULL((void*)0);
25513 npy_intp work_Dims[1] = {-1};
25514 const int work_Rank = 1;
25515 PyArrayObject *capi_work_tmp = NULL((void*)0);
25516 int capi_work_intent = 0;
25517 int lwork = 0;
25518 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
25519 int *bwork = NULL((void*)0);
25520 npy_intp bwork_Dims[1] = {-1};
25521 const int bwork_Rank = 1;
25522 PyArrayObject *capi_bwork_tmp = NULL((void*)0);
25523 int capi_bwork_intent = 0;
25524 int info = 0;
25525 static char *capi_kwlist[] = {"dselect","a","b","jobvsl","jobvsr","sort_t","ldvsl","ldvsr","lwork","dselect_extra_args","overwrite_a","overwrite_b",NULL((void*)0)};
25526
25527/*routdebugenter*/
25528#ifdef F2PY_REPORT_ATEXIT
25529f2py_start_clock();
25530#endif
25531 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
25532 "OOO|OOOOOOO!ii:_flapack.dgges",\
25533 capi_kwlist,&dselect_capi,&a_capi,&b_capi,&jobvsl_capi,&jobvsr_capi,&sort_t_capi,&ldvsl_capi,&ldvsr_capi,&lwork_capi,&PyTuple_Type,&dselect_xa_capi,&capi_overwrite_a,&capi_overwrite_b))
25534 return NULL((void*)0);
25535/*frompyobj*/
25536 /* Processing variable jobvsl */
25537 if (jobvsl_capi == Py_None(&_Py_NoneStruct)) jobvsl = 1; else
25538 f2py_success = int_from_pyobj(&jobvsl,jobvsl_capi,"_flapack.dgges() 1st keyword (jobvsl) can't be converted to int");
25539 if (f2py_success) {
25540 CHECKSCALAR(jobvsl==0||jobvsl==1,"jobvsl==0||jobvsl==1","1st keyword jobvsl","dgges:jobvsl=%d",jobvsl)if (!(jobvsl==0||jobvsl==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgges:jobvsl=%d", "(""jobvsl==0||jobvsl==1"") failed for "
"1st keyword jobvsl", jobvsl); PyErr_SetString(_flapack_error
,errstring); } else
{
25541 /* Processing variable jobvsr */
25542 if (jobvsr_capi == Py_None(&_Py_NoneStruct)) jobvsr = 1; else
25543 f2py_success = int_from_pyobj(&jobvsr,jobvsr_capi,"_flapack.dgges() 2nd keyword (jobvsr) can't be converted to int");
25544 if (f2py_success) {
25545 CHECKSCALAR(jobvsr==0||jobvsr==1,"jobvsr==0||jobvsr==1","2nd keyword jobvsr","dgges:jobvsr=%d",jobvsr)if (!(jobvsr==0||jobvsr==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgges:jobvsr=%d", "(""jobvsr==0||jobvsr==1"") failed for "
"2nd keyword jobvsr", jobvsr); PyErr_SetString(_flapack_error
,errstring); } else
{
25546 /* Processing variable sort_t */
25547 if (sort_t_capi == Py_None(&_Py_NoneStruct)) sort_t = 0; else
25548 f2py_success = int_from_pyobj(&sort_t,sort_t_capi,"_flapack.dgges() 3rd keyword (sort_t) can't be converted to int");
25549 if (f2py_success) {
25550 CHECKSCALAR(sort_t==0||sort_t==1,"sort_t==0||sort_t==1","3rd keyword sort_t","dgges:sort_t=%d",sort_t)if (!(sort_t==0||sort_t==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgges:sort_t=%d", "(""sort_t==0||sort_t==1"") failed for "
"3rd keyword sort_t", sort_t); PyErr_SetString(_flapack_error
,errstring); } else
{
25551 /* Processing variable dselect */
25552if(F2PyCapsule_Check(dselect_capi)) {
25553 dselect_cptr = F2PyCapsule_AsVoidPtr(dselect_capi);
25554} else {
25555 dselect_cptr = cb_dselect_in_gges__user__routines;
25556}
25557
25558 dselect_nofargs_capi = cb_dselect_in_gges__user__routines_nofargs;
25559 if (create_cb_arglist(dselect_capi,dselect_xa_capi,3,0,&cb_dselect_in_gges__user__routines_nofargs,&dselect_args_capi,"failed in processing argument list for call-back dselect.")) {
25560 jmp_buf dselect_jmpbuf;
25561 CFUNCSMESS("Saving jmpbuf for `dselect`.\n");
25562 SWAP(dselect_capi,cb_dselect_in_gges__user__routines_capi,PyObject){ PyObject *c; c = dselect_capi; dselect_capi = cb_dselect_in_gges__user__routines_capi
; cb_dselect_in_gges__user__routines_capi = c;}
;
25563 SWAP(dselect_args_capi,cb_dselect_in_gges__user__routines_args_capi,PyTupleObject){ PyTupleObject *c; c = dselect_args_capi; dselect_args_capi =
cb_dselect_in_gges__user__routines_args_capi; cb_dselect_in_gges__user__routines_args_capi
= c;}
;
25564 memcpy(&dselect_jmpbuf,&cb_dselect_in_gges__user__routines_jmpbuf,sizeof(jmp_buf));
25565 /* Processing variable a */
25566 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
25567 ;
25568 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
25569 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
25570 if (capi_a_tmp == NULL((void*)0)) {
25571 if (!PyErr_Occurred())
25572 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.dgges to C/Fortran array" );
25573 } else {
25574 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
25575
25576 /* Processing variable sdim */
25577 sdim = 0;
25578 /* Processing variable info */
25579 /* Processing variable n */
25580 n = shape(a,1)a_Dims[1];
25581 /* Processing variable lda */
25582 lda = shape(a,0)a_Dims[0];
25583 /* Processing variable b */
25584 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
25585 b_Dims[1]=n;
25586 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
25587 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
25588 if (capi_b_tmp == NULL((void*)0)) {
25589 if (!PyErr_Occurred())
25590 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.dgges to C/Fortran array" );
25591 } else {
25592 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
25593
25594 /* Processing variable ldb */
25595 ldb = shape(b,0)b_Dims[0];
25596 /* Processing variable alphar */
25597 alphar_Dims[0]=n;
25598 capi_alphar_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
25599 capi_alphar_tmp = array_from_pyobj(NPY_DOUBLE,alphar_Dims,alphar_Rank,capi_alphar_intent,Py_None(&_Py_NoneStruct));
25600 if (capi_alphar_tmp == NULL((void*)0)) {
25601 if (!PyErr_Occurred())
25602 PyErr_SetString(_flapack_error,"failed in converting hidden `alphar' of _flapack.dgges to C/Fortran array" );
25603 } else {
25604 alphar = (double *)(PyArray_DATA(capi_alphar_tmp)((void *)((PyArrayObject_fields *)(capi_alphar_tmp))->data
)
);
25605
25606 /* Processing variable alphai */
25607 alphai_Dims[0]=n;
25608 capi_alphai_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
25609 capi_alphai_tmp = array_from_pyobj(NPY_DOUBLE,alphai_Dims,alphai_Rank,capi_alphai_intent,Py_None(&_Py_NoneStruct));
25610 if (capi_alphai_tmp == NULL((void*)0)) {
25611 if (!PyErr_Occurred())
25612 PyErr_SetString(_flapack_error,"failed in converting hidden `alphai' of _flapack.dgges to C/Fortran array" );
25613 } else {
25614 alphai = (double *)(PyArray_DATA(capi_alphai_tmp)((void *)((PyArrayObject_fields *)(capi_alphai_tmp))->data
)
);
25615
25616 /* Processing variable beta */
25617 beta_Dims[0]=n;
25618 capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
25619 capi_beta_tmp = array_from_pyobj(NPY_DOUBLE,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct));
25620 if (capi_beta_tmp == NULL((void*)0)) {
25621 if (!PyErr_Occurred())
25622 PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.dgges to C/Fortran array" );
25623 } else {
25624 beta = (double *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data));
25625
25626 /* Processing variable ldvsl */
25627 if (ldvsl_capi == Py_None(&_Py_NoneStruct)) ldvsl = ((jobvsl==1)?n:1); else
25628 f2py_success = int_from_pyobj(&ldvsl,ldvsl_capi,"_flapack.dgges() 4th keyword (ldvsl) can't be converted to int");
25629 if (f2py_success) {
25630 /* Processing variable ldvsr */
25631 if (ldvsr_capi == Py_None(&_Py_NoneStruct)) ldvsr = ((jobvsr==1)?n:1); else
25632 f2py_success = int_from_pyobj(&ldvsr,ldvsr_capi,"_flapack.dgges() 5th keyword (ldvsr) can't be converted to int");
25633 if (f2py_success) {
25634 /* Processing variable lwork */
25635 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(8*n+16,1)((8*n+16 > 1) ? (8*n+16) : (1)); else
25636 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgges() 6th keyword (lwork) can't be converted to int");
25637 if (f2py_success) {
25638 CHECKSCALAR(lwork>=MAX(1,MAX(8*n, 6*n+16))||lwork==-1,"lwork>=MAX(1,MAX(8*n, 6*n+16))||lwork==-1","6th keyword lwork","dgges:lwork=%d",lwork)if (!(lwork>=((1 > ((8*n > 6*n+16) ? (8*n) : (6*n+16
))) ? (1) : (((8*n > 6*n+16) ? (8*n) : (6*n+16))))||lwork==
-1)) { char errstring[256]; __builtin___sprintf_chk (errstring
, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dgges:lwork=%d"
, "(""lwork>=MAX(1,MAX(8*n, 6*n+16))||lwork==-1"") failed for "
"6th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
25639 /* Processing variable bwork */
25640 bwork_Dims[0]=n;
25641 capi_bwork_intent |= F2PY_INTENT_HIDE8;
25642 capi_bwork_tmp = array_from_pyobj(NPY_INT,bwork_Dims,bwork_Rank,capi_bwork_intent,Py_None(&_Py_NoneStruct));
25643 if (capi_bwork_tmp == NULL((void*)0)) {
25644 if (!PyErr_Occurred())
25645 PyErr_SetString(_flapack_error,"failed in converting hidden `bwork' of _flapack.dgges to C/Fortran array" );
25646 } else {
25647 bwork = (int *)(PyArray_DATA(capi_bwork_tmp)((void *)((PyArrayObject_fields *)(capi_bwork_tmp))->data));
25648
25649 /* Processing variable vsl */
25650 vsl_Dims[0]=ldvsl,vsl_Dims[1]=n;
25651 capi_vsl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
25652 capi_vsl_tmp = array_from_pyobj(NPY_DOUBLE,vsl_Dims,vsl_Rank,capi_vsl_intent,Py_None(&_Py_NoneStruct));
25653 if (capi_vsl_tmp == NULL((void*)0)) {
25654 if (!PyErr_Occurred())
25655 PyErr_SetString(_flapack_error,"failed in converting hidden `vsl' of _flapack.dgges to C/Fortran array" );
25656 } else {
25657 vsl = (double *)(PyArray_DATA(capi_vsl_tmp)((void *)((PyArrayObject_fields *)(capi_vsl_tmp))->data));
25658
25659 /* Processing variable vsr */
25660 vsr_Dims[0]=ldvsr,vsr_Dims[1]=n;
25661 capi_vsr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
25662 capi_vsr_tmp = array_from_pyobj(NPY_DOUBLE,vsr_Dims,vsr_Rank,capi_vsr_intent,Py_None(&_Py_NoneStruct));
25663 if (capi_vsr_tmp == NULL((void*)0)) {
25664 if (!PyErr_Occurred())
25665 PyErr_SetString(_flapack_error,"failed in converting hidden `vsr' of _flapack.dgges to C/Fortran array" );
25666 } else {
25667 vsr = (double *)(PyArray_DATA(capi_vsr_tmp)((void *)((PyArrayObject_fields *)(capi_vsr_tmp))->data));
25668
25669 /* Processing variable work */
25670 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
25671 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
25672 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
25673 if (capi_work_tmp == NULL((void*)0)) {
25674 if (!PyErr_Occurred())
25675 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgges to C/Fortran array" );
25676 } else {
25677 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
25678
25679/*end of frompyobj*/
25680#ifdef F2PY_REPORT_ATEXIT
25681f2py_start_call_clock();
25682#endif
25683/*callfortranroutine*/
25684 if ((setjmp(cb_dselect_in_gges__user__routines_jmpbuf)_setjmp (cb_dselect_in_gges__user__routines_jmpbuf))) {
25685 f2py_success = 0;
25686 } else {
25687 (*f2py_func)((jobvsl?"V":"N"),(jobvsr?"V":"N"),(sort_t?"S":"N"),cb_dselect_in_gges__user__routines,&n,a,&lda,b,&ldb,&sdim,alphar,alphai,beta,vsl,&ldvsl,vsr,&ldvsr,work,&lwork,bwork,&info) ;
25688 /*(*f2py_func)(&jobvsl,&jobvsr,&sort_t,dselect_cptr,&n,a,&lda,b,&ldb,&sdim,alphar,alphai,beta,vsl,&ldvsl,vsr,&ldvsr,work,&lwork,bwork,&info);*/
25689 }
25690if (PyErr_Occurred())
25691 f2py_success = 0;
25692#ifdef F2PY_REPORT_ATEXIT
25693f2py_stop_call_clock();
25694#endif
25695/*end of callfortranroutine*/
25696 if (f2py_success) {
25697/*pyobjfrom*/
25698/*end of pyobjfrom*/
25699 CFUNCSMESS("Building return value.\n");
25700 capi_buildvalue = Py_BuildValue("NNiNNNNNNi",capi_a_tmp,capi_b_tmp,sdim,capi_alphar_tmp,capi_alphai_tmp,capi_beta_tmp,capi_vsl_tmp,capi_vsr_tmp,capi_work_tmp,info);
25701/*closepyobjfrom*/
25702/*end of closepyobjfrom*/
25703 } /*if (f2py_success) after callfortranroutine*/
25704/*cleanupfrompyobj*/
25705 } /*if (capi_work_tmp == NULL) ... else of work*/
25706 /* End of cleaning variable work */
25707 } /*if (capi_vsr_tmp == NULL) ... else of vsr*/
25708 /* End of cleaning variable vsr */
25709 } /*if (capi_vsl_tmp == NULL) ... else of vsl*/
25710 /* End of cleaning variable vsl */
25711 Py_XDECREF(capi_bwork_tmp)_Py_XDECREF(((PyObject*)(capi_bwork_tmp)));
25712 } /*if (capi_bwork_tmp == NULL) ... else of bwork*/
25713 /* End of cleaning variable bwork */
25714 } /*CHECKSCALAR(lwork>=MAX(1,MAX(8*n, 6*n+16))||lwork==-1)*/
25715 } /*if (f2py_success) of lwork*/
25716 /* End of cleaning variable lwork */
25717 } /*if (f2py_success) of ldvsr*/
25718 /* End of cleaning variable ldvsr */
25719 } /*if (f2py_success) of ldvsl*/
25720 /* End of cleaning variable ldvsl */
25721 } /*if (capi_beta_tmp == NULL) ... else of beta*/
25722 /* End of cleaning variable beta */
25723 } /*if (capi_alphai_tmp == NULL) ... else of alphai*/
25724 /* End of cleaning variable alphai */
25725 } /*if (capi_alphar_tmp == NULL) ... else of alphar*/
25726 /* End of cleaning variable alphar */
25727 /* End of cleaning variable ldb */
25728 } /*if (capi_b_tmp == NULL) ... else of b*/
25729 /* End of cleaning variable b */
25730 /* End of cleaning variable lda */
25731 /* End of cleaning variable n */
25732 /* End of cleaning variable info */
25733 /* End of cleaning variable sdim */
25734 } /*if (capi_a_tmp == NULL) ... else of a*/
25735 /* End of cleaning variable a */
25736 CFUNCSMESS("Restoring jmpbuf for `dselect`.\n");
25737 cb_dselect_in_gges__user__routines_capi = dselect_capi;
25738 Py_DECREF(cb_dselect_in_gges__user__routines_args_capi)_Py_DECREF(((PyObject*)(cb_dselect_in_gges__user__routines_args_capi
)))
;
25739 cb_dselect_in_gges__user__routines_args_capi = dselect_args_capi;
25740 cb_dselect_in_gges__user__routines_nofargs = dselect_nofargs_capi;
25741 memcpy(&cb_dselect_in_gges__user__routines_jmpbuf,&dselect_jmpbuf,sizeof(jmp_buf));
25742 }
25743 /* End of cleaning variable dselect */
25744 } /*CHECKSCALAR(sort_t==0||sort_t==1)*/
25745 } /*if (f2py_success) of sort_t*/
25746 /* End of cleaning variable sort_t */
25747 } /*CHECKSCALAR(jobvsr==0||jobvsr==1)*/
25748 } /*if (f2py_success) of jobvsr*/
25749 /* End of cleaning variable jobvsr */
25750 } /*CHECKSCALAR(jobvsl==0||jobvsl==1)*/
25751 } /*if (f2py_success) of jobvsl*/
25752 /* End of cleaning variable jobvsl */
25753/*end of cleanupfrompyobj*/
25754 if (capi_buildvalue == NULL((void*)0)) {
25755/*routdebugfailure*/
25756 } else {
25757/*routdebugleave*/
25758 }
25759 CFUNCSMESS("Freeing memory.\n");
25760/*freemem*/
25761#ifdef F2PY_REPORT_ATEXIT
25762f2py_stop_clock();
25763#endif
25764 return capi_buildvalue;
25765}
25766/******************************** end of dgges ********************************/
25767
25768/*********************************** cgges ***********************************/
25769static char doc_f2py_rout__flapack_cgges[] = "\
25770a,b,sdim,alpha,beta,vsl,vsr,work,info = cgges(cselect,a,b,[jobvsl,jobvsr,sort_t,ldvsl,ldvsr,lwork,cselect_extra_args,overwrite_a,overwrite_b])\n\nWrapper for ``cgges``.\
25771\n\nParameters\n----------\n"
25772"cselect : call-back function\n"
25773"a : input rank-2 array('F') with bounds (lda,n)\n"
25774"b : input rank-2 array('F') with bounds (ldb,n)\n"
25775"\nOther Parameters\n----------------\n"
25776"jobvsl : input int, optional\n Default: 1\n"
25777"jobvsr : input int, optional\n Default: 1\n"
25778"sort_t : input int, optional\n Default: 0\n"
25779"cselect_extra_args : input tuple, optional\n Default: ()\n"
25780"overwrite_a : input int, optional\n Default: 0\n"
25781"overwrite_b : input int, optional\n Default: 0\n"
25782"ldvsl : input int, optional\n Default: ((jobvsl==1)?n:1)\n"
25783"ldvsr : input int, optional\n Default: ((jobvsr==1)?n:1)\n"
25784"lwork : input int, optional\n Default: max(2*n,1)\n"
25785"\nReturns\n-------\n"
25786"a : rank-2 array('F') with bounds (lda,n)\n"
25787"b : rank-2 array('F') with bounds (ldb,n)\n"
25788"sdim : int\n"
25789"alpha : rank-1 array('F') with bounds (n)\n"
25790"beta : rank-1 array('F') with bounds (n)\n"
25791"vsl : rank-2 array('F') with bounds (ldvsl,n)\n"
25792"vsr : rank-2 array('F') with bounds (ldvsr,n)\n"
25793"work : rank-1 array('F') with bounds (MAX(lwork,1))\n"
25794"info : int\n"
25795"\nNotes\n-----\nCall-back functions::\n\n"
25796" def cselect(alpha,beta): return cselect\n\
25797 Required arguments:\n"
25798" alpha : input complex\n"
25799" beta : input complex\n"
25800" Return objects:\n"
25801" cselect : int";
25802/* extern void F_FUNC(cgges,CGGES)(char*,char*,char*,F_INT(*)(complex_float*,complex_float*),F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT* ); */
25803static PyObject *f2py_rout__flapack_cgges(const PyObject *capi_self,
25804 PyObject *capi_args,
25805 PyObject *capi_keywds,
25806 void (*f2py_func)(char*,char*,char*,F_INTint(*)(complex_float*,complex_float*),F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
25807 PyObject * volatile capi_buildvalue = NULL((void*)0);
25808 volatile int f2py_success = 1;
25809/*decl*/
25810
25811 int jobvsl = 0;
25812 PyObject *jobvsl_capi = Py_None(&_Py_NoneStruct);
25813 int jobvsr = 0;
25814 PyObject *jobvsr_capi = Py_None(&_Py_NoneStruct);
25815 int sort_t = 0;
25816 PyObject *sort_t_capi = Py_None(&_Py_NoneStruct);
25817 PyObject *cselect_capi = Py_None(&_Py_NoneStruct);
25818 PyTupleObject *cselect_xa_capi = NULL((void*)0);
25819 PyTupleObject *cselect_args_capi = NULL((void*)0);
25820 int cselect_nofargs_capi = 0;
25821 cb_cselect_in_gges__user__routines_typedef cselect_cptr;
25822 int n = 0;
25823 complex_float *a = NULL((void*)0);
25824 npy_intp a_Dims[2] = {-1, -1};
25825 const int a_Rank = 2;
25826 PyArrayObject *capi_a_tmp = NULL((void*)0);
25827 int capi_a_intent = 0;
25828 int capi_overwrite_a = 0;
25829 PyObject *a_capi = Py_None(&_Py_NoneStruct);
25830 int lda = 0;
25831 complex_float *b = NULL((void*)0);
25832 npy_intp b_Dims[2] = {-1, -1};
25833 const int b_Rank = 2;
25834 PyArrayObject *capi_b_tmp = NULL((void*)0);
25835 int capi_b_intent = 0;
25836 int capi_overwrite_b = 0;
25837 PyObject *b_capi = Py_None(&_Py_NoneStruct);
25838 int ldb = 0;
25839 int sdim = 0;
25840 complex_float *alpha = NULL((void*)0);
25841 npy_intp alpha_Dims[1] = {-1};
25842 const int alpha_Rank = 1;
25843 PyArrayObject *capi_alpha_tmp = NULL((void*)0);
25844 int capi_alpha_intent = 0;
25845 complex_float *beta = NULL((void*)0);
25846 npy_intp beta_Dims[1] = {-1};
25847 const int beta_Rank = 1;
25848 PyArrayObject *capi_beta_tmp = NULL((void*)0);
25849 int capi_beta_intent = 0;
25850 complex_float *vsl = NULL((void*)0);
25851 npy_intp vsl_Dims[2] = {-1, -1};
25852 const int vsl_Rank = 2;
25853 PyArrayObject *capi_vsl_tmp = NULL((void*)0);
25854 int capi_vsl_intent = 0;
25855 int ldvsl = 0;
25856 PyObject *ldvsl_capi = Py_None(&_Py_NoneStruct);
25857 complex_float *vsr = NULL((void*)0);
25858 npy_intp vsr_Dims[2] = {-1, -1};
25859 const int vsr_Rank = 2;
25860 PyArrayObject *capi_vsr_tmp = NULL((void*)0);
25861 int capi_vsr_intent = 0;
25862 int ldvsr = 0;
25863 PyObject *ldvsr_capi = Py_None(&_Py_NoneStruct);
25864 complex_float *work = NULL((void*)0);
25865 npy_intp work_Dims[1] = {-1};
25866 const int work_Rank = 1;
25867 PyArrayObject *capi_work_tmp = NULL((void*)0);
25868 int capi_work_intent = 0;
25869 int lwork = 0;
25870 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
25871 float *rwork = NULL((void*)0);
25872 npy_intp rwork_Dims[1] = {-1};
25873 const int rwork_Rank = 1;
25874 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
25875 int capi_rwork_intent = 0;
25876 int *bwork = NULL((void*)0);
25877 npy_intp bwork_Dims[1] = {-1};
25878 const int bwork_Rank = 1;
25879 PyArrayObject *capi_bwork_tmp = NULL((void*)0);
25880 int capi_bwork_intent = 0;
25881 int info = 0;
25882 static char *capi_kwlist[] = {"cselect","a","b","jobvsl","jobvsr","sort_t","ldvsl","ldvsr","lwork","cselect_extra_args","overwrite_a","overwrite_b",NULL((void*)0)};
25883
25884/*routdebugenter*/
25885#ifdef F2PY_REPORT_ATEXIT
25886f2py_start_clock();
25887#endif
25888 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
25889 "OOO|OOOOOOO!ii:_flapack.cgges",\
25890 capi_kwlist,&cselect_capi,&a_capi,&b_capi,&jobvsl_capi,&jobvsr_capi,&sort_t_capi,&ldvsl_capi,&ldvsr_capi,&lwork_capi,&PyTuple_Type,&cselect_xa_capi,&capi_overwrite_a,&capi_overwrite_b))
25891 return NULL((void*)0);
25892/*frompyobj*/
25893 /* Processing variable jobvsl */
25894 if (jobvsl_capi == Py_None(&_Py_NoneStruct)) jobvsl = 1; else
25895 f2py_success = int_from_pyobj(&jobvsl,jobvsl_capi,"_flapack.cgges() 1st keyword (jobvsl) can't be converted to int");
25896 if (f2py_success) {
25897 CHECKSCALAR(jobvsl==0||jobvsl==1,"jobvsl==0||jobvsl==1","1st keyword jobvsl","cgges:jobvsl=%d",jobvsl)if (!(jobvsl==0||jobvsl==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgges:jobvsl=%d", "(""jobvsl==0||jobvsl==1"") failed for "
"1st keyword jobvsl", jobvsl); PyErr_SetString(_flapack_error
,errstring); } else
{
25898 /* Processing variable jobvsr */
25899 if (jobvsr_capi == Py_None(&_Py_NoneStruct)) jobvsr = 1; else
25900 f2py_success = int_from_pyobj(&jobvsr,jobvsr_capi,"_flapack.cgges() 2nd keyword (jobvsr) can't be converted to int");
25901 if (f2py_success) {
25902 CHECKSCALAR(jobvsr==0||jobvsr==1,"jobvsr==0||jobvsr==1","2nd keyword jobvsr","cgges:jobvsr=%d",jobvsr)if (!(jobvsr==0||jobvsr==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgges:jobvsr=%d", "(""jobvsr==0||jobvsr==1"") failed for "
"2nd keyword jobvsr", jobvsr); PyErr_SetString(_flapack_error
,errstring); } else
{
25903 /* Processing variable sort_t */
25904 if (sort_t_capi == Py_None(&_Py_NoneStruct)) sort_t = 0; else
25905 f2py_success = int_from_pyobj(&sort_t,sort_t_capi,"_flapack.cgges() 3rd keyword (sort_t) can't be converted to int");
25906 if (f2py_success) {
25907 CHECKSCALAR(sort_t==0||sort_t==1,"sort_t==0||sort_t==1","3rd keyword sort_t","cgges:sort_t=%d",sort_t)if (!(sort_t==0||sort_t==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgges:sort_t=%d", "(""sort_t==0||sort_t==1"") failed for "
"3rd keyword sort_t", sort_t); PyErr_SetString(_flapack_error
,errstring); } else
{
25908 /* Processing variable cselect */
25909if(F2PyCapsule_Check(cselect_capi)) {
25910 cselect_cptr = F2PyCapsule_AsVoidPtr(cselect_capi);
25911} else {
25912 cselect_cptr = cb_cselect_in_gges__user__routines;
25913}
25914
25915 cselect_nofargs_capi = cb_cselect_in_gges__user__routines_nofargs;
25916 if (create_cb_arglist(cselect_capi,cselect_xa_capi,2,0,&cb_cselect_in_gges__user__routines_nofargs,&cselect_args_capi,"failed in processing argument list for call-back cselect.")) {
25917 jmp_buf cselect_jmpbuf;
25918 CFUNCSMESS("Saving jmpbuf for `cselect`.\n");
25919 SWAP(cselect_capi,cb_cselect_in_gges__user__routines_capi,PyObject){ PyObject *c; c = cselect_capi; cselect_capi = cb_cselect_in_gges__user__routines_capi
; cb_cselect_in_gges__user__routines_capi = c;}
;
25920 SWAP(cselect_args_capi,cb_cselect_in_gges__user__routines_args_capi,PyTupleObject){ PyTupleObject *c; c = cselect_args_capi; cselect_args_capi =
cb_cselect_in_gges__user__routines_args_capi; cb_cselect_in_gges__user__routines_args_capi
= c;}
;
25921 memcpy(&cselect_jmpbuf,&cb_cselect_in_gges__user__routines_jmpbuf,sizeof(jmp_buf));
25922 /* Processing variable a */
25923 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
25924 ;
25925 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
25926 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
25927 if (capi_a_tmp == NULL((void*)0)) {
25928 if (!PyErr_Occurred())
25929 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.cgges to C/Fortran array" );
25930 } else {
25931 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
25932
25933 /* Processing variable sdim */
25934 sdim = 0;
25935 /* Processing variable info */
25936 /* Processing variable n */
25937 n = shape(a,1)a_Dims[1];
25938 /* Processing variable lda */
25939 lda = shape(a,0)a_Dims[0];
25940 /* Processing variable b */
25941 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
25942 b_Dims[1]=n;
25943 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
25944 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
25945 if (capi_b_tmp == NULL((void*)0)) {
25946 if (!PyErr_Occurred())
25947 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.cgges to C/Fortran array" );
25948 } else {
25949 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
25950
25951 /* Processing variable ldb */
25952 ldb = shape(b,0)b_Dims[0];
25953 /* Processing variable alpha */
25954 alpha_Dims[0]=n;
25955 capi_alpha_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
25956 capi_alpha_tmp = array_from_pyobj(NPY_CFLOAT,alpha_Dims,alpha_Rank,capi_alpha_intent,Py_None(&_Py_NoneStruct));
25957 if (capi_alpha_tmp == NULL((void*)0)) {
25958 if (!PyErr_Occurred())
25959 PyErr_SetString(_flapack_error,"failed in converting hidden `alpha' of _flapack.cgges to C/Fortran array" );
25960 } else {
25961 alpha = (complex_float *)(PyArray_DATA(capi_alpha_tmp)((void *)((PyArrayObject_fields *)(capi_alpha_tmp))->data));
25962
25963 /* Processing variable beta */
25964 beta_Dims[0]=n;
25965 capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
25966 capi_beta_tmp = array_from_pyobj(NPY_CFLOAT,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct));
25967 if (capi_beta_tmp == NULL((void*)0)) {
25968 if (!PyErr_Occurred())
25969 PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.cgges to C/Fortran array" );
25970 } else {
25971 beta = (complex_float *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data));
25972
25973 /* Processing variable ldvsl */
25974 if (ldvsl_capi == Py_None(&_Py_NoneStruct)) ldvsl = ((jobvsl==1)?n:1); else
25975 f2py_success = int_from_pyobj(&ldvsl,ldvsl_capi,"_flapack.cgges() 4th keyword (ldvsl) can't be converted to int");
25976 if (f2py_success) {
25977 /* Processing variable ldvsr */
25978 if (ldvsr_capi == Py_None(&_Py_NoneStruct)) ldvsr = ((jobvsr==1)?n:1); else
25979 f2py_success = int_from_pyobj(&ldvsr,ldvsr_capi,"_flapack.cgges() 5th keyword (ldvsr) can't be converted to int");
25980 if (f2py_success) {
25981 /* Processing variable lwork */
25982 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else
25983 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgges() 6th keyword (lwork) can't be converted to int");
25984 if (f2py_success) {
25985 CHECKSCALAR(lwork>=MAX(1,2*n)||lwork==-1,"lwork>=MAX(1,2*n)||lwork==-1","6th keyword lwork","cgges:lwork=%d",lwork)if (!(lwork>=((1 > 2*n) ? (1) : (2*n))||lwork==-1)) { char
errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""cgges:lwork=%d", "(""lwork>=MAX(1,2*n)||lwork==-1"
") failed for ""6th keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
25986 /* Processing variable rwork */
25987 rwork_Dims[0]=8 * n;
25988 capi_rwork_intent |= F2PY_INTENT_HIDE8;
25989 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
25990 if (capi_rwork_tmp == NULL((void*)0)) {
25991 if (!PyErr_Occurred())
25992 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgges to C/Fortran array" );
25993 } else {
25994 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
25995
25996 /* Processing variable bwork */
25997 bwork_Dims[0]=n;
25998 capi_bwork_intent |= F2PY_INTENT_HIDE8;
25999 capi_bwork_tmp = array_from_pyobj(NPY_INT,bwork_Dims,bwork_Rank,capi_bwork_intent,Py_None(&_Py_NoneStruct));
26000 if (capi_bwork_tmp == NULL((void*)0)) {
26001 if (!PyErr_Occurred())
26002 PyErr_SetString(_flapack_error,"failed in converting hidden `bwork' of _flapack.cgges to C/Fortran array" );
26003 } else {
26004 bwork = (int *)(PyArray_DATA(capi_bwork_tmp)((void *)((PyArrayObject_fields *)(capi_bwork_tmp))->data));
26005
26006 /* Processing variable vsl */
26007 vsl_Dims[0]=ldvsl,vsl_Dims[1]=n;
26008 capi_vsl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
26009 capi_vsl_tmp = array_from_pyobj(NPY_CFLOAT,vsl_Dims,vsl_Rank,capi_vsl_intent,Py_None(&_Py_NoneStruct));
26010 if (capi_vsl_tmp == NULL((void*)0)) {
26011 if (!PyErr_Occurred())
26012 PyErr_SetString(_flapack_error,"failed in converting hidden `vsl' of _flapack.cgges to C/Fortran array" );
26013 } else {
26014 vsl = (complex_float *)(PyArray_DATA(capi_vsl_tmp)((void *)((PyArrayObject_fields *)(capi_vsl_tmp))->data));
26015
26016 /* Processing variable vsr */
26017 vsr_Dims[0]=ldvsr,vsr_Dims[1]=n;
26018 capi_vsr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
26019 capi_vsr_tmp = array_from_pyobj(NPY_CFLOAT,vsr_Dims,vsr_Rank,capi_vsr_intent,Py_None(&_Py_NoneStruct));
26020 if (capi_vsr_tmp == NULL((void*)0)) {
26021 if (!PyErr_Occurred())
26022 PyErr_SetString(_flapack_error,"failed in converting hidden `vsr' of _flapack.cgges to C/Fortran array" );
26023 } else {
26024 vsr = (complex_float *)(PyArray_DATA(capi_vsr_tmp)((void *)((PyArrayObject_fields *)(capi_vsr_tmp))->data));
26025
26026 /* Processing variable work */
26027 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
26028 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
26029 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
26030 if (capi_work_tmp == NULL((void*)0)) {
26031 if (!PyErr_Occurred())
26032 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgges to C/Fortran array" );
26033 } else {
26034 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
26035
26036/*end of frompyobj*/
26037#ifdef F2PY_REPORT_ATEXIT
26038f2py_start_call_clock();
26039#endif
26040/*callfortranroutine*/
26041 if ((setjmp(cb_cselect_in_gges__user__routines_jmpbuf)_setjmp (cb_cselect_in_gges__user__routines_jmpbuf))) {
26042 f2py_success = 0;
26043 } else {
26044 (*f2py_func)((jobvsl?"V":"N"),(jobvsr?"V":"N"),(sort_t?"S":"N"),cb_cselect_in_gges__user__routines,&n,a,&lda,b,&ldb,&sdim,alpha,beta,vsl,&ldvsl,vsr,&ldvsr,work,&lwork,rwork,bwork,&info) ;
26045 /*(*f2py_func)(&jobvsl,&jobvsr,&sort_t,cselect_cptr,&n,a,&lda,b,&ldb,&sdim,alpha,beta,vsl,&ldvsl,vsr,&ldvsr,work,&lwork,rwork,bwork,&info);*/
26046 }
26047if (PyErr_Occurred())
26048 f2py_success = 0;
26049#ifdef F2PY_REPORT_ATEXIT
26050f2py_stop_call_clock();
26051#endif
26052/*end of callfortranroutine*/
26053 if (f2py_success) {
26054/*pyobjfrom*/
26055/*end of pyobjfrom*/
26056 CFUNCSMESS("Building return value.\n");
26057 capi_buildvalue = Py_BuildValue("NNiNNNNNi",capi_a_tmp,capi_b_tmp,sdim,capi_alpha_tmp,capi_beta_tmp,capi_vsl_tmp,capi_vsr_tmp,capi_work_tmp,info);
26058/*closepyobjfrom*/
26059/*end of closepyobjfrom*/
26060 } /*if (f2py_success) after callfortranroutine*/
26061/*cleanupfrompyobj*/
26062 } /*if (capi_work_tmp == NULL) ... else of work*/
26063 /* End of cleaning variable work */
26064 } /*if (capi_vsr_tmp == NULL) ... else of vsr*/
26065 /* End of cleaning variable vsr */
26066 } /*if (capi_vsl_tmp == NULL) ... else of vsl*/
26067 /* End of cleaning variable vsl */
26068 Py_XDECREF(capi_bwork_tmp)_Py_XDECREF(((PyObject*)(capi_bwork_tmp)));
26069 } /*if (capi_bwork_tmp == NULL) ... else of bwork*/
26070 /* End of cleaning variable bwork */
26071 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
26072 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
26073 /* End of cleaning variable rwork */
26074 } /*CHECKSCALAR(lwork>=MAX(1,2*n)||lwork==-1)*/
26075 } /*if (f2py_success) of lwork*/
26076 /* End of cleaning variable lwork */
26077 } /*if (f2py_success) of ldvsr*/
26078 /* End of cleaning variable ldvsr */
26079 } /*if (f2py_success) of ldvsl*/
26080 /* End of cleaning variable ldvsl */
26081 } /*if (capi_beta_tmp == NULL) ... else of beta*/
26082 /* End of cleaning variable beta */
26083 } /*if (capi_alpha_tmp == NULL) ... else of alpha*/
26084 /* End of cleaning variable alpha */
26085 /* End of cleaning variable ldb */
26086 } /*if (capi_b_tmp == NULL) ... else of b*/
26087 /* End of cleaning variable b */
26088 /* End of cleaning variable lda */
26089 /* End of cleaning variable n */
26090 /* End of cleaning variable info */
26091 /* End of cleaning variable sdim */
26092 } /*if (capi_a_tmp == NULL) ... else of a*/
26093 /* End of cleaning variable a */
26094 CFUNCSMESS("Restoring jmpbuf for `cselect`.\n");
26095 cb_cselect_in_gges__user__routines_capi = cselect_capi;
26096 Py_DECREF(cb_cselect_in_gges__user__routines_args_capi)_Py_DECREF(((PyObject*)(cb_cselect_in_gges__user__routines_args_capi
)))
;
26097 cb_cselect_in_gges__user__routines_args_capi = cselect_args_capi;
26098 cb_cselect_in_gges__user__routines_nofargs = cselect_nofargs_capi;
26099 memcpy(&cb_cselect_in_gges__user__routines_jmpbuf,&cselect_jmpbuf,sizeof(jmp_buf));
26100 }
26101 /* End of cleaning variable cselect */
26102 } /*CHECKSCALAR(sort_t==0||sort_t==1)*/
26103 } /*if (f2py_success) of sort_t*/
26104 /* End of cleaning variable sort_t */
26105 } /*CHECKSCALAR(jobvsr==0||jobvsr==1)*/
26106 } /*if (f2py_success) of jobvsr*/
26107 /* End of cleaning variable jobvsr */
26108 } /*CHECKSCALAR(jobvsl==0||jobvsl==1)*/
26109 } /*if (f2py_success) of jobvsl*/
26110 /* End of cleaning variable jobvsl */
26111/*end of cleanupfrompyobj*/
26112 if (capi_buildvalue == NULL((void*)0)) {
26113/*routdebugfailure*/
26114 } else {
26115/*routdebugleave*/
26116 }
26117 CFUNCSMESS("Freeing memory.\n");
26118/*freemem*/
26119#ifdef F2PY_REPORT_ATEXIT
26120f2py_stop_clock();
26121#endif
26122 return capi_buildvalue;
26123}
26124/******************************** end of cgges ********************************/
26125
26126/*********************************** zgges ***********************************/
26127static char doc_f2py_rout__flapack_zgges[] = "\
26128a,b,sdim,alpha,beta,vsl,vsr,work,info = zgges(zselect,a,b,[jobvsl,jobvsr,sort_t,ldvsl,ldvsr,lwork,zselect_extra_args,overwrite_a,overwrite_b])\n\nWrapper for ``zgges``.\
26129\n\nParameters\n----------\n"
26130"zselect : call-back function\n"
26131"a : input rank-2 array('D') with bounds (lda,n)\n"
26132"b : input rank-2 array('D') with bounds (ldb,n)\n"
26133"\nOther Parameters\n----------------\n"
26134"jobvsl : input int, optional\n Default: 1\n"
26135"jobvsr : input int, optional\n Default: 1\n"
26136"sort_t : input int, optional\n Default: 0\n"
26137"zselect_extra_args : input tuple, optional\n Default: ()\n"
26138"overwrite_a : input int, optional\n Default: 0\n"
26139"overwrite_b : input int, optional\n Default: 0\n"
26140"ldvsl : input int, optional\n Default: ((jobvsl==1)?n:1)\n"
26141"ldvsr : input int, optional\n Default: ((jobvsr==1)?n:1)\n"
26142"lwork : input int, optional\n Default: max(2*n,1)\n"
26143"\nReturns\n-------\n"
26144"a : rank-2 array('D') with bounds (lda,n)\n"
26145"b : rank-2 array('D') with bounds (ldb,n)\n"
26146"sdim : int\n"
26147"alpha : rank-1 array('D') with bounds (n)\n"
26148"beta : rank-1 array('D') with bounds (n)\n"
26149"vsl : rank-2 array('D') with bounds (ldvsl,n)\n"
26150"vsr : rank-2 array('D') with bounds (ldvsr,n)\n"
26151"work : rank-1 array('D') with bounds (MAX(lwork,1))\n"
26152"info : int\n"
26153"\nNotes\n-----\nCall-back functions::\n\n"
26154" def zselect(alpha,beta): return zselect\n\
26155 Required arguments:\n"
26156" alpha : input complex\n"
26157" beta : input complex\n"
26158" Return objects:\n"
26159" zselect : int";
26160/* extern void F_FUNC(zgges,ZGGES)(char*,char*,char*,F_INT(*)(complex_double*,complex_double*),F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT* ); */
26161static PyObject *f2py_rout__flapack_zgges(const PyObject *capi_self,
26162 PyObject *capi_args,
26163 PyObject *capi_keywds,
26164 void (*f2py_func)(char*,char*,char*,F_INTint(*)(complex_double*,complex_double*),F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
26165 PyObject * volatile capi_buildvalue = NULL((void*)0);
26166 volatile int f2py_success = 1;
26167/*decl*/
26168
26169 int jobvsl = 0;
26170 PyObject *jobvsl_capi = Py_None(&_Py_NoneStruct);
26171 int jobvsr = 0;
26172 PyObject *jobvsr_capi = Py_None(&_Py_NoneStruct);
26173 int sort_t = 0;
26174 PyObject *sort_t_capi = Py_None(&_Py_NoneStruct);
26175 PyObject *zselect_capi = Py_None(&_Py_NoneStruct);
26176 PyTupleObject *zselect_xa_capi = NULL((void*)0);
26177 PyTupleObject *zselect_args_capi = NULL((void*)0);
26178 int zselect_nofargs_capi = 0;
26179 cb_zselect_in_gges__user__routines_typedef zselect_cptr;
26180 int n = 0;
26181 complex_double *a = NULL((void*)0);
26182 npy_intp a_Dims[2] = {-1, -1};
26183 const int a_Rank = 2;
26184 PyArrayObject *capi_a_tmp = NULL((void*)0);
26185 int capi_a_intent = 0;
26186 int capi_overwrite_a = 0;
26187 PyObject *a_capi = Py_None(&_Py_NoneStruct);
26188 int lda = 0;
26189 complex_double *b = NULL((void*)0);
26190 npy_intp b_Dims[2] = {-1, -1};
26191 const int b_Rank = 2;
26192 PyArrayObject *capi_b_tmp = NULL((void*)0);
26193 int capi_b_intent = 0;
26194 int capi_overwrite_b = 0;
26195 PyObject *b_capi = Py_None(&_Py_NoneStruct);
26196 int ldb = 0;
26197 int sdim = 0;
26198 complex_double *alpha = NULL((void*)0);
26199 npy_intp alpha_Dims[1] = {-1};
26200 const int alpha_Rank = 1;
26201 PyArrayObject *capi_alpha_tmp = NULL((void*)0);
26202 int capi_alpha_intent = 0;
26203 complex_double *beta = NULL((void*)0);
26204 npy_intp beta_Dims[1] = {-1};
26205 const int beta_Rank = 1;
26206 PyArrayObject *capi_beta_tmp = NULL((void*)0);
26207 int capi_beta_intent = 0;
26208 complex_double *vsl = NULL((void*)0);
26209 npy_intp vsl_Dims[2] = {-1, -1};
26210 const int vsl_Rank = 2;
26211 PyArrayObject *capi_vsl_tmp = NULL((void*)0);
26212 int capi_vsl_intent = 0;
26213 int ldvsl = 0;
26214 PyObject *ldvsl_capi = Py_None(&_Py_NoneStruct);
26215 complex_double *vsr = NULL((void*)0);
26216 npy_intp vsr_Dims[2] = {-1, -1};
26217 const int vsr_Rank = 2;
26218 PyArrayObject *capi_vsr_tmp = NULL((void*)0);
26219 int capi_vsr_intent = 0;
26220 int ldvsr = 0;
26221 PyObject *ldvsr_capi = Py_None(&_Py_NoneStruct);
26222 complex_double *work = NULL((void*)0);
26223 npy_intp work_Dims[1] = {-1};
26224 const int work_Rank = 1;
26225 PyArrayObject *capi_work_tmp = NULL((void*)0);
26226 int capi_work_intent = 0;
26227 int lwork = 0;
26228 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
26229 double *rwork = NULL((void*)0);
26230 npy_intp rwork_Dims[1] = {-1};
26231 const int rwork_Rank = 1;
26232 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
26233 int capi_rwork_intent = 0;
26234 int *bwork = NULL((void*)0);
26235 npy_intp bwork_Dims[1] = {-1};
26236 const int bwork_Rank = 1;
26237 PyArrayObject *capi_bwork_tmp = NULL((void*)0);
26238 int capi_bwork_intent = 0;
26239 int info = 0;
26240 static char *capi_kwlist[] = {"zselect","a","b","jobvsl","jobvsr","sort_t","ldvsl","ldvsr","lwork","zselect_extra_args","overwrite_a","overwrite_b",NULL((void*)0)};
26241
26242/*routdebugenter*/
26243#ifdef F2PY_REPORT_ATEXIT
26244f2py_start_clock();
26245#endif
26246 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
26247 "OOO|OOOOOOO!ii:_flapack.zgges",\
26248 capi_kwlist,&zselect_capi,&a_capi,&b_capi,&jobvsl_capi,&jobvsr_capi,&sort_t_capi,&ldvsl_capi,&ldvsr_capi,&lwork_capi,&PyTuple_Type,&zselect_xa_capi,&capi_overwrite_a,&capi_overwrite_b))
26249 return NULL((void*)0);
26250/*frompyobj*/
26251 /* Processing variable jobvsl */
26252 if (jobvsl_capi == Py_None(&_Py_NoneStruct)) jobvsl = 1; else
26253 f2py_success = int_from_pyobj(&jobvsl,jobvsl_capi,"_flapack.zgges() 1st keyword (jobvsl) can't be converted to int");
26254 if (f2py_success) {
26255 CHECKSCALAR(jobvsl==0||jobvsl==1,"jobvsl==0||jobvsl==1","1st keyword jobvsl","zgges:jobvsl=%d",jobvsl)if (!(jobvsl==0||jobvsl==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgges:jobvsl=%d", "(""jobvsl==0||jobvsl==1"") failed for "
"1st keyword jobvsl", jobvsl); PyErr_SetString(_flapack_error
,errstring); } else
{
26256 /* Processing variable jobvsr */
26257 if (jobvsr_capi == Py_None(&_Py_NoneStruct)) jobvsr = 1; else
26258 f2py_success = int_from_pyobj(&jobvsr,jobvsr_capi,"_flapack.zgges() 2nd keyword (jobvsr) can't be converted to int");
26259 if (f2py_success) {
26260 CHECKSCALAR(jobvsr==0||jobvsr==1,"jobvsr==0||jobvsr==1","2nd keyword jobvsr","zgges:jobvsr=%d",jobvsr)if (!(jobvsr==0||jobvsr==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgges:jobvsr=%d", "(""jobvsr==0||jobvsr==1"") failed for "
"2nd keyword jobvsr", jobvsr); PyErr_SetString(_flapack_error
,errstring); } else
{
26261 /* Processing variable sort_t */
26262 if (sort_t_capi == Py_None(&_Py_NoneStruct)) sort_t = 0; else
26263 f2py_success = int_from_pyobj(&sort_t,sort_t_capi,"_flapack.zgges() 3rd keyword (sort_t) can't be converted to int");
26264 if (f2py_success) {
26265 CHECKSCALAR(sort_t==0||sort_t==1,"sort_t==0||sort_t==1","3rd keyword sort_t","zgges:sort_t=%d",sort_t)if (!(sort_t==0||sort_t==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgges:sort_t=%d", "(""sort_t==0||sort_t==1"") failed for "
"3rd keyword sort_t", sort_t); PyErr_SetString(_flapack_error
,errstring); } else
{
26266 /* Processing variable zselect */
26267if(F2PyCapsule_Check(zselect_capi)) {
26268 zselect_cptr = F2PyCapsule_AsVoidPtr(zselect_capi);
26269} else {
26270 zselect_cptr = cb_zselect_in_gges__user__routines;
26271}
26272
26273 zselect_nofargs_capi = cb_zselect_in_gges__user__routines_nofargs;
26274 if (create_cb_arglist(zselect_capi,zselect_xa_capi,2,0,&cb_zselect_in_gges__user__routines_nofargs,&zselect_args_capi,"failed in processing argument list for call-back zselect.")) {
26275 jmp_buf zselect_jmpbuf;
26276 CFUNCSMESS("Saving jmpbuf for `zselect`.\n");
26277 SWAP(zselect_capi,cb_zselect_in_gges__user__routines_capi,PyObject){ PyObject *c; c = zselect_capi; zselect_capi = cb_zselect_in_gges__user__routines_capi
; cb_zselect_in_gges__user__routines_capi = c;}
;
26278 SWAP(zselect_args_capi,cb_zselect_in_gges__user__routines_args_capi,PyTupleObject){ PyTupleObject *c; c = zselect_args_capi; zselect_args_capi =
cb_zselect_in_gges__user__routines_args_capi; cb_zselect_in_gges__user__routines_args_capi
= c;}
;
26279 memcpy(&zselect_jmpbuf,&cb_zselect_in_gges__user__routines_jmpbuf,sizeof(jmp_buf));
26280 /* Processing variable a */
26281 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
26282 ;
26283 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
26284 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
26285 if (capi_a_tmp == NULL((void*)0)) {
26286 if (!PyErr_Occurred())
26287 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.zgges to C/Fortran array" );
26288 } else {
26289 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
26290
26291 /* Processing variable sdim */
26292 sdim = 0;
26293 /* Processing variable info */
26294 /* Processing variable n */
26295 n = shape(a,1)a_Dims[1];
26296 /* Processing variable lda */
26297 lda = shape(a,0)a_Dims[0];
26298 /* Processing variable b */
26299 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
26300 b_Dims[1]=n;
26301 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
26302 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
26303 if (capi_b_tmp == NULL((void*)0)) {
26304 if (!PyErr_Occurred())
26305 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.zgges to C/Fortran array" );
26306 } else {
26307 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
26308
26309 /* Processing variable ldb */
26310 ldb = shape(b,0)b_Dims[0];
26311 /* Processing variable alpha */
26312 alpha_Dims[0]=n;
26313 capi_alpha_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
26314 capi_alpha_tmp = array_from_pyobj(NPY_CDOUBLE,alpha_Dims,alpha_Rank,capi_alpha_intent,Py_None(&_Py_NoneStruct));
26315 if (capi_alpha_tmp == NULL((void*)0)) {
26316 if (!PyErr_Occurred())
26317 PyErr_SetString(_flapack_error,"failed in converting hidden `alpha' of _flapack.zgges to C/Fortran array" );
26318 } else {
26319 alpha = (complex_double *)(PyArray_DATA(capi_alpha_tmp)((void *)((PyArrayObject_fields *)(capi_alpha_tmp))->data));
26320
26321 /* Processing variable beta */
26322 beta_Dims[0]=n;
26323 capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
26324 capi_beta_tmp = array_from_pyobj(NPY_CDOUBLE,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct));
26325 if (capi_beta_tmp == NULL((void*)0)) {
26326 if (!PyErr_Occurred())
26327 PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.zgges to C/Fortran array" );
26328 } else {
26329 beta = (complex_double *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data));
26330
26331 /* Processing variable ldvsl */
26332 if (ldvsl_capi == Py_None(&_Py_NoneStruct)) ldvsl = ((jobvsl==1)?n:1); else
26333 f2py_success = int_from_pyobj(&ldvsl,ldvsl_capi,"_flapack.zgges() 4th keyword (ldvsl) can't be converted to int");
26334 if (f2py_success) {
26335 /* Processing variable ldvsr */
26336 if (ldvsr_capi == Py_None(&_Py_NoneStruct)) ldvsr = ((jobvsr==1)?n:1); else
26337 f2py_success = int_from_pyobj(&ldvsr,ldvsr_capi,"_flapack.zgges() 5th keyword (ldvsr) can't be converted to int");
26338 if (f2py_success) {
26339 /* Processing variable lwork */
26340 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else
26341 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgges() 6th keyword (lwork) can't be converted to int");
26342 if (f2py_success) {
26343 CHECKSCALAR(lwork>=MAX(1,2*n)||lwork==-1,"lwork>=MAX(1,2*n)||lwork==-1","6th keyword lwork","zgges:lwork=%d",lwork)if (!(lwork>=((1 > 2*n) ? (1) : (2*n))||lwork==-1)) { char
errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zgges:lwork=%d", "(""lwork>=MAX(1,2*n)||lwork==-1"
") failed for ""6th keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
26344 /* Processing variable rwork */
26345 rwork_Dims[0]=8 * n;
26346 capi_rwork_intent |= F2PY_INTENT_HIDE8;
26347 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
26348 if (capi_rwork_tmp == NULL((void*)0)) {
26349 if (!PyErr_Occurred())
26350 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgges to C/Fortran array" );
26351 } else {
26352 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
26353
26354 /* Processing variable bwork */
26355 bwork_Dims[0]=n;
26356 capi_bwork_intent |= F2PY_INTENT_HIDE8;
26357 capi_bwork_tmp = array_from_pyobj(NPY_INT,bwork_Dims,bwork_Rank,capi_bwork_intent,Py_None(&_Py_NoneStruct));
26358 if (capi_bwork_tmp == NULL((void*)0)) {
26359 if (!PyErr_Occurred())
26360 PyErr_SetString(_flapack_error,"failed in converting hidden `bwork' of _flapack.zgges to C/Fortran array" );
26361 } else {
26362 bwork = (int *)(PyArray_DATA(capi_bwork_tmp)((void *)((PyArrayObject_fields *)(capi_bwork_tmp))->data));
26363
26364 /* Processing variable vsl */
26365 vsl_Dims[0]=ldvsl,vsl_Dims[1]=n;
26366 capi_vsl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
26367 capi_vsl_tmp = array_from_pyobj(NPY_CDOUBLE,vsl_Dims,vsl_Rank,capi_vsl_intent,Py_None(&_Py_NoneStruct));
26368 if (capi_vsl_tmp == NULL((void*)0)) {
26369 if (!PyErr_Occurred())
26370 PyErr_SetString(_flapack_error,"failed in converting hidden `vsl' of _flapack.zgges to C/Fortran array" );
26371 } else {
26372 vsl = (complex_double *)(PyArray_DATA(capi_vsl_tmp)((void *)((PyArrayObject_fields *)(capi_vsl_tmp))->data));
26373
26374 /* Processing variable vsr */
26375 vsr_Dims[0]=ldvsr,vsr_Dims[1]=n;
26376 capi_vsr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
26377 capi_vsr_tmp = array_from_pyobj(NPY_CDOUBLE,vsr_Dims,vsr_Rank,capi_vsr_intent,Py_None(&_Py_NoneStruct));
26378 if (capi_vsr_tmp == NULL((void*)0)) {
26379 if (!PyErr_Occurred())
26380 PyErr_SetString(_flapack_error,"failed in converting hidden `vsr' of _flapack.zgges to C/Fortran array" );
26381 } else {
26382 vsr = (complex_double *)(PyArray_DATA(capi_vsr_tmp)((void *)((PyArrayObject_fields *)(capi_vsr_tmp))->data));
26383
26384 /* Processing variable work */
26385 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
26386 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
26387 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
26388 if (capi_work_tmp == NULL((void*)0)) {
26389 if (!PyErr_Occurred())
26390 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgges to C/Fortran array" );
26391 } else {
26392 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
26393
26394/*end of frompyobj*/
26395#ifdef F2PY_REPORT_ATEXIT
26396f2py_start_call_clock();
26397#endif
26398/*callfortranroutine*/
26399 if ((setjmp(cb_zselect_in_gges__user__routines_jmpbuf)_setjmp (cb_zselect_in_gges__user__routines_jmpbuf))) {
26400 f2py_success = 0;
26401 } else {
26402 (*f2py_func)((jobvsl?"V":"N"),(jobvsr?"V":"N"),(sort_t?"S":"N"),cb_zselect_in_gges__user__routines,&n,a,&lda,b,&ldb,&sdim,alpha,beta,vsl,&ldvsl,vsr,&ldvsr,work,&lwork,rwork,bwork,&info) ;
26403 /*(*f2py_func)(&jobvsl,&jobvsr,&sort_t,zselect_cptr,&n,a,&lda,b,&ldb,&sdim,alpha,beta,vsl,&ldvsl,vsr,&ldvsr,work,&lwork,rwork,bwork,&info);*/
26404 }
26405if (PyErr_Occurred())
26406 f2py_success = 0;
26407#ifdef F2PY_REPORT_ATEXIT
26408f2py_stop_call_clock();
26409#endif
26410/*end of callfortranroutine*/
26411 if (f2py_success) {
26412/*pyobjfrom*/
26413/*end of pyobjfrom*/
26414 CFUNCSMESS("Building return value.\n");
26415 capi_buildvalue = Py_BuildValue("NNiNNNNNi",capi_a_tmp,capi_b_tmp,sdim,capi_alpha_tmp,capi_beta_tmp,capi_vsl_tmp,capi_vsr_tmp,capi_work_tmp,info);
26416/*closepyobjfrom*/
26417/*end of closepyobjfrom*/
26418 } /*if (f2py_success) after callfortranroutine*/
26419/*cleanupfrompyobj*/
26420 } /*if (capi_work_tmp == NULL) ... else of work*/
26421 /* End of cleaning variable work */
26422 } /*if (capi_vsr_tmp == NULL) ... else of vsr*/
26423 /* End of cleaning variable vsr */
26424 } /*if (capi_vsl_tmp == NULL) ... else of vsl*/
26425 /* End of cleaning variable vsl */
26426 Py_XDECREF(capi_bwork_tmp)_Py_XDECREF(((PyObject*)(capi_bwork_tmp)));
26427 } /*if (capi_bwork_tmp == NULL) ... else of bwork*/
26428 /* End of cleaning variable bwork */
26429 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
26430 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
26431 /* End of cleaning variable rwork */
26432 } /*CHECKSCALAR(lwork>=MAX(1,2*n)||lwork==-1)*/
26433 } /*if (f2py_success) of lwork*/
26434 /* End of cleaning variable lwork */
26435 } /*if (f2py_success) of ldvsr*/
26436 /* End of cleaning variable ldvsr */
26437 } /*if (f2py_success) of ldvsl*/
26438 /* End of cleaning variable ldvsl */
26439 } /*if (capi_beta_tmp == NULL) ... else of beta*/
26440 /* End of cleaning variable beta */
26441 } /*if (capi_alpha_tmp == NULL) ... else of alpha*/
26442 /* End of cleaning variable alpha */
26443 /* End of cleaning variable ldb */
26444 } /*if (capi_b_tmp == NULL) ... else of b*/
26445 /* End of cleaning variable b */
26446 /* End of cleaning variable lda */
26447 /* End of cleaning variable n */
26448 /* End of cleaning variable info */
26449 /* End of cleaning variable sdim */
26450 } /*if (capi_a_tmp == NULL) ... else of a*/
26451 /* End of cleaning variable a */
26452 CFUNCSMESS("Restoring jmpbuf for `zselect`.\n");
26453 cb_zselect_in_gges__user__routines_capi = zselect_capi;
26454 Py_DECREF(cb_zselect_in_gges__user__routines_args_capi)_Py_DECREF(((PyObject*)(cb_zselect_in_gges__user__routines_args_capi
)))
;
26455 cb_zselect_in_gges__user__routines_args_capi = zselect_args_capi;
26456 cb_zselect_in_gges__user__routines_nofargs = zselect_nofargs_capi;
26457 memcpy(&cb_zselect_in_gges__user__routines_jmpbuf,&zselect_jmpbuf,sizeof(jmp_buf));
26458 }
26459 /* End of cleaning variable zselect */
26460 } /*CHECKSCALAR(sort_t==0||sort_t==1)*/
26461 } /*if (f2py_success) of sort_t*/
26462 /* End of cleaning variable sort_t */
26463 } /*CHECKSCALAR(jobvsr==0||jobvsr==1)*/
26464 } /*if (f2py_success) of jobvsr*/
26465 /* End of cleaning variable jobvsr */
26466 } /*CHECKSCALAR(jobvsl==0||jobvsl==1)*/
26467 } /*if (f2py_success) of jobvsl*/
26468 /* End of cleaning variable jobvsl */
26469/*end of cleanupfrompyobj*/
26470 if (capi_buildvalue == NULL((void*)0)) {
26471/*routdebugfailure*/
26472 } else {
26473/*routdebugleave*/
26474 }
26475 CFUNCSMESS("Freeing memory.\n");
26476/*freemem*/
26477#ifdef F2PY_REPORT_ATEXIT
26478f2py_stop_clock();
26479#endif
26480 return capi_buildvalue;
26481}
26482/******************************** end of zgges ********************************/
26483
26484/*********************************** sggev ***********************************/
26485static char doc_f2py_rout__flapack_sggev[] = "\
26486alphar,alphai,beta,vl,vr,work,info = sggev(a,b,[compute_vl,compute_vr,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``sggev``.\
26487\n\nParameters\n----------\n"
26488"a : input rank-2 array('f') with bounds (n,n)\n"
26489"b : input rank-2 array('f') with bounds (n,n)\n"
26490"\nOther Parameters\n----------------\n"
26491"compute_vl : input int, optional\n Default: 1\n"
26492"compute_vr : input int, optional\n Default: 1\n"
26493"overwrite_a : input int, optional\n Default: 0\n"
26494"overwrite_b : input int, optional\n Default: 0\n"
26495"lwork : input int, optional\n Default: max(8*n,1)\n"
26496"\nReturns\n-------\n"
26497"alphar : rank-1 array('f') with bounds (n)\n"
26498"alphai : rank-1 array('f') with bounds (n)\n"
26499"beta : rank-1 array('f') with bounds (n)\n"
26500"vl : rank-2 array('f') with bounds (ldvl,n)\n"
26501"vr : rank-2 array('f') with bounds (ldvr,n)\n"
26502"work : rank-1 array('f') with bounds (MAX(lwork,1))\n"
26503"info : int";
26504/* extern void F_FUNC(sggev,SGGEV)(char*,char*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */
26505static PyObject *f2py_rout__flapack_sggev(const PyObject *capi_self,
26506 PyObject *capi_args,
26507 PyObject *capi_keywds,
26508 void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
26509 PyObject * volatile capi_buildvalue = NULL((void*)0);
26510 volatile int f2py_success = 1;
26511/*decl*/
26512
26513 int compute_vl = 0;
26514 PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct);
26515 int compute_vr = 0;
26516 PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct);
26517 int n = 0;
26518 float *a = NULL((void*)0);
26519 npy_intp a_Dims[2] = {-1, -1};
26520 const int a_Rank = 2;
26521 PyArrayObject *capi_a_tmp = NULL((void*)0);
26522 int capi_a_intent = 0;
26523 int capi_overwrite_a = 0;
26524 PyObject *a_capi = Py_None(&_Py_NoneStruct);
26525 float *b = NULL((void*)0);
26526 npy_intp b_Dims[2] = {-1, -1};
26527 const int b_Rank = 2;
26528 PyArrayObject *capi_b_tmp = NULL((void*)0);
26529 int capi_b_intent = 0;
26530 int capi_overwrite_b = 0;
26531 PyObject *b_capi = Py_None(&_Py_NoneStruct);
26532 float *alphar = NULL((void*)0);
26533 npy_intp alphar_Dims[1] = {-1};
26534 const int alphar_Rank = 1;
26535 PyArrayObject *capi_alphar_tmp = NULL((void*)0);
26536 int capi_alphar_intent = 0;
26537 float *alphai = NULL((void*)0);
26538 npy_intp alphai_Dims[1] = {-1};
26539 const int alphai_Rank = 1;
26540 PyArrayObject *capi_alphai_tmp = NULL((void*)0);
26541 int capi_alphai_intent = 0;
26542 float *beta = NULL((void*)0);
26543 npy_intp beta_Dims[1] = {-1};
26544 const int beta_Rank = 1;
26545 PyArrayObject *capi_beta_tmp = NULL((void*)0);
26546 int capi_beta_intent = 0;
26547 float *vl = NULL((void*)0);
26548 npy_intp vl_Dims[2] = {-1, -1};
26549 const int vl_Rank = 2;
26550 PyArrayObject *capi_vl_tmp = NULL((void*)0);
26551 int capi_vl_intent = 0;
26552 int ldvl = 0;
26553 float *vr = NULL((void*)0);
26554 npy_intp vr_Dims[2] = {-1, -1};
26555 const int vr_Rank = 2;
26556 PyArrayObject *capi_vr_tmp = NULL((void*)0);
26557 int capi_vr_intent = 0;
26558 int ldvr = 0;
26559 float *work = NULL((void*)0);
26560 npy_intp work_Dims[1] = {-1};
26561 const int work_Rank = 1;
26562 PyArrayObject *capi_work_tmp = NULL((void*)0);
26563 int capi_work_intent = 0;
26564 int lwork = 0;
26565 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
26566 int info = 0;
26567 static char *capi_kwlist[] = {"a","b","compute_vl","compute_vr","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
26568
26569/*routdebugenter*/
26570#ifdef F2PY_REPORT_ATEXIT
26571f2py_start_clock();
26572#endif
26573 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
26574 "OO|OOOii:_flapack.sggev",\
26575 capi_kwlist,&a_capi,&b_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
26576 return NULL((void*)0);
26577/*frompyobj*/
26578 /* Processing variable compute_vl */
26579 if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else
26580 f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.sggev() 1st keyword (compute_vl) can't be converted to int");
26581 if (f2py_success) {
26582 CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","sggev:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sggev:compute_vl=%d", "(""compute_vl==1||compute_vl==0"
") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString
(_flapack_error,errstring); } else
{
26583 /* Processing variable compute_vr */
26584 if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else
26585 f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.sggev() 2nd keyword (compute_vr) can't be converted to int");
26586 if (f2py_success) {
26587 CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","sggev:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sggev:compute_vr=%d", "(""compute_vr==1||compute_vr==0"
") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString
(_flapack_error,errstring); } else
{
26588 /* Processing variable a */
26589 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
26590 ;
26591 capi_a_intent |= F2PY_INTENT_IN1;
26592 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
26593 if (capi_a_tmp == NULL((void*)0)) {
26594 if (!PyErr_Occurred())
26595 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sggev to C/Fortran array" );
26596 } else {
26597 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
26598
26599 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
26600 /* Processing variable b */
26601 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
26602 ;
26603 capi_b_intent |= F2PY_INTENT_IN1;
26604 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
26605 if (capi_b_tmp == NULL((void*)0)) {
26606 if (!PyErr_Occurred())
26607 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sggev to C/Fortran array" );
26608 } else {
26609 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
26610
26611 CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b");
} else
{
26612 /* Processing variable info */
26613 /* Processing variable n */
26614 n = shape(a,0)a_Dims[0];
26615 /* Processing variable alphar */
26616 alphar_Dims[0]=n;
26617 capi_alphar_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
26618 capi_alphar_tmp = array_from_pyobj(NPY_FLOAT,alphar_Dims,alphar_Rank,capi_alphar_intent,Py_None(&_Py_NoneStruct));
26619 if (capi_alphar_tmp == NULL((void*)0)) {
26620 if (!PyErr_Occurred())
26621 PyErr_SetString(_flapack_error,"failed in converting hidden `alphar' of _flapack.sggev to C/Fortran array" );
26622 } else {
26623 alphar = (float *)(PyArray_DATA(capi_alphar_tmp)((void *)((PyArrayObject_fields *)(capi_alphar_tmp))->data
)
);
26624
26625 /* Processing variable alphai */
26626 alphai_Dims[0]=n;
26627 capi_alphai_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
26628 capi_alphai_tmp = array_from_pyobj(NPY_FLOAT,alphai_Dims,alphai_Rank,capi_alphai_intent,Py_None(&_Py_NoneStruct));
26629 if (capi_alphai_tmp == NULL((void*)0)) {
26630 if (!PyErr_Occurred())
26631 PyErr_SetString(_flapack_error,"failed in converting hidden `alphai' of _flapack.sggev to C/Fortran array" );
26632 } else {
26633 alphai = (float *)(PyArray_DATA(capi_alphai_tmp)((void *)((PyArrayObject_fields *)(capi_alphai_tmp))->data
)
);
26634
26635 /* Processing variable beta */
26636 beta_Dims[0]=n;
26637 capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
26638 capi_beta_tmp = array_from_pyobj(NPY_FLOAT,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct));
26639 if (capi_beta_tmp == NULL((void*)0)) {
26640 if (!PyErr_Occurred())
26641 PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.sggev to C/Fortran array" );
26642 } else {
26643 beta = (float *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data));
26644
26645 /* Processing variable ldvl */
26646 ldvl = (compute_vl?n:1);
26647 /* Processing variable ldvr */
26648 ldvr = (compute_vr?n:1);
26649 /* Processing variable lwork */
26650 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(8*n,1)((8*n > 1) ? (8*n) : (1)); else
26651 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sggev() 3rd keyword (lwork) can't be converted to int");
26652 if (f2py_success) {
26653 CHECKSCALAR((lwork==-1) || (lwork>=MAX(1,8*n)),"(lwork==-1) || (lwork>=MAX(1,8*n))","3rd keyword lwork","sggev:lwork=%d",lwork)if (!((lwork==-1) || (lwork>=((1 > 8*n) ? (1) : (8*n)))
)) { char errstring[256]; __builtin___sprintf_chk (errstring,
2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sggev:lwork=%d"
, "(""(lwork==-1) || (lwork>=MAX(1,8*n))"") failed for ""3rd keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
26654 /* Processing variable work */
26655 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
26656 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
26657 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
26658 if (capi_work_tmp == NULL((void*)0)) {
26659 if (!PyErr_Occurred())
26660 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sggev to C/Fortran array" );
26661 } else {
26662 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
26663
26664 /* Processing variable vl */
26665 vl_Dims[0]=ldvl,vl_Dims[1]=n;
26666 capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
26667 capi_vl_tmp = array_from_pyobj(NPY_FLOAT,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct));
26668 if (capi_vl_tmp == NULL((void*)0)) {
26669 if (!PyErr_Occurred())
26670 PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.sggev to C/Fortran array" );
26671 } else {
26672 vl = (float *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data));
26673
26674 /* Processing variable vr */
26675 vr_Dims[0]=ldvr,vr_Dims[1]=n;
26676 capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
26677 capi_vr_tmp = array_from_pyobj(NPY_FLOAT,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct));
26678 if (capi_vr_tmp == NULL((void*)0)) {
26679 if (!PyErr_Occurred())
26680 PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.sggev to C/Fortran array" );
26681 } else {
26682 vr = (float *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data));
26683
26684/*end of frompyobj*/
26685#ifdef F2PY_REPORT_ATEXIT
26686f2py_start_call_clock();
26687#endif
26688/*callfortranroutine*/
26689 {(*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,b,&n,alphar,alphai,beta,vl,&ldvl,vr,&ldvr,work,&lwork,&info);} ;
26690 /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,b,alphar,alphai,beta,vl,&ldvl,vr,&ldvr,work,&lwork,&info);*/
26691if (PyErr_Occurred())
26692 f2py_success = 0;
26693#ifdef F2PY_REPORT_ATEXIT
26694f2py_stop_call_clock();
26695#endif
26696/*end of callfortranroutine*/
26697 if (f2py_success) {
26698/*pyobjfrom*/
26699/*end of pyobjfrom*/
26700 CFUNCSMESS("Building return value.\n");
26701 capi_buildvalue = Py_BuildValue("NNNNNNi",capi_alphar_tmp,capi_alphai_tmp,capi_beta_tmp,capi_vl_tmp,capi_vr_tmp,capi_work_tmp,info);
26702/*closepyobjfrom*/
26703/*end of closepyobjfrom*/
26704 } /*if (f2py_success) after callfortranroutine*/
26705/*cleanupfrompyobj*/
26706 } /*if (capi_vr_tmp == NULL) ... else of vr*/
26707 /* End of cleaning variable vr */
26708 } /*if (capi_vl_tmp == NULL) ... else of vl*/
26709 /* End of cleaning variable vl */
26710 } /*if (capi_work_tmp == NULL) ... else of work*/
26711 /* End of cleaning variable work */
26712 } /*CHECKSCALAR((lwork==-1) || (lwork>=MAX(1,8*n)))*/
26713 } /*if (f2py_success) of lwork*/
26714 /* End of cleaning variable lwork */
26715 /* End of cleaning variable ldvr */
26716 /* End of cleaning variable ldvl */
26717 } /*if (capi_beta_tmp == NULL) ... else of beta*/
26718 /* End of cleaning variable beta */
26719 } /*if (capi_alphai_tmp == NULL) ... else of alphai*/
26720 /* End of cleaning variable alphai */
26721 } /*if (capi_alphar_tmp == NULL) ... else of alphar*/
26722 /* End of cleaning variable alphar */
26723 /* End of cleaning variable n */
26724 /* End of cleaning variable info */
26725 } /*CHECKARRAY(shape(b,0)==shape(b,1))*/
26726 if((PyObject *)capi_b_tmp!=b_capi) {
26727 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
26728 } /*if (capi_b_tmp == NULL) ... else of b*/
26729 /* End of cleaning variable b */
26730 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
26731 if((PyObject *)capi_a_tmp!=a_capi) {
26732 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
26733 } /*if (capi_a_tmp == NULL) ... else of a*/
26734 /* End of cleaning variable a */
26735 } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/
26736 } /*if (f2py_success) of compute_vr*/
26737 /* End of cleaning variable compute_vr */
26738 } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/
26739 } /*if (f2py_success) of compute_vl*/
26740 /* End of cleaning variable compute_vl */
26741/*end of cleanupfrompyobj*/
26742 if (capi_buildvalue == NULL((void*)0)) {
26743/*routdebugfailure*/
26744 } else {
26745/*routdebugleave*/
26746 }
26747 CFUNCSMESS("Freeing memory.\n");
26748/*freemem*/
26749#ifdef F2PY_REPORT_ATEXIT
26750f2py_stop_clock();
26751#endif
26752 return capi_buildvalue;
26753}
26754/******************************** end of sggev ********************************/
26755
26756/*********************************** dggev ***********************************/
26757static char doc_f2py_rout__flapack_dggev[] = "\
26758alphar,alphai,beta,vl,vr,work,info = dggev(a,b,[compute_vl,compute_vr,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``dggev``.\
26759\n\nParameters\n----------\n"
26760"a : input rank-2 array('d') with bounds (n,n)\n"
26761"b : input rank-2 array('d') with bounds (n,n)\n"
26762"\nOther Parameters\n----------------\n"
26763"compute_vl : input int, optional\n Default: 1\n"
26764"compute_vr : input int, optional\n Default: 1\n"
26765"overwrite_a : input int, optional\n Default: 0\n"
26766"overwrite_b : input int, optional\n Default: 0\n"
26767"lwork : input int, optional\n Default: max(8*n,1)\n"
26768"\nReturns\n-------\n"
26769"alphar : rank-1 array('d') with bounds (n)\n"
26770"alphai : rank-1 array('d') with bounds (n)\n"
26771"beta : rank-1 array('d') with bounds (n)\n"
26772"vl : rank-2 array('d') with bounds (ldvl,n)\n"
26773"vr : rank-2 array('d') with bounds (ldvr,n)\n"
26774"work : rank-1 array('d') with bounds (MAX(lwork,1))\n"
26775"info : int";
26776/* extern void F_FUNC(dggev,DGGEV)(char*,char*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */
26777static PyObject *f2py_rout__flapack_dggev(const PyObject *capi_self,
26778 PyObject *capi_args,
26779 PyObject *capi_keywds,
26780 void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
26781 PyObject * volatile capi_buildvalue = NULL((void*)0);
26782 volatile int f2py_success = 1;
26783/*decl*/
26784
26785 int compute_vl = 0;
26786 PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct);
26787 int compute_vr = 0;
26788 PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct);
26789 int n = 0;
26790 double *a = NULL((void*)0);
26791 npy_intp a_Dims[2] = {-1, -1};
26792 const int a_Rank = 2;
26793 PyArrayObject *capi_a_tmp = NULL((void*)0);
26794 int capi_a_intent = 0;
26795 int capi_overwrite_a = 0;
26796 PyObject *a_capi = Py_None(&_Py_NoneStruct);
26797 double *b = NULL((void*)0);
26798 npy_intp b_Dims[2] = {-1, -1};
26799 const int b_Rank = 2;
26800 PyArrayObject *capi_b_tmp = NULL((void*)0);
26801 int capi_b_intent = 0;
26802 int capi_overwrite_b = 0;
26803 PyObject *b_capi = Py_None(&_Py_NoneStruct);
26804 double *alphar = NULL((void*)0);
26805 npy_intp alphar_Dims[1] = {-1};
26806 const int alphar_Rank = 1;
26807 PyArrayObject *capi_alphar_tmp = NULL((void*)0);
26808 int capi_alphar_intent = 0;
26809 double *alphai = NULL((void*)0);
26810 npy_intp alphai_Dims[1] = {-1};
26811 const int alphai_Rank = 1;
26812 PyArrayObject *capi_alphai_tmp = NULL((void*)0);
26813 int capi_alphai_intent = 0;
26814 double *beta = NULL((void*)0);
26815 npy_intp beta_Dims[1] = {-1};
26816 const int beta_Rank = 1;
26817 PyArrayObject *capi_beta_tmp = NULL((void*)0);
26818 int capi_beta_intent = 0;
26819 double *vl = NULL((void*)0);
26820 npy_intp vl_Dims[2] = {-1, -1};
26821 const int vl_Rank = 2;
26822 PyArrayObject *capi_vl_tmp = NULL((void*)0);
26823 int capi_vl_intent = 0;
26824 int ldvl = 0;
26825 double *vr = NULL((void*)0);
26826 npy_intp vr_Dims[2] = {-1, -1};
26827 const int vr_Rank = 2;
26828 PyArrayObject *capi_vr_tmp = NULL((void*)0);
26829 int capi_vr_intent = 0;
26830 int ldvr = 0;
26831 double *work = NULL((void*)0);
26832 npy_intp work_Dims[1] = {-1};
26833 const int work_Rank = 1;
26834 PyArrayObject *capi_work_tmp = NULL((void*)0);
26835 int capi_work_intent = 0;
26836 int lwork = 0;
26837 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
26838 int info = 0;
26839 static char *capi_kwlist[] = {"a","b","compute_vl","compute_vr","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
26840
26841/*routdebugenter*/
26842#ifdef F2PY_REPORT_ATEXIT
26843f2py_start_clock();
26844#endif
26845 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
26846 "OO|OOOii:_flapack.dggev",\
26847 capi_kwlist,&a_capi,&b_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
26848 return NULL((void*)0);
26849/*frompyobj*/
26850 /* Processing variable compute_vl */
26851 if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else
26852 f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.dggev() 1st keyword (compute_vl) can't be converted to int");
26853 if (f2py_success) {
26854 CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","dggev:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dggev:compute_vl=%d", "(""compute_vl==1||compute_vl==0"
") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString
(_flapack_error,errstring); } else
{
26855 /* Processing variable compute_vr */
26856 if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else
26857 f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.dggev() 2nd keyword (compute_vr) can't be converted to int");
26858 if (f2py_success) {
26859 CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","dggev:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dggev:compute_vr=%d", "(""compute_vr==1||compute_vr==0"
") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString
(_flapack_error,errstring); } else
{
26860 /* Processing variable a */
26861 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
26862 ;
26863 capi_a_intent |= F2PY_INTENT_IN1;
26864 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
26865 if (capi_a_tmp == NULL((void*)0)) {
26866 if (!PyErr_Occurred())
26867 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dggev to C/Fortran array" );
26868 } else {
26869 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
26870
26871 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
26872 /* Processing variable b */
26873 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
26874 ;
26875 capi_b_intent |= F2PY_INTENT_IN1;
26876 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
26877 if (capi_b_tmp == NULL((void*)0)) {
26878 if (!PyErr_Occurred())
26879 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dggev to C/Fortran array" );
26880 } else {
26881 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
26882
26883 CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b");
} else
{
26884 /* Processing variable info */
26885 /* Processing variable n */
26886 n = shape(a,0)a_Dims[0];
26887 /* Processing variable alphar */
26888 alphar_Dims[0]=n;
26889 capi_alphar_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
26890 capi_alphar_tmp = array_from_pyobj(NPY_DOUBLE,alphar_Dims,alphar_Rank,capi_alphar_intent,Py_None(&_Py_NoneStruct));
26891 if (capi_alphar_tmp == NULL((void*)0)) {
26892 if (!PyErr_Occurred())
26893 PyErr_SetString(_flapack_error,"failed in converting hidden `alphar' of _flapack.dggev to C/Fortran array" );
26894 } else {
26895 alphar = (double *)(PyArray_DATA(capi_alphar_tmp)((void *)((PyArrayObject_fields *)(capi_alphar_tmp))->data
)
);
26896
26897 /* Processing variable alphai */
26898 alphai_Dims[0]=n;
26899 capi_alphai_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
26900 capi_alphai_tmp = array_from_pyobj(NPY_DOUBLE,alphai_Dims,alphai_Rank,capi_alphai_intent,Py_None(&_Py_NoneStruct));
26901 if (capi_alphai_tmp == NULL((void*)0)) {
26902 if (!PyErr_Occurred())
26903 PyErr_SetString(_flapack_error,"failed in converting hidden `alphai' of _flapack.dggev to C/Fortran array" );
26904 } else {
26905 alphai = (double *)(PyArray_DATA(capi_alphai_tmp)((void *)((PyArrayObject_fields *)(capi_alphai_tmp))->data
)
);
26906
26907 /* Processing variable beta */
26908 beta_Dims[0]=n;
26909 capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
26910 capi_beta_tmp = array_from_pyobj(NPY_DOUBLE,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct));
26911 if (capi_beta_tmp == NULL((void*)0)) {
26912 if (!PyErr_Occurred())
26913 PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.dggev to C/Fortran array" );
26914 } else {
26915 beta = (double *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data));
26916
26917 /* Processing variable ldvl */
26918 ldvl = (compute_vl?n:1);
26919 /* Processing variable ldvr */
26920 ldvr = (compute_vr?n:1);
26921 /* Processing variable lwork */
26922 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(8*n,1)((8*n > 1) ? (8*n) : (1)); else
26923 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dggev() 3rd keyword (lwork) can't be converted to int");
26924 if (f2py_success) {
26925 CHECKSCALAR((lwork==-1) || (lwork>=MAX(1,8*n)),"(lwork==-1) || (lwork>=MAX(1,8*n))","3rd keyword lwork","dggev:lwork=%d",lwork)if (!((lwork==-1) || (lwork>=((1 > 8*n) ? (1) : (8*n)))
)) { char errstring[256]; __builtin___sprintf_chk (errstring,
2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dggev:lwork=%d"
, "(""(lwork==-1) || (lwork>=MAX(1,8*n))"") failed for ""3rd keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
26926 /* Processing variable work */
26927 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
26928 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
26929 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
26930 if (capi_work_tmp == NULL((void*)0)) {
26931 if (!PyErr_Occurred())
26932 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dggev to C/Fortran array" );
26933 } else {
26934 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
26935
26936 /* Processing variable vl */
26937 vl_Dims[0]=ldvl,vl_Dims[1]=n;
26938 capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
26939 capi_vl_tmp = array_from_pyobj(NPY_DOUBLE,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct));
26940 if (capi_vl_tmp == NULL((void*)0)) {
26941 if (!PyErr_Occurred())
26942 PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.dggev to C/Fortran array" );
26943 } else {
26944 vl = (double *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data));
26945
26946 /* Processing variable vr */
26947 vr_Dims[0]=ldvr,vr_Dims[1]=n;
26948 capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
26949 capi_vr_tmp = array_from_pyobj(NPY_DOUBLE,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct));
26950 if (capi_vr_tmp == NULL((void*)0)) {
26951 if (!PyErr_Occurred())
26952 PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.dggev to C/Fortran array" );
26953 } else {
26954 vr = (double *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data));
26955
26956/*end of frompyobj*/
26957#ifdef F2PY_REPORT_ATEXIT
26958f2py_start_call_clock();
26959#endif
26960/*callfortranroutine*/
26961 {(*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,b,&n,alphar,alphai,beta,vl,&ldvl,vr,&ldvr,work,&lwork,&info);} ;
26962 /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,b,alphar,alphai,beta,vl,&ldvl,vr,&ldvr,work,&lwork,&info);*/
26963if (PyErr_Occurred())
26964 f2py_success = 0;
26965#ifdef F2PY_REPORT_ATEXIT
26966f2py_stop_call_clock();
26967#endif
26968/*end of callfortranroutine*/
26969 if (f2py_success) {
26970/*pyobjfrom*/
26971/*end of pyobjfrom*/
26972 CFUNCSMESS("Building return value.\n");
26973 capi_buildvalue = Py_BuildValue("NNNNNNi",capi_alphar_tmp,capi_alphai_tmp,capi_beta_tmp,capi_vl_tmp,capi_vr_tmp,capi_work_tmp,info);
26974/*closepyobjfrom*/
26975/*end of closepyobjfrom*/
26976 } /*if (f2py_success) after callfortranroutine*/
26977/*cleanupfrompyobj*/
26978 } /*if (capi_vr_tmp == NULL) ... else of vr*/
26979 /* End of cleaning variable vr */
26980 } /*if (capi_vl_tmp == NULL) ... else of vl*/
26981 /* End of cleaning variable vl */
26982 } /*if (capi_work_tmp == NULL) ... else of work*/
26983 /* End of cleaning variable work */
26984 } /*CHECKSCALAR((lwork==-1) || (lwork>=MAX(1,8*n)))*/
26985 } /*if (f2py_success) of lwork*/
26986 /* End of cleaning variable lwork */
26987 /* End of cleaning variable ldvr */
26988 /* End of cleaning variable ldvl */
26989 } /*if (capi_beta_tmp == NULL) ... else of beta*/
26990 /* End of cleaning variable beta */
26991 } /*if (capi_alphai_tmp == NULL) ... else of alphai*/
26992 /* End of cleaning variable alphai */
26993 } /*if (capi_alphar_tmp == NULL) ... else of alphar*/
26994 /* End of cleaning variable alphar */
26995 /* End of cleaning variable n */
26996 /* End of cleaning variable info */
26997 } /*CHECKARRAY(shape(b,0)==shape(b,1))*/
26998 if((PyObject *)capi_b_tmp!=b_capi) {
26999 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
27000 } /*if (capi_b_tmp == NULL) ... else of b*/
27001 /* End of cleaning variable b */
27002 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
27003 if((PyObject *)capi_a_tmp!=a_capi) {
27004 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
27005 } /*if (capi_a_tmp == NULL) ... else of a*/
27006 /* End of cleaning variable a */
27007 } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/
27008 } /*if (f2py_success) of compute_vr*/
27009 /* End of cleaning variable compute_vr */
27010 } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/
27011 } /*if (f2py_success) of compute_vl*/
27012 /* End of cleaning variable compute_vl */
27013/*end of cleanupfrompyobj*/
27014 if (capi_buildvalue == NULL((void*)0)) {
27015/*routdebugfailure*/
27016 } else {
27017/*routdebugleave*/
27018 }
27019 CFUNCSMESS("Freeing memory.\n");
27020/*freemem*/
27021#ifdef F2PY_REPORT_ATEXIT
27022f2py_stop_clock();
27023#endif
27024 return capi_buildvalue;
27025}
27026/******************************** end of dggev ********************************/
27027
27028/*********************************** cggev ***********************************/
27029static char doc_f2py_rout__flapack_cggev[] = "\
27030alpha,beta,vl,vr,work,info = cggev(a,b,[compute_vl,compute_vr,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``cggev``.\
27031\n\nParameters\n----------\n"
27032"a : input rank-2 array('F') with bounds (n,n)\n"
27033"b : input rank-2 array('F') with bounds (n,n)\n"
27034"\nOther Parameters\n----------------\n"
27035"compute_vl : input int, optional\n Default: 1\n"
27036"compute_vr : input int, optional\n Default: 1\n"
27037"overwrite_a : input int, optional\n Default: 0\n"
27038"overwrite_b : input int, optional\n Default: 0\n"
27039"lwork : input int, optional\n Default: max(2*n,1)\n"
27040"\nReturns\n-------\n"
27041"alpha : rank-1 array('F') with bounds (n)\n"
27042"beta : rank-1 array('F') with bounds (n)\n"
27043"vl : rank-2 array('F') with bounds (ldvl,n)\n"
27044"vr : rank-2 array('F') with bounds (ldvr,n)\n"
27045"work : rank-1 array('F') with bounds (MAX(lwork,1))\n"
27046"info : int";
27047/* extern void F_FUNC(cggev,CGGEV)(char*,char*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */
27048static PyObject *f2py_rout__flapack_cggev(const PyObject *capi_self,
27049 PyObject *capi_args,
27050 PyObject *capi_keywds,
27051 void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) {
27052 PyObject * volatile capi_buildvalue = NULL((void*)0);
27053 volatile int f2py_success = 1;
27054/*decl*/
27055
27056 int compute_vl = 0;
27057 PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct);
27058 int compute_vr = 0;
27059 PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct);
27060 int n = 0;
27061 complex_float *a = NULL((void*)0);
27062 npy_intp a_Dims[2] = {-1, -1};
27063 const int a_Rank = 2;
27064 PyArrayObject *capi_a_tmp = NULL((void*)0);
27065 int capi_a_intent = 0;
27066 int capi_overwrite_a = 0;
27067 PyObject *a_capi = Py_None(&_Py_NoneStruct);
27068 complex_float *b = NULL((void*)0);
27069 npy_intp b_Dims[2] = {-1, -1};
27070 const int b_Rank = 2;
27071 PyArrayObject *capi_b_tmp = NULL((void*)0);
27072 int capi_b_intent = 0;
27073 int capi_overwrite_b = 0;
27074 PyObject *b_capi = Py_None(&_Py_NoneStruct);
27075 complex_float *alpha = NULL((void*)0);
27076 npy_intp alpha_Dims[1] = {-1};
27077 const int alpha_Rank = 1;
27078 PyArrayObject *capi_alpha_tmp = NULL((void*)0);
27079 int capi_alpha_intent = 0;
27080 complex_float *beta = NULL((void*)0);
27081 npy_intp beta_Dims[1] = {-1};
27082 const int beta_Rank = 1;
27083 PyArrayObject *capi_beta_tmp = NULL((void*)0);
27084 int capi_beta_intent = 0;
27085 complex_float *vl = NULL((void*)0);
27086 npy_intp vl_Dims[2] = {-1, -1};
27087 const int vl_Rank = 2;
27088 PyArrayObject *capi_vl_tmp = NULL((void*)0);
27089 int capi_vl_intent = 0;
27090 int ldvl = 0;
27091 complex_float *vr = NULL((void*)0);
27092 npy_intp vr_Dims[2] = {-1, -1};
27093 const int vr_Rank = 2;
27094 PyArrayObject *capi_vr_tmp = NULL((void*)0);
27095 int capi_vr_intent = 0;
27096 int ldvr = 0;
27097 complex_float *work = NULL((void*)0);
27098 npy_intp work_Dims[1] = {-1};
27099 const int work_Rank = 1;
27100 PyArrayObject *capi_work_tmp = NULL((void*)0);
27101 int capi_work_intent = 0;
27102 int lwork = 0;
27103 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
27104 float *rwork = NULL((void*)0);
27105 npy_intp rwork_Dims[1] = {-1};
27106 const int rwork_Rank = 1;
27107 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
27108 int capi_rwork_intent = 0;
27109 int info = 0;
27110 static char *capi_kwlist[] = {"a","b","compute_vl","compute_vr","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
27111
27112/*routdebugenter*/
27113#ifdef F2PY_REPORT_ATEXIT
27114f2py_start_clock();
27115#endif
27116 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
27117 "OO|OOOii:_flapack.cggev",\
27118 capi_kwlist,&a_capi,&b_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
27119 return NULL((void*)0);
27120/*frompyobj*/
27121 /* Processing variable compute_vl */
27122 if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else
27123 f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.cggev() 1st keyword (compute_vl) can't be converted to int");
27124 if (f2py_success) {
27125 CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","cggev:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cggev:compute_vl=%d", "(""compute_vl==1||compute_vl==0"
") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString
(_flapack_error,errstring); } else
{
27126 /* Processing variable compute_vr */
27127 if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else
27128 f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.cggev() 2nd keyword (compute_vr) can't be converted to int");
27129 if (f2py_success) {
27130 CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","cggev:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cggev:compute_vr=%d", "(""compute_vr==1||compute_vr==0"
") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString
(_flapack_error,errstring); } else
{
27131 /* Processing variable a */
27132 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
27133 ;
27134 capi_a_intent |= F2PY_INTENT_IN1;
27135 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
27136 if (capi_a_tmp == NULL((void*)0)) {
27137 if (!PyErr_Occurred())
27138 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cggev to C/Fortran array" );
27139 } else {
27140 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
27141
27142 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
27143 /* Processing variable b */
27144 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
27145 ;
27146 capi_b_intent |= F2PY_INTENT_IN1;
27147 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
27148 if (capi_b_tmp == NULL((void*)0)) {
27149 if (!PyErr_Occurred())
27150 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cggev to C/Fortran array" );
27151 } else {
27152 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
27153
27154 CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b");
} else
{
27155 /* Processing variable info */
27156 /* Processing variable n */
27157 n = shape(a,0)a_Dims[0];
27158 /* Processing variable alpha */
27159 alpha_Dims[0]=n;
27160 capi_alpha_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
27161 capi_alpha_tmp = array_from_pyobj(NPY_CFLOAT,alpha_Dims,alpha_Rank,capi_alpha_intent,Py_None(&_Py_NoneStruct));
27162 if (capi_alpha_tmp == NULL((void*)0)) {
27163 if (!PyErr_Occurred())
27164 PyErr_SetString(_flapack_error,"failed in converting hidden `alpha' of _flapack.cggev to C/Fortran array" );
27165 } else {
27166 alpha = (complex_float *)(PyArray_DATA(capi_alpha_tmp)((void *)((PyArrayObject_fields *)(capi_alpha_tmp))->data));
27167
27168 /* Processing variable beta */
27169 beta_Dims[0]=n;
27170 capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
27171 capi_beta_tmp = array_from_pyobj(NPY_CFLOAT,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct));
27172 if (capi_beta_tmp == NULL((void*)0)) {
27173 if (!PyErr_Occurred())
27174 PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.cggev to C/Fortran array" );
27175 } else {
27176 beta = (complex_float *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data));
27177
27178 /* Processing variable ldvl */
27179 ldvl = (compute_vl?n:1);
27180 /* Processing variable ldvr */
27181 ldvr = (compute_vr?n:1);
27182 /* Processing variable lwork */
27183 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else
27184 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cggev() 3rd keyword (lwork) can't be converted to int");
27185 if (f2py_success) {
27186 CHECKSCALAR((lwork==-1) || (lwork>=MAX(1,2*n)),"(lwork==-1) || (lwork>=MAX(1,2*n))","3rd keyword lwork","cggev:lwork=%d",lwork)if (!((lwork==-1) || (lwork>=((1 > 2*n) ? (1) : (2*n)))
)) { char errstring[256]; __builtin___sprintf_chk (errstring,
2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cggev:lwork=%d"
, "(""(lwork==-1) || (lwork>=MAX(1,2*n))"") failed for ""3rd keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
27187 /* Processing variable work */
27188 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
27189 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
27190 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
27191 if (capi_work_tmp == NULL((void*)0)) {
27192 if (!PyErr_Occurred())
27193 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cggev to C/Fortran array" );
27194 } else {
27195 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
27196
27197 /* Processing variable rwork */
27198 rwork_Dims[0]=8 * n;
27199 capi_rwork_intent |= F2PY_INTENT_HIDE8;
27200 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
27201 if (capi_rwork_tmp == NULL((void*)0)) {
27202 if (!PyErr_Occurred())
27203 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cggev to C/Fortran array" );
27204 } else {
27205 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
27206
27207 /* Processing variable vl */
27208 vl_Dims[0]=ldvl,vl_Dims[1]=n;
27209 capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
27210 capi_vl_tmp = array_from_pyobj(NPY_CFLOAT,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct));
27211 if (capi_vl_tmp == NULL((void*)0)) {
27212 if (!PyErr_Occurred())
27213 PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.cggev to C/Fortran array" );
27214 } else {
27215 vl = (complex_float *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data));
27216
27217 /* Processing variable vr */
27218 vr_Dims[0]=ldvr,vr_Dims[1]=n;
27219 capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
27220 capi_vr_tmp = array_from_pyobj(NPY_CFLOAT,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct));
27221 if (capi_vr_tmp == NULL((void*)0)) {
27222 if (!PyErr_Occurred())
27223 PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.cggev to C/Fortran array" );
27224 } else {
27225 vr = (complex_float *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data));
27226
27227/*end of frompyobj*/
27228#ifdef F2PY_REPORT_ATEXIT
27229f2py_start_call_clock();
27230#endif
27231/*callfortranroutine*/
27232 {(*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,b,&n,alpha,beta,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info);} ;
27233 /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,b,alpha,beta,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info);*/
27234if (PyErr_Occurred())
27235 f2py_success = 0;
27236#ifdef F2PY_REPORT_ATEXIT
27237f2py_stop_call_clock();
27238#endif
27239/*end of callfortranroutine*/
27240 if (f2py_success) {
27241/*pyobjfrom*/
27242/*end of pyobjfrom*/
27243 CFUNCSMESS("Building return value.\n");
27244 capi_buildvalue = Py_BuildValue("NNNNNi",capi_alpha_tmp,capi_beta_tmp,capi_vl_tmp,capi_vr_tmp,capi_work_tmp,info);
27245/*closepyobjfrom*/
27246/*end of closepyobjfrom*/
27247 } /*if (f2py_success) after callfortranroutine*/
27248/*cleanupfrompyobj*/
27249 } /*if (capi_vr_tmp == NULL) ... else of vr*/
27250 /* End of cleaning variable vr */
27251 } /*if (capi_vl_tmp == NULL) ... else of vl*/
27252 /* End of cleaning variable vl */
27253 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
27254 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
27255 /* End of cleaning variable rwork */
27256 } /*if (capi_work_tmp == NULL) ... else of work*/
27257 /* End of cleaning variable work */
27258 } /*CHECKSCALAR((lwork==-1) || (lwork>=MAX(1,2*n)))*/
27259 } /*if (f2py_success) of lwork*/
27260 /* End of cleaning variable lwork */
27261 /* End of cleaning variable ldvr */
27262 /* End of cleaning variable ldvl */
27263 } /*if (capi_beta_tmp == NULL) ... else of beta*/
27264 /* End of cleaning variable beta */
27265 } /*if (capi_alpha_tmp == NULL) ... else of alpha*/
27266 /* End of cleaning variable alpha */
27267 /* End of cleaning variable n */
27268 /* End of cleaning variable info */
27269 } /*CHECKARRAY(shape(b,0)==shape(b,1))*/
27270 if((PyObject *)capi_b_tmp!=b_capi) {
27271 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
27272 } /*if (capi_b_tmp == NULL) ... else of b*/
27273 /* End of cleaning variable b */
27274 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
27275 if((PyObject *)capi_a_tmp!=a_capi) {
27276 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
27277 } /*if (capi_a_tmp == NULL) ... else of a*/
27278 /* End of cleaning variable a */
27279 } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/
27280 } /*if (f2py_success) of compute_vr*/
27281 /* End of cleaning variable compute_vr */
27282 } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/
27283 } /*if (f2py_success) of compute_vl*/
27284 /* End of cleaning variable compute_vl */
27285/*end of cleanupfrompyobj*/
27286 if (capi_buildvalue == NULL((void*)0)) {
27287/*routdebugfailure*/
27288 } else {
27289/*routdebugleave*/
27290 }
27291 CFUNCSMESS("Freeing memory.\n");
27292/*freemem*/
27293#ifdef F2PY_REPORT_ATEXIT
27294f2py_stop_clock();
27295#endif
27296 return capi_buildvalue;
27297}
27298/******************************** end of cggev ********************************/
27299
27300/*********************************** zggev ***********************************/
27301static char doc_f2py_rout__flapack_zggev[] = "\
27302alpha,beta,vl,vr,work,info = zggev(a,b,[compute_vl,compute_vr,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``zggev``.\
27303\n\nParameters\n----------\n"
27304"a : input rank-2 array('D') with bounds (n,n)\n"
27305"b : input rank-2 array('D') with bounds (n,n)\n"
27306"\nOther Parameters\n----------------\n"
27307"compute_vl : input int, optional\n Default: 1\n"
27308"compute_vr : input int, optional\n Default: 1\n"
27309"overwrite_a : input int, optional\n Default: 0\n"
27310"overwrite_b : input int, optional\n Default: 0\n"
27311"lwork : input int, optional\n Default: max(2*n,1)\n"
27312"\nReturns\n-------\n"
27313"alpha : rank-1 array('D') with bounds (n)\n"
27314"beta : rank-1 array('D') with bounds (n)\n"
27315"vl : rank-2 array('D') with bounds (ldvl,n)\n"
27316"vr : rank-2 array('D') with bounds (ldvr,n)\n"
27317"work : rank-1 array('D') with bounds (MAX(lwork,1))\n"
27318"info : int";
27319/* extern void F_FUNC(zggev,ZGGEV)(char*,char*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */
27320static PyObject *f2py_rout__flapack_zggev(const PyObject *capi_self,
27321 PyObject *capi_args,
27322 PyObject *capi_keywds,
27323 void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) {
27324 PyObject * volatile capi_buildvalue = NULL((void*)0);
27325 volatile int f2py_success = 1;
27326/*decl*/
27327
27328 int compute_vl = 0;
27329 PyObject *compute_vl_capi = Py_None(&_Py_NoneStruct);
27330 int compute_vr = 0;
27331 PyObject *compute_vr_capi = Py_None(&_Py_NoneStruct);
27332 int n = 0;
27333 complex_double *a = NULL((void*)0);
27334 npy_intp a_Dims[2] = {-1, -1};
27335 const int a_Rank = 2;
27336 PyArrayObject *capi_a_tmp = NULL((void*)0);
27337 int capi_a_intent = 0;
27338 int capi_overwrite_a = 0;
27339 PyObject *a_capi = Py_None(&_Py_NoneStruct);
27340 complex_double *b = NULL((void*)0);
27341 npy_intp b_Dims[2] = {-1, -1};
27342 const int b_Rank = 2;
27343 PyArrayObject *capi_b_tmp = NULL((void*)0);
27344 int capi_b_intent = 0;
27345 int capi_overwrite_b = 0;
27346 PyObject *b_capi = Py_None(&_Py_NoneStruct);
27347 complex_double *alpha = NULL((void*)0);
27348 npy_intp alpha_Dims[1] = {-1};
27349 const int alpha_Rank = 1;
27350 PyArrayObject *capi_alpha_tmp = NULL((void*)0);
27351 int capi_alpha_intent = 0;
27352 complex_double *beta = NULL((void*)0);
27353 npy_intp beta_Dims[1] = {-1};
27354 const int beta_Rank = 1;
27355 PyArrayObject *capi_beta_tmp = NULL((void*)0);
27356 int capi_beta_intent = 0;
27357 complex_double *vl = NULL((void*)0);
27358 npy_intp vl_Dims[2] = {-1, -1};
27359 const int vl_Rank = 2;
27360 PyArrayObject *capi_vl_tmp = NULL((void*)0);
27361 int capi_vl_intent = 0;
27362 int ldvl = 0;
27363 complex_double *vr = NULL((void*)0);
27364 npy_intp vr_Dims[2] = {-1, -1};
27365 const int vr_Rank = 2;
27366 PyArrayObject *capi_vr_tmp = NULL((void*)0);
27367 int capi_vr_intent = 0;
27368 int ldvr = 0;
27369 complex_double *work = NULL((void*)0);
27370 npy_intp work_Dims[1] = {-1};
27371 const int work_Rank = 1;
27372 PyArrayObject *capi_work_tmp = NULL((void*)0);
27373 int capi_work_intent = 0;
27374 int lwork = 0;
27375 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
27376 double *rwork = NULL((void*)0);
27377 npy_intp rwork_Dims[1] = {-1};
27378 const int rwork_Rank = 1;
27379 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
27380 int capi_rwork_intent = 0;
27381 int info = 0;
27382 static char *capi_kwlist[] = {"a","b","compute_vl","compute_vr","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
27383
27384/*routdebugenter*/
27385#ifdef F2PY_REPORT_ATEXIT
27386f2py_start_clock();
27387#endif
27388 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
27389 "OO|OOOii:_flapack.zggev",\
27390 capi_kwlist,&a_capi,&b_capi,&compute_vl_capi,&compute_vr_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
27391 return NULL((void*)0);
27392/*frompyobj*/
27393 /* Processing variable compute_vl */
27394 if (compute_vl_capi == Py_None(&_Py_NoneStruct)) compute_vl = 1; else
27395 f2py_success = int_from_pyobj(&compute_vl,compute_vl_capi,"_flapack.zggev() 1st keyword (compute_vl) can't be converted to int");
27396 if (f2py_success) {
27397 CHECKSCALAR(compute_vl==1||compute_vl==0,"compute_vl==1||compute_vl==0","1st keyword compute_vl","zggev:compute_vl=%d",compute_vl)if (!(compute_vl==1||compute_vl==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zggev:compute_vl=%d", "(""compute_vl==1||compute_vl==0"
") failed for ""1st keyword compute_vl", compute_vl); PyErr_SetString
(_flapack_error,errstring); } else
{
27398 /* Processing variable compute_vr */
27399 if (compute_vr_capi == Py_None(&_Py_NoneStruct)) compute_vr = 1; else
27400 f2py_success = int_from_pyobj(&compute_vr,compute_vr_capi,"_flapack.zggev() 2nd keyword (compute_vr) can't be converted to int");
27401 if (f2py_success) {
27402 CHECKSCALAR(compute_vr==1||compute_vr==0,"compute_vr==1||compute_vr==0","2nd keyword compute_vr","zggev:compute_vr=%d",compute_vr)if (!(compute_vr==1||compute_vr==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zggev:compute_vr=%d", "(""compute_vr==1||compute_vr==0"
") failed for ""2nd keyword compute_vr", compute_vr); PyErr_SetString
(_flapack_error,errstring); } else
{
27403 /* Processing variable a */
27404 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
27405 ;
27406 capi_a_intent |= F2PY_INTENT_IN1;
27407 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
27408 if (capi_a_tmp == NULL((void*)0)) {
27409 if (!PyErr_Occurred())
27410 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zggev to C/Fortran array" );
27411 } else {
27412 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
27413
27414 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
27415 /* Processing variable b */
27416 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
27417 ;
27418 capi_b_intent |= F2PY_INTENT_IN1;
27419 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
27420 if (capi_b_tmp == NULL((void*)0)) {
27421 if (!PyErr_Occurred())
27422 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zggev to C/Fortran array" );
27423 } else {
27424 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
27425
27426 CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b");
} else
{
27427 /* Processing variable info */
27428 /* Processing variable n */
27429 n = shape(a,0)a_Dims[0];
27430 /* Processing variable alpha */
27431 alpha_Dims[0]=n;
27432 capi_alpha_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
27433 capi_alpha_tmp = array_from_pyobj(NPY_CDOUBLE,alpha_Dims,alpha_Rank,capi_alpha_intent,Py_None(&_Py_NoneStruct));
27434 if (capi_alpha_tmp == NULL((void*)0)) {
27435 if (!PyErr_Occurred())
27436 PyErr_SetString(_flapack_error,"failed in converting hidden `alpha' of _flapack.zggev to C/Fortran array" );
27437 } else {
27438 alpha = (complex_double *)(PyArray_DATA(capi_alpha_tmp)((void *)((PyArrayObject_fields *)(capi_alpha_tmp))->data));
27439
27440 /* Processing variable beta */
27441 beta_Dims[0]=n;
27442 capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
27443 capi_beta_tmp = array_from_pyobj(NPY_CDOUBLE,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct));
27444 if (capi_beta_tmp == NULL((void*)0)) {
27445 if (!PyErr_Occurred())
27446 PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.zggev to C/Fortran array" );
27447 } else {
27448 beta = (complex_double *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data));
27449
27450 /* Processing variable ldvl */
27451 ldvl = (compute_vl?n:1);
27452 /* Processing variable ldvr */
27453 ldvr = (compute_vr?n:1);
27454 /* Processing variable lwork */
27455 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else
27456 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zggev() 3rd keyword (lwork) can't be converted to int");
27457 if (f2py_success) {
27458 CHECKSCALAR((lwork==-1) || (lwork>=MAX(1,2*n)),"(lwork==-1) || (lwork>=MAX(1,2*n))","3rd keyword lwork","zggev:lwork=%d",lwork)if (!((lwork==-1) || (lwork>=((1 > 2*n) ? (1) : (2*n)))
)) { char errstring[256]; __builtin___sprintf_chk (errstring,
2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zggev:lwork=%d"
, "(""(lwork==-1) || (lwork>=MAX(1,2*n))"") failed for ""3rd keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
27459 /* Processing variable work */
27460 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
27461 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
27462 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
27463 if (capi_work_tmp == NULL((void*)0)) {
27464 if (!PyErr_Occurred())
27465 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zggev to C/Fortran array" );
27466 } else {
27467 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
27468
27469 /* Processing variable rwork */
27470 rwork_Dims[0]=8 * n;
27471 capi_rwork_intent |= F2PY_INTENT_HIDE8;
27472 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
27473 if (capi_rwork_tmp == NULL((void*)0)) {
27474 if (!PyErr_Occurred())
27475 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zggev to C/Fortran array" );
27476 } else {
27477 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
27478
27479 /* Processing variable vl */
27480 vl_Dims[0]=ldvl,vl_Dims[1]=n;
27481 capi_vl_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
27482 capi_vl_tmp = array_from_pyobj(NPY_CDOUBLE,vl_Dims,vl_Rank,capi_vl_intent,Py_None(&_Py_NoneStruct));
27483 if (capi_vl_tmp == NULL((void*)0)) {
27484 if (!PyErr_Occurred())
27485 PyErr_SetString(_flapack_error,"failed in converting hidden `vl' of _flapack.zggev to C/Fortran array" );
27486 } else {
27487 vl = (complex_double *)(PyArray_DATA(capi_vl_tmp)((void *)((PyArrayObject_fields *)(capi_vl_tmp))->data));
27488
27489 /* Processing variable vr */
27490 vr_Dims[0]=ldvr,vr_Dims[1]=n;
27491 capi_vr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
27492 capi_vr_tmp = array_from_pyobj(NPY_CDOUBLE,vr_Dims,vr_Rank,capi_vr_intent,Py_None(&_Py_NoneStruct));
27493 if (capi_vr_tmp == NULL((void*)0)) {
27494 if (!PyErr_Occurred())
27495 PyErr_SetString(_flapack_error,"failed in converting hidden `vr' of _flapack.zggev to C/Fortran array" );
27496 } else {
27497 vr = (complex_double *)(PyArray_DATA(capi_vr_tmp)((void *)((PyArrayObject_fields *)(capi_vr_tmp))->data));
27498
27499/*end of frompyobj*/
27500#ifdef F2PY_REPORT_ATEXIT
27501f2py_start_call_clock();
27502#endif
27503/*callfortranroutine*/
27504 {(*f2py_func)((compute_vl?"V":"N"),(compute_vr?"V":"N"),&n,a,&n,b,&n,alpha,beta,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info);} ;
27505 /*(*f2py_func)(&compute_vl,&compute_vr,&n,a,b,alpha,beta,vl,&ldvl,vr,&ldvr,work,&lwork,rwork,&info);*/
27506if (PyErr_Occurred())
27507 f2py_success = 0;
27508#ifdef F2PY_REPORT_ATEXIT
27509f2py_stop_call_clock();
27510#endif
27511/*end of callfortranroutine*/
27512 if (f2py_success) {
27513/*pyobjfrom*/
27514/*end of pyobjfrom*/
27515 CFUNCSMESS("Building return value.\n");
27516 capi_buildvalue = Py_BuildValue("NNNNNi",capi_alpha_tmp,capi_beta_tmp,capi_vl_tmp,capi_vr_tmp,capi_work_tmp,info);
27517/*closepyobjfrom*/
27518/*end of closepyobjfrom*/
27519 } /*if (f2py_success) after callfortranroutine*/
27520/*cleanupfrompyobj*/
27521 } /*if (capi_vr_tmp == NULL) ... else of vr*/
27522 /* End of cleaning variable vr */
27523 } /*if (capi_vl_tmp == NULL) ... else of vl*/
27524 /* End of cleaning variable vl */
27525 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
27526 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
27527 /* End of cleaning variable rwork */
27528 } /*if (capi_work_tmp == NULL) ... else of work*/
27529 /* End of cleaning variable work */
27530 } /*CHECKSCALAR((lwork==-1) || (lwork>=MAX(1,2*n)))*/
27531 } /*if (f2py_success) of lwork*/
27532 /* End of cleaning variable lwork */
27533 /* End of cleaning variable ldvr */
27534 /* End of cleaning variable ldvl */
27535 } /*if (capi_beta_tmp == NULL) ... else of beta*/
27536 /* End of cleaning variable beta */
27537 } /*if (capi_alpha_tmp == NULL) ... else of alpha*/
27538 /* End of cleaning variable alpha */
27539 /* End of cleaning variable n */
27540 /* End of cleaning variable info */
27541 } /*CHECKARRAY(shape(b,0)==shape(b,1))*/
27542 if((PyObject *)capi_b_tmp!=b_capi) {
27543 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
27544 } /*if (capi_b_tmp == NULL) ... else of b*/
27545 /* End of cleaning variable b */
27546 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
27547 if((PyObject *)capi_a_tmp!=a_capi) {
27548 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
27549 } /*if (capi_a_tmp == NULL) ... else of a*/
27550 /* End of cleaning variable a */
27551 } /*CHECKSCALAR(compute_vr==1||compute_vr==0)*/
27552 } /*if (f2py_success) of compute_vr*/
27553 /* End of cleaning variable compute_vr */
27554 } /*CHECKSCALAR(compute_vl==1||compute_vl==0)*/
27555 } /*if (f2py_success) of compute_vl*/
27556 /* End of cleaning variable compute_vl */
27557/*end of cleanupfrompyobj*/
27558 if (capi_buildvalue == NULL((void*)0)) {
27559/*routdebugfailure*/
27560 } else {
27561/*routdebugleave*/
27562 }
27563 CFUNCSMESS("Freeing memory.\n");
27564/*freemem*/
27565#ifdef F2PY_REPORT_ATEXIT
27566f2py_stop_clock();
27567#endif
27568 return capi_buildvalue;
27569}
27570/******************************** end of zggev ********************************/
27571
27572/*********************************** sgeequ ***********************************/
27573static char doc_f2py_rout__flapack_sgeequ[] = "\
27574r,c,rowcnd,colcnd,amax,info = sgeequ(a)\n\nWrapper for ``sgeequ``.\
27575\n\nParameters\n----------\n"
27576"a : input rank-2 array('f') with bounds (m,n)\n"
27577"\nReturns\n-------\n"
27578"r : rank-1 array('f') with bounds (m)\n"
27579"c : rank-1 array('f') with bounds (n)\n"
27580"rowcnd : float\n"
27581"colcnd : float\n"
27582"amax : float\n"
27583"info : int";
27584/* extern void F_FUNC(sgeequ,SGEEQU)(F_INT*,F_INT*,float*,F_INT*,float*,float*,float*,float*,float*,F_INT* ); */
27585static PyObject *f2py_rout__flapack_sgeequ(const PyObject *capi_self,
27586 PyObject *capi_args,
27587 PyObject *capi_keywds,
27588 void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,float*,F_INTint* )) {
27589 PyObject * volatile capi_buildvalue = NULL((void*)0);
27590 volatile int f2py_success = 1;
27591/*decl*/
27592
27593 int m = 0;
27594 int n = 0;
27595 float *a = NULL((void*)0);
27596 npy_intp a_Dims[2] = {-1, -1};
27597 const int a_Rank = 2;
27598 PyArrayObject *capi_a_tmp = NULL((void*)0);
27599 int capi_a_intent = 0;
27600 PyObject *a_capi = Py_None(&_Py_NoneStruct);
27601 int lda = 0;
27602 float *r = NULL((void*)0);
27603 npy_intp r_Dims[1] = {-1};
27604 const int r_Rank = 1;
27605 PyArrayObject *capi_r_tmp = NULL((void*)0);
27606 int capi_r_intent = 0;
27607 float *c = NULL((void*)0);
27608 npy_intp c_Dims[1] = {-1};
27609 const int c_Rank = 1;
27610 PyArrayObject *capi_c_tmp = NULL((void*)0);
27611 int capi_c_intent = 0;
27612 float rowcnd = 0;
27613 float colcnd = 0;
27614 float amax = 0;
27615 int info = 0;
27616 static char *capi_kwlist[] = {"a",NULL((void*)0)};
27617
27618/*routdebugenter*/
27619#ifdef F2PY_REPORT_ATEXIT
27620f2py_start_clock();
27621#endif
27622 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
27623 "O:_flapack.sgeequ",\
27624 capi_kwlist,&a_capi))
27625 return NULL((void*)0);
27626/*frompyobj*/
27627 /* Processing variable a */
27628 ;
27629 capi_a_intent |= F2PY_INTENT_IN1;
27630 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
27631 if (capi_a_tmp == NULL((void*)0)) {
27632 if (!PyErr_Occurred())
27633 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgeequ to C/Fortran array" );
27634 } else {
27635 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
27636
27637 /* Processing variable rowcnd */
27638 /* Processing variable colcnd */
27639 /* Processing variable amax */
27640 /* Processing variable info */
27641 /* Processing variable m */
27642 m = shape(a,0)a_Dims[0];
27643 /* Processing variable n */
27644 n = shape(a,1)a_Dims[1];
27645 /* Processing variable lda */
27646 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
27647 /* Processing variable r */
27648 r_Dims[0]=m;
27649 capi_r_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
27650 capi_r_tmp = array_from_pyobj(NPY_FLOAT,r_Dims,r_Rank,capi_r_intent,Py_None(&_Py_NoneStruct));
27651 if (capi_r_tmp == NULL((void*)0)) {
27652 if (!PyErr_Occurred())
27653 PyErr_SetString(_flapack_error,"failed in converting hidden `r' of _flapack.sgeequ to C/Fortran array" );
27654 } else {
27655 r = (float *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data));
27656
27657 /* Processing variable c */
27658 c_Dims[0]=n;
27659 capi_c_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
27660 capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,Py_None(&_Py_NoneStruct));
27661 if (capi_c_tmp == NULL((void*)0)) {
27662 if (!PyErr_Occurred())
27663 PyErr_SetString(_flapack_error,"failed in converting hidden `c' of _flapack.sgeequ to C/Fortran array" );
27664 } else {
27665 c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
27666
27667/*end of frompyobj*/
27668#ifdef F2PY_REPORT_ATEXIT
27669f2py_start_call_clock();
27670#endif
27671/*callfortranroutine*/
27672 (*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info) ;
27673 /*(*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info);*/
27674if (PyErr_Occurred())
27675 f2py_success = 0;
27676#ifdef F2PY_REPORT_ATEXIT
27677f2py_stop_call_clock();
27678#endif
27679/*end of callfortranroutine*/
27680 if (f2py_success) {
27681/*pyobjfrom*/
27682/*end of pyobjfrom*/
27683 CFUNCSMESS("Building return value.\n");
27684 capi_buildvalue = Py_BuildValue("NNfffi",capi_r_tmp,capi_c_tmp,rowcnd,colcnd,amax,info);
27685/*closepyobjfrom*/
27686/*end of closepyobjfrom*/
27687 } /*if (f2py_success) after callfortranroutine*/
27688/*cleanupfrompyobj*/
27689 } /*if (capi_c_tmp == NULL) ... else of c*/
27690 /* End of cleaning variable c */
27691 } /*if (capi_r_tmp == NULL) ... else of r*/
27692 /* End of cleaning variable r */
27693 /* End of cleaning variable lda */
27694 /* End of cleaning variable n */
27695 /* End of cleaning variable m */
27696 /* End of cleaning variable info */
27697 /* End of cleaning variable amax */
27698 /* End of cleaning variable colcnd */
27699 /* End of cleaning variable rowcnd */
27700 if((PyObject *)capi_a_tmp!=a_capi) {
27701 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
27702 } /*if (capi_a_tmp == NULL) ... else of a*/
27703 /* End of cleaning variable a */
27704/*end of cleanupfrompyobj*/
27705 if (capi_buildvalue == NULL((void*)0)) {
27706/*routdebugfailure*/
27707 } else {
27708/*routdebugleave*/
27709 }
27710 CFUNCSMESS("Freeing memory.\n");
27711/*freemem*/
27712#ifdef F2PY_REPORT_ATEXIT
27713f2py_stop_clock();
27714#endif
27715 return capi_buildvalue;
27716}
27717/******************************* end of sgeequ *******************************/
27718
27719/*********************************** dgeequ ***********************************/
27720static char doc_f2py_rout__flapack_dgeequ[] = "\
27721r,c,rowcnd,colcnd,amax,info = dgeequ(a)\n\nWrapper for ``dgeequ``.\
27722\n\nParameters\n----------\n"
27723"a : input rank-2 array('d') with bounds (m,n)\n"
27724"\nReturns\n-------\n"
27725"r : rank-1 array('d') with bounds (m)\n"
27726"c : rank-1 array('d') with bounds (n)\n"
27727"rowcnd : float\n"
27728"colcnd : float\n"
27729"amax : float\n"
27730"info : int";
27731/* extern void F_FUNC(dgeequ,DGEEQU)(F_INT*,F_INT*,double*,F_INT*,double*,double*,double*,double*,double*,F_INT* ); */
27732static PyObject *f2py_rout__flapack_dgeequ(const PyObject *capi_self,
27733 PyObject *capi_args,
27734 PyObject *capi_keywds,
27735 void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,double*,F_INTint* )) {
27736 PyObject * volatile capi_buildvalue = NULL((void*)0);
27737 volatile int f2py_success = 1;
27738/*decl*/
27739
27740 int m = 0;
27741 int n = 0;
27742 double *a = NULL((void*)0);
27743 npy_intp a_Dims[2] = {-1, -1};
27744 const int a_Rank = 2;
27745 PyArrayObject *capi_a_tmp = NULL((void*)0);
27746 int capi_a_intent = 0;
27747 PyObject *a_capi = Py_None(&_Py_NoneStruct);
27748 int lda = 0;
27749 double *r = NULL((void*)0);
27750 npy_intp r_Dims[1] = {-1};
27751 const int r_Rank = 1;
27752 PyArrayObject *capi_r_tmp = NULL((void*)0);
27753 int capi_r_intent = 0;
27754 double *c = NULL((void*)0);
27755 npy_intp c_Dims[1] = {-1};
27756 const int c_Rank = 1;
27757 PyArrayObject *capi_c_tmp = NULL((void*)0);
27758 int capi_c_intent = 0;
27759 double rowcnd = 0;
27760 double colcnd = 0;
27761 double amax = 0;
27762 int info = 0;
27763 static char *capi_kwlist[] = {"a",NULL((void*)0)};
27764
27765/*routdebugenter*/
27766#ifdef F2PY_REPORT_ATEXIT
27767f2py_start_clock();
27768#endif
27769 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
27770 "O:_flapack.dgeequ",\
27771 capi_kwlist,&a_capi))
27772 return NULL((void*)0);
27773/*frompyobj*/
27774 /* Processing variable a */
27775 ;
27776 capi_a_intent |= F2PY_INTENT_IN1;
27777 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
27778 if (capi_a_tmp == NULL((void*)0)) {
27779 if (!PyErr_Occurred())
27780 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgeequ to C/Fortran array" );
27781 } else {
27782 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
27783
27784 /* Processing variable rowcnd */
27785 /* Processing variable colcnd */
27786 /* Processing variable amax */
27787 /* Processing variable info */
27788 /* Processing variable m */
27789 m = shape(a,0)a_Dims[0];
27790 /* Processing variable n */
27791 n = shape(a,1)a_Dims[1];
27792 /* Processing variable lda */
27793 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
27794 /* Processing variable r */
27795 r_Dims[0]=m;
27796 capi_r_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
27797 capi_r_tmp = array_from_pyobj(NPY_DOUBLE,r_Dims,r_Rank,capi_r_intent,Py_None(&_Py_NoneStruct));
27798 if (capi_r_tmp == NULL((void*)0)) {
27799 if (!PyErr_Occurred())
27800 PyErr_SetString(_flapack_error,"failed in converting hidden `r' of _flapack.dgeequ to C/Fortran array" );
27801 } else {
27802 r = (double *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data));
27803
27804 /* Processing variable c */
27805 c_Dims[0]=n;
27806 capi_c_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
27807 capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,Py_None(&_Py_NoneStruct));
27808 if (capi_c_tmp == NULL((void*)0)) {
27809 if (!PyErr_Occurred())
27810 PyErr_SetString(_flapack_error,"failed in converting hidden `c' of _flapack.dgeequ to C/Fortran array" );
27811 } else {
27812 c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
27813
27814/*end of frompyobj*/
27815#ifdef F2PY_REPORT_ATEXIT
27816f2py_start_call_clock();
27817#endif
27818/*callfortranroutine*/
27819 (*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info) ;
27820 /*(*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info);*/
27821if (PyErr_Occurred())
27822 f2py_success = 0;
27823#ifdef F2PY_REPORT_ATEXIT
27824f2py_stop_call_clock();
27825#endif
27826/*end of callfortranroutine*/
27827 if (f2py_success) {
27828/*pyobjfrom*/
27829/*end of pyobjfrom*/
27830 CFUNCSMESS("Building return value.\n");
27831 capi_buildvalue = Py_BuildValue("NNdddi",capi_r_tmp,capi_c_tmp,rowcnd,colcnd,amax,info);
27832/*closepyobjfrom*/
27833/*end of closepyobjfrom*/
27834 } /*if (f2py_success) after callfortranroutine*/
27835/*cleanupfrompyobj*/
27836 } /*if (capi_c_tmp == NULL) ... else of c*/
27837 /* End of cleaning variable c */
27838 } /*if (capi_r_tmp == NULL) ... else of r*/
27839 /* End of cleaning variable r */
27840 /* End of cleaning variable lda */
27841 /* End of cleaning variable n */
27842 /* End of cleaning variable m */
27843 /* End of cleaning variable info */
27844 /* End of cleaning variable amax */
27845 /* End of cleaning variable colcnd */
27846 /* End of cleaning variable rowcnd */
27847 if((PyObject *)capi_a_tmp!=a_capi) {
27848 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
27849 } /*if (capi_a_tmp == NULL) ... else of a*/
27850 /* End of cleaning variable a */
27851/*end of cleanupfrompyobj*/
27852 if (capi_buildvalue == NULL((void*)0)) {
27853/*routdebugfailure*/
27854 } else {
27855/*routdebugleave*/
27856 }
27857 CFUNCSMESS("Freeing memory.\n");
27858/*freemem*/
27859#ifdef F2PY_REPORT_ATEXIT
27860f2py_stop_clock();
27861#endif
27862 return capi_buildvalue;
27863}
27864/******************************* end of dgeequ *******************************/
27865
27866/*********************************** cgeequ ***********************************/
27867static char doc_f2py_rout__flapack_cgeequ[] = "\
27868r,c,rowcnd,colcnd,amax,info = cgeequ(a)\n\nWrapper for ``cgeequ``.\
27869\n\nParameters\n----------\n"
27870"a : input rank-2 array('F') with bounds (m,n)\n"
27871"\nReturns\n-------\n"
27872"r : rank-1 array('f') with bounds (m)\n"
27873"c : rank-1 array('f') with bounds (n)\n"
27874"rowcnd : float\n"
27875"colcnd : float\n"
27876"amax : float\n"
27877"info : int";
27878/* extern void F_FUNC(cgeequ,CGEEQU)(F_INT*,F_INT*,complex_float*,F_INT*,float*,float*,float*,float*,float*,F_INT* ); */
27879static PyObject *f2py_rout__flapack_cgeequ(const PyObject *capi_self,
27880 PyObject *capi_args,
27881 PyObject *capi_keywds,
27882 void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,float*,float*,F_INTint* )) {
27883 PyObject * volatile capi_buildvalue = NULL((void*)0);
27884 volatile int f2py_success = 1;
27885/*decl*/
27886
27887 int m = 0;
27888 int n = 0;
27889 complex_float *a = NULL((void*)0);
27890 npy_intp a_Dims[2] = {-1, -1};
27891 const int a_Rank = 2;
27892 PyArrayObject *capi_a_tmp = NULL((void*)0);
27893 int capi_a_intent = 0;
27894 PyObject *a_capi = Py_None(&_Py_NoneStruct);
27895 int lda = 0;
27896 float *r = NULL((void*)0);
27897 npy_intp r_Dims[1] = {-1};
27898 const int r_Rank = 1;
27899 PyArrayObject *capi_r_tmp = NULL((void*)0);
27900 int capi_r_intent = 0;
27901 float *c = NULL((void*)0);
27902 npy_intp c_Dims[1] = {-1};
27903 const int c_Rank = 1;
27904 PyArrayObject *capi_c_tmp = NULL((void*)0);
27905 int capi_c_intent = 0;
27906 float rowcnd = 0;
27907 float colcnd = 0;
27908 float amax = 0;
27909 int info = 0;
27910 static char *capi_kwlist[] = {"a",NULL((void*)0)};
27911
27912/*routdebugenter*/
27913#ifdef F2PY_REPORT_ATEXIT
27914f2py_start_clock();
27915#endif
27916 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
27917 "O:_flapack.cgeequ",\
27918 capi_kwlist,&a_capi))
27919 return NULL((void*)0);
27920/*frompyobj*/
27921 /* Processing variable a */
27922 ;
27923 capi_a_intent |= F2PY_INTENT_IN1;
27924 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
27925 if (capi_a_tmp == NULL((void*)0)) {
27926 if (!PyErr_Occurred())
27927 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgeequ to C/Fortran array" );
27928 } else {
27929 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
27930
27931 /* Processing variable rowcnd */
27932 /* Processing variable colcnd */
27933 /* Processing variable amax */
27934 /* Processing variable info */
27935 /* Processing variable m */
27936 m = shape(a,0)a_Dims[0];
27937 /* Processing variable n */
27938 n = shape(a,1)a_Dims[1];
27939 /* Processing variable lda */
27940 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
27941 /* Processing variable r */
27942 r_Dims[0]=m;
27943 capi_r_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
27944 capi_r_tmp = array_from_pyobj(NPY_FLOAT,r_Dims,r_Rank,capi_r_intent,Py_None(&_Py_NoneStruct));
27945 if (capi_r_tmp == NULL((void*)0)) {
27946 if (!PyErr_Occurred())
27947 PyErr_SetString(_flapack_error,"failed in converting hidden `r' of _flapack.cgeequ to C/Fortran array" );
27948 } else {
27949 r = (float *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data));
27950
27951 /* Processing variable c */
27952 c_Dims[0]=n;
27953 capi_c_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
27954 capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,Py_None(&_Py_NoneStruct));
27955 if (capi_c_tmp == NULL((void*)0)) {
27956 if (!PyErr_Occurred())
27957 PyErr_SetString(_flapack_error,"failed in converting hidden `c' of _flapack.cgeequ to C/Fortran array" );
27958 } else {
27959 c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
27960
27961/*end of frompyobj*/
27962#ifdef F2PY_REPORT_ATEXIT
27963f2py_start_call_clock();
27964#endif
27965/*callfortranroutine*/
27966 (*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info) ;
27967 /*(*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info);*/
27968if (PyErr_Occurred())
27969 f2py_success = 0;
27970#ifdef F2PY_REPORT_ATEXIT
27971f2py_stop_call_clock();
27972#endif
27973/*end of callfortranroutine*/
27974 if (f2py_success) {
27975/*pyobjfrom*/
27976/*end of pyobjfrom*/
27977 CFUNCSMESS("Building return value.\n");
27978 capi_buildvalue = Py_BuildValue("NNfffi",capi_r_tmp,capi_c_tmp,rowcnd,colcnd,amax,info);
27979/*closepyobjfrom*/
27980/*end of closepyobjfrom*/
27981 } /*if (f2py_success) after callfortranroutine*/
27982/*cleanupfrompyobj*/
27983 } /*if (capi_c_tmp == NULL) ... else of c*/
27984 /* End of cleaning variable c */
27985 } /*if (capi_r_tmp == NULL) ... else of r*/
27986 /* End of cleaning variable r */
27987 /* End of cleaning variable lda */
27988 /* End of cleaning variable n */
27989 /* End of cleaning variable m */
27990 /* End of cleaning variable info */
27991 /* End of cleaning variable amax */
27992 /* End of cleaning variable colcnd */
27993 /* End of cleaning variable rowcnd */
27994 if((PyObject *)capi_a_tmp!=a_capi) {
27995 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
27996 } /*if (capi_a_tmp == NULL) ... else of a*/
27997 /* End of cleaning variable a */
27998/*end of cleanupfrompyobj*/
27999 if (capi_buildvalue == NULL((void*)0)) {
28000/*routdebugfailure*/
28001 } else {
28002/*routdebugleave*/
28003 }
28004 CFUNCSMESS("Freeing memory.\n");
28005/*freemem*/
28006#ifdef F2PY_REPORT_ATEXIT
28007f2py_stop_clock();
28008#endif
28009 return capi_buildvalue;
28010}
28011/******************************* end of cgeequ *******************************/
28012
28013/*********************************** zgeequ ***********************************/
28014static char doc_f2py_rout__flapack_zgeequ[] = "\
28015r,c,rowcnd,colcnd,amax,info = zgeequ(a)\n\nWrapper for ``zgeequ``.\
28016\n\nParameters\n----------\n"
28017"a : input rank-2 array('D') with bounds (m,n)\n"
28018"\nReturns\n-------\n"
28019"r : rank-1 array('d') with bounds (m)\n"
28020"c : rank-1 array('d') with bounds (n)\n"
28021"rowcnd : float\n"
28022"colcnd : float\n"
28023"amax : float\n"
28024"info : int";
28025/* extern void F_FUNC(zgeequ,ZGEEQU)(F_INT*,F_INT*,complex_double*,F_INT*,double*,double*,double*,double*,double*,F_INT* ); */
28026static PyObject *f2py_rout__flapack_zgeequ(const PyObject *capi_self,
28027 PyObject *capi_args,
28028 PyObject *capi_keywds,
28029 void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,double*,double*,F_INTint* )) {
28030 PyObject * volatile capi_buildvalue = NULL((void*)0);
28031 volatile int f2py_success = 1;
28032/*decl*/
28033
28034 int m = 0;
28035 int n = 0;
28036 complex_double *a = NULL((void*)0);
28037 npy_intp a_Dims[2] = {-1, -1};
28038 const int a_Rank = 2;
28039 PyArrayObject *capi_a_tmp = NULL((void*)0);
28040 int capi_a_intent = 0;
28041 PyObject *a_capi = Py_None(&_Py_NoneStruct);
28042 int lda = 0;
28043 double *r = NULL((void*)0);
28044 npy_intp r_Dims[1] = {-1};
28045 const int r_Rank = 1;
28046 PyArrayObject *capi_r_tmp = NULL((void*)0);
28047 int capi_r_intent = 0;
28048 double *c = NULL((void*)0);
28049 npy_intp c_Dims[1] = {-1};
28050 const int c_Rank = 1;
28051 PyArrayObject *capi_c_tmp = NULL((void*)0);
28052 int capi_c_intent = 0;
28053 double rowcnd = 0;
28054 double colcnd = 0;
28055 double amax = 0;
28056 int info = 0;
28057 static char *capi_kwlist[] = {"a",NULL((void*)0)};
28058
28059/*routdebugenter*/
28060#ifdef F2PY_REPORT_ATEXIT
28061f2py_start_clock();
28062#endif
28063 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
28064 "O:_flapack.zgeequ",\
28065 capi_kwlist,&a_capi))
28066 return NULL((void*)0);
28067/*frompyobj*/
28068 /* Processing variable a */
28069 ;
28070 capi_a_intent |= F2PY_INTENT_IN1;
28071 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
28072 if (capi_a_tmp == NULL((void*)0)) {
28073 if (!PyErr_Occurred())
28074 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgeequ to C/Fortran array" );
28075 } else {
28076 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
28077
28078 /* Processing variable rowcnd */
28079 /* Processing variable colcnd */
28080 /* Processing variable amax */
28081 /* Processing variable info */
28082 /* Processing variable m */
28083 m = shape(a,0)a_Dims[0];
28084 /* Processing variable n */
28085 n = shape(a,1)a_Dims[1];
28086 /* Processing variable lda */
28087 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
28088 /* Processing variable r */
28089 r_Dims[0]=m;
28090 capi_r_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
28091 capi_r_tmp = array_from_pyobj(NPY_DOUBLE,r_Dims,r_Rank,capi_r_intent,Py_None(&_Py_NoneStruct));
28092 if (capi_r_tmp == NULL((void*)0)) {
28093 if (!PyErr_Occurred())
28094 PyErr_SetString(_flapack_error,"failed in converting hidden `r' of _flapack.zgeequ to C/Fortran array" );
28095 } else {
28096 r = (double *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data));
28097
28098 /* Processing variable c */
28099 c_Dims[0]=n;
28100 capi_c_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
28101 capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,Py_None(&_Py_NoneStruct));
28102 if (capi_c_tmp == NULL((void*)0)) {
28103 if (!PyErr_Occurred())
28104 PyErr_SetString(_flapack_error,"failed in converting hidden `c' of _flapack.zgeequ to C/Fortran array" );
28105 } else {
28106 c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
28107
28108/*end of frompyobj*/
28109#ifdef F2PY_REPORT_ATEXIT
28110f2py_start_call_clock();
28111#endif
28112/*callfortranroutine*/
28113 (*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info) ;
28114 /*(*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info);*/
28115if (PyErr_Occurred())
28116 f2py_success = 0;
28117#ifdef F2PY_REPORT_ATEXIT
28118f2py_stop_call_clock();
28119#endif
28120/*end of callfortranroutine*/
28121 if (f2py_success) {
28122/*pyobjfrom*/
28123/*end of pyobjfrom*/
28124 CFUNCSMESS("Building return value.\n");
28125 capi_buildvalue = Py_BuildValue("NNdddi",capi_r_tmp,capi_c_tmp,rowcnd,colcnd,amax,info);
28126/*closepyobjfrom*/
28127/*end of closepyobjfrom*/
28128 } /*if (f2py_success) after callfortranroutine*/
28129/*cleanupfrompyobj*/
28130 } /*if (capi_c_tmp == NULL) ... else of c*/
28131 /* End of cleaning variable c */
28132 } /*if (capi_r_tmp == NULL) ... else of r*/
28133 /* End of cleaning variable r */
28134 /* End of cleaning variable lda */
28135 /* End of cleaning variable n */
28136 /* End of cleaning variable m */
28137 /* End of cleaning variable info */
28138 /* End of cleaning variable amax */
28139 /* End of cleaning variable colcnd */
28140 /* End of cleaning variable rowcnd */
28141 if((PyObject *)capi_a_tmp!=a_capi) {
28142 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
28143 } /*if (capi_a_tmp == NULL) ... else of a*/
28144 /* End of cleaning variable a */
28145/*end of cleanupfrompyobj*/
28146 if (capi_buildvalue == NULL((void*)0)) {
28147/*routdebugfailure*/
28148 } else {
28149/*routdebugleave*/
28150 }
28151 CFUNCSMESS("Freeing memory.\n");
28152/*freemem*/
28153#ifdef F2PY_REPORT_ATEXIT
28154f2py_stop_clock();
28155#endif
28156 return capi_buildvalue;
28157}
28158/******************************* end of zgeequ *******************************/
28159
28160/********************************** sgeequb **********************************/
28161static char doc_f2py_rout__flapack_sgeequb[] = "\
28162r,c,rowcnd,colcnd,amax,info = sgeequb(a)\n\nWrapper for ``sgeequb``.\
28163\n\nParameters\n----------\n"
28164"a : input rank-2 array('f') with bounds (m,n)\n"
28165"\nReturns\n-------\n"
28166"r : rank-1 array('f') with bounds (m)\n"
28167"c : rank-1 array('f') with bounds (n)\n"
28168"rowcnd : float\n"
28169"colcnd : float\n"
28170"amax : float\n"
28171"info : int";
28172/* extern void F_FUNC(sgeequb,SGEEQUB)(F_INT*,F_INT*,float*,F_INT*,float*,float*,float*,float*,float*,F_INT* ); */
28173static PyObject *f2py_rout__flapack_sgeequb(const PyObject *capi_self,
28174 PyObject *capi_args,
28175 PyObject *capi_keywds,
28176 void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,float*,F_INTint* )) {
28177 PyObject * volatile capi_buildvalue = NULL((void*)0);
28178 volatile int f2py_success = 1;
28179/*decl*/
28180
28181 int m = 0;
28182 int n = 0;
28183 float *a = NULL((void*)0);
28184 npy_intp a_Dims[2] = {-1, -1};
28185 const int a_Rank = 2;
28186 PyArrayObject *capi_a_tmp = NULL((void*)0);
28187 int capi_a_intent = 0;
28188 PyObject *a_capi = Py_None(&_Py_NoneStruct);
28189 int lda = 0;
28190 float *r = NULL((void*)0);
28191 npy_intp r_Dims[1] = {-1};
28192 const int r_Rank = 1;
28193 PyArrayObject *capi_r_tmp = NULL((void*)0);
28194 int capi_r_intent = 0;
28195 float *c = NULL((void*)0);
28196 npy_intp c_Dims[1] = {-1};
28197 const int c_Rank = 1;
28198 PyArrayObject *capi_c_tmp = NULL((void*)0);
28199 int capi_c_intent = 0;
28200 float rowcnd = 0;
28201 float colcnd = 0;
28202 float amax = 0;
28203 int info = 0;
28204 static char *capi_kwlist[] = {"a",NULL((void*)0)};
28205
28206/*routdebugenter*/
28207#ifdef F2PY_REPORT_ATEXIT
28208f2py_start_clock();
28209#endif
28210 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
28211 "O:_flapack.sgeequb",\
28212 capi_kwlist,&a_capi))
28213 return NULL((void*)0);
28214/*frompyobj*/
28215 /* Processing variable a */
28216 ;
28217 capi_a_intent |= F2PY_INTENT_IN1;
28218 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
28219 if (capi_a_tmp == NULL((void*)0)) {
28220 if (!PyErr_Occurred())
28221 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgeequb to C/Fortran array" );
28222 } else {
28223 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
28224
28225 /* Processing variable rowcnd */
28226 /* Processing variable colcnd */
28227 /* Processing variable amax */
28228 /* Processing variable info */
28229 /* Processing variable m */
28230 m = shape(a,0)a_Dims[0];
28231 /* Processing variable n */
28232 n = shape(a,1)a_Dims[1];
28233 /* Processing variable lda */
28234 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
28235 /* Processing variable r */
28236 r_Dims[0]=m;
28237 capi_r_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
28238 capi_r_tmp = array_from_pyobj(NPY_FLOAT,r_Dims,r_Rank,capi_r_intent,Py_None(&_Py_NoneStruct));
28239 if (capi_r_tmp == NULL((void*)0)) {
28240 if (!PyErr_Occurred())
28241 PyErr_SetString(_flapack_error,"failed in converting hidden `r' of _flapack.sgeequb to C/Fortran array" );
28242 } else {
28243 r = (float *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data));
28244
28245 /* Processing variable c */
28246 c_Dims[0]=n;
28247 capi_c_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
28248 capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,Py_None(&_Py_NoneStruct));
28249 if (capi_c_tmp == NULL((void*)0)) {
28250 if (!PyErr_Occurred())
28251 PyErr_SetString(_flapack_error,"failed in converting hidden `c' of _flapack.sgeequb to C/Fortran array" );
28252 } else {
28253 c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
28254
28255/*end of frompyobj*/
28256#ifdef F2PY_REPORT_ATEXIT
28257f2py_start_call_clock();
28258#endif
28259/*callfortranroutine*/
28260 (*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info) ;
28261 /*(*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info);*/
28262if (PyErr_Occurred())
28263 f2py_success = 0;
28264#ifdef F2PY_REPORT_ATEXIT
28265f2py_stop_call_clock();
28266#endif
28267/*end of callfortranroutine*/
28268 if (f2py_success) {
28269/*pyobjfrom*/
28270/*end of pyobjfrom*/
28271 CFUNCSMESS("Building return value.\n");
28272 capi_buildvalue = Py_BuildValue("NNfffi",capi_r_tmp,capi_c_tmp,rowcnd,colcnd,amax,info);
28273/*closepyobjfrom*/
28274/*end of closepyobjfrom*/
28275 } /*if (f2py_success) after callfortranroutine*/
28276/*cleanupfrompyobj*/
28277 } /*if (capi_c_tmp == NULL) ... else of c*/
28278 /* End of cleaning variable c */
28279 } /*if (capi_r_tmp == NULL) ... else of r*/
28280 /* End of cleaning variable r */
28281 /* End of cleaning variable lda */
28282 /* End of cleaning variable n */
28283 /* End of cleaning variable m */
28284 /* End of cleaning variable info */
28285 /* End of cleaning variable amax */
28286 /* End of cleaning variable colcnd */
28287 /* End of cleaning variable rowcnd */
28288 if((PyObject *)capi_a_tmp!=a_capi) {
28289 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
28290 } /*if (capi_a_tmp == NULL) ... else of a*/
28291 /* End of cleaning variable a */
28292/*end of cleanupfrompyobj*/
28293 if (capi_buildvalue == NULL((void*)0)) {
28294/*routdebugfailure*/
28295 } else {
28296/*routdebugleave*/
28297 }
28298 CFUNCSMESS("Freeing memory.\n");
28299/*freemem*/
28300#ifdef F2PY_REPORT_ATEXIT
28301f2py_stop_clock();
28302#endif
28303 return capi_buildvalue;
28304}
28305/******************************* end of sgeequb *******************************/
28306
28307/********************************** dgeequb **********************************/
28308static char doc_f2py_rout__flapack_dgeequb[] = "\
28309r,c,rowcnd,colcnd,amax,info = dgeequb(a)\n\nWrapper for ``dgeequb``.\
28310\n\nParameters\n----------\n"
28311"a : input rank-2 array('d') with bounds (m,n)\n"
28312"\nReturns\n-------\n"
28313"r : rank-1 array('d') with bounds (m)\n"
28314"c : rank-1 array('d') with bounds (n)\n"
28315"rowcnd : float\n"
28316"colcnd : float\n"
28317"amax : float\n"
28318"info : int";
28319/* extern void F_FUNC(dgeequb,DGEEQUB)(F_INT*,F_INT*,double*,F_INT*,double*,double*,double*,double*,double*,F_INT* ); */
28320static PyObject *f2py_rout__flapack_dgeequb(const PyObject *capi_self,
28321 PyObject *capi_args,
28322 PyObject *capi_keywds,
28323 void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,double*,F_INTint* )) {
28324 PyObject * volatile capi_buildvalue = NULL((void*)0);
28325 volatile int f2py_success = 1;
28326/*decl*/
28327
28328 int m = 0;
28329 int n = 0;
28330 double *a = NULL((void*)0);
28331 npy_intp a_Dims[2] = {-1, -1};
28332 const int a_Rank = 2;
28333 PyArrayObject *capi_a_tmp = NULL((void*)0);
28334 int capi_a_intent = 0;
28335 PyObject *a_capi = Py_None(&_Py_NoneStruct);
28336 int lda = 0;
28337 double *r = NULL((void*)0);
28338 npy_intp r_Dims[1] = {-1};
28339 const int r_Rank = 1;
28340 PyArrayObject *capi_r_tmp = NULL((void*)0);
28341 int capi_r_intent = 0;
28342 double *c = NULL((void*)0);
28343 npy_intp c_Dims[1] = {-1};
28344 const int c_Rank = 1;
28345 PyArrayObject *capi_c_tmp = NULL((void*)0);
28346 int capi_c_intent = 0;
28347 double rowcnd = 0;
28348 double colcnd = 0;
28349 double amax = 0;
28350 int info = 0;
28351 static char *capi_kwlist[] = {"a",NULL((void*)0)};
28352
28353/*routdebugenter*/
28354#ifdef F2PY_REPORT_ATEXIT
28355f2py_start_clock();
28356#endif
28357 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
28358 "O:_flapack.dgeequb",\
28359 capi_kwlist,&a_capi))
28360 return NULL((void*)0);
28361/*frompyobj*/
28362 /* Processing variable a */
28363 ;
28364 capi_a_intent |= F2PY_INTENT_IN1;
28365 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
28366 if (capi_a_tmp == NULL((void*)0)) {
28367 if (!PyErr_Occurred())
28368 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgeequb to C/Fortran array" );
28369 } else {
28370 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
28371
28372 /* Processing variable rowcnd */
28373 /* Processing variable colcnd */
28374 /* Processing variable amax */
28375 /* Processing variable info */
28376 /* Processing variable m */
28377 m = shape(a,0)a_Dims[0];
28378 /* Processing variable n */
28379 n = shape(a,1)a_Dims[1];
28380 /* Processing variable lda */
28381 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
28382 /* Processing variable r */
28383 r_Dims[0]=m;
28384 capi_r_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
28385 capi_r_tmp = array_from_pyobj(NPY_DOUBLE,r_Dims,r_Rank,capi_r_intent,Py_None(&_Py_NoneStruct));
28386 if (capi_r_tmp == NULL((void*)0)) {
28387 if (!PyErr_Occurred())
28388 PyErr_SetString(_flapack_error,"failed in converting hidden `r' of _flapack.dgeequb to C/Fortran array" );
28389 } else {
28390 r = (double *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data));
28391
28392 /* Processing variable c */
28393 c_Dims[0]=n;
28394 capi_c_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
28395 capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,Py_None(&_Py_NoneStruct));
28396 if (capi_c_tmp == NULL((void*)0)) {
28397 if (!PyErr_Occurred())
28398 PyErr_SetString(_flapack_error,"failed in converting hidden `c' of _flapack.dgeequb to C/Fortran array" );
28399 } else {
28400 c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
28401
28402/*end of frompyobj*/
28403#ifdef F2PY_REPORT_ATEXIT
28404f2py_start_call_clock();
28405#endif
28406/*callfortranroutine*/
28407 (*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info) ;
28408 /*(*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info);*/
28409if (PyErr_Occurred())
28410 f2py_success = 0;
28411#ifdef F2PY_REPORT_ATEXIT
28412f2py_stop_call_clock();
28413#endif
28414/*end of callfortranroutine*/
28415 if (f2py_success) {
28416/*pyobjfrom*/
28417/*end of pyobjfrom*/
28418 CFUNCSMESS("Building return value.\n");
28419 capi_buildvalue = Py_BuildValue("NNdddi",capi_r_tmp,capi_c_tmp,rowcnd,colcnd,amax,info);
28420/*closepyobjfrom*/
28421/*end of closepyobjfrom*/
28422 } /*if (f2py_success) after callfortranroutine*/
28423/*cleanupfrompyobj*/
28424 } /*if (capi_c_tmp == NULL) ... else of c*/
28425 /* End of cleaning variable c */
28426 } /*if (capi_r_tmp == NULL) ... else of r*/
28427 /* End of cleaning variable r */
28428 /* End of cleaning variable lda */
28429 /* End of cleaning variable n */
28430 /* End of cleaning variable m */
28431 /* End of cleaning variable info */
28432 /* End of cleaning variable amax */
28433 /* End of cleaning variable colcnd */
28434 /* End of cleaning variable rowcnd */
28435 if((PyObject *)capi_a_tmp!=a_capi) {
28436 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
28437 } /*if (capi_a_tmp == NULL) ... else of a*/
28438 /* End of cleaning variable a */
28439/*end of cleanupfrompyobj*/
28440 if (capi_buildvalue == NULL((void*)0)) {
28441/*routdebugfailure*/
28442 } else {
28443/*routdebugleave*/
28444 }
28445 CFUNCSMESS("Freeing memory.\n");
28446/*freemem*/
28447#ifdef F2PY_REPORT_ATEXIT
28448f2py_stop_clock();
28449#endif
28450 return capi_buildvalue;
28451}
28452/******************************* end of dgeequb *******************************/
28453
28454/********************************** cgeequb **********************************/
28455static char doc_f2py_rout__flapack_cgeequb[] = "\
28456r,c,rowcnd,colcnd,amax,info = cgeequb(a)\n\nWrapper for ``cgeequb``.\
28457\n\nParameters\n----------\n"
28458"a : input rank-2 array('F') with bounds (m,n)\n"
28459"\nReturns\n-------\n"
28460"r : rank-1 array('f') with bounds (m)\n"
28461"c : rank-1 array('f') with bounds (n)\n"
28462"rowcnd : float\n"
28463"colcnd : float\n"
28464"amax : float\n"
28465"info : int";
28466/* extern void F_FUNC(cgeequb,CGEEQUB)(F_INT*,F_INT*,complex_float*,F_INT*,float*,float*,float*,float*,float*,F_INT* ); */
28467static PyObject *f2py_rout__flapack_cgeequb(const PyObject *capi_self,
28468 PyObject *capi_args,
28469 PyObject *capi_keywds,
28470 void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,float*,float*,F_INTint* )) {
28471 PyObject * volatile capi_buildvalue = NULL((void*)0);
28472 volatile int f2py_success = 1;
28473/*decl*/
28474
28475 int m = 0;
28476 int n = 0;
28477 complex_float *a = NULL((void*)0);
28478 npy_intp a_Dims[2] = {-1, -1};
28479 const int a_Rank = 2;
28480 PyArrayObject *capi_a_tmp = NULL((void*)0);
28481 int capi_a_intent = 0;
28482 PyObject *a_capi = Py_None(&_Py_NoneStruct);
28483 int lda = 0;
28484 float *r = NULL((void*)0);
28485 npy_intp r_Dims[1] = {-1};
28486 const int r_Rank = 1;
28487 PyArrayObject *capi_r_tmp = NULL((void*)0);
28488 int capi_r_intent = 0;
28489 float *c = NULL((void*)0);
28490 npy_intp c_Dims[1] = {-1};
28491 const int c_Rank = 1;
28492 PyArrayObject *capi_c_tmp = NULL((void*)0);
28493 int capi_c_intent = 0;
28494 float rowcnd = 0;
28495 float colcnd = 0;
28496 float amax = 0;
28497 int info = 0;
28498 static char *capi_kwlist[] = {"a",NULL((void*)0)};
28499
28500/*routdebugenter*/
28501#ifdef F2PY_REPORT_ATEXIT
28502f2py_start_clock();
28503#endif
28504 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
28505 "O:_flapack.cgeequb",\
28506 capi_kwlist,&a_capi))
28507 return NULL((void*)0);
28508/*frompyobj*/
28509 /* Processing variable a */
28510 ;
28511 capi_a_intent |= F2PY_INTENT_IN1;
28512 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
28513 if (capi_a_tmp == NULL((void*)0)) {
28514 if (!PyErr_Occurred())
28515 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgeequb to C/Fortran array" );
28516 } else {
28517 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
28518
28519 /* Processing variable rowcnd */
28520 /* Processing variable colcnd */
28521 /* Processing variable amax */
28522 /* Processing variable info */
28523 /* Processing variable m */
28524 m = shape(a,0)a_Dims[0];
28525 /* Processing variable n */
28526 n = shape(a,1)a_Dims[1];
28527 /* Processing variable lda */
28528 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
28529 /* Processing variable r */
28530 r_Dims[0]=m;
28531 capi_r_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
28532 capi_r_tmp = array_from_pyobj(NPY_FLOAT,r_Dims,r_Rank,capi_r_intent,Py_None(&_Py_NoneStruct));
28533 if (capi_r_tmp == NULL((void*)0)) {
28534 if (!PyErr_Occurred())
28535 PyErr_SetString(_flapack_error,"failed in converting hidden `r' of _flapack.cgeequb to C/Fortran array" );
28536 } else {
28537 r = (float *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data));
28538
28539 /* Processing variable c */
28540 c_Dims[0]=n;
28541 capi_c_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
28542 capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,Py_None(&_Py_NoneStruct));
28543 if (capi_c_tmp == NULL((void*)0)) {
28544 if (!PyErr_Occurred())
28545 PyErr_SetString(_flapack_error,"failed in converting hidden `c' of _flapack.cgeequb to C/Fortran array" );
28546 } else {
28547 c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
28548
28549/*end of frompyobj*/
28550#ifdef F2PY_REPORT_ATEXIT
28551f2py_start_call_clock();
28552#endif
28553/*callfortranroutine*/
28554 (*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info) ;
28555 /*(*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info);*/
28556if (PyErr_Occurred())
28557 f2py_success = 0;
28558#ifdef F2PY_REPORT_ATEXIT
28559f2py_stop_call_clock();
28560#endif
28561/*end of callfortranroutine*/
28562 if (f2py_success) {
28563/*pyobjfrom*/
28564/*end of pyobjfrom*/
28565 CFUNCSMESS("Building return value.\n");
28566 capi_buildvalue = Py_BuildValue("NNfffi",capi_r_tmp,capi_c_tmp,rowcnd,colcnd,amax,info);
28567/*closepyobjfrom*/
28568/*end of closepyobjfrom*/
28569 } /*if (f2py_success) after callfortranroutine*/
28570/*cleanupfrompyobj*/
28571 } /*if (capi_c_tmp == NULL) ... else of c*/
28572 /* End of cleaning variable c */
28573 } /*if (capi_r_tmp == NULL) ... else of r*/
28574 /* End of cleaning variable r */
28575 /* End of cleaning variable lda */
28576 /* End of cleaning variable n */
28577 /* End of cleaning variable m */
28578 /* End of cleaning variable info */
28579 /* End of cleaning variable amax */
28580 /* End of cleaning variable colcnd */
28581 /* End of cleaning variable rowcnd */
28582 if((PyObject *)capi_a_tmp!=a_capi) {
28583 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
28584 } /*if (capi_a_tmp == NULL) ... else of a*/
28585 /* End of cleaning variable a */
28586/*end of cleanupfrompyobj*/
28587 if (capi_buildvalue == NULL((void*)0)) {
28588/*routdebugfailure*/
28589 } else {
28590/*routdebugleave*/
28591 }
28592 CFUNCSMESS("Freeing memory.\n");
28593/*freemem*/
28594#ifdef F2PY_REPORT_ATEXIT
28595f2py_stop_clock();
28596#endif
28597 return capi_buildvalue;
28598}
28599/******************************* end of cgeequb *******************************/
28600
28601/********************************** zgeequb **********************************/
28602static char doc_f2py_rout__flapack_zgeequb[] = "\
28603r,c,rowcnd,colcnd,amax,info = zgeequb(a)\n\nWrapper for ``zgeequb``.\
28604\n\nParameters\n----------\n"
28605"a : input rank-2 array('D') with bounds (m,n)\n"
28606"\nReturns\n-------\n"
28607"r : rank-1 array('d') with bounds (m)\n"
28608"c : rank-1 array('d') with bounds (n)\n"
28609"rowcnd : float\n"
28610"colcnd : float\n"
28611"amax : float\n"
28612"info : int";
28613/* extern void F_FUNC(zgeequb,ZGEEQUB)(F_INT*,F_INT*,complex_double*,F_INT*,double*,double*,double*,double*,double*,F_INT* ); */
28614static PyObject *f2py_rout__flapack_zgeequb(const PyObject *capi_self,
28615 PyObject *capi_args,
28616 PyObject *capi_keywds,
28617 void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,double*,double*,F_INTint* )) {
28618 PyObject * volatile capi_buildvalue = NULL((void*)0);
28619 volatile int f2py_success = 1;
28620/*decl*/
28621
28622 int m = 0;
28623 int n = 0;
28624 complex_double *a = NULL((void*)0);
28625 npy_intp a_Dims[2] = {-1, -1};
28626 const int a_Rank = 2;
28627 PyArrayObject *capi_a_tmp = NULL((void*)0);
28628 int capi_a_intent = 0;
28629 PyObject *a_capi = Py_None(&_Py_NoneStruct);
28630 int lda = 0;
28631 double *r = NULL((void*)0);
28632 npy_intp r_Dims[1] = {-1};
28633 const int r_Rank = 1;
28634 PyArrayObject *capi_r_tmp = NULL((void*)0);
28635 int capi_r_intent = 0;
28636 double *c = NULL((void*)0);
28637 npy_intp c_Dims[1] = {-1};
28638 const int c_Rank = 1;
28639 PyArrayObject *capi_c_tmp = NULL((void*)0);
28640 int capi_c_intent = 0;
28641 double rowcnd = 0;
28642 double colcnd = 0;
28643 double amax = 0;
28644 int info = 0;
28645 static char *capi_kwlist[] = {"a",NULL((void*)0)};
28646
28647/*routdebugenter*/
28648#ifdef F2PY_REPORT_ATEXIT
28649f2py_start_clock();
28650#endif
28651 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
28652 "O:_flapack.zgeequb",\
28653 capi_kwlist,&a_capi))
28654 return NULL((void*)0);
28655/*frompyobj*/
28656 /* Processing variable a */
28657 ;
28658 capi_a_intent |= F2PY_INTENT_IN1;
28659 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
28660 if (capi_a_tmp == NULL((void*)0)) {
28661 if (!PyErr_Occurred())
28662 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgeequb to C/Fortran array" );
28663 } else {
28664 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
28665
28666 /* Processing variable rowcnd */
28667 /* Processing variable colcnd */
28668 /* Processing variable amax */
28669 /* Processing variable info */
28670 /* Processing variable m */
28671 m = shape(a,0)a_Dims[0];
28672 /* Processing variable n */
28673 n = shape(a,1)a_Dims[1];
28674 /* Processing variable lda */
28675 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
28676 /* Processing variable r */
28677 r_Dims[0]=m;
28678 capi_r_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
28679 capi_r_tmp = array_from_pyobj(NPY_DOUBLE,r_Dims,r_Rank,capi_r_intent,Py_None(&_Py_NoneStruct));
28680 if (capi_r_tmp == NULL((void*)0)) {
28681 if (!PyErr_Occurred())
28682 PyErr_SetString(_flapack_error,"failed in converting hidden `r' of _flapack.zgeequb to C/Fortran array" );
28683 } else {
28684 r = (double *)(PyArray_DATA(capi_r_tmp)((void *)((PyArrayObject_fields *)(capi_r_tmp))->data));
28685
28686 /* Processing variable c */
28687 c_Dims[0]=n;
28688 capi_c_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
28689 capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,Py_None(&_Py_NoneStruct));
28690 if (capi_c_tmp == NULL((void*)0)) {
28691 if (!PyErr_Occurred())
28692 PyErr_SetString(_flapack_error,"failed in converting hidden `c' of _flapack.zgeequb to C/Fortran array" );
28693 } else {
28694 c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
28695
28696/*end of frompyobj*/
28697#ifdef F2PY_REPORT_ATEXIT
28698f2py_start_call_clock();
28699#endif
28700/*callfortranroutine*/
28701 (*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info) ;
28702 /*(*f2py_func)(&m,&n,a,&lda,r,c,&rowcnd,&colcnd,&amax,&info);*/
28703if (PyErr_Occurred())
28704 f2py_success = 0;
28705#ifdef F2PY_REPORT_ATEXIT
28706f2py_stop_call_clock();
28707#endif
28708/*end of callfortranroutine*/
28709 if (f2py_success) {
28710/*pyobjfrom*/
28711/*end of pyobjfrom*/
28712 CFUNCSMESS("Building return value.\n");
28713 capi_buildvalue = Py_BuildValue("NNdddi",capi_r_tmp,capi_c_tmp,rowcnd,colcnd,amax,info);
28714/*closepyobjfrom*/
28715/*end of closepyobjfrom*/
28716 } /*if (f2py_success) after callfortranroutine*/
28717/*cleanupfrompyobj*/
28718 } /*if (capi_c_tmp == NULL) ... else of c*/
28719 /* End of cleaning variable c */
28720 } /*if (capi_r_tmp == NULL) ... else of r*/
28721 /* End of cleaning variable r */
28722 /* End of cleaning variable lda */
28723 /* End of cleaning variable n */
28724 /* End of cleaning variable m */
28725 /* End of cleaning variable info */
28726 /* End of cleaning variable amax */
28727 /* End of cleaning variable colcnd */
28728 /* End of cleaning variable rowcnd */
28729 if((PyObject *)capi_a_tmp!=a_capi) {
28730 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
28731 } /*if (capi_a_tmp == NULL) ... else of a*/
28732 /* End of cleaning variable a */
28733/*end of cleanupfrompyobj*/
28734 if (capi_buildvalue == NULL((void*)0)) {
28735/*routdebugfailure*/
28736 } else {
28737/*routdebugleave*/
28738 }
28739 CFUNCSMESS("Freeing memory.\n");
28740/*freemem*/
28741#ifdef F2PY_REPORT_ATEXIT
28742f2py_stop_clock();
28743#endif
28744 return capi_buildvalue;
28745}
28746/******************************* end of zgeequb *******************************/
28747
28748/*********************************** sgbsv ***********************************/
28749static char doc_f2py_rout__flapack_sgbsv[] = "\
28750lub,piv,x,info = sgbsv(kl,ku,ab,b,[overwrite_ab,overwrite_b])\n\nWrapper for ``sgbsv``.\
28751\n\nParameters\n----------\n"
28752"kl : input int\n"
28753"ku : input int\n"
28754"ab : input rank-2 array('f') with bounds (2*kl+ku+1,n)\n"
28755"b : input rank-2 array('f') with bounds (n,nrhs)\n"
28756"\nOther Parameters\n----------------\n"
28757"overwrite_ab : input int, optional\n Default: 0\n"
28758"overwrite_b : input int, optional\n Default: 0\n"
28759"\nReturns\n-------\n"
28760"lub : rank-2 array('f') with bounds (2*kl+ku+1,n) and ab storage\n"
28761"piv : rank-1 array('i') with bounds (n)\n"
28762"x : rank-2 array('f') with bounds (n,nrhs) and b storage\n"
28763"info : int";
28764/* extern void F_FUNC(sgbsv,SGBSV)(F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */
28765static PyObject *f2py_rout__flapack_sgbsv(const PyObject *capi_self,
28766 PyObject *capi_args,
28767 PyObject *capi_keywds,
28768 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) {
28769 PyObject * volatile capi_buildvalue = NULL((void*)0);
28770 volatile int f2py_success = 1;
28771/*decl*/
28772
28773 int n = 0;
28774 int kl = 0;
28775 PyObject *kl_capi = Py_None(&_Py_NoneStruct);
28776 int ku = 0;
28777 PyObject *ku_capi = Py_None(&_Py_NoneStruct);
28778 int nrhs = 0;
28779 float *ab = NULL((void*)0);
28780 npy_intp ab_Dims[2] = {-1, -1};
28781 const int ab_Rank = 2;
28782 PyArrayObject *capi_ab_tmp = NULL((void*)0);
28783 int capi_ab_intent = 0;
28784 int capi_overwrite_ab = 0;
28785 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
28786 int *piv = NULL((void*)0);
28787 npy_intp piv_Dims[1] = {-1};
28788 const int piv_Rank = 1;
28789 PyArrayObject *capi_piv_tmp = NULL((void*)0);
28790 int capi_piv_intent = 0;
28791 float *b = NULL((void*)0);
28792 npy_intp b_Dims[2] = {-1, -1};
28793 const int b_Rank = 2;
28794 PyArrayObject *capi_b_tmp = NULL((void*)0);
28795 int capi_b_intent = 0;
28796 int capi_overwrite_b = 0;
28797 PyObject *b_capi = Py_None(&_Py_NoneStruct);
28798 int info = 0;
28799 static char *capi_kwlist[] = {"kl","ku","ab","b","overwrite_ab","overwrite_b",NULL((void*)0)};
28800
28801/*routdebugenter*/
28802#ifdef F2PY_REPORT_ATEXIT
28803f2py_start_clock();
28804#endif
28805 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
28806 "OOOO|ii:_flapack.sgbsv",\
28807 capi_kwlist,&kl_capi,&ku_capi,&ab_capi,&b_capi,&capi_overwrite_ab,&capi_overwrite_b))
28808 return NULL((void*)0);
28809/*frompyobj*/
28810 /* Processing variable kl */
28811 f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.sgbsv() 1st argument (kl) can't be converted to int");
28812 if (f2py_success) {
28813 /* Processing variable ku */
28814 f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.sgbsv() 2nd argument (ku) can't be converted to int");
28815 if (f2py_success) {
28816 /* Processing variable info */
28817 /* Processing variable ab */
28818 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
28819 ab_Dims[0]=2*kl+ku+1;
28820 capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
28821 capi_ab_tmp = array_from_pyobj(NPY_FLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
28822 if (capi_ab_tmp == NULL((void*)0)) {
28823 if (!PyErr_Occurred())
28824 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `ab' of _flapack.sgbsv to C/Fortran array" );
28825 } else {
28826 ab = (float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
28827
28828 CHECKARRAY(2*kl+ku+1==shape(ab,0),"2*kl+ku+1==shape(ab,0)","3rd argument ab")if (!(2*kl+ku+1==ab_Dims[0])) { PyErr_SetString(_flapack_error
,"(""2*kl+ku+1==shape(ab,0)"") failed for ""3rd argument ab")
; } else
{
28829 /* Processing variable n */
28830 n = shape(ab,1)ab_Dims[1];
28831 /* Processing variable piv */
28832 piv_Dims[0]=n;
28833 capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
28834 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct));
28835 if (capi_piv_tmp == NULL((void*)0)) {
28836 if (!PyErr_Occurred())
28837 PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.sgbsv to C/Fortran array" );
28838 } else {
28839 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
28840
28841 /* Processing variable b */
28842 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
28843 b_Dims[0]=n;
28844 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
28845 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
28846 if (capi_b_tmp == NULL((void*)0)) {
28847 if (!PyErr_Occurred())
28848 PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.sgbsv to C/Fortran array" );
28849 } else {
28850 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
28851
28852 CHECKARRAY(shape(ab,1)==shape(b,0),"shape(ab,1)==shape(b,0)","4th argument b")if (!(ab_Dims[1]==b_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(ab,1)==shape(b,0)"") failed for ""4th argument b")
; } else
{
28853 /* Processing variable nrhs */
28854 nrhs = shape(b,1)b_Dims[1];
28855/*end of frompyobj*/
28856#ifdef F2PY_REPORT_ATEXIT
28857f2py_start_call_clock();
28858#endif
28859/*callfortranroutine*/
28860 {F_INTint i=2*kl+ku+1;(*f2py_func)(&n,&kl,&ku,&nrhs,ab,&i,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ;
28861 /*(*f2py_func)(&n,&kl,&ku,&nrhs,ab,piv,b,&info);*/
28862if (PyErr_Occurred())
28863 f2py_success = 0;
28864#ifdef F2PY_REPORT_ATEXIT
28865f2py_stop_call_clock();
28866#endif
28867/*end of callfortranroutine*/
28868 if (f2py_success) {
28869/*pyobjfrom*/
28870/*end of pyobjfrom*/
28871 CFUNCSMESS("Building return value.\n");
28872 capi_buildvalue = Py_BuildValue("NNNi",capi_ab_tmp,capi_piv_tmp,capi_b_tmp,info);
28873/*closepyobjfrom*/
28874/*end of closepyobjfrom*/
28875 } /*if (f2py_success) after callfortranroutine*/
28876/*cleanupfrompyobj*/
28877 /* End of cleaning variable nrhs */
28878 } /*CHECKARRAY(shape(ab,1)==shape(b,0))*/
28879 } /*if (capi_b_tmp == NULL) ... else of b*/
28880 /* End of cleaning variable b */
28881 } /*if (capi_piv_tmp == NULL) ... else of piv*/
28882 /* End of cleaning variable piv */
28883 /* End of cleaning variable n */
28884 } /*CHECKARRAY(2*kl+ku+1==shape(ab,0))*/
28885 } /*if (capi_ab_tmp == NULL) ... else of ab*/
28886 /* End of cleaning variable ab */
28887 /* End of cleaning variable info */
28888 } /*if (f2py_success) of ku*/
28889 /* End of cleaning variable ku */
28890 } /*if (f2py_success) of kl*/
28891 /* End of cleaning variable kl */
28892/*end of cleanupfrompyobj*/
28893 if (capi_buildvalue == NULL((void*)0)) {
28894/*routdebugfailure*/
28895 } else {
28896/*routdebugleave*/
28897 }
28898 CFUNCSMESS("Freeing memory.\n");
28899/*freemem*/
28900#ifdef F2PY_REPORT_ATEXIT
28901f2py_stop_clock();
28902#endif
28903 return capi_buildvalue;
28904}
28905/******************************** end of sgbsv ********************************/
28906
28907/*********************************** dgbsv ***********************************/
28908static char doc_f2py_rout__flapack_dgbsv[] = "\
28909lub,piv,x,info = dgbsv(kl,ku,ab,b,[overwrite_ab,overwrite_b])\n\nWrapper for ``dgbsv``.\
28910\n\nParameters\n----------\n"
28911"kl : input int\n"
28912"ku : input int\n"
28913"ab : input rank-2 array('d') with bounds (2*kl+ku+1,n)\n"
28914"b : input rank-2 array('d') with bounds (n,nrhs)\n"
28915"\nOther Parameters\n----------------\n"
28916"overwrite_ab : input int, optional\n Default: 0\n"
28917"overwrite_b : input int, optional\n Default: 0\n"
28918"\nReturns\n-------\n"
28919"lub : rank-2 array('d') with bounds (2*kl+ku+1,n) and ab storage\n"
28920"piv : rank-1 array('i') with bounds (n)\n"
28921"x : rank-2 array('d') with bounds (n,nrhs) and b storage\n"
28922"info : int";
28923/* extern void F_FUNC(dgbsv,DGBSV)(F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */
28924static PyObject *f2py_rout__flapack_dgbsv(const PyObject *capi_self,
28925 PyObject *capi_args,
28926 PyObject *capi_keywds,
28927 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) {
28928 PyObject * volatile capi_buildvalue = NULL((void*)0);
28929 volatile int f2py_success = 1;
28930/*decl*/
28931
28932 int n = 0;
28933 int kl = 0;
28934 PyObject *kl_capi = Py_None(&_Py_NoneStruct);
28935 int ku = 0;
28936 PyObject *ku_capi = Py_None(&_Py_NoneStruct);
28937 int nrhs = 0;
28938 double *ab = NULL((void*)0);
28939 npy_intp ab_Dims[2] = {-1, -1};
28940 const int ab_Rank = 2;
28941 PyArrayObject *capi_ab_tmp = NULL((void*)0);
28942 int capi_ab_intent = 0;
28943 int capi_overwrite_ab = 0;
28944 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
28945 int *piv = NULL((void*)0);
28946 npy_intp piv_Dims[1] = {-1};
28947 const int piv_Rank = 1;
28948 PyArrayObject *capi_piv_tmp = NULL((void*)0);
28949 int capi_piv_intent = 0;
28950 double *b = NULL((void*)0);
28951 npy_intp b_Dims[2] = {-1, -1};
28952 const int b_Rank = 2;
28953 PyArrayObject *capi_b_tmp = NULL((void*)0);
28954 int capi_b_intent = 0;
28955 int capi_overwrite_b = 0;
28956 PyObject *b_capi = Py_None(&_Py_NoneStruct);
28957 int info = 0;
28958 static char *capi_kwlist[] = {"kl","ku","ab","b","overwrite_ab","overwrite_b",NULL((void*)0)};
28959
28960/*routdebugenter*/
28961#ifdef F2PY_REPORT_ATEXIT
28962f2py_start_clock();
28963#endif
28964 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
28965 "OOOO|ii:_flapack.dgbsv",\
28966 capi_kwlist,&kl_capi,&ku_capi,&ab_capi,&b_capi,&capi_overwrite_ab,&capi_overwrite_b))
28967 return NULL((void*)0);
28968/*frompyobj*/
28969 /* Processing variable kl */
28970 f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.dgbsv() 1st argument (kl) can't be converted to int");
28971 if (f2py_success) {
28972 /* Processing variable ku */
28973 f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.dgbsv() 2nd argument (ku) can't be converted to int");
28974 if (f2py_success) {
28975 /* Processing variable info */
28976 /* Processing variable ab */
28977 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
28978 ab_Dims[0]=2*kl+ku+1;
28979 capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
28980 capi_ab_tmp = array_from_pyobj(NPY_DOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
28981 if (capi_ab_tmp == NULL((void*)0)) {
28982 if (!PyErr_Occurred())
28983 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `ab' of _flapack.dgbsv to C/Fortran array" );
28984 } else {
28985 ab = (double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
28986
28987 CHECKARRAY(2*kl+ku+1==shape(ab,0),"2*kl+ku+1==shape(ab,0)","3rd argument ab")if (!(2*kl+ku+1==ab_Dims[0])) { PyErr_SetString(_flapack_error
,"(""2*kl+ku+1==shape(ab,0)"") failed for ""3rd argument ab")
; } else
{
28988 /* Processing variable n */
28989 n = shape(ab,1)ab_Dims[1];
28990 /* Processing variable piv */
28991 piv_Dims[0]=n;
28992 capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
28993 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct));
28994 if (capi_piv_tmp == NULL((void*)0)) {
28995 if (!PyErr_Occurred())
28996 PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.dgbsv to C/Fortran array" );
28997 } else {
28998 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
28999
29000 /* Processing variable b */
29001 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
29002 b_Dims[0]=n;
29003 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
29004 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
29005 if (capi_b_tmp == NULL((void*)0)) {
29006 if (!PyErr_Occurred())
29007 PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.dgbsv to C/Fortran array" );
29008 } else {
29009 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
29010
29011 CHECKARRAY(shape(ab,1)==shape(b,0),"shape(ab,1)==shape(b,0)","4th argument b")if (!(ab_Dims[1]==b_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(ab,1)==shape(b,0)"") failed for ""4th argument b")
; } else
{
29012 /* Processing variable nrhs */
29013 nrhs = shape(b,1)b_Dims[1];
29014/*end of frompyobj*/
29015#ifdef F2PY_REPORT_ATEXIT
29016f2py_start_call_clock();
29017#endif
29018/*callfortranroutine*/
29019 {F_INTint i=2*kl+ku+1;(*f2py_func)(&n,&kl,&ku,&nrhs,ab,&i,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ;
29020 /*(*f2py_func)(&n,&kl,&ku,&nrhs,ab,piv,b,&info);*/
29021if (PyErr_Occurred())
29022 f2py_success = 0;
29023#ifdef F2PY_REPORT_ATEXIT
29024f2py_stop_call_clock();
29025#endif
29026/*end of callfortranroutine*/
29027 if (f2py_success) {
29028/*pyobjfrom*/
29029/*end of pyobjfrom*/
29030 CFUNCSMESS("Building return value.\n");
29031 capi_buildvalue = Py_BuildValue("NNNi",capi_ab_tmp,capi_piv_tmp,capi_b_tmp,info);
29032/*closepyobjfrom*/
29033/*end of closepyobjfrom*/
29034 } /*if (f2py_success) after callfortranroutine*/
29035/*cleanupfrompyobj*/
29036 /* End of cleaning variable nrhs */
29037 } /*CHECKARRAY(shape(ab,1)==shape(b,0))*/
29038 } /*if (capi_b_tmp == NULL) ... else of b*/
29039 /* End of cleaning variable b */
29040 } /*if (capi_piv_tmp == NULL) ... else of piv*/
29041 /* End of cleaning variable piv */
29042 /* End of cleaning variable n */
29043 } /*CHECKARRAY(2*kl+ku+1==shape(ab,0))*/
29044 } /*if (capi_ab_tmp == NULL) ... else of ab*/
29045 /* End of cleaning variable ab */
29046 /* End of cleaning variable info */
29047 } /*if (f2py_success) of ku*/
29048 /* End of cleaning variable ku */
29049 } /*if (f2py_success) of kl*/
29050 /* End of cleaning variable kl */
29051/*end of cleanupfrompyobj*/
29052 if (capi_buildvalue == NULL((void*)0)) {
29053/*routdebugfailure*/
29054 } else {
29055/*routdebugleave*/
29056 }
29057 CFUNCSMESS("Freeing memory.\n");
29058/*freemem*/
29059#ifdef F2PY_REPORT_ATEXIT
29060f2py_stop_clock();
29061#endif
29062 return capi_buildvalue;
29063}
29064/******************************** end of dgbsv ********************************/
29065
29066/*********************************** cgbsv ***********************************/
29067static char doc_f2py_rout__flapack_cgbsv[] = "\
29068lub,piv,x,info = cgbsv(kl,ku,ab,b,[overwrite_ab,overwrite_b])\n\nWrapper for ``cgbsv``.\
29069\n\nParameters\n----------\n"
29070"kl : input int\n"
29071"ku : input int\n"
29072"ab : input rank-2 array('F') with bounds (2*kl+ku+1,n)\n"
29073"b : input rank-2 array('F') with bounds (n,nrhs)\n"
29074"\nOther Parameters\n----------------\n"
29075"overwrite_ab : input int, optional\n Default: 0\n"
29076"overwrite_b : input int, optional\n Default: 0\n"
29077"\nReturns\n-------\n"
29078"lub : rank-2 array('F') with bounds (2*kl+ku+1,n) and ab storage\n"
29079"piv : rank-1 array('i') with bounds (n)\n"
29080"x : rank-2 array('F') with bounds (n,nrhs) and b storage\n"
29081"info : int";
29082/* extern void F_FUNC(cgbsv,CGBSV)(F_INT*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */
29083static PyObject *f2py_rout__flapack_cgbsv(const PyObject *capi_self,
29084 PyObject *capi_args,
29085 PyObject *capi_keywds,
29086 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
29087 PyObject * volatile capi_buildvalue = NULL((void*)0);
29088 volatile int f2py_success = 1;
29089/*decl*/
29090
29091 int n = 0;
29092 int kl = 0;
29093 PyObject *kl_capi = Py_None(&_Py_NoneStruct);
29094 int ku = 0;
29095 PyObject *ku_capi = Py_None(&_Py_NoneStruct);
29096 int nrhs = 0;
29097 complex_float *ab = NULL((void*)0);
29098 npy_intp ab_Dims[2] = {-1, -1};
29099 const int ab_Rank = 2;
29100 PyArrayObject *capi_ab_tmp = NULL((void*)0);
29101 int capi_ab_intent = 0;
29102 int capi_overwrite_ab = 0;
29103 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
29104 int *piv = NULL((void*)0);
29105 npy_intp piv_Dims[1] = {-1};
29106 const int piv_Rank = 1;
29107 PyArrayObject *capi_piv_tmp = NULL((void*)0);
29108 int capi_piv_intent = 0;
29109 complex_float *b = NULL((void*)0);
29110 npy_intp b_Dims[2] = {-1, -1};
29111 const int b_Rank = 2;
29112 PyArrayObject *capi_b_tmp = NULL((void*)0);
29113 int capi_b_intent = 0;
29114 int capi_overwrite_b = 0;
29115 PyObject *b_capi = Py_None(&_Py_NoneStruct);
29116 int info = 0;
29117 static char *capi_kwlist[] = {"kl","ku","ab","b","overwrite_ab","overwrite_b",NULL((void*)0)};
29118
29119/*routdebugenter*/
29120#ifdef F2PY_REPORT_ATEXIT
29121f2py_start_clock();
29122#endif
29123 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
29124 "OOOO|ii:_flapack.cgbsv",\
29125 capi_kwlist,&kl_capi,&ku_capi,&ab_capi,&b_capi,&capi_overwrite_ab,&capi_overwrite_b))
29126 return NULL((void*)0);
29127/*frompyobj*/
29128 /* Processing variable kl */
29129 f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.cgbsv() 1st argument (kl) can't be converted to int");
29130 if (f2py_success) {
29131 /* Processing variable ku */
29132 f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.cgbsv() 2nd argument (ku) can't be converted to int");
29133 if (f2py_success) {
29134 /* Processing variable info */
29135 /* Processing variable ab */
29136 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
29137 ab_Dims[0]=2*kl+ku+1;
29138 capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
29139 capi_ab_tmp = array_from_pyobj(NPY_CFLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
29140 if (capi_ab_tmp == NULL((void*)0)) {
29141 if (!PyErr_Occurred())
29142 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `ab' of _flapack.cgbsv to C/Fortran array" );
29143 } else {
29144 ab = (complex_float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
29145
29146 CHECKARRAY(2*kl+ku+1==shape(ab,0),"2*kl+ku+1==shape(ab,0)","3rd argument ab")if (!(2*kl+ku+1==ab_Dims[0])) { PyErr_SetString(_flapack_error
,"(""2*kl+ku+1==shape(ab,0)"") failed for ""3rd argument ab")
; } else
{
29147 /* Processing variable n */
29148 n = shape(ab,1)ab_Dims[1];
29149 /* Processing variable piv */
29150 piv_Dims[0]=n;
29151 capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
29152 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct));
29153 if (capi_piv_tmp == NULL((void*)0)) {
29154 if (!PyErr_Occurred())
29155 PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.cgbsv to C/Fortran array" );
29156 } else {
29157 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
29158
29159 /* Processing variable b */
29160 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
29161 b_Dims[0]=n;
29162 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
29163 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
29164 if (capi_b_tmp == NULL((void*)0)) {
29165 if (!PyErr_Occurred())
29166 PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.cgbsv to C/Fortran array" );
29167 } else {
29168 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
29169
29170 CHECKARRAY(shape(ab,1)==shape(b,0),"shape(ab,1)==shape(b,0)","4th argument b")if (!(ab_Dims[1]==b_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(ab,1)==shape(b,0)"") failed for ""4th argument b")
; } else
{
29171 /* Processing variable nrhs */
29172 nrhs = shape(b,1)b_Dims[1];
29173/*end of frompyobj*/
29174#ifdef F2PY_REPORT_ATEXIT
29175f2py_start_call_clock();
29176#endif
29177/*callfortranroutine*/
29178 {F_INTint i=2*kl+ku+1;(*f2py_func)(&n,&kl,&ku,&nrhs,ab,&i,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ;
29179 /*(*f2py_func)(&n,&kl,&ku,&nrhs,ab,piv,b,&info);*/
29180if (PyErr_Occurred())
29181 f2py_success = 0;
29182#ifdef F2PY_REPORT_ATEXIT
29183f2py_stop_call_clock();
29184#endif
29185/*end of callfortranroutine*/
29186 if (f2py_success) {
29187/*pyobjfrom*/
29188/*end of pyobjfrom*/
29189 CFUNCSMESS("Building return value.\n");
29190 capi_buildvalue = Py_BuildValue("NNNi",capi_ab_tmp,capi_piv_tmp,capi_b_tmp,info);
29191/*closepyobjfrom*/
29192/*end of closepyobjfrom*/
29193 } /*if (f2py_success) after callfortranroutine*/
29194/*cleanupfrompyobj*/
29195 /* End of cleaning variable nrhs */
29196 } /*CHECKARRAY(shape(ab,1)==shape(b,0))*/
29197 } /*if (capi_b_tmp == NULL) ... else of b*/
29198 /* End of cleaning variable b */
29199 } /*if (capi_piv_tmp == NULL) ... else of piv*/
29200 /* End of cleaning variable piv */
29201 /* End of cleaning variable n */
29202 } /*CHECKARRAY(2*kl+ku+1==shape(ab,0))*/
29203 } /*if (capi_ab_tmp == NULL) ... else of ab*/
29204 /* End of cleaning variable ab */
29205 /* End of cleaning variable info */
29206 } /*if (f2py_success) of ku*/
29207 /* End of cleaning variable ku */
29208 } /*if (f2py_success) of kl*/
29209 /* End of cleaning variable kl */
29210/*end of cleanupfrompyobj*/
29211 if (capi_buildvalue == NULL((void*)0)) {
29212/*routdebugfailure*/
29213 } else {
29214/*routdebugleave*/
29215 }
29216 CFUNCSMESS("Freeing memory.\n");
29217/*freemem*/
29218#ifdef F2PY_REPORT_ATEXIT
29219f2py_stop_clock();
29220#endif
29221 return capi_buildvalue;
29222}
29223/******************************** end of cgbsv ********************************/
29224
29225/*********************************** zgbsv ***********************************/
29226static char doc_f2py_rout__flapack_zgbsv[] = "\
29227lub,piv,x,info = zgbsv(kl,ku,ab,b,[overwrite_ab,overwrite_b])\n\nWrapper for ``zgbsv``.\
29228\n\nParameters\n----------\n"
29229"kl : input int\n"
29230"ku : input int\n"
29231"ab : input rank-2 array('D') with bounds (2*kl+ku+1,n)\n"
29232"b : input rank-2 array('D') with bounds (n,nrhs)\n"
29233"\nOther Parameters\n----------------\n"
29234"overwrite_ab : input int, optional\n Default: 0\n"
29235"overwrite_b : input int, optional\n Default: 0\n"
29236"\nReturns\n-------\n"
29237"lub : rank-2 array('D') with bounds (2*kl+ku+1,n) and ab storage\n"
29238"piv : rank-1 array('i') with bounds (n)\n"
29239"x : rank-2 array('D') with bounds (n,nrhs) and b storage\n"
29240"info : int";
29241/* extern void F_FUNC(zgbsv,ZGBSV)(F_INT*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */
29242static PyObject *f2py_rout__flapack_zgbsv(const PyObject *capi_self,
29243 PyObject *capi_args,
29244 PyObject *capi_keywds,
29245 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
29246 PyObject * volatile capi_buildvalue = NULL((void*)0);
29247 volatile int f2py_success = 1;
29248/*decl*/
29249
29250 int n = 0;
29251 int kl = 0;
29252 PyObject *kl_capi = Py_None(&_Py_NoneStruct);
29253 int ku = 0;
29254 PyObject *ku_capi = Py_None(&_Py_NoneStruct);
29255 int nrhs = 0;
29256 complex_double *ab = NULL((void*)0);
29257 npy_intp ab_Dims[2] = {-1, -1};
29258 const int ab_Rank = 2;
29259 PyArrayObject *capi_ab_tmp = NULL((void*)0);
29260 int capi_ab_intent = 0;
29261 int capi_overwrite_ab = 0;
29262 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
29263 int *piv = NULL((void*)0);
29264 npy_intp piv_Dims[1] = {-1};
29265 const int piv_Rank = 1;
29266 PyArrayObject *capi_piv_tmp = NULL((void*)0);
29267 int capi_piv_intent = 0;
29268 complex_double *b = NULL((void*)0);
29269 npy_intp b_Dims[2] = {-1, -1};
29270 const int b_Rank = 2;
29271 PyArrayObject *capi_b_tmp = NULL((void*)0);
29272 int capi_b_intent = 0;
29273 int capi_overwrite_b = 0;
29274 PyObject *b_capi = Py_None(&_Py_NoneStruct);
29275 int info = 0;
29276 static char *capi_kwlist[] = {"kl","ku","ab","b","overwrite_ab","overwrite_b",NULL((void*)0)};
29277
29278/*routdebugenter*/
29279#ifdef F2PY_REPORT_ATEXIT
29280f2py_start_clock();
29281#endif
29282 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
29283 "OOOO|ii:_flapack.zgbsv",\
29284 capi_kwlist,&kl_capi,&ku_capi,&ab_capi,&b_capi,&capi_overwrite_ab,&capi_overwrite_b))
29285 return NULL((void*)0);
29286/*frompyobj*/
29287 /* Processing variable kl */
29288 f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.zgbsv() 1st argument (kl) can't be converted to int");
29289 if (f2py_success) {
29290 /* Processing variable ku */
29291 f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.zgbsv() 2nd argument (ku) can't be converted to int");
29292 if (f2py_success) {
29293 /* Processing variable info */
29294 /* Processing variable ab */
29295 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
29296 ab_Dims[0]=2*kl+ku+1;
29297 capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
29298 capi_ab_tmp = array_from_pyobj(NPY_CDOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
29299 if (capi_ab_tmp == NULL((void*)0)) {
29300 if (!PyErr_Occurred())
29301 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `ab' of _flapack.zgbsv to C/Fortran array" );
29302 } else {
29303 ab = (complex_double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
29304
29305 CHECKARRAY(2*kl+ku+1==shape(ab,0),"2*kl+ku+1==shape(ab,0)","3rd argument ab")if (!(2*kl+ku+1==ab_Dims[0])) { PyErr_SetString(_flapack_error
,"(""2*kl+ku+1==shape(ab,0)"") failed for ""3rd argument ab")
; } else
{
29306 /* Processing variable n */
29307 n = shape(ab,1)ab_Dims[1];
29308 /* Processing variable piv */
29309 piv_Dims[0]=n;
29310 capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
29311 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct));
29312 if (capi_piv_tmp == NULL((void*)0)) {
29313 if (!PyErr_Occurred())
29314 PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.zgbsv to C/Fortran array" );
29315 } else {
29316 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
29317
29318 /* Processing variable b */
29319 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
29320 b_Dims[0]=n;
29321 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
29322 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
29323 if (capi_b_tmp == NULL((void*)0)) {
29324 if (!PyErr_Occurred())
29325 PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.zgbsv to C/Fortran array" );
29326 } else {
29327 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
29328
29329 CHECKARRAY(shape(ab,1)==shape(b,0),"shape(ab,1)==shape(b,0)","4th argument b")if (!(ab_Dims[1]==b_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(ab,1)==shape(b,0)"") failed for ""4th argument b")
; } else
{
29330 /* Processing variable nrhs */
29331 nrhs = shape(b,1)b_Dims[1];
29332/*end of frompyobj*/
29333#ifdef F2PY_REPORT_ATEXIT
29334f2py_start_call_clock();
29335#endif
29336/*callfortranroutine*/
29337 {F_INTint i=2*kl+ku+1;(*f2py_func)(&n,&kl,&ku,&nrhs,ab,&i,piv,b,&n,&info);for(i=0;i<n;--piv[i++]);} ;
29338 /*(*f2py_func)(&n,&kl,&ku,&nrhs,ab,piv,b,&info);*/
29339if (PyErr_Occurred())
29340 f2py_success = 0;
29341#ifdef F2PY_REPORT_ATEXIT
29342f2py_stop_call_clock();
29343#endif
29344/*end of callfortranroutine*/
29345 if (f2py_success) {
29346/*pyobjfrom*/
29347/*end of pyobjfrom*/
29348 CFUNCSMESS("Building return value.\n");
29349 capi_buildvalue = Py_BuildValue("NNNi",capi_ab_tmp,capi_piv_tmp,capi_b_tmp,info);
29350/*closepyobjfrom*/
29351/*end of closepyobjfrom*/
29352 } /*if (f2py_success) after callfortranroutine*/
29353/*cleanupfrompyobj*/
29354 /* End of cleaning variable nrhs */
29355 } /*CHECKARRAY(shape(ab,1)==shape(b,0))*/
29356 } /*if (capi_b_tmp == NULL) ... else of b*/
29357 /* End of cleaning variable b */
29358 } /*if (capi_piv_tmp == NULL) ... else of piv*/
29359 /* End of cleaning variable piv */
29360 /* End of cleaning variable n */
29361 } /*CHECKARRAY(2*kl+ku+1==shape(ab,0))*/
29362 } /*if (capi_ab_tmp == NULL) ... else of ab*/
29363 /* End of cleaning variable ab */
29364 /* End of cleaning variable info */
29365 } /*if (f2py_success) of ku*/
29366 /* End of cleaning variable ku */
29367 } /*if (f2py_success) of kl*/
29368 /* End of cleaning variable kl */
29369/*end of cleanupfrompyobj*/
29370 if (capi_buildvalue == NULL((void*)0)) {
29371/*routdebugfailure*/
29372 } else {
29373/*routdebugleave*/
29374 }
29375 CFUNCSMESS("Freeing memory.\n");
29376/*freemem*/
29377#ifdef F2PY_REPORT_ATEXIT
29378f2py_stop_clock();
29379#endif
29380 return capi_buildvalue;
29381}
29382/******************************** end of zgbsv ********************************/
29383
29384/*********************************** sgbtrf ***********************************/
29385static char doc_f2py_rout__flapack_sgbtrf[] = "\
29386lu,ipiv,info = sgbtrf(ab,kl,ku,[m,n,ldab,overwrite_ab])\n\nWrapper for ``sgbtrf``.\
29387\n\nParameters\n----------\n"
29388"ab : input rank-2 array('f') with bounds (ldab,n)\n"
29389"kl : input int\n"
29390"ku : input int\n"
29391"\nOther Parameters\n----------------\n"
29392"m : input int, optional\n Default: shape(ab,1)\n"
29393"n : input int, optional\n Default: shape(ab,1)\n"
29394"overwrite_ab : input int, optional\n Default: 0\n"
29395"ldab : input int, optional\n Default: max(shape(ab,0),1)\n"
29396"\nReturns\n-------\n"
29397"lu : rank-2 array('f') with bounds (ldab,n) and ab storage\n"
29398"ipiv : rank-1 array('i') with bounds (MIN(m,n))\n"
29399"info : int";
29400/* extern void F_FUNC(sgbtrf,SGBTRF)(F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */
29401static PyObject *f2py_rout__flapack_sgbtrf(const PyObject *capi_self,
29402 PyObject *capi_args,
29403 PyObject *capi_keywds,
29404 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) {
29405 PyObject * volatile capi_buildvalue = NULL((void*)0);
29406 volatile int f2py_success = 1;
29407/*decl*/
29408
29409 int m = 0;
29410 PyObject *m_capi = Py_None(&_Py_NoneStruct);
29411 int n = 0;
29412 PyObject *n_capi = Py_None(&_Py_NoneStruct);
29413 float *ab = NULL((void*)0);
29414 npy_intp ab_Dims[2] = {-1, -1};
29415 const int ab_Rank = 2;
29416 PyArrayObject *capi_ab_tmp = NULL((void*)0);
29417 int capi_ab_intent = 0;
29418 int capi_overwrite_ab = 0;
29419 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
29420 int kl = 0;
29421 PyObject *kl_capi = Py_None(&_Py_NoneStruct);
29422 int ku = 0;
29423 PyObject *ku_capi = Py_None(&_Py_NoneStruct);
29424 int ldab = 0;
29425 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
29426 int *ipiv = NULL((void*)0);
29427 npy_intp ipiv_Dims[1] = {-1};
29428 const int ipiv_Rank = 1;
29429 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
29430 int capi_ipiv_intent = 0;
29431 int info = 0;
29432 static char *capi_kwlist[] = {"ab","kl","ku","m","n","ldab","overwrite_ab",NULL((void*)0)};
29433
29434/*routdebugenter*/
29435#ifdef F2PY_REPORT_ATEXIT
29436f2py_start_clock();
29437#endif
29438 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
29439 "OOO|OOOi:_flapack.sgbtrf",\
29440 capi_kwlist,&ab_capi,&kl_capi,&ku_capi,&m_capi,&n_capi,&ldab_capi,&capi_overwrite_ab))
29441 return NULL((void*)0);
29442/*frompyobj*/
29443 /* Processing variable kl */
29444 f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.sgbtrf() 2nd argument (kl) can't be converted to int");
29445 if (f2py_success) {
29446 /* Processing variable ku */
29447 f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.sgbtrf() 3rd argument (ku) can't be converted to int");
29448 if (f2py_success) {
29449 /* Processing variable ab */
29450 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
29451 ;
29452 capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
29453 capi_ab_tmp = array_from_pyobj(NPY_FLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
29454 if (capi_ab_tmp == NULL((void*)0)) {
29455 if (!PyErr_Occurred())
29456 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.sgbtrf to C/Fortran array" );
29457 } else {
29458 ab = (float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
29459
29460 /* Processing variable info */
29461 /* Processing variable m */
29462 if (m_capi == Py_None(&_Py_NoneStruct)) m = shape(ab,1)ab_Dims[1]; else
29463 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sgbtrf() 1st keyword (m) can't be converted to int");
29464 if (f2py_success) {
29465 /* Processing variable n */
29466 if (n_capi == Py_None(&_Py_NoneStruct)) n = shape(ab,1)ab_Dims[1]; else
29467 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgbtrf() 2nd keyword (n) can't be converted to int");
29468 if (f2py_success) {
29469 /* Processing variable ldab */
29470 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = max(shape(ab,0),1)((ab_Dims[0] > 1) ? (ab_Dims[0]) : (1)); else
29471 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.sgbtrf() 3rd keyword (ldab) can't be converted to int");
29472 if (f2py_success) {
29473 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","sgbtrf:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgbtrf:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
29474 /* Processing variable ipiv */
29475 ipiv_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
29476 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
29477 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
29478 if (capi_ipiv_tmp == NULL((void*)0)) {
29479 if (!PyErr_Occurred())
29480 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.sgbtrf to C/Fortran array" );
29481 } else {
29482 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
29483
29484/*end of frompyobj*/
29485#ifdef F2PY_REPORT_ATEXIT
29486f2py_start_call_clock();
29487#endif
29488/*callfortranroutine*/
29489 {F_INTint i;(*f2py_func)(&m,&n,&kl,&ku,ab,&ldab,ipiv,&info); for(i=0,n=MIN(m,n)((m < n) ? (m) : (n));i<n;--ipiv[i++]);} ;
29490 /*(*f2py_func)(&m,&n,ab,&kl,&ku,&ldab,ipiv,&info);*/
29491if (PyErr_Occurred())
29492 f2py_success = 0;
29493#ifdef F2PY_REPORT_ATEXIT
29494f2py_stop_call_clock();
29495#endif
29496/*end of callfortranroutine*/
29497 if (f2py_success) {
29498/*pyobjfrom*/
29499/*end of pyobjfrom*/
29500 CFUNCSMESS("Building return value.\n");
29501 capi_buildvalue = Py_BuildValue("NNi",capi_ab_tmp,capi_ipiv_tmp,info);
29502/*closepyobjfrom*/
29503/*end of closepyobjfrom*/
29504 } /*if (f2py_success) after callfortranroutine*/
29505/*cleanupfrompyobj*/
29506 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
29507 /* End of cleaning variable ipiv */
29508 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
29509 } /*if (f2py_success) of ldab*/
29510 /* End of cleaning variable ldab */
29511 } /*if (f2py_success) of n*/
29512 /* End of cleaning variable n */
29513 } /*if (f2py_success) of m*/
29514 /* End of cleaning variable m */
29515 /* End of cleaning variable info */
29516 } /*if (capi_ab_tmp == NULL) ... else of ab*/
29517 /* End of cleaning variable ab */
29518 } /*if (f2py_success) of ku*/
29519 /* End of cleaning variable ku */
29520 } /*if (f2py_success) of kl*/
29521 /* End of cleaning variable kl */
29522/*end of cleanupfrompyobj*/
29523 if (capi_buildvalue == NULL((void*)0)) {
29524/*routdebugfailure*/
29525 } else {
29526/*routdebugleave*/
29527 }
29528 CFUNCSMESS("Freeing memory.\n");
29529/*freemem*/
29530#ifdef F2PY_REPORT_ATEXIT
29531f2py_stop_clock();
29532#endif
29533 return capi_buildvalue;
29534}
29535/******************************* end of sgbtrf *******************************/
29536
29537/*********************************** dgbtrf ***********************************/
29538static char doc_f2py_rout__flapack_dgbtrf[] = "\
29539lu,ipiv,info = dgbtrf(ab,kl,ku,[m,n,ldab,overwrite_ab])\n\nWrapper for ``dgbtrf``.\
29540\n\nParameters\n----------\n"
29541"ab : input rank-2 array('d') with bounds (ldab,n)\n"
29542"kl : input int\n"
29543"ku : input int\n"
29544"\nOther Parameters\n----------------\n"
29545"m : input int, optional\n Default: shape(ab,1)\n"
29546"n : input int, optional\n Default: shape(ab,1)\n"
29547"overwrite_ab : input int, optional\n Default: 0\n"
29548"ldab : input int, optional\n Default: max(shape(ab,0),1)\n"
29549"\nReturns\n-------\n"
29550"lu : rank-2 array('d') with bounds (ldab,n) and ab storage\n"
29551"ipiv : rank-1 array('i') with bounds (MIN(m,n))\n"
29552"info : int";
29553/* extern void F_FUNC(dgbtrf,DGBTRF)(F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */
29554static PyObject *f2py_rout__flapack_dgbtrf(const PyObject *capi_self,
29555 PyObject *capi_args,
29556 PyObject *capi_keywds,
29557 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) {
29558 PyObject * volatile capi_buildvalue = NULL((void*)0);
29559 volatile int f2py_success = 1;
29560/*decl*/
29561
29562 int m = 0;
29563 PyObject *m_capi = Py_None(&_Py_NoneStruct);
29564 int n = 0;
29565 PyObject *n_capi = Py_None(&_Py_NoneStruct);
29566 double *ab = NULL((void*)0);
29567 npy_intp ab_Dims[2] = {-1, -1};
29568 const int ab_Rank = 2;
29569 PyArrayObject *capi_ab_tmp = NULL((void*)0);
29570 int capi_ab_intent = 0;
29571 int capi_overwrite_ab = 0;
29572 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
29573 int kl = 0;
29574 PyObject *kl_capi = Py_None(&_Py_NoneStruct);
29575 int ku = 0;
29576 PyObject *ku_capi = Py_None(&_Py_NoneStruct);
29577 int ldab = 0;
29578 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
29579 int *ipiv = NULL((void*)0);
29580 npy_intp ipiv_Dims[1] = {-1};
29581 const int ipiv_Rank = 1;
29582 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
29583 int capi_ipiv_intent = 0;
29584 int info = 0;
29585 static char *capi_kwlist[] = {"ab","kl","ku","m","n","ldab","overwrite_ab",NULL((void*)0)};
29586
29587/*routdebugenter*/
29588#ifdef F2PY_REPORT_ATEXIT
29589f2py_start_clock();
29590#endif
29591 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
29592 "OOO|OOOi:_flapack.dgbtrf",\
29593 capi_kwlist,&ab_capi,&kl_capi,&ku_capi,&m_capi,&n_capi,&ldab_capi,&capi_overwrite_ab))
29594 return NULL((void*)0);
29595/*frompyobj*/
29596 /* Processing variable kl */
29597 f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.dgbtrf() 2nd argument (kl) can't be converted to int");
29598 if (f2py_success) {
29599 /* Processing variable ku */
29600 f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.dgbtrf() 3rd argument (ku) can't be converted to int");
29601 if (f2py_success) {
29602 /* Processing variable ab */
29603 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
29604 ;
29605 capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
29606 capi_ab_tmp = array_from_pyobj(NPY_DOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
29607 if (capi_ab_tmp == NULL((void*)0)) {
29608 if (!PyErr_Occurred())
29609 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.dgbtrf to C/Fortran array" );
29610 } else {
29611 ab = (double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
29612
29613 /* Processing variable info */
29614 /* Processing variable m */
29615 if (m_capi == Py_None(&_Py_NoneStruct)) m = shape(ab,1)ab_Dims[1]; else
29616 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dgbtrf() 1st keyword (m) can't be converted to int");
29617 if (f2py_success) {
29618 /* Processing variable n */
29619 if (n_capi == Py_None(&_Py_NoneStruct)) n = shape(ab,1)ab_Dims[1]; else
29620 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgbtrf() 2nd keyword (n) can't be converted to int");
29621 if (f2py_success) {
29622 /* Processing variable ldab */
29623 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = max(shape(ab,0),1)((ab_Dims[0] > 1) ? (ab_Dims[0]) : (1)); else
29624 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.dgbtrf() 3rd keyword (ldab) can't be converted to int");
29625 if (f2py_success) {
29626 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","dgbtrf:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgbtrf:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
29627 /* Processing variable ipiv */
29628 ipiv_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
29629 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
29630 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
29631 if (capi_ipiv_tmp == NULL((void*)0)) {
29632 if (!PyErr_Occurred())
29633 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.dgbtrf to C/Fortran array" );
29634 } else {
29635 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
29636
29637/*end of frompyobj*/
29638#ifdef F2PY_REPORT_ATEXIT
29639f2py_start_call_clock();
29640#endif
29641/*callfortranroutine*/
29642 {F_INTint i;(*f2py_func)(&m,&n,&kl,&ku,ab,&ldab,ipiv,&info); for(i=0,n=MIN(m,n)((m < n) ? (m) : (n));i<n;--ipiv[i++]);} ;
29643 /*(*f2py_func)(&m,&n,ab,&kl,&ku,&ldab,ipiv,&info);*/
29644if (PyErr_Occurred())
29645 f2py_success = 0;
29646#ifdef F2PY_REPORT_ATEXIT
29647f2py_stop_call_clock();
29648#endif
29649/*end of callfortranroutine*/
29650 if (f2py_success) {
29651/*pyobjfrom*/
29652/*end of pyobjfrom*/
29653 CFUNCSMESS("Building return value.\n");
29654 capi_buildvalue = Py_BuildValue("NNi",capi_ab_tmp,capi_ipiv_tmp,info);
29655/*closepyobjfrom*/
29656/*end of closepyobjfrom*/
29657 } /*if (f2py_success) after callfortranroutine*/
29658/*cleanupfrompyobj*/
29659 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
29660 /* End of cleaning variable ipiv */
29661 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
29662 } /*if (f2py_success) of ldab*/
29663 /* End of cleaning variable ldab */
29664 } /*if (f2py_success) of n*/
29665 /* End of cleaning variable n */
29666 } /*if (f2py_success) of m*/
29667 /* End of cleaning variable m */
29668 /* End of cleaning variable info */
29669 } /*if (capi_ab_tmp == NULL) ... else of ab*/
29670 /* End of cleaning variable ab */
29671 } /*if (f2py_success) of ku*/
29672 /* End of cleaning variable ku */
29673 } /*if (f2py_success) of kl*/
29674 /* End of cleaning variable kl */
29675/*end of cleanupfrompyobj*/
29676 if (capi_buildvalue == NULL((void*)0)) {
29677/*routdebugfailure*/
29678 } else {
29679/*routdebugleave*/
29680 }
29681 CFUNCSMESS("Freeing memory.\n");
29682/*freemem*/
29683#ifdef F2PY_REPORT_ATEXIT
29684f2py_stop_clock();
29685#endif
29686 return capi_buildvalue;
29687}
29688/******************************* end of dgbtrf *******************************/
29689
29690/*********************************** cgbtrf ***********************************/
29691static char doc_f2py_rout__flapack_cgbtrf[] = "\
29692lu,ipiv,info = cgbtrf(ab,kl,ku,[m,n,ldab,overwrite_ab])\n\nWrapper for ``cgbtrf``.\
29693\n\nParameters\n----------\n"
29694"ab : input rank-2 array('F') with bounds (ldab,n)\n"
29695"kl : input int\n"
29696"ku : input int\n"
29697"\nOther Parameters\n----------------\n"
29698"m : input int, optional\n Default: shape(ab,1)\n"
29699"n : input int, optional\n Default: shape(ab,1)\n"
29700"overwrite_ab : input int, optional\n Default: 0\n"
29701"ldab : input int, optional\n Default: max(shape(ab,0),1)\n"
29702"\nReturns\n-------\n"
29703"lu : rank-2 array('F') with bounds (ldab,n) and ab storage\n"
29704"ipiv : rank-1 array('i') with bounds (MIN(m,n))\n"
29705"info : int";
29706/* extern void F_FUNC(cgbtrf,CGBTRF)(F_INT*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,F_INT* ); */
29707static PyObject *f2py_rout__flapack_cgbtrf(const PyObject *capi_self,
29708 PyObject *capi_args,
29709 PyObject *capi_keywds,
29710 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint* )) {
29711 PyObject * volatile capi_buildvalue = NULL((void*)0);
29712 volatile int f2py_success = 1;
29713/*decl*/
29714
29715 int m = 0;
29716 PyObject *m_capi = Py_None(&_Py_NoneStruct);
29717 int n = 0;
29718 PyObject *n_capi = Py_None(&_Py_NoneStruct);
29719 complex_float *ab = NULL((void*)0);
29720 npy_intp ab_Dims[2] = {-1, -1};
29721 const int ab_Rank = 2;
29722 PyArrayObject *capi_ab_tmp = NULL((void*)0);
29723 int capi_ab_intent = 0;
29724 int capi_overwrite_ab = 0;
29725 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
29726 int kl = 0;
29727 PyObject *kl_capi = Py_None(&_Py_NoneStruct);
29728 int ku = 0;
29729 PyObject *ku_capi = Py_None(&_Py_NoneStruct);
29730 int ldab = 0;
29731 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
29732 int *ipiv = NULL((void*)0);
29733 npy_intp ipiv_Dims[1] = {-1};
29734 const int ipiv_Rank = 1;
29735 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
29736 int capi_ipiv_intent = 0;
29737 int info = 0;
29738 static char *capi_kwlist[] = {"ab","kl","ku","m","n","ldab","overwrite_ab",NULL((void*)0)};
29739
29740/*routdebugenter*/
29741#ifdef F2PY_REPORT_ATEXIT
29742f2py_start_clock();
29743#endif
29744 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
29745 "OOO|OOOi:_flapack.cgbtrf",\
29746 capi_kwlist,&ab_capi,&kl_capi,&ku_capi,&m_capi,&n_capi,&ldab_capi,&capi_overwrite_ab))
29747 return NULL((void*)0);
29748/*frompyobj*/
29749 /* Processing variable kl */
29750 f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.cgbtrf() 2nd argument (kl) can't be converted to int");
29751 if (f2py_success) {
29752 /* Processing variable ku */
29753 f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.cgbtrf() 3rd argument (ku) can't be converted to int");
29754 if (f2py_success) {
29755 /* Processing variable ab */
29756 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
29757 ;
29758 capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
29759 capi_ab_tmp = array_from_pyobj(NPY_CFLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
29760 if (capi_ab_tmp == NULL((void*)0)) {
29761 if (!PyErr_Occurred())
29762 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.cgbtrf to C/Fortran array" );
29763 } else {
29764 ab = (complex_float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
29765
29766 /* Processing variable info */
29767 /* Processing variable m */
29768 if (m_capi == Py_None(&_Py_NoneStruct)) m = shape(ab,1)ab_Dims[1]; else
29769 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cgbtrf() 1st keyword (m) can't be converted to int");
29770 if (f2py_success) {
29771 /* Processing variable n */
29772 if (n_capi == Py_None(&_Py_NoneStruct)) n = shape(ab,1)ab_Dims[1]; else
29773 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgbtrf() 2nd keyword (n) can't be converted to int");
29774 if (f2py_success) {
29775 /* Processing variable ldab */
29776 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = max(shape(ab,0),1)((ab_Dims[0] > 1) ? (ab_Dims[0]) : (1)); else
29777 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.cgbtrf() 3rd keyword (ldab) can't be converted to int");
29778 if (f2py_success) {
29779 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","cgbtrf:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgbtrf:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
29780 /* Processing variable ipiv */
29781 ipiv_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
29782 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
29783 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
29784 if (capi_ipiv_tmp == NULL((void*)0)) {
29785 if (!PyErr_Occurred())
29786 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.cgbtrf to C/Fortran array" );
29787 } else {
29788 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
29789
29790/*end of frompyobj*/
29791#ifdef F2PY_REPORT_ATEXIT
29792f2py_start_call_clock();
29793#endif
29794/*callfortranroutine*/
29795 {F_INTint i;(*f2py_func)(&m,&n,&kl,&ku,ab,&ldab,ipiv,&info); for(i=0,n=MIN(m,n)((m < n) ? (m) : (n));i<n;--ipiv[i++]);} ;
29796 /*(*f2py_func)(&m,&n,ab,&kl,&ku,&ldab,ipiv,&info);*/
29797if (PyErr_Occurred())
29798 f2py_success = 0;
29799#ifdef F2PY_REPORT_ATEXIT
29800f2py_stop_call_clock();
29801#endif
29802/*end of callfortranroutine*/
29803 if (f2py_success) {
29804/*pyobjfrom*/
29805/*end of pyobjfrom*/
29806 CFUNCSMESS("Building return value.\n");
29807 capi_buildvalue = Py_BuildValue("NNi",capi_ab_tmp,capi_ipiv_tmp,info);
29808/*closepyobjfrom*/
29809/*end of closepyobjfrom*/
29810 } /*if (f2py_success) after callfortranroutine*/
29811/*cleanupfrompyobj*/
29812 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
29813 /* End of cleaning variable ipiv */
29814 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
29815 } /*if (f2py_success) of ldab*/
29816 /* End of cleaning variable ldab */
29817 } /*if (f2py_success) of n*/
29818 /* End of cleaning variable n */
29819 } /*if (f2py_success) of m*/
29820 /* End of cleaning variable m */
29821 /* End of cleaning variable info */
29822 } /*if (capi_ab_tmp == NULL) ... else of ab*/
29823 /* End of cleaning variable ab */
29824 } /*if (f2py_success) of ku*/
29825 /* End of cleaning variable ku */
29826 } /*if (f2py_success) of kl*/
29827 /* End of cleaning variable kl */
29828/*end of cleanupfrompyobj*/
29829 if (capi_buildvalue == NULL((void*)0)) {
29830/*routdebugfailure*/
29831 } else {
29832/*routdebugleave*/
29833 }
29834 CFUNCSMESS("Freeing memory.\n");
29835/*freemem*/
29836#ifdef F2PY_REPORT_ATEXIT
29837f2py_stop_clock();
29838#endif
29839 return capi_buildvalue;
29840}
29841/******************************* end of cgbtrf *******************************/
29842
29843/*********************************** zgbtrf ***********************************/
29844static char doc_f2py_rout__flapack_zgbtrf[] = "\
29845lu,ipiv,info = zgbtrf(ab,kl,ku,[m,n,ldab,overwrite_ab])\n\nWrapper for ``zgbtrf``.\
29846\n\nParameters\n----------\n"
29847"ab : input rank-2 array('D') with bounds (ldab,n)\n"
29848"kl : input int\n"
29849"ku : input int\n"
29850"\nOther Parameters\n----------------\n"
29851"m : input int, optional\n Default: shape(ab,1)\n"
29852"n : input int, optional\n Default: shape(ab,1)\n"
29853"overwrite_ab : input int, optional\n Default: 0\n"
29854"ldab : input int, optional\n Default: max(shape(ab,0),1)\n"
29855"\nReturns\n-------\n"
29856"lu : rank-2 array('D') with bounds (ldab,n) and ab storage\n"
29857"ipiv : rank-1 array('i') with bounds (MIN(m,n))\n"
29858"info : int";
29859/* extern void F_FUNC(zgbtrf,ZGBTRF)(F_INT*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,F_INT* ); */
29860static PyObject *f2py_rout__flapack_zgbtrf(const PyObject *capi_self,
29861 PyObject *capi_args,
29862 PyObject *capi_keywds,
29863 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint* )) {
29864 PyObject * volatile capi_buildvalue = NULL((void*)0);
29865 volatile int f2py_success = 1;
29866/*decl*/
29867
29868 int m = 0;
29869 PyObject *m_capi = Py_None(&_Py_NoneStruct);
29870 int n = 0;
29871 PyObject *n_capi = Py_None(&_Py_NoneStruct);
29872 complex_double *ab = NULL((void*)0);
29873 npy_intp ab_Dims[2] = {-1, -1};
29874 const int ab_Rank = 2;
29875 PyArrayObject *capi_ab_tmp = NULL((void*)0);
29876 int capi_ab_intent = 0;
29877 int capi_overwrite_ab = 0;
29878 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
29879 int kl = 0;
29880 PyObject *kl_capi = Py_None(&_Py_NoneStruct);
29881 int ku = 0;
29882 PyObject *ku_capi = Py_None(&_Py_NoneStruct);
29883 int ldab = 0;
29884 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
29885 int *ipiv = NULL((void*)0);
29886 npy_intp ipiv_Dims[1] = {-1};
29887 const int ipiv_Rank = 1;
29888 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
29889 int capi_ipiv_intent = 0;
29890 int info = 0;
29891 static char *capi_kwlist[] = {"ab","kl","ku","m","n","ldab","overwrite_ab",NULL((void*)0)};
29892
29893/*routdebugenter*/
29894#ifdef F2PY_REPORT_ATEXIT
29895f2py_start_clock();
29896#endif
29897 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
29898 "OOO|OOOi:_flapack.zgbtrf",\
29899 capi_kwlist,&ab_capi,&kl_capi,&ku_capi,&m_capi,&n_capi,&ldab_capi,&capi_overwrite_ab))
29900 return NULL((void*)0);
29901/*frompyobj*/
29902 /* Processing variable kl */
29903 f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.zgbtrf() 2nd argument (kl) can't be converted to int");
29904 if (f2py_success) {
29905 /* Processing variable ku */
29906 f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.zgbtrf() 3rd argument (ku) can't be converted to int");
29907 if (f2py_success) {
29908 /* Processing variable ab */
29909 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
29910 ;
29911 capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
29912 capi_ab_tmp = array_from_pyobj(NPY_CDOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
29913 if (capi_ab_tmp == NULL((void*)0)) {
29914 if (!PyErr_Occurred())
29915 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.zgbtrf to C/Fortran array" );
29916 } else {
29917 ab = (complex_double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
29918
29919 /* Processing variable info */
29920 /* Processing variable m */
29921 if (m_capi == Py_None(&_Py_NoneStruct)) m = shape(ab,1)ab_Dims[1]; else
29922 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zgbtrf() 1st keyword (m) can't be converted to int");
29923 if (f2py_success) {
29924 /* Processing variable n */
29925 if (n_capi == Py_None(&_Py_NoneStruct)) n = shape(ab,1)ab_Dims[1]; else
29926 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgbtrf() 2nd keyword (n) can't be converted to int");
29927 if (f2py_success) {
29928 /* Processing variable ldab */
29929 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = max(shape(ab,0),1)((ab_Dims[0] > 1) ? (ab_Dims[0]) : (1)); else
29930 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.zgbtrf() 3rd keyword (ldab) can't be converted to int");
29931 if (f2py_success) {
29932 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","zgbtrf:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgbtrf:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
29933 /* Processing variable ipiv */
29934 ipiv_Dims[0]=MIN(m,n)((m < n) ? (m) : (n));
29935 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
29936 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
29937 if (capi_ipiv_tmp == NULL((void*)0)) {
29938 if (!PyErr_Occurred())
29939 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.zgbtrf to C/Fortran array" );
29940 } else {
29941 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
29942
29943/*end of frompyobj*/
29944#ifdef F2PY_REPORT_ATEXIT
29945f2py_start_call_clock();
29946#endif
29947/*callfortranroutine*/
29948 {F_INTint i;(*f2py_func)(&m,&n,&kl,&ku,ab,&ldab,ipiv,&info); for(i=0,n=MIN(m,n)((m < n) ? (m) : (n));i<n;--ipiv[i++]);} ;
29949 /*(*f2py_func)(&m,&n,ab,&kl,&ku,&ldab,ipiv,&info);*/
29950if (PyErr_Occurred())
29951 f2py_success = 0;
29952#ifdef F2PY_REPORT_ATEXIT
29953f2py_stop_call_clock();
29954#endif
29955/*end of callfortranroutine*/
29956 if (f2py_success) {
29957/*pyobjfrom*/
29958/*end of pyobjfrom*/
29959 CFUNCSMESS("Building return value.\n");
29960 capi_buildvalue = Py_BuildValue("NNi",capi_ab_tmp,capi_ipiv_tmp,info);
29961/*closepyobjfrom*/
29962/*end of closepyobjfrom*/
29963 } /*if (f2py_success) after callfortranroutine*/
29964/*cleanupfrompyobj*/
29965 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
29966 /* End of cleaning variable ipiv */
29967 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
29968 } /*if (f2py_success) of ldab*/
29969 /* End of cleaning variable ldab */
29970 } /*if (f2py_success) of n*/
29971 /* End of cleaning variable n */
29972 } /*if (f2py_success) of m*/
29973 /* End of cleaning variable m */
29974 /* End of cleaning variable info */
29975 } /*if (capi_ab_tmp == NULL) ... else of ab*/
29976 /* End of cleaning variable ab */
29977 } /*if (f2py_success) of ku*/
29978 /* End of cleaning variable ku */
29979 } /*if (f2py_success) of kl*/
29980 /* End of cleaning variable kl */
29981/*end of cleanupfrompyobj*/
29982 if (capi_buildvalue == NULL((void*)0)) {
29983/*routdebugfailure*/
29984 } else {
29985/*routdebugleave*/
29986 }
29987 CFUNCSMESS("Freeing memory.\n");
29988/*freemem*/
29989#ifdef F2PY_REPORT_ATEXIT
29990f2py_stop_clock();
29991#endif
29992 return capi_buildvalue;
29993}
29994/******************************* end of zgbtrf *******************************/
29995
29996/*********************************** sgbtrs ***********************************/
29997static char doc_f2py_rout__flapack_sgbtrs[] = "\
29998x,info = sgbtrs(ab,kl,ku,b,ipiv,[trans,n,ldab,ldb,overwrite_b])\n\nWrapper for ``sgbtrs``.\
29999\n\nParameters\n----------\n"
30000"ab : input rank-2 array('f') with bounds (ldab,n)\n"
30001"kl : input int\n"
30002"ku : input int\n"
30003"b : input rank-2 array('f') with bounds (ldb,nrhs)\n"
30004"ipiv : input rank-1 array('i') with bounds (n)\n"
30005"\nOther Parameters\n----------------\n"
30006"overwrite_b : input int, optional\n Default: 0\n"
30007"trans : input int, optional\n Default: 0\n"
30008"n : input int, optional\n Default: shape(ab,1)\n"
30009"ldab : input int, optional\n Default: shape(ab,0)\n"
30010"ldb : input int, optional\n Default: shape(b,0)\n"
30011"\nReturns\n-------\n"
30012"x : rank-2 array('f') with bounds (ldb,nrhs) and b storage\n"
30013"info : int";
30014/* extern void F_FUNC(sgbtrs,SGBTRS)(char*,F_INT*,F_INT *,F_INT*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */
30015static PyObject *f2py_rout__flapack_sgbtrs(const PyObject *capi_self,
30016 PyObject *capi_args,
30017 PyObject *capi_keywds,
30018 void (*f2py_func)(char*,F_INTint*,F_INTint *,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) {
30019 PyObject * volatile capi_buildvalue = NULL((void*)0);
30020 volatile int f2py_success = 1;
30021/*decl*/
30022
30023 float *ab = NULL((void*)0);
30024 npy_intp ab_Dims[2] = {-1, -1};
30025 const int ab_Rank = 2;
30026 PyArrayObject *capi_ab_tmp = NULL((void*)0);
30027 int capi_ab_intent = 0;
30028 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
30029 int kl = 0;
30030 PyObject *kl_capi = Py_None(&_Py_NoneStruct);
30031 int ku = 0;
30032 PyObject *ku_capi = Py_None(&_Py_NoneStruct);
30033 float *b = NULL((void*)0);
30034 npy_intp b_Dims[2] = {-1, -1};
30035 const int b_Rank = 2;
30036 PyArrayObject *capi_b_tmp = NULL((void*)0);
30037 int capi_b_intent = 0;
30038 int capi_overwrite_b = 0;
30039 PyObject *b_capi = Py_None(&_Py_NoneStruct);
30040 int *ipiv = NULL((void*)0);
30041 npy_intp ipiv_Dims[1] = {-1};
30042 const int ipiv_Rank = 1;
30043 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
30044 int capi_ipiv_intent = 0;
30045 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
30046 int trans = 0;
30047 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
30048 int n = 0;
30049 PyObject *n_capi = Py_None(&_Py_NoneStruct);
30050 int nrhs = 0;
30051 int ldab = 0;
30052 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
30053 int ldb = 0;
30054 PyObject *ldb_capi = Py_None(&_Py_NoneStruct);
30055 int info = 0;
30056 static char *capi_kwlist[] = {"ab","kl","ku","b","ipiv","trans","n","ldab","ldb","overwrite_b",NULL((void*)0)};
30057
30058/*routdebugenter*/
30059#ifdef F2PY_REPORT_ATEXIT
30060f2py_start_clock();
30061#endif
30062 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
30063 "OOOOO|OOOOi:_flapack.sgbtrs",\
30064 capi_kwlist,&ab_capi,&kl_capi,&ku_capi,&b_capi,&ipiv_capi,&trans_capi,&n_capi,&ldab_capi,&ldb_capi,&capi_overwrite_b))
30065 return NULL((void*)0);
30066/*frompyobj*/
30067 /* Processing variable trans */
30068 if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else
30069 f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.sgbtrs() 1st keyword (trans) can't be converted to int");
30070 if (f2py_success) {
30071 /* Processing variable kl */
30072 f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.sgbtrs() 2nd argument (kl) can't be converted to int");
30073 if (f2py_success) {
30074 /* Processing variable ku */
30075 f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.sgbtrs() 3rd argument (ku) can't be converted to int");
30076 if (f2py_success) {
30077 /* Processing variable ab */
30078 ;
30079 capi_ab_intent |= F2PY_INTENT_IN1;
30080 capi_ab_tmp = array_from_pyobj(NPY_FLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
30081 if (capi_ab_tmp == NULL((void*)0)) {
30082 if (!PyErr_Occurred())
30083 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.sgbtrs to C/Fortran array" );
30084 } else {
30085 ab = (float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
30086
30087 /* Processing variable b */
30088 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
30089 ;
30090 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
30091 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
30092 if (capi_b_tmp == NULL((void*)0)) {
30093 if (!PyErr_Occurred())
30094 PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.sgbtrs to C/Fortran array" );
30095 } else {
30096 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
30097
30098 /* Processing variable info */
30099 /* Processing variable n */
30100 if (n_capi == Py_None(&_Py_NoneStruct)) n = shape(ab,1)ab_Dims[1]; else
30101 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgbtrs() 2nd keyword (n) can't be converted to int");
30102 if (f2py_success) {
30103 /* Processing variable nrhs */
30104 nrhs = shape(b,1)b_Dims[1];
30105 /* Processing variable ldab */
30106 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
30107 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.sgbtrs() 3rd keyword (ldab) can't be converted to int");
30108 if (f2py_success) {
30109 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","sgbtrs:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgbtrs:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
30110 /* Processing variable ipiv */
30111 ipiv_Dims[0]=n;
30112 capi_ipiv_intent |= F2PY_INTENT_IN1;
30113 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
30114 if (capi_ipiv_tmp == NULL((void*)0)) {
30115 if (!PyErr_Occurred())
30116 PyErr_SetString(_flapack_error,"failed in converting 5th argument `ipiv' of _flapack.sgbtrs to C/Fortran array" );
30117 } else {
30118 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
30119
30120 /* Processing variable ldb */
30121 if (ldb_capi == Py_None(&_Py_NoneStruct)) ldb = shape(b,0)b_Dims[0]; else
30122 f2py_success = int_from_pyobj(&ldb,ldb_capi,"_flapack.sgbtrs() 4th keyword (ldb) can't be converted to int");
30123 if (f2py_success) {
30124 CHECKSCALAR(shape(b,0)==ldb,"shape(b,0)==ldb","4th keyword ldb","sgbtrs:ldb=%d",ldb)if (!(b_Dims[0]==ldb)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgbtrs:ldb=%d", "(""shape(b,0)==ldb"") failed for "
"4th keyword ldb", ldb); PyErr_SetString(_flapack_error,errstring
); } else
{
30125/*end of frompyobj*/
30126#ifdef F2PY_REPORT_ATEXIT
30127f2py_start_call_clock();
30128#endif
30129/*callfortranroutine*/
30130 {F_INTint i;for(i=0;i<n;++ipiv[i++]);(*f2py_func)((trans>0?(trans==1?"T":"C"):"N"),&n,&kl,&ku,&nrhs,ab,&ldab,ipiv,b,&ldb,&info);for(i=0;i<n;--ipiv[i++]);} ;
30131 /*(*f2py_func)(ab,&kl,&ku,b,ipiv,&trans,&n,&nrhs,&ldab,&ldb,&info);*/
30132if (PyErr_Occurred())
30133 f2py_success = 0;
30134#ifdef F2PY_REPORT_ATEXIT
30135f2py_stop_call_clock();
30136#endif
30137/*end of callfortranroutine*/
30138 if (f2py_success) {
30139/*pyobjfrom*/
30140/*end of pyobjfrom*/
30141 CFUNCSMESS("Building return value.\n");
30142 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
30143/*closepyobjfrom*/
30144/*end of closepyobjfrom*/
30145 } /*if (f2py_success) after callfortranroutine*/
30146/*cleanupfrompyobj*/
30147 } /*CHECKSCALAR(shape(b,0)==ldb)*/
30148 } /*if (f2py_success) of ldb*/
30149 /* End of cleaning variable ldb */
30150 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
30151 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
30152 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
30153 /* End of cleaning variable ipiv */
30154 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
30155 } /*if (f2py_success) of ldab*/
30156 /* End of cleaning variable ldab */
30157 /* End of cleaning variable nrhs */
30158 } /*if (f2py_success) of n*/
30159 /* End of cleaning variable n */
30160 /* End of cleaning variable info */
30161 } /*if (capi_b_tmp == NULL) ... else of b*/
30162 /* End of cleaning variable b */
30163 if((PyObject *)capi_ab_tmp!=ab_capi) {
30164 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
30165 } /*if (capi_ab_tmp == NULL) ... else of ab*/
30166 /* End of cleaning variable ab */
30167 } /*if (f2py_success) of ku*/
30168 /* End of cleaning variable ku */
30169 } /*if (f2py_success) of kl*/
30170 /* End of cleaning variable kl */
30171 } /*if (f2py_success) of trans*/
30172 /* End of cleaning variable trans */
30173/*end of cleanupfrompyobj*/
30174 if (capi_buildvalue == NULL((void*)0)) {
30175/*routdebugfailure*/
30176 } else {
30177/*routdebugleave*/
30178 }
30179 CFUNCSMESS("Freeing memory.\n");
30180/*freemem*/
30181#ifdef F2PY_REPORT_ATEXIT
30182f2py_stop_clock();
30183#endif
30184 return capi_buildvalue;
30185}
30186/******************************* end of sgbtrs *******************************/
30187
30188/*********************************** dgbtrs ***********************************/
30189static char doc_f2py_rout__flapack_dgbtrs[] = "\
30190x,info = dgbtrs(ab,kl,ku,b,ipiv,[trans,n,ldab,ldb,overwrite_b])\n\nWrapper for ``dgbtrs``.\
30191\n\nParameters\n----------\n"
30192"ab : input rank-2 array('d') with bounds (ldab,n)\n"
30193"kl : input int\n"
30194"ku : input int\n"
30195"b : input rank-2 array('d') with bounds (ldb,nrhs)\n"
30196"ipiv : input rank-1 array('i') with bounds (n)\n"
30197"\nOther Parameters\n----------------\n"
30198"overwrite_b : input int, optional\n Default: 0\n"
30199"trans : input int, optional\n Default: 0\n"
30200"n : input int, optional\n Default: shape(ab,1)\n"
30201"ldab : input int, optional\n Default: shape(ab,0)\n"
30202"ldb : input int, optional\n Default: shape(b,0)\n"
30203"\nReturns\n-------\n"
30204"x : rank-2 array('d') with bounds (ldb,nrhs) and b storage\n"
30205"info : int";
30206/* extern void F_FUNC(dgbtrs,DGBTRS)(char*,F_INT*,F_INT *,F_INT*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */
30207static PyObject *f2py_rout__flapack_dgbtrs(const PyObject *capi_self,
30208 PyObject *capi_args,
30209 PyObject *capi_keywds,
30210 void (*f2py_func)(char*,F_INTint*,F_INTint *,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) {
30211 PyObject * volatile capi_buildvalue = NULL((void*)0);
30212 volatile int f2py_success = 1;
30213/*decl*/
30214
30215 double *ab = NULL((void*)0);
30216 npy_intp ab_Dims[2] = {-1, -1};
30217 const int ab_Rank = 2;
30218 PyArrayObject *capi_ab_tmp = NULL((void*)0);
30219 int capi_ab_intent = 0;
30220 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
30221 int kl = 0;
30222 PyObject *kl_capi = Py_None(&_Py_NoneStruct);
30223 int ku = 0;
30224 PyObject *ku_capi = Py_None(&_Py_NoneStruct);
30225 double *b = NULL((void*)0);
30226 npy_intp b_Dims[2] = {-1, -1};
30227 const int b_Rank = 2;
30228 PyArrayObject *capi_b_tmp = NULL((void*)0);
30229 int capi_b_intent = 0;
30230 int capi_overwrite_b = 0;
30231 PyObject *b_capi = Py_None(&_Py_NoneStruct);
30232 int *ipiv = NULL((void*)0);
30233 npy_intp ipiv_Dims[1] = {-1};
30234 const int ipiv_Rank = 1;
30235 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
30236 int capi_ipiv_intent = 0;
30237 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
30238 int trans = 0;
30239 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
30240 int n = 0;
30241 PyObject *n_capi = Py_None(&_Py_NoneStruct);
30242 int nrhs = 0;
30243 int ldab = 0;
30244 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
30245 int ldb = 0;
30246 PyObject *ldb_capi = Py_None(&_Py_NoneStruct);
30247 int info = 0;
30248 static char *capi_kwlist[] = {"ab","kl","ku","b","ipiv","trans","n","ldab","ldb","overwrite_b",NULL((void*)0)};
30249
30250/*routdebugenter*/
30251#ifdef F2PY_REPORT_ATEXIT
30252f2py_start_clock();
30253#endif
30254 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
30255 "OOOOO|OOOOi:_flapack.dgbtrs",\
30256 capi_kwlist,&ab_capi,&kl_capi,&ku_capi,&b_capi,&ipiv_capi,&trans_capi,&n_capi,&ldab_capi,&ldb_capi,&capi_overwrite_b))
30257 return NULL((void*)0);
30258/*frompyobj*/
30259 /* Processing variable trans */
30260 if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else
30261 f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.dgbtrs() 1st keyword (trans) can't be converted to int");
30262 if (f2py_success) {
30263 /* Processing variable kl */
30264 f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.dgbtrs() 2nd argument (kl) can't be converted to int");
30265 if (f2py_success) {
30266 /* Processing variable ku */
30267 f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.dgbtrs() 3rd argument (ku) can't be converted to int");
30268 if (f2py_success) {
30269 /* Processing variable ab */
30270 ;
30271 capi_ab_intent |= F2PY_INTENT_IN1;
30272 capi_ab_tmp = array_from_pyobj(NPY_DOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
30273 if (capi_ab_tmp == NULL((void*)0)) {
30274 if (!PyErr_Occurred())
30275 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.dgbtrs to C/Fortran array" );
30276 } else {
30277 ab = (double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
30278
30279 /* Processing variable b */
30280 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
30281 ;
30282 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
30283 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
30284 if (capi_b_tmp == NULL((void*)0)) {
30285 if (!PyErr_Occurred())
30286 PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.dgbtrs to C/Fortran array" );
30287 } else {
30288 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
30289
30290 /* Processing variable info */
30291 /* Processing variable n */
30292 if (n_capi == Py_None(&_Py_NoneStruct)) n = shape(ab,1)ab_Dims[1]; else
30293 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgbtrs() 2nd keyword (n) can't be converted to int");
30294 if (f2py_success) {
30295 /* Processing variable nrhs */
30296 nrhs = shape(b,1)b_Dims[1];
30297 /* Processing variable ldab */
30298 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
30299 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.dgbtrs() 3rd keyword (ldab) can't be converted to int");
30300 if (f2py_success) {
30301 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","dgbtrs:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgbtrs:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
30302 /* Processing variable ipiv */
30303 ipiv_Dims[0]=n;
30304 capi_ipiv_intent |= F2PY_INTENT_IN1;
30305 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
30306 if (capi_ipiv_tmp == NULL((void*)0)) {
30307 if (!PyErr_Occurred())
30308 PyErr_SetString(_flapack_error,"failed in converting 5th argument `ipiv' of _flapack.dgbtrs to C/Fortran array" );
30309 } else {
30310 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
30311
30312 /* Processing variable ldb */
30313 if (ldb_capi == Py_None(&_Py_NoneStruct)) ldb = shape(b,0)b_Dims[0]; else
30314 f2py_success = int_from_pyobj(&ldb,ldb_capi,"_flapack.dgbtrs() 4th keyword (ldb) can't be converted to int");
30315 if (f2py_success) {
30316 CHECKSCALAR(shape(b,0)==ldb,"shape(b,0)==ldb","4th keyword ldb","dgbtrs:ldb=%d",ldb)if (!(b_Dims[0]==ldb)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgbtrs:ldb=%d", "(""shape(b,0)==ldb"") failed for "
"4th keyword ldb", ldb); PyErr_SetString(_flapack_error,errstring
); } else
{
30317/*end of frompyobj*/
30318#ifdef F2PY_REPORT_ATEXIT
30319f2py_start_call_clock();
30320#endif
30321/*callfortranroutine*/
30322 {F_INTint i;for(i=0;i<n;++ipiv[i++]);(*f2py_func)((trans>0?(trans==1?"T":"C"):"N"),&n,&kl,&ku,&nrhs,ab,&ldab,ipiv,b,&ldb,&info);for(i=0;i<n;--ipiv[i++]);} ;
30323 /*(*f2py_func)(ab,&kl,&ku,b,ipiv,&trans,&n,&nrhs,&ldab,&ldb,&info);*/
30324if (PyErr_Occurred())
30325 f2py_success = 0;
30326#ifdef F2PY_REPORT_ATEXIT
30327f2py_stop_call_clock();
30328#endif
30329/*end of callfortranroutine*/
30330 if (f2py_success) {
30331/*pyobjfrom*/
30332/*end of pyobjfrom*/
30333 CFUNCSMESS("Building return value.\n");
30334 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
30335/*closepyobjfrom*/
30336/*end of closepyobjfrom*/
30337 } /*if (f2py_success) after callfortranroutine*/
30338/*cleanupfrompyobj*/
30339 } /*CHECKSCALAR(shape(b,0)==ldb)*/
30340 } /*if (f2py_success) of ldb*/
30341 /* End of cleaning variable ldb */
30342 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
30343 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
30344 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
30345 /* End of cleaning variable ipiv */
30346 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
30347 } /*if (f2py_success) of ldab*/
30348 /* End of cleaning variable ldab */
30349 /* End of cleaning variable nrhs */
30350 } /*if (f2py_success) of n*/
30351 /* End of cleaning variable n */
30352 /* End of cleaning variable info */
30353 } /*if (capi_b_tmp == NULL) ... else of b*/
30354 /* End of cleaning variable b */
30355 if((PyObject *)capi_ab_tmp!=ab_capi) {
30356 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
30357 } /*if (capi_ab_tmp == NULL) ... else of ab*/
30358 /* End of cleaning variable ab */
30359 } /*if (f2py_success) of ku*/
30360 /* End of cleaning variable ku */
30361 } /*if (f2py_success) of kl*/
30362 /* End of cleaning variable kl */
30363 } /*if (f2py_success) of trans*/
30364 /* End of cleaning variable trans */
30365/*end of cleanupfrompyobj*/
30366 if (capi_buildvalue == NULL((void*)0)) {
30367/*routdebugfailure*/
30368 } else {
30369/*routdebugleave*/
30370 }
30371 CFUNCSMESS("Freeing memory.\n");
30372/*freemem*/
30373#ifdef F2PY_REPORT_ATEXIT
30374f2py_stop_clock();
30375#endif
30376 return capi_buildvalue;
30377}
30378/******************************* end of dgbtrs *******************************/
30379
30380/*********************************** cgbtrs ***********************************/
30381static char doc_f2py_rout__flapack_cgbtrs[] = "\
30382x,info = cgbtrs(ab,kl,ku,b,ipiv,[trans,n,ldab,ldb,overwrite_b])\n\nWrapper for ``cgbtrs``.\
30383\n\nParameters\n----------\n"
30384"ab : input rank-2 array('F') with bounds (ldab,n)\n"
30385"kl : input int\n"
30386"ku : input int\n"
30387"b : input rank-2 array('F') with bounds (ldb,nrhs)\n"
30388"ipiv : input rank-1 array('i') with bounds (n)\n"
30389"\nOther Parameters\n----------------\n"
30390"overwrite_b : input int, optional\n Default: 0\n"
30391"trans : input int, optional\n Default: 0\n"
30392"n : input int, optional\n Default: shape(ab,1)\n"
30393"ldab : input int, optional\n Default: shape(ab,0)\n"
30394"ldb : input int, optional\n Default: shape(b,0)\n"
30395"\nReturns\n-------\n"
30396"x : rank-2 array('F') with bounds (ldb,nrhs) and b storage\n"
30397"info : int";
30398/* extern void F_FUNC(cgbtrs,CGBTRS)(char*,F_INT*,F_INT *,F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */
30399static PyObject *f2py_rout__flapack_cgbtrs(const PyObject *capi_self,
30400 PyObject *capi_args,
30401 PyObject *capi_keywds,
30402 void (*f2py_func)(char*,F_INTint*,F_INTint *,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
30403 PyObject * volatile capi_buildvalue = NULL((void*)0);
30404 volatile int f2py_success = 1;
30405/*decl*/
30406
30407 complex_float *ab = NULL((void*)0);
30408 npy_intp ab_Dims[2] = {-1, -1};
30409 const int ab_Rank = 2;
30410 PyArrayObject *capi_ab_tmp = NULL((void*)0);
30411 int capi_ab_intent = 0;
30412 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
30413 int kl = 0;
30414 PyObject *kl_capi = Py_None(&_Py_NoneStruct);
30415 int ku = 0;
30416 PyObject *ku_capi = Py_None(&_Py_NoneStruct);
30417 complex_float *b = NULL((void*)0);
30418 npy_intp b_Dims[2] = {-1, -1};
30419 const int b_Rank = 2;
30420 PyArrayObject *capi_b_tmp = NULL((void*)0);
30421 int capi_b_intent = 0;
30422 int capi_overwrite_b = 0;
30423 PyObject *b_capi = Py_None(&_Py_NoneStruct);
30424 int *ipiv = NULL((void*)0);
30425 npy_intp ipiv_Dims[1] = {-1};
30426 const int ipiv_Rank = 1;
30427 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
30428 int capi_ipiv_intent = 0;
30429 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
30430 int trans = 0;
30431 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
30432 int n = 0;
30433 PyObject *n_capi = Py_None(&_Py_NoneStruct);
30434 int nrhs = 0;
30435 int ldab = 0;
30436 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
30437 int ldb = 0;
30438 PyObject *ldb_capi = Py_None(&_Py_NoneStruct);
30439 int info = 0;
30440 static char *capi_kwlist[] = {"ab","kl","ku","b","ipiv","trans","n","ldab","ldb","overwrite_b",NULL((void*)0)};
30441
30442/*routdebugenter*/
30443#ifdef F2PY_REPORT_ATEXIT
30444f2py_start_clock();
30445#endif
30446 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
30447 "OOOOO|OOOOi:_flapack.cgbtrs",\
30448 capi_kwlist,&ab_capi,&kl_capi,&ku_capi,&b_capi,&ipiv_capi,&trans_capi,&n_capi,&ldab_capi,&ldb_capi,&capi_overwrite_b))
30449 return NULL((void*)0);
30450/*frompyobj*/
30451 /* Processing variable trans */
30452 if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else
30453 f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.cgbtrs() 1st keyword (trans) can't be converted to int");
30454 if (f2py_success) {
30455 /* Processing variable kl */
30456 f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.cgbtrs() 2nd argument (kl) can't be converted to int");
30457 if (f2py_success) {
30458 /* Processing variable ku */
30459 f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.cgbtrs() 3rd argument (ku) can't be converted to int");
30460 if (f2py_success) {
30461 /* Processing variable ab */
30462 ;
30463 capi_ab_intent |= F2PY_INTENT_IN1;
30464 capi_ab_tmp = array_from_pyobj(NPY_CFLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
30465 if (capi_ab_tmp == NULL((void*)0)) {
30466 if (!PyErr_Occurred())
30467 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.cgbtrs to C/Fortran array" );
30468 } else {
30469 ab = (complex_float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
30470
30471 /* Processing variable b */
30472 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
30473 ;
30474 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
30475 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
30476 if (capi_b_tmp == NULL((void*)0)) {
30477 if (!PyErr_Occurred())
30478 PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.cgbtrs to C/Fortran array" );
30479 } else {
30480 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
30481
30482 /* Processing variable info */
30483 /* Processing variable n */
30484 if (n_capi == Py_None(&_Py_NoneStruct)) n = shape(ab,1)ab_Dims[1]; else
30485 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgbtrs() 2nd keyword (n) can't be converted to int");
30486 if (f2py_success) {
30487 /* Processing variable nrhs */
30488 nrhs = shape(b,1)b_Dims[1];
30489 /* Processing variable ldab */
30490 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
30491 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.cgbtrs() 3rd keyword (ldab) can't be converted to int");
30492 if (f2py_success) {
30493 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","cgbtrs:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgbtrs:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
30494 /* Processing variable ipiv */
30495 ipiv_Dims[0]=n;
30496 capi_ipiv_intent |= F2PY_INTENT_IN1;
30497 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
30498 if (capi_ipiv_tmp == NULL((void*)0)) {
30499 if (!PyErr_Occurred())
30500 PyErr_SetString(_flapack_error,"failed in converting 5th argument `ipiv' of _flapack.cgbtrs to C/Fortran array" );
30501 } else {
30502 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
30503
30504 /* Processing variable ldb */
30505 if (ldb_capi == Py_None(&_Py_NoneStruct)) ldb = shape(b,0)b_Dims[0]; else
30506 f2py_success = int_from_pyobj(&ldb,ldb_capi,"_flapack.cgbtrs() 4th keyword (ldb) can't be converted to int");
30507 if (f2py_success) {
30508 CHECKSCALAR(shape(b,0)==ldb,"shape(b,0)==ldb","4th keyword ldb","cgbtrs:ldb=%d",ldb)if (!(b_Dims[0]==ldb)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgbtrs:ldb=%d", "(""shape(b,0)==ldb"") failed for "
"4th keyword ldb", ldb); PyErr_SetString(_flapack_error,errstring
); } else
{
30509/*end of frompyobj*/
30510#ifdef F2PY_REPORT_ATEXIT
30511f2py_start_call_clock();
30512#endif
30513/*callfortranroutine*/
30514 {F_INTint i;for(i=0;i<n;++ipiv[i++]);(*f2py_func)((trans>0?(trans==1?"T":"C"):"N"),&n,&kl,&ku,&nrhs,ab,&ldab,ipiv,b,&ldb,&info);for(i=0;i<n;--ipiv[i++]);} ;
30515 /*(*f2py_func)(ab,&kl,&ku,b,ipiv,&trans,&n,&nrhs,&ldab,&ldb,&info);*/
30516if (PyErr_Occurred())
30517 f2py_success = 0;
30518#ifdef F2PY_REPORT_ATEXIT
30519f2py_stop_call_clock();
30520#endif
30521/*end of callfortranroutine*/
30522 if (f2py_success) {
30523/*pyobjfrom*/
30524/*end of pyobjfrom*/
30525 CFUNCSMESS("Building return value.\n");
30526 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
30527/*closepyobjfrom*/
30528/*end of closepyobjfrom*/
30529 } /*if (f2py_success) after callfortranroutine*/
30530/*cleanupfrompyobj*/
30531 } /*CHECKSCALAR(shape(b,0)==ldb)*/
30532 } /*if (f2py_success) of ldb*/
30533 /* End of cleaning variable ldb */
30534 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
30535 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
30536 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
30537 /* End of cleaning variable ipiv */
30538 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
30539 } /*if (f2py_success) of ldab*/
30540 /* End of cleaning variable ldab */
30541 /* End of cleaning variable nrhs */
30542 } /*if (f2py_success) of n*/
30543 /* End of cleaning variable n */
30544 /* End of cleaning variable info */
30545 } /*if (capi_b_tmp == NULL) ... else of b*/
30546 /* End of cleaning variable b */
30547 if((PyObject *)capi_ab_tmp!=ab_capi) {
30548 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
30549 } /*if (capi_ab_tmp == NULL) ... else of ab*/
30550 /* End of cleaning variable ab */
30551 } /*if (f2py_success) of ku*/
30552 /* End of cleaning variable ku */
30553 } /*if (f2py_success) of kl*/
30554 /* End of cleaning variable kl */
30555 } /*if (f2py_success) of trans*/
30556 /* End of cleaning variable trans */
30557/*end of cleanupfrompyobj*/
30558 if (capi_buildvalue == NULL((void*)0)) {
30559/*routdebugfailure*/
30560 } else {
30561/*routdebugleave*/
30562 }
30563 CFUNCSMESS("Freeing memory.\n");
30564/*freemem*/
30565#ifdef F2PY_REPORT_ATEXIT
30566f2py_stop_clock();
30567#endif
30568 return capi_buildvalue;
30569}
30570/******************************* end of cgbtrs *******************************/
30571
30572/*********************************** zgbtrs ***********************************/
30573static char doc_f2py_rout__flapack_zgbtrs[] = "\
30574x,info = zgbtrs(ab,kl,ku,b,ipiv,[trans,n,ldab,ldb,overwrite_b])\n\nWrapper for ``zgbtrs``.\
30575\n\nParameters\n----------\n"
30576"ab : input rank-2 array('D') with bounds (ldab,n)\n"
30577"kl : input int\n"
30578"ku : input int\n"
30579"b : input rank-2 array('D') with bounds (ldb,nrhs)\n"
30580"ipiv : input rank-1 array('i') with bounds (n)\n"
30581"\nOther Parameters\n----------------\n"
30582"overwrite_b : input int, optional\n Default: 0\n"
30583"trans : input int, optional\n Default: 0\n"
30584"n : input int, optional\n Default: shape(ab,1)\n"
30585"ldab : input int, optional\n Default: shape(ab,0)\n"
30586"ldb : input int, optional\n Default: shape(b,0)\n"
30587"\nReturns\n-------\n"
30588"x : rank-2 array('D') with bounds (ldb,nrhs) and b storage\n"
30589"info : int";
30590/* extern void F_FUNC(zgbtrs,ZGBTRS)(char*,F_INT*,F_INT *,F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */
30591static PyObject *f2py_rout__flapack_zgbtrs(const PyObject *capi_self,
30592 PyObject *capi_args,
30593 PyObject *capi_keywds,
30594 void (*f2py_func)(char*,F_INTint*,F_INTint *,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
30595 PyObject * volatile capi_buildvalue = NULL((void*)0);
30596 volatile int f2py_success = 1;
30597/*decl*/
30598
30599 complex_double *ab = NULL((void*)0);
30600 npy_intp ab_Dims[2] = {-1, -1};
30601 const int ab_Rank = 2;
30602 PyArrayObject *capi_ab_tmp = NULL((void*)0);
30603 int capi_ab_intent = 0;
30604 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
30605 int kl = 0;
30606 PyObject *kl_capi = Py_None(&_Py_NoneStruct);
30607 int ku = 0;
30608 PyObject *ku_capi = Py_None(&_Py_NoneStruct);
30609 complex_double *b = NULL((void*)0);
30610 npy_intp b_Dims[2] = {-1, -1};
30611 const int b_Rank = 2;
30612 PyArrayObject *capi_b_tmp = NULL((void*)0);
30613 int capi_b_intent = 0;
30614 int capi_overwrite_b = 0;
30615 PyObject *b_capi = Py_None(&_Py_NoneStruct);
30616 int *ipiv = NULL((void*)0);
30617 npy_intp ipiv_Dims[1] = {-1};
30618 const int ipiv_Rank = 1;
30619 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
30620 int capi_ipiv_intent = 0;
30621 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
30622 int trans = 0;
30623 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
30624 int n = 0;
30625 PyObject *n_capi = Py_None(&_Py_NoneStruct);
30626 int nrhs = 0;
30627 int ldab = 0;
30628 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
30629 int ldb = 0;
30630 PyObject *ldb_capi = Py_None(&_Py_NoneStruct);
30631 int info = 0;
30632 static char *capi_kwlist[] = {"ab","kl","ku","b","ipiv","trans","n","ldab","ldb","overwrite_b",NULL((void*)0)};
30633
30634/*routdebugenter*/
30635#ifdef F2PY_REPORT_ATEXIT
30636f2py_start_clock();
30637#endif
30638 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
30639 "OOOOO|OOOOi:_flapack.zgbtrs",\
30640 capi_kwlist,&ab_capi,&kl_capi,&ku_capi,&b_capi,&ipiv_capi,&trans_capi,&n_capi,&ldab_capi,&ldb_capi,&capi_overwrite_b))
30641 return NULL((void*)0);
30642/*frompyobj*/
30643 /* Processing variable trans */
30644 if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else
30645 f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.zgbtrs() 1st keyword (trans) can't be converted to int");
30646 if (f2py_success) {
30647 /* Processing variable kl */
30648 f2py_success = int_from_pyobj(&kl,kl_capi,"_flapack.zgbtrs() 2nd argument (kl) can't be converted to int");
30649 if (f2py_success) {
30650 /* Processing variable ku */
30651 f2py_success = int_from_pyobj(&ku,ku_capi,"_flapack.zgbtrs() 3rd argument (ku) can't be converted to int");
30652 if (f2py_success) {
30653 /* Processing variable ab */
30654 ;
30655 capi_ab_intent |= F2PY_INTENT_IN1;
30656 capi_ab_tmp = array_from_pyobj(NPY_CDOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
30657 if (capi_ab_tmp == NULL((void*)0)) {
30658 if (!PyErr_Occurred())
30659 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.zgbtrs to C/Fortran array" );
30660 } else {
30661 ab = (complex_double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
30662
30663 /* Processing variable b */
30664 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
30665 ;
30666 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
30667 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
30668 if (capi_b_tmp == NULL((void*)0)) {
30669 if (!PyErr_Occurred())
30670 PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.zgbtrs to C/Fortran array" );
30671 } else {
30672 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
30673
30674 /* Processing variable info */
30675 /* Processing variable n */
30676 if (n_capi == Py_None(&_Py_NoneStruct)) n = shape(ab,1)ab_Dims[1]; else
30677 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgbtrs() 2nd keyword (n) can't be converted to int");
30678 if (f2py_success) {
30679 /* Processing variable nrhs */
30680 nrhs = shape(b,1)b_Dims[1];
30681 /* Processing variable ldab */
30682 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
30683 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.zgbtrs() 3rd keyword (ldab) can't be converted to int");
30684 if (f2py_success) {
30685 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","zgbtrs:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgbtrs:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
30686 /* Processing variable ipiv */
30687 ipiv_Dims[0]=n;
30688 capi_ipiv_intent |= F2PY_INTENT_IN1;
30689 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
30690 if (capi_ipiv_tmp == NULL((void*)0)) {
30691 if (!PyErr_Occurred())
30692 PyErr_SetString(_flapack_error,"failed in converting 5th argument `ipiv' of _flapack.zgbtrs to C/Fortran array" );
30693 } else {
30694 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
30695
30696 /* Processing variable ldb */
30697 if (ldb_capi == Py_None(&_Py_NoneStruct)) ldb = shape(b,0)b_Dims[0]; else
30698 f2py_success = int_from_pyobj(&ldb,ldb_capi,"_flapack.zgbtrs() 4th keyword (ldb) can't be converted to int");
30699 if (f2py_success) {
30700 CHECKSCALAR(shape(b,0)==ldb,"shape(b,0)==ldb","4th keyword ldb","zgbtrs:ldb=%d",ldb)if (!(b_Dims[0]==ldb)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgbtrs:ldb=%d", "(""shape(b,0)==ldb"") failed for "
"4th keyword ldb", ldb); PyErr_SetString(_flapack_error,errstring
); } else
{
30701/*end of frompyobj*/
30702#ifdef F2PY_REPORT_ATEXIT
30703f2py_start_call_clock();
30704#endif
30705/*callfortranroutine*/
30706 {F_INTint i;for(i=0;i<n;++ipiv[i++]);(*f2py_func)((trans>0?(trans==1?"T":"C"):"N"),&n,&kl,&ku,&nrhs,ab,&ldab,ipiv,b,&ldb,&info);for(i=0;i<n;--ipiv[i++]);} ;
30707 /*(*f2py_func)(ab,&kl,&ku,b,ipiv,&trans,&n,&nrhs,&ldab,&ldb,&info);*/
30708if (PyErr_Occurred())
30709 f2py_success = 0;
30710#ifdef F2PY_REPORT_ATEXIT
30711f2py_stop_call_clock();
30712#endif
30713/*end of callfortranroutine*/
30714 if (f2py_success) {
30715/*pyobjfrom*/
30716/*end of pyobjfrom*/
30717 CFUNCSMESS("Building return value.\n");
30718 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
30719/*closepyobjfrom*/
30720/*end of closepyobjfrom*/
30721 } /*if (f2py_success) after callfortranroutine*/
30722/*cleanupfrompyobj*/
30723 } /*CHECKSCALAR(shape(b,0)==ldb)*/
30724 } /*if (f2py_success) of ldb*/
30725 /* End of cleaning variable ldb */
30726 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
30727 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
30728 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
30729 /* End of cleaning variable ipiv */
30730 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
30731 } /*if (f2py_success) of ldab*/
30732 /* End of cleaning variable ldab */
30733 /* End of cleaning variable nrhs */
30734 } /*if (f2py_success) of n*/
30735 /* End of cleaning variable n */
30736 /* End of cleaning variable info */
30737 } /*if (capi_b_tmp == NULL) ... else of b*/
30738 /* End of cleaning variable b */
30739 if((PyObject *)capi_ab_tmp!=ab_capi) {
30740 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
30741 } /*if (capi_ab_tmp == NULL) ... else of ab*/
30742 /* End of cleaning variable ab */
30743 } /*if (f2py_success) of ku*/
30744 /* End of cleaning variable ku */
30745 } /*if (f2py_success) of kl*/
30746 /* End of cleaning variable kl */
30747 } /*if (f2py_success) of trans*/
30748 /* End of cleaning variable trans */
30749/*end of cleanupfrompyobj*/
30750 if (capi_buildvalue == NULL((void*)0)) {
30751/*routdebugfailure*/
30752 } else {
30753/*routdebugleave*/
30754 }
30755 CFUNCSMESS("Freeing memory.\n");
30756/*freemem*/
30757#ifdef F2PY_REPORT_ATEXIT
30758f2py_stop_clock();
30759#endif
30760 return capi_buildvalue;
30761}
30762/******************************* end of zgbtrs *******************************/
30763
30764/*********************************** sgtsv ***********************************/
30765static char doc_f2py_rout__flapack_sgtsv[] = "\
30766du2,d,du,x,info = sgtsv(dl,d,du,b,[overwrite_dl,overwrite_d,overwrite_du,overwrite_b])\n\nWrapper for ``sgtsv``.\
30767\n\nParameters\n----------\n"
30768"dl : input rank-1 array('f') with bounds (n - 1)\n"
30769"d : input rank-1 array('f') with bounds (n)\n"
30770"du : input rank-1 array('f') with bounds (n - 1)\n"
30771"b : input rank-2 array('f') with bounds (n,nrhs)\n"
30772"\nOther Parameters\n----------------\n"
30773"overwrite_dl : input int, optional\n Default: 0\n"
30774"overwrite_d : input int, optional\n Default: 0\n"
30775"overwrite_du : input int, optional\n Default: 0\n"
30776"overwrite_b : input int, optional\n Default: 0\n"
30777"\nReturns\n-------\n"
30778"du2 : rank-1 array('f') with bounds (n - 1) and dl storage\n"
30779"d : rank-1 array('f') with bounds (n)\n"
30780"du : rank-1 array('f') with bounds (n - 1)\n"
30781"x : rank-2 array('f') with bounds (n,nrhs) and b storage\n"
30782"info : int";
30783/* extern void F_FUNC(sgtsv,SGTSV)(F_INT*, F_INT*, float*, float*, float*, float*, F_INT*, F_INT* ); */
30784static PyObject *f2py_rout__flapack_sgtsv(const PyObject *capi_self,
30785 PyObject *capi_args,
30786 PyObject *capi_keywds,
30787 void (*f2py_func)(F_INTint*, F_INTint*, float*, float*, float*, float*, F_INTint*, F_INTint* )) {
30788 PyObject * volatile capi_buildvalue = NULL((void*)0);
30789 volatile int f2py_success = 1;
30790/*decl*/
30791
30792 int n = 0;
30793 int nrhs = 0;
30794 float *dl = NULL((void*)0);
30795 npy_intp dl_Dims[1] = {-1};
30796 const int dl_Rank = 1;
30797 PyArrayObject *capi_dl_tmp = NULL((void*)0);
30798 int capi_dl_intent = 0;
30799 int capi_overwrite_dl = 0;
30800 PyObject *dl_capi = Py_None(&_Py_NoneStruct);
30801 float *d = NULL((void*)0);
30802 npy_intp d_Dims[1] = {-1};
30803 const int d_Rank = 1;
30804 PyArrayObject *capi_d_tmp = NULL((void*)0);
30805 int capi_d_intent = 0;
30806 int capi_overwrite_d = 0;
30807 PyObject *d_capi = Py_None(&_Py_NoneStruct);
30808 float *du = NULL((void*)0);
30809 npy_intp du_Dims[1] = {-1};
30810 const int du_Rank = 1;
30811 PyArrayObject *capi_du_tmp = NULL((void*)0);
30812 int capi_du_intent = 0;
30813 int capi_overwrite_du = 0;
30814 PyObject *du_capi = Py_None(&_Py_NoneStruct);
30815 float *b = NULL((void*)0);
30816 npy_intp b_Dims[2] = {-1, -1};
30817 const int b_Rank = 2;
30818 PyArrayObject *capi_b_tmp = NULL((void*)0);
30819 int capi_b_intent = 0;
30820 int capi_overwrite_b = 0;
30821 PyObject *b_capi = Py_None(&_Py_NoneStruct);
30822 int info = 0;
30823 static char *capi_kwlist[] = {"dl","d","du","b","overwrite_dl","overwrite_d","overwrite_du","overwrite_b",NULL((void*)0)};
30824
30825/*routdebugenter*/
30826#ifdef F2PY_REPORT_ATEXIT
30827f2py_start_clock();
30828#endif
30829 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
30830 "OOOO|iiii:_flapack.sgtsv",\
30831 capi_kwlist,&dl_capi,&d_capi,&du_capi,&b_capi,&capi_overwrite_dl,&capi_overwrite_d,&capi_overwrite_du,&capi_overwrite_b))
30832 return NULL((void*)0);
30833/*frompyobj*/
30834 /* Processing variable d */
30835 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
30836 ;
30837 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
30838 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
30839 if (capi_d_tmp == NULL((void*)0)) {
30840 if (!PyErr_Occurred())
30841 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.sgtsv to C/Fortran array" );
30842 } else {
30843 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
30844
30845 /* Processing variable info */
30846 /* Processing variable n */
30847 n = len(d)d_Dims[0];
30848 /* Processing variable dl */
30849 capi_dl_intent |= (capi_overwrite_dl?0:F2PY_INTENT_COPY32);
30850 dl_Dims[0]=n - 1;
30851 capi_dl_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
30852 capi_dl_tmp = array_from_pyobj(NPY_FLOAT,dl_Dims,dl_Rank,capi_dl_intent,dl_capi);
30853 if (capi_dl_tmp == NULL((void*)0)) {
30854 if (!PyErr_Occurred())
30855 PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.sgtsv to C/Fortran array" );
30856 } else {
30857 dl = (float *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data));
30858
30859 /* Processing variable du */
30860 capi_du_intent |= (capi_overwrite_du?0:F2PY_INTENT_COPY32);
30861 du_Dims[0]=n - 1;
30862 capi_du_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
30863 capi_du_tmp = array_from_pyobj(NPY_FLOAT,du_Dims,du_Rank,capi_du_intent,du_capi);
30864 if (capi_du_tmp == NULL((void*)0)) {
30865 if (!PyErr_Occurred())
30866 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.sgtsv to C/Fortran array" );
30867 } else {
30868 du = (float *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data));
30869
30870 /* Processing variable b */
30871 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
30872 b_Dims[0]=n;
30873 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
30874 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
30875 if (capi_b_tmp == NULL((void*)0)) {
30876 if (!PyErr_Occurred())
30877 PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.sgtsv to C/Fortran array" );
30878 } else {
30879 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
30880
30881 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","4th argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""4th argument b"); } else
{
30882 /* Processing variable nrhs */
30883 nrhs = shape(b, 1)b_Dims[1];
30884/*end of frompyobj*/
30885#ifdef F2PY_REPORT_ATEXIT
30886f2py_start_call_clock();
30887#endif
30888/*callfortranroutine*/
30889 (*f2py_func)(&n, &nrhs, dl, d, du, b, &n, &info); ;
30890 /*(*f2py_func)(&n,&nrhs,dl,d,du,b,&info);*/
30891if (PyErr_Occurred())
30892 f2py_success = 0;
30893#ifdef F2PY_REPORT_ATEXIT
30894f2py_stop_call_clock();
30895#endif
30896/*end of callfortranroutine*/
30897 if (f2py_success) {
30898/*pyobjfrom*/
30899/*end of pyobjfrom*/
30900 CFUNCSMESS("Building return value.\n");
30901 capi_buildvalue = Py_BuildValue("NNNNi",capi_dl_tmp,capi_d_tmp,capi_du_tmp,capi_b_tmp,info);
30902/*closepyobjfrom*/
30903/*end of closepyobjfrom*/
30904 } /*if (f2py_success) after callfortranroutine*/
30905/*cleanupfrompyobj*/
30906 /* End of cleaning variable nrhs */
30907 } /*CHECKARRAY(shape(b,0)==n)*/
30908 } /*if (capi_b_tmp == NULL) ... else of b*/
30909 /* End of cleaning variable b */
30910 } /*if (capi_du_tmp == NULL) ... else of du*/
30911 /* End of cleaning variable du */
30912 } /*if (capi_dl_tmp == NULL) ... else of dl*/
30913 /* End of cleaning variable dl */
30914 /* End of cleaning variable n */
30915 /* End of cleaning variable info */
30916 } /*if (capi_d_tmp == NULL) ... else of d*/
30917 /* End of cleaning variable d */
30918/*end of cleanupfrompyobj*/
30919 if (capi_buildvalue == NULL((void*)0)) {
30920/*routdebugfailure*/
30921 } else {
30922/*routdebugleave*/
30923 }
30924 CFUNCSMESS("Freeing memory.\n");
30925/*freemem*/
30926#ifdef F2PY_REPORT_ATEXIT
30927f2py_stop_clock();
30928#endif
30929 return capi_buildvalue;
30930}
30931/******************************** end of sgtsv ********************************/
30932
30933/*********************************** dgtsv ***********************************/
30934static char doc_f2py_rout__flapack_dgtsv[] = "\
30935du2,d,du,x,info = dgtsv(dl,d,du,b,[overwrite_dl,overwrite_d,overwrite_du,overwrite_b])\n\nWrapper for ``dgtsv``.\
30936\n\nParameters\n----------\n"
30937"dl : input rank-1 array('d') with bounds (n - 1)\n"
30938"d : input rank-1 array('d') with bounds (n)\n"
30939"du : input rank-1 array('d') with bounds (n - 1)\n"
30940"b : input rank-2 array('d') with bounds (n,nrhs)\n"
30941"\nOther Parameters\n----------------\n"
30942"overwrite_dl : input int, optional\n Default: 0\n"
30943"overwrite_d : input int, optional\n Default: 0\n"
30944"overwrite_du : input int, optional\n Default: 0\n"
30945"overwrite_b : input int, optional\n Default: 0\n"
30946"\nReturns\n-------\n"
30947"du2 : rank-1 array('d') with bounds (n - 1) and dl storage\n"
30948"d : rank-1 array('d') with bounds (n)\n"
30949"du : rank-1 array('d') with bounds (n - 1)\n"
30950"x : rank-2 array('d') with bounds (n,nrhs) and b storage\n"
30951"info : int";
30952/* extern void F_FUNC(dgtsv,DGTSV)(F_INT*, F_INT*, double*, double*, double*, double*, F_INT*, F_INT* ); */
30953static PyObject *f2py_rout__flapack_dgtsv(const PyObject *capi_self,
30954 PyObject *capi_args,
30955 PyObject *capi_keywds,
30956 void (*f2py_func)(F_INTint*, F_INTint*, double*, double*, double*, double*, F_INTint*, F_INTint* )) {
30957 PyObject * volatile capi_buildvalue = NULL((void*)0);
30958 volatile int f2py_success = 1;
30959/*decl*/
30960
30961 int n = 0;
30962 int nrhs = 0;
30963 double *dl = NULL((void*)0);
30964 npy_intp dl_Dims[1] = {-1};
30965 const int dl_Rank = 1;
30966 PyArrayObject *capi_dl_tmp = NULL((void*)0);
30967 int capi_dl_intent = 0;
30968 int capi_overwrite_dl = 0;
30969 PyObject *dl_capi = Py_None(&_Py_NoneStruct);
30970 double *d = NULL((void*)0);
30971 npy_intp d_Dims[1] = {-1};
30972 const int d_Rank = 1;
30973 PyArrayObject *capi_d_tmp = NULL((void*)0);
30974 int capi_d_intent = 0;
30975 int capi_overwrite_d = 0;
30976 PyObject *d_capi = Py_None(&_Py_NoneStruct);
30977 double *du = NULL((void*)0);
30978 npy_intp du_Dims[1] = {-1};
30979 const int du_Rank = 1;
30980 PyArrayObject *capi_du_tmp = NULL((void*)0);
30981 int capi_du_intent = 0;
30982 int capi_overwrite_du = 0;
30983 PyObject *du_capi = Py_None(&_Py_NoneStruct);
30984 double *b = NULL((void*)0);
30985 npy_intp b_Dims[2] = {-1, -1};
30986 const int b_Rank = 2;
30987 PyArrayObject *capi_b_tmp = NULL((void*)0);
30988 int capi_b_intent = 0;
30989 int capi_overwrite_b = 0;
30990 PyObject *b_capi = Py_None(&_Py_NoneStruct);
30991 int info = 0;
30992 static char *capi_kwlist[] = {"dl","d","du","b","overwrite_dl","overwrite_d","overwrite_du","overwrite_b",NULL((void*)0)};
30993
30994/*routdebugenter*/
30995#ifdef F2PY_REPORT_ATEXIT
30996f2py_start_clock();
30997#endif
30998 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
30999 "OOOO|iiii:_flapack.dgtsv",\
31000 capi_kwlist,&dl_capi,&d_capi,&du_capi,&b_capi,&capi_overwrite_dl,&capi_overwrite_d,&capi_overwrite_du,&capi_overwrite_b))
31001 return NULL((void*)0);
31002/*frompyobj*/
31003 /* Processing variable d */
31004 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
31005 ;
31006 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
31007 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
31008 if (capi_d_tmp == NULL((void*)0)) {
31009 if (!PyErr_Occurred())
31010 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.dgtsv to C/Fortran array" );
31011 } else {
31012 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
31013
31014 /* Processing variable info */
31015 /* Processing variable n */
31016 n = len(d)d_Dims[0];
31017 /* Processing variable dl */
31018 capi_dl_intent |= (capi_overwrite_dl?0:F2PY_INTENT_COPY32);
31019 dl_Dims[0]=n - 1;
31020 capi_dl_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
31021 capi_dl_tmp = array_from_pyobj(NPY_DOUBLE,dl_Dims,dl_Rank,capi_dl_intent,dl_capi);
31022 if (capi_dl_tmp == NULL((void*)0)) {
31023 if (!PyErr_Occurred())
31024 PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.dgtsv to C/Fortran array" );
31025 } else {
31026 dl = (double *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data));
31027
31028 /* Processing variable du */
31029 capi_du_intent |= (capi_overwrite_du?0:F2PY_INTENT_COPY32);
31030 du_Dims[0]=n - 1;
31031 capi_du_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
31032 capi_du_tmp = array_from_pyobj(NPY_DOUBLE,du_Dims,du_Rank,capi_du_intent,du_capi);
31033 if (capi_du_tmp == NULL((void*)0)) {
31034 if (!PyErr_Occurred())
31035 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.dgtsv to C/Fortran array" );
31036 } else {
31037 du = (double *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data));
31038
31039 /* Processing variable b */
31040 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
31041 b_Dims[0]=n;
31042 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
31043 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
31044 if (capi_b_tmp == NULL((void*)0)) {
31045 if (!PyErr_Occurred())
31046 PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.dgtsv to C/Fortran array" );
31047 } else {
31048 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
31049
31050 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","4th argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""4th argument b"); } else
{
31051 /* Processing variable nrhs */
31052 nrhs = shape(b, 1)b_Dims[1];
31053/*end of frompyobj*/
31054#ifdef F2PY_REPORT_ATEXIT
31055f2py_start_call_clock();
31056#endif
31057/*callfortranroutine*/
31058 (*f2py_func)(&n, &nrhs, dl, d, du, b, &n, &info); ;
31059 /*(*f2py_func)(&n,&nrhs,dl,d,du,b,&info);*/
31060if (PyErr_Occurred())
31061 f2py_success = 0;
31062#ifdef F2PY_REPORT_ATEXIT
31063f2py_stop_call_clock();
31064#endif
31065/*end of callfortranroutine*/
31066 if (f2py_success) {
31067/*pyobjfrom*/
31068/*end of pyobjfrom*/
31069 CFUNCSMESS("Building return value.\n");
31070 capi_buildvalue = Py_BuildValue("NNNNi",capi_dl_tmp,capi_d_tmp,capi_du_tmp,capi_b_tmp,info);
31071/*closepyobjfrom*/
31072/*end of closepyobjfrom*/
31073 } /*if (f2py_success) after callfortranroutine*/
31074/*cleanupfrompyobj*/
31075 /* End of cleaning variable nrhs */
31076 } /*CHECKARRAY(shape(b,0)==n)*/
31077 } /*if (capi_b_tmp == NULL) ... else of b*/
31078 /* End of cleaning variable b */
31079 } /*if (capi_du_tmp == NULL) ... else of du*/
31080 /* End of cleaning variable du */
31081 } /*if (capi_dl_tmp == NULL) ... else of dl*/
31082 /* End of cleaning variable dl */
31083 /* End of cleaning variable n */
31084 /* End of cleaning variable info */
31085 } /*if (capi_d_tmp == NULL) ... else of d*/
31086 /* End of cleaning variable d */
31087/*end of cleanupfrompyobj*/
31088 if (capi_buildvalue == NULL((void*)0)) {
31089/*routdebugfailure*/
31090 } else {
31091/*routdebugleave*/
31092 }
31093 CFUNCSMESS("Freeing memory.\n");
31094/*freemem*/
31095#ifdef F2PY_REPORT_ATEXIT
31096f2py_stop_clock();
31097#endif
31098 return capi_buildvalue;
31099}
31100/******************************** end of dgtsv ********************************/
31101
31102/*********************************** cgtsv ***********************************/
31103static char doc_f2py_rout__flapack_cgtsv[] = "\
31104du2,d,du,x,info = cgtsv(dl,d,du,b,[overwrite_dl,overwrite_d,overwrite_du,overwrite_b])\n\nWrapper for ``cgtsv``.\
31105\n\nParameters\n----------\n"
31106"dl : input rank-1 array('F') with bounds (n - 1)\n"
31107"d : input rank-1 array('F') with bounds (n)\n"
31108"du : input rank-1 array('F') with bounds (n - 1)\n"
31109"b : input rank-2 array('F') with bounds (n,nrhs)\n"
31110"\nOther Parameters\n----------------\n"
31111"overwrite_dl : input int, optional\n Default: 0\n"
31112"overwrite_d : input int, optional\n Default: 0\n"
31113"overwrite_du : input int, optional\n Default: 0\n"
31114"overwrite_b : input int, optional\n Default: 0\n"
31115"\nReturns\n-------\n"
31116"du2 : rank-1 array('F') with bounds (n - 1) and dl storage\n"
31117"d : rank-1 array('F') with bounds (n)\n"
31118"du : rank-1 array('F') with bounds (n - 1)\n"
31119"x : rank-2 array('F') with bounds (n,nrhs) and b storage\n"
31120"info : int";
31121/* extern void F_FUNC(cgtsv,CGTSV)(F_INT*, F_INT*, complex_float*, complex_float*, complex_float*, complex_float*, F_INT*, F_INT* ); */
31122static PyObject *f2py_rout__flapack_cgtsv(const PyObject *capi_self,
31123 PyObject *capi_args,
31124 PyObject *capi_keywds,
31125 void (*f2py_func)(F_INTint*, F_INTint*, complex_float*, complex_float*, complex_float*, complex_float*, F_INTint*, F_INTint* )) {
31126 PyObject * volatile capi_buildvalue = NULL((void*)0);
31127 volatile int f2py_success = 1;
31128/*decl*/
31129
31130 int n = 0;
31131 int nrhs = 0;
31132 complex_float *dl = NULL((void*)0);
31133 npy_intp dl_Dims[1] = {-1};
31134 const int dl_Rank = 1;
31135 PyArrayObject *capi_dl_tmp = NULL((void*)0);
31136 int capi_dl_intent = 0;
31137 int capi_overwrite_dl = 0;
31138 PyObject *dl_capi = Py_None(&_Py_NoneStruct);
31139 complex_float *d = NULL((void*)0);
31140 npy_intp d_Dims[1] = {-1};
31141 const int d_Rank = 1;
31142 PyArrayObject *capi_d_tmp = NULL((void*)0);
31143 int capi_d_intent = 0;
31144 int capi_overwrite_d = 0;
31145 PyObject *d_capi = Py_None(&_Py_NoneStruct);
31146 complex_float *du = NULL((void*)0);
31147 npy_intp du_Dims[1] = {-1};
31148 const int du_Rank = 1;
31149 PyArrayObject *capi_du_tmp = NULL((void*)0);
31150 int capi_du_intent = 0;
31151 int capi_overwrite_du = 0;
31152 PyObject *du_capi = Py_None(&_Py_NoneStruct);
31153 complex_float *b = NULL((void*)0);
31154 npy_intp b_Dims[2] = {-1, -1};
31155 const int b_Rank = 2;
31156 PyArrayObject *capi_b_tmp = NULL((void*)0);
31157 int capi_b_intent = 0;
31158 int capi_overwrite_b = 0;
31159 PyObject *b_capi = Py_None(&_Py_NoneStruct);
31160 int info = 0;
31161 static char *capi_kwlist[] = {"dl","d","du","b","overwrite_dl","overwrite_d","overwrite_du","overwrite_b",NULL((void*)0)};
31162
31163/*routdebugenter*/
31164#ifdef F2PY_REPORT_ATEXIT
31165f2py_start_clock();
31166#endif
31167 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
31168 "OOOO|iiii:_flapack.cgtsv",\
31169 capi_kwlist,&dl_capi,&d_capi,&du_capi,&b_capi,&capi_overwrite_dl,&capi_overwrite_d,&capi_overwrite_du,&capi_overwrite_b))
31170 return NULL((void*)0);
31171/*frompyobj*/
31172 /* Processing variable d */
31173 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
31174 ;
31175 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
31176 capi_d_tmp = array_from_pyobj(NPY_CFLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
31177 if (capi_d_tmp == NULL((void*)0)) {
31178 if (!PyErr_Occurred())
31179 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.cgtsv to C/Fortran array" );
31180 } else {
31181 d = (complex_float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
31182
31183 /* Processing variable info */
31184 /* Processing variable n */
31185 n = len(d)d_Dims[0];
31186 /* Processing variable dl */
31187 capi_dl_intent |= (capi_overwrite_dl?0:F2PY_INTENT_COPY32);
31188 dl_Dims[0]=n - 1;
31189 capi_dl_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
31190 capi_dl_tmp = array_from_pyobj(NPY_CFLOAT,dl_Dims,dl_Rank,capi_dl_intent,dl_capi);
31191 if (capi_dl_tmp == NULL((void*)0)) {
31192 if (!PyErr_Occurred())
31193 PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.cgtsv to C/Fortran array" );
31194 } else {
31195 dl = (complex_float *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data));
31196
31197 /* Processing variable du */
31198 capi_du_intent |= (capi_overwrite_du?0:F2PY_INTENT_COPY32);
31199 du_Dims[0]=n - 1;
31200 capi_du_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
31201 capi_du_tmp = array_from_pyobj(NPY_CFLOAT,du_Dims,du_Rank,capi_du_intent,du_capi);
31202 if (capi_du_tmp == NULL((void*)0)) {
31203 if (!PyErr_Occurred())
31204 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.cgtsv to C/Fortran array" );
31205 } else {
31206 du = (complex_float *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data));
31207
31208 /* Processing variable b */
31209 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
31210 b_Dims[0]=n;
31211 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
31212 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
31213 if (capi_b_tmp == NULL((void*)0)) {
31214 if (!PyErr_Occurred())
31215 PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.cgtsv to C/Fortran array" );
31216 } else {
31217 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
31218
31219 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","4th argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""4th argument b"); } else
{
31220 /* Processing variable nrhs */
31221 nrhs = shape(b, 1)b_Dims[1];
31222/*end of frompyobj*/
31223#ifdef F2PY_REPORT_ATEXIT
31224f2py_start_call_clock();
31225#endif
31226/*callfortranroutine*/
31227 (*f2py_func)(&n, &nrhs, dl, d, du, b, &n, &info); ;
31228 /*(*f2py_func)(&n,&nrhs,dl,d,du,b,&info);*/
31229if (PyErr_Occurred())
31230 f2py_success = 0;
31231#ifdef F2PY_REPORT_ATEXIT
31232f2py_stop_call_clock();
31233#endif
31234/*end of callfortranroutine*/
31235 if (f2py_success) {
31236/*pyobjfrom*/
31237/*end of pyobjfrom*/
31238 CFUNCSMESS("Building return value.\n");
31239 capi_buildvalue = Py_BuildValue("NNNNi",capi_dl_tmp,capi_d_tmp,capi_du_tmp,capi_b_tmp,info);
31240/*closepyobjfrom*/
31241/*end of closepyobjfrom*/
31242 } /*if (f2py_success) after callfortranroutine*/
31243/*cleanupfrompyobj*/
31244 /* End of cleaning variable nrhs */
31245 } /*CHECKARRAY(shape(b,0)==n)*/
31246 } /*if (capi_b_tmp == NULL) ... else of b*/
31247 /* End of cleaning variable b */
31248 } /*if (capi_du_tmp == NULL) ... else of du*/
31249 /* End of cleaning variable du */
31250 } /*if (capi_dl_tmp == NULL) ... else of dl*/
31251 /* End of cleaning variable dl */
31252 /* End of cleaning variable n */
31253 /* End of cleaning variable info */
31254 } /*if (capi_d_tmp == NULL) ... else of d*/
31255 /* End of cleaning variable d */
31256/*end of cleanupfrompyobj*/
31257 if (capi_buildvalue == NULL((void*)0)) {
31258/*routdebugfailure*/
31259 } else {
31260/*routdebugleave*/
31261 }
31262 CFUNCSMESS("Freeing memory.\n");
31263/*freemem*/
31264#ifdef F2PY_REPORT_ATEXIT
31265f2py_stop_clock();
31266#endif
31267 return capi_buildvalue;
31268}
31269/******************************** end of cgtsv ********************************/
31270
31271/*********************************** zgtsv ***********************************/
31272static char doc_f2py_rout__flapack_zgtsv[] = "\
31273du2,d,du,x,info = zgtsv(dl,d,du,b,[overwrite_dl,overwrite_d,overwrite_du,overwrite_b])\n\nWrapper for ``zgtsv``.\
31274\n\nParameters\n----------\n"
31275"dl : input rank-1 array('D') with bounds (n - 1)\n"
31276"d : input rank-1 array('D') with bounds (n)\n"
31277"du : input rank-1 array('D') with bounds (n - 1)\n"
31278"b : input rank-2 array('D') with bounds (n,nrhs)\n"
31279"\nOther Parameters\n----------------\n"
31280"overwrite_dl : input int, optional\n Default: 0\n"
31281"overwrite_d : input int, optional\n Default: 0\n"
31282"overwrite_du : input int, optional\n Default: 0\n"
31283"overwrite_b : input int, optional\n Default: 0\n"
31284"\nReturns\n-------\n"
31285"du2 : rank-1 array('D') with bounds (n - 1) and dl storage\n"
31286"d : rank-1 array('D') with bounds (n)\n"
31287"du : rank-1 array('D') with bounds (n - 1)\n"
31288"x : rank-2 array('D') with bounds (n,nrhs) and b storage\n"
31289"info : int";
31290/* extern void F_FUNC(zgtsv,ZGTSV)(F_INT*, F_INT*, complex_double*, complex_double*, complex_double*, complex_double*, F_INT*, F_INT* ); */
31291static PyObject *f2py_rout__flapack_zgtsv(const PyObject *capi_self,
31292 PyObject *capi_args,
31293 PyObject *capi_keywds,
31294 void (*f2py_func)(F_INTint*, F_INTint*, complex_double*, complex_double*, complex_double*, complex_double*, F_INTint*, F_INTint* )) {
31295 PyObject * volatile capi_buildvalue = NULL((void*)0);
31296 volatile int f2py_success = 1;
31297/*decl*/
31298
31299 int n = 0;
31300 int nrhs = 0;
31301 complex_double *dl = NULL((void*)0);
31302 npy_intp dl_Dims[1] = {-1};
31303 const int dl_Rank = 1;
31304 PyArrayObject *capi_dl_tmp = NULL((void*)0);
31305 int capi_dl_intent = 0;
31306 int capi_overwrite_dl = 0;
31307 PyObject *dl_capi = Py_None(&_Py_NoneStruct);
31308 complex_double *d = NULL((void*)0);
31309 npy_intp d_Dims[1] = {-1};
31310 const int d_Rank = 1;
31311 PyArrayObject *capi_d_tmp = NULL((void*)0);
31312 int capi_d_intent = 0;
31313 int capi_overwrite_d = 0;
31314 PyObject *d_capi = Py_None(&_Py_NoneStruct);
31315 complex_double *du = NULL((void*)0);
31316 npy_intp du_Dims[1] = {-1};
31317 const int du_Rank = 1;
31318 PyArrayObject *capi_du_tmp = NULL((void*)0);
31319 int capi_du_intent = 0;
31320 int capi_overwrite_du = 0;
31321 PyObject *du_capi = Py_None(&_Py_NoneStruct);
31322 complex_double *b = NULL((void*)0);
31323 npy_intp b_Dims[2] = {-1, -1};
31324 const int b_Rank = 2;
31325 PyArrayObject *capi_b_tmp = NULL((void*)0);
31326 int capi_b_intent = 0;
31327 int capi_overwrite_b = 0;
31328 PyObject *b_capi = Py_None(&_Py_NoneStruct);
31329 int info = 0;
31330 static char *capi_kwlist[] = {"dl","d","du","b","overwrite_dl","overwrite_d","overwrite_du","overwrite_b",NULL((void*)0)};
31331
31332/*routdebugenter*/
31333#ifdef F2PY_REPORT_ATEXIT
31334f2py_start_clock();
31335#endif
31336 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
31337 "OOOO|iiii:_flapack.zgtsv",\
31338 capi_kwlist,&dl_capi,&d_capi,&du_capi,&b_capi,&capi_overwrite_dl,&capi_overwrite_d,&capi_overwrite_du,&capi_overwrite_b))
31339 return NULL((void*)0);
31340/*frompyobj*/
31341 /* Processing variable d */
31342 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
31343 ;
31344 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
31345 capi_d_tmp = array_from_pyobj(NPY_CDOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
31346 if (capi_d_tmp == NULL((void*)0)) {
31347 if (!PyErr_Occurred())
31348 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.zgtsv to C/Fortran array" );
31349 } else {
31350 d = (complex_double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
31351
31352 /* Processing variable info */
31353 /* Processing variable n */
31354 n = len(d)d_Dims[0];
31355 /* Processing variable dl */
31356 capi_dl_intent |= (capi_overwrite_dl?0:F2PY_INTENT_COPY32);
31357 dl_Dims[0]=n - 1;
31358 capi_dl_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
31359 capi_dl_tmp = array_from_pyobj(NPY_CDOUBLE,dl_Dims,dl_Rank,capi_dl_intent,dl_capi);
31360 if (capi_dl_tmp == NULL((void*)0)) {
31361 if (!PyErr_Occurred())
31362 PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.zgtsv to C/Fortran array" );
31363 } else {
31364 dl = (complex_double *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data));
31365
31366 /* Processing variable du */
31367 capi_du_intent |= (capi_overwrite_du?0:F2PY_INTENT_COPY32);
31368 du_Dims[0]=n - 1;
31369 capi_du_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
31370 capi_du_tmp = array_from_pyobj(NPY_CDOUBLE,du_Dims,du_Rank,capi_du_intent,du_capi);
31371 if (capi_du_tmp == NULL((void*)0)) {
31372 if (!PyErr_Occurred())
31373 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.zgtsv to C/Fortran array" );
31374 } else {
31375 du = (complex_double *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data));
31376
31377 /* Processing variable b */
31378 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
31379 b_Dims[0]=n;
31380 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
31381 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
31382 if (capi_b_tmp == NULL((void*)0)) {
31383 if (!PyErr_Occurred())
31384 PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.zgtsv to C/Fortran array" );
31385 } else {
31386 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
31387
31388 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","4th argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""4th argument b"); } else
{
31389 /* Processing variable nrhs */
31390 nrhs = shape(b, 1)b_Dims[1];
31391/*end of frompyobj*/
31392#ifdef F2PY_REPORT_ATEXIT
31393f2py_start_call_clock();
31394#endif
31395/*callfortranroutine*/
31396 (*f2py_func)(&n, &nrhs, dl, d, du, b, &n, &info); ;
31397 /*(*f2py_func)(&n,&nrhs,dl,d,du,b,&info);*/
31398if (PyErr_Occurred())
31399 f2py_success = 0;
31400#ifdef F2PY_REPORT_ATEXIT
31401f2py_stop_call_clock();
31402#endif
31403/*end of callfortranroutine*/
31404 if (f2py_success) {
31405/*pyobjfrom*/
31406/*end of pyobjfrom*/
31407 CFUNCSMESS("Building return value.\n");
31408 capi_buildvalue = Py_BuildValue("NNNNi",capi_dl_tmp,capi_d_tmp,capi_du_tmp,capi_b_tmp,info);
31409/*closepyobjfrom*/
31410/*end of closepyobjfrom*/
31411 } /*if (f2py_success) after callfortranroutine*/
31412/*cleanupfrompyobj*/
31413 /* End of cleaning variable nrhs */
31414 } /*CHECKARRAY(shape(b,0)==n)*/
31415 } /*if (capi_b_tmp == NULL) ... else of b*/
31416 /* End of cleaning variable b */
31417 } /*if (capi_du_tmp == NULL) ... else of du*/
31418 /* End of cleaning variable du */
31419 } /*if (capi_dl_tmp == NULL) ... else of dl*/
31420 /* End of cleaning variable dl */
31421 /* End of cleaning variable n */
31422 /* End of cleaning variable info */
31423 } /*if (capi_d_tmp == NULL) ... else of d*/
31424 /* End of cleaning variable d */
31425/*end of cleanupfrompyobj*/
31426 if (capi_buildvalue == NULL((void*)0)) {
31427/*routdebugfailure*/
31428 } else {
31429/*routdebugleave*/
31430 }
31431 CFUNCSMESS("Freeing memory.\n");
31432/*freemem*/
31433#ifdef F2PY_REPORT_ATEXIT
31434f2py_stop_clock();
31435#endif
31436 return capi_buildvalue;
31437}
31438/******************************** end of zgtsv ********************************/
31439
31440/*********************************** sgttrf ***********************************/
31441static char doc_f2py_rout__flapack_sgttrf[] = "\
31442dl,d,du,du2,ipiv,info = sgttrf(dl,d,du,[overwrite_dl,overwrite_d,overwrite_du])\n\nWrapper for ``sgttrf``.\
31443\n\nParameters\n----------\n"
31444"dl : input rank-1 array('f') with bounds (n - 1)\n"
31445"d : input rank-1 array('f') with bounds (n)\n"
31446"du : input rank-1 array('f') with bounds (n - 1)\n"
31447"\nOther Parameters\n----------------\n"
31448"overwrite_dl : input int, optional\n Default: 0\n"
31449"overwrite_d : input int, optional\n Default: 0\n"
31450"overwrite_du : input int, optional\n Default: 0\n"
31451"\nReturns\n-------\n"
31452"dl : rank-1 array('f') with bounds (n - 1)\n"
31453"d : rank-1 array('f') with bounds (n)\n"
31454"du : rank-1 array('f') with bounds (n - 1)\n"
31455"du2 : rank-1 array('f') with bounds (n - 2)\n"
31456"ipiv : rank-1 array('i') with bounds (n)\n"
31457"info : int";
31458/* extern void F_FUNC(sgttrf,SGTTRF)(F_INT*, float*, float*, float*, float*, F_INT*, F_INT* ); */
31459static PyObject *f2py_rout__flapack_sgttrf(const PyObject *capi_self,
31460 PyObject *capi_args,
31461 PyObject *capi_keywds,
31462 void (*f2py_func)(F_INTint*, float*, float*, float*, float*, F_INTint*, F_INTint* )) {
31463 PyObject * volatile capi_buildvalue = NULL((void*)0);
31464 volatile int f2py_success = 1;
31465/*decl*/
31466
31467 int n = 0;
31468 float *dl = NULL((void*)0);
31469 npy_intp dl_Dims[1] = {-1};
31470 const int dl_Rank = 1;
31471 PyArrayObject *capi_dl_tmp = NULL((void*)0);
31472 int capi_dl_intent = 0;
31473 int capi_overwrite_dl = 0;
31474 PyObject *dl_capi = Py_None(&_Py_NoneStruct);
31475 float *d = NULL((void*)0);
31476 npy_intp d_Dims[1] = {-1};
31477 const int d_Rank = 1;
31478 PyArrayObject *capi_d_tmp = NULL((void*)0);
31479 int capi_d_intent = 0;
31480 int capi_overwrite_d = 0;
31481 PyObject *d_capi = Py_None(&_Py_NoneStruct);
31482 float *du = NULL((void*)0);
31483 npy_intp du_Dims[1] = {-1};
31484 const int du_Rank = 1;
31485 PyArrayObject *capi_du_tmp = NULL((void*)0);
31486 int capi_du_intent = 0;
31487 int capi_overwrite_du = 0;
31488 PyObject *du_capi = Py_None(&_Py_NoneStruct);
31489 float *du2 = NULL((void*)0);
31490 npy_intp du2_Dims[1] = {-1};
31491 const int du2_Rank = 1;
31492 PyArrayObject *capi_du2_tmp = NULL((void*)0);
31493 int capi_du2_intent = 0;
31494 int *ipiv = NULL((void*)0);
31495 npy_intp ipiv_Dims[1] = {-1};
31496 const int ipiv_Rank = 1;
31497 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
31498 int capi_ipiv_intent = 0;
31499 int info = 0;
31500 static char *capi_kwlist[] = {"dl","d","du","overwrite_dl","overwrite_d","overwrite_du",NULL((void*)0)};
31501
31502/*routdebugenter*/
31503#ifdef F2PY_REPORT_ATEXIT
31504f2py_start_clock();
31505#endif
31506 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
31507 "OOO|iii:_flapack.sgttrf",\
31508 capi_kwlist,&dl_capi,&d_capi,&du_capi,&capi_overwrite_dl,&capi_overwrite_d,&capi_overwrite_du))
31509 return NULL((void*)0);
31510/*frompyobj*/
31511 /* Processing variable d */
31512 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
31513 ;
31514 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
31515 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
31516 if (capi_d_tmp == NULL((void*)0)) {
31517 if (!PyErr_Occurred())
31518 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.sgttrf to C/Fortran array" );
31519 } else {
31520 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
31521
31522 /* Processing variable info */
31523 /* Processing variable n */
31524 n = max(3, len(d))((3 > d_Dims[0]) ? (3) : (d_Dims[0]));
31525 /* Processing variable dl */
31526 capi_dl_intent |= (capi_overwrite_dl?0:F2PY_INTENT_COPY32);
31527 dl_Dims[0]=n - 1;
31528 capi_dl_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
31529 capi_dl_tmp = array_from_pyobj(NPY_FLOAT,dl_Dims,dl_Rank,capi_dl_intent,dl_capi);
31530 if (capi_dl_tmp == NULL((void*)0)) {
31531 if (!PyErr_Occurred())
31532 PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.sgttrf to C/Fortran array" );
31533 } else {
31534 dl = (float *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data));
31535
31536 /* Processing variable du */
31537 capi_du_intent |= (capi_overwrite_du?0:F2PY_INTENT_COPY32);
31538 du_Dims[0]=n - 1;
31539 capi_du_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
31540 capi_du_tmp = array_from_pyobj(NPY_FLOAT,du_Dims,du_Rank,capi_du_intent,du_capi);
31541 if (capi_du_tmp == NULL((void*)0)) {
31542 if (!PyErr_Occurred())
31543 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.sgttrf to C/Fortran array" );
31544 } else {
31545 du = (float *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data));
31546
31547 /* Processing variable du2 */
31548 du2_Dims[0]=n - 2;
31549 capi_du2_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
31550 capi_du2_tmp = array_from_pyobj(NPY_FLOAT,du2_Dims,du2_Rank,capi_du2_intent,Py_None(&_Py_NoneStruct));
31551 if (capi_du2_tmp == NULL((void*)0)) {
31552 if (!PyErr_Occurred())
31553 PyErr_SetString(_flapack_error,"failed in converting hidden `du2' of _flapack.sgttrf to C/Fortran array" );
31554 } else {
31555 du2 = (float *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data));
31556
31557 /* Processing variable ipiv */
31558 ipiv_Dims[0]=n;
31559 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
31560 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
31561 if (capi_ipiv_tmp == NULL((void*)0)) {
31562 if (!PyErr_Occurred())
31563 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.sgttrf to C/Fortran array" );
31564 } else {
31565 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
31566
31567/*end of frompyobj*/
31568#ifdef F2PY_REPORT_ATEXIT
31569f2py_start_call_clock();
31570#endif
31571/*callfortranroutine*/
31572 (*f2py_func)(&n, dl, d, du, du2, ipiv, &info) ;
31573 /*(*f2py_func)(&n,dl,d,du,du2,ipiv,&info);*/
31574if (PyErr_Occurred())
31575 f2py_success = 0;
31576#ifdef F2PY_REPORT_ATEXIT
31577f2py_stop_call_clock();
31578#endif
31579/*end of callfortranroutine*/
31580 if (f2py_success) {
31581/*pyobjfrom*/
31582/*end of pyobjfrom*/
31583 CFUNCSMESS("Building return value.\n");
31584 capi_buildvalue = Py_BuildValue("NNNNNi",capi_dl_tmp,capi_d_tmp,capi_du_tmp,capi_du2_tmp,capi_ipiv_tmp,info);
31585/*closepyobjfrom*/
31586/*end of closepyobjfrom*/
31587 } /*if (f2py_success) after callfortranroutine*/
31588/*cleanupfrompyobj*/
31589 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
31590 /* End of cleaning variable ipiv */
31591 } /*if (capi_du2_tmp == NULL) ... else of du2*/
31592 /* End of cleaning variable du2 */
31593 } /*if (capi_du_tmp == NULL) ... else of du*/
31594 /* End of cleaning variable du */
31595 } /*if (capi_dl_tmp == NULL) ... else of dl*/
31596 /* End of cleaning variable dl */
31597 /* End of cleaning variable n */
31598 /* End of cleaning variable info */
31599 } /*if (capi_d_tmp == NULL) ... else of d*/
31600 /* End of cleaning variable d */
31601/*end of cleanupfrompyobj*/
31602 if (capi_buildvalue == NULL((void*)0)) {
31603/*routdebugfailure*/
31604 } else {
31605/*routdebugleave*/
31606 }
31607 CFUNCSMESS("Freeing memory.\n");
31608/*freemem*/
31609#ifdef F2PY_REPORT_ATEXIT
31610f2py_stop_clock();
31611#endif
31612 return capi_buildvalue;
31613}
31614/******************************* end of sgttrf *******************************/
31615
31616/*********************************** dgttrf ***********************************/
31617static char doc_f2py_rout__flapack_dgttrf[] = "\
31618dl,d,du,du2,ipiv,info = dgttrf(dl,d,du,[overwrite_dl,overwrite_d,overwrite_du])\n\nWrapper for ``dgttrf``.\
31619\n\nParameters\n----------\n"
31620"dl : input rank-1 array('d') with bounds (n - 1)\n"
31621"d : input rank-1 array('d') with bounds (n)\n"
31622"du : input rank-1 array('d') with bounds (n - 1)\n"
31623"\nOther Parameters\n----------------\n"
31624"overwrite_dl : input int, optional\n Default: 0\n"
31625"overwrite_d : input int, optional\n Default: 0\n"
31626"overwrite_du : input int, optional\n Default: 0\n"
31627"\nReturns\n-------\n"
31628"dl : rank-1 array('d') with bounds (n - 1)\n"
31629"d : rank-1 array('d') with bounds (n)\n"
31630"du : rank-1 array('d') with bounds (n - 1)\n"
31631"du2 : rank-1 array('d') with bounds (n - 2)\n"
31632"ipiv : rank-1 array('i') with bounds (n)\n"
31633"info : int";
31634/* extern void F_FUNC(dgttrf,DGTTRF)(F_INT*, double*, double*, double*, double*, F_INT*, F_INT* ); */
31635static PyObject *f2py_rout__flapack_dgttrf(const PyObject *capi_self,
31636 PyObject *capi_args,
31637 PyObject *capi_keywds,
31638 void (*f2py_func)(F_INTint*, double*, double*, double*, double*, F_INTint*, F_INTint* )) {
31639 PyObject * volatile capi_buildvalue = NULL((void*)0);
31640 volatile int f2py_success = 1;
31641/*decl*/
31642
31643 int n = 0;
31644 double *dl = NULL((void*)0);
31645 npy_intp dl_Dims[1] = {-1};
31646 const int dl_Rank = 1;
31647 PyArrayObject *capi_dl_tmp = NULL((void*)0);
31648 int capi_dl_intent = 0;
31649 int capi_overwrite_dl = 0;
31650 PyObject *dl_capi = Py_None(&_Py_NoneStruct);
31651 double *d = NULL((void*)0);
31652 npy_intp d_Dims[1] = {-1};
31653 const int d_Rank = 1;
31654 PyArrayObject *capi_d_tmp = NULL((void*)0);
31655 int capi_d_intent = 0;
31656 int capi_overwrite_d = 0;
31657 PyObject *d_capi = Py_None(&_Py_NoneStruct);
31658 double *du = NULL((void*)0);
31659 npy_intp du_Dims[1] = {-1};
31660 const int du_Rank = 1;
31661 PyArrayObject *capi_du_tmp = NULL((void*)0);
31662 int capi_du_intent = 0;
31663 int capi_overwrite_du = 0;
31664 PyObject *du_capi = Py_None(&_Py_NoneStruct);
31665 double *du2 = NULL((void*)0);
31666 npy_intp du2_Dims[1] = {-1};
31667 const int du2_Rank = 1;
31668 PyArrayObject *capi_du2_tmp = NULL((void*)0);
31669 int capi_du2_intent = 0;
31670 int *ipiv = NULL((void*)0);
31671 npy_intp ipiv_Dims[1] = {-1};
31672 const int ipiv_Rank = 1;
31673 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
31674 int capi_ipiv_intent = 0;
31675 int info = 0;
31676 static char *capi_kwlist[] = {"dl","d","du","overwrite_dl","overwrite_d","overwrite_du",NULL((void*)0)};
31677
31678/*routdebugenter*/
31679#ifdef F2PY_REPORT_ATEXIT
31680f2py_start_clock();
31681#endif
31682 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
31683 "OOO|iii:_flapack.dgttrf",\
31684 capi_kwlist,&dl_capi,&d_capi,&du_capi,&capi_overwrite_dl,&capi_overwrite_d,&capi_overwrite_du))
31685 return NULL((void*)0);
31686/*frompyobj*/
31687 /* Processing variable d */
31688 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
31689 ;
31690 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
31691 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
31692 if (capi_d_tmp == NULL((void*)0)) {
31693 if (!PyErr_Occurred())
31694 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.dgttrf to C/Fortran array" );
31695 } else {
31696 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
31697
31698 /* Processing variable info */
31699 /* Processing variable n */
31700 n = max(3, len(d))((3 > d_Dims[0]) ? (3) : (d_Dims[0]));
31701 /* Processing variable dl */
31702 capi_dl_intent |= (capi_overwrite_dl?0:F2PY_INTENT_COPY32);
31703 dl_Dims[0]=n - 1;
31704 capi_dl_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
31705 capi_dl_tmp = array_from_pyobj(NPY_DOUBLE,dl_Dims,dl_Rank,capi_dl_intent,dl_capi);
31706 if (capi_dl_tmp == NULL((void*)0)) {
31707 if (!PyErr_Occurred())
31708 PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.dgttrf to C/Fortran array" );
31709 } else {
31710 dl = (double *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data));
31711
31712 /* Processing variable du */
31713 capi_du_intent |= (capi_overwrite_du?0:F2PY_INTENT_COPY32);
31714 du_Dims[0]=n - 1;
31715 capi_du_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
31716 capi_du_tmp = array_from_pyobj(NPY_DOUBLE,du_Dims,du_Rank,capi_du_intent,du_capi);
31717 if (capi_du_tmp == NULL((void*)0)) {
31718 if (!PyErr_Occurred())
31719 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.dgttrf to C/Fortran array" );
31720 } else {
31721 du = (double *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data));
31722
31723 /* Processing variable du2 */
31724 du2_Dims[0]=n - 2;
31725 capi_du2_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
31726 capi_du2_tmp = array_from_pyobj(NPY_DOUBLE,du2_Dims,du2_Rank,capi_du2_intent,Py_None(&_Py_NoneStruct));
31727 if (capi_du2_tmp == NULL((void*)0)) {
31728 if (!PyErr_Occurred())
31729 PyErr_SetString(_flapack_error,"failed in converting hidden `du2' of _flapack.dgttrf to C/Fortran array" );
31730 } else {
31731 du2 = (double *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data));
31732
31733 /* Processing variable ipiv */
31734 ipiv_Dims[0]=n;
31735 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
31736 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
31737 if (capi_ipiv_tmp == NULL((void*)0)) {
31738 if (!PyErr_Occurred())
31739 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.dgttrf to C/Fortran array" );
31740 } else {
31741 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
31742
31743/*end of frompyobj*/
31744#ifdef F2PY_REPORT_ATEXIT
31745f2py_start_call_clock();
31746#endif
31747/*callfortranroutine*/
31748 (*f2py_func)(&n, dl, d, du, du2, ipiv, &info) ;
31749 /*(*f2py_func)(&n,dl,d,du,du2,ipiv,&info);*/
31750if (PyErr_Occurred())
31751 f2py_success = 0;
31752#ifdef F2PY_REPORT_ATEXIT
31753f2py_stop_call_clock();
31754#endif
31755/*end of callfortranroutine*/
31756 if (f2py_success) {
31757/*pyobjfrom*/
31758/*end of pyobjfrom*/
31759 CFUNCSMESS("Building return value.\n");
31760 capi_buildvalue = Py_BuildValue("NNNNNi",capi_dl_tmp,capi_d_tmp,capi_du_tmp,capi_du2_tmp,capi_ipiv_tmp,info);
31761/*closepyobjfrom*/
31762/*end of closepyobjfrom*/
31763 } /*if (f2py_success) after callfortranroutine*/
31764/*cleanupfrompyobj*/
31765 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
31766 /* End of cleaning variable ipiv */
31767 } /*if (capi_du2_tmp == NULL) ... else of du2*/
31768 /* End of cleaning variable du2 */
31769 } /*if (capi_du_tmp == NULL) ... else of du*/
31770 /* End of cleaning variable du */
31771 } /*if (capi_dl_tmp == NULL) ... else of dl*/
31772 /* End of cleaning variable dl */
31773 /* End of cleaning variable n */
31774 /* End of cleaning variable info */
31775 } /*if (capi_d_tmp == NULL) ... else of d*/
31776 /* End of cleaning variable d */
31777/*end of cleanupfrompyobj*/
31778 if (capi_buildvalue == NULL((void*)0)) {
31779/*routdebugfailure*/
31780 } else {
31781/*routdebugleave*/
31782 }
31783 CFUNCSMESS("Freeing memory.\n");
31784/*freemem*/
31785#ifdef F2PY_REPORT_ATEXIT
31786f2py_stop_clock();
31787#endif
31788 return capi_buildvalue;
31789}
31790/******************************* end of dgttrf *******************************/
31791
31792/*********************************** cgttrf ***********************************/
31793static char doc_f2py_rout__flapack_cgttrf[] = "\
31794dl,d,du,du2,ipiv,info = cgttrf(dl,d,du,[overwrite_dl,overwrite_d,overwrite_du])\n\nWrapper for ``cgttrf``.\
31795\n\nParameters\n----------\n"
31796"dl : input rank-1 array('F') with bounds (n - 1)\n"
31797"d : input rank-1 array('F') with bounds (n)\n"
31798"du : input rank-1 array('F') with bounds (n - 1)\n"
31799"\nOther Parameters\n----------------\n"
31800"overwrite_dl : input int, optional\n Default: 0\n"
31801"overwrite_d : input int, optional\n Default: 0\n"
31802"overwrite_du : input int, optional\n Default: 0\n"
31803"\nReturns\n-------\n"
31804"dl : rank-1 array('F') with bounds (n - 1)\n"
31805"d : rank-1 array('F') with bounds (n)\n"
31806"du : rank-1 array('F') with bounds (n - 1)\n"
31807"du2 : rank-1 array('F') with bounds (n - 2)\n"
31808"ipiv : rank-1 array('i') with bounds (n)\n"
31809"info : int";
31810/* extern void F_FUNC(cgttrf,CGTTRF)(F_INT*, complex_float*, complex_float*, complex_float*, complex_float*, F_INT*, F_INT* ); */
31811static PyObject *f2py_rout__flapack_cgttrf(const PyObject *capi_self,
31812 PyObject *capi_args,
31813 PyObject *capi_keywds,
31814 void (*f2py_func)(F_INTint*, complex_float*, complex_float*, complex_float*, complex_float*, F_INTint*, F_INTint* )) {
31815 PyObject * volatile capi_buildvalue = NULL((void*)0);
31816 volatile int f2py_success = 1;
31817/*decl*/
31818
31819 int n = 0;
31820 complex_float *dl = NULL((void*)0);
31821 npy_intp dl_Dims[1] = {-1};
31822 const int dl_Rank = 1;
31823 PyArrayObject *capi_dl_tmp = NULL((void*)0);
31824 int capi_dl_intent = 0;
31825 int capi_overwrite_dl = 0;
31826 PyObject *dl_capi = Py_None(&_Py_NoneStruct);
31827 complex_float *d = NULL((void*)0);
31828 npy_intp d_Dims[1] = {-1};
31829 const int d_Rank = 1;
31830 PyArrayObject *capi_d_tmp = NULL((void*)0);
31831 int capi_d_intent = 0;
31832 int capi_overwrite_d = 0;
31833 PyObject *d_capi = Py_None(&_Py_NoneStruct);
31834 complex_float *du = NULL((void*)0);
31835 npy_intp du_Dims[1] = {-1};
31836 const int du_Rank = 1;
31837 PyArrayObject *capi_du_tmp = NULL((void*)0);
31838 int capi_du_intent = 0;
31839 int capi_overwrite_du = 0;
31840 PyObject *du_capi = Py_None(&_Py_NoneStruct);
31841 complex_float *du2 = NULL((void*)0);
31842 npy_intp du2_Dims[1] = {-1};
31843 const int du2_Rank = 1;
31844 PyArrayObject *capi_du2_tmp = NULL((void*)0);
31845 int capi_du2_intent = 0;
31846 int *ipiv = NULL((void*)0);
31847 npy_intp ipiv_Dims[1] = {-1};
31848 const int ipiv_Rank = 1;
31849 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
31850 int capi_ipiv_intent = 0;
31851 int info = 0;
31852 static char *capi_kwlist[] = {"dl","d","du","overwrite_dl","overwrite_d","overwrite_du",NULL((void*)0)};
31853
31854/*routdebugenter*/
31855#ifdef F2PY_REPORT_ATEXIT
31856f2py_start_clock();
31857#endif
31858 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
31859 "OOO|iii:_flapack.cgttrf",\
31860 capi_kwlist,&dl_capi,&d_capi,&du_capi,&capi_overwrite_dl,&capi_overwrite_d,&capi_overwrite_du))
31861 return NULL((void*)0);
31862/*frompyobj*/
31863 /* Processing variable d */
31864 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
31865 ;
31866 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
31867 capi_d_tmp = array_from_pyobj(NPY_CFLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
31868 if (capi_d_tmp == NULL((void*)0)) {
31869 if (!PyErr_Occurred())
31870 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.cgttrf to C/Fortran array" );
31871 } else {
31872 d = (complex_float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
31873
31874 /* Processing variable info */
31875 /* Processing variable n */
31876 n = max(3, len(d))((3 > d_Dims[0]) ? (3) : (d_Dims[0]));
31877 /* Processing variable dl */
31878 capi_dl_intent |= (capi_overwrite_dl?0:F2PY_INTENT_COPY32);
31879 dl_Dims[0]=n - 1;
31880 capi_dl_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
31881 capi_dl_tmp = array_from_pyobj(NPY_CFLOAT,dl_Dims,dl_Rank,capi_dl_intent,dl_capi);
31882 if (capi_dl_tmp == NULL((void*)0)) {
31883 if (!PyErr_Occurred())
31884 PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.cgttrf to C/Fortran array" );
31885 } else {
31886 dl = (complex_float *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data));
31887
31888 /* Processing variable du */
31889 capi_du_intent |= (capi_overwrite_du?0:F2PY_INTENT_COPY32);
31890 du_Dims[0]=n - 1;
31891 capi_du_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
31892 capi_du_tmp = array_from_pyobj(NPY_CFLOAT,du_Dims,du_Rank,capi_du_intent,du_capi);
31893 if (capi_du_tmp == NULL((void*)0)) {
31894 if (!PyErr_Occurred())
31895 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.cgttrf to C/Fortran array" );
31896 } else {
31897 du = (complex_float *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data));
31898
31899 /* Processing variable du2 */
31900 du2_Dims[0]=n - 2;
31901 capi_du2_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
31902 capi_du2_tmp = array_from_pyobj(NPY_CFLOAT,du2_Dims,du2_Rank,capi_du2_intent,Py_None(&_Py_NoneStruct));
31903 if (capi_du2_tmp == NULL((void*)0)) {
31904 if (!PyErr_Occurred())
31905 PyErr_SetString(_flapack_error,"failed in converting hidden `du2' of _flapack.cgttrf to C/Fortran array" );
31906 } else {
31907 du2 = (complex_float *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data));
31908
31909 /* Processing variable ipiv */
31910 ipiv_Dims[0]=n;
31911 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
31912 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
31913 if (capi_ipiv_tmp == NULL((void*)0)) {
31914 if (!PyErr_Occurred())
31915 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.cgttrf to C/Fortran array" );
31916 } else {
31917 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
31918
31919/*end of frompyobj*/
31920#ifdef F2PY_REPORT_ATEXIT
31921f2py_start_call_clock();
31922#endif
31923/*callfortranroutine*/
31924 (*f2py_func)(&n, dl, d, du, du2, ipiv, &info) ;
31925 /*(*f2py_func)(&n,dl,d,du,du2,ipiv,&info);*/
31926if (PyErr_Occurred())
31927 f2py_success = 0;
31928#ifdef F2PY_REPORT_ATEXIT
31929f2py_stop_call_clock();
31930#endif
31931/*end of callfortranroutine*/
31932 if (f2py_success) {
31933/*pyobjfrom*/
31934/*end of pyobjfrom*/
31935 CFUNCSMESS("Building return value.\n");
31936 capi_buildvalue = Py_BuildValue("NNNNNi",capi_dl_tmp,capi_d_tmp,capi_du_tmp,capi_du2_tmp,capi_ipiv_tmp,info);
31937/*closepyobjfrom*/
31938/*end of closepyobjfrom*/
31939 } /*if (f2py_success) after callfortranroutine*/
31940/*cleanupfrompyobj*/
31941 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
31942 /* End of cleaning variable ipiv */
31943 } /*if (capi_du2_tmp == NULL) ... else of du2*/
31944 /* End of cleaning variable du2 */
31945 } /*if (capi_du_tmp == NULL) ... else of du*/
31946 /* End of cleaning variable du */
31947 } /*if (capi_dl_tmp == NULL) ... else of dl*/
31948 /* End of cleaning variable dl */
31949 /* End of cleaning variable n */
31950 /* End of cleaning variable info */
31951 } /*if (capi_d_tmp == NULL) ... else of d*/
31952 /* End of cleaning variable d */
31953/*end of cleanupfrompyobj*/
31954 if (capi_buildvalue == NULL((void*)0)) {
31955/*routdebugfailure*/
31956 } else {
31957/*routdebugleave*/
31958 }
31959 CFUNCSMESS("Freeing memory.\n");
31960/*freemem*/
31961#ifdef F2PY_REPORT_ATEXIT
31962f2py_stop_clock();
31963#endif
31964 return capi_buildvalue;
31965}
31966/******************************* end of cgttrf *******************************/
31967
31968/*********************************** zgttrf ***********************************/
31969static char doc_f2py_rout__flapack_zgttrf[] = "\
31970dl,d,du,du2,ipiv,info = zgttrf(dl,d,du,[overwrite_dl,overwrite_d,overwrite_du])\n\nWrapper for ``zgttrf``.\
31971\n\nParameters\n----------\n"
31972"dl : input rank-1 array('D') with bounds (n - 1)\n"
31973"d : input rank-1 array('D') with bounds (n)\n"
31974"du : input rank-1 array('D') with bounds (n - 1)\n"
31975"\nOther Parameters\n----------------\n"
31976"overwrite_dl : input int, optional\n Default: 0\n"
31977"overwrite_d : input int, optional\n Default: 0\n"
31978"overwrite_du : input int, optional\n Default: 0\n"
31979"\nReturns\n-------\n"
31980"dl : rank-1 array('D') with bounds (n - 1)\n"
31981"d : rank-1 array('D') with bounds (n)\n"
31982"du : rank-1 array('D') with bounds (n - 1)\n"
31983"du2 : rank-1 array('D') with bounds (n - 2)\n"
31984"ipiv : rank-1 array('i') with bounds (n)\n"
31985"info : int";
31986/* extern void F_FUNC(zgttrf,ZGTTRF)(F_INT*, complex_double*, complex_double*, complex_double*, complex_double*, F_INT*, F_INT* ); */
31987static PyObject *f2py_rout__flapack_zgttrf(const PyObject *capi_self,
31988 PyObject *capi_args,
31989 PyObject *capi_keywds,
31990 void (*f2py_func)(F_INTint*, complex_double*, complex_double*, complex_double*, complex_double*, F_INTint*, F_INTint* )) {
31991 PyObject * volatile capi_buildvalue = NULL((void*)0);
31992 volatile int f2py_success = 1;
31993/*decl*/
31994
31995 int n = 0;
31996 complex_double *dl = NULL((void*)0);
31997 npy_intp dl_Dims[1] = {-1};
31998 const int dl_Rank = 1;
31999 PyArrayObject *capi_dl_tmp = NULL((void*)0);
32000 int capi_dl_intent = 0;
32001 int capi_overwrite_dl = 0;
32002 PyObject *dl_capi = Py_None(&_Py_NoneStruct);
32003 complex_double *d = NULL((void*)0);
32004 npy_intp d_Dims[1] = {-1};
32005 const int d_Rank = 1;
32006 PyArrayObject *capi_d_tmp = NULL((void*)0);
32007 int capi_d_intent = 0;
32008 int capi_overwrite_d = 0;
32009 PyObject *d_capi = Py_None(&_Py_NoneStruct);
32010 complex_double *du = NULL((void*)0);
32011 npy_intp du_Dims[1] = {-1};
32012 const int du_Rank = 1;
32013 PyArrayObject *capi_du_tmp = NULL((void*)0);
32014 int capi_du_intent = 0;
32015 int capi_overwrite_du = 0;
32016 PyObject *du_capi = Py_None(&_Py_NoneStruct);
32017 complex_double *du2 = NULL((void*)0);
32018 npy_intp du2_Dims[1] = {-1};
32019 const int du2_Rank = 1;
32020 PyArrayObject *capi_du2_tmp = NULL((void*)0);
32021 int capi_du2_intent = 0;
32022 int *ipiv = NULL((void*)0);
32023 npy_intp ipiv_Dims[1] = {-1};
32024 const int ipiv_Rank = 1;
32025 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
32026 int capi_ipiv_intent = 0;
32027 int info = 0;
32028 static char *capi_kwlist[] = {"dl","d","du","overwrite_dl","overwrite_d","overwrite_du",NULL((void*)0)};
32029
32030/*routdebugenter*/
32031#ifdef F2PY_REPORT_ATEXIT
32032f2py_start_clock();
32033#endif
32034 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
32035 "OOO|iii:_flapack.zgttrf",\
32036 capi_kwlist,&dl_capi,&d_capi,&du_capi,&capi_overwrite_dl,&capi_overwrite_d,&capi_overwrite_du))
32037 return NULL((void*)0);
32038/*frompyobj*/
32039 /* Processing variable d */
32040 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
32041 ;
32042 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
32043 capi_d_tmp = array_from_pyobj(NPY_CDOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
32044 if (capi_d_tmp == NULL((void*)0)) {
32045 if (!PyErr_Occurred())
32046 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.zgttrf to C/Fortran array" );
32047 } else {
32048 d = (complex_double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
32049
32050 /* Processing variable info */
32051 /* Processing variable n */
32052 n = max(3, len(d))((3 > d_Dims[0]) ? (3) : (d_Dims[0]));
32053 /* Processing variable dl */
32054 capi_dl_intent |= (capi_overwrite_dl?0:F2PY_INTENT_COPY32);
32055 dl_Dims[0]=n - 1;
32056 capi_dl_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
32057 capi_dl_tmp = array_from_pyobj(NPY_CDOUBLE,dl_Dims,dl_Rank,capi_dl_intent,dl_capi);
32058 if (capi_dl_tmp == NULL((void*)0)) {
32059 if (!PyErr_Occurred())
32060 PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.zgttrf to C/Fortran array" );
32061 } else {
32062 dl = (complex_double *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data));
32063
32064 /* Processing variable du */
32065 capi_du_intent |= (capi_overwrite_du?0:F2PY_INTENT_COPY32);
32066 du_Dims[0]=n - 1;
32067 capi_du_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
32068 capi_du_tmp = array_from_pyobj(NPY_CDOUBLE,du_Dims,du_Rank,capi_du_intent,du_capi);
32069 if (capi_du_tmp == NULL((void*)0)) {
32070 if (!PyErr_Occurred())
32071 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.zgttrf to C/Fortran array" );
32072 } else {
32073 du = (complex_double *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data));
32074
32075 /* Processing variable du2 */
32076 du2_Dims[0]=n - 2;
32077 capi_du2_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
32078 capi_du2_tmp = array_from_pyobj(NPY_CDOUBLE,du2_Dims,du2_Rank,capi_du2_intent,Py_None(&_Py_NoneStruct));
32079 if (capi_du2_tmp == NULL((void*)0)) {
32080 if (!PyErr_Occurred())
32081 PyErr_SetString(_flapack_error,"failed in converting hidden `du2' of _flapack.zgttrf to C/Fortran array" );
32082 } else {
32083 du2 = (complex_double *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data));
32084
32085 /* Processing variable ipiv */
32086 ipiv_Dims[0]=n;
32087 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
32088 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
32089 if (capi_ipiv_tmp == NULL((void*)0)) {
32090 if (!PyErr_Occurred())
32091 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.zgttrf to C/Fortran array" );
32092 } else {
32093 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
32094
32095/*end of frompyobj*/
32096#ifdef F2PY_REPORT_ATEXIT
32097f2py_start_call_clock();
32098#endif
32099/*callfortranroutine*/
32100 (*f2py_func)(&n, dl, d, du, du2, ipiv, &info) ;
32101 /*(*f2py_func)(&n,dl,d,du,du2,ipiv,&info);*/
32102if (PyErr_Occurred())
32103 f2py_success = 0;
32104#ifdef F2PY_REPORT_ATEXIT
32105f2py_stop_call_clock();
32106#endif
32107/*end of callfortranroutine*/
32108 if (f2py_success) {
32109/*pyobjfrom*/
32110/*end of pyobjfrom*/
32111 CFUNCSMESS("Building return value.\n");
32112 capi_buildvalue = Py_BuildValue("NNNNNi",capi_dl_tmp,capi_d_tmp,capi_du_tmp,capi_du2_tmp,capi_ipiv_tmp,info);
32113/*closepyobjfrom*/
32114/*end of closepyobjfrom*/
32115 } /*if (f2py_success) after callfortranroutine*/
32116/*cleanupfrompyobj*/
32117 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
32118 /* End of cleaning variable ipiv */
32119 } /*if (capi_du2_tmp == NULL) ... else of du2*/
32120 /* End of cleaning variable du2 */
32121 } /*if (capi_du_tmp == NULL) ... else of du*/
32122 /* End of cleaning variable du */
32123 } /*if (capi_dl_tmp == NULL) ... else of dl*/
32124 /* End of cleaning variable dl */
32125 /* End of cleaning variable n */
32126 /* End of cleaning variable info */
32127 } /*if (capi_d_tmp == NULL) ... else of d*/
32128 /* End of cleaning variable d */
32129/*end of cleanupfrompyobj*/
32130 if (capi_buildvalue == NULL((void*)0)) {
32131/*routdebugfailure*/
32132 } else {
32133/*routdebugleave*/
32134 }
32135 CFUNCSMESS("Freeing memory.\n");
32136/*freemem*/
32137#ifdef F2PY_REPORT_ATEXIT
32138f2py_stop_clock();
32139#endif
32140 return capi_buildvalue;
32141}
32142/******************************* end of zgttrf *******************************/
32143
32144/*********************************** sgttrs ***********************************/
32145static char doc_f2py_rout__flapack_sgttrs[] = "\
32146x,info = sgttrs(dl,d,du,du2,ipiv,b,[trans,overwrite_b])\n\nWrapper for ``sgttrs``.\
32147\n\nParameters\n----------\n"
32148"dl : input rank-1 array('f') with bounds (n - 1)\n"
32149"d : input rank-1 array('f') with bounds (n)\n"
32150"du : input rank-1 array('f') with bounds (n - 1)\n"
32151"du2 : input rank-1 array('f') with bounds (n - 2)\n"
32152"ipiv : input rank-1 array('i') with bounds (n)\n"
32153"b : input rank-2 array('f') with bounds (ldb,nrhs)\n"
32154"\nOther Parameters\n----------------\n"
32155"trans : input string(len=1), optional\n Default: 'N'\n"
32156"overwrite_b : input int, optional\n Default: 0\n"
32157"\nReturns\n-------\n"
32158"x : rank-2 array('f') with bounds (ldb,nrhs) and b storage\n"
32159"info : int";
32160/* extern void F_FUNC(sgttrs,SGTTRS)(char*, F_INT*, F_INT*, float*, float*, float*, float*, F_INT*, float*, F_INT*, F_INT* ); */
32161static PyObject *f2py_rout__flapack_sgttrs(const PyObject *capi_self,
32162 PyObject *capi_args,
32163 PyObject *capi_keywds,
32164 void (*f2py_func)(char*, F_INTint*, F_INTint*, float*, float*, float*, float*, F_INTint*, float*, F_INTint*, F_INTint* )) {
32165 PyObject * volatile capi_buildvalue = NULL((void*)0);
32166 volatile int f2py_success = 1;
32167/*decl*/
32168
32169 string trans = NULL((void*)0);
32170 int slen(trans)capi_trans_len;
32171 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
32172 int n = 0;
32173 int nrhs = 0;
32174 float *dl = NULL((void*)0);
32175 npy_intp dl_Dims[1] = {-1};
32176 const int dl_Rank = 1;
32177 PyArrayObject *capi_dl_tmp = NULL((void*)0);
32178 int capi_dl_intent = 0;
32179 PyObject *dl_capi = Py_None(&_Py_NoneStruct);
32180 float *d = NULL((void*)0);
32181 npy_intp d_Dims[1] = {-1};
32182 const int d_Rank = 1;
32183 PyArrayObject *capi_d_tmp = NULL((void*)0);
32184 int capi_d_intent = 0;
32185 PyObject *d_capi = Py_None(&_Py_NoneStruct);
32186 float *du = NULL((void*)0);
32187 npy_intp du_Dims[1] = {-1};
32188 const int du_Rank = 1;
32189 PyArrayObject *capi_du_tmp = NULL((void*)0);
32190 int capi_du_intent = 0;
32191 PyObject *du_capi = Py_None(&_Py_NoneStruct);
32192 float *du2 = NULL((void*)0);
32193 npy_intp du2_Dims[1] = {-1};
32194 const int du2_Rank = 1;
32195 PyArrayObject *capi_du2_tmp = NULL((void*)0);
32196 int capi_du2_intent = 0;
32197 PyObject *du2_capi = Py_None(&_Py_NoneStruct);
32198 int *ipiv = NULL((void*)0);
32199 npy_intp ipiv_Dims[1] = {-1};
32200 const int ipiv_Rank = 1;
32201 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
32202 int capi_ipiv_intent = 0;
32203 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
32204 float *b = NULL((void*)0);
32205 npy_intp b_Dims[2] = {-1, -1};
32206 const int b_Rank = 2;
32207 PyArrayObject *capi_b_tmp = NULL((void*)0);
32208 int capi_b_intent = 0;
32209 int capi_overwrite_b = 0;
32210 PyObject *b_capi = Py_None(&_Py_NoneStruct);
32211 int ldb = 0;
32212 int info = 0;
32213 static char *capi_kwlist[] = {"dl","d","du","du2","ipiv","b","trans","overwrite_b",NULL((void*)0)};
32214
32215/*routdebugenter*/
32216#ifdef F2PY_REPORT_ATEXIT
32217f2py_start_clock();
32218#endif
32219 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
32220 "OOOOOO|Oi:_flapack.sgttrs",\
32221 capi_kwlist,&dl_capi,&d_capi,&du_capi,&du2_capi,&ipiv_capi,&b_capi,&trans_capi,&capi_overwrite_b))
32222 return NULL((void*)0);
32223/*frompyobj*/
32224 /* Processing variable d */
32225 ;
32226 capi_d_intent |= F2PY_INTENT_IN1;
32227 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
32228 if (capi_d_tmp == NULL((void*)0)) {
32229 if (!PyErr_Occurred())
32230 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.sgttrs to C/Fortran array" );
32231 } else {
32232 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
32233
32234 /* Processing variable info */
32235 /* Processing variable n */
32236 n = max(3, len(d))((3 > d_Dims[0]) ? (3) : (d_Dims[0]));
32237 /* Processing variable ldb */
32238 ldb = max(1, n)((1 > n) ? (1) : (n));
32239 /* Processing variable dl */
32240 dl_Dims[0]=n - 1;
32241 capi_dl_intent |= F2PY_INTENT_IN1;
32242 capi_dl_tmp = array_from_pyobj(NPY_FLOAT,dl_Dims,dl_Rank,capi_dl_intent,dl_capi);
32243 if (capi_dl_tmp == NULL((void*)0)) {
32244 if (!PyErr_Occurred())
32245 PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.sgttrs to C/Fortran array" );
32246 } else {
32247 dl = (float *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data));
32248
32249 /* Processing variable du */
32250 du_Dims[0]=n - 1;
32251 capi_du_intent |= F2PY_INTENT_IN1;
32252 capi_du_tmp = array_from_pyobj(NPY_FLOAT,du_Dims,du_Rank,capi_du_intent,du_capi);
32253 if (capi_du_tmp == NULL((void*)0)) {
32254 if (!PyErr_Occurred())
32255 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.sgttrs to C/Fortran array" );
32256 } else {
32257 du = (float *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data));
32258
32259 /* Processing variable du2 */
32260 du2_Dims[0]=n - 2;
32261 capi_du2_intent |= F2PY_INTENT_IN1;
32262 capi_du2_tmp = array_from_pyobj(NPY_FLOAT,du2_Dims,du2_Rank,capi_du2_intent,du2_capi);
32263 if (capi_du2_tmp == NULL((void*)0)) {
32264 if (!PyErr_Occurred())
32265 PyErr_SetString(_flapack_error,"failed in converting 4th argument `du2' of _flapack.sgttrs to C/Fortran array" );
32266 } else {
32267 du2 = (float *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data));
32268
32269 /* Processing variable ipiv */
32270 ipiv_Dims[0]=n;
32271 capi_ipiv_intent |= F2PY_INTENT_IN1;
32272 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
32273 if (capi_ipiv_tmp == NULL((void*)0)) {
32274 if (!PyErr_Occurred())
32275 PyErr_SetString(_flapack_error,"failed in converting 5th argument `ipiv' of _flapack.sgttrs to C/Fortran array" );
32276 } else {
32277 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
32278
32279 /* Processing variable b */
32280 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
32281 b_Dims[0]=ldb;
32282 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
32283 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
32284 if (capi_b_tmp == NULL((void*)0)) {
32285 if (!PyErr_Occurred())
32286 PyErr_SetString(_flapack_error,"failed in converting 6th argument `b' of _flapack.sgttrs to C/Fortran array" );
32287 } else {
32288 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
32289
32290 /* Processing variable trans */
32291 slen(trans)capi_trans_len = 1;
32292 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.sgttrs to C string");
32293 if (f2py_success) {
32294 CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C',"*trans=='N'||*trans=='T'||*trans=='C'","1st keyword trans","sgttrs:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T'||*trans=='C')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""sgttrs:slen(trans)=%d trans=\"%s\""
, "(""*trans=='N'||*trans=='T'||*trans=='C'"") failed for ""1st keyword trans"
, capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring
); } else
{
32295 /* Processing variable nrhs */
32296 nrhs = max(1, shape(b, 1))((1 > b_Dims[1]) ? (1) : (b_Dims[1]));
32297/*end of frompyobj*/
32298#ifdef F2PY_REPORT_ATEXIT
32299f2py_start_call_clock();
32300#endif
32301/*callfortranroutine*/
32302 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
32303 (*f2py_func)(trans, &n, &nrhs, dl, d, du, du2, ipiv, b, &ldb, &info) ;
32304 /*(*f2py_func)(trans,&n,&nrhs,dl,d,du,du2,ipiv,b,&ldb,&info,slen(trans));*/
32305 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
32306if (PyErr_Occurred())
32307 f2py_success = 0;
32308#ifdef F2PY_REPORT_ATEXIT
32309f2py_stop_call_clock();
32310#endif
32311/*end of callfortranroutine*/
32312 if (f2py_success) {
32313/*pyobjfrom*/
32314/*end of pyobjfrom*/
32315 CFUNCSMESS("Building return value.\n");
32316 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
32317/*closepyobjfrom*/
32318/*end of closepyobjfrom*/
32319 } /*if (f2py_success) after callfortranroutine*/
32320/*cleanupfrompyobj*/
32321 /* End of cleaning variable nrhs */
32322 } /*CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C')*/
32323 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
32324 } /*if (f2py_success) of trans*/
32325 /* End of cleaning variable trans */
32326 } /*if (capi_b_tmp == NULL) ... else of b*/
32327 /* End of cleaning variable b */
32328 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
32329 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
32330 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
32331 /* End of cleaning variable ipiv */
32332 if((PyObject *)capi_du2_tmp!=du2_capi) {
32333 Py_XDECREF(capi_du2_tmp)_Py_XDECREF(((PyObject*)(capi_du2_tmp))); }
32334 } /*if (capi_du2_tmp == NULL) ... else of du2*/
32335 /* End of cleaning variable du2 */
32336 if((PyObject *)capi_du_tmp!=du_capi) {
32337 Py_XDECREF(capi_du_tmp)_Py_XDECREF(((PyObject*)(capi_du_tmp))); }
32338 } /*if (capi_du_tmp == NULL) ... else of du*/
32339 /* End of cleaning variable du */
32340 if((PyObject *)capi_dl_tmp!=dl_capi) {
32341 Py_XDECREF(capi_dl_tmp)_Py_XDECREF(((PyObject*)(capi_dl_tmp))); }
32342 } /*if (capi_dl_tmp == NULL) ... else of dl*/
32343 /* End of cleaning variable dl */
32344 /* End of cleaning variable ldb */
32345 /* End of cleaning variable n */
32346 /* End of cleaning variable info */
32347 if((PyObject *)capi_d_tmp!=d_capi) {
32348 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
32349 } /*if (capi_d_tmp == NULL) ... else of d*/
32350 /* End of cleaning variable d */
32351/*end of cleanupfrompyobj*/
32352 if (capi_buildvalue == NULL((void*)0)) {
32353/*routdebugfailure*/
32354 } else {
32355/*routdebugleave*/
32356 }
32357 CFUNCSMESS("Freeing memory.\n");
32358/*freemem*/
32359#ifdef F2PY_REPORT_ATEXIT
32360f2py_stop_clock();
32361#endif
32362 return capi_buildvalue;
32363}
32364/******************************* end of sgttrs *******************************/
32365
32366/*********************************** dgttrs ***********************************/
32367static char doc_f2py_rout__flapack_dgttrs[] = "\
32368x,info = dgttrs(dl,d,du,du2,ipiv,b,[trans,overwrite_b])\n\nWrapper for ``dgttrs``.\
32369\n\nParameters\n----------\n"
32370"dl : input rank-1 array('d') with bounds (n - 1)\n"
32371"d : input rank-1 array('d') with bounds (n)\n"
32372"du : input rank-1 array('d') with bounds (n - 1)\n"
32373"du2 : input rank-1 array('d') with bounds (n - 2)\n"
32374"ipiv : input rank-1 array('i') with bounds (n)\n"
32375"b : input rank-2 array('d') with bounds (ldb,nrhs)\n"
32376"\nOther Parameters\n----------------\n"
32377"trans : input string(len=1), optional\n Default: 'N'\n"
32378"overwrite_b : input int, optional\n Default: 0\n"
32379"\nReturns\n-------\n"
32380"x : rank-2 array('d') with bounds (ldb,nrhs) and b storage\n"
32381"info : int";
32382/* extern void F_FUNC(dgttrs,DGTTRS)(char*, F_INT*, F_INT*, double*, double*, double*, double*, F_INT*, double*, F_INT*, F_INT* ); */
32383static PyObject *f2py_rout__flapack_dgttrs(const PyObject *capi_self,
32384 PyObject *capi_args,
32385 PyObject *capi_keywds,
32386 void (*f2py_func)(char*, F_INTint*, F_INTint*, double*, double*, double*, double*, F_INTint*, double*, F_INTint*, F_INTint* )) {
32387 PyObject * volatile capi_buildvalue = NULL((void*)0);
32388 volatile int f2py_success = 1;
32389/*decl*/
32390
32391 string trans = NULL((void*)0);
32392 int slen(trans)capi_trans_len;
32393 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
32394 int n = 0;
32395 int nrhs = 0;
32396 double *dl = NULL((void*)0);
32397 npy_intp dl_Dims[1] = {-1};
32398 const int dl_Rank = 1;
32399 PyArrayObject *capi_dl_tmp = NULL((void*)0);
32400 int capi_dl_intent = 0;
32401 PyObject *dl_capi = Py_None(&_Py_NoneStruct);
32402 double *d = NULL((void*)0);
32403 npy_intp d_Dims[1] = {-1};
32404 const int d_Rank = 1;
32405 PyArrayObject *capi_d_tmp = NULL((void*)0);
32406 int capi_d_intent = 0;
32407 PyObject *d_capi = Py_None(&_Py_NoneStruct);
32408 double *du = NULL((void*)0);
32409 npy_intp du_Dims[1] = {-1};
32410 const int du_Rank = 1;
32411 PyArrayObject *capi_du_tmp = NULL((void*)0);
32412 int capi_du_intent = 0;
32413 PyObject *du_capi = Py_None(&_Py_NoneStruct);
32414 double *du2 = NULL((void*)0);
32415 npy_intp du2_Dims[1] = {-1};
32416 const int du2_Rank = 1;
32417 PyArrayObject *capi_du2_tmp = NULL((void*)0);
32418 int capi_du2_intent = 0;
32419 PyObject *du2_capi = Py_None(&_Py_NoneStruct);
32420 int *ipiv = NULL((void*)0);
32421 npy_intp ipiv_Dims[1] = {-1};
32422 const int ipiv_Rank = 1;
32423 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
32424 int capi_ipiv_intent = 0;
32425 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
32426 double *b = NULL((void*)0);
32427 npy_intp b_Dims[2] = {-1, -1};
32428 const int b_Rank = 2;
32429 PyArrayObject *capi_b_tmp = NULL((void*)0);
32430 int capi_b_intent = 0;
32431 int capi_overwrite_b = 0;
32432 PyObject *b_capi = Py_None(&_Py_NoneStruct);
32433 int ldb = 0;
32434 int info = 0;
32435 static char *capi_kwlist[] = {"dl","d","du","du2","ipiv","b","trans","overwrite_b",NULL((void*)0)};
32436
32437/*routdebugenter*/
32438#ifdef F2PY_REPORT_ATEXIT
32439f2py_start_clock();
32440#endif
32441 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
32442 "OOOOOO|Oi:_flapack.dgttrs",\
32443 capi_kwlist,&dl_capi,&d_capi,&du_capi,&du2_capi,&ipiv_capi,&b_capi,&trans_capi,&capi_overwrite_b))
32444 return NULL((void*)0);
32445/*frompyobj*/
32446 /* Processing variable d */
32447 ;
32448 capi_d_intent |= F2PY_INTENT_IN1;
32449 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
32450 if (capi_d_tmp == NULL((void*)0)) {
32451 if (!PyErr_Occurred())
32452 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.dgttrs to C/Fortran array" );
32453 } else {
32454 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
32455
32456 /* Processing variable info */
32457 /* Processing variable n */
32458 n = max(3, len(d))((3 > d_Dims[0]) ? (3) : (d_Dims[0]));
32459 /* Processing variable ldb */
32460 ldb = max(1, n)((1 > n) ? (1) : (n));
32461 /* Processing variable dl */
32462 dl_Dims[0]=n - 1;
32463 capi_dl_intent |= F2PY_INTENT_IN1;
32464 capi_dl_tmp = array_from_pyobj(NPY_DOUBLE,dl_Dims,dl_Rank,capi_dl_intent,dl_capi);
32465 if (capi_dl_tmp == NULL((void*)0)) {
32466 if (!PyErr_Occurred())
32467 PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.dgttrs to C/Fortran array" );
32468 } else {
32469 dl = (double *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data));
32470
32471 /* Processing variable du */
32472 du_Dims[0]=n - 1;
32473 capi_du_intent |= F2PY_INTENT_IN1;
32474 capi_du_tmp = array_from_pyobj(NPY_DOUBLE,du_Dims,du_Rank,capi_du_intent,du_capi);
32475 if (capi_du_tmp == NULL((void*)0)) {
32476 if (!PyErr_Occurred())
32477 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.dgttrs to C/Fortran array" );
32478 } else {
32479 du = (double *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data));
32480
32481 /* Processing variable du2 */
32482 du2_Dims[0]=n - 2;
32483 capi_du2_intent |= F2PY_INTENT_IN1;
32484 capi_du2_tmp = array_from_pyobj(NPY_DOUBLE,du2_Dims,du2_Rank,capi_du2_intent,du2_capi);
32485 if (capi_du2_tmp == NULL((void*)0)) {
32486 if (!PyErr_Occurred())
32487 PyErr_SetString(_flapack_error,"failed in converting 4th argument `du2' of _flapack.dgttrs to C/Fortran array" );
32488 } else {
32489 du2 = (double *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data));
32490
32491 /* Processing variable ipiv */
32492 ipiv_Dims[0]=n;
32493 capi_ipiv_intent |= F2PY_INTENT_IN1;
32494 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
32495 if (capi_ipiv_tmp == NULL((void*)0)) {
32496 if (!PyErr_Occurred())
32497 PyErr_SetString(_flapack_error,"failed in converting 5th argument `ipiv' of _flapack.dgttrs to C/Fortran array" );
32498 } else {
32499 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
32500
32501 /* Processing variable b */
32502 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
32503 b_Dims[0]=ldb;
32504 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
32505 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
32506 if (capi_b_tmp == NULL((void*)0)) {
32507 if (!PyErr_Occurred())
32508 PyErr_SetString(_flapack_error,"failed in converting 6th argument `b' of _flapack.dgttrs to C/Fortran array" );
32509 } else {
32510 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
32511
32512 /* Processing variable trans */
32513 slen(trans)capi_trans_len = 1;
32514 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.dgttrs to C string");
32515 if (f2py_success) {
32516 CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C',"*trans=='N'||*trans=='T'||*trans=='C'","1st keyword trans","dgttrs:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T'||*trans=='C')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dgttrs:slen(trans)=%d trans=\"%s\""
, "(""*trans=='N'||*trans=='T'||*trans=='C'"") failed for ""1st keyword trans"
, capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring
); } else
{
32517 /* Processing variable nrhs */
32518 nrhs = max(1, shape(b, 1))((1 > b_Dims[1]) ? (1) : (b_Dims[1]));
32519/*end of frompyobj*/
32520#ifdef F2PY_REPORT_ATEXIT
32521f2py_start_call_clock();
32522#endif
32523/*callfortranroutine*/
32524 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
32525 (*f2py_func)(trans, &n, &nrhs, dl, d, du, du2, ipiv, b, &ldb, &info) ;
32526 /*(*f2py_func)(trans,&n,&nrhs,dl,d,du,du2,ipiv,b,&ldb,&info,slen(trans));*/
32527 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
32528if (PyErr_Occurred())
32529 f2py_success = 0;
32530#ifdef F2PY_REPORT_ATEXIT
32531f2py_stop_call_clock();
32532#endif
32533/*end of callfortranroutine*/
32534 if (f2py_success) {
32535/*pyobjfrom*/
32536/*end of pyobjfrom*/
32537 CFUNCSMESS("Building return value.\n");
32538 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
32539/*closepyobjfrom*/
32540/*end of closepyobjfrom*/
32541 } /*if (f2py_success) after callfortranroutine*/
32542/*cleanupfrompyobj*/
32543 /* End of cleaning variable nrhs */
32544 } /*CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C')*/
32545 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
32546 } /*if (f2py_success) of trans*/
32547 /* End of cleaning variable trans */
32548 } /*if (capi_b_tmp == NULL) ... else of b*/
32549 /* End of cleaning variable b */
32550 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
32551 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
32552 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
32553 /* End of cleaning variable ipiv */
32554 if((PyObject *)capi_du2_tmp!=du2_capi) {
32555 Py_XDECREF(capi_du2_tmp)_Py_XDECREF(((PyObject*)(capi_du2_tmp))); }
32556 } /*if (capi_du2_tmp == NULL) ... else of du2*/
32557 /* End of cleaning variable du2 */
32558 if((PyObject *)capi_du_tmp!=du_capi) {
32559 Py_XDECREF(capi_du_tmp)_Py_XDECREF(((PyObject*)(capi_du_tmp))); }
32560 } /*if (capi_du_tmp == NULL) ... else of du*/
32561 /* End of cleaning variable du */
32562 if((PyObject *)capi_dl_tmp!=dl_capi) {
32563 Py_XDECREF(capi_dl_tmp)_Py_XDECREF(((PyObject*)(capi_dl_tmp))); }
32564 } /*if (capi_dl_tmp == NULL) ... else of dl*/
32565 /* End of cleaning variable dl */
32566 /* End of cleaning variable ldb */
32567 /* End of cleaning variable n */
32568 /* End of cleaning variable info */
32569 if((PyObject *)capi_d_tmp!=d_capi) {
32570 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
32571 } /*if (capi_d_tmp == NULL) ... else of d*/
32572 /* End of cleaning variable d */
32573/*end of cleanupfrompyobj*/
32574 if (capi_buildvalue == NULL((void*)0)) {
32575/*routdebugfailure*/
32576 } else {
32577/*routdebugleave*/
32578 }
32579 CFUNCSMESS("Freeing memory.\n");
32580/*freemem*/
32581#ifdef F2PY_REPORT_ATEXIT
32582f2py_stop_clock();
32583#endif
32584 return capi_buildvalue;
32585}
32586/******************************* end of dgttrs *******************************/
32587
32588/*********************************** cgttrs ***********************************/
32589static char doc_f2py_rout__flapack_cgttrs[] = "\
32590x,info = cgttrs(dl,d,du,du2,ipiv,b,[trans,overwrite_b])\n\nWrapper for ``cgttrs``.\
32591\n\nParameters\n----------\n"
32592"dl : input rank-1 array('F') with bounds (n - 1)\n"
32593"d : input rank-1 array('F') with bounds (n)\n"
32594"du : input rank-1 array('F') with bounds (n - 1)\n"
32595"du2 : input rank-1 array('F') with bounds (n - 2)\n"
32596"ipiv : input rank-1 array('i') with bounds (n)\n"
32597"b : input rank-2 array('F') with bounds (ldb,nrhs)\n"
32598"\nOther Parameters\n----------------\n"
32599"trans : input string(len=1), optional\n Default: 'N'\n"
32600"overwrite_b : input int, optional\n Default: 0\n"
32601"\nReturns\n-------\n"
32602"x : rank-2 array('F') with bounds (ldb,nrhs) and b storage\n"
32603"info : int";
32604/* extern void F_FUNC(cgttrs,CGTTRS)(char*, F_INT*, F_INT*, complex_float*, complex_float*, complex_float*, complex_float*, F_INT*, complex_float*, F_INT*, F_INT* ); */
32605static PyObject *f2py_rout__flapack_cgttrs(const PyObject *capi_self,
32606 PyObject *capi_args,
32607 PyObject *capi_keywds,
32608 void (*f2py_func)(char*, F_INTint*, F_INTint*, complex_float*, complex_float*, complex_float*, complex_float*, F_INTint*, complex_float*, F_INTint*, F_INTint* )) {
32609 PyObject * volatile capi_buildvalue = NULL((void*)0);
32610 volatile int f2py_success = 1;
32611/*decl*/
32612
32613 string trans = NULL((void*)0);
32614 int slen(trans)capi_trans_len;
32615 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
32616 int n = 0;
32617 int nrhs = 0;
32618 complex_float *dl = NULL((void*)0);
32619 npy_intp dl_Dims[1] = {-1};
32620 const int dl_Rank = 1;
32621 PyArrayObject *capi_dl_tmp = NULL((void*)0);
32622 int capi_dl_intent = 0;
32623 PyObject *dl_capi = Py_None(&_Py_NoneStruct);
32624 complex_float *d = NULL((void*)0);
32625 npy_intp d_Dims[1] = {-1};
32626 const int d_Rank = 1;
32627 PyArrayObject *capi_d_tmp = NULL((void*)0);
32628 int capi_d_intent = 0;
32629 PyObject *d_capi = Py_None(&_Py_NoneStruct);
32630 complex_float *du = NULL((void*)0);
32631 npy_intp du_Dims[1] = {-1};
32632 const int du_Rank = 1;
32633 PyArrayObject *capi_du_tmp = NULL((void*)0);
32634 int capi_du_intent = 0;
32635 PyObject *du_capi = Py_None(&_Py_NoneStruct);
32636 complex_float *du2 = NULL((void*)0);
32637 npy_intp du2_Dims[1] = {-1};
32638 const int du2_Rank = 1;
32639 PyArrayObject *capi_du2_tmp = NULL((void*)0);
32640 int capi_du2_intent = 0;
32641 PyObject *du2_capi = Py_None(&_Py_NoneStruct);
32642 int *ipiv = NULL((void*)0);
32643 npy_intp ipiv_Dims[1] = {-1};
32644 const int ipiv_Rank = 1;
32645 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
32646 int capi_ipiv_intent = 0;
32647 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
32648 complex_float *b = NULL((void*)0);
32649 npy_intp b_Dims[2] = {-1, -1};
32650 const int b_Rank = 2;
32651 PyArrayObject *capi_b_tmp = NULL((void*)0);
32652 int capi_b_intent = 0;
32653 int capi_overwrite_b = 0;
32654 PyObject *b_capi = Py_None(&_Py_NoneStruct);
32655 int ldb = 0;
32656 int info = 0;
32657 static char *capi_kwlist[] = {"dl","d","du","du2","ipiv","b","trans","overwrite_b",NULL((void*)0)};
32658
32659/*routdebugenter*/
32660#ifdef F2PY_REPORT_ATEXIT
32661f2py_start_clock();
32662#endif
32663 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
32664 "OOOOOO|Oi:_flapack.cgttrs",\
32665 capi_kwlist,&dl_capi,&d_capi,&du_capi,&du2_capi,&ipiv_capi,&b_capi,&trans_capi,&capi_overwrite_b))
32666 return NULL((void*)0);
32667/*frompyobj*/
32668 /* Processing variable d */
32669 ;
32670 capi_d_intent |= F2PY_INTENT_IN1;
32671 capi_d_tmp = array_from_pyobj(NPY_CFLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
32672 if (capi_d_tmp == NULL((void*)0)) {
32673 if (!PyErr_Occurred())
32674 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.cgttrs to C/Fortran array" );
32675 } else {
32676 d = (complex_float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
32677
32678 /* Processing variable info */
32679 /* Processing variable n */
32680 n = max(3, len(d))((3 > d_Dims[0]) ? (3) : (d_Dims[0]));
32681 /* Processing variable ldb */
32682 ldb = max(1, n)((1 > n) ? (1) : (n));
32683 /* Processing variable dl */
32684 dl_Dims[0]=n - 1;
32685 capi_dl_intent |= F2PY_INTENT_IN1;
32686 capi_dl_tmp = array_from_pyobj(NPY_CFLOAT,dl_Dims,dl_Rank,capi_dl_intent,dl_capi);
32687 if (capi_dl_tmp == NULL((void*)0)) {
32688 if (!PyErr_Occurred())
32689 PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.cgttrs to C/Fortran array" );
32690 } else {
32691 dl = (complex_float *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data));
32692
32693 /* Processing variable du */
32694 du_Dims[0]=n - 1;
32695 capi_du_intent |= F2PY_INTENT_IN1;
32696 capi_du_tmp = array_from_pyobj(NPY_CFLOAT,du_Dims,du_Rank,capi_du_intent,du_capi);
32697 if (capi_du_tmp == NULL((void*)0)) {
32698 if (!PyErr_Occurred())
32699 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.cgttrs to C/Fortran array" );
32700 } else {
32701 du = (complex_float *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data));
32702
32703 /* Processing variable du2 */
32704 du2_Dims[0]=n - 2;
32705 capi_du2_intent |= F2PY_INTENT_IN1;
32706 capi_du2_tmp = array_from_pyobj(NPY_CFLOAT,du2_Dims,du2_Rank,capi_du2_intent,du2_capi);
32707 if (capi_du2_tmp == NULL((void*)0)) {
32708 if (!PyErr_Occurred())
32709 PyErr_SetString(_flapack_error,"failed in converting 4th argument `du2' of _flapack.cgttrs to C/Fortran array" );
32710 } else {
32711 du2 = (complex_float *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data));
32712
32713 /* Processing variable ipiv */
32714 ipiv_Dims[0]=n;
32715 capi_ipiv_intent |= F2PY_INTENT_IN1;
32716 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
32717 if (capi_ipiv_tmp == NULL((void*)0)) {
32718 if (!PyErr_Occurred())
32719 PyErr_SetString(_flapack_error,"failed in converting 5th argument `ipiv' of _flapack.cgttrs to C/Fortran array" );
32720 } else {
32721 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
32722
32723 /* Processing variable b */
32724 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
32725 b_Dims[0]=ldb;
32726 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
32727 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
32728 if (capi_b_tmp == NULL((void*)0)) {
32729 if (!PyErr_Occurred())
32730 PyErr_SetString(_flapack_error,"failed in converting 6th argument `b' of _flapack.cgttrs to C/Fortran array" );
32731 } else {
32732 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
32733
32734 /* Processing variable trans */
32735 slen(trans)capi_trans_len = 1;
32736 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.cgttrs to C string");
32737 if (f2py_success) {
32738 CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C',"*trans=='N'||*trans=='T'||*trans=='C'","1st keyword trans","cgttrs:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T'||*trans=='C')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""cgttrs:slen(trans)=%d trans=\"%s\""
, "(""*trans=='N'||*trans=='T'||*trans=='C'"") failed for ""1st keyword trans"
, capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring
); } else
{
32739 /* Processing variable nrhs */
32740 nrhs = max(1, shape(b, 1))((1 > b_Dims[1]) ? (1) : (b_Dims[1]));
32741/*end of frompyobj*/
32742#ifdef F2PY_REPORT_ATEXIT
32743f2py_start_call_clock();
32744#endif
32745/*callfortranroutine*/
32746 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
32747 (*f2py_func)(trans, &n, &nrhs, dl, d, du, du2, ipiv, b, &ldb, &info) ;
32748 /*(*f2py_func)(trans,&n,&nrhs,dl,d,du,du2,ipiv,b,&ldb,&info,slen(trans));*/
32749 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
32750if (PyErr_Occurred())
32751 f2py_success = 0;
32752#ifdef F2PY_REPORT_ATEXIT
32753f2py_stop_call_clock();
32754#endif
32755/*end of callfortranroutine*/
32756 if (f2py_success) {
32757/*pyobjfrom*/
32758/*end of pyobjfrom*/
32759 CFUNCSMESS("Building return value.\n");
32760 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
32761/*closepyobjfrom*/
32762/*end of closepyobjfrom*/
32763 } /*if (f2py_success) after callfortranroutine*/
32764/*cleanupfrompyobj*/
32765 /* End of cleaning variable nrhs */
32766 } /*CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C')*/
32767 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
32768 } /*if (f2py_success) of trans*/
32769 /* End of cleaning variable trans */
32770 } /*if (capi_b_tmp == NULL) ... else of b*/
32771 /* End of cleaning variable b */
32772 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
32773 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
32774 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
32775 /* End of cleaning variable ipiv */
32776 if((PyObject *)capi_du2_tmp!=du2_capi) {
32777 Py_XDECREF(capi_du2_tmp)_Py_XDECREF(((PyObject*)(capi_du2_tmp))); }
32778 } /*if (capi_du2_tmp == NULL) ... else of du2*/
32779 /* End of cleaning variable du2 */
32780 if((PyObject *)capi_du_tmp!=du_capi) {
32781 Py_XDECREF(capi_du_tmp)_Py_XDECREF(((PyObject*)(capi_du_tmp))); }
32782 } /*if (capi_du_tmp == NULL) ... else of du*/
32783 /* End of cleaning variable du */
32784 if((PyObject *)capi_dl_tmp!=dl_capi) {
32785 Py_XDECREF(capi_dl_tmp)_Py_XDECREF(((PyObject*)(capi_dl_tmp))); }
32786 } /*if (capi_dl_tmp == NULL) ... else of dl*/
32787 /* End of cleaning variable dl */
32788 /* End of cleaning variable ldb */
32789 /* End of cleaning variable n */
32790 /* End of cleaning variable info */
32791 if((PyObject *)capi_d_tmp!=d_capi) {
32792 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
32793 } /*if (capi_d_tmp == NULL) ... else of d*/
32794 /* End of cleaning variable d */
32795/*end of cleanupfrompyobj*/
32796 if (capi_buildvalue == NULL((void*)0)) {
32797/*routdebugfailure*/
32798 } else {
32799/*routdebugleave*/
32800 }
32801 CFUNCSMESS("Freeing memory.\n");
32802/*freemem*/
32803#ifdef F2PY_REPORT_ATEXIT
32804f2py_stop_clock();
32805#endif
32806 return capi_buildvalue;
32807}
32808/******************************* end of cgttrs *******************************/
32809
32810/*********************************** zgttrs ***********************************/
32811static char doc_f2py_rout__flapack_zgttrs[] = "\
32812x,info = zgttrs(dl,d,du,du2,ipiv,b,[trans,overwrite_b])\n\nWrapper for ``zgttrs``.\
32813\n\nParameters\n----------\n"
32814"dl : input rank-1 array('D') with bounds (n - 1)\n"
32815"d : input rank-1 array('D') with bounds (n)\n"
32816"du : input rank-1 array('D') with bounds (n - 1)\n"
32817"du2 : input rank-1 array('D') with bounds (n - 2)\n"
32818"ipiv : input rank-1 array('i') with bounds (n)\n"
32819"b : input rank-2 array('D') with bounds (ldb,nrhs)\n"
32820"\nOther Parameters\n----------------\n"
32821"trans : input string(len=1), optional\n Default: 'N'\n"
32822"overwrite_b : input int, optional\n Default: 0\n"
32823"\nReturns\n-------\n"
32824"x : rank-2 array('D') with bounds (ldb,nrhs) and b storage\n"
32825"info : int";
32826/* extern void F_FUNC(zgttrs,ZGTTRS)(char*, F_INT*, F_INT*, complex_double*, complex_double*, complex_double*, complex_double*, F_INT*, complex_double*, F_INT*, F_INT* ); */
32827static PyObject *f2py_rout__flapack_zgttrs(const PyObject *capi_self,
32828 PyObject *capi_args,
32829 PyObject *capi_keywds,
32830 void (*f2py_func)(char*, F_INTint*, F_INTint*, complex_double*, complex_double*, complex_double*, complex_double*, F_INTint*, complex_double*, F_INTint*, F_INTint* )) {
32831 PyObject * volatile capi_buildvalue = NULL((void*)0);
32832 volatile int f2py_success = 1;
32833/*decl*/
32834
32835 string trans = NULL((void*)0);
32836 int slen(trans)capi_trans_len;
32837 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
32838 int n = 0;
32839 int nrhs = 0;
32840 complex_double *dl = NULL((void*)0);
32841 npy_intp dl_Dims[1] = {-1};
32842 const int dl_Rank = 1;
32843 PyArrayObject *capi_dl_tmp = NULL((void*)0);
32844 int capi_dl_intent = 0;
32845 PyObject *dl_capi = Py_None(&_Py_NoneStruct);
32846 complex_double *d = NULL((void*)0);
32847 npy_intp d_Dims[1] = {-1};
32848 const int d_Rank = 1;
32849 PyArrayObject *capi_d_tmp = NULL((void*)0);
32850 int capi_d_intent = 0;
32851 PyObject *d_capi = Py_None(&_Py_NoneStruct);
32852 complex_double *du = NULL((void*)0);
32853 npy_intp du_Dims[1] = {-1};
32854 const int du_Rank = 1;
32855 PyArrayObject *capi_du_tmp = NULL((void*)0);
32856 int capi_du_intent = 0;
32857 PyObject *du_capi = Py_None(&_Py_NoneStruct);
32858 complex_double *du2 = NULL((void*)0);
32859 npy_intp du2_Dims[1] = {-1};
32860 const int du2_Rank = 1;
32861 PyArrayObject *capi_du2_tmp = NULL((void*)0);
32862 int capi_du2_intent = 0;
32863 PyObject *du2_capi = Py_None(&_Py_NoneStruct);
32864 int *ipiv = NULL((void*)0);
32865 npy_intp ipiv_Dims[1] = {-1};
32866 const int ipiv_Rank = 1;
32867 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
32868 int capi_ipiv_intent = 0;
32869 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
32870 complex_double *b = NULL((void*)0);
32871 npy_intp b_Dims[2] = {-1, -1};
32872 const int b_Rank = 2;
32873 PyArrayObject *capi_b_tmp = NULL((void*)0);
32874 int capi_b_intent = 0;
32875 int capi_overwrite_b = 0;
32876 PyObject *b_capi = Py_None(&_Py_NoneStruct);
32877 int ldb = 0;
32878 int info = 0;
32879 static char *capi_kwlist[] = {"dl","d","du","du2","ipiv","b","trans","overwrite_b",NULL((void*)0)};
32880
32881/*routdebugenter*/
32882#ifdef F2PY_REPORT_ATEXIT
32883f2py_start_clock();
32884#endif
32885 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
32886 "OOOOOO|Oi:_flapack.zgttrs",\
32887 capi_kwlist,&dl_capi,&d_capi,&du_capi,&du2_capi,&ipiv_capi,&b_capi,&trans_capi,&capi_overwrite_b))
32888 return NULL((void*)0);
32889/*frompyobj*/
32890 /* Processing variable d */
32891 ;
32892 capi_d_intent |= F2PY_INTENT_IN1;
32893 capi_d_tmp = array_from_pyobj(NPY_CDOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
32894 if (capi_d_tmp == NULL((void*)0)) {
32895 if (!PyErr_Occurred())
32896 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.zgttrs to C/Fortran array" );
32897 } else {
32898 d = (complex_double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
32899
32900 /* Processing variable info */
32901 /* Processing variable n */
32902 n = max(3, len(d))((3 > d_Dims[0]) ? (3) : (d_Dims[0]));
32903 /* Processing variable ldb */
32904 ldb = max(1, n)((1 > n) ? (1) : (n));
32905 /* Processing variable dl */
32906 dl_Dims[0]=n - 1;
32907 capi_dl_intent |= F2PY_INTENT_IN1;
32908 capi_dl_tmp = array_from_pyobj(NPY_CDOUBLE,dl_Dims,dl_Rank,capi_dl_intent,dl_capi);
32909 if (capi_dl_tmp == NULL((void*)0)) {
32910 if (!PyErr_Occurred())
32911 PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.zgttrs to C/Fortran array" );
32912 } else {
32913 dl = (complex_double *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data));
32914
32915 /* Processing variable du */
32916 du_Dims[0]=n - 1;
32917 capi_du_intent |= F2PY_INTENT_IN1;
32918 capi_du_tmp = array_from_pyobj(NPY_CDOUBLE,du_Dims,du_Rank,capi_du_intent,du_capi);
32919 if (capi_du_tmp == NULL((void*)0)) {
32920 if (!PyErr_Occurred())
32921 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.zgttrs to C/Fortran array" );
32922 } else {
32923 du = (complex_double *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data));
32924
32925 /* Processing variable du2 */
32926 du2_Dims[0]=n - 2;
32927 capi_du2_intent |= F2PY_INTENT_IN1;
32928 capi_du2_tmp = array_from_pyobj(NPY_CDOUBLE,du2_Dims,du2_Rank,capi_du2_intent,du2_capi);
32929 if (capi_du2_tmp == NULL((void*)0)) {
32930 if (!PyErr_Occurred())
32931 PyErr_SetString(_flapack_error,"failed in converting 4th argument `du2' of _flapack.zgttrs to C/Fortran array" );
32932 } else {
32933 du2 = (complex_double *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data));
32934
32935 /* Processing variable ipiv */
32936 ipiv_Dims[0]=n;
32937 capi_ipiv_intent |= F2PY_INTENT_IN1;
32938 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
32939 if (capi_ipiv_tmp == NULL((void*)0)) {
32940 if (!PyErr_Occurred())
32941 PyErr_SetString(_flapack_error,"failed in converting 5th argument `ipiv' of _flapack.zgttrs to C/Fortran array" );
32942 } else {
32943 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
32944
32945 /* Processing variable b */
32946 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
32947 b_Dims[0]=ldb;
32948 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
32949 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
32950 if (capi_b_tmp == NULL((void*)0)) {
32951 if (!PyErr_Occurred())
32952 PyErr_SetString(_flapack_error,"failed in converting 6th argument `b' of _flapack.zgttrs to C/Fortran array" );
32953 } else {
32954 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
32955
32956 /* Processing variable trans */
32957 slen(trans)capi_trans_len = 1;
32958 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 1st keyword `trans' of _flapack.zgttrs to C string");
32959 if (f2py_success) {
32960 CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C',"*trans=='N'||*trans=='T'||*trans=='C'","1st keyword trans","zgttrs:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T'||*trans=='C')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zgttrs:slen(trans)=%d trans=\"%s\""
, "(""*trans=='N'||*trans=='T'||*trans=='C'"") failed for ""1st keyword trans"
, capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring
); } else
{
32961 /* Processing variable nrhs */
32962 nrhs = max(1, shape(b, 1))((1 > b_Dims[1]) ? (1) : (b_Dims[1]));
32963/*end of frompyobj*/
32964#ifdef F2PY_REPORT_ATEXIT
32965f2py_start_call_clock();
32966#endif
32967/*callfortranroutine*/
32968 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
32969 (*f2py_func)(trans, &n, &nrhs, dl, d, du, du2, ipiv, b, &ldb, &info) ;
32970 /*(*f2py_func)(trans,&n,&nrhs,dl,d,du,du2,ipiv,b,&ldb,&info,slen(trans));*/
32971 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
32972if (PyErr_Occurred())
32973 f2py_success = 0;
32974#ifdef F2PY_REPORT_ATEXIT
32975f2py_stop_call_clock();
32976#endif
32977/*end of callfortranroutine*/
32978 if (f2py_success) {
32979/*pyobjfrom*/
32980/*end of pyobjfrom*/
32981 CFUNCSMESS("Building return value.\n");
32982 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
32983/*closepyobjfrom*/
32984/*end of closepyobjfrom*/
32985 } /*if (f2py_success) after callfortranroutine*/
32986/*cleanupfrompyobj*/
32987 /* End of cleaning variable nrhs */
32988 } /*CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C')*/
32989 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
32990 } /*if (f2py_success) of trans*/
32991 /* End of cleaning variable trans */
32992 } /*if (capi_b_tmp == NULL) ... else of b*/
32993 /* End of cleaning variable b */
32994 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
32995 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
32996 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
32997 /* End of cleaning variable ipiv */
32998 if((PyObject *)capi_du2_tmp!=du2_capi) {
32999 Py_XDECREF(capi_du2_tmp)_Py_XDECREF(((PyObject*)(capi_du2_tmp))); }
33000 } /*if (capi_du2_tmp == NULL) ... else of du2*/
33001 /* End of cleaning variable du2 */
33002 if((PyObject *)capi_du_tmp!=du_capi) {
33003 Py_XDECREF(capi_du_tmp)_Py_XDECREF(((PyObject*)(capi_du_tmp))); }
33004 } /*if (capi_du_tmp == NULL) ... else of du*/
33005 /* End of cleaning variable du */
33006 if((PyObject *)capi_dl_tmp!=dl_capi) {
33007 Py_XDECREF(capi_dl_tmp)_Py_XDECREF(((PyObject*)(capi_dl_tmp))); }
33008 } /*if (capi_dl_tmp == NULL) ... else of dl*/
33009 /* End of cleaning variable dl */
33010 /* End of cleaning variable ldb */
33011 /* End of cleaning variable n */
33012 /* End of cleaning variable info */
33013 if((PyObject *)capi_d_tmp!=d_capi) {
33014 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
33015 } /*if (capi_d_tmp == NULL) ... else of d*/
33016 /* End of cleaning variable d */
33017/*end of cleanupfrompyobj*/
33018 if (capi_buildvalue == NULL((void*)0)) {
33019/*routdebugfailure*/
33020 } else {
33021/*routdebugleave*/
33022 }
33023 CFUNCSMESS("Freeing memory.\n");
33024/*freemem*/
33025#ifdef F2PY_REPORT_ATEXIT
33026f2py_stop_clock();
33027#endif
33028 return capi_buildvalue;
33029}
33030/******************************* end of zgttrs *******************************/
33031
33032/*********************************** sgtsvx ***********************************/
33033static char doc_f2py_rout__flapack_sgtsvx[] = "\
33034dlf,df,duf,du2,ipiv,x,rcond,ferr,berr,info = sgtsvx(dl,d,du,b,[fact,trans,dlf,df,duf,du2,ipiv])\n\nWrapper for ``sgtsvx``.\
33035\n\nParameters\n----------\n"
33036"dl : input rank-1 array('f') with bounds (MAX(0, n-1))\n"
33037"d : input rank-1 array('f') with bounds (n)\n"
33038"du : input rank-1 array('f') with bounds (MAX(0, n-1))\n"
33039"b : input rank-2 array('f') with bounds (ldb,nrhs)\n"
33040"\nOther Parameters\n----------------\n"
33041"fact : input string(len=1), optional\n Default: 'N'\n"
33042"trans : input string(len=1), optional\n Default: 'N'\n"
33043"dlf : input rank-1 array('f') with bounds (MAX(0,n-1))\n"
33044"df : input rank-1 array('f') with bounds (n)\n"
33045"duf : input rank-1 array('f') with bounds (MAX(0,n-1))\n"
33046"du2 : input rank-1 array('f') with bounds (MAX(0,n-2))\n"
33047"ipiv : input rank-1 array('i') with bounds (n)\n"
33048"\nReturns\n-------\n"
33049"dlf : rank-1 array('f') with bounds (MAX(0,n-1))\n"
33050"df : rank-1 array('f') with bounds (n)\n"
33051"duf : rank-1 array('f') with bounds (MAX(0,n-1))\n"
33052"du2 : rank-1 array('f') with bounds (MAX(0,n-2))\n"
33053"ipiv : rank-1 array('i') with bounds (n)\n"
33054"x : rank-2 array('f') with bounds (ldx,nrhs)\n"
33055"rcond : float\n"
33056"ferr : rank-1 array('f') with bounds (nrhs)\n"
33057"berr : rank-1 array('f') with bounds (nrhs)\n"
33058"info : int";
33059/* extern void F_FUNC(sgtsvx,SGTSVX)(char*,char*,F_INT*,F_INT*,float*,float*,float*,float*,float*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT* ); */
33060static PyObject *f2py_rout__flapack_sgtsvx(const PyObject *capi_self,
33061 PyObject *capi_args,
33062 PyObject *capi_keywds,
33063 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,float*,float*,float*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* )) {
33064 PyObject * volatile capi_buildvalue = NULL((void*)0);
33065 volatile int f2py_success = 1;
33066/*decl*/
33067
33068 string fact = NULL((void*)0);
33069 int slen(fact)capi_fact_len;
33070 PyObject *fact_capi = Py_None(&_Py_NoneStruct);
33071 string trans = NULL((void*)0);
33072 int slen(trans)capi_trans_len;
33073 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
33074 int n = 0;
33075 int nrhs = 0;
33076 float *dl = NULL((void*)0);
33077 npy_intp dl_Dims[1] = {-1};
33078 const int dl_Rank = 1;
33079 PyArrayObject *capi_dl_tmp = NULL((void*)0);
33080 int capi_dl_intent = 0;
33081 PyObject *dl_capi = Py_None(&_Py_NoneStruct);
33082 float *d = NULL((void*)0);
33083 npy_intp d_Dims[1] = {-1};
33084 const int d_Rank = 1;
33085 PyArrayObject *capi_d_tmp = NULL((void*)0);
33086 int capi_d_intent = 0;
33087 PyObject *d_capi = Py_None(&_Py_NoneStruct);
33088 float *du = NULL((void*)0);
33089 npy_intp du_Dims[1] = {-1};
33090 const int du_Rank = 1;
33091 PyArrayObject *capi_du_tmp = NULL((void*)0);
33092 int capi_du_intent = 0;
33093 PyObject *du_capi = Py_None(&_Py_NoneStruct);
33094 float *dlf = NULL((void*)0);
33095 npy_intp dlf_Dims[1] = {-1};
33096 const int dlf_Rank = 1;
33097 PyArrayObject *capi_dlf_tmp = NULL((void*)0);
33098 int capi_dlf_intent = 0;
33099 PyObject *dlf_capi = Py_None(&_Py_NoneStruct);
33100 float *df = NULL((void*)0);
33101 npy_intp df_Dims[1] = {-1};
33102 const int df_Rank = 1;
33103 PyArrayObject *capi_df_tmp = NULL((void*)0);
33104 int capi_df_intent = 0;
33105 PyObject *df_capi = Py_None(&_Py_NoneStruct);
33106 float *duf = NULL((void*)0);
33107 npy_intp duf_Dims[1] = {-1};
33108 const int duf_Rank = 1;
33109 PyArrayObject *capi_duf_tmp = NULL((void*)0);
33110 int capi_duf_intent = 0;
33111 PyObject *duf_capi = Py_None(&_Py_NoneStruct);
33112 float *du2 = NULL((void*)0);
33113 npy_intp du2_Dims[1] = {-1};
33114 const int du2_Rank = 1;
33115 PyArrayObject *capi_du2_tmp = NULL((void*)0);
33116 int capi_du2_intent = 0;
33117 PyObject *du2_capi = Py_None(&_Py_NoneStruct);
33118 int *ipiv = NULL((void*)0);
33119 npy_intp ipiv_Dims[1] = {-1};
33120 const int ipiv_Rank = 1;
33121 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
33122 int capi_ipiv_intent = 0;
33123 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
33124 float *b = NULL((void*)0);
33125 npy_intp b_Dims[2] = {-1, -1};
33126 const int b_Rank = 2;
33127 PyArrayObject *capi_b_tmp = NULL((void*)0);
33128 int capi_b_intent = 0;
33129 PyObject *b_capi = Py_None(&_Py_NoneStruct);
33130 int ldb = 0;
33131 float *x = NULL((void*)0);
33132 npy_intp x_Dims[2] = {-1, -1};
33133 const int x_Rank = 2;
33134 PyArrayObject *capi_x_tmp = NULL((void*)0);
33135 int capi_x_intent = 0;
33136 int ldx = 0;
33137 float rcond = 0;
33138 float *ferr = NULL((void*)0);
33139 npy_intp ferr_Dims[1] = {-1};
33140 const int ferr_Rank = 1;
33141 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
33142 int capi_ferr_intent = 0;
33143 float *berr = NULL((void*)0);
33144 npy_intp berr_Dims[1] = {-1};
33145 const int berr_Rank = 1;
33146 PyArrayObject *capi_berr_tmp = NULL((void*)0);
33147 int capi_berr_intent = 0;
33148 float *work = NULL((void*)0);
33149 npy_intp work_Dims[1] = {-1};
33150 const int work_Rank = 1;
33151 PyArrayObject *capi_work_tmp = NULL((void*)0);
33152 int capi_work_intent = 0;
33153 int *iwork = NULL((void*)0);
33154 npy_intp iwork_Dims[1] = {-1};
33155 const int iwork_Rank = 1;
33156 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
33157 int capi_iwork_intent = 0;
33158 int info = 0;
33159 static char *capi_kwlist[] = {"dl","d","du","b","fact","trans","dlf","df","duf","du2","ipiv",NULL((void*)0)};
33160
33161/*routdebugenter*/
33162#ifdef F2PY_REPORT_ATEXIT
33163f2py_start_clock();
33164#endif
33165 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
33166 "OOOO|OOOOOOO:_flapack.sgtsvx",\
33167 capi_kwlist,&dl_capi,&d_capi,&du_capi,&b_capi,&fact_capi,&trans_capi,&dlf_capi,&df_capi,&duf_capi,&du2_capi,&ipiv_capi))
33168 return NULL((void*)0);
33169/*frompyobj*/
33170 /* Processing variable d */
33171 ;
33172 capi_d_intent |= F2PY_INTENT_IN1;
33173 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
33174 if (capi_d_tmp == NULL((void*)0)) {
33175 if (!PyErr_Occurred())
33176 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.sgtsvx to C/Fortran array" );
33177 } else {
33178 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
33179
33180 /* Processing variable b */
33181 ;
33182 capi_b_intent |= F2PY_INTENT_IN1;
33183 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
33184 if (capi_b_tmp == NULL((void*)0)) {
33185 if (!PyErr_Occurred())
33186 PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.sgtsvx to C/Fortran array" );
33187 } else {
33188 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
33189
33190 /* Processing variable rcond */
33191 /* Processing variable info */
33192 /* Processing variable n */
33193 n = len(d)d_Dims[0];
33194 /* Processing variable nrhs */
33195 nrhs = shape(b, 1)b_Dims[1];
33196 /* Processing variable dl */
33197 dl_Dims[0]=MAX(0, n-1)((0 > n-1) ? (0) : (n-1));
33198 capi_dl_intent |= F2PY_INTENT_IN1;
33199 capi_dl_tmp = array_from_pyobj(NPY_FLOAT,dl_Dims,dl_Rank,capi_dl_intent,dl_capi);
33200 if (capi_dl_tmp == NULL((void*)0)) {
33201 if (!PyErr_Occurred())
33202 PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.sgtsvx to C/Fortran array" );
33203 } else {
33204 dl = (float *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data));
33205
33206 /* Processing variable du */
33207 du_Dims[0]=MAX(0, n-1)((0 > n-1) ? (0) : (n-1));
33208 capi_du_intent |= F2PY_INTENT_IN1;
33209 capi_du_tmp = array_from_pyobj(NPY_FLOAT,du_Dims,du_Rank,capi_du_intent,du_capi);
33210 if (capi_du_tmp == NULL((void*)0)) {
33211 if (!PyErr_Occurred())
33212 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.sgtsvx to C/Fortran array" );
33213 } else {
33214 du = (float *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data));
33215
33216 /* Processing variable dlf */
33217 dlf_Dims[0]=MAX(0,n-1)((0 > n-1) ? (0) : (n-1));
33218 capi_dlf_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
33219 capi_dlf_tmp = array_from_pyobj(NPY_FLOAT,dlf_Dims,dlf_Rank,capi_dlf_intent,dlf_capi);
33220 if (capi_dlf_tmp == NULL((void*)0)) {
33221 if (!PyErr_Occurred())
33222 PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `dlf' of _flapack.sgtsvx to C/Fortran array" );
33223 } else {
33224 dlf = (float *)(PyArray_DATA(capi_dlf_tmp)((void *)((PyArrayObject_fields *)(capi_dlf_tmp))->data));
33225
33226 /* Processing variable df */
33227 df_Dims[0]=n;
33228 capi_df_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
33229 capi_df_tmp = array_from_pyobj(NPY_FLOAT,df_Dims,df_Rank,capi_df_intent,df_capi);
33230 if (capi_df_tmp == NULL((void*)0)) {
33231 if (!PyErr_Occurred())
33232 PyErr_SetString(_flapack_error,"failed in converting 4th keyword `df' of _flapack.sgtsvx to C/Fortran array" );
33233 } else {
33234 df = (float *)(PyArray_DATA(capi_df_tmp)((void *)((PyArrayObject_fields *)(capi_df_tmp))->data));
33235
33236 /* Processing variable duf */
33237 duf_Dims[0]=MAX(0,n-1)((0 > n-1) ? (0) : (n-1));
33238 capi_duf_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
33239 capi_duf_tmp = array_from_pyobj(NPY_FLOAT,duf_Dims,duf_Rank,capi_duf_intent,duf_capi);
33240 if (capi_duf_tmp == NULL((void*)0)) {
33241 if (!PyErr_Occurred())
33242 PyErr_SetString(_flapack_error,"failed in converting 5th keyword `duf' of _flapack.sgtsvx to C/Fortran array" );
33243 } else {
33244 duf = (float *)(PyArray_DATA(capi_duf_tmp)((void *)((PyArrayObject_fields *)(capi_duf_tmp))->data));
33245
33246 /* Processing variable du2 */
33247 du2_Dims[0]=MAX(0,n-2)((0 > n-2) ? (0) : (n-2));
33248 capi_du2_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
33249 capi_du2_tmp = array_from_pyobj(NPY_FLOAT,du2_Dims,du2_Rank,capi_du2_intent,du2_capi);
33250 if (capi_du2_tmp == NULL((void*)0)) {
33251 if (!PyErr_Occurred())
33252 PyErr_SetString(_flapack_error,"failed in converting 6th keyword `du2' of _flapack.sgtsvx to C/Fortran array" );
33253 } else {
33254 du2 = (float *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data));
33255
33256 /* Processing variable ipiv */
33257 ipiv_Dims[0]=n;
33258 capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
33259 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
33260 if (capi_ipiv_tmp == NULL((void*)0)) {
33261 if (!PyErr_Occurred())
33262 PyErr_SetString(_flapack_error,"failed in converting 7th keyword `ipiv' of _flapack.sgtsvx to C/Fortran array" );
33263 } else {
33264 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
33265
33266 /* Processing variable ldb */
33267 ldb = max(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
33268 CHECKSCALAR(ldb >= n,"ldb >= n","hidden ldb","sgtsvx:ldb=%d",ldb)if (!(ldb >= n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgtsvx:ldb=%d", "(""ldb >= n"") failed for ""hidden ldb"
, ldb); PyErr_SetString(_flapack_error,errstring); } else
{
33269 /* Processing variable ldx */
33270 ldx = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
33271 /* Processing variable ferr */
33272 ferr_Dims[0]=nrhs;
33273 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
33274 capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
33275 if (capi_ferr_tmp == NULL((void*)0)) {
33276 if (!PyErr_Occurred())
33277 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.sgtsvx to C/Fortran array" );
33278 } else {
33279 ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
33280
33281 /* Processing variable berr */
33282 berr_Dims[0]=nrhs;
33283 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
33284 capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
33285 if (capi_berr_tmp == NULL((void*)0)) {
33286 if (!PyErr_Occurred())
33287 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.sgtsvx to C/Fortran array" );
33288 } else {
33289 berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
33290
33291 /* Processing variable work */
33292 work_Dims[0]=3 * n;
33293 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
33294 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
33295 if (capi_work_tmp == NULL((void*)0)) {
33296 if (!PyErr_Occurred())
33297 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgtsvx to C/Fortran array" );
33298 } else {
33299 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
33300
33301 /* Processing variable iwork */
33302 iwork_Dims[0]=n;
33303 capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
33304 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
33305 if (capi_iwork_tmp == NULL((void*)0)) {
33306 if (!PyErr_Occurred())
33307 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.sgtsvx to C/Fortran array" );
33308 } else {
33309 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
33310
33311 /* Processing variable fact */
33312 slen(fact)capi_fact_len = 1;
33313 f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"N",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.sgtsvx to C string");
33314 if (f2py_success) {
33315 CHECKSTRING(*fact=='F'||*fact=='N',"*fact=='F'||*fact=='N'","1st keyword fact","sgtsvx:slen(fact)=%d fact=\"%s\"",fact)if (!(*fact=='F'||*fact=='N')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgtsvx:slen(fact)=%d fact=\"%s\"", "(""*fact=='F'||*fact=='N'"
") failed for ""1st keyword fact", capi_fact_len, fact); PyErr_SetString
(_flapack_error, errstring); } else
{
33316 /* Processing variable trans */
33317 slen(trans)capi_trans_len = 1;
33318 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.sgtsvx to C string");
33319 if (f2py_success) {
33320 CHECKSTRING(*trans=='N'||*trans=='C'||*trans=='T',"*trans=='N'||*trans=='C'||*trans=='T'","2nd keyword trans","sgtsvx:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C'||*trans=='T')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""sgtsvx:slen(trans)=%d trans=\"%s\""
, "(""*trans=='N'||*trans=='C'||*trans=='T'"") failed for ""2nd keyword trans"
, capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring
); } else
{
33321 /* Processing variable x */
33322 x_Dims[0]=ldx,x_Dims[1]=nrhs;
33323 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
33324 capi_x_tmp = array_from_pyobj(NPY_FLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
33325 if (capi_x_tmp == NULL((void*)0)) {
33326 if (!PyErr_Occurred())
33327 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.sgtsvx to C/Fortran array" );
33328 } else {
33329 x = (float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
33330
33331/*end of frompyobj*/
33332#ifdef F2PY_REPORT_ATEXIT
33333f2py_start_call_clock();
33334#endif
33335/*callfortranroutine*/
33336 (*f2py_func)(fact,trans,&n,&nrhs,dl,d,du,dlf,df,duf,du2,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,iwork,&info); ;
33337 /*(*f2py_func)(fact,trans,&n,&nrhs,dl,d,du,dlf,df,duf,du2,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,iwork,&info,slen(fact),slen(trans));*/
33338if (PyErr_Occurred())
33339 f2py_success = 0;
33340#ifdef F2PY_REPORT_ATEXIT
33341f2py_stop_call_clock();
33342#endif
33343/*end of callfortranroutine*/
33344 if (f2py_success) {
33345/*pyobjfrom*/
33346/*end of pyobjfrom*/
33347 CFUNCSMESS("Building return value.\n");
33348 capi_buildvalue = Py_BuildValue("NNNNNNfNNi",capi_dlf_tmp,capi_df_tmp,capi_duf_tmp,capi_du2_tmp,capi_ipiv_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
33349/*closepyobjfrom*/
33350/*end of closepyobjfrom*/
33351 } /*if (f2py_success) after callfortranroutine*/
33352/*cleanupfrompyobj*/
33353 } /*if (capi_x_tmp == NULL) ... else of x*/
33354 /* End of cleaning variable x */
33355 } /*CHECKSTRING(*trans=='N'||*trans=='C'||*trans=='T')*/
33356 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
33357 } /*if (f2py_success) of trans*/
33358 /* End of cleaning variable trans */
33359 } /*CHECKSTRING(*fact=='F'||*fact=='N')*/
33360 STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0);
33361 } /*if (f2py_success) of fact*/
33362 /* End of cleaning variable fact */
33363 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
33364 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
33365 /* End of cleaning variable iwork */
33366 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
33367 } /*if (capi_work_tmp == NULL) ... else of work*/
33368 /* End of cleaning variable work */
33369 } /*if (capi_berr_tmp == NULL) ... else of berr*/
33370 /* End of cleaning variable berr */
33371 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
33372 /* End of cleaning variable ferr */
33373 /* End of cleaning variable ldx */
33374 } /*CHECKSCALAR(ldb >= n)*/
33375 /* End of cleaning variable ldb */
33376 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
33377 /* End of cleaning variable ipiv */
33378 } /*if (capi_du2_tmp == NULL) ... else of du2*/
33379 /* End of cleaning variable du2 */
33380 } /*if (capi_duf_tmp == NULL) ... else of duf*/
33381 /* End of cleaning variable duf */
33382 } /*if (capi_df_tmp == NULL) ... else of df*/
33383 /* End of cleaning variable df */
33384 } /*if (capi_dlf_tmp == NULL) ... else of dlf*/
33385 /* End of cleaning variable dlf */
33386 if((PyObject *)capi_du_tmp!=du_capi) {
33387 Py_XDECREF(capi_du_tmp)_Py_XDECREF(((PyObject*)(capi_du_tmp))); }
33388 } /*if (capi_du_tmp == NULL) ... else of du*/
33389 /* End of cleaning variable du */
33390 if((PyObject *)capi_dl_tmp!=dl_capi) {
33391 Py_XDECREF(capi_dl_tmp)_Py_XDECREF(((PyObject*)(capi_dl_tmp))); }
33392 } /*if (capi_dl_tmp == NULL) ... else of dl*/
33393 /* End of cleaning variable dl */
33394 /* End of cleaning variable nrhs */
33395 /* End of cleaning variable n */
33396 /* End of cleaning variable info */
33397 /* End of cleaning variable rcond */
33398 if((PyObject *)capi_b_tmp!=b_capi) {
33399 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
33400 } /*if (capi_b_tmp == NULL) ... else of b*/
33401 /* End of cleaning variable b */
33402 if((PyObject *)capi_d_tmp!=d_capi) {
33403 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
33404 } /*if (capi_d_tmp == NULL) ... else of d*/
33405 /* End of cleaning variable d */
33406/*end of cleanupfrompyobj*/
33407 if (capi_buildvalue == NULL((void*)0)) {
33408/*routdebugfailure*/
33409 } else {
33410/*routdebugleave*/
33411 }
33412 CFUNCSMESS("Freeing memory.\n");
33413/*freemem*/
33414#ifdef F2PY_REPORT_ATEXIT
33415f2py_stop_clock();
33416#endif
33417 return capi_buildvalue;
33418}
33419/******************************* end of sgtsvx *******************************/
33420
33421/*********************************** dgtsvx ***********************************/
33422static char doc_f2py_rout__flapack_dgtsvx[] = "\
33423dlf,df,duf,du2,ipiv,x,rcond,ferr,berr,info = dgtsvx(dl,d,du,b,[fact,trans,dlf,df,duf,du2,ipiv])\n\nWrapper for ``dgtsvx``.\
33424\n\nParameters\n----------\n"
33425"dl : input rank-1 array('d') with bounds (MAX(0, n-1))\n"
33426"d : input rank-1 array('d') with bounds (n)\n"
33427"du : input rank-1 array('d') with bounds (MAX(0, n-1))\n"
33428"b : input rank-2 array('d') with bounds (ldb,nrhs)\n"
33429"\nOther Parameters\n----------------\n"
33430"fact : input string(len=1), optional\n Default: 'N'\n"
33431"trans : input string(len=1), optional\n Default: 'N'\n"
33432"dlf : input rank-1 array('d') with bounds (MAX(0,n-1))\n"
33433"df : input rank-1 array('d') with bounds (n)\n"
33434"duf : input rank-1 array('d') with bounds (MAX(0,n-1))\n"
33435"du2 : input rank-1 array('d') with bounds (MAX(0,n-2))\n"
33436"ipiv : input rank-1 array('i') with bounds (n)\n"
33437"\nReturns\n-------\n"
33438"dlf : rank-1 array('d') with bounds (MAX(0,n-1))\n"
33439"df : rank-1 array('d') with bounds (n)\n"
33440"duf : rank-1 array('d') with bounds (MAX(0,n-1))\n"
33441"du2 : rank-1 array('d') with bounds (MAX(0,n-2))\n"
33442"ipiv : rank-1 array('i') with bounds (n)\n"
33443"x : rank-2 array('d') with bounds (ldx,nrhs)\n"
33444"rcond : float\n"
33445"ferr : rank-1 array('d') with bounds (nrhs)\n"
33446"berr : rank-1 array('d') with bounds (nrhs)\n"
33447"info : int";
33448/* extern void F_FUNC(dgtsvx,DGTSVX)(char*,char*,F_INT*,F_INT*,double*,double*,double*,double*,double*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT* ); */
33449static PyObject *f2py_rout__flapack_dgtsvx(const PyObject *capi_self,
33450 PyObject *capi_args,
33451 PyObject *capi_keywds,
33452 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,double*,double*,double*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* )) {
33453 PyObject * volatile capi_buildvalue = NULL((void*)0);
33454 volatile int f2py_success = 1;
33455/*decl*/
33456
33457 string fact = NULL((void*)0);
33458 int slen(fact)capi_fact_len;
33459 PyObject *fact_capi = Py_None(&_Py_NoneStruct);
33460 string trans = NULL((void*)0);
33461 int slen(trans)capi_trans_len;
33462 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
33463 int n = 0;
33464 int nrhs = 0;
33465 double *dl = NULL((void*)0);
33466 npy_intp dl_Dims[1] = {-1};
33467 const int dl_Rank = 1;
33468 PyArrayObject *capi_dl_tmp = NULL((void*)0);
33469 int capi_dl_intent = 0;
33470 PyObject *dl_capi = Py_None(&_Py_NoneStruct);
33471 double *d = NULL((void*)0);
33472 npy_intp d_Dims[1] = {-1};
33473 const int d_Rank = 1;
33474 PyArrayObject *capi_d_tmp = NULL((void*)0);
33475 int capi_d_intent = 0;
33476 PyObject *d_capi = Py_None(&_Py_NoneStruct);
33477 double *du = NULL((void*)0);
33478 npy_intp du_Dims[1] = {-1};
33479 const int du_Rank = 1;
33480 PyArrayObject *capi_du_tmp = NULL((void*)0);
33481 int capi_du_intent = 0;
33482 PyObject *du_capi = Py_None(&_Py_NoneStruct);
33483 double *dlf = NULL((void*)0);
33484 npy_intp dlf_Dims[1] = {-1};
33485 const int dlf_Rank = 1;
33486 PyArrayObject *capi_dlf_tmp = NULL((void*)0);
33487 int capi_dlf_intent = 0;
33488 PyObject *dlf_capi = Py_None(&_Py_NoneStruct);
33489 double *df = NULL((void*)0);
33490 npy_intp df_Dims[1] = {-1};
33491 const int df_Rank = 1;
33492 PyArrayObject *capi_df_tmp = NULL((void*)0);
33493 int capi_df_intent = 0;
33494 PyObject *df_capi = Py_None(&_Py_NoneStruct);
33495 double *duf = NULL((void*)0);
33496 npy_intp duf_Dims[1] = {-1};
33497 const int duf_Rank = 1;
33498 PyArrayObject *capi_duf_tmp = NULL((void*)0);
33499 int capi_duf_intent = 0;
33500 PyObject *duf_capi = Py_None(&_Py_NoneStruct);
33501 double *du2 = NULL((void*)0);
33502 npy_intp du2_Dims[1] = {-1};
33503 const int du2_Rank = 1;
33504 PyArrayObject *capi_du2_tmp = NULL((void*)0);
33505 int capi_du2_intent = 0;
33506 PyObject *du2_capi = Py_None(&_Py_NoneStruct);
33507 int *ipiv = NULL((void*)0);
33508 npy_intp ipiv_Dims[1] = {-1};
33509 const int ipiv_Rank = 1;
33510 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
33511 int capi_ipiv_intent = 0;
33512 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
33513 double *b = NULL((void*)0);
33514 npy_intp b_Dims[2] = {-1, -1};
33515 const int b_Rank = 2;
33516 PyArrayObject *capi_b_tmp = NULL((void*)0);
33517 int capi_b_intent = 0;
33518 PyObject *b_capi = Py_None(&_Py_NoneStruct);
33519 int ldb = 0;
33520 double *x = NULL((void*)0);
33521 npy_intp x_Dims[2] = {-1, -1};
33522 const int x_Rank = 2;
33523 PyArrayObject *capi_x_tmp = NULL((void*)0);
33524 int capi_x_intent = 0;
33525 int ldx = 0;
33526 double rcond = 0;
33527 double *ferr = NULL((void*)0);
33528 npy_intp ferr_Dims[1] = {-1};
33529 const int ferr_Rank = 1;
33530 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
33531 int capi_ferr_intent = 0;
33532 double *berr = NULL((void*)0);
33533 npy_intp berr_Dims[1] = {-1};
33534 const int berr_Rank = 1;
33535 PyArrayObject *capi_berr_tmp = NULL((void*)0);
33536 int capi_berr_intent = 0;
33537 double *work = NULL((void*)0);
33538 npy_intp work_Dims[1] = {-1};
33539 const int work_Rank = 1;
33540 PyArrayObject *capi_work_tmp = NULL((void*)0);
33541 int capi_work_intent = 0;
33542 int *iwork = NULL((void*)0);
33543 npy_intp iwork_Dims[1] = {-1};
33544 const int iwork_Rank = 1;
33545 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
33546 int capi_iwork_intent = 0;
33547 int info = 0;
33548 static char *capi_kwlist[] = {"dl","d","du","b","fact","trans","dlf","df","duf","du2","ipiv",NULL((void*)0)};
33549
33550/*routdebugenter*/
33551#ifdef F2PY_REPORT_ATEXIT
33552f2py_start_clock();
33553#endif
33554 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
33555 "OOOO|OOOOOOO:_flapack.dgtsvx",\
33556 capi_kwlist,&dl_capi,&d_capi,&du_capi,&b_capi,&fact_capi,&trans_capi,&dlf_capi,&df_capi,&duf_capi,&du2_capi,&ipiv_capi))
33557 return NULL((void*)0);
33558/*frompyobj*/
33559 /* Processing variable d */
33560 ;
33561 capi_d_intent |= F2PY_INTENT_IN1;
33562 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
33563 if (capi_d_tmp == NULL((void*)0)) {
33564 if (!PyErr_Occurred())
33565 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.dgtsvx to C/Fortran array" );
33566 } else {
33567 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
33568
33569 /* Processing variable b */
33570 ;
33571 capi_b_intent |= F2PY_INTENT_IN1;
33572 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
33573 if (capi_b_tmp == NULL((void*)0)) {
33574 if (!PyErr_Occurred())
33575 PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.dgtsvx to C/Fortran array" );
33576 } else {
33577 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
33578
33579 /* Processing variable rcond */
33580 /* Processing variable info */
33581 /* Processing variable n */
33582 n = len(d)d_Dims[0];
33583 /* Processing variable nrhs */
33584 nrhs = shape(b, 1)b_Dims[1];
33585 /* Processing variable dl */
33586 dl_Dims[0]=MAX(0, n-1)((0 > n-1) ? (0) : (n-1));
33587 capi_dl_intent |= F2PY_INTENT_IN1;
33588 capi_dl_tmp = array_from_pyobj(NPY_DOUBLE,dl_Dims,dl_Rank,capi_dl_intent,dl_capi);
33589 if (capi_dl_tmp == NULL((void*)0)) {
33590 if (!PyErr_Occurred())
33591 PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.dgtsvx to C/Fortran array" );
33592 } else {
33593 dl = (double *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data));
33594
33595 /* Processing variable du */
33596 du_Dims[0]=MAX(0, n-1)((0 > n-1) ? (0) : (n-1));
33597 capi_du_intent |= F2PY_INTENT_IN1;
33598 capi_du_tmp = array_from_pyobj(NPY_DOUBLE,du_Dims,du_Rank,capi_du_intent,du_capi);
33599 if (capi_du_tmp == NULL((void*)0)) {
33600 if (!PyErr_Occurred())
33601 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.dgtsvx to C/Fortran array" );
33602 } else {
33603 du = (double *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data));
33604
33605 /* Processing variable dlf */
33606 dlf_Dims[0]=MAX(0,n-1)((0 > n-1) ? (0) : (n-1));
33607 capi_dlf_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
33608 capi_dlf_tmp = array_from_pyobj(NPY_DOUBLE,dlf_Dims,dlf_Rank,capi_dlf_intent,dlf_capi);
33609 if (capi_dlf_tmp == NULL((void*)0)) {
33610 if (!PyErr_Occurred())
33611 PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `dlf' of _flapack.dgtsvx to C/Fortran array" );
33612 } else {
33613 dlf = (double *)(PyArray_DATA(capi_dlf_tmp)((void *)((PyArrayObject_fields *)(capi_dlf_tmp))->data));
33614
33615 /* Processing variable df */
33616 df_Dims[0]=n;
33617 capi_df_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
33618 capi_df_tmp = array_from_pyobj(NPY_DOUBLE,df_Dims,df_Rank,capi_df_intent,df_capi);
33619 if (capi_df_tmp == NULL((void*)0)) {
33620 if (!PyErr_Occurred())
33621 PyErr_SetString(_flapack_error,"failed in converting 4th keyword `df' of _flapack.dgtsvx to C/Fortran array" );
33622 } else {
33623 df = (double *)(PyArray_DATA(capi_df_tmp)((void *)((PyArrayObject_fields *)(capi_df_tmp))->data));
33624
33625 /* Processing variable duf */
33626 duf_Dims[0]=MAX(0,n-1)((0 > n-1) ? (0) : (n-1));
33627 capi_duf_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
33628 capi_duf_tmp = array_from_pyobj(NPY_DOUBLE,duf_Dims,duf_Rank,capi_duf_intent,duf_capi);
33629 if (capi_duf_tmp == NULL((void*)0)) {
33630 if (!PyErr_Occurred())
33631 PyErr_SetString(_flapack_error,"failed in converting 5th keyword `duf' of _flapack.dgtsvx to C/Fortran array" );
33632 } else {
33633 duf = (double *)(PyArray_DATA(capi_duf_tmp)((void *)((PyArrayObject_fields *)(capi_duf_tmp))->data));
33634
33635 /* Processing variable du2 */
33636 du2_Dims[0]=MAX(0,n-2)((0 > n-2) ? (0) : (n-2));
33637 capi_du2_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
33638 capi_du2_tmp = array_from_pyobj(NPY_DOUBLE,du2_Dims,du2_Rank,capi_du2_intent,du2_capi);
33639 if (capi_du2_tmp == NULL((void*)0)) {
33640 if (!PyErr_Occurred())
33641 PyErr_SetString(_flapack_error,"failed in converting 6th keyword `du2' of _flapack.dgtsvx to C/Fortran array" );
33642 } else {
33643 du2 = (double *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data));
33644
33645 /* Processing variable ipiv */
33646 ipiv_Dims[0]=n;
33647 capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
33648 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
33649 if (capi_ipiv_tmp == NULL((void*)0)) {
33650 if (!PyErr_Occurred())
33651 PyErr_SetString(_flapack_error,"failed in converting 7th keyword `ipiv' of _flapack.dgtsvx to C/Fortran array" );
33652 } else {
33653 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
33654
33655 /* Processing variable ldb */
33656 ldb = max(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
33657 CHECKSCALAR(ldb >= n,"ldb >= n","hidden ldb","dgtsvx:ldb=%d",ldb)if (!(ldb >= n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgtsvx:ldb=%d", "(""ldb >= n"") failed for ""hidden ldb"
, ldb); PyErr_SetString(_flapack_error,errstring); } else
{
33658 /* Processing variable ldx */
33659 ldx = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
33660 /* Processing variable ferr */
33661 ferr_Dims[0]=nrhs;
33662 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
33663 capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
33664 if (capi_ferr_tmp == NULL((void*)0)) {
33665 if (!PyErr_Occurred())
33666 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.dgtsvx to C/Fortran array" );
33667 } else {
33668 ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
33669
33670 /* Processing variable berr */
33671 berr_Dims[0]=nrhs;
33672 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
33673 capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
33674 if (capi_berr_tmp == NULL((void*)0)) {
33675 if (!PyErr_Occurred())
33676 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.dgtsvx to C/Fortran array" );
33677 } else {
33678 berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
33679
33680 /* Processing variable work */
33681 work_Dims[0]=3 * n;
33682 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
33683 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
33684 if (capi_work_tmp == NULL((void*)0)) {
33685 if (!PyErr_Occurred())
33686 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgtsvx to C/Fortran array" );
33687 } else {
33688 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
33689
33690 /* Processing variable iwork */
33691 iwork_Dims[0]=n;
33692 capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
33693 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
33694 if (capi_iwork_tmp == NULL((void*)0)) {
33695 if (!PyErr_Occurred())
33696 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dgtsvx to C/Fortran array" );
33697 } else {
33698 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
33699
33700 /* Processing variable fact */
33701 slen(fact)capi_fact_len = 1;
33702 f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"N",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.dgtsvx to C string");
33703 if (f2py_success) {
33704 CHECKSTRING(*fact=='F'||*fact=='N',"*fact=='F'||*fact=='N'","1st keyword fact","dgtsvx:slen(fact)=%d fact=\"%s\"",fact)if (!(*fact=='F'||*fact=='N')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgtsvx:slen(fact)=%d fact=\"%s\"", "(""*fact=='F'||*fact=='N'"
") failed for ""1st keyword fact", capi_fact_len, fact); PyErr_SetString
(_flapack_error, errstring); } else
{
33705 /* Processing variable trans */
33706 slen(trans)capi_trans_len = 1;
33707 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.dgtsvx to C string");
33708 if (f2py_success) {
33709 CHECKSTRING(*trans=='N'||*trans=='C'||*trans=='T',"*trans=='N'||*trans=='C'||*trans=='T'","2nd keyword trans","dgtsvx:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C'||*trans=='T')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dgtsvx:slen(trans)=%d trans=\"%s\""
, "(""*trans=='N'||*trans=='C'||*trans=='T'"") failed for ""2nd keyword trans"
, capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring
); } else
{
33710 /* Processing variable x */
33711 x_Dims[0]=ldx,x_Dims[1]=nrhs;
33712 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
33713 capi_x_tmp = array_from_pyobj(NPY_DOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
33714 if (capi_x_tmp == NULL((void*)0)) {
33715 if (!PyErr_Occurred())
33716 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.dgtsvx to C/Fortran array" );
33717 } else {
33718 x = (double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
33719
33720/*end of frompyobj*/
33721#ifdef F2PY_REPORT_ATEXIT
33722f2py_start_call_clock();
33723#endif
33724/*callfortranroutine*/
33725 (*f2py_func)(fact,trans,&n,&nrhs,dl,d,du,dlf,df,duf,du2,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,iwork,&info); ;
33726 /*(*f2py_func)(fact,trans,&n,&nrhs,dl,d,du,dlf,df,duf,du2,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,iwork,&info,slen(fact),slen(trans));*/
33727if (PyErr_Occurred())
33728 f2py_success = 0;
33729#ifdef F2PY_REPORT_ATEXIT
33730f2py_stop_call_clock();
33731#endif
33732/*end of callfortranroutine*/
33733 if (f2py_success) {
33734/*pyobjfrom*/
33735/*end of pyobjfrom*/
33736 CFUNCSMESS("Building return value.\n");
33737 capi_buildvalue = Py_BuildValue("NNNNNNdNNi",capi_dlf_tmp,capi_df_tmp,capi_duf_tmp,capi_du2_tmp,capi_ipiv_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
33738/*closepyobjfrom*/
33739/*end of closepyobjfrom*/
33740 } /*if (f2py_success) after callfortranroutine*/
33741/*cleanupfrompyobj*/
33742 } /*if (capi_x_tmp == NULL) ... else of x*/
33743 /* End of cleaning variable x */
33744 } /*CHECKSTRING(*trans=='N'||*trans=='C'||*trans=='T')*/
33745 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
33746 } /*if (f2py_success) of trans*/
33747 /* End of cleaning variable trans */
33748 } /*CHECKSTRING(*fact=='F'||*fact=='N')*/
33749 STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0);
33750 } /*if (f2py_success) of fact*/
33751 /* End of cleaning variable fact */
33752 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
33753 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
33754 /* End of cleaning variable iwork */
33755 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
33756 } /*if (capi_work_tmp == NULL) ... else of work*/
33757 /* End of cleaning variable work */
33758 } /*if (capi_berr_tmp == NULL) ... else of berr*/
33759 /* End of cleaning variable berr */
33760 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
33761 /* End of cleaning variable ferr */
33762 /* End of cleaning variable ldx */
33763 } /*CHECKSCALAR(ldb >= n)*/
33764 /* End of cleaning variable ldb */
33765 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
33766 /* End of cleaning variable ipiv */
33767 } /*if (capi_du2_tmp == NULL) ... else of du2*/
33768 /* End of cleaning variable du2 */
33769 } /*if (capi_duf_tmp == NULL) ... else of duf*/
33770 /* End of cleaning variable duf */
33771 } /*if (capi_df_tmp == NULL) ... else of df*/
33772 /* End of cleaning variable df */
33773 } /*if (capi_dlf_tmp == NULL) ... else of dlf*/
33774 /* End of cleaning variable dlf */
33775 if((PyObject *)capi_du_tmp!=du_capi) {
33776 Py_XDECREF(capi_du_tmp)_Py_XDECREF(((PyObject*)(capi_du_tmp))); }
33777 } /*if (capi_du_tmp == NULL) ... else of du*/
33778 /* End of cleaning variable du */
33779 if((PyObject *)capi_dl_tmp!=dl_capi) {
33780 Py_XDECREF(capi_dl_tmp)_Py_XDECREF(((PyObject*)(capi_dl_tmp))); }
33781 } /*if (capi_dl_tmp == NULL) ... else of dl*/
33782 /* End of cleaning variable dl */
33783 /* End of cleaning variable nrhs */
33784 /* End of cleaning variable n */
33785 /* End of cleaning variable info */
33786 /* End of cleaning variable rcond */
33787 if((PyObject *)capi_b_tmp!=b_capi) {
33788 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
33789 } /*if (capi_b_tmp == NULL) ... else of b*/
33790 /* End of cleaning variable b */
33791 if((PyObject *)capi_d_tmp!=d_capi) {
33792 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
33793 } /*if (capi_d_tmp == NULL) ... else of d*/
33794 /* End of cleaning variable d */
33795/*end of cleanupfrompyobj*/
33796 if (capi_buildvalue == NULL((void*)0)) {
33797/*routdebugfailure*/
33798 } else {
33799/*routdebugleave*/
33800 }
33801 CFUNCSMESS("Freeing memory.\n");
33802/*freemem*/
33803#ifdef F2PY_REPORT_ATEXIT
33804f2py_stop_clock();
33805#endif
33806 return capi_buildvalue;
33807}
33808/******************************* end of dgtsvx *******************************/
33809
33810/*********************************** cgtsvx ***********************************/
33811static char doc_f2py_rout__flapack_cgtsvx[] = "\
33812dlf,df,duf,du2,ipiv,x,rcond,ferr,berr,info = cgtsvx(dl,d,du,b,[fact,trans,dlf,df,duf,du2,ipiv])\n\nWrapper for ``cgtsvx``.\
33813\n\nParameters\n----------\n"
33814"dl : input rank-1 array('F') with bounds (MAX(0, n-1))\n"
33815"d : input rank-1 array('F') with bounds (n)\n"
33816"du : input rank-1 array('F') with bounds (MAX(0, n-1))\n"
33817"b : input rank-2 array('F') with bounds (ldb,nrhs)\n"
33818"\nOther Parameters\n----------------\n"
33819"fact : input string(len=1), optional\n Default: 'N'\n"
33820"trans : input string(len=1), optional\n Default: 'N'\n"
33821"dlf : input rank-1 array('F') with bounds (MAX(0,n-1))\n"
33822"df : input rank-1 array('F') with bounds (n)\n"
33823"duf : input rank-1 array('F') with bounds (MAX(0,n-1))\n"
33824"du2 : input rank-1 array('F') with bounds (MAX(0,n-2))\n"
33825"ipiv : input rank-1 array('i') with bounds (n)\n"
33826"\nReturns\n-------\n"
33827"dlf : rank-1 array('F') with bounds (MAX(0,n-1))\n"
33828"df : rank-1 array('F') with bounds (n)\n"
33829"duf : rank-1 array('F') with bounds (MAX(0,n-1))\n"
33830"du2 : rank-1 array('F') with bounds (MAX(0,n-2))\n"
33831"ipiv : rank-1 array('i') with bounds (n)\n"
33832"x : rank-2 array('F') with bounds (ldx,nrhs)\n"
33833"rcond : float\n"
33834"ferr : rank-1 array('f') with bounds (nrhs)\n"
33835"berr : rank-1 array('f') with bounds (nrhs)\n"
33836"info : int";
33837/* extern void F_FUNC(cgtsvx,CGTSVX)(char*,char*,F_INT*,F_INT*,complex_float*,complex_float*,complex_float*,complex_float*,complex_float*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,float*,complex_float*,float*,F_INT* ); */
33838static PyObject *f2py_rout__flapack_cgtsvx(const PyObject *capi_self,
33839 PyObject *capi_args,
33840 PyObject *capi_keywds,
33841 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,complex_float*,complex_float*,complex_float*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,float*,F_INTint* )) {
33842 PyObject * volatile capi_buildvalue = NULL((void*)0);
33843 volatile int f2py_success = 1;
33844/*decl*/
33845
33846 string fact = NULL((void*)0);
33847 int slen(fact)capi_fact_len;
33848 PyObject *fact_capi = Py_None(&_Py_NoneStruct);
33849 string trans = NULL((void*)0);
33850 int slen(trans)capi_trans_len;
33851 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
33852 int n = 0;
33853 int nrhs = 0;
33854 complex_float *dl = NULL((void*)0);
33855 npy_intp dl_Dims[1] = {-1};
33856 const int dl_Rank = 1;
33857 PyArrayObject *capi_dl_tmp = NULL((void*)0);
33858 int capi_dl_intent = 0;
33859 PyObject *dl_capi = Py_None(&_Py_NoneStruct);
33860 complex_float *d = NULL((void*)0);
33861 npy_intp d_Dims[1] = {-1};
33862 const int d_Rank = 1;
33863 PyArrayObject *capi_d_tmp = NULL((void*)0);
33864 int capi_d_intent = 0;
33865 PyObject *d_capi = Py_None(&_Py_NoneStruct);
33866 complex_float *du = NULL((void*)0);
33867 npy_intp du_Dims[1] = {-1};
33868 const int du_Rank = 1;
33869 PyArrayObject *capi_du_tmp = NULL((void*)0);
33870 int capi_du_intent = 0;
33871 PyObject *du_capi = Py_None(&_Py_NoneStruct);
33872 complex_float *dlf = NULL((void*)0);
33873 npy_intp dlf_Dims[1] = {-1};
33874 const int dlf_Rank = 1;
33875 PyArrayObject *capi_dlf_tmp = NULL((void*)0);
33876 int capi_dlf_intent = 0;
33877 PyObject *dlf_capi = Py_None(&_Py_NoneStruct);
33878 complex_float *df = NULL((void*)0);
33879 npy_intp df_Dims[1] = {-1};
33880 const int df_Rank = 1;
33881 PyArrayObject *capi_df_tmp = NULL((void*)0);
33882 int capi_df_intent = 0;
33883 PyObject *df_capi = Py_None(&_Py_NoneStruct);
33884 complex_float *duf = NULL((void*)0);
33885 npy_intp duf_Dims[1] = {-1};
33886 const int duf_Rank = 1;
33887 PyArrayObject *capi_duf_tmp = NULL((void*)0);
33888 int capi_duf_intent = 0;
33889 PyObject *duf_capi = Py_None(&_Py_NoneStruct);
33890 complex_float *du2 = NULL((void*)0);
33891 npy_intp du2_Dims[1] = {-1};
33892 const int du2_Rank = 1;
33893 PyArrayObject *capi_du2_tmp = NULL((void*)0);
33894 int capi_du2_intent = 0;
33895 PyObject *du2_capi = Py_None(&_Py_NoneStruct);
33896 int *ipiv = NULL((void*)0);
33897 npy_intp ipiv_Dims[1] = {-1};
33898 const int ipiv_Rank = 1;
33899 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
33900 int capi_ipiv_intent = 0;
33901 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
33902 complex_float *b = NULL((void*)0);
33903 npy_intp b_Dims[2] = {-1, -1};
33904 const int b_Rank = 2;
33905 PyArrayObject *capi_b_tmp = NULL((void*)0);
33906 int capi_b_intent = 0;
33907 PyObject *b_capi = Py_None(&_Py_NoneStruct);
33908 int ldb = 0;
33909 complex_float *x = NULL((void*)0);
33910 npy_intp x_Dims[2] = {-1, -1};
33911 const int x_Rank = 2;
33912 PyArrayObject *capi_x_tmp = NULL((void*)0);
33913 int capi_x_intent = 0;
33914 int ldx = 0;
33915 float rcond = 0;
33916 float *ferr = NULL((void*)0);
33917 npy_intp ferr_Dims[1] = {-1};
33918 const int ferr_Rank = 1;
33919 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
33920 int capi_ferr_intent = 0;
33921 float *berr = NULL((void*)0);
33922 npy_intp berr_Dims[1] = {-1};
33923 const int berr_Rank = 1;
33924 PyArrayObject *capi_berr_tmp = NULL((void*)0);
33925 int capi_berr_intent = 0;
33926 complex_float *work = NULL((void*)0);
33927 npy_intp work_Dims[1] = {-1};
33928 const int work_Rank = 1;
33929 PyArrayObject *capi_work_tmp = NULL((void*)0);
33930 int capi_work_intent = 0;
33931 float *rwork = NULL((void*)0);
33932 npy_intp rwork_Dims[1] = {-1};
33933 const int rwork_Rank = 1;
33934 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
33935 int capi_rwork_intent = 0;
33936 int info = 0;
33937 static char *capi_kwlist[] = {"dl","d","du","b","fact","trans","dlf","df","duf","du2","ipiv",NULL((void*)0)};
33938
33939/*routdebugenter*/
33940#ifdef F2PY_REPORT_ATEXIT
33941f2py_start_clock();
33942#endif
33943 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
33944 "OOOO|OOOOOOO:_flapack.cgtsvx",\
33945 capi_kwlist,&dl_capi,&d_capi,&du_capi,&b_capi,&fact_capi,&trans_capi,&dlf_capi,&df_capi,&duf_capi,&du2_capi,&ipiv_capi))
33946 return NULL((void*)0);
33947/*frompyobj*/
33948 /* Processing variable d */
33949 ;
33950 capi_d_intent |= F2PY_INTENT_IN1;
33951 capi_d_tmp = array_from_pyobj(NPY_CFLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
33952 if (capi_d_tmp == NULL((void*)0)) {
33953 if (!PyErr_Occurred())
33954 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.cgtsvx to C/Fortran array" );
33955 } else {
33956 d = (complex_float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
33957
33958 /* Processing variable b */
33959 ;
33960 capi_b_intent |= F2PY_INTENT_IN1;
33961 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
33962 if (capi_b_tmp == NULL((void*)0)) {
33963 if (!PyErr_Occurred())
33964 PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.cgtsvx to C/Fortran array" );
33965 } else {
33966 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
33967
33968 /* Processing variable rcond */
33969 /* Processing variable info */
33970 /* Processing variable n */
33971 n = len(d)d_Dims[0];
33972 /* Processing variable nrhs */
33973 nrhs = shape(b, 1)b_Dims[1];
33974 /* Processing variable dl */
33975 dl_Dims[0]=MAX(0, n-1)((0 > n-1) ? (0) : (n-1));
33976 capi_dl_intent |= F2PY_INTENT_IN1;
33977 capi_dl_tmp = array_from_pyobj(NPY_CFLOAT,dl_Dims,dl_Rank,capi_dl_intent,dl_capi);
33978 if (capi_dl_tmp == NULL((void*)0)) {
33979 if (!PyErr_Occurred())
33980 PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.cgtsvx to C/Fortran array" );
33981 } else {
33982 dl = (complex_float *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data));
33983
33984 /* Processing variable du */
33985 du_Dims[0]=MAX(0, n-1)((0 > n-1) ? (0) : (n-1));
33986 capi_du_intent |= F2PY_INTENT_IN1;
33987 capi_du_tmp = array_from_pyobj(NPY_CFLOAT,du_Dims,du_Rank,capi_du_intent,du_capi);
33988 if (capi_du_tmp == NULL((void*)0)) {
33989 if (!PyErr_Occurred())
33990 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.cgtsvx to C/Fortran array" );
33991 } else {
33992 du = (complex_float *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data));
33993
33994 /* Processing variable dlf */
33995 dlf_Dims[0]=MAX(0,n-1)((0 > n-1) ? (0) : (n-1));
33996 capi_dlf_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
33997 capi_dlf_tmp = array_from_pyobj(NPY_CFLOAT,dlf_Dims,dlf_Rank,capi_dlf_intent,dlf_capi);
33998 if (capi_dlf_tmp == NULL((void*)0)) {
33999 if (!PyErr_Occurred())
34000 PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `dlf' of _flapack.cgtsvx to C/Fortran array" );
34001 } else {
34002 dlf = (complex_float *)(PyArray_DATA(capi_dlf_tmp)((void *)((PyArrayObject_fields *)(capi_dlf_tmp))->data));
34003
34004 /* Processing variable df */
34005 df_Dims[0]=n;
34006 capi_df_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
34007 capi_df_tmp = array_from_pyobj(NPY_CFLOAT,df_Dims,df_Rank,capi_df_intent,df_capi);
34008 if (capi_df_tmp == NULL((void*)0)) {
34009 if (!PyErr_Occurred())
34010 PyErr_SetString(_flapack_error,"failed in converting 4th keyword `df' of _flapack.cgtsvx to C/Fortran array" );
34011 } else {
34012 df = (complex_float *)(PyArray_DATA(capi_df_tmp)((void *)((PyArrayObject_fields *)(capi_df_tmp))->data));
34013
34014 /* Processing variable duf */
34015 duf_Dims[0]=MAX(0,n-1)((0 > n-1) ? (0) : (n-1));
34016 capi_duf_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
34017 capi_duf_tmp = array_from_pyobj(NPY_CFLOAT,duf_Dims,duf_Rank,capi_duf_intent,duf_capi);
34018 if (capi_duf_tmp == NULL((void*)0)) {
34019 if (!PyErr_Occurred())
34020 PyErr_SetString(_flapack_error,"failed in converting 5th keyword `duf' of _flapack.cgtsvx to C/Fortran array" );
34021 } else {
34022 duf = (complex_float *)(PyArray_DATA(capi_duf_tmp)((void *)((PyArrayObject_fields *)(capi_duf_tmp))->data));
34023
34024 /* Processing variable du2 */
34025 du2_Dims[0]=MAX(0,n-2)((0 > n-2) ? (0) : (n-2));
34026 capi_du2_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
34027 capi_du2_tmp = array_from_pyobj(NPY_CFLOAT,du2_Dims,du2_Rank,capi_du2_intent,du2_capi);
34028 if (capi_du2_tmp == NULL((void*)0)) {
34029 if (!PyErr_Occurred())
34030 PyErr_SetString(_flapack_error,"failed in converting 6th keyword `du2' of _flapack.cgtsvx to C/Fortran array" );
34031 } else {
34032 du2 = (complex_float *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data));
34033
34034 /* Processing variable ipiv */
34035 ipiv_Dims[0]=n;
34036 capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
34037 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
34038 if (capi_ipiv_tmp == NULL((void*)0)) {
34039 if (!PyErr_Occurred())
34040 PyErr_SetString(_flapack_error,"failed in converting 7th keyword `ipiv' of _flapack.cgtsvx to C/Fortran array" );
34041 } else {
34042 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
34043
34044 /* Processing variable ldb */
34045 ldb = max(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
34046 CHECKSCALAR(ldb >= n,"ldb >= n","hidden ldb","cgtsvx:ldb=%d",ldb)if (!(ldb >= n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgtsvx:ldb=%d", "(""ldb >= n"") failed for ""hidden ldb"
, ldb); PyErr_SetString(_flapack_error,errstring); } else
{
34047 /* Processing variable ldx */
34048 ldx = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
34049 /* Processing variable ferr */
34050 ferr_Dims[0]=nrhs;
34051 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
34052 capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
34053 if (capi_ferr_tmp == NULL((void*)0)) {
34054 if (!PyErr_Occurred())
34055 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.cgtsvx to C/Fortran array" );
34056 } else {
34057 ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
34058
34059 /* Processing variable berr */
34060 berr_Dims[0]=nrhs;
34061 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
34062 capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
34063 if (capi_berr_tmp == NULL((void*)0)) {
34064 if (!PyErr_Occurred())
34065 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.cgtsvx to C/Fortran array" );
34066 } else {
34067 berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
34068
34069 /* Processing variable work */
34070 work_Dims[0]=2 * n;
34071 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
34072 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
34073 if (capi_work_tmp == NULL((void*)0)) {
34074 if (!PyErr_Occurred())
34075 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgtsvx to C/Fortran array" );
34076 } else {
34077 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
34078
34079 /* Processing variable rwork */
34080 rwork_Dims[0]=n;
34081 capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
34082 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
34083 if (capi_rwork_tmp == NULL((void*)0)) {
34084 if (!PyErr_Occurred())
34085 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cgtsvx to C/Fortran array" );
34086 } else {
34087 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
34088
34089 /* Processing variable fact */
34090 slen(fact)capi_fact_len = 1;
34091 f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"N",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.cgtsvx to C string");
34092 if (f2py_success) {
34093 CHECKSTRING(*fact=='F'||*fact=='N',"*fact=='F'||*fact=='N'","1st keyword fact","cgtsvx:slen(fact)=%d fact=\"%s\"",fact)if (!(*fact=='F'||*fact=='N')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgtsvx:slen(fact)=%d fact=\"%s\"", "(""*fact=='F'||*fact=='N'"
") failed for ""1st keyword fact", capi_fact_len, fact); PyErr_SetString
(_flapack_error, errstring); } else
{
34094 /* Processing variable trans */
34095 slen(trans)capi_trans_len = 1;
34096 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.cgtsvx to C string");
34097 if (f2py_success) {
34098 CHECKSTRING(*trans=='N'||*trans=='C'||*trans=='T',"*trans=='N'||*trans=='C'||*trans=='T'","2nd keyword trans","cgtsvx:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C'||*trans=='T')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""cgtsvx:slen(trans)=%d trans=\"%s\""
, "(""*trans=='N'||*trans=='C'||*trans=='T'"") failed for ""2nd keyword trans"
, capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring
); } else
{
34099 /* Processing variable x */
34100 x_Dims[0]=ldx,x_Dims[1]=nrhs;
34101 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
34102 capi_x_tmp = array_from_pyobj(NPY_CFLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
34103 if (capi_x_tmp == NULL((void*)0)) {
34104 if (!PyErr_Occurred())
34105 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.cgtsvx to C/Fortran array" );
34106 } else {
34107 x = (complex_float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
34108
34109/*end of frompyobj*/
34110#ifdef F2PY_REPORT_ATEXIT
34111f2py_start_call_clock();
34112#endif
34113/*callfortranroutine*/
34114 (*f2py_func)(fact,trans,&n,&nrhs,dl,d,du,dlf,df,duf,du2,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,rwork,&info); ;
34115 /*(*f2py_func)(fact,trans,&n,&nrhs,dl,d,du,dlf,df,duf,du2,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,rwork,&info,slen(fact),slen(trans));*/
34116if (PyErr_Occurred())
34117 f2py_success = 0;
34118#ifdef F2PY_REPORT_ATEXIT
34119f2py_stop_call_clock();
34120#endif
34121/*end of callfortranroutine*/
34122 if (f2py_success) {
34123/*pyobjfrom*/
34124/*end of pyobjfrom*/
34125 CFUNCSMESS("Building return value.\n");
34126 capi_buildvalue = Py_BuildValue("NNNNNNfNNi",capi_dlf_tmp,capi_df_tmp,capi_duf_tmp,capi_du2_tmp,capi_ipiv_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
34127/*closepyobjfrom*/
34128/*end of closepyobjfrom*/
34129 } /*if (f2py_success) after callfortranroutine*/
34130/*cleanupfrompyobj*/
34131 } /*if (capi_x_tmp == NULL) ... else of x*/
34132 /* End of cleaning variable x */
34133 } /*CHECKSTRING(*trans=='N'||*trans=='C'||*trans=='T')*/
34134 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
34135 } /*if (f2py_success) of trans*/
34136 /* End of cleaning variable trans */
34137 } /*CHECKSTRING(*fact=='F'||*fact=='N')*/
34138 STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0);
34139 } /*if (f2py_success) of fact*/
34140 /* End of cleaning variable fact */
34141 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
34142 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
34143 /* End of cleaning variable rwork */
34144 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
34145 } /*if (capi_work_tmp == NULL) ... else of work*/
34146 /* End of cleaning variable work */
34147 } /*if (capi_berr_tmp == NULL) ... else of berr*/
34148 /* End of cleaning variable berr */
34149 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
34150 /* End of cleaning variable ferr */
34151 /* End of cleaning variable ldx */
34152 } /*CHECKSCALAR(ldb >= n)*/
34153 /* End of cleaning variable ldb */
34154 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
34155 /* End of cleaning variable ipiv */
34156 } /*if (capi_du2_tmp == NULL) ... else of du2*/
34157 /* End of cleaning variable du2 */
34158 } /*if (capi_duf_tmp == NULL) ... else of duf*/
34159 /* End of cleaning variable duf */
34160 } /*if (capi_df_tmp == NULL) ... else of df*/
34161 /* End of cleaning variable df */
34162 } /*if (capi_dlf_tmp == NULL) ... else of dlf*/
34163 /* End of cleaning variable dlf */
34164 if((PyObject *)capi_du_tmp!=du_capi) {
34165 Py_XDECREF(capi_du_tmp)_Py_XDECREF(((PyObject*)(capi_du_tmp))); }
34166 } /*if (capi_du_tmp == NULL) ... else of du*/
34167 /* End of cleaning variable du */
34168 if((PyObject *)capi_dl_tmp!=dl_capi) {
34169 Py_XDECREF(capi_dl_tmp)_Py_XDECREF(((PyObject*)(capi_dl_tmp))); }
34170 } /*if (capi_dl_tmp == NULL) ... else of dl*/
34171 /* End of cleaning variable dl */
34172 /* End of cleaning variable nrhs */
34173 /* End of cleaning variable n */
34174 /* End of cleaning variable info */
34175 /* End of cleaning variable rcond */
34176 if((PyObject *)capi_b_tmp!=b_capi) {
34177 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
34178 } /*if (capi_b_tmp == NULL) ... else of b*/
34179 /* End of cleaning variable b */
34180 if((PyObject *)capi_d_tmp!=d_capi) {
34181 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
34182 } /*if (capi_d_tmp == NULL) ... else of d*/
34183 /* End of cleaning variable d */
34184/*end of cleanupfrompyobj*/
34185 if (capi_buildvalue == NULL((void*)0)) {
34186/*routdebugfailure*/
34187 } else {
34188/*routdebugleave*/
34189 }
34190 CFUNCSMESS("Freeing memory.\n");
34191/*freemem*/
34192#ifdef F2PY_REPORT_ATEXIT
34193f2py_stop_clock();
34194#endif
34195 return capi_buildvalue;
34196}
34197/******************************* end of cgtsvx *******************************/
34198
34199/*********************************** zgtsvx ***********************************/
34200static char doc_f2py_rout__flapack_zgtsvx[] = "\
34201dlf,df,duf,du2,ipiv,x,rcond,ferr,berr,info = zgtsvx(dl,d,du,b,[fact,trans,dlf,df,duf,du2,ipiv])\n\nWrapper for ``zgtsvx``.\
34202\n\nParameters\n----------\n"
34203"dl : input rank-1 array('D') with bounds (MAX(0, n-1))\n"
34204"d : input rank-1 array('D') with bounds (n)\n"
34205"du : input rank-1 array('D') with bounds (MAX(0, n-1))\n"
34206"b : input rank-2 array('D') with bounds (ldb,nrhs)\n"
34207"\nOther Parameters\n----------------\n"
34208"fact : input string(len=1), optional\n Default: 'N'\n"
34209"trans : input string(len=1), optional\n Default: 'N'\n"
34210"dlf : input rank-1 array('D') with bounds (MAX(0,n-1))\n"
34211"df : input rank-1 array('D') with bounds (n)\n"
34212"duf : input rank-1 array('D') with bounds (MAX(0,n-1))\n"
34213"du2 : input rank-1 array('D') with bounds (MAX(0,n-2))\n"
34214"ipiv : input rank-1 array('i') with bounds (n)\n"
34215"\nReturns\n-------\n"
34216"dlf : rank-1 array('D') with bounds (MAX(0,n-1))\n"
34217"df : rank-1 array('D') with bounds (n)\n"
34218"duf : rank-1 array('D') with bounds (MAX(0,n-1))\n"
34219"du2 : rank-1 array('D') with bounds (MAX(0,n-2))\n"
34220"ipiv : rank-1 array('i') with bounds (n)\n"
34221"x : rank-2 array('D') with bounds (ldx,nrhs)\n"
34222"rcond : float\n"
34223"ferr : rank-1 array('d') with bounds (nrhs)\n"
34224"berr : rank-1 array('d') with bounds (nrhs)\n"
34225"info : int";
34226/* extern void F_FUNC(zgtsvx,ZGTSVX)(char*,char*,F_INT*,F_INT*,complex_double*,complex_double*,complex_double*,complex_double*,complex_double*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,double*,complex_double*,double*,F_INT* ); */
34227static PyObject *f2py_rout__flapack_zgtsvx(const PyObject *capi_self,
34228 PyObject *capi_args,
34229 PyObject *capi_keywds,
34230 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,complex_double*,complex_double*,complex_double*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,double*,F_INTint* )) {
34231 PyObject * volatile capi_buildvalue = NULL((void*)0);
34232 volatile int f2py_success = 1;
34233/*decl*/
34234
34235 string fact = NULL((void*)0);
34236 int slen(fact)capi_fact_len;
34237 PyObject *fact_capi = Py_None(&_Py_NoneStruct);
34238 string trans = NULL((void*)0);
34239 int slen(trans)capi_trans_len;
34240 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
34241 int n = 0;
34242 int nrhs = 0;
34243 complex_double *dl = NULL((void*)0);
34244 npy_intp dl_Dims[1] = {-1};
34245 const int dl_Rank = 1;
34246 PyArrayObject *capi_dl_tmp = NULL((void*)0);
34247 int capi_dl_intent = 0;
34248 PyObject *dl_capi = Py_None(&_Py_NoneStruct);
34249 complex_double *d = NULL((void*)0);
34250 npy_intp d_Dims[1] = {-1};
34251 const int d_Rank = 1;
34252 PyArrayObject *capi_d_tmp = NULL((void*)0);
34253 int capi_d_intent = 0;
34254 PyObject *d_capi = Py_None(&_Py_NoneStruct);
34255 complex_double *du = NULL((void*)0);
34256 npy_intp du_Dims[1] = {-1};
34257 const int du_Rank = 1;
34258 PyArrayObject *capi_du_tmp = NULL((void*)0);
34259 int capi_du_intent = 0;
34260 PyObject *du_capi = Py_None(&_Py_NoneStruct);
34261 complex_double *dlf = NULL((void*)0);
34262 npy_intp dlf_Dims[1] = {-1};
34263 const int dlf_Rank = 1;
34264 PyArrayObject *capi_dlf_tmp = NULL((void*)0);
34265 int capi_dlf_intent = 0;
34266 PyObject *dlf_capi = Py_None(&_Py_NoneStruct);
34267 complex_double *df = NULL((void*)0);
34268 npy_intp df_Dims[1] = {-1};
34269 const int df_Rank = 1;
34270 PyArrayObject *capi_df_tmp = NULL((void*)0);
34271 int capi_df_intent = 0;
34272 PyObject *df_capi = Py_None(&_Py_NoneStruct);
34273 complex_double *duf = NULL((void*)0);
34274 npy_intp duf_Dims[1] = {-1};
34275 const int duf_Rank = 1;
34276 PyArrayObject *capi_duf_tmp = NULL((void*)0);
34277 int capi_duf_intent = 0;
34278 PyObject *duf_capi = Py_None(&_Py_NoneStruct);
34279 complex_double *du2 = NULL((void*)0);
34280 npy_intp du2_Dims[1] = {-1};
34281 const int du2_Rank = 1;
34282 PyArrayObject *capi_du2_tmp = NULL((void*)0);
34283 int capi_du2_intent = 0;
34284 PyObject *du2_capi = Py_None(&_Py_NoneStruct);
34285 int *ipiv = NULL((void*)0);
34286 npy_intp ipiv_Dims[1] = {-1};
34287 const int ipiv_Rank = 1;
34288 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
34289 int capi_ipiv_intent = 0;
34290 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
34291 complex_double *b = NULL((void*)0);
34292 npy_intp b_Dims[2] = {-1, -1};
34293 const int b_Rank = 2;
34294 PyArrayObject *capi_b_tmp = NULL((void*)0);
34295 int capi_b_intent = 0;
34296 PyObject *b_capi = Py_None(&_Py_NoneStruct);
34297 int ldb = 0;
34298 complex_double *x = NULL((void*)0);
34299 npy_intp x_Dims[2] = {-1, -1};
34300 const int x_Rank = 2;
34301 PyArrayObject *capi_x_tmp = NULL((void*)0);
34302 int capi_x_intent = 0;
34303 int ldx = 0;
34304 double rcond = 0;
34305 double *ferr = NULL((void*)0);
34306 npy_intp ferr_Dims[1] = {-1};
34307 const int ferr_Rank = 1;
34308 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
34309 int capi_ferr_intent = 0;
34310 double *berr = NULL((void*)0);
34311 npy_intp berr_Dims[1] = {-1};
34312 const int berr_Rank = 1;
34313 PyArrayObject *capi_berr_tmp = NULL((void*)0);
34314 int capi_berr_intent = 0;
34315 complex_double *work = NULL((void*)0);
34316 npy_intp work_Dims[1] = {-1};
34317 const int work_Rank = 1;
34318 PyArrayObject *capi_work_tmp = NULL((void*)0);
34319 int capi_work_intent = 0;
34320 double *rwork = NULL((void*)0);
34321 npy_intp rwork_Dims[1] = {-1};
34322 const int rwork_Rank = 1;
34323 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
34324 int capi_rwork_intent = 0;
34325 int info = 0;
34326 static char *capi_kwlist[] = {"dl","d","du","b","fact","trans","dlf","df","duf","du2","ipiv",NULL((void*)0)};
34327
34328/*routdebugenter*/
34329#ifdef F2PY_REPORT_ATEXIT
34330f2py_start_clock();
34331#endif
34332 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
34333 "OOOO|OOOOOOO:_flapack.zgtsvx",\
34334 capi_kwlist,&dl_capi,&d_capi,&du_capi,&b_capi,&fact_capi,&trans_capi,&dlf_capi,&df_capi,&duf_capi,&du2_capi,&ipiv_capi))
34335 return NULL((void*)0);
34336/*frompyobj*/
34337 /* Processing variable d */
34338 ;
34339 capi_d_intent |= F2PY_INTENT_IN1;
34340 capi_d_tmp = array_from_pyobj(NPY_CDOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
34341 if (capi_d_tmp == NULL((void*)0)) {
34342 if (!PyErr_Occurred())
34343 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.zgtsvx to C/Fortran array" );
34344 } else {
34345 d = (complex_double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
34346
34347 /* Processing variable b */
34348 ;
34349 capi_b_intent |= F2PY_INTENT_IN1;
34350 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
34351 if (capi_b_tmp == NULL((void*)0)) {
34352 if (!PyErr_Occurred())
34353 PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.zgtsvx to C/Fortran array" );
34354 } else {
34355 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
34356
34357 /* Processing variable rcond */
34358 /* Processing variable info */
34359 /* Processing variable n */
34360 n = len(d)d_Dims[0];
34361 /* Processing variable nrhs */
34362 nrhs = shape(b, 1)b_Dims[1];
34363 /* Processing variable dl */
34364 dl_Dims[0]=MAX(0, n-1)((0 > n-1) ? (0) : (n-1));
34365 capi_dl_intent |= F2PY_INTENT_IN1;
34366 capi_dl_tmp = array_from_pyobj(NPY_CDOUBLE,dl_Dims,dl_Rank,capi_dl_intent,dl_capi);
34367 if (capi_dl_tmp == NULL((void*)0)) {
34368 if (!PyErr_Occurred())
34369 PyErr_SetString(_flapack_error,"failed in converting 1st argument `dl' of _flapack.zgtsvx to C/Fortran array" );
34370 } else {
34371 dl = (complex_double *)(PyArray_DATA(capi_dl_tmp)((void *)((PyArrayObject_fields *)(capi_dl_tmp))->data));
34372
34373 /* Processing variable du */
34374 du_Dims[0]=MAX(0, n-1)((0 > n-1) ? (0) : (n-1));
34375 capi_du_intent |= F2PY_INTENT_IN1;
34376 capi_du_tmp = array_from_pyobj(NPY_CDOUBLE,du_Dims,du_Rank,capi_du_intent,du_capi);
34377 if (capi_du_tmp == NULL((void*)0)) {
34378 if (!PyErr_Occurred())
34379 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `du' of _flapack.zgtsvx to C/Fortran array" );
34380 } else {
34381 du = (complex_double *)(PyArray_DATA(capi_du_tmp)((void *)((PyArrayObject_fields *)(capi_du_tmp))->data));
34382
34383 /* Processing variable dlf */
34384 dlf_Dims[0]=MAX(0,n-1)((0 > n-1) ? (0) : (n-1));
34385 capi_dlf_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
34386 capi_dlf_tmp = array_from_pyobj(NPY_CDOUBLE,dlf_Dims,dlf_Rank,capi_dlf_intent,dlf_capi);
34387 if (capi_dlf_tmp == NULL((void*)0)) {
34388 if (!PyErr_Occurred())
34389 PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `dlf' of _flapack.zgtsvx to C/Fortran array" );
34390 } else {
34391 dlf = (complex_double *)(PyArray_DATA(capi_dlf_tmp)((void *)((PyArrayObject_fields *)(capi_dlf_tmp))->data));
34392
34393 /* Processing variable df */
34394 df_Dims[0]=n;
34395 capi_df_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
34396 capi_df_tmp = array_from_pyobj(NPY_CDOUBLE,df_Dims,df_Rank,capi_df_intent,df_capi);
34397 if (capi_df_tmp == NULL((void*)0)) {
34398 if (!PyErr_Occurred())
34399 PyErr_SetString(_flapack_error,"failed in converting 4th keyword `df' of _flapack.zgtsvx to C/Fortran array" );
34400 } else {
34401 df = (complex_double *)(PyArray_DATA(capi_df_tmp)((void *)((PyArrayObject_fields *)(capi_df_tmp))->data));
34402
34403 /* Processing variable duf */
34404 duf_Dims[0]=MAX(0,n-1)((0 > n-1) ? (0) : (n-1));
34405 capi_duf_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
34406 capi_duf_tmp = array_from_pyobj(NPY_CDOUBLE,duf_Dims,duf_Rank,capi_duf_intent,duf_capi);
34407 if (capi_duf_tmp == NULL((void*)0)) {
34408 if (!PyErr_Occurred())
34409 PyErr_SetString(_flapack_error,"failed in converting 5th keyword `duf' of _flapack.zgtsvx to C/Fortran array" );
34410 } else {
34411 duf = (complex_double *)(PyArray_DATA(capi_duf_tmp)((void *)((PyArrayObject_fields *)(capi_duf_tmp))->data));
34412
34413 /* Processing variable du2 */
34414 du2_Dims[0]=MAX(0,n-2)((0 > n-2) ? (0) : (n-2));
34415 capi_du2_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
34416 capi_du2_tmp = array_from_pyobj(NPY_CDOUBLE,du2_Dims,du2_Rank,capi_du2_intent,du2_capi);
34417 if (capi_du2_tmp == NULL((void*)0)) {
34418 if (!PyErr_Occurred())
34419 PyErr_SetString(_flapack_error,"failed in converting 6th keyword `du2' of _flapack.zgtsvx to C/Fortran array" );
34420 } else {
34421 du2 = (complex_double *)(PyArray_DATA(capi_du2_tmp)((void *)((PyArrayObject_fields *)(capi_du2_tmp))->data));
34422
34423 /* Processing variable ipiv */
34424 ipiv_Dims[0]=n;
34425 capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
34426 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
34427 if (capi_ipiv_tmp == NULL((void*)0)) {
34428 if (!PyErr_Occurred())
34429 PyErr_SetString(_flapack_error,"failed in converting 7th keyword `ipiv' of _flapack.zgtsvx to C/Fortran array" );
34430 } else {
34431 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
34432
34433 /* Processing variable ldb */
34434 ldb = max(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
34435 CHECKSCALAR(ldb >= n,"ldb >= n","hidden ldb","zgtsvx:ldb=%d",ldb)if (!(ldb >= n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgtsvx:ldb=%d", "(""ldb >= n"") failed for ""hidden ldb"
, ldb); PyErr_SetString(_flapack_error,errstring); } else
{
34436 /* Processing variable ldx */
34437 ldx = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
34438 /* Processing variable ferr */
34439 ferr_Dims[0]=nrhs;
34440 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
34441 capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
34442 if (capi_ferr_tmp == NULL((void*)0)) {
34443 if (!PyErr_Occurred())
34444 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.zgtsvx to C/Fortran array" );
34445 } else {
34446 ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
34447
34448 /* Processing variable berr */
34449 berr_Dims[0]=nrhs;
34450 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
34451 capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
34452 if (capi_berr_tmp == NULL((void*)0)) {
34453 if (!PyErr_Occurred())
34454 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.zgtsvx to C/Fortran array" );
34455 } else {
34456 berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
34457
34458 /* Processing variable work */
34459 work_Dims[0]=2 * n;
34460 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
34461 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
34462 if (capi_work_tmp == NULL((void*)0)) {
34463 if (!PyErr_Occurred())
34464 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgtsvx to C/Fortran array" );
34465 } else {
34466 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
34467
34468 /* Processing variable rwork */
34469 rwork_Dims[0]=n;
34470 capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
34471 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
34472 if (capi_rwork_tmp == NULL((void*)0)) {
34473 if (!PyErr_Occurred())
34474 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zgtsvx to C/Fortran array" );
34475 } else {
34476 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
34477
34478 /* Processing variable fact */
34479 slen(fact)capi_fact_len = 1;
34480 f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"N",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.zgtsvx to C string");
34481 if (f2py_success) {
34482 CHECKSTRING(*fact=='F'||*fact=='N',"*fact=='F'||*fact=='N'","1st keyword fact","zgtsvx:slen(fact)=%d fact=\"%s\"",fact)if (!(*fact=='F'||*fact=='N')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgtsvx:slen(fact)=%d fact=\"%s\"", "(""*fact=='F'||*fact=='N'"
") failed for ""1st keyword fact", capi_fact_len, fact); PyErr_SetString
(_flapack_error, errstring); } else
{
34483 /* Processing variable trans */
34484 slen(trans)capi_trans_len = 1;
34485 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.zgtsvx to C string");
34486 if (f2py_success) {
34487 CHECKSTRING(*trans=='N'||*trans=='C'||*trans=='T',"*trans=='N'||*trans=='C'||*trans=='T'","2nd keyword trans","zgtsvx:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C'||*trans=='T')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zgtsvx:slen(trans)=%d trans=\"%s\""
, "(""*trans=='N'||*trans=='C'||*trans=='T'"") failed for ""2nd keyword trans"
, capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring
); } else
{
34488 /* Processing variable x */
34489 x_Dims[0]=ldx,x_Dims[1]=nrhs;
34490 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
34491 capi_x_tmp = array_from_pyobj(NPY_CDOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
34492 if (capi_x_tmp == NULL((void*)0)) {
34493 if (!PyErr_Occurred())
34494 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.zgtsvx to C/Fortran array" );
34495 } else {
34496 x = (complex_double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
34497
34498/*end of frompyobj*/
34499#ifdef F2PY_REPORT_ATEXIT
34500f2py_start_call_clock();
34501#endif
34502/*callfortranroutine*/
34503 (*f2py_func)(fact,trans,&n,&nrhs,dl,d,du,dlf,df,duf,du2,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,rwork,&info); ;
34504 /*(*f2py_func)(fact,trans,&n,&nrhs,dl,d,du,dlf,df,duf,du2,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,rwork,&info,slen(fact),slen(trans));*/
34505if (PyErr_Occurred())
34506 f2py_success = 0;
34507#ifdef F2PY_REPORT_ATEXIT
34508f2py_stop_call_clock();
34509#endif
34510/*end of callfortranroutine*/
34511 if (f2py_success) {
34512/*pyobjfrom*/
34513/*end of pyobjfrom*/
34514 CFUNCSMESS("Building return value.\n");
34515 capi_buildvalue = Py_BuildValue("NNNNNNdNNi",capi_dlf_tmp,capi_df_tmp,capi_duf_tmp,capi_du2_tmp,capi_ipiv_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
34516/*closepyobjfrom*/
34517/*end of closepyobjfrom*/
34518 } /*if (f2py_success) after callfortranroutine*/
34519/*cleanupfrompyobj*/
34520 } /*if (capi_x_tmp == NULL) ... else of x*/
34521 /* End of cleaning variable x */
34522 } /*CHECKSTRING(*trans=='N'||*trans=='C'||*trans=='T')*/
34523 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
34524 } /*if (f2py_success) of trans*/
34525 /* End of cleaning variable trans */
34526 } /*CHECKSTRING(*fact=='F'||*fact=='N')*/
34527 STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0);
34528 } /*if (f2py_success) of fact*/
34529 /* End of cleaning variable fact */
34530 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
34531 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
34532 /* End of cleaning variable rwork */
34533 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
34534 } /*if (capi_work_tmp == NULL) ... else of work*/
34535 /* End of cleaning variable work */
34536 } /*if (capi_berr_tmp == NULL) ... else of berr*/
34537 /* End of cleaning variable berr */
34538 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
34539 /* End of cleaning variable ferr */
34540 /* End of cleaning variable ldx */
34541 } /*CHECKSCALAR(ldb >= n)*/
34542 /* End of cleaning variable ldb */
34543 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
34544 /* End of cleaning variable ipiv */
34545 } /*if (capi_du2_tmp == NULL) ... else of du2*/
34546 /* End of cleaning variable du2 */
34547 } /*if (capi_duf_tmp == NULL) ... else of duf*/
34548 /* End of cleaning variable duf */
34549 } /*if (capi_df_tmp == NULL) ... else of df*/
34550 /* End of cleaning variable df */
34551 } /*if (capi_dlf_tmp == NULL) ... else of dlf*/
34552 /* End of cleaning variable dlf */
34553 if((PyObject *)capi_du_tmp!=du_capi) {
34554 Py_XDECREF(capi_du_tmp)_Py_XDECREF(((PyObject*)(capi_du_tmp))); }
34555 } /*if (capi_du_tmp == NULL) ... else of du*/
34556 /* End of cleaning variable du */
34557 if((PyObject *)capi_dl_tmp!=dl_capi) {
34558 Py_XDECREF(capi_dl_tmp)_Py_XDECREF(((PyObject*)(capi_dl_tmp))); }
34559 } /*if (capi_dl_tmp == NULL) ... else of dl*/
34560 /* End of cleaning variable dl */
34561 /* End of cleaning variable nrhs */
34562 /* End of cleaning variable n */
34563 /* End of cleaning variable info */
34564 /* End of cleaning variable rcond */
34565 if((PyObject *)capi_b_tmp!=b_capi) {
34566 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
34567 } /*if (capi_b_tmp == NULL) ... else of b*/
34568 /* End of cleaning variable b */
34569 if((PyObject *)capi_d_tmp!=d_capi) {
34570 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
34571 } /*if (capi_d_tmp == NULL) ... else of d*/
34572 /* End of cleaning variable d */
34573/*end of cleanupfrompyobj*/
34574 if (capi_buildvalue == NULL((void*)0)) {
34575/*routdebugfailure*/
34576 } else {
34577/*routdebugleave*/
34578 }
34579 CFUNCSMESS("Freeing memory.\n");
34580/*freemem*/
34581#ifdef F2PY_REPORT_ATEXIT
34582f2py_stop_clock();
34583#endif
34584 return capi_buildvalue;
34585}
34586/******************************* end of zgtsvx *******************************/
34587
34588/*********************************** ssyev ***********************************/
34589static char doc_f2py_rout__flapack_ssyev[] = "\
34590w,v,info = ssyev(a,[compute_v,lower,lwork,overwrite_a])\n\nWrapper for ``ssyev``.\
34591\n\nParameters\n----------\n"
34592"a : input rank-2 array('f') with bounds (n,n)\n"
34593"\nOther Parameters\n----------------\n"
34594"compute_v : input int, optional\n Default: 1\n"
34595"lower : input int, optional\n Default: 0\n"
34596"overwrite_a : input int, optional\n Default: 0\n"
34597"lwork : input int, optional\n Default: max(3*n-1,1)\n"
34598"\nReturns\n-------\n"
34599"w : rank-1 array('f') with bounds (n)\n"
34600"v : rank-2 array('f') with bounds (n,n) and a storage\n"
34601"info : int";
34602/* extern void F_FUNC(ssyev,SSYEV)(char*,char*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */
34603static PyObject *f2py_rout__flapack_ssyev(const PyObject *capi_self,
34604 PyObject *capi_args,
34605 PyObject *capi_keywds,
34606 void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
34607 PyObject * volatile capi_buildvalue = NULL((void*)0);
34608 volatile int f2py_success = 1;
34609/*decl*/
34610
34611 int compute_v = 0;
34612 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
34613 int lower = 0;
34614 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
34615 int n = 0;
34616 float *w = NULL((void*)0);
34617 npy_intp w_Dims[1] = {-1};
34618 const int w_Rank = 1;
34619 PyArrayObject *capi_w_tmp = NULL((void*)0);
34620 int capi_w_intent = 0;
34621 float *a = NULL((void*)0);
34622 npy_intp a_Dims[2] = {-1, -1};
34623 const int a_Rank = 2;
34624 PyArrayObject *capi_a_tmp = NULL((void*)0);
34625 int capi_a_intent = 0;
34626 int capi_overwrite_a = 0;
34627 PyObject *a_capi = Py_None(&_Py_NoneStruct);
34628 int lda = 0;
34629 float *work = NULL((void*)0);
34630 npy_intp work_Dims[1] = {-1};
34631 const int work_Rank = 1;
34632 PyArrayObject *capi_work_tmp = NULL((void*)0);
34633 int capi_work_intent = 0;
34634 int lwork = 0;
34635 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
34636 int info = 0;
34637 static char *capi_kwlist[] = {"a","compute_v","lower","lwork","overwrite_a",NULL((void*)0)};
34638
34639/*routdebugenter*/
34640#ifdef F2PY_REPORT_ATEXIT
34641f2py_start_clock();
34642#endif
34643 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
34644 "O|OOOi:_flapack.ssyev",\
34645 capi_kwlist,&a_capi,&compute_v_capi,&lower_capi,&lwork_capi,&capi_overwrite_a))
34646 return NULL((void*)0);
34647/*frompyobj*/
34648 /* Processing variable compute_v */
34649 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
34650 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.ssyev() 1st keyword (compute_v) can't be converted to int");
34651 if (f2py_success) {
34652 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","ssyev:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyev:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
34653 /* Processing variable lower */
34654 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
34655 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssyev() 2nd keyword (lower) can't be converted to int");
34656 if (f2py_success) {
34657 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","ssyev:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyev:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
34658 /* Processing variable a */
34659 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
34660 ;
34661 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
34662 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
34663 if (capi_a_tmp == NULL((void*)0)) {
34664 if (!PyErr_Occurred())
34665 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssyev to C/Fortran array" );
34666 } else {
34667 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
34668
34669 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
34670 /* Processing variable info */
34671 /* Processing variable n */
34672 n = shape(a,0)a_Dims[0];
34673 /* Processing variable lda */
34674 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
34675 /* Processing variable w */
34676 w_Dims[0]=n;
34677 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
34678 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
34679 if (capi_w_tmp == NULL((void*)0)) {
34680 if (!PyErr_Occurred())
34681 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.ssyev to C/Fortran array" );
34682 } else {
34683 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
34684
34685 /* Processing variable lwork */
34686 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n-1,1)((3*n-1 > 1) ? (3*n-1) : (1)); else
34687 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssyev() 3rd keyword (lwork) can't be converted to int");
34688 if (f2py_success) {
34689 CHECKSCALAR(lwork>=3*n-1,"lwork>=3*n-1","3rd keyword lwork","ssyev:lwork=%d",lwork)if (!(lwork>=3*n-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyev:lwork=%d", "(""lwork>=3*n-1"") failed for "
"3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
34690 /* Processing variable work */
34691 work_Dims[0]=lwork;
34692 capi_work_intent |= F2PY_INTENT_HIDE8;
34693 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
34694 if (capi_work_tmp == NULL((void*)0)) {
34695 if (!PyErr_Occurred())
34696 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssyev to C/Fortran array" );
34697 } else {
34698 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
34699
34700/*end of frompyobj*/
34701#ifdef F2PY_REPORT_ATEXIT
34702f2py_start_call_clock();
34703#endif
34704/*callfortranroutine*/
34705 (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,a,&lda,w,work,&lwork,&info) ;
34706 /*(*f2py_func)(&compute_v,&lower,&n,w,a,&lda,work,&lwork,&info);*/
34707if (PyErr_Occurred())
34708 f2py_success = 0;
34709#ifdef F2PY_REPORT_ATEXIT
34710f2py_stop_call_clock();
34711#endif
34712/*end of callfortranroutine*/
34713 if (f2py_success) {
34714/*pyobjfrom*/
34715/*end of pyobjfrom*/
34716 CFUNCSMESS("Building return value.\n");
34717 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info);
34718/*closepyobjfrom*/
34719/*end of closepyobjfrom*/
34720 } /*if (f2py_success) after callfortranroutine*/
34721/*cleanupfrompyobj*/
34722 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
34723 } /*if (capi_work_tmp == NULL) ... else of work*/
34724 /* End of cleaning variable work */
34725 } /*CHECKSCALAR(lwork>=3*n-1)*/
34726 } /*if (f2py_success) of lwork*/
34727 /* End of cleaning variable lwork */
34728 } /*if (capi_w_tmp == NULL) ... else of w*/
34729 /* End of cleaning variable w */
34730 /* End of cleaning variable lda */
34731 /* End of cleaning variable n */
34732 /* End of cleaning variable info */
34733 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
34734 } /*if (capi_a_tmp == NULL) ... else of a*/
34735 /* End of cleaning variable a */
34736 } /*CHECKSCALAR(lower==0||lower==1)*/
34737 } /*if (f2py_success) of lower*/
34738 /* End of cleaning variable lower */
34739 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
34740 } /*if (f2py_success) of compute_v*/
34741 /* End of cleaning variable compute_v */
34742/*end of cleanupfrompyobj*/
34743 if (capi_buildvalue == NULL((void*)0)) {
34744/*routdebugfailure*/
34745 } else {
34746/*routdebugleave*/
34747 }
34748 CFUNCSMESS("Freeing memory.\n");
34749/*freemem*/
34750#ifdef F2PY_REPORT_ATEXIT
34751f2py_stop_clock();
34752#endif
34753 return capi_buildvalue;
34754}
34755/******************************** end of ssyev ********************************/
34756
34757/*********************************** dsyev ***********************************/
34758static char doc_f2py_rout__flapack_dsyev[] = "\
34759w,v,info = dsyev(a,[compute_v,lower,lwork,overwrite_a])\n\nWrapper for ``dsyev``.\
34760\n\nParameters\n----------\n"
34761"a : input rank-2 array('d') with bounds (n,n)\n"
34762"\nOther Parameters\n----------------\n"
34763"compute_v : input int, optional\n Default: 1\n"
34764"lower : input int, optional\n Default: 0\n"
34765"overwrite_a : input int, optional\n Default: 0\n"
34766"lwork : input int, optional\n Default: max(3*n-1,1)\n"
34767"\nReturns\n-------\n"
34768"w : rank-1 array('d') with bounds (n)\n"
34769"v : rank-2 array('d') with bounds (n,n) and a storage\n"
34770"info : int";
34771/* extern void F_FUNC(dsyev,DSYEV)(char*,char*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */
34772static PyObject *f2py_rout__flapack_dsyev(const PyObject *capi_self,
34773 PyObject *capi_args,
34774 PyObject *capi_keywds,
34775 void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
34776 PyObject * volatile capi_buildvalue = NULL((void*)0);
34777 volatile int f2py_success = 1;
34778/*decl*/
34779
34780 int compute_v = 0;
34781 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
34782 int lower = 0;
34783 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
34784 int n = 0;
34785 double *w = NULL((void*)0);
34786 npy_intp w_Dims[1] = {-1};
34787 const int w_Rank = 1;
34788 PyArrayObject *capi_w_tmp = NULL((void*)0);
34789 int capi_w_intent = 0;
34790 double *a = NULL((void*)0);
34791 npy_intp a_Dims[2] = {-1, -1};
34792 const int a_Rank = 2;
34793 PyArrayObject *capi_a_tmp = NULL((void*)0);
34794 int capi_a_intent = 0;
34795 int capi_overwrite_a = 0;
34796 PyObject *a_capi = Py_None(&_Py_NoneStruct);
34797 int lda = 0;
34798 double *work = NULL((void*)0);
34799 npy_intp work_Dims[1] = {-1};
34800 const int work_Rank = 1;
34801 PyArrayObject *capi_work_tmp = NULL((void*)0);
34802 int capi_work_intent = 0;
34803 int lwork = 0;
34804 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
34805 int info = 0;
34806 static char *capi_kwlist[] = {"a","compute_v","lower","lwork","overwrite_a",NULL((void*)0)};
34807
34808/*routdebugenter*/
34809#ifdef F2PY_REPORT_ATEXIT
34810f2py_start_clock();
34811#endif
34812 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
34813 "O|OOOi:_flapack.dsyev",\
34814 capi_kwlist,&a_capi,&compute_v_capi,&lower_capi,&lwork_capi,&capi_overwrite_a))
34815 return NULL((void*)0);
34816/*frompyobj*/
34817 /* Processing variable compute_v */
34818 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
34819 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dsyev() 1st keyword (compute_v) can't be converted to int");
34820 if (f2py_success) {
34821 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","dsyev:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyev:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
34822 /* Processing variable lower */
34823 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
34824 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsyev() 2nd keyword (lower) can't be converted to int");
34825 if (f2py_success) {
34826 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","dsyev:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyev:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
34827 /* Processing variable a */
34828 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
34829 ;
34830 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
34831 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
34832 if (capi_a_tmp == NULL((void*)0)) {
34833 if (!PyErr_Occurred())
34834 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsyev to C/Fortran array" );
34835 } else {
34836 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
34837
34838 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
34839 /* Processing variable info */
34840 /* Processing variable n */
34841 n = shape(a,0)a_Dims[0];
34842 /* Processing variable lda */
34843 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
34844 /* Processing variable w */
34845 w_Dims[0]=n;
34846 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
34847 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
34848 if (capi_w_tmp == NULL((void*)0)) {
34849 if (!PyErr_Occurred())
34850 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dsyev to C/Fortran array" );
34851 } else {
34852 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
34853
34854 /* Processing variable lwork */
34855 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n-1,1)((3*n-1 > 1) ? (3*n-1) : (1)); else
34856 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsyev() 3rd keyword (lwork) can't be converted to int");
34857 if (f2py_success) {
34858 CHECKSCALAR(lwork>=3*n-1,"lwork>=3*n-1","3rd keyword lwork","dsyev:lwork=%d",lwork)if (!(lwork>=3*n-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyev:lwork=%d", "(""lwork>=3*n-1"") failed for "
"3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
34859 /* Processing variable work */
34860 work_Dims[0]=lwork;
34861 capi_work_intent |= F2PY_INTENT_HIDE8;
34862 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
34863 if (capi_work_tmp == NULL((void*)0)) {
34864 if (!PyErr_Occurred())
34865 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsyev to C/Fortran array" );
34866 } else {
34867 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
34868
34869/*end of frompyobj*/
34870#ifdef F2PY_REPORT_ATEXIT
34871f2py_start_call_clock();
34872#endif
34873/*callfortranroutine*/
34874 (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,a,&lda,w,work,&lwork,&info) ;
34875 /*(*f2py_func)(&compute_v,&lower,&n,w,a,&lda,work,&lwork,&info);*/
34876if (PyErr_Occurred())
34877 f2py_success = 0;
34878#ifdef F2PY_REPORT_ATEXIT
34879f2py_stop_call_clock();
34880#endif
34881/*end of callfortranroutine*/
34882 if (f2py_success) {
34883/*pyobjfrom*/
34884/*end of pyobjfrom*/
34885 CFUNCSMESS("Building return value.\n");
34886 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info);
34887/*closepyobjfrom*/
34888/*end of closepyobjfrom*/
34889 } /*if (f2py_success) after callfortranroutine*/
34890/*cleanupfrompyobj*/
34891 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
34892 } /*if (capi_work_tmp == NULL) ... else of work*/
34893 /* End of cleaning variable work */
34894 } /*CHECKSCALAR(lwork>=3*n-1)*/
34895 } /*if (f2py_success) of lwork*/
34896 /* End of cleaning variable lwork */
34897 } /*if (capi_w_tmp == NULL) ... else of w*/
34898 /* End of cleaning variable w */
34899 /* End of cleaning variable lda */
34900 /* End of cleaning variable n */
34901 /* End of cleaning variable info */
34902 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
34903 } /*if (capi_a_tmp == NULL) ... else of a*/
34904 /* End of cleaning variable a */
34905 } /*CHECKSCALAR(lower==0||lower==1)*/
34906 } /*if (f2py_success) of lower*/
34907 /* End of cleaning variable lower */
34908 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
34909 } /*if (f2py_success) of compute_v*/
34910 /* End of cleaning variable compute_v */
34911/*end of cleanupfrompyobj*/
34912 if (capi_buildvalue == NULL((void*)0)) {
34913/*routdebugfailure*/
34914 } else {
34915/*routdebugleave*/
34916 }
34917 CFUNCSMESS("Freeing memory.\n");
34918/*freemem*/
34919#ifdef F2PY_REPORT_ATEXIT
34920f2py_stop_clock();
34921#endif
34922 return capi_buildvalue;
34923}
34924/******************************** end of dsyev ********************************/
34925
34926/******************************** ssyev_lwork ********************************/
34927static char doc_f2py_rout__flapack_ssyev_lwork[] = "\
34928work,info = ssyev_lwork(n,[lower])\n\nWrapper for ``ssyev_lwork``.\
34929\n\nParameters\n----------\n"
34930"n : input int\n"
34931"\nOther Parameters\n----------------\n"
34932"lower : input int, optional\n Default: 0\n"
34933"\nReturns\n-------\n"
34934"work : float\n"
34935"info : int";
34936/* extern void F_FUNC(ssyev ,SSYEV )(char*,char*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */
34937static PyObject *f2py_rout__flapack_ssyev_lwork(const PyObject *capi_self,
34938 PyObject *capi_args,
34939 PyObject *capi_keywds,
34940 void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
34941 PyObject * volatile capi_buildvalue = NULL((void*)0);
34942 volatile int f2py_success = 1;
34943/*decl*/
34944
34945 int lower = 0;
34946 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
34947 int n = 0;
34948 PyObject *n_capi = Py_None(&_Py_NoneStruct);
34949 float w = 0;
34950 float a = 0;
34951 int lda = 0;
34952 float work = 0;
34953 int lwork = 0;
34954 int info = 0;
34955 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
34956
34957/*routdebugenter*/
34958#ifdef F2PY_REPORT_ATEXIT
34959f2py_start_clock();
34960#endif
34961 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
34962 "O|O:_flapack.ssyev_lwork",\
34963 capi_kwlist,&n_capi,&lower_capi))
34964 return NULL((void*)0);
34965/*frompyobj*/
34966 /* Processing variable n */
34967 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssyev_lwork() 1st argument (n) can't be converted to int");
34968 if (f2py_success) {
34969 /* Processing variable lower */
34970 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
34971 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssyev_lwork() 1st keyword (lower) can't be converted to int");
34972 if (f2py_success) {
34973 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssyev_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyev_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
34974 /* Processing variable a */
34975 /* Processing variable w */
34976 /* Processing variable lwork */
34977 lwork = -1;
34978 /* Processing variable work */
34979 /* Processing variable info */
34980 /* Processing variable lda */
34981 lda = MAX(1, n)((1 > n) ? (1) : (n));
34982/*end of frompyobj*/
34983#ifdef F2PY_REPORT_ATEXIT
34984f2py_start_call_clock();
34985#endif
34986/*callfortranroutine*/
34987 (*f2py_func)("N",(lower?"L":"U"),&n,&a,&lda,&w,&work,&lwork,&info) ;
34988 /*(*f2py_func)(&lower,&n,&w,&a,&lda,&work,&lwork,&info);*/
34989if (PyErr_Occurred())
34990 f2py_success = 0;
34991#ifdef F2PY_REPORT_ATEXIT
34992f2py_stop_call_clock();
34993#endif
34994/*end of callfortranroutine*/
34995 if (f2py_success) {
34996/*pyobjfrom*/
34997/*end of pyobjfrom*/
34998 CFUNCSMESS("Building return value.\n");
34999 capi_buildvalue = Py_BuildValue("fi",work,info);
35000/*closepyobjfrom*/
35001/*end of closepyobjfrom*/
35002 } /*if (f2py_success) after callfortranroutine*/
35003/*cleanupfrompyobj*/
35004 /* End of cleaning variable lda */
35005 /* End of cleaning variable info */
35006 /* End of cleaning variable work */
35007 /* End of cleaning variable lwork */
35008 /* End of cleaning variable w */
35009 /* End of cleaning variable a */
35010 } /*CHECKSCALAR(lower==0||lower==1)*/
35011 } /*if (f2py_success) of lower*/
35012 /* End of cleaning variable lower */
35013 } /*if (f2py_success) of n*/
35014 /* End of cleaning variable n */
35015/*end of cleanupfrompyobj*/
35016 if (capi_buildvalue == NULL((void*)0)) {
35017/*routdebugfailure*/
35018 } else {
35019/*routdebugleave*/
35020 }
35021 CFUNCSMESS("Freeing memory.\n");
35022/*freemem*/
35023#ifdef F2PY_REPORT_ATEXIT
35024f2py_stop_clock();
35025#endif
35026 return capi_buildvalue;
35027}
35028/***************************** end of ssyev_lwork *****************************/
35029
35030/******************************** dsyev_lwork ********************************/
35031static char doc_f2py_rout__flapack_dsyev_lwork[] = "\
35032work,info = dsyev_lwork(n,[lower])\n\nWrapper for ``dsyev_lwork``.\
35033\n\nParameters\n----------\n"
35034"n : input int\n"
35035"\nOther Parameters\n----------------\n"
35036"lower : input int, optional\n Default: 0\n"
35037"\nReturns\n-------\n"
35038"work : float\n"
35039"info : int";
35040/* extern void F_FUNC(dsyev ,DSYEV )(char*,char*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */
35041static PyObject *f2py_rout__flapack_dsyev_lwork(const PyObject *capi_self,
35042 PyObject *capi_args,
35043 PyObject *capi_keywds,
35044 void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
35045 PyObject * volatile capi_buildvalue = NULL((void*)0);
35046 volatile int f2py_success = 1;
35047/*decl*/
35048
35049 int lower = 0;
35050 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
35051 int n = 0;
35052 PyObject *n_capi = Py_None(&_Py_NoneStruct);
35053 double w = 0;
35054 double a = 0;
35055 int lda = 0;
35056 double work = 0;
35057 int lwork = 0;
35058 int info = 0;
35059 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
35060
35061/*routdebugenter*/
35062#ifdef F2PY_REPORT_ATEXIT
35063f2py_start_clock();
35064#endif
35065 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
35066 "O|O:_flapack.dsyev_lwork",\
35067 capi_kwlist,&n_capi,&lower_capi))
35068 return NULL((void*)0);
35069/*frompyobj*/
35070 /* Processing variable n */
35071 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsyev_lwork() 1st argument (n) can't be converted to int");
35072 if (f2py_success) {
35073 /* Processing variable lower */
35074 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
35075 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsyev_lwork() 1st keyword (lower) can't be converted to int");
35076 if (f2py_success) {
35077 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsyev_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyev_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
35078 /* Processing variable a */
35079 /* Processing variable w */
35080 /* Processing variable lwork */
35081 lwork = -1;
35082 /* Processing variable work */
35083 /* Processing variable info */
35084 /* Processing variable lda */
35085 lda = MAX(1, n)((1 > n) ? (1) : (n));
35086/*end of frompyobj*/
35087#ifdef F2PY_REPORT_ATEXIT
35088f2py_start_call_clock();
35089#endif
35090/*callfortranroutine*/
35091 (*f2py_func)("N",(lower?"L":"U"),&n,&a,&lda,&w,&work,&lwork,&info) ;
35092 /*(*f2py_func)(&lower,&n,&w,&a,&lda,&work,&lwork,&info);*/
35093if (PyErr_Occurred())
35094 f2py_success = 0;
35095#ifdef F2PY_REPORT_ATEXIT
35096f2py_stop_call_clock();
35097#endif
35098/*end of callfortranroutine*/
35099 if (f2py_success) {
35100/*pyobjfrom*/
35101/*end of pyobjfrom*/
35102 CFUNCSMESS("Building return value.\n");
35103 capi_buildvalue = Py_BuildValue("di",work,info);
35104/*closepyobjfrom*/
35105/*end of closepyobjfrom*/
35106 } /*if (f2py_success) after callfortranroutine*/
35107/*cleanupfrompyobj*/
35108 /* End of cleaning variable lda */
35109 /* End of cleaning variable info */
35110 /* End of cleaning variable work */
35111 /* End of cleaning variable lwork */
35112 /* End of cleaning variable w */
35113 /* End of cleaning variable a */
35114 } /*CHECKSCALAR(lower==0||lower==1)*/
35115 } /*if (f2py_success) of lower*/
35116 /* End of cleaning variable lower */
35117 } /*if (f2py_success) of n*/
35118 /* End of cleaning variable n */
35119/*end of cleanupfrompyobj*/
35120 if (capi_buildvalue == NULL((void*)0)) {
35121/*routdebugfailure*/
35122 } else {
35123/*routdebugleave*/
35124 }
35125 CFUNCSMESS("Freeing memory.\n");
35126/*freemem*/
35127#ifdef F2PY_REPORT_ATEXIT
35128f2py_stop_clock();
35129#endif
35130 return capi_buildvalue;
35131}
35132/***************************** end of dsyev_lwork *****************************/
35133
35134/*********************************** cheev ***********************************/
35135static char doc_f2py_rout__flapack_cheev[] = "\
35136w,v,info = cheev(a,[compute_v,lower,lwork,overwrite_a])\n\nWrapper for ``cheev``.\
35137\n\nParameters\n----------\n"
35138"a : input rank-2 array('F') with bounds (n,n)\n"
35139"\nOther Parameters\n----------------\n"
35140"compute_v : input int, optional\n Default: 1\n"
35141"lower : input int, optional\n Default: 0\n"
35142"overwrite_a : input int, optional\n Default: 0\n"
35143"lwork : input int, optional\n Default: max(2*n-1,1)\n"
35144"\nReturns\n-------\n"
35145"w : rank-1 array('f') with bounds (n)\n"
35146"v : rank-2 array('F') with bounds (n,n) and a storage\n"
35147"info : int";
35148/* extern void F_FUNC(cheev,CHEEV)(char*,char*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,float*,F_INT* ); */
35149static PyObject *f2py_rout__flapack_cheev(const PyObject *capi_self,
35150 PyObject *capi_args,
35151 PyObject *capi_keywds,
35152 void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint* )) {
35153 PyObject * volatile capi_buildvalue = NULL((void*)0);
35154 volatile int f2py_success = 1;
35155/*decl*/
35156
35157 int compute_v = 0;
35158 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
35159 int lower = 0;
35160 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
35161 int n = 0;
35162 float *w = NULL((void*)0);
35163 npy_intp w_Dims[1] = {-1};
35164 const int w_Rank = 1;
35165 PyArrayObject *capi_w_tmp = NULL((void*)0);
35166 int capi_w_intent = 0;
35167 complex_float *a = NULL((void*)0);
35168 npy_intp a_Dims[2] = {-1, -1};
35169 const int a_Rank = 2;
35170 PyArrayObject *capi_a_tmp = NULL((void*)0);
35171 int capi_a_intent = 0;
35172 int capi_overwrite_a = 0;
35173 PyObject *a_capi = Py_None(&_Py_NoneStruct);
35174 int lda = 0;
35175 complex_float *work = NULL((void*)0);
35176 npy_intp work_Dims[1] = {-1};
35177 const int work_Rank = 1;
35178 PyArrayObject *capi_work_tmp = NULL((void*)0);
35179 int capi_work_intent = 0;
35180 int lwork = 0;
35181 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
35182 float *rwork = NULL((void*)0);
35183 npy_intp rwork_Dims[1] = {-1};
35184 const int rwork_Rank = 1;
35185 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
35186 int capi_rwork_intent = 0;
35187 int info = 0;
35188 static char *capi_kwlist[] = {"a","compute_v","lower","lwork","overwrite_a",NULL((void*)0)};
35189
35190/*routdebugenter*/
35191#ifdef F2PY_REPORT_ATEXIT
35192f2py_start_clock();
35193#endif
35194 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
35195 "O|OOOi:_flapack.cheev",\
35196 capi_kwlist,&a_capi,&compute_v_capi,&lower_capi,&lwork_capi,&capi_overwrite_a))
35197 return NULL((void*)0);
35198/*frompyobj*/
35199 /* Processing variable compute_v */
35200 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
35201 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.cheev() 1st keyword (compute_v) can't be converted to int");
35202 if (f2py_success) {
35203 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","cheev:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheev:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
35204 /* Processing variable lower */
35205 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
35206 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cheev() 2nd keyword (lower) can't be converted to int");
35207 if (f2py_success) {
35208 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","cheev:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheev:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
35209 /* Processing variable a */
35210 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
35211 ;
35212 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
35213 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
35214 if (capi_a_tmp == NULL((void*)0)) {
35215 if (!PyErr_Occurred())
35216 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cheev to C/Fortran array" );
35217 } else {
35218 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
35219
35220 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
35221 /* Processing variable info */
35222 /* Processing variable n */
35223 n = shape(a,0)a_Dims[0];
35224 /* Processing variable lda */
35225 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
35226 /* Processing variable w */
35227 w_Dims[0]=n;
35228 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
35229 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
35230 if (capi_w_tmp == NULL((void*)0)) {
35231 if (!PyErr_Occurred())
35232 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.cheev to C/Fortran array" );
35233 } else {
35234 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
35235
35236 /* Processing variable lwork */
35237 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n-1,1)((2*n-1 > 1) ? (2*n-1) : (1)); else
35238 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cheev() 3rd keyword (lwork) can't be converted to int");
35239 if (f2py_success) {
35240 CHECKSCALAR(lwork>=2*n-1,"lwork>=2*n-1","3rd keyword lwork","cheev:lwork=%d",lwork)if (!(lwork>=2*n-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheev:lwork=%d", "(""lwork>=2*n-1"") failed for "
"3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
35241 /* Processing variable work */
35242 work_Dims[0]=lwork;
35243 capi_work_intent |= F2PY_INTENT_HIDE8;
35244 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
35245 if (capi_work_tmp == NULL((void*)0)) {
35246 if (!PyErr_Occurred())
35247 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cheev to C/Fortran array" );
35248 } else {
35249 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
35250
35251 /* Processing variable rwork */
35252 rwork_Dims[0]=3 * n - 1;
35253 capi_rwork_intent |= F2PY_INTENT_HIDE8;
35254 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
35255 if (capi_rwork_tmp == NULL((void*)0)) {
35256 if (!PyErr_Occurred())
35257 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cheev to C/Fortran array" );
35258 } else {
35259 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
35260
35261/*end of frompyobj*/
35262#ifdef F2PY_REPORT_ATEXIT
35263f2py_start_call_clock();
35264#endif
35265/*callfortranroutine*/
35266 (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,a,&lda,w,work,&lwork,rwork,&info) ;
35267 /*(*f2py_func)(&compute_v,&lower,&n,w,a,&lda,work,&lwork,rwork,&info);*/
35268if (PyErr_Occurred())
35269 f2py_success = 0;
35270#ifdef F2PY_REPORT_ATEXIT
35271f2py_stop_call_clock();
35272#endif
35273/*end of callfortranroutine*/
35274 if (f2py_success) {
35275/*pyobjfrom*/
35276/*end of pyobjfrom*/
35277 CFUNCSMESS("Building return value.\n");
35278 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info);
35279/*closepyobjfrom*/
35280/*end of closepyobjfrom*/
35281 } /*if (f2py_success) after callfortranroutine*/
35282/*cleanupfrompyobj*/
35283 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
35284 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
35285 /* End of cleaning variable rwork */
35286 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
35287 } /*if (capi_work_tmp == NULL) ... else of work*/
35288 /* End of cleaning variable work */
35289 } /*CHECKSCALAR(lwork>=2*n-1)*/
35290 } /*if (f2py_success) of lwork*/
35291 /* End of cleaning variable lwork */
35292 } /*if (capi_w_tmp == NULL) ... else of w*/
35293 /* End of cleaning variable w */
35294 /* End of cleaning variable lda */
35295 /* End of cleaning variable n */
35296 /* End of cleaning variable info */
35297 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
35298 } /*if (capi_a_tmp == NULL) ... else of a*/
35299 /* End of cleaning variable a */
35300 } /*CHECKSCALAR(lower==0||lower==1)*/
35301 } /*if (f2py_success) of lower*/
35302 /* End of cleaning variable lower */
35303 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
35304 } /*if (f2py_success) of compute_v*/
35305 /* End of cleaning variable compute_v */
35306/*end of cleanupfrompyobj*/
35307 if (capi_buildvalue == NULL((void*)0)) {
35308/*routdebugfailure*/
35309 } else {
35310/*routdebugleave*/
35311 }
35312 CFUNCSMESS("Freeing memory.\n");
35313/*freemem*/
35314#ifdef F2PY_REPORT_ATEXIT
35315f2py_stop_clock();
35316#endif
35317 return capi_buildvalue;
35318}
35319/******************************** end of cheev ********************************/
35320
35321/*********************************** zheev ***********************************/
35322static char doc_f2py_rout__flapack_zheev[] = "\
35323w,v,info = zheev(a,[compute_v,lower,lwork,overwrite_a])\n\nWrapper for ``zheev``.\
35324\n\nParameters\n----------\n"
35325"a : input rank-2 array('D') with bounds (n,n)\n"
35326"\nOther Parameters\n----------------\n"
35327"compute_v : input int, optional\n Default: 1\n"
35328"lower : input int, optional\n Default: 0\n"
35329"overwrite_a : input int, optional\n Default: 0\n"
35330"lwork : input int, optional\n Default: max(2*n-1,1)\n"
35331"\nReturns\n-------\n"
35332"w : rank-1 array('d') with bounds (n)\n"
35333"v : rank-2 array('D') with bounds (n,n) and a storage\n"
35334"info : int";
35335/* extern void F_FUNC(zheev,ZHEEV)(char*,char*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,double*,F_INT* ); */
35336static PyObject *f2py_rout__flapack_zheev(const PyObject *capi_self,
35337 PyObject *capi_args,
35338 PyObject *capi_keywds,
35339 void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint* )) {
35340 PyObject * volatile capi_buildvalue = NULL((void*)0);
35341 volatile int f2py_success = 1;
35342/*decl*/
35343
35344 int compute_v = 0;
35345 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
35346 int lower = 0;
35347 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
35348 int n = 0;
35349 double *w = NULL((void*)0);
35350 npy_intp w_Dims[1] = {-1};
35351 const int w_Rank = 1;
35352 PyArrayObject *capi_w_tmp = NULL((void*)0);
35353 int capi_w_intent = 0;
35354 complex_double *a = NULL((void*)0);
35355 npy_intp a_Dims[2] = {-1, -1};
35356 const int a_Rank = 2;
35357 PyArrayObject *capi_a_tmp = NULL((void*)0);
35358 int capi_a_intent = 0;
35359 int capi_overwrite_a = 0;
35360 PyObject *a_capi = Py_None(&_Py_NoneStruct);
35361 int lda = 0;
35362 complex_double *work = NULL((void*)0);
35363 npy_intp work_Dims[1] = {-1};
35364 const int work_Rank = 1;
35365 PyArrayObject *capi_work_tmp = NULL((void*)0);
35366 int capi_work_intent = 0;
35367 int lwork = 0;
35368 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
35369 double *rwork = NULL((void*)0);
35370 npy_intp rwork_Dims[1] = {-1};
35371 const int rwork_Rank = 1;
35372 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
35373 int capi_rwork_intent = 0;
35374 int info = 0;
35375 static char *capi_kwlist[] = {"a","compute_v","lower","lwork","overwrite_a",NULL((void*)0)};
35376
35377/*routdebugenter*/
35378#ifdef F2PY_REPORT_ATEXIT
35379f2py_start_clock();
35380#endif
35381 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
35382 "O|OOOi:_flapack.zheev",\
35383 capi_kwlist,&a_capi,&compute_v_capi,&lower_capi,&lwork_capi,&capi_overwrite_a))
35384 return NULL((void*)0);
35385/*frompyobj*/
35386 /* Processing variable compute_v */
35387 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
35388 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.zheev() 1st keyword (compute_v) can't be converted to int");
35389 if (f2py_success) {
35390 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","zheev:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheev:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
35391 /* Processing variable lower */
35392 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
35393 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zheev() 2nd keyword (lower) can't be converted to int");
35394 if (f2py_success) {
35395 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","zheev:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheev:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
35396 /* Processing variable a */
35397 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
35398 ;
35399 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
35400 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
35401 if (capi_a_tmp == NULL((void*)0)) {
35402 if (!PyErr_Occurred())
35403 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zheev to C/Fortran array" );
35404 } else {
35405 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
35406
35407 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
35408 /* Processing variable info */
35409 /* Processing variable n */
35410 n = shape(a,0)a_Dims[0];
35411 /* Processing variable lda */
35412 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
35413 /* Processing variable w */
35414 w_Dims[0]=n;
35415 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
35416 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
35417 if (capi_w_tmp == NULL((void*)0)) {
35418 if (!PyErr_Occurred())
35419 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zheev to C/Fortran array" );
35420 } else {
35421 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
35422
35423 /* Processing variable lwork */
35424 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n-1,1)((2*n-1 > 1) ? (2*n-1) : (1)); else
35425 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zheev() 3rd keyword (lwork) can't be converted to int");
35426 if (f2py_success) {
35427 CHECKSCALAR(lwork>=2*n-1,"lwork>=2*n-1","3rd keyword lwork","zheev:lwork=%d",lwork)if (!(lwork>=2*n-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheev:lwork=%d", "(""lwork>=2*n-1"") failed for "
"3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
35428 /* Processing variable work */
35429 work_Dims[0]=lwork;
35430 capi_work_intent |= F2PY_INTENT_HIDE8;
35431 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
35432 if (capi_work_tmp == NULL((void*)0)) {
35433 if (!PyErr_Occurred())
35434 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zheev to C/Fortran array" );
35435 } else {
35436 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
35437
35438 /* Processing variable rwork */
35439 rwork_Dims[0]=3 * n - 1;
35440 capi_rwork_intent |= F2PY_INTENT_HIDE8;
35441 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
35442 if (capi_rwork_tmp == NULL((void*)0)) {
35443 if (!PyErr_Occurred())
35444 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zheev to C/Fortran array" );
35445 } else {
35446 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
35447
35448/*end of frompyobj*/
35449#ifdef F2PY_REPORT_ATEXIT
35450f2py_start_call_clock();
35451#endif
35452/*callfortranroutine*/
35453 (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,a,&lda,w,work,&lwork,rwork,&info) ;
35454 /*(*f2py_func)(&compute_v,&lower,&n,w,a,&lda,work,&lwork,rwork,&info);*/
35455if (PyErr_Occurred())
35456 f2py_success = 0;
35457#ifdef F2PY_REPORT_ATEXIT
35458f2py_stop_call_clock();
35459#endif
35460/*end of callfortranroutine*/
35461 if (f2py_success) {
35462/*pyobjfrom*/
35463/*end of pyobjfrom*/
35464 CFUNCSMESS("Building return value.\n");
35465 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info);
35466/*closepyobjfrom*/
35467/*end of closepyobjfrom*/
35468 } /*if (f2py_success) after callfortranroutine*/
35469/*cleanupfrompyobj*/
35470 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
35471 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
35472 /* End of cleaning variable rwork */
35473 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
35474 } /*if (capi_work_tmp == NULL) ... else of work*/
35475 /* End of cleaning variable work */
35476 } /*CHECKSCALAR(lwork>=2*n-1)*/
35477 } /*if (f2py_success) of lwork*/
35478 /* End of cleaning variable lwork */
35479 } /*if (capi_w_tmp == NULL) ... else of w*/
35480 /* End of cleaning variable w */
35481 /* End of cleaning variable lda */
35482 /* End of cleaning variable n */
35483 /* End of cleaning variable info */
35484 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
35485 } /*if (capi_a_tmp == NULL) ... else of a*/
35486 /* End of cleaning variable a */
35487 } /*CHECKSCALAR(lower==0||lower==1)*/
35488 } /*if (f2py_success) of lower*/
35489 /* End of cleaning variable lower */
35490 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
35491 } /*if (f2py_success) of compute_v*/
35492 /* End of cleaning variable compute_v */
35493/*end of cleanupfrompyobj*/
35494 if (capi_buildvalue == NULL((void*)0)) {
35495/*routdebugfailure*/
35496 } else {
35497/*routdebugleave*/
35498 }
35499 CFUNCSMESS("Freeing memory.\n");
35500/*freemem*/
35501#ifdef F2PY_REPORT_ATEXIT
35502f2py_stop_clock();
35503#endif
35504 return capi_buildvalue;
35505}
35506/******************************** end of zheev ********************************/
35507
35508/******************************** cheev_lwork ********************************/
35509static char doc_f2py_rout__flapack_cheev_lwork[] = "\
35510work,info = cheev_lwork(n,[lower])\n\nWrapper for ``cheev_lwork``.\
35511\n\nParameters\n----------\n"
35512"n : input int\n"
35513"\nOther Parameters\n----------------\n"
35514"lower : input int, optional\n Default: 0\n"
35515"\nReturns\n-------\n"
35516"work : complex\n"
35517"info : int";
35518/* extern void F_FUNC(cheev ,CHEEV )(char*,char*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,float*,F_INT* ); */
35519static PyObject *f2py_rout__flapack_cheev_lwork(const PyObject *capi_self,
35520 PyObject *capi_args,
35521 PyObject *capi_keywds,
35522 void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint* )) {
35523 PyObject * volatile capi_buildvalue = NULL((void*)0);
35524 volatile int f2py_success = 1;
35525/*decl*/
35526
35527 int lower = 0;
35528 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
35529 int n = 0;
35530 PyObject *n_capi = Py_None(&_Py_NoneStruct);
35531 float w = 0;
35532 complex_float a;
35533 int lda = 0;
35534 complex_float work;
35535 PyObject *work_capi = Py_None(&_Py_NoneStruct);
35536 int lwork = 0;
35537 float rwork = 0;
35538 int info = 0;
35539 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
35540
35541/*routdebugenter*/
35542#ifdef F2PY_REPORT_ATEXIT
35543f2py_start_clock();
35544#endif
35545 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
35546 "O|O:_flapack.cheev_lwork",\
35547 capi_kwlist,&n_capi,&lower_capi))
35548 return NULL((void*)0);
35549/*frompyobj*/
35550 /* Processing variable n */
35551 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cheev_lwork() 1st argument (n) can't be converted to int");
35552 if (f2py_success) {
35553 /* Processing variable lower */
35554 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
35555 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cheev_lwork() 1st keyword (lower) can't be converted to int");
35556 if (f2py_success) {
35557 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cheev_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheev_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
35558 /* Processing variable a */
35559 /* Processing variable w */
35560 /* Processing variable rwork */
35561 /* Processing variable lwork */
35562 lwork = -1;
35563 /* Processing variable work */
35564 /* Processing variable info */
35565 /* Processing variable lda */
35566 lda = MAX(1, n)((1 > n) ? (1) : (n));
35567/*end of frompyobj*/
35568#ifdef F2PY_REPORT_ATEXIT
35569f2py_start_call_clock();
35570#endif
35571/*callfortranroutine*/
35572 (*f2py_func)("N",(lower?"L":"U"),&n,&a,&lda,&w,&work,&lwork,&rwork,&info) ;
35573 /*(*f2py_func)(&lower,&n,&w,&a,&lda,&work,&lwork,&rwork,&info);*/
35574if (PyErr_Occurred())
35575 f2py_success = 0;
35576#ifdef F2PY_REPORT_ATEXIT
35577f2py_stop_call_clock();
35578#endif
35579/*end of callfortranroutine*/
35580 if (f2py_success) {
35581/*pyobjfrom*/
35582 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
35583/*end of pyobjfrom*/
35584 CFUNCSMESS("Building return value.\n");
35585 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
35586/*closepyobjfrom*/
35587/*end of closepyobjfrom*/
35588 } /*if (f2py_success) after callfortranroutine*/
35589/*cleanupfrompyobj*/
35590 /* End of cleaning variable lda */
35591 /* End of cleaning variable info */
35592 /* End of cleaning variable work */
35593 /* End of cleaning variable lwork */
35594 /* End of cleaning variable rwork */
35595 /* End of cleaning variable w */
35596 /* End of cleaning variable a */
35597 } /*CHECKSCALAR(lower==0||lower==1)*/
35598 } /*if (f2py_success) of lower*/
35599 /* End of cleaning variable lower */
35600 } /*if (f2py_success) of n*/
35601 /* End of cleaning variable n */
35602/*end of cleanupfrompyobj*/
35603 if (capi_buildvalue == NULL((void*)0)) {
35604/*routdebugfailure*/
35605 } else {
35606/*routdebugleave*/
35607 }
35608 CFUNCSMESS("Freeing memory.\n");
35609/*freemem*/
35610#ifdef F2PY_REPORT_ATEXIT
35611f2py_stop_clock();
35612#endif
35613 return capi_buildvalue;
35614}
35615/***************************** end of cheev_lwork *****************************/
35616
35617/******************************** zheev_lwork ********************************/
35618static char doc_f2py_rout__flapack_zheev_lwork[] = "\
35619work,info = zheev_lwork(n,[lower])\n\nWrapper for ``zheev_lwork``.\
35620\n\nParameters\n----------\n"
35621"n : input int\n"
35622"\nOther Parameters\n----------------\n"
35623"lower : input int, optional\n Default: 0\n"
35624"\nReturns\n-------\n"
35625"work : complex\n"
35626"info : int";
35627/* extern void F_FUNC(zheev ,ZHEEV )(char*,char*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,double*,F_INT* ); */
35628static PyObject *f2py_rout__flapack_zheev_lwork(const PyObject *capi_self,
35629 PyObject *capi_args,
35630 PyObject *capi_keywds,
35631 void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint* )) {
35632 PyObject * volatile capi_buildvalue = NULL((void*)0);
35633 volatile int f2py_success = 1;
35634/*decl*/
35635
35636 int lower = 0;
35637 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
35638 int n = 0;
35639 PyObject *n_capi = Py_None(&_Py_NoneStruct);
35640 double w = 0;
35641 complex_double a;
35642 int lda = 0;
35643 complex_double work;
35644 PyObject *work_capi = Py_None(&_Py_NoneStruct);
35645 int lwork = 0;
35646 double rwork = 0;
35647 int info = 0;
35648 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
35649
35650/*routdebugenter*/
35651#ifdef F2PY_REPORT_ATEXIT
35652f2py_start_clock();
35653#endif
35654 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
35655 "O|O:_flapack.zheev_lwork",\
35656 capi_kwlist,&n_capi,&lower_capi))
35657 return NULL((void*)0);
35658/*frompyobj*/
35659 /* Processing variable n */
35660 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zheev_lwork() 1st argument (n) can't be converted to int");
35661 if (f2py_success) {
35662 /* Processing variable lower */
35663 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
35664 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zheev_lwork() 1st keyword (lower) can't be converted to int");
35665 if (f2py_success) {
35666 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zheev_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheev_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
35667 /* Processing variable a */
35668 /* Processing variable w */
35669 /* Processing variable rwork */
35670 /* Processing variable lwork */
35671 lwork = -1;
35672 /* Processing variable work */
35673 /* Processing variable info */
35674 /* Processing variable lda */
35675 lda = MAX(1, n)((1 > n) ? (1) : (n));
35676/*end of frompyobj*/
35677#ifdef F2PY_REPORT_ATEXIT
35678f2py_start_call_clock();
35679#endif
35680/*callfortranroutine*/
35681 (*f2py_func)("N",(lower?"L":"U"),&n,&a,&lda,&w,&work,&lwork,&rwork,&info) ;
35682 /*(*f2py_func)(&lower,&n,&w,&a,&lda,&work,&lwork,&rwork,&info);*/
35683if (PyErr_Occurred())
35684 f2py_success = 0;
35685#ifdef F2PY_REPORT_ATEXIT
35686f2py_stop_call_clock();
35687#endif
35688/*end of callfortranroutine*/
35689 if (f2py_success) {
35690/*pyobjfrom*/
35691 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
35692/*end of pyobjfrom*/
35693 CFUNCSMESS("Building return value.\n");
35694 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
35695/*closepyobjfrom*/
35696/*end of closepyobjfrom*/
35697 } /*if (f2py_success) after callfortranroutine*/
35698/*cleanupfrompyobj*/
35699 /* End of cleaning variable lda */
35700 /* End of cleaning variable info */
35701 /* End of cleaning variable work */
35702 /* End of cleaning variable lwork */
35703 /* End of cleaning variable rwork */
35704 /* End of cleaning variable w */
35705 /* End of cleaning variable a */
35706 } /*CHECKSCALAR(lower==0||lower==1)*/
35707 } /*if (f2py_success) of lower*/
35708 /* End of cleaning variable lower */
35709 } /*if (f2py_success) of n*/
35710 /* End of cleaning variable n */
35711/*end of cleanupfrompyobj*/
35712 if (capi_buildvalue == NULL((void*)0)) {
35713/*routdebugfailure*/
35714 } else {
35715/*routdebugleave*/
35716 }
35717 CFUNCSMESS("Freeing memory.\n");
35718/*freemem*/
35719#ifdef F2PY_REPORT_ATEXIT
35720f2py_stop_clock();
35721#endif
35722 return capi_buildvalue;
35723}
35724/***************************** end of zheev_lwork *****************************/
35725
35726/*********************************** ssyevd ***********************************/
35727static char doc_f2py_rout__flapack_ssyevd[] = "\
35728w,v,info = ssyevd(a,[compute_v,lower,lwork,liwork,overwrite_a])\n\nWrapper for ``ssyevd``.\
35729\n\nParameters\n----------\n"
35730"a : input rank-2 array('f') with bounds (n,n)\n"
35731"\nOther Parameters\n----------------\n"
35732"compute_v : input int, optional\n Default: 1\n"
35733"lower : input int, optional\n Default: 0\n"
35734"overwrite_a : input int, optional\n Default: 0\n"
35735"lwork : input int, optional\n Default: max((compute_v?1+6*n+2*n*n:2*n+1),1)\n"
35736"liwork : input int, optional\n Default: (compute_v?3+5*n:1)\n"
35737"\nReturns\n-------\n"
35738"w : rank-1 array('f') with bounds (n)\n"
35739"v : rank-2 array('f') with bounds (n,n) and a storage\n"
35740"info : int";
35741/* extern void F_FUNC(ssyevd,SSYEVD)(char*,char*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
35742static PyObject *f2py_rout__flapack_ssyevd(const PyObject *capi_self,
35743 PyObject *capi_args,
35744 PyObject *capi_keywds,
35745 void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
35746 PyObject * volatile capi_buildvalue = NULL((void*)0);
35747 volatile int f2py_success = 1;
35748/*decl*/
35749
35750 int compute_v = 0;
35751 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
35752 int lower = 0;
35753 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
35754 int n = 0;
35755 float *w = NULL((void*)0);
35756 npy_intp w_Dims[1] = {-1};
35757 const int w_Rank = 1;
35758 PyArrayObject *capi_w_tmp = NULL((void*)0);
35759 int capi_w_intent = 0;
35760 float *a = NULL((void*)0);
35761 npy_intp a_Dims[2] = {-1, -1};
35762 const int a_Rank = 2;
35763 PyArrayObject *capi_a_tmp = NULL((void*)0);
35764 int capi_a_intent = 0;
35765 int capi_overwrite_a = 0;
35766 PyObject *a_capi = Py_None(&_Py_NoneStruct);
35767 int lda = 0;
35768 float *work = NULL((void*)0);
35769 npy_intp work_Dims[1] = {-1};
35770 const int work_Rank = 1;
35771 PyArrayObject *capi_work_tmp = NULL((void*)0);
35772 int capi_work_intent = 0;
35773 int lwork = 0;
35774 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
35775 int *iwork = NULL((void*)0);
35776 npy_intp iwork_Dims[1] = {-1};
35777 const int iwork_Rank = 1;
35778 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
35779 int capi_iwork_intent = 0;
35780 int liwork = 0;
35781 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
35782 int info = 0;
35783 static char *capi_kwlist[] = {"a","compute_v","lower","lwork","liwork","overwrite_a",NULL((void*)0)};
35784
35785/*routdebugenter*/
35786#ifdef F2PY_REPORT_ATEXIT
35787f2py_start_clock();
35788#endif
35789 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
35790 "O|OOOOi:_flapack.ssyevd",\
35791 capi_kwlist,&a_capi,&compute_v_capi,&lower_capi,&lwork_capi,&liwork_capi,&capi_overwrite_a))
35792 return NULL((void*)0);
35793/*frompyobj*/
35794 /* Processing variable compute_v */
35795 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
35796 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.ssyevd() 1st keyword (compute_v) can't be converted to int");
35797 if (f2py_success) {
35798 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","ssyevd:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyevd:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
35799 /* Processing variable lower */
35800 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
35801 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssyevd() 2nd keyword (lower) can't be converted to int");
35802 if (f2py_success) {
35803 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","ssyevd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyevd:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
35804 /* Processing variable a */
35805 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
35806 ;
35807 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
35808 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
35809 if (capi_a_tmp == NULL((void*)0)) {
35810 if (!PyErr_Occurred())
35811 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssyevd to C/Fortran array" );
35812 } else {
35813 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
35814
35815 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
35816 /* Processing variable info */
35817 /* Processing variable n */
35818 n = shape(a,0)a_Dims[0];
35819 /* Processing variable lda */
35820 lda = MAX(1,n)((1 > n) ? (1) : (n));
35821 /* Processing variable w */
35822 w_Dims[0]=n;
35823 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
35824 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
35825 if (capi_w_tmp == NULL((void*)0)) {
35826 if (!PyErr_Occurred())
35827 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.ssyevd to C/Fortran array" );
35828 } else {
35829 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
35830
35831 /* Processing variable lwork */
35832 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max((compute_v?1+6*n+2*n*n:2*n+1),1)(((compute_v?1+6*n+2*n*n:2*n+1) > 1) ? ((compute_v?1+6*n+2
*n*n:2*n+1)) : (1))
; else
35833 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssyevd() 3rd keyword (lwork) can't be converted to int");
35834 if (f2py_success) {
35835 CHECKSCALAR(lwork>=(compute_v?1+6*n+2*n*n:2*n+1),"lwork>=(compute_v?1+6*n+2*n*n:2*n+1)","3rd keyword lwork","ssyevd:lwork=%d",lwork)if (!(lwork>=(compute_v?1+6*n+2*n*n:2*n+1))) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ssyevd:lwork=%d", "(""lwork>=(compute_v?1+6*n+2*n*n:2*n+1)"
") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
35836 /* Processing variable work */
35837 work_Dims[0]=lwork;
35838 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
35839 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
35840 if (capi_work_tmp == NULL((void*)0)) {
35841 if (!PyErr_Occurred())
35842 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssyevd to C/Fortran array" );
35843 } else {
35844 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
35845
35846 /* Processing variable liwork */
35847 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (compute_v?3+5*n:1); else
35848 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.ssyevd() 4th keyword (liwork) can't be converted to int");
35849 if (f2py_success) {
35850 /* Processing variable iwork */
35851 iwork_Dims[0]=liwork;
35852 capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
35853 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
35854 if (capi_iwork_tmp == NULL((void*)0)) {
35855 if (!PyErr_Occurred())
35856 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.ssyevd to C/Fortran array" );
35857 } else {
35858 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
35859
35860/*end of frompyobj*/
35861#ifdef F2PY_REPORT_ATEXIT
35862f2py_start_call_clock();
35863#endif
35864/*callfortranroutine*/
35865 (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,a,&lda,w,work,&lwork,iwork,&liwork,&info) ;
35866 /*(*f2py_func)(&compute_v,&lower,&n,w,a,&lda,work,&lwork,iwork,&liwork,&info);*/
35867if (PyErr_Occurred())
35868 f2py_success = 0;
35869#ifdef F2PY_REPORT_ATEXIT
35870f2py_stop_call_clock();
35871#endif
35872/*end of callfortranroutine*/
35873 if (f2py_success) {
35874/*pyobjfrom*/
35875/*end of pyobjfrom*/
35876 CFUNCSMESS("Building return value.\n");
35877 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info);
35878/*closepyobjfrom*/
35879/*end of closepyobjfrom*/
35880 } /*if (f2py_success) after callfortranroutine*/
35881/*cleanupfrompyobj*/
35882 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
35883 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
35884 /* End of cleaning variable iwork */
35885 } /*if (f2py_success) of liwork*/
35886 /* End of cleaning variable liwork */
35887 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
35888 } /*if (capi_work_tmp == NULL) ... else of work*/
35889 /* End of cleaning variable work */
35890 } /*CHECKSCALAR(lwork>=(compute_v?1+6*n+2*n*n:2*n+1))*/
35891 } /*if (f2py_success) of lwork*/
35892 /* End of cleaning variable lwork */
35893 } /*if (capi_w_tmp == NULL) ... else of w*/
35894 /* End of cleaning variable w */
35895 /* End of cleaning variable lda */
35896 /* End of cleaning variable n */
35897 /* End of cleaning variable info */
35898 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
35899 } /*if (capi_a_tmp == NULL) ... else of a*/
35900 /* End of cleaning variable a */
35901 } /*CHECKSCALAR(lower==0||lower==1)*/
35902 } /*if (f2py_success) of lower*/
35903 /* End of cleaning variable lower */
35904 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
35905 } /*if (f2py_success) of compute_v*/
35906 /* End of cleaning variable compute_v */
35907/*end of cleanupfrompyobj*/
35908 if (capi_buildvalue == NULL((void*)0)) {
35909/*routdebugfailure*/
35910 } else {
35911/*routdebugleave*/
35912 }
35913 CFUNCSMESS("Freeing memory.\n");
35914/*freemem*/
35915#ifdef F2PY_REPORT_ATEXIT
35916f2py_stop_clock();
35917#endif
35918 return capi_buildvalue;
35919}
35920/******************************* end of ssyevd *******************************/
35921
35922/*********************************** dsyevd ***********************************/
35923static char doc_f2py_rout__flapack_dsyevd[] = "\
35924w,v,info = dsyevd(a,[compute_v,lower,lwork,liwork,overwrite_a])\n\nWrapper for ``dsyevd``.\
35925\n\nParameters\n----------\n"
35926"a : input rank-2 array('d') with bounds (n,n)\n"
35927"\nOther Parameters\n----------------\n"
35928"compute_v : input int, optional\n Default: 1\n"
35929"lower : input int, optional\n Default: 0\n"
35930"overwrite_a : input int, optional\n Default: 0\n"
35931"lwork : input int, optional\n Default: max((compute_v?1+6*n+2*n*n:2*n+1),1)\n"
35932"liwork : input int, optional\n Default: (compute_v?3+5*n:1)\n"
35933"\nReturns\n-------\n"
35934"w : rank-1 array('d') with bounds (n)\n"
35935"v : rank-2 array('d') with bounds (n,n) and a storage\n"
35936"info : int";
35937/* extern void F_FUNC(dsyevd,DSYEVD)(char*,char*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
35938static PyObject *f2py_rout__flapack_dsyevd(const PyObject *capi_self,
35939 PyObject *capi_args,
35940 PyObject *capi_keywds,
35941 void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
35942 PyObject * volatile capi_buildvalue = NULL((void*)0);
35943 volatile int f2py_success = 1;
35944/*decl*/
35945
35946 int compute_v = 0;
35947 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
35948 int lower = 0;
35949 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
35950 int n = 0;
35951 double *w = NULL((void*)0);
35952 npy_intp w_Dims[1] = {-1};
35953 const int w_Rank = 1;
35954 PyArrayObject *capi_w_tmp = NULL((void*)0);
35955 int capi_w_intent = 0;
35956 double *a = NULL((void*)0);
35957 npy_intp a_Dims[2] = {-1, -1};
35958 const int a_Rank = 2;
35959 PyArrayObject *capi_a_tmp = NULL((void*)0);
35960 int capi_a_intent = 0;
35961 int capi_overwrite_a = 0;
35962 PyObject *a_capi = Py_None(&_Py_NoneStruct);
35963 int lda = 0;
35964 double *work = NULL((void*)0);
35965 npy_intp work_Dims[1] = {-1};
35966 const int work_Rank = 1;
35967 PyArrayObject *capi_work_tmp = NULL((void*)0);
35968 int capi_work_intent = 0;
35969 int lwork = 0;
35970 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
35971 int *iwork = NULL((void*)0);
35972 npy_intp iwork_Dims[1] = {-1};
35973 const int iwork_Rank = 1;
35974 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
35975 int capi_iwork_intent = 0;
35976 int liwork = 0;
35977 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
35978 int info = 0;
35979 static char *capi_kwlist[] = {"a","compute_v","lower","lwork","liwork","overwrite_a",NULL((void*)0)};
35980
35981/*routdebugenter*/
35982#ifdef F2PY_REPORT_ATEXIT
35983f2py_start_clock();
35984#endif
35985 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
35986 "O|OOOOi:_flapack.dsyevd",\
35987 capi_kwlist,&a_capi,&compute_v_capi,&lower_capi,&lwork_capi,&liwork_capi,&capi_overwrite_a))
35988 return NULL((void*)0);
35989/*frompyobj*/
35990 /* Processing variable compute_v */
35991 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
35992 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dsyevd() 1st keyword (compute_v) can't be converted to int");
35993 if (f2py_success) {
35994 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","dsyevd:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyevd:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
35995 /* Processing variable lower */
35996 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
35997 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsyevd() 2nd keyword (lower) can't be converted to int");
35998 if (f2py_success) {
35999 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","dsyevd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyevd:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
36000 /* Processing variable a */
36001 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
36002 ;
36003 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
36004 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
36005 if (capi_a_tmp == NULL((void*)0)) {
36006 if (!PyErr_Occurred())
36007 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsyevd to C/Fortran array" );
36008 } else {
36009 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
36010
36011 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
36012 /* Processing variable info */
36013 /* Processing variable n */
36014 n = shape(a,0)a_Dims[0];
36015 /* Processing variable lda */
36016 lda = MAX(1,n)((1 > n) ? (1) : (n));
36017 /* Processing variable w */
36018 w_Dims[0]=n;
36019 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
36020 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
36021 if (capi_w_tmp == NULL((void*)0)) {
36022 if (!PyErr_Occurred())
36023 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dsyevd to C/Fortran array" );
36024 } else {
36025 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
36026
36027 /* Processing variable lwork */
36028 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max((compute_v?1+6*n+2*n*n:2*n+1),1)(((compute_v?1+6*n+2*n*n:2*n+1) > 1) ? ((compute_v?1+6*n+2
*n*n:2*n+1)) : (1))
; else
36029 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsyevd() 3rd keyword (lwork) can't be converted to int");
36030 if (f2py_success) {
36031 CHECKSCALAR(lwork>=(compute_v?1+6*n+2*n*n:2*n+1),"lwork>=(compute_v?1+6*n+2*n*n:2*n+1)","3rd keyword lwork","dsyevd:lwork=%d",lwork)if (!(lwork>=(compute_v?1+6*n+2*n*n:2*n+1))) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dsyevd:lwork=%d", "(""lwork>=(compute_v?1+6*n+2*n*n:2*n+1)"
") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
36032 /* Processing variable work */
36033 work_Dims[0]=lwork;
36034 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
36035 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
36036 if (capi_work_tmp == NULL((void*)0)) {
36037 if (!PyErr_Occurred())
36038 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsyevd to C/Fortran array" );
36039 } else {
36040 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
36041
36042 /* Processing variable liwork */
36043 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (compute_v?3+5*n:1); else
36044 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.dsyevd() 4th keyword (liwork) can't be converted to int");
36045 if (f2py_success) {
36046 /* Processing variable iwork */
36047 iwork_Dims[0]=liwork;
36048 capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
36049 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
36050 if (capi_iwork_tmp == NULL((void*)0)) {
36051 if (!PyErr_Occurred())
36052 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dsyevd to C/Fortran array" );
36053 } else {
36054 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
36055
36056/*end of frompyobj*/
36057#ifdef F2PY_REPORT_ATEXIT
36058f2py_start_call_clock();
36059#endif
36060/*callfortranroutine*/
36061 (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,a,&lda,w,work,&lwork,iwork,&liwork,&info) ;
36062 /*(*f2py_func)(&compute_v,&lower,&n,w,a,&lda,work,&lwork,iwork,&liwork,&info);*/
36063if (PyErr_Occurred())
36064 f2py_success = 0;
36065#ifdef F2PY_REPORT_ATEXIT
36066f2py_stop_call_clock();
36067#endif
36068/*end of callfortranroutine*/
36069 if (f2py_success) {
36070/*pyobjfrom*/
36071/*end of pyobjfrom*/
36072 CFUNCSMESS("Building return value.\n");
36073 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info);
36074/*closepyobjfrom*/
36075/*end of closepyobjfrom*/
36076 } /*if (f2py_success) after callfortranroutine*/
36077/*cleanupfrompyobj*/
36078 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
36079 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
36080 /* End of cleaning variable iwork */
36081 } /*if (f2py_success) of liwork*/
36082 /* End of cleaning variable liwork */
36083 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
36084 } /*if (capi_work_tmp == NULL) ... else of work*/
36085 /* End of cleaning variable work */
36086 } /*CHECKSCALAR(lwork>=(compute_v?1+6*n+2*n*n:2*n+1))*/
36087 } /*if (f2py_success) of lwork*/
36088 /* End of cleaning variable lwork */
36089 } /*if (capi_w_tmp == NULL) ... else of w*/
36090 /* End of cleaning variable w */
36091 /* End of cleaning variable lda */
36092 /* End of cleaning variable n */
36093 /* End of cleaning variable info */
36094 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
36095 } /*if (capi_a_tmp == NULL) ... else of a*/
36096 /* End of cleaning variable a */
36097 } /*CHECKSCALAR(lower==0||lower==1)*/
36098 } /*if (f2py_success) of lower*/
36099 /* End of cleaning variable lower */
36100 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
36101 } /*if (f2py_success) of compute_v*/
36102 /* End of cleaning variable compute_v */
36103/*end of cleanupfrompyobj*/
36104 if (capi_buildvalue == NULL((void*)0)) {
36105/*routdebugfailure*/
36106 } else {
36107/*routdebugleave*/
36108 }
36109 CFUNCSMESS("Freeing memory.\n");
36110/*freemem*/
36111#ifdef F2PY_REPORT_ATEXIT
36112f2py_stop_clock();
36113#endif
36114 return capi_buildvalue;
36115}
36116/******************************* end of dsyevd *******************************/
36117
36118/******************************** ssyevd_lwork ********************************/
36119static char doc_f2py_rout__flapack_ssyevd_lwork[] = "\
36120work,iwork,info = ssyevd_lwork(n,[compute_v,lower])\n\nWrapper for ``ssyevd_lwork``.\
36121\n\nParameters\n----------\n"
36122"n : input int\n"
36123"\nOther Parameters\n----------------\n"
36124"compute_v : input int, optional\n Default: 1\n"
36125"lower : input int, optional\n Default: 0\n"
36126"\nReturns\n-------\n"
36127"work : float\n"
36128"iwork : int\n"
36129"info : int";
36130/* extern void F_FUNC(ssyevd ,SSYEVD )(char*,char*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
36131static PyObject *f2py_rout__flapack_ssyevd_lwork(const PyObject *capi_self,
36132 PyObject *capi_args,
36133 PyObject *capi_keywds,
36134 void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
36135 PyObject * volatile capi_buildvalue = NULL((void*)0);
36136 volatile int f2py_success = 1;
36137/*decl*/
36138
36139 int compute_v = 0;
36140 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
36141 int lower = 0;
36142 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
36143 int n = 0;
36144 PyObject *n_capi = Py_None(&_Py_NoneStruct);
36145 float w = 0;
36146 float a = 0;
36147 int lda = 0;
36148 float work = 0;
36149 int lwork = 0;
36150 int iwork = 0;
36151 int liwork = 0;
36152 int info = 0;
36153 static char *capi_kwlist[] = {"n","compute_v","lower",NULL((void*)0)};
36154
36155/*routdebugenter*/
36156#ifdef F2PY_REPORT_ATEXIT
36157f2py_start_clock();
36158#endif
36159 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
36160 "O|OO:_flapack.ssyevd_lwork",\
36161 capi_kwlist,&n_capi,&compute_v_capi,&lower_capi))
36162 return NULL((void*)0);
36163/*frompyobj*/
36164 /* Processing variable n */
36165 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssyevd_lwork() 1st argument (n) can't be converted to int");
36166 if (f2py_success) {
36167 /* Processing variable lower */
36168 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
36169 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssyevd_lwork() 2nd keyword (lower) can't be converted to int");
36170 if (f2py_success) {
36171 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","ssyevd_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyevd_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
36172 /* Processing variable compute_v */
36173 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
36174 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.ssyevd_lwork() 1st keyword (compute_v) can't be converted to int");
36175 if (f2py_success) {
36176 CHECKSCALAR(compute_v==0||compute_v==1,"compute_v==0||compute_v==1","1st keyword compute_v","ssyevd_lwork:compute_v=%d",compute_v)if (!(compute_v==0||compute_v==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyevd_lwork:compute_v=%d", "(""compute_v==0||compute_v==1"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
36177 /* Processing variable a */
36178 /* Processing variable w */
36179 /* Processing variable lwork */
36180 lwork = -1;
36181 /* Processing variable liwork */
36182 liwork = -1;
36183 /* Processing variable work */
36184 /* Processing variable iwork */
36185 /* Processing variable info */
36186 /* Processing variable lda */
36187 lda = MAX(1,n)((1 > n) ? (1) : (n));
36188/*end of frompyobj*/
36189#ifdef F2PY_REPORT_ATEXIT
36190f2py_start_call_clock();
36191#endif
36192/*callfortranroutine*/
36193 (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,&a,&lda,&w,&work,&lwork,&iwork,&liwork,&info) ;
36194 /*(*f2py_func)(&compute_v,&lower,&n,&w,&a,&lda,&work,&lwork,&iwork,&liwork,&info);*/
36195if (PyErr_Occurred())
36196 f2py_success = 0;
36197#ifdef F2PY_REPORT_ATEXIT
36198f2py_stop_call_clock();
36199#endif
36200/*end of callfortranroutine*/
36201 if (f2py_success) {
36202/*pyobjfrom*/
36203/*end of pyobjfrom*/
36204 CFUNCSMESS("Building return value.\n");
36205 capi_buildvalue = Py_BuildValue("fii",work,iwork,info);
36206/*closepyobjfrom*/
36207/*end of closepyobjfrom*/
36208 } /*if (f2py_success) after callfortranroutine*/
36209/*cleanupfrompyobj*/
36210 /* End of cleaning variable lda */
36211 /* End of cleaning variable info */
36212 /* End of cleaning variable iwork */
36213 /* End of cleaning variable work */
36214 /* End of cleaning variable liwork */
36215 /* End of cleaning variable lwork */
36216 /* End of cleaning variable w */
36217 /* End of cleaning variable a */
36218 } /*CHECKSCALAR(compute_v==0||compute_v==1)*/
36219 } /*if (f2py_success) of compute_v*/
36220 /* End of cleaning variable compute_v */
36221 } /*CHECKSCALAR(lower==0||lower==1)*/
36222 } /*if (f2py_success) of lower*/
36223 /* End of cleaning variable lower */
36224 } /*if (f2py_success) of n*/
36225 /* End of cleaning variable n */
36226/*end of cleanupfrompyobj*/
36227 if (capi_buildvalue == NULL((void*)0)) {
36228/*routdebugfailure*/
36229 } else {
36230/*routdebugleave*/
36231 }
36232 CFUNCSMESS("Freeing memory.\n");
36233/*freemem*/
36234#ifdef F2PY_REPORT_ATEXIT
36235f2py_stop_clock();
36236#endif
36237 return capi_buildvalue;
36238}
36239/**************************** end of ssyevd_lwork ****************************/
36240
36241/******************************** dsyevd_lwork ********************************/
36242static char doc_f2py_rout__flapack_dsyevd_lwork[] = "\
36243work,iwork,info = dsyevd_lwork(n,[compute_v,lower])\n\nWrapper for ``dsyevd_lwork``.\
36244\n\nParameters\n----------\n"
36245"n : input int\n"
36246"\nOther Parameters\n----------------\n"
36247"compute_v : input int, optional\n Default: 1\n"
36248"lower : input int, optional\n Default: 0\n"
36249"\nReturns\n-------\n"
36250"work : float\n"
36251"iwork : int\n"
36252"info : int";
36253/* extern void F_FUNC(dsyevd ,DSYEVD )(char*,char*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
36254static PyObject *f2py_rout__flapack_dsyevd_lwork(const PyObject *capi_self,
36255 PyObject *capi_args,
36256 PyObject *capi_keywds,
36257 void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
36258 PyObject * volatile capi_buildvalue = NULL((void*)0);
36259 volatile int f2py_success = 1;
36260/*decl*/
36261
36262 int compute_v = 0;
36263 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
36264 int lower = 0;
36265 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
36266 int n = 0;
36267 PyObject *n_capi = Py_None(&_Py_NoneStruct);
36268 double w = 0;
36269 double a = 0;
36270 int lda = 0;
36271 double work = 0;
36272 int lwork = 0;
36273 int iwork = 0;
36274 int liwork = 0;
36275 int info = 0;
36276 static char *capi_kwlist[] = {"n","compute_v","lower",NULL((void*)0)};
36277
36278/*routdebugenter*/
36279#ifdef F2PY_REPORT_ATEXIT
36280f2py_start_clock();
36281#endif
36282 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
36283 "O|OO:_flapack.dsyevd_lwork",\
36284 capi_kwlist,&n_capi,&compute_v_capi,&lower_capi))
36285 return NULL((void*)0);
36286/*frompyobj*/
36287 /* Processing variable n */
36288 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsyevd_lwork() 1st argument (n) can't be converted to int");
36289 if (f2py_success) {
36290 /* Processing variable lower */
36291 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
36292 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsyevd_lwork() 2nd keyword (lower) can't be converted to int");
36293 if (f2py_success) {
36294 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","dsyevd_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyevd_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
36295 /* Processing variable compute_v */
36296 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
36297 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dsyevd_lwork() 1st keyword (compute_v) can't be converted to int");
36298 if (f2py_success) {
36299 CHECKSCALAR(compute_v==0||compute_v==1,"compute_v==0||compute_v==1","1st keyword compute_v","dsyevd_lwork:compute_v=%d",compute_v)if (!(compute_v==0||compute_v==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyevd_lwork:compute_v=%d", "(""compute_v==0||compute_v==1"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
36300 /* Processing variable a */
36301 /* Processing variable w */
36302 /* Processing variable lwork */
36303 lwork = -1;
36304 /* Processing variable liwork */
36305 liwork = -1;
36306 /* Processing variable work */
36307 /* Processing variable iwork */
36308 /* Processing variable info */
36309 /* Processing variable lda */
36310 lda = MAX(1,n)((1 > n) ? (1) : (n));
36311/*end of frompyobj*/
36312#ifdef F2PY_REPORT_ATEXIT
36313f2py_start_call_clock();
36314#endif
36315/*callfortranroutine*/
36316 (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,&a,&lda,&w,&work,&lwork,&iwork,&liwork,&info) ;
36317 /*(*f2py_func)(&compute_v,&lower,&n,&w,&a,&lda,&work,&lwork,&iwork,&liwork,&info);*/
36318if (PyErr_Occurred())
36319 f2py_success = 0;
36320#ifdef F2PY_REPORT_ATEXIT
36321f2py_stop_call_clock();
36322#endif
36323/*end of callfortranroutine*/
36324 if (f2py_success) {
36325/*pyobjfrom*/
36326/*end of pyobjfrom*/
36327 CFUNCSMESS("Building return value.\n");
36328 capi_buildvalue = Py_BuildValue("dii",work,iwork,info);
36329/*closepyobjfrom*/
36330/*end of closepyobjfrom*/
36331 } /*if (f2py_success) after callfortranroutine*/
36332/*cleanupfrompyobj*/
36333 /* End of cleaning variable lda */
36334 /* End of cleaning variable info */
36335 /* End of cleaning variable iwork */
36336 /* End of cleaning variable work */
36337 /* End of cleaning variable liwork */
36338 /* End of cleaning variable lwork */
36339 /* End of cleaning variable w */
36340 /* End of cleaning variable a */
36341 } /*CHECKSCALAR(compute_v==0||compute_v==1)*/
36342 } /*if (f2py_success) of compute_v*/
36343 /* End of cleaning variable compute_v */
36344 } /*CHECKSCALAR(lower==0||lower==1)*/
36345 } /*if (f2py_success) of lower*/
36346 /* End of cleaning variable lower */
36347 } /*if (f2py_success) of n*/
36348 /* End of cleaning variable n */
36349/*end of cleanupfrompyobj*/
36350 if (capi_buildvalue == NULL((void*)0)) {
36351/*routdebugfailure*/
36352 } else {
36353/*routdebugleave*/
36354 }
36355 CFUNCSMESS("Freeing memory.\n");
36356/*freemem*/
36357#ifdef F2PY_REPORT_ATEXIT
36358f2py_stop_clock();
36359#endif
36360 return capi_buildvalue;
36361}
36362/**************************** end of dsyevd_lwork ****************************/
36363
36364/*********************************** cheevd ***********************************/
36365static char doc_f2py_rout__flapack_cheevd[] = "\
36366w,v,info = cheevd(a,[compute_v,lower,lwork,liwork,lrwork,overwrite_a])\n\nWrapper for ``cheevd``.\
36367\n\nParameters\n----------\n"
36368"a : input rank-2 array('F') with bounds (n,n)\n"
36369"\nOther Parameters\n----------------\n"
36370"compute_v : input int, optional\n Default: 1\n"
36371"lower : input int, optional\n Default: 0\n"
36372"overwrite_a : input int, optional\n Default: 0\n"
36373"lwork : input int, optional\n Default: max((compute_v?2*n+n*n:n+1),1)\n"
36374"liwork : input int, optional\n Default: (compute_v?3+5*n:1)\n"
36375"lrwork : input int, optional\n Default: (compute_v?1+5*n+2*n*n:n)\n"
36376"\nReturns\n-------\n"
36377"w : rank-1 array('f') with bounds (n)\n"
36378"v : rank-2 array('F') with bounds (n,n) and a storage\n"
36379"info : int";
36380/* extern void F_FUNC(cheevd,CHEEVD)(char*,char*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
36381static PyObject *f2py_rout__flapack_cheevd(const PyObject *capi_self,
36382 PyObject *capi_args,
36383 PyObject *capi_keywds,
36384 void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
36385 PyObject * volatile capi_buildvalue = NULL((void*)0);
36386 volatile int f2py_success = 1;
36387/*decl*/
36388
36389 int compute_v = 0;
36390 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
36391 int lower = 0;
36392 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
36393 int n = 0;
36394 float *w = NULL((void*)0);
36395 npy_intp w_Dims[1] = {-1};
36396 const int w_Rank = 1;
36397 PyArrayObject *capi_w_tmp = NULL((void*)0);
36398 int capi_w_intent = 0;
36399 complex_float *a = NULL((void*)0);
36400 npy_intp a_Dims[2] = {-1, -1};
36401 const int a_Rank = 2;
36402 PyArrayObject *capi_a_tmp = NULL((void*)0);
36403 int capi_a_intent = 0;
36404 int capi_overwrite_a = 0;
36405 PyObject *a_capi = Py_None(&_Py_NoneStruct);
36406 int lda = 0;
36407 complex_float *work = NULL((void*)0);
36408 npy_intp work_Dims[1] = {-1};
36409 const int work_Rank = 1;
36410 PyArrayObject *capi_work_tmp = NULL((void*)0);
36411 int capi_work_intent = 0;
36412 int lwork = 0;
36413 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
36414 int *iwork = NULL((void*)0);
36415 npy_intp iwork_Dims[1] = {-1};
36416 const int iwork_Rank = 1;
36417 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
36418 int capi_iwork_intent = 0;
36419 int liwork = 0;
36420 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
36421 float *rwork = NULL((void*)0);
36422 npy_intp rwork_Dims[1] = {-1};
36423 const int rwork_Rank = 1;
36424 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
36425 int capi_rwork_intent = 0;
36426 int lrwork = 0;
36427 PyObject *lrwork_capi = Py_None(&_Py_NoneStruct);
36428 int info = 0;
36429 static char *capi_kwlist[] = {"a","compute_v","lower","lwork","liwork","lrwork","overwrite_a",NULL((void*)0)};
36430
36431/*routdebugenter*/
36432#ifdef F2PY_REPORT_ATEXIT
36433f2py_start_clock();
36434#endif
36435 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
36436 "O|OOOOOi:_flapack.cheevd",\
36437 capi_kwlist,&a_capi,&compute_v_capi,&lower_capi,&lwork_capi,&liwork_capi,&lrwork_capi,&capi_overwrite_a))
36438 return NULL((void*)0);
36439/*frompyobj*/
36440 /* Processing variable compute_v */
36441 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
36442 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.cheevd() 1st keyword (compute_v) can't be converted to int");
36443 if (f2py_success) {
36444 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","cheevd:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheevd:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
36445 /* Processing variable lower */
36446 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
36447 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cheevd() 2nd keyword (lower) can't be converted to int");
36448 if (f2py_success) {
36449 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","cheevd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheevd:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
36450 /* Processing variable a */
36451 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
36452 ;
36453 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
36454 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
36455 if (capi_a_tmp == NULL((void*)0)) {
36456 if (!PyErr_Occurred())
36457 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cheevd to C/Fortran array" );
36458 } else {
36459 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
36460
36461 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
36462 /* Processing variable info */
36463 /* Processing variable n */
36464 n = shape(a,0)a_Dims[0];
36465 /* Processing variable lda */
36466 lda = MAX(1,n)((1 > n) ? (1) : (n));
36467 /* Processing variable w */
36468 w_Dims[0]=n;
36469 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
36470 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
36471 if (capi_w_tmp == NULL((void*)0)) {
36472 if (!PyErr_Occurred())
36473 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.cheevd to C/Fortran array" );
36474 } else {
36475 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
36476
36477 /* Processing variable lwork */
36478 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max((compute_v?2*n+n*n:n+1),1)(((compute_v?2*n+n*n:n+1) > 1) ? ((compute_v?2*n+n*n:n+1))
: (1))
; else
36479 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cheevd() 3rd keyword (lwork) can't be converted to int");
36480 if (f2py_success) {
36481 CHECKSCALAR(lwork>=(compute_v?2*n+n*n:n+1),"lwork>=(compute_v?2*n+n*n:n+1)","3rd keyword lwork","cheevd:lwork=%d",lwork)if (!(lwork>=(compute_v?2*n+n*n:n+1))) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""cheevd:lwork=%d", "(""lwork>=(compute_v?2*n+n*n:n+1)"
") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
36482 /* Processing variable work */
36483 work_Dims[0]=lwork;
36484 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
36485 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
36486 if (capi_work_tmp == NULL((void*)0)) {
36487 if (!PyErr_Occurred())
36488 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cheevd to C/Fortran array" );
36489 } else {
36490 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
36491
36492 /* Processing variable liwork */
36493 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (compute_v?3+5*n:1); else
36494 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.cheevd() 4th keyword (liwork) can't be converted to int");
36495 if (f2py_success) {
36496 /* Processing variable iwork */
36497 iwork_Dims[0]=liwork;
36498 capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
36499 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
36500 if (capi_iwork_tmp == NULL((void*)0)) {
36501 if (!PyErr_Occurred())
36502 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.cheevd to C/Fortran array" );
36503 } else {
36504 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
36505
36506 /* Processing variable lrwork */
36507 if (lrwork_capi == Py_None(&_Py_NoneStruct)) lrwork = (compute_v?1+5*n+2*n*n:n); else
36508 f2py_success = int_from_pyobj(&lrwork,lrwork_capi,"_flapack.cheevd() 5th keyword (lrwork) can't be converted to int");
36509 if (f2py_success) {
36510 /* Processing variable rwork */
36511 rwork_Dims[0]=lrwork;
36512 capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
36513 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
36514 if (capi_rwork_tmp == NULL((void*)0)) {
36515 if (!PyErr_Occurred())
36516 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cheevd to C/Fortran array" );
36517 } else {
36518 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
36519
36520/*end of frompyobj*/
36521#ifdef F2PY_REPORT_ATEXIT
36522f2py_start_call_clock();
36523#endif
36524/*callfortranroutine*/
36525 (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,a,&lda,w,work,&lwork,rwork,&lrwork,iwork,&liwork,&info) ;
36526 /*(*f2py_func)(&compute_v,&lower,&n,w,a,&lda,work,&lwork,iwork,&liwork,rwork,&lrwork,&info);*/
36527if (PyErr_Occurred())
36528 f2py_success = 0;
36529#ifdef F2PY_REPORT_ATEXIT
36530f2py_stop_call_clock();
36531#endif
36532/*end of callfortranroutine*/
36533 if (f2py_success) {
36534/*pyobjfrom*/
36535/*end of pyobjfrom*/
36536 CFUNCSMESS("Building return value.\n");
36537 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info);
36538/*closepyobjfrom*/
36539/*end of closepyobjfrom*/
36540 } /*if (f2py_success) after callfortranroutine*/
36541/*cleanupfrompyobj*/
36542 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
36543 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
36544 /* End of cleaning variable rwork */
36545 } /*if (f2py_success) of lrwork*/
36546 /* End of cleaning variable lrwork */
36547 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
36548 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
36549 /* End of cleaning variable iwork */
36550 } /*if (f2py_success) of liwork*/
36551 /* End of cleaning variable liwork */
36552 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
36553 } /*if (capi_work_tmp == NULL) ... else of work*/
36554 /* End of cleaning variable work */
36555 } /*CHECKSCALAR(lwork>=(compute_v?2*n+n*n:n+1))*/
36556 } /*if (f2py_success) of lwork*/
36557 /* End of cleaning variable lwork */
36558 } /*if (capi_w_tmp == NULL) ... else of w*/
36559 /* End of cleaning variable w */
36560 /* End of cleaning variable lda */
36561 /* End of cleaning variable n */
36562 /* End of cleaning variable info */
36563 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
36564 } /*if (capi_a_tmp == NULL) ... else of a*/
36565 /* End of cleaning variable a */
36566 } /*CHECKSCALAR(lower==0||lower==1)*/
36567 } /*if (f2py_success) of lower*/
36568 /* End of cleaning variable lower */
36569 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
36570 } /*if (f2py_success) of compute_v*/
36571 /* End of cleaning variable compute_v */
36572/*end of cleanupfrompyobj*/
36573 if (capi_buildvalue == NULL((void*)0)) {
36574/*routdebugfailure*/
36575 } else {
36576/*routdebugleave*/
36577 }
36578 CFUNCSMESS("Freeing memory.\n");
36579/*freemem*/
36580#ifdef F2PY_REPORT_ATEXIT
36581f2py_stop_clock();
36582#endif
36583 return capi_buildvalue;
36584}
36585/******************************* end of cheevd *******************************/
36586
36587/*********************************** zheevd ***********************************/
36588static char doc_f2py_rout__flapack_zheevd[] = "\
36589w,v,info = zheevd(a,[compute_v,lower,lwork,liwork,lrwork,overwrite_a])\n\nWrapper for ``zheevd``.\
36590\n\nParameters\n----------\n"
36591"a : input rank-2 array('D') with bounds (n,n)\n"
36592"\nOther Parameters\n----------------\n"
36593"compute_v : input int, optional\n Default: 1\n"
36594"lower : input int, optional\n Default: 0\n"
36595"overwrite_a : input int, optional\n Default: 0\n"
36596"lwork : input int, optional\n Default: max((compute_v?2*n+n*n:n+1),1)\n"
36597"liwork : input int, optional\n Default: (compute_v?3+5*n:1)\n"
36598"lrwork : input int, optional\n Default: (compute_v?1+5*n+2*n*n:n)\n"
36599"\nReturns\n-------\n"
36600"w : rank-1 array('d') with bounds (n)\n"
36601"v : rank-2 array('D') with bounds (n,n) and a storage\n"
36602"info : int";
36603/* extern void F_FUNC(zheevd,ZHEEVD)(char*,char*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
36604static PyObject *f2py_rout__flapack_zheevd(const PyObject *capi_self,
36605 PyObject *capi_args,
36606 PyObject *capi_keywds,
36607 void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
36608 PyObject * volatile capi_buildvalue = NULL((void*)0);
36609 volatile int f2py_success = 1;
36610/*decl*/
36611
36612 int compute_v = 0;
36613 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
36614 int lower = 0;
36615 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
36616 int n = 0;
36617 double *w = NULL((void*)0);
36618 npy_intp w_Dims[1] = {-1};
36619 const int w_Rank = 1;
36620 PyArrayObject *capi_w_tmp = NULL((void*)0);
36621 int capi_w_intent = 0;
36622 complex_double *a = NULL((void*)0);
36623 npy_intp a_Dims[2] = {-1, -1};
36624 const int a_Rank = 2;
36625 PyArrayObject *capi_a_tmp = NULL((void*)0);
36626 int capi_a_intent = 0;
36627 int capi_overwrite_a = 0;
36628 PyObject *a_capi = Py_None(&_Py_NoneStruct);
36629 int lda = 0;
36630 complex_double *work = NULL((void*)0);
36631 npy_intp work_Dims[1] = {-1};
36632 const int work_Rank = 1;
36633 PyArrayObject *capi_work_tmp = NULL((void*)0);
36634 int capi_work_intent = 0;
36635 int lwork = 0;
36636 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
36637 int *iwork = NULL((void*)0);
36638 npy_intp iwork_Dims[1] = {-1};
36639 const int iwork_Rank = 1;
36640 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
36641 int capi_iwork_intent = 0;
36642 int liwork = 0;
36643 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
36644 double *rwork = NULL((void*)0);
36645 npy_intp rwork_Dims[1] = {-1};
36646 const int rwork_Rank = 1;
36647 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
36648 int capi_rwork_intent = 0;
36649 int lrwork = 0;
36650 PyObject *lrwork_capi = Py_None(&_Py_NoneStruct);
36651 int info = 0;
36652 static char *capi_kwlist[] = {"a","compute_v","lower","lwork","liwork","lrwork","overwrite_a",NULL((void*)0)};
36653
36654/*routdebugenter*/
36655#ifdef F2PY_REPORT_ATEXIT
36656f2py_start_clock();
36657#endif
36658 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
36659 "O|OOOOOi:_flapack.zheevd",\
36660 capi_kwlist,&a_capi,&compute_v_capi,&lower_capi,&lwork_capi,&liwork_capi,&lrwork_capi,&capi_overwrite_a))
36661 return NULL((void*)0);
36662/*frompyobj*/
36663 /* Processing variable compute_v */
36664 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
36665 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.zheevd() 1st keyword (compute_v) can't be converted to int");
36666 if (f2py_success) {
36667 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","zheevd:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheevd:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
36668 /* Processing variable lower */
36669 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
36670 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zheevd() 2nd keyword (lower) can't be converted to int");
36671 if (f2py_success) {
36672 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","zheevd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheevd:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
36673 /* Processing variable a */
36674 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
36675 ;
36676 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
36677 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
36678 if (capi_a_tmp == NULL((void*)0)) {
36679 if (!PyErr_Occurred())
36680 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zheevd to C/Fortran array" );
36681 } else {
36682 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
36683
36684 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
36685 /* Processing variable info */
36686 /* Processing variable n */
36687 n = shape(a,0)a_Dims[0];
36688 /* Processing variable lda */
36689 lda = MAX(1,n)((1 > n) ? (1) : (n));
36690 /* Processing variable w */
36691 w_Dims[0]=n;
36692 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
36693 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
36694 if (capi_w_tmp == NULL((void*)0)) {
36695 if (!PyErr_Occurred())
36696 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zheevd to C/Fortran array" );
36697 } else {
36698 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
36699
36700 /* Processing variable lwork */
36701 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max((compute_v?2*n+n*n:n+1),1)(((compute_v?2*n+n*n:n+1) > 1) ? ((compute_v?2*n+n*n:n+1))
: (1))
; else
36702 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zheevd() 3rd keyword (lwork) can't be converted to int");
36703 if (f2py_success) {
36704 CHECKSCALAR(lwork>=(compute_v?2*n+n*n:n+1),"lwork>=(compute_v?2*n+n*n:n+1)","3rd keyword lwork","zheevd:lwork=%d",lwork)if (!(lwork>=(compute_v?2*n+n*n:n+1))) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zheevd:lwork=%d", "(""lwork>=(compute_v?2*n+n*n:n+1)"
") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
36705 /* Processing variable work */
36706 work_Dims[0]=lwork;
36707 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
36708 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
36709 if (capi_work_tmp == NULL((void*)0)) {
36710 if (!PyErr_Occurred())
36711 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zheevd to C/Fortran array" );
36712 } else {
36713 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
36714
36715 /* Processing variable liwork */
36716 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (compute_v?3+5*n:1); else
36717 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.zheevd() 4th keyword (liwork) can't be converted to int");
36718 if (f2py_success) {
36719 /* Processing variable iwork */
36720 iwork_Dims[0]=liwork;
36721 capi_iwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
36722 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
36723 if (capi_iwork_tmp == NULL((void*)0)) {
36724 if (!PyErr_Occurred())
36725 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.zheevd to C/Fortran array" );
36726 } else {
36727 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
36728
36729 /* Processing variable lrwork */
36730 if (lrwork_capi == Py_None(&_Py_NoneStruct)) lrwork = (compute_v?1+5*n+2*n*n:n); else
36731 f2py_success = int_from_pyobj(&lrwork,lrwork_capi,"_flapack.zheevd() 5th keyword (lrwork) can't be converted to int");
36732 if (f2py_success) {
36733 /* Processing variable rwork */
36734 rwork_Dims[0]=lrwork;
36735 capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
36736 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
36737 if (capi_rwork_tmp == NULL((void*)0)) {
36738 if (!PyErr_Occurred())
36739 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zheevd to C/Fortran array" );
36740 } else {
36741 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
36742
36743/*end of frompyobj*/
36744#ifdef F2PY_REPORT_ATEXIT
36745f2py_start_call_clock();
36746#endif
36747/*callfortranroutine*/
36748 (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,a,&lda,w,work,&lwork,rwork,&lrwork,iwork,&liwork,&info) ;
36749 /*(*f2py_func)(&compute_v,&lower,&n,w,a,&lda,work,&lwork,iwork,&liwork,rwork,&lrwork,&info);*/
36750if (PyErr_Occurred())
36751 f2py_success = 0;
36752#ifdef F2PY_REPORT_ATEXIT
36753f2py_stop_call_clock();
36754#endif
36755/*end of callfortranroutine*/
36756 if (f2py_success) {
36757/*pyobjfrom*/
36758/*end of pyobjfrom*/
36759 CFUNCSMESS("Building return value.\n");
36760 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info);
36761/*closepyobjfrom*/
36762/*end of closepyobjfrom*/
36763 } /*if (f2py_success) after callfortranroutine*/
36764/*cleanupfrompyobj*/
36765 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
36766 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
36767 /* End of cleaning variable rwork */
36768 } /*if (f2py_success) of lrwork*/
36769 /* End of cleaning variable lrwork */
36770 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
36771 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
36772 /* End of cleaning variable iwork */
36773 } /*if (f2py_success) of liwork*/
36774 /* End of cleaning variable liwork */
36775 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
36776 } /*if (capi_work_tmp == NULL) ... else of work*/
36777 /* End of cleaning variable work */
36778 } /*CHECKSCALAR(lwork>=(compute_v?2*n+n*n:n+1))*/
36779 } /*if (f2py_success) of lwork*/
36780 /* End of cleaning variable lwork */
36781 } /*if (capi_w_tmp == NULL) ... else of w*/
36782 /* End of cleaning variable w */
36783 /* End of cleaning variable lda */
36784 /* End of cleaning variable n */
36785 /* End of cleaning variable info */
36786 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
36787 } /*if (capi_a_tmp == NULL) ... else of a*/
36788 /* End of cleaning variable a */
36789 } /*CHECKSCALAR(lower==0||lower==1)*/
36790 } /*if (f2py_success) of lower*/
36791 /* End of cleaning variable lower */
36792 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
36793 } /*if (f2py_success) of compute_v*/
36794 /* End of cleaning variable compute_v */
36795/*end of cleanupfrompyobj*/
36796 if (capi_buildvalue == NULL((void*)0)) {
36797/*routdebugfailure*/
36798 } else {
36799/*routdebugleave*/
36800 }
36801 CFUNCSMESS("Freeing memory.\n");
36802/*freemem*/
36803#ifdef F2PY_REPORT_ATEXIT
36804f2py_stop_clock();
36805#endif
36806 return capi_buildvalue;
36807}
36808/******************************* end of zheevd *******************************/
36809
36810/******************************** cheevd_lwork ********************************/
36811static char doc_f2py_rout__flapack_cheevd_lwork[] = "\
36812work,iwork,rwork,info = cheevd_lwork(n,[compute_v,lower])\n\nWrapper for ``cheevd_lwork``.\
36813\n\nParameters\n----------\n"
36814"n : input int\n"
36815"\nOther Parameters\n----------------\n"
36816"compute_v : input int, optional\n Default: 1\n"
36817"lower : input int, optional\n Default: 0\n"
36818"\nReturns\n-------\n"
36819"work : complex\n"
36820"iwork : int\n"
36821"rwork : float\n"
36822"info : int";
36823/* extern void F_FUNC(cheevd ,CHEEVD )(char*,char*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
36824static PyObject *f2py_rout__flapack_cheevd_lwork(const PyObject *capi_self,
36825 PyObject *capi_args,
36826 PyObject *capi_keywds,
36827 void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
36828 PyObject * volatile capi_buildvalue = NULL((void*)0);
36829 volatile int f2py_success = 1;
36830/*decl*/
36831
36832 int compute_v = 0;
36833 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
36834 int lower = 0;
36835 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
36836 int n = 0;
36837 PyObject *n_capi = Py_None(&_Py_NoneStruct);
36838 float w = 0;
36839 complex_float a;
36840 int lda = 0;
36841 complex_float work;
36842 PyObject *work_capi = Py_None(&_Py_NoneStruct);
36843 int lwork = 0;
36844 int iwork = 0;
36845 int liwork = 0;
36846 float rwork = 0;
36847 int lrwork = 0;
36848 int info = 0;
36849 static char *capi_kwlist[] = {"n","compute_v","lower",NULL((void*)0)};
36850
36851/*routdebugenter*/
36852#ifdef F2PY_REPORT_ATEXIT
36853f2py_start_clock();
36854#endif
36855 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
36856 "O|OO:_flapack.cheevd_lwork",\
36857 capi_kwlist,&n_capi,&compute_v_capi,&lower_capi))
36858 return NULL((void*)0);
36859/*frompyobj*/
36860 /* Processing variable n */
36861 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cheevd_lwork() 1st argument (n) can't be converted to int");
36862 if (f2py_success) {
36863 /* Processing variable lower */
36864 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
36865 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cheevd_lwork() 2nd keyword (lower) can't be converted to int");
36866 if (f2py_success) {
36867 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","cheevd_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheevd_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
36868 /* Processing variable compute_v */
36869 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
36870 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.cheevd_lwork() 1st keyword (compute_v) can't be converted to int");
36871 if (f2py_success) {
36872 CHECKSCALAR(compute_v==0||compute_v==1,"compute_v==0||compute_v==1","1st keyword compute_v","cheevd_lwork:compute_v=%d",compute_v)if (!(compute_v==0||compute_v==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheevd_lwork:compute_v=%d", "(""compute_v==0||compute_v==1"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
36873 /* Processing variable a */
36874 /* Processing variable w */
36875 /* Processing variable lwork */
36876 lwork = -1;
36877 /* Processing variable liwork */
36878 liwork = -1;
36879 /* Processing variable lrwork */
36880 lrwork = -1;
36881 /* Processing variable work */
36882 /* Processing variable rwork */
36883 /* Processing variable iwork */
36884 /* Processing variable info */
36885 /* Processing variable lda */
36886 lda = MAX(1,n)((1 > n) ? (1) : (n));
36887/*end of frompyobj*/
36888#ifdef F2PY_REPORT_ATEXIT
36889f2py_start_call_clock();
36890#endif
36891/*callfortranroutine*/
36892 (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,&a,&lda,&w,&work,&lwork,&rwork,&lrwork,&iwork,&liwork,&info) ;
36893 /*(*f2py_func)(&compute_v,&lower,&n,&w,&a,&lda,&work,&lwork,&iwork,&liwork,&rwork,&lrwork,&info);*/
36894if (PyErr_Occurred())
36895 f2py_success = 0;
36896#ifdef F2PY_REPORT_ATEXIT
36897f2py_stop_call_clock();
36898#endif
36899/*end of callfortranroutine*/
36900 if (f2py_success) {
36901/*pyobjfrom*/
36902 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
36903/*end of pyobjfrom*/
36904 CFUNCSMESS("Building return value.\n");
36905 capi_buildvalue = Py_BuildValue("Nifi",work_capi,iwork,rwork,info);
36906/*closepyobjfrom*/
36907/*end of closepyobjfrom*/
36908 } /*if (f2py_success) after callfortranroutine*/
36909/*cleanupfrompyobj*/
36910 /* End of cleaning variable lda */
36911 /* End of cleaning variable info */
36912 /* End of cleaning variable iwork */
36913 /* End of cleaning variable rwork */
36914 /* End of cleaning variable work */
36915 /* End of cleaning variable lrwork */
36916 /* End of cleaning variable liwork */
36917 /* End of cleaning variable lwork */
36918 /* End of cleaning variable w */
36919 /* End of cleaning variable a */
36920 } /*CHECKSCALAR(compute_v==0||compute_v==1)*/
36921 } /*if (f2py_success) of compute_v*/
36922 /* End of cleaning variable compute_v */
36923 } /*CHECKSCALAR(lower==0||lower==1)*/
36924 } /*if (f2py_success) of lower*/
36925 /* End of cleaning variable lower */
36926 } /*if (f2py_success) of n*/
36927 /* End of cleaning variable n */
36928/*end of cleanupfrompyobj*/
36929 if (capi_buildvalue == NULL((void*)0)) {
36930/*routdebugfailure*/
36931 } else {
36932/*routdebugleave*/
36933 }
36934 CFUNCSMESS("Freeing memory.\n");
36935/*freemem*/
36936#ifdef F2PY_REPORT_ATEXIT
36937f2py_stop_clock();
36938#endif
36939 return capi_buildvalue;
36940}
36941/**************************** end of cheevd_lwork ****************************/
36942
36943/******************************** zheevd_lwork ********************************/
36944static char doc_f2py_rout__flapack_zheevd_lwork[] = "\
36945work,iwork,rwork,info = zheevd_lwork(n,[compute_v,lower])\n\nWrapper for ``zheevd_lwork``.\
36946\n\nParameters\n----------\n"
36947"n : input int\n"
36948"\nOther Parameters\n----------------\n"
36949"compute_v : input int, optional\n Default: 1\n"
36950"lower : input int, optional\n Default: 0\n"
36951"\nReturns\n-------\n"
36952"work : complex\n"
36953"iwork : int\n"
36954"rwork : float\n"
36955"info : int";
36956/* extern void F_FUNC(zheevd ,ZHEEVD )(char*,char*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
36957static PyObject *f2py_rout__flapack_zheevd_lwork(const PyObject *capi_self,
36958 PyObject *capi_args,
36959 PyObject *capi_keywds,
36960 void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
36961 PyObject * volatile capi_buildvalue = NULL((void*)0);
36962 volatile int f2py_success = 1;
36963/*decl*/
36964
36965 int compute_v = 0;
36966 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
36967 int lower = 0;
36968 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
36969 int n = 0;
36970 PyObject *n_capi = Py_None(&_Py_NoneStruct);
36971 double w = 0;
36972 complex_double a;
36973 int lda = 0;
36974 complex_double work;
36975 PyObject *work_capi = Py_None(&_Py_NoneStruct);
36976 int lwork = 0;
36977 int iwork = 0;
36978 int liwork = 0;
36979 double rwork = 0;
36980 int lrwork = 0;
36981 int info = 0;
36982 static char *capi_kwlist[] = {"n","compute_v","lower",NULL((void*)0)};
36983
36984/*routdebugenter*/
36985#ifdef F2PY_REPORT_ATEXIT
36986f2py_start_clock();
36987#endif
36988 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
36989 "O|OO:_flapack.zheevd_lwork",\
36990 capi_kwlist,&n_capi,&compute_v_capi,&lower_capi))
36991 return NULL((void*)0);
36992/*frompyobj*/
36993 /* Processing variable n */
36994 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zheevd_lwork() 1st argument (n) can't be converted to int");
36995 if (f2py_success) {
36996 /* Processing variable lower */
36997 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
36998 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zheevd_lwork() 2nd keyword (lower) can't be converted to int");
36999 if (f2py_success) {
37000 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","zheevd_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheevd_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
37001 /* Processing variable compute_v */
37002 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
37003 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.zheevd_lwork() 1st keyword (compute_v) can't be converted to int");
37004 if (f2py_success) {
37005 CHECKSCALAR(compute_v==0||compute_v==1,"compute_v==0||compute_v==1","1st keyword compute_v","zheevd_lwork:compute_v=%d",compute_v)if (!(compute_v==0||compute_v==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheevd_lwork:compute_v=%d", "(""compute_v==0||compute_v==1"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
37006 /* Processing variable a */
37007 /* Processing variable w */
37008 /* Processing variable lwork */
37009 lwork = -1;
37010 /* Processing variable liwork */
37011 liwork = -1;
37012 /* Processing variable lrwork */
37013 lrwork = -1;
37014 /* Processing variable work */
37015 /* Processing variable rwork */
37016 /* Processing variable iwork */
37017 /* Processing variable info */
37018 /* Processing variable lda */
37019 lda = MAX(1,n)((1 > n) ? (1) : (n));
37020/*end of frompyobj*/
37021#ifdef F2PY_REPORT_ATEXIT
37022f2py_start_call_clock();
37023#endif
37024/*callfortranroutine*/
37025 (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,&a,&lda,&w,&work,&lwork,&rwork,&lrwork,&iwork,&liwork,&info) ;
37026 /*(*f2py_func)(&compute_v,&lower,&n,&w,&a,&lda,&work,&lwork,&iwork,&liwork,&rwork,&lrwork,&info);*/
37027if (PyErr_Occurred())
37028 f2py_success = 0;
37029#ifdef F2PY_REPORT_ATEXIT
37030f2py_stop_call_clock();
37031#endif
37032/*end of callfortranroutine*/
37033 if (f2py_success) {
37034/*pyobjfrom*/
37035 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
37036/*end of pyobjfrom*/
37037 CFUNCSMESS("Building return value.\n");
37038 capi_buildvalue = Py_BuildValue("Nidi",work_capi,iwork,rwork,info);
37039/*closepyobjfrom*/
37040/*end of closepyobjfrom*/
37041 } /*if (f2py_success) after callfortranroutine*/
37042/*cleanupfrompyobj*/
37043 /* End of cleaning variable lda */
37044 /* End of cleaning variable info */
37045 /* End of cleaning variable iwork */
37046 /* End of cleaning variable rwork */
37047 /* End of cleaning variable work */
37048 /* End of cleaning variable lrwork */
37049 /* End of cleaning variable liwork */
37050 /* End of cleaning variable lwork */
37051 /* End of cleaning variable w */
37052 /* End of cleaning variable a */
37053 } /*CHECKSCALAR(compute_v==0||compute_v==1)*/
37054 } /*if (f2py_success) of compute_v*/
37055 /* End of cleaning variable compute_v */
37056 } /*CHECKSCALAR(lower==0||lower==1)*/
37057 } /*if (f2py_success) of lower*/
37058 /* End of cleaning variable lower */
37059 } /*if (f2py_success) of n*/
37060 /* End of cleaning variable n */
37061/*end of cleanupfrompyobj*/
37062 if (capi_buildvalue == NULL((void*)0)) {
37063/*routdebugfailure*/
37064 } else {
37065/*routdebugleave*/
37066 }
37067 CFUNCSMESS("Freeing memory.\n");
37068/*freemem*/
37069#ifdef F2PY_REPORT_ATEXIT
37070f2py_stop_clock();
37071#endif
37072 return capi_buildvalue;
37073}
37074/**************************** end of zheevd_lwork ****************************/
37075
37076/*********************************** ssytf2 ***********************************/
37077static char doc_f2py_rout__flapack_ssytf2[] = "\
37078ldu,ipiv,info = ssytf2(a,[lower,overwrite_a])\n\nWrapper for ``ssytf2``.\
37079\n\nParameters\n----------\n"
37080"a : input rank-2 array('f') with bounds (n,n)\n"
37081"\nOther Parameters\n----------------\n"
37082"lower : input int, optional\n Default: 0\n"
37083"overwrite_a : input int, optional\n Default: 0\n"
37084"\nReturns\n-------\n"
37085"ldu : rank-2 array('f') with bounds (n,n) and a storage\n"
37086"ipiv : rank-1 array('i') with bounds (n)\n"
37087"info : int";
37088/* extern void F_FUNC(ssytf2,SSYTF2)(char*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */
37089static PyObject *f2py_rout__flapack_ssytf2(const PyObject *capi_self,
37090 PyObject *capi_args,
37091 PyObject *capi_keywds,
37092 void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) {
37093 PyObject * volatile capi_buildvalue = NULL((void*)0);
37094 volatile int f2py_success = 1;
37095/*decl*/
37096
37097 int lower = 0;
37098 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
37099 int n = 0;
37100 float *a = NULL((void*)0);
37101 npy_intp a_Dims[2] = {-1, -1};
37102 const int a_Rank = 2;
37103 PyArrayObject *capi_a_tmp = NULL((void*)0);
37104 int capi_a_intent = 0;
37105 int capi_overwrite_a = 0;
37106 PyObject *a_capi = Py_None(&_Py_NoneStruct);
37107 int lda = 0;
37108 int *ipiv = NULL((void*)0);
37109 npy_intp ipiv_Dims[1] = {-1};
37110 const int ipiv_Rank = 1;
37111 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
37112 int capi_ipiv_intent = 0;
37113 int info = 0;
37114 static char *capi_kwlist[] = {"a","lower","overwrite_a",NULL((void*)0)};
37115
37116/*routdebugenter*/
37117#ifdef F2PY_REPORT_ATEXIT
37118f2py_start_clock();
37119#endif
37120 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
37121 "O|Oi:_flapack.ssytf2",\
37122 capi_kwlist,&a_capi,&lower_capi,&capi_overwrite_a))
37123 return NULL((void*)0);
37124/*frompyobj*/
37125 /* Processing variable lower */
37126 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
37127 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssytf2() 1st keyword (lower) can't be converted to int");
37128 if (f2py_success) {
37129 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssytf2:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssytf2:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
37130 /* Processing variable a */
37131 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
37132 ;
37133 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
37134 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
37135 if (capi_a_tmp == NULL((void*)0)) {
37136 if (!PyErr_Occurred())
37137 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssytf2 to C/Fortran array" );
37138 } else {
37139 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
37140
37141 /* Processing variable info */
37142 /* Processing variable n */
37143 n = shape(a,0)a_Dims[0];
37144 /* Processing variable lda */
37145 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
37146 /* Processing variable ipiv */
37147 ipiv_Dims[0]=n;
37148 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
37149 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
37150 if (capi_ipiv_tmp == NULL((void*)0)) {
37151 if (!PyErr_Occurred())
37152 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.ssytf2 to C/Fortran array" );
37153 } else {
37154 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
37155
37156/*end of frompyobj*/
37157#ifdef F2PY_REPORT_ATEXIT
37158f2py_start_call_clock();
37159#endif
37160/*callfortranroutine*/
37161 (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,&info) ;
37162 /*(*f2py_func)(&lower,&n,a,&lda,ipiv,&info);*/
37163if (PyErr_Occurred())
37164 f2py_success = 0;
37165#ifdef F2PY_REPORT_ATEXIT
37166f2py_stop_call_clock();
37167#endif
37168/*end of callfortranroutine*/
37169 if (f2py_success) {
37170/*pyobjfrom*/
37171/*end of pyobjfrom*/
37172 CFUNCSMESS("Building return value.\n");
37173 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_ipiv_tmp,info);
37174/*closepyobjfrom*/
37175/*end of closepyobjfrom*/
37176 } /*if (f2py_success) after callfortranroutine*/
37177/*cleanupfrompyobj*/
37178 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
37179 /* End of cleaning variable ipiv */
37180 /* End of cleaning variable lda */
37181 /* End of cleaning variable n */
37182 /* End of cleaning variable info */
37183 } /*if (capi_a_tmp == NULL) ... else of a*/
37184 /* End of cleaning variable a */
37185 } /*CHECKSCALAR(lower==0||lower==1)*/
37186 } /*if (f2py_success) of lower*/
37187 /* End of cleaning variable lower */
37188/*end of cleanupfrompyobj*/
37189 if (capi_buildvalue == NULL((void*)0)) {
37190/*routdebugfailure*/
37191 } else {
37192/*routdebugleave*/
37193 }
37194 CFUNCSMESS("Freeing memory.\n");
37195/*freemem*/
37196#ifdef F2PY_REPORT_ATEXIT
37197f2py_stop_clock();
37198#endif
37199 return capi_buildvalue;
37200}
37201/******************************* end of ssytf2 *******************************/
37202
37203/*********************************** dsytf2 ***********************************/
37204static char doc_f2py_rout__flapack_dsytf2[] = "\
37205ldu,ipiv,info = dsytf2(a,[lower,overwrite_a])\n\nWrapper for ``dsytf2``.\
37206\n\nParameters\n----------\n"
37207"a : input rank-2 array('d') with bounds (n,n)\n"
37208"\nOther Parameters\n----------------\n"
37209"lower : input int, optional\n Default: 0\n"
37210"overwrite_a : input int, optional\n Default: 0\n"
37211"\nReturns\n-------\n"
37212"ldu : rank-2 array('d') with bounds (n,n) and a storage\n"
37213"ipiv : rank-1 array('i') with bounds (n)\n"
37214"info : int";
37215/* extern void F_FUNC(dsytf2,DSYTF2)(char*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */
37216static PyObject *f2py_rout__flapack_dsytf2(const PyObject *capi_self,
37217 PyObject *capi_args,
37218 PyObject *capi_keywds,
37219 void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) {
37220 PyObject * volatile capi_buildvalue = NULL((void*)0);
37221 volatile int f2py_success = 1;
37222/*decl*/
37223
37224 int lower = 0;
37225 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
37226 int n = 0;
37227 double *a = NULL((void*)0);
37228 npy_intp a_Dims[2] = {-1, -1};
37229 const int a_Rank = 2;
37230 PyArrayObject *capi_a_tmp = NULL((void*)0);
37231 int capi_a_intent = 0;
37232 int capi_overwrite_a = 0;
37233 PyObject *a_capi = Py_None(&_Py_NoneStruct);
37234 int lda = 0;
37235 int *ipiv = NULL((void*)0);
37236 npy_intp ipiv_Dims[1] = {-1};
37237 const int ipiv_Rank = 1;
37238 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
37239 int capi_ipiv_intent = 0;
37240 int info = 0;
37241 static char *capi_kwlist[] = {"a","lower","overwrite_a",NULL((void*)0)};
37242
37243/*routdebugenter*/
37244#ifdef F2PY_REPORT_ATEXIT
37245f2py_start_clock();
37246#endif
37247 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
37248 "O|Oi:_flapack.dsytf2",\
37249 capi_kwlist,&a_capi,&lower_capi,&capi_overwrite_a))
37250 return NULL((void*)0);
37251/*frompyobj*/
37252 /* Processing variable lower */
37253 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
37254 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsytf2() 1st keyword (lower) can't be converted to int");
37255 if (f2py_success) {
37256 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsytf2:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsytf2:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
37257 /* Processing variable a */
37258 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
37259 ;
37260 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
37261 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
37262 if (capi_a_tmp == NULL((void*)0)) {
37263 if (!PyErr_Occurred())
37264 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsytf2 to C/Fortran array" );
37265 } else {
37266 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
37267
37268 /* Processing variable info */
37269 /* Processing variable n */
37270 n = shape(a,0)a_Dims[0];
37271 /* Processing variable lda */
37272 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
37273 /* Processing variable ipiv */
37274 ipiv_Dims[0]=n;
37275 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
37276 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
37277 if (capi_ipiv_tmp == NULL((void*)0)) {
37278 if (!PyErr_Occurred())
37279 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.dsytf2 to C/Fortran array" );
37280 } else {
37281 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
37282
37283/*end of frompyobj*/
37284#ifdef F2PY_REPORT_ATEXIT
37285f2py_start_call_clock();
37286#endif
37287/*callfortranroutine*/
37288 (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,&info) ;
37289 /*(*f2py_func)(&lower,&n,a,&lda,ipiv,&info);*/
37290if (PyErr_Occurred())
37291 f2py_success = 0;
37292#ifdef F2PY_REPORT_ATEXIT
37293f2py_stop_call_clock();
37294#endif
37295/*end of callfortranroutine*/
37296 if (f2py_success) {
37297/*pyobjfrom*/
37298/*end of pyobjfrom*/
37299 CFUNCSMESS("Building return value.\n");
37300 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_ipiv_tmp,info);
37301/*closepyobjfrom*/
37302/*end of closepyobjfrom*/
37303 } /*if (f2py_success) after callfortranroutine*/
37304/*cleanupfrompyobj*/
37305 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
37306 /* End of cleaning variable ipiv */
37307 /* End of cleaning variable lda */
37308 /* End of cleaning variable n */
37309 /* End of cleaning variable info */
37310 } /*if (capi_a_tmp == NULL) ... else of a*/
37311 /* End of cleaning variable a */
37312 } /*CHECKSCALAR(lower==0||lower==1)*/
37313 } /*if (f2py_success) of lower*/
37314 /* End of cleaning variable lower */
37315/*end of cleanupfrompyobj*/
37316 if (capi_buildvalue == NULL((void*)0)) {
37317/*routdebugfailure*/
37318 } else {
37319/*routdebugleave*/
37320 }
37321 CFUNCSMESS("Freeing memory.\n");
37322/*freemem*/
37323#ifdef F2PY_REPORT_ATEXIT
37324f2py_stop_clock();
37325#endif
37326 return capi_buildvalue;
37327}
37328/******************************* end of dsytf2 *******************************/
37329
37330/*********************************** csytf2 ***********************************/
37331static char doc_f2py_rout__flapack_csytf2[] = "\
37332ldu,ipiv,info = csytf2(a,[lower,overwrite_a])\n\nWrapper for ``csytf2``.\
37333\n\nParameters\n----------\n"
37334"a : input rank-2 array('F') with bounds (n,n)\n"
37335"\nOther Parameters\n----------------\n"
37336"lower : input int, optional\n Default: 0\n"
37337"overwrite_a : input int, optional\n Default: 0\n"
37338"\nReturns\n-------\n"
37339"ldu : rank-2 array('F') with bounds (n,n) and a storage\n"
37340"ipiv : rank-1 array('i') with bounds (n)\n"
37341"info : int";
37342/* extern void F_FUNC(csytf2,CSYTF2)(char*,F_INT*,complex_float*,F_INT*,F_INT*,F_INT* ); */
37343static PyObject *f2py_rout__flapack_csytf2(const PyObject *capi_self,
37344 PyObject *capi_args,
37345 PyObject *capi_keywds,
37346 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint* )) {
37347 PyObject * volatile capi_buildvalue = NULL((void*)0);
37348 volatile int f2py_success = 1;
37349/*decl*/
37350
37351 int lower = 0;
37352 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
37353 int n = 0;
37354 complex_float *a = NULL((void*)0);
37355 npy_intp a_Dims[2] = {-1, -1};
37356 const int a_Rank = 2;
37357 PyArrayObject *capi_a_tmp = NULL((void*)0);
37358 int capi_a_intent = 0;
37359 int capi_overwrite_a = 0;
37360 PyObject *a_capi = Py_None(&_Py_NoneStruct);
37361 int lda = 0;
37362 int *ipiv = NULL((void*)0);
37363 npy_intp ipiv_Dims[1] = {-1};
37364 const int ipiv_Rank = 1;
37365 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
37366 int capi_ipiv_intent = 0;
37367 int info = 0;
37368 static char *capi_kwlist[] = {"a","lower","overwrite_a",NULL((void*)0)};
37369
37370/*routdebugenter*/
37371#ifdef F2PY_REPORT_ATEXIT
37372f2py_start_clock();
37373#endif
37374 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
37375 "O|Oi:_flapack.csytf2",\
37376 capi_kwlist,&a_capi,&lower_capi,&capi_overwrite_a))
37377 return NULL((void*)0);
37378/*frompyobj*/
37379 /* Processing variable lower */
37380 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
37381 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.csytf2() 1st keyword (lower) can't be converted to int");
37382 if (f2py_success) {
37383 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","csytf2:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""csytf2:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
37384 /* Processing variable a */
37385 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
37386 ;
37387 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
37388 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
37389 if (capi_a_tmp == NULL((void*)0)) {
37390 if (!PyErr_Occurred())
37391 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.csytf2 to C/Fortran array" );
37392 } else {
37393 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
37394
37395 /* Processing variable info */
37396 /* Processing variable n */
37397 n = shape(a,0)a_Dims[0];
37398 /* Processing variable lda */
37399 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
37400 /* Processing variable ipiv */
37401 ipiv_Dims[0]=n;
37402 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
37403 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
37404 if (capi_ipiv_tmp == NULL((void*)0)) {
37405 if (!PyErr_Occurred())
37406 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.csytf2 to C/Fortran array" );
37407 } else {
37408 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
37409
37410/*end of frompyobj*/
37411#ifdef F2PY_REPORT_ATEXIT
37412f2py_start_call_clock();
37413#endif
37414/*callfortranroutine*/
37415 (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,&info) ;
37416 /*(*f2py_func)(&lower,&n,a,&lda,ipiv,&info);*/
37417if (PyErr_Occurred())
37418 f2py_success = 0;
37419#ifdef F2PY_REPORT_ATEXIT
37420f2py_stop_call_clock();
37421#endif
37422/*end of callfortranroutine*/
37423 if (f2py_success) {
37424/*pyobjfrom*/
37425/*end of pyobjfrom*/
37426 CFUNCSMESS("Building return value.\n");
37427 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_ipiv_tmp,info);
37428/*closepyobjfrom*/
37429/*end of closepyobjfrom*/
37430 } /*if (f2py_success) after callfortranroutine*/
37431/*cleanupfrompyobj*/
37432 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
37433 /* End of cleaning variable ipiv */
37434 /* End of cleaning variable lda */
37435 /* End of cleaning variable n */
37436 /* End of cleaning variable info */
37437 } /*if (capi_a_tmp == NULL) ... else of a*/
37438 /* End of cleaning variable a */
37439 } /*CHECKSCALAR(lower==0||lower==1)*/
37440 } /*if (f2py_success) of lower*/
37441 /* End of cleaning variable lower */
37442/*end of cleanupfrompyobj*/
37443 if (capi_buildvalue == NULL((void*)0)) {
37444/*routdebugfailure*/
37445 } else {
37446/*routdebugleave*/
37447 }
37448 CFUNCSMESS("Freeing memory.\n");
37449/*freemem*/
37450#ifdef F2PY_REPORT_ATEXIT
37451f2py_stop_clock();
37452#endif
37453 return capi_buildvalue;
37454}
37455/******************************* end of csytf2 *******************************/
37456
37457/*********************************** zsytf2 ***********************************/
37458static char doc_f2py_rout__flapack_zsytf2[] = "\
37459ldu,ipiv,info = zsytf2(a,[lower,overwrite_a])\n\nWrapper for ``zsytf2``.\
37460\n\nParameters\n----------\n"
37461"a : input rank-2 array('D') with bounds (n,n)\n"
37462"\nOther Parameters\n----------------\n"
37463"lower : input int, optional\n Default: 0\n"
37464"overwrite_a : input int, optional\n Default: 0\n"
37465"\nReturns\n-------\n"
37466"ldu : rank-2 array('D') with bounds (n,n) and a storage\n"
37467"ipiv : rank-1 array('i') with bounds (n)\n"
37468"info : int";
37469/* extern void F_FUNC(zsytf2,ZSYTF2)(char*,F_INT*,complex_double*,F_INT*,F_INT*,F_INT* ); */
37470static PyObject *f2py_rout__flapack_zsytf2(const PyObject *capi_self,
37471 PyObject *capi_args,
37472 PyObject *capi_keywds,
37473 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint* )) {
37474 PyObject * volatile capi_buildvalue = NULL((void*)0);
37475 volatile int f2py_success = 1;
37476/*decl*/
37477
37478 int lower = 0;
37479 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
37480 int n = 0;
37481 complex_double *a = NULL((void*)0);
37482 npy_intp a_Dims[2] = {-1, -1};
37483 const int a_Rank = 2;
37484 PyArrayObject *capi_a_tmp = NULL((void*)0);
37485 int capi_a_intent = 0;
37486 int capi_overwrite_a = 0;
37487 PyObject *a_capi = Py_None(&_Py_NoneStruct);
37488 int lda = 0;
37489 int *ipiv = NULL((void*)0);
37490 npy_intp ipiv_Dims[1] = {-1};
37491 const int ipiv_Rank = 1;
37492 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
37493 int capi_ipiv_intent = 0;
37494 int info = 0;
37495 static char *capi_kwlist[] = {"a","lower","overwrite_a",NULL((void*)0)};
37496
37497/*routdebugenter*/
37498#ifdef F2PY_REPORT_ATEXIT
37499f2py_start_clock();
37500#endif
37501 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
37502 "O|Oi:_flapack.zsytf2",\
37503 capi_kwlist,&a_capi,&lower_capi,&capi_overwrite_a))
37504 return NULL((void*)0);
37505/*frompyobj*/
37506 /* Processing variable lower */
37507 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
37508 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zsytf2() 1st keyword (lower) can't be converted to int");
37509 if (f2py_success) {
37510 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zsytf2:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zsytf2:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
37511 /* Processing variable a */
37512 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
37513 ;
37514 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
37515 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
37516 if (capi_a_tmp == NULL((void*)0)) {
37517 if (!PyErr_Occurred())
37518 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zsytf2 to C/Fortran array" );
37519 } else {
37520 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
37521
37522 /* Processing variable info */
37523 /* Processing variable n */
37524 n = shape(a,0)a_Dims[0];
37525 /* Processing variable lda */
37526 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
37527 /* Processing variable ipiv */
37528 ipiv_Dims[0]=n;
37529 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
37530 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
37531 if (capi_ipiv_tmp == NULL((void*)0)) {
37532 if (!PyErr_Occurred())
37533 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.zsytf2 to C/Fortran array" );
37534 } else {
37535 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
37536
37537/*end of frompyobj*/
37538#ifdef F2PY_REPORT_ATEXIT
37539f2py_start_call_clock();
37540#endif
37541/*callfortranroutine*/
37542 (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,&info) ;
37543 /*(*f2py_func)(&lower,&n,a,&lda,ipiv,&info);*/
37544if (PyErr_Occurred())
37545 f2py_success = 0;
37546#ifdef F2PY_REPORT_ATEXIT
37547f2py_stop_call_clock();
37548#endif
37549/*end of callfortranroutine*/
37550 if (f2py_success) {
37551/*pyobjfrom*/
37552/*end of pyobjfrom*/
37553 CFUNCSMESS("Building return value.\n");
37554 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_ipiv_tmp,info);
37555/*closepyobjfrom*/
37556/*end of closepyobjfrom*/
37557 } /*if (f2py_success) after callfortranroutine*/
37558/*cleanupfrompyobj*/
37559 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
37560 /* End of cleaning variable ipiv */
37561 /* End of cleaning variable lda */
37562 /* End of cleaning variable n */
37563 /* End of cleaning variable info */
37564 } /*if (capi_a_tmp == NULL) ... else of a*/
37565 /* End of cleaning variable a */
37566 } /*CHECKSCALAR(lower==0||lower==1)*/
37567 } /*if (f2py_success) of lower*/
37568 /* End of cleaning variable lower */
37569/*end of cleanupfrompyobj*/
37570 if (capi_buildvalue == NULL((void*)0)) {
37571/*routdebugfailure*/
37572 } else {
37573/*routdebugleave*/
37574 }
37575 CFUNCSMESS("Freeing memory.\n");
37576/*freemem*/
37577#ifdef F2PY_REPORT_ATEXIT
37578f2py_stop_clock();
37579#endif
37580 return capi_buildvalue;
37581}
37582/******************************* end of zsytf2 *******************************/
37583
37584/*********************************** ssygst ***********************************/
37585static char doc_f2py_rout__flapack_ssygst[] = "\
37586c,info = ssygst(a,b,[itype,lower,overwrite_a])\n\nWrapper for ``ssygst``.\
37587\n\nParameters\n----------\n"
37588"a : input rank-2 array('f') with bounds (n,n)\n"
37589"b : input rank-2 array('f') with bounds (n,n)\n"
37590"\nOther Parameters\n----------------\n"
37591"overwrite_a : input int, optional\n Default: 0\n"
37592"itype : input int, optional\n Default: 1\n"
37593"lower : input int, optional\n Default: 0\n"
37594"\nReturns\n-------\n"
37595"c : rank-2 array('f') with bounds (n,n) and a storage\n"
37596"info : int";
37597/* extern void F_FUNC(ssygst,SSYGST)(F_INT*,char*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */
37598static PyObject *f2py_rout__flapack_ssygst(const PyObject *capi_self,
37599 PyObject *capi_args,
37600 PyObject *capi_keywds,
37601 void (*f2py_func)(F_INTint*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
37602 PyObject * volatile capi_buildvalue = NULL((void*)0);
37603 volatile int f2py_success = 1;
37604/*decl*/
37605
37606 int n = 0;
37607 float *a = NULL((void*)0);
37608 npy_intp a_Dims[2] = {-1, -1};
37609 const int a_Rank = 2;
37610 PyArrayObject *capi_a_tmp = NULL((void*)0);
37611 int capi_a_intent = 0;
37612 int capi_overwrite_a = 0;
37613 PyObject *a_capi = Py_None(&_Py_NoneStruct);
37614 int lda = 0;
37615 float *b = NULL((void*)0);
37616 npy_intp b_Dims[2] = {-1, -1};
37617 const int b_Rank = 2;
37618 PyArrayObject *capi_b_tmp = NULL((void*)0);
37619 int capi_b_intent = 0;
37620 PyObject *b_capi = Py_None(&_Py_NoneStruct);
37621 int ldb = 0;
37622 int info = 0;
37623 int itype = 0;
37624 PyObject *itype_capi = Py_None(&_Py_NoneStruct);
37625 int lower = 0;
37626 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
37627 static char *capi_kwlist[] = {"a","b","itype","lower","overwrite_a",NULL((void*)0)};
37628
37629/*routdebugenter*/
37630#ifdef F2PY_REPORT_ATEXIT
37631f2py_start_clock();
37632#endif
37633 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
37634 "OO|OOi:_flapack.ssygst",\
37635 capi_kwlist,&a_capi,&b_capi,&itype_capi,&lower_capi,&capi_overwrite_a))
37636 return NULL((void*)0);
37637/*frompyobj*/
37638 /* Processing variable itype */
37639 if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else
37640 f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.ssygst() 1st keyword (itype) can't be converted to int");
37641 if (f2py_success) {
37642 CHECKSCALAR(itype==1||itype==2||itype==3,"itype==1||itype==2||itype==3","1st keyword itype","ssygst:itype=%d",itype)if (!(itype==1||itype==2||itype==3)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssygst:itype=%d", "(""itype==1||itype==2||itype==3"
") failed for ""1st keyword itype", itype); PyErr_SetString(_flapack_error
,errstring); } else
{
37643 /* Processing variable lower */
37644 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
37645 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssygst() 2nd keyword (lower) can't be converted to int");
37646 if (f2py_success) {
37647 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","ssygst:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssygst:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
37648 /* Processing variable a */
37649 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
37650 ;
37651 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
37652 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
37653 if (capi_a_tmp == NULL((void*)0)) {
37654 if (!PyErr_Occurred())
37655 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssygst to C/Fortran array" );
37656 } else {
37657 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
37658
37659 /* Processing variable info */
37660 /* Processing variable n */
37661 n = shape(a,0)a_Dims[0];
37662 /* Processing variable lda */
37663 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
37664 /* Processing variable b */
37665 b_Dims[0]=n,b_Dims[1]=n;
37666 capi_b_intent |= F2PY_INTENT_IN1;
37667 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
37668 if (capi_b_tmp == NULL((void*)0)) {
37669 if (!PyErr_Occurred())
37670 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ssygst to C/Fortran array" );
37671 } else {
37672 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
37673
37674 /* Processing variable ldb */
37675 ldb = max(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1));
37676/*end of frompyobj*/
37677#ifdef F2PY_REPORT_ATEXIT
37678f2py_start_call_clock();
37679#endif
37680/*callfortranroutine*/
37681 (*f2py_func)(&itype,(lower?"L":"U"),&n,a,&lda,b,&ldb,&info) ;
37682 /*(*f2py_func)(&n,a,&lda,b,&ldb,&info,&itype,&lower);*/
37683if (PyErr_Occurred())
37684 f2py_success = 0;
37685#ifdef F2PY_REPORT_ATEXIT
37686f2py_stop_call_clock();
37687#endif
37688/*end of callfortranroutine*/
37689 if (f2py_success) {
37690/*pyobjfrom*/
37691/*end of pyobjfrom*/
37692 CFUNCSMESS("Building return value.\n");
37693 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
37694/*closepyobjfrom*/
37695/*end of closepyobjfrom*/
37696 } /*if (f2py_success) after callfortranroutine*/
37697/*cleanupfrompyobj*/
37698 /* End of cleaning variable ldb */
37699 if((PyObject *)capi_b_tmp!=b_capi) {
37700 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
37701 } /*if (capi_b_tmp == NULL) ... else of b*/
37702 /* End of cleaning variable b */
37703 /* End of cleaning variable lda */
37704 /* End of cleaning variable n */
37705 /* End of cleaning variable info */
37706 } /*if (capi_a_tmp == NULL) ... else of a*/
37707 /* End of cleaning variable a */
37708 } /*CHECKSCALAR(lower==0||lower==1)*/
37709 } /*if (f2py_success) of lower*/
37710 /* End of cleaning variable lower */
37711 } /*CHECKSCALAR(itype==1||itype==2||itype==3)*/
37712 } /*if (f2py_success) of itype*/
37713 /* End of cleaning variable itype */
37714/*end of cleanupfrompyobj*/
37715 if (capi_buildvalue == NULL((void*)0)) {
37716/*routdebugfailure*/
37717 } else {
37718/*routdebugleave*/
37719 }
37720 CFUNCSMESS("Freeing memory.\n");
37721/*freemem*/
37722#ifdef F2PY_REPORT_ATEXIT
37723f2py_stop_clock();
37724#endif
37725 return capi_buildvalue;
37726}
37727/******************************* end of ssygst *******************************/
37728
37729/*********************************** dsygst ***********************************/
37730static char doc_f2py_rout__flapack_dsygst[] = "\
37731c,info = dsygst(a,b,[itype,lower,overwrite_a])\n\nWrapper for ``dsygst``.\
37732\n\nParameters\n----------\n"
37733"a : input rank-2 array('d') with bounds (n,n)\n"
37734"b : input rank-2 array('d') with bounds (n,n)\n"
37735"\nOther Parameters\n----------------\n"
37736"overwrite_a : input int, optional\n Default: 0\n"
37737"itype : input int, optional\n Default: 1\n"
37738"lower : input int, optional\n Default: 0\n"
37739"\nReturns\n-------\n"
37740"c : rank-2 array('d') with bounds (n,n) and a storage\n"
37741"info : int";
37742/* extern void F_FUNC(dsygst,DSYGST)(F_INT*,char*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */
37743static PyObject *f2py_rout__flapack_dsygst(const PyObject *capi_self,
37744 PyObject *capi_args,
37745 PyObject *capi_keywds,
37746 void (*f2py_func)(F_INTint*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
37747 PyObject * volatile capi_buildvalue = NULL((void*)0);
37748 volatile int f2py_success = 1;
37749/*decl*/
37750
37751 int n = 0;
37752 double *a = NULL((void*)0);
37753 npy_intp a_Dims[2] = {-1, -1};
37754 const int a_Rank = 2;
37755 PyArrayObject *capi_a_tmp = NULL((void*)0);
37756 int capi_a_intent = 0;
37757 int capi_overwrite_a = 0;
37758 PyObject *a_capi = Py_None(&_Py_NoneStruct);
37759 int lda = 0;
37760 double *b = NULL((void*)0);
37761 npy_intp b_Dims[2] = {-1, -1};
37762 const int b_Rank = 2;
37763 PyArrayObject *capi_b_tmp = NULL((void*)0);
37764 int capi_b_intent = 0;
37765 PyObject *b_capi = Py_None(&_Py_NoneStruct);
37766 int ldb = 0;
37767 int info = 0;
37768 int itype = 0;
37769 PyObject *itype_capi = Py_None(&_Py_NoneStruct);
37770 int lower = 0;
37771 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
37772 static char *capi_kwlist[] = {"a","b","itype","lower","overwrite_a",NULL((void*)0)};
37773
37774/*routdebugenter*/
37775#ifdef F2PY_REPORT_ATEXIT
37776f2py_start_clock();
37777#endif
37778 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
37779 "OO|OOi:_flapack.dsygst",\
37780 capi_kwlist,&a_capi,&b_capi,&itype_capi,&lower_capi,&capi_overwrite_a))
37781 return NULL((void*)0);
37782/*frompyobj*/
37783 /* Processing variable itype */
37784 if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else
37785 f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.dsygst() 1st keyword (itype) can't be converted to int");
37786 if (f2py_success) {
37787 CHECKSCALAR(itype==1||itype==2||itype==3,"itype==1||itype==2||itype==3","1st keyword itype","dsygst:itype=%d",itype)if (!(itype==1||itype==2||itype==3)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsygst:itype=%d", "(""itype==1||itype==2||itype==3"
") failed for ""1st keyword itype", itype); PyErr_SetString(_flapack_error
,errstring); } else
{
37788 /* Processing variable lower */
37789 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
37790 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsygst() 2nd keyword (lower) can't be converted to int");
37791 if (f2py_success) {
37792 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","dsygst:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsygst:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
37793 /* Processing variable a */
37794 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
37795 ;
37796 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
37797 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
37798 if (capi_a_tmp == NULL((void*)0)) {
37799 if (!PyErr_Occurred())
37800 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsygst to C/Fortran array" );
37801 } else {
37802 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
37803
37804 /* Processing variable info */
37805 /* Processing variable n */
37806 n = shape(a,0)a_Dims[0];
37807 /* Processing variable lda */
37808 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
37809 /* Processing variable b */
37810 b_Dims[0]=n,b_Dims[1]=n;
37811 capi_b_intent |= F2PY_INTENT_IN1;
37812 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
37813 if (capi_b_tmp == NULL((void*)0)) {
37814 if (!PyErr_Occurred())
37815 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dsygst to C/Fortran array" );
37816 } else {
37817 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
37818
37819 /* Processing variable ldb */
37820 ldb = max(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1));
37821/*end of frompyobj*/
37822#ifdef F2PY_REPORT_ATEXIT
37823f2py_start_call_clock();
37824#endif
37825/*callfortranroutine*/
37826 (*f2py_func)(&itype,(lower?"L":"U"),&n,a,&lda,b,&ldb,&info) ;
37827 /*(*f2py_func)(&n,a,&lda,b,&ldb,&info,&itype,&lower);*/
37828if (PyErr_Occurred())
37829 f2py_success = 0;
37830#ifdef F2PY_REPORT_ATEXIT
37831f2py_stop_call_clock();
37832#endif
37833/*end of callfortranroutine*/
37834 if (f2py_success) {
37835/*pyobjfrom*/
37836/*end of pyobjfrom*/
37837 CFUNCSMESS("Building return value.\n");
37838 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
37839/*closepyobjfrom*/
37840/*end of closepyobjfrom*/
37841 } /*if (f2py_success) after callfortranroutine*/
37842/*cleanupfrompyobj*/
37843 /* End of cleaning variable ldb */
37844 if((PyObject *)capi_b_tmp!=b_capi) {
37845 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
37846 } /*if (capi_b_tmp == NULL) ... else of b*/
37847 /* End of cleaning variable b */
37848 /* End of cleaning variable lda */
37849 /* End of cleaning variable n */
37850 /* End of cleaning variable info */
37851 } /*if (capi_a_tmp == NULL) ... else of a*/
37852 /* End of cleaning variable a */
37853 } /*CHECKSCALAR(lower==0||lower==1)*/
37854 } /*if (f2py_success) of lower*/
37855 /* End of cleaning variable lower */
37856 } /*CHECKSCALAR(itype==1||itype==2||itype==3)*/
37857 } /*if (f2py_success) of itype*/
37858 /* End of cleaning variable itype */
37859/*end of cleanupfrompyobj*/
37860 if (capi_buildvalue == NULL((void*)0)) {
37861/*routdebugfailure*/
37862 } else {
37863/*routdebugleave*/
37864 }
37865 CFUNCSMESS("Freeing memory.\n");
37866/*freemem*/
37867#ifdef F2PY_REPORT_ATEXIT
37868f2py_stop_clock();
37869#endif
37870 return capi_buildvalue;
37871}
37872/******************************* end of dsygst *******************************/
37873
37874/*********************************** ssytrf ***********************************/
37875static char doc_f2py_rout__flapack_ssytrf[] = "\
37876ldu,ipiv,info = ssytrf(a,[lower,lwork,overwrite_a])\n\nWrapper for ``ssytrf``.\
37877\n\nParameters\n----------\n"
37878"a : input rank-2 array('f') with bounds (n,n)\n"
37879"\nOther Parameters\n----------------\n"
37880"lower : input int, optional\n Default: 0\n"
37881"overwrite_a : input int, optional\n Default: 0\n"
37882"lwork : input int, optional\n Default: max(n,1)\n"
37883"\nReturns\n-------\n"
37884"ldu : rank-2 array('f') with bounds (n,n) and a storage\n"
37885"ipiv : rank-1 array('i') with bounds (n)\n"
37886"info : int";
37887/* extern void F_FUNC(ssytrf,SSYTRF)(char*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */
37888static PyObject *f2py_rout__flapack_ssytrf(const PyObject *capi_self,
37889 PyObject *capi_args,
37890 PyObject *capi_keywds,
37891 void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) {
37892 PyObject * volatile capi_buildvalue = NULL((void*)0);
37893 volatile int f2py_success = 1;
37894/*decl*/
37895
37896 int lower = 0;
37897 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
37898 int n = 0;
37899 float *a = NULL((void*)0);
37900 npy_intp a_Dims[2] = {-1, -1};
37901 const int a_Rank = 2;
37902 PyArrayObject *capi_a_tmp = NULL((void*)0);
37903 int capi_a_intent = 0;
37904 int capi_overwrite_a = 0;
37905 PyObject *a_capi = Py_None(&_Py_NoneStruct);
37906 int lda = 0;
37907 int *ipiv = NULL((void*)0);
37908 npy_intp ipiv_Dims[1] = {-1};
37909 const int ipiv_Rank = 1;
37910 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
37911 int capi_ipiv_intent = 0;
37912 float *work = NULL((void*)0);
37913 npy_intp work_Dims[1] = {-1};
37914 const int work_Rank = 1;
37915 PyArrayObject *capi_work_tmp = NULL((void*)0);
37916 int capi_work_intent = 0;
37917 int lwork = 0;
37918 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
37919 int info = 0;
37920 static char *capi_kwlist[] = {"a","lower","lwork","overwrite_a",NULL((void*)0)};
37921
37922/*routdebugenter*/
37923#ifdef F2PY_REPORT_ATEXIT
37924f2py_start_clock();
37925#endif
37926 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
37927 "O|OOi:_flapack.ssytrf",\
37928 capi_kwlist,&a_capi,&lower_capi,&lwork_capi,&capi_overwrite_a))
37929 return NULL((void*)0);
37930/*frompyobj*/
37931 /* Processing variable lower */
37932 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
37933 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssytrf() 1st keyword (lower) can't be converted to int");
37934 if (f2py_success) {
37935 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssytrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssytrf:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
37936 /* Processing variable a */
37937 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
37938 ;
37939 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
37940 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
37941 if (capi_a_tmp == NULL((void*)0)) {
37942 if (!PyErr_Occurred())
37943 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssytrf to C/Fortran array" );
37944 } else {
37945 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
37946
37947 /* Processing variable info */
37948 /* Processing variable n */
37949 n = shape(a,0)a_Dims[0];
37950 /* Processing variable lda */
37951 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
37952 /* Processing variable ipiv */
37953 ipiv_Dims[0]=n;
37954 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
37955 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
37956 if (capi_ipiv_tmp == NULL((void*)0)) {
37957 if (!PyErr_Occurred())
37958 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.ssytrf to C/Fortran array" );
37959 } else {
37960 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
37961
37962 /* Processing variable lwork */
37963 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else
37964 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssytrf() 2nd keyword (lwork) can't be converted to int");
37965 if (f2py_success) {
37966 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","2nd keyword lwork","ssytrf:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssytrf:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
37967 /* Processing variable work */
37968 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
37969 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
37970 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
37971 if (capi_work_tmp == NULL((void*)0)) {
37972 if (!PyErr_Occurred())
37973 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssytrf to C/Fortran array" );
37974 } else {
37975 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
37976
37977/*end of frompyobj*/
37978#ifdef F2PY_REPORT_ATEXIT
37979f2py_start_call_clock();
37980#endif
37981/*callfortranroutine*/
37982 (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,work,&lwork,&info) ;
37983 /*(*f2py_func)(&lower,&n,a,&lda,ipiv,work,&lwork,&info);*/
37984if (PyErr_Occurred())
37985 f2py_success = 0;
37986#ifdef F2PY_REPORT_ATEXIT
37987f2py_stop_call_clock();
37988#endif
37989/*end of callfortranroutine*/
37990 if (f2py_success) {
37991/*pyobjfrom*/
37992/*end of pyobjfrom*/
37993 CFUNCSMESS("Building return value.\n");
37994 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_ipiv_tmp,info);
37995/*closepyobjfrom*/
37996/*end of closepyobjfrom*/
37997 } /*if (f2py_success) after callfortranroutine*/
37998/*cleanupfrompyobj*/
37999 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
38000 } /*if (capi_work_tmp == NULL) ... else of work*/
38001 /* End of cleaning variable work */
38002 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
38003 } /*if (f2py_success) of lwork*/
38004 /* End of cleaning variable lwork */
38005 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
38006 /* End of cleaning variable ipiv */
38007 /* End of cleaning variable lda */
38008 /* End of cleaning variable n */
38009 /* End of cleaning variable info */
38010 } /*if (capi_a_tmp == NULL) ... else of a*/
38011 /* End of cleaning variable a */
38012 } /*CHECKSCALAR(lower==0||lower==1)*/
38013 } /*if (f2py_success) of lower*/
38014 /* End of cleaning variable lower */
38015/*end of cleanupfrompyobj*/
38016 if (capi_buildvalue == NULL((void*)0)) {
38017/*routdebugfailure*/
38018 } else {
38019/*routdebugleave*/
38020 }
38021 CFUNCSMESS("Freeing memory.\n");
38022/*freemem*/
38023#ifdef F2PY_REPORT_ATEXIT
38024f2py_stop_clock();
38025#endif
38026 return capi_buildvalue;
38027}
38028/******************************* end of ssytrf *******************************/
38029
38030/*********************************** dsytrf ***********************************/
38031static char doc_f2py_rout__flapack_dsytrf[] = "\
38032ldu,ipiv,info = dsytrf(a,[lower,lwork,overwrite_a])\n\nWrapper for ``dsytrf``.\
38033\n\nParameters\n----------\n"
38034"a : input rank-2 array('d') with bounds (n,n)\n"
38035"\nOther Parameters\n----------------\n"
38036"lower : input int, optional\n Default: 0\n"
38037"overwrite_a : input int, optional\n Default: 0\n"
38038"lwork : input int, optional\n Default: max(n,1)\n"
38039"\nReturns\n-------\n"
38040"ldu : rank-2 array('d') with bounds (n,n) and a storage\n"
38041"ipiv : rank-1 array('i') with bounds (n)\n"
38042"info : int";
38043/* extern void F_FUNC(dsytrf,DSYTRF)(char*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */
38044static PyObject *f2py_rout__flapack_dsytrf(const PyObject *capi_self,
38045 PyObject *capi_args,
38046 PyObject *capi_keywds,
38047 void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) {
38048 PyObject * volatile capi_buildvalue = NULL((void*)0);
38049 volatile int f2py_success = 1;
38050/*decl*/
38051
38052 int lower = 0;
38053 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
38054 int n = 0;
38055 double *a = NULL((void*)0);
38056 npy_intp a_Dims[2] = {-1, -1};
38057 const int a_Rank = 2;
38058 PyArrayObject *capi_a_tmp = NULL((void*)0);
38059 int capi_a_intent = 0;
38060 int capi_overwrite_a = 0;
38061 PyObject *a_capi = Py_None(&_Py_NoneStruct);
38062 int lda = 0;
38063 int *ipiv = NULL((void*)0);
38064 npy_intp ipiv_Dims[1] = {-1};
38065 const int ipiv_Rank = 1;
38066 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
38067 int capi_ipiv_intent = 0;
38068 double *work = NULL((void*)0);
38069 npy_intp work_Dims[1] = {-1};
38070 const int work_Rank = 1;
38071 PyArrayObject *capi_work_tmp = NULL((void*)0);
38072 int capi_work_intent = 0;
38073 int lwork = 0;
38074 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
38075 int info = 0;
38076 static char *capi_kwlist[] = {"a","lower","lwork","overwrite_a",NULL((void*)0)};
38077
38078/*routdebugenter*/
38079#ifdef F2PY_REPORT_ATEXIT
38080f2py_start_clock();
38081#endif
38082 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
38083 "O|OOi:_flapack.dsytrf",\
38084 capi_kwlist,&a_capi,&lower_capi,&lwork_capi,&capi_overwrite_a))
38085 return NULL((void*)0);
38086/*frompyobj*/
38087 /* Processing variable lower */
38088 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
38089 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsytrf() 1st keyword (lower) can't be converted to int");
38090 if (f2py_success) {
38091 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsytrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsytrf:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
38092 /* Processing variable a */
38093 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
38094 ;
38095 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
38096 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
38097 if (capi_a_tmp == NULL((void*)0)) {
38098 if (!PyErr_Occurred())
38099 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsytrf to C/Fortran array" );
38100 } else {
38101 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
38102
38103 /* Processing variable info */
38104 /* Processing variable n */
38105 n = shape(a,0)a_Dims[0];
38106 /* Processing variable lda */
38107 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
38108 /* Processing variable ipiv */
38109 ipiv_Dims[0]=n;
38110 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
38111 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
38112 if (capi_ipiv_tmp == NULL((void*)0)) {
38113 if (!PyErr_Occurred())
38114 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.dsytrf to C/Fortran array" );
38115 } else {
38116 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
38117
38118 /* Processing variable lwork */
38119 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else
38120 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsytrf() 2nd keyword (lwork) can't be converted to int");
38121 if (f2py_success) {
38122 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","2nd keyword lwork","dsytrf:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsytrf:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
38123 /* Processing variable work */
38124 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
38125 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
38126 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
38127 if (capi_work_tmp == NULL((void*)0)) {
38128 if (!PyErr_Occurred())
38129 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsytrf to C/Fortran array" );
38130 } else {
38131 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
38132
38133/*end of frompyobj*/
38134#ifdef F2PY_REPORT_ATEXIT
38135f2py_start_call_clock();
38136#endif
38137/*callfortranroutine*/
38138 (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,work,&lwork,&info) ;
38139 /*(*f2py_func)(&lower,&n,a,&lda,ipiv,work,&lwork,&info);*/
38140if (PyErr_Occurred())
38141 f2py_success = 0;
38142#ifdef F2PY_REPORT_ATEXIT
38143f2py_stop_call_clock();
38144#endif
38145/*end of callfortranroutine*/
38146 if (f2py_success) {
38147/*pyobjfrom*/
38148/*end of pyobjfrom*/
38149 CFUNCSMESS("Building return value.\n");
38150 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_ipiv_tmp,info);
38151/*closepyobjfrom*/
38152/*end of closepyobjfrom*/
38153 } /*if (f2py_success) after callfortranroutine*/
38154/*cleanupfrompyobj*/
38155 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
38156 } /*if (capi_work_tmp == NULL) ... else of work*/
38157 /* End of cleaning variable work */
38158 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
38159 } /*if (f2py_success) of lwork*/
38160 /* End of cleaning variable lwork */
38161 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
38162 /* End of cleaning variable ipiv */
38163 /* End of cleaning variable lda */
38164 /* End of cleaning variable n */
38165 /* End of cleaning variable info */
38166 } /*if (capi_a_tmp == NULL) ... else of a*/
38167 /* End of cleaning variable a */
38168 } /*CHECKSCALAR(lower==0||lower==1)*/
38169 } /*if (f2py_success) of lower*/
38170 /* End of cleaning variable lower */
38171/*end of cleanupfrompyobj*/
38172 if (capi_buildvalue == NULL((void*)0)) {
38173/*routdebugfailure*/
38174 } else {
38175/*routdebugleave*/
38176 }
38177 CFUNCSMESS("Freeing memory.\n");
38178/*freemem*/
38179#ifdef F2PY_REPORT_ATEXIT
38180f2py_stop_clock();
38181#endif
38182 return capi_buildvalue;
38183}
38184/******************************* end of dsytrf *******************************/
38185
38186/*********************************** csytrf ***********************************/
38187static char doc_f2py_rout__flapack_csytrf[] = "\
38188ldu,ipiv,info = csytrf(a,[lower,lwork,overwrite_a])\n\nWrapper for ``csytrf``.\
38189\n\nParameters\n----------\n"
38190"a : input rank-2 array('F') with bounds (n,n)\n"
38191"\nOther Parameters\n----------------\n"
38192"lower : input int, optional\n Default: 0\n"
38193"overwrite_a : input int, optional\n Default: 0\n"
38194"lwork : input int, optional\n Default: max(n,1)\n"
38195"\nReturns\n-------\n"
38196"ldu : rank-2 array('F') with bounds (n,n) and a storage\n"
38197"ipiv : rank-1 array('i') with bounds (n)\n"
38198"info : int";
38199/* extern void F_FUNC(csytrf,CSYTRF)(char*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */
38200static PyObject *f2py_rout__flapack_csytrf(const PyObject *capi_self,
38201 PyObject *capi_args,
38202 PyObject *capi_keywds,
38203 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
38204 PyObject * volatile capi_buildvalue = NULL((void*)0);
38205 volatile int f2py_success = 1;
38206/*decl*/
38207
38208 int lower = 0;
38209 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
38210 int n = 0;
38211 complex_float *a = NULL((void*)0);
38212 npy_intp a_Dims[2] = {-1, -1};
38213 const int a_Rank = 2;
38214 PyArrayObject *capi_a_tmp = NULL((void*)0);
38215 int capi_a_intent = 0;
38216 int capi_overwrite_a = 0;
38217 PyObject *a_capi = Py_None(&_Py_NoneStruct);
38218 int lda = 0;
38219 int *ipiv = NULL((void*)0);
38220 npy_intp ipiv_Dims[1] = {-1};
38221 const int ipiv_Rank = 1;
38222 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
38223 int capi_ipiv_intent = 0;
38224 complex_float *work = NULL((void*)0);
38225 npy_intp work_Dims[1] = {-1};
38226 const int work_Rank = 1;
38227 PyArrayObject *capi_work_tmp = NULL((void*)0);
38228 int capi_work_intent = 0;
38229 int lwork = 0;
38230 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
38231 int info = 0;
38232 static char *capi_kwlist[] = {"a","lower","lwork","overwrite_a",NULL((void*)0)};
38233
38234/*routdebugenter*/
38235#ifdef F2PY_REPORT_ATEXIT
38236f2py_start_clock();
38237#endif
38238 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
38239 "O|OOi:_flapack.csytrf",\
38240 capi_kwlist,&a_capi,&lower_capi,&lwork_capi,&capi_overwrite_a))
38241 return NULL((void*)0);
38242/*frompyobj*/
38243 /* Processing variable lower */
38244 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
38245 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.csytrf() 1st keyword (lower) can't be converted to int");
38246 if (f2py_success) {
38247 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","csytrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""csytrf:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
38248 /* Processing variable a */
38249 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
38250 ;
38251 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
38252 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
38253 if (capi_a_tmp == NULL((void*)0)) {
38254 if (!PyErr_Occurred())
38255 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.csytrf to C/Fortran array" );
38256 } else {
38257 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
38258
38259 /* Processing variable info */
38260 /* Processing variable n */
38261 n = shape(a,0)a_Dims[0];
38262 /* Processing variable lda */
38263 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
38264 /* Processing variable ipiv */
38265 ipiv_Dims[0]=n;
38266 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
38267 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
38268 if (capi_ipiv_tmp == NULL((void*)0)) {
38269 if (!PyErr_Occurred())
38270 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.csytrf to C/Fortran array" );
38271 } else {
38272 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
38273
38274 /* Processing variable lwork */
38275 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else
38276 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.csytrf() 2nd keyword (lwork) can't be converted to int");
38277 if (f2py_success) {
38278 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","2nd keyword lwork","csytrf:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""csytrf:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
38279 /* Processing variable work */
38280 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
38281 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
38282 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
38283 if (capi_work_tmp == NULL((void*)0)) {
38284 if (!PyErr_Occurred())
38285 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.csytrf to C/Fortran array" );
38286 } else {
38287 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
38288
38289/*end of frompyobj*/
38290#ifdef F2PY_REPORT_ATEXIT
38291f2py_start_call_clock();
38292#endif
38293/*callfortranroutine*/
38294 (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,work,&lwork,&info) ;
38295 /*(*f2py_func)(&lower,&n,a,&lda,ipiv,work,&lwork,&info);*/
38296if (PyErr_Occurred())
38297 f2py_success = 0;
38298#ifdef F2PY_REPORT_ATEXIT
38299f2py_stop_call_clock();
38300#endif
38301/*end of callfortranroutine*/
38302 if (f2py_success) {
38303/*pyobjfrom*/
38304/*end of pyobjfrom*/
38305 CFUNCSMESS("Building return value.\n");
38306 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_ipiv_tmp,info);
38307/*closepyobjfrom*/
38308/*end of closepyobjfrom*/
38309 } /*if (f2py_success) after callfortranroutine*/
38310/*cleanupfrompyobj*/
38311 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
38312 } /*if (capi_work_tmp == NULL) ... else of work*/
38313 /* End of cleaning variable work */
38314 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
38315 } /*if (f2py_success) of lwork*/
38316 /* End of cleaning variable lwork */
38317 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
38318 /* End of cleaning variable ipiv */
38319 /* End of cleaning variable lda */
38320 /* End of cleaning variable n */
38321 /* End of cleaning variable info */
38322 } /*if (capi_a_tmp == NULL) ... else of a*/
38323 /* End of cleaning variable a */
38324 } /*CHECKSCALAR(lower==0||lower==1)*/
38325 } /*if (f2py_success) of lower*/
38326 /* End of cleaning variable lower */
38327/*end of cleanupfrompyobj*/
38328 if (capi_buildvalue == NULL((void*)0)) {
38329/*routdebugfailure*/
38330 } else {
38331/*routdebugleave*/
38332 }
38333 CFUNCSMESS("Freeing memory.\n");
38334/*freemem*/
38335#ifdef F2PY_REPORT_ATEXIT
38336f2py_stop_clock();
38337#endif
38338 return capi_buildvalue;
38339}
38340/******************************* end of csytrf *******************************/
38341
38342/*********************************** zsytrf ***********************************/
38343static char doc_f2py_rout__flapack_zsytrf[] = "\
38344ldu,ipiv,info = zsytrf(a,[lower,lwork,overwrite_a])\n\nWrapper for ``zsytrf``.\
38345\n\nParameters\n----------\n"
38346"a : input rank-2 array('D') with bounds (n,n)\n"
38347"\nOther Parameters\n----------------\n"
38348"lower : input int, optional\n Default: 0\n"
38349"overwrite_a : input int, optional\n Default: 0\n"
38350"lwork : input int, optional\n Default: max(n,1)\n"
38351"\nReturns\n-------\n"
38352"ldu : rank-2 array('D') with bounds (n,n) and a storage\n"
38353"ipiv : rank-1 array('i') with bounds (n)\n"
38354"info : int";
38355/* extern void F_FUNC(zsytrf,ZSYTRF)(char*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */
38356static PyObject *f2py_rout__flapack_zsytrf(const PyObject *capi_self,
38357 PyObject *capi_args,
38358 PyObject *capi_keywds,
38359 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
38360 PyObject * volatile capi_buildvalue = NULL((void*)0);
38361 volatile int f2py_success = 1;
38362/*decl*/
38363
38364 int lower = 0;
38365 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
38366 int n = 0;
38367 complex_double *a = NULL((void*)0);
38368 npy_intp a_Dims[2] = {-1, -1};
38369 const int a_Rank = 2;
38370 PyArrayObject *capi_a_tmp = NULL((void*)0);
38371 int capi_a_intent = 0;
38372 int capi_overwrite_a = 0;
38373 PyObject *a_capi = Py_None(&_Py_NoneStruct);
38374 int lda = 0;
38375 int *ipiv = NULL((void*)0);
38376 npy_intp ipiv_Dims[1] = {-1};
38377 const int ipiv_Rank = 1;
38378 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
38379 int capi_ipiv_intent = 0;
38380 complex_double *work = NULL((void*)0);
38381 npy_intp work_Dims[1] = {-1};
38382 const int work_Rank = 1;
38383 PyArrayObject *capi_work_tmp = NULL((void*)0);
38384 int capi_work_intent = 0;
38385 int lwork = 0;
38386 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
38387 int info = 0;
38388 static char *capi_kwlist[] = {"a","lower","lwork","overwrite_a",NULL((void*)0)};
38389
38390/*routdebugenter*/
38391#ifdef F2PY_REPORT_ATEXIT
38392f2py_start_clock();
38393#endif
38394 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
38395 "O|OOi:_flapack.zsytrf",\
38396 capi_kwlist,&a_capi,&lower_capi,&lwork_capi,&capi_overwrite_a))
38397 return NULL((void*)0);
38398/*frompyobj*/
38399 /* Processing variable lower */
38400 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
38401 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zsytrf() 1st keyword (lower) can't be converted to int");
38402 if (f2py_success) {
38403 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zsytrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zsytrf:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
38404 /* Processing variable a */
38405 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
38406 ;
38407 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
38408 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
38409 if (capi_a_tmp == NULL((void*)0)) {
38410 if (!PyErr_Occurred())
38411 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zsytrf to C/Fortran array" );
38412 } else {
38413 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
38414
38415 /* Processing variable info */
38416 /* Processing variable n */
38417 n = shape(a,0)a_Dims[0];
38418 /* Processing variable lda */
38419 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
38420 /* Processing variable ipiv */
38421 ipiv_Dims[0]=n;
38422 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
38423 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
38424 if (capi_ipiv_tmp == NULL((void*)0)) {
38425 if (!PyErr_Occurred())
38426 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.zsytrf to C/Fortran array" );
38427 } else {
38428 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
38429
38430 /* Processing variable lwork */
38431 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else
38432 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zsytrf() 2nd keyword (lwork) can't be converted to int");
38433 if (f2py_success) {
38434 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","2nd keyword lwork","zsytrf:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zsytrf:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
38435 /* Processing variable work */
38436 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
38437 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
38438 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
38439 if (capi_work_tmp == NULL((void*)0)) {
38440 if (!PyErr_Occurred())
38441 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zsytrf to C/Fortran array" );
38442 } else {
38443 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
38444
38445/*end of frompyobj*/
38446#ifdef F2PY_REPORT_ATEXIT
38447f2py_start_call_clock();
38448#endif
38449/*callfortranroutine*/
38450 (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,work,&lwork,&info) ;
38451 /*(*f2py_func)(&lower,&n,a,&lda,ipiv,work,&lwork,&info);*/
38452if (PyErr_Occurred())
38453 f2py_success = 0;
38454#ifdef F2PY_REPORT_ATEXIT
38455f2py_stop_call_clock();
38456#endif
38457/*end of callfortranroutine*/
38458 if (f2py_success) {
38459/*pyobjfrom*/
38460/*end of pyobjfrom*/
38461 CFUNCSMESS("Building return value.\n");
38462 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_ipiv_tmp,info);
38463/*closepyobjfrom*/
38464/*end of closepyobjfrom*/
38465 } /*if (f2py_success) after callfortranroutine*/
38466/*cleanupfrompyobj*/
38467 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
38468 } /*if (capi_work_tmp == NULL) ... else of work*/
38469 /* End of cleaning variable work */
38470 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
38471 } /*if (f2py_success) of lwork*/
38472 /* End of cleaning variable lwork */
38473 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
38474 /* End of cleaning variable ipiv */
38475 /* End of cleaning variable lda */
38476 /* End of cleaning variable n */
38477 /* End of cleaning variable info */
38478 } /*if (capi_a_tmp == NULL) ... else of a*/
38479 /* End of cleaning variable a */
38480 } /*CHECKSCALAR(lower==0||lower==1)*/
38481 } /*if (f2py_success) of lower*/
38482 /* End of cleaning variable lower */
38483/*end of cleanupfrompyobj*/
38484 if (capi_buildvalue == NULL((void*)0)) {
38485/*routdebugfailure*/
38486 } else {
38487/*routdebugleave*/
38488 }
38489 CFUNCSMESS("Freeing memory.\n");
38490/*freemem*/
38491#ifdef F2PY_REPORT_ATEXIT
38492f2py_stop_clock();
38493#endif
38494 return capi_buildvalue;
38495}
38496/******************************* end of zsytrf *******************************/
38497
38498/******************************** ssytrf_lwork ********************************/
38499static char doc_f2py_rout__flapack_ssytrf_lwork[] = "\
38500work,info = ssytrf_lwork(n,[lower])\n\nWrapper for ``ssytrf_lwork``.\
38501\n\nParameters\n----------\n"
38502"n : input int\n"
38503"\nOther Parameters\n----------------\n"
38504"lower : input int, optional\n Default: 0\n"
38505"\nReturns\n-------\n"
38506"work : float\n"
38507"info : int";
38508/* extern void F_FUNC(ssytrf ,SSYTRF )(char*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */
38509static PyObject *f2py_rout__flapack_ssytrf_lwork(const PyObject *capi_self,
38510 PyObject *capi_args,
38511 PyObject *capi_keywds,
38512 void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) {
38513 PyObject * volatile capi_buildvalue = NULL((void*)0);
38514 volatile int f2py_success = 1;
38515/*decl*/
38516
38517 int lower = 0;
38518 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
38519 int n = 0;
38520 PyObject *n_capi = Py_None(&_Py_NoneStruct);
38521 float a = 0;
38522 int lda = 0;
38523 int ipiv = 0;
38524 float work = 0;
38525 int lwork = 0;
38526 int info = 0;
38527 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
38528
38529/*routdebugenter*/
38530#ifdef F2PY_REPORT_ATEXIT
38531f2py_start_clock();
38532#endif
38533 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
38534 "O|O:_flapack.ssytrf_lwork",\
38535 capi_kwlist,&n_capi,&lower_capi))
38536 return NULL((void*)0);
38537/*frompyobj*/
38538 /* Processing variable n */
38539 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssytrf_lwork() 1st argument (n) can't be converted to int");
38540 if (f2py_success) {
38541 /* Processing variable lower */
38542 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
38543 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssytrf_lwork() 1st keyword (lower) can't be converted to int");
38544 if (f2py_success) {
38545 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssytrf_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssytrf_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
38546 /* Processing variable a */
38547 /* Processing variable ipiv */
38548 /* Processing variable lwork */
38549 lwork = -1;
38550 /* Processing variable work */
38551 /* Processing variable info */
38552 /* Processing variable lda */
38553 lda = max(n,1)((n > 1) ? (n) : (1));
38554/*end of frompyobj*/
38555#ifdef F2PY_REPORT_ATEXIT
38556f2py_start_call_clock();
38557#endif
38558/*callfortranroutine*/
38559 (*f2py_func)((lower?"L":"U"),&n,&a,&lda,&ipiv,&work,&lwork,&info) ;
38560 /*(*f2py_func)(&lower,&n,&a,&lda,&ipiv,&work,&lwork,&info);*/
38561if (PyErr_Occurred())
38562 f2py_success = 0;
38563#ifdef F2PY_REPORT_ATEXIT
38564f2py_stop_call_clock();
38565#endif
38566/*end of callfortranroutine*/
38567 if (f2py_success) {
38568/*pyobjfrom*/
38569/*end of pyobjfrom*/
38570 CFUNCSMESS("Building return value.\n");
38571 capi_buildvalue = Py_BuildValue("fi",work,info);
38572/*closepyobjfrom*/
38573/*end of closepyobjfrom*/
38574 } /*if (f2py_success) after callfortranroutine*/
38575/*cleanupfrompyobj*/
38576 /* End of cleaning variable lda */
38577 /* End of cleaning variable info */
38578 /* End of cleaning variable work */
38579 /* End of cleaning variable lwork */
38580 /* End of cleaning variable ipiv */
38581 /* End of cleaning variable a */
38582 } /*CHECKSCALAR(lower==0||lower==1)*/
38583 } /*if (f2py_success) of lower*/
38584 /* End of cleaning variable lower */
38585 } /*if (f2py_success) of n*/
38586 /* End of cleaning variable n */
38587/*end of cleanupfrompyobj*/
38588 if (capi_buildvalue == NULL((void*)0)) {
38589/*routdebugfailure*/
38590 } else {
38591/*routdebugleave*/
38592 }
38593 CFUNCSMESS("Freeing memory.\n");
38594/*freemem*/
38595#ifdef F2PY_REPORT_ATEXIT
38596f2py_stop_clock();
38597#endif
38598 return capi_buildvalue;
38599}
38600/**************************** end of ssytrf_lwork ****************************/
38601
38602/******************************** dsytrf_lwork ********************************/
38603static char doc_f2py_rout__flapack_dsytrf_lwork[] = "\
38604work,info = dsytrf_lwork(n,[lower])\n\nWrapper for ``dsytrf_lwork``.\
38605\n\nParameters\n----------\n"
38606"n : input int\n"
38607"\nOther Parameters\n----------------\n"
38608"lower : input int, optional\n Default: 0\n"
38609"\nReturns\n-------\n"
38610"work : float\n"
38611"info : int";
38612/* extern void F_FUNC(dsytrf ,DSYTRF )(char*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */
38613static PyObject *f2py_rout__flapack_dsytrf_lwork(const PyObject *capi_self,
38614 PyObject *capi_args,
38615 PyObject *capi_keywds,
38616 void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) {
38617 PyObject * volatile capi_buildvalue = NULL((void*)0);
38618 volatile int f2py_success = 1;
38619/*decl*/
38620
38621 int lower = 0;
38622 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
38623 int n = 0;
38624 PyObject *n_capi = Py_None(&_Py_NoneStruct);
38625 double a = 0;
38626 int lda = 0;
38627 int ipiv = 0;
38628 double work = 0;
38629 int lwork = 0;
38630 int info = 0;
38631 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
38632
38633/*routdebugenter*/
38634#ifdef F2PY_REPORT_ATEXIT
38635f2py_start_clock();
38636#endif
38637 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
38638 "O|O:_flapack.dsytrf_lwork",\
38639 capi_kwlist,&n_capi,&lower_capi))
38640 return NULL((void*)0);
38641/*frompyobj*/
38642 /* Processing variable n */
38643 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsytrf_lwork() 1st argument (n) can't be converted to int");
38644 if (f2py_success) {
38645 /* Processing variable lower */
38646 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
38647 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsytrf_lwork() 1st keyword (lower) can't be converted to int");
38648 if (f2py_success) {
38649 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsytrf_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsytrf_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
38650 /* Processing variable a */
38651 /* Processing variable ipiv */
38652 /* Processing variable lwork */
38653 lwork = -1;
38654 /* Processing variable work */
38655 /* Processing variable info */
38656 /* Processing variable lda */
38657 lda = max(n,1)((n > 1) ? (n) : (1));
38658/*end of frompyobj*/
38659#ifdef F2PY_REPORT_ATEXIT
38660f2py_start_call_clock();
38661#endif
38662/*callfortranroutine*/
38663 (*f2py_func)((lower?"L":"U"),&n,&a,&lda,&ipiv,&work,&lwork,&info) ;
38664 /*(*f2py_func)(&lower,&n,&a,&lda,&ipiv,&work,&lwork,&info);*/
38665if (PyErr_Occurred())
38666 f2py_success = 0;
38667#ifdef F2PY_REPORT_ATEXIT
38668f2py_stop_call_clock();
38669#endif
38670/*end of callfortranroutine*/
38671 if (f2py_success) {
38672/*pyobjfrom*/
38673/*end of pyobjfrom*/
38674 CFUNCSMESS("Building return value.\n");
38675 capi_buildvalue = Py_BuildValue("di",work,info);
38676/*closepyobjfrom*/
38677/*end of closepyobjfrom*/
38678 } /*if (f2py_success) after callfortranroutine*/
38679/*cleanupfrompyobj*/
38680 /* End of cleaning variable lda */
38681 /* End of cleaning variable info */
38682 /* End of cleaning variable work */
38683 /* End of cleaning variable lwork */
38684 /* End of cleaning variable ipiv */
38685 /* End of cleaning variable a */
38686 } /*CHECKSCALAR(lower==0||lower==1)*/
38687 } /*if (f2py_success) of lower*/
38688 /* End of cleaning variable lower */
38689 } /*if (f2py_success) of n*/
38690 /* End of cleaning variable n */
38691/*end of cleanupfrompyobj*/
38692 if (capi_buildvalue == NULL((void*)0)) {
38693/*routdebugfailure*/
38694 } else {
38695/*routdebugleave*/
38696 }
38697 CFUNCSMESS("Freeing memory.\n");
38698/*freemem*/
38699#ifdef F2PY_REPORT_ATEXIT
38700f2py_stop_clock();
38701#endif
38702 return capi_buildvalue;
38703}
38704/**************************** end of dsytrf_lwork ****************************/
38705
38706/******************************** csytrf_lwork ********************************/
38707static char doc_f2py_rout__flapack_csytrf_lwork[] = "\
38708work,info = csytrf_lwork(n,[lower])\n\nWrapper for ``csytrf_lwork``.\
38709\n\nParameters\n----------\n"
38710"n : input int\n"
38711"\nOther Parameters\n----------------\n"
38712"lower : input int, optional\n Default: 0\n"
38713"\nReturns\n-------\n"
38714"work : complex\n"
38715"info : int";
38716/* extern void F_FUNC(csytrf ,CSYTRF )(char*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */
38717static PyObject *f2py_rout__flapack_csytrf_lwork(const PyObject *capi_self,
38718 PyObject *capi_args,
38719 PyObject *capi_keywds,
38720 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
38721 PyObject * volatile capi_buildvalue = NULL((void*)0);
38722 volatile int f2py_success = 1;
38723/*decl*/
38724
38725 int lower = 0;
38726 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
38727 int n = 0;
38728 PyObject *n_capi = Py_None(&_Py_NoneStruct);
38729 complex_float a;
38730 int lda = 0;
38731 int ipiv = 0;
38732 complex_float work;
38733 PyObject *work_capi = Py_None(&_Py_NoneStruct);
38734 int lwork = 0;
38735 int info = 0;
38736 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
38737
38738/*routdebugenter*/
38739#ifdef F2PY_REPORT_ATEXIT
38740f2py_start_clock();
38741#endif
38742 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
38743 "O|O:_flapack.csytrf_lwork",\
38744 capi_kwlist,&n_capi,&lower_capi))
38745 return NULL((void*)0);
38746/*frompyobj*/
38747 /* Processing variable n */
38748 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.csytrf_lwork() 1st argument (n) can't be converted to int");
38749 if (f2py_success) {
38750 /* Processing variable lower */
38751 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
38752 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.csytrf_lwork() 1st keyword (lower) can't be converted to int");
38753 if (f2py_success) {
38754 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","csytrf_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""csytrf_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
38755 /* Processing variable a */
38756 /* Processing variable ipiv */
38757 /* Processing variable lwork */
38758 lwork = -1;
38759 /* Processing variable work */
38760 /* Processing variable info */
38761 /* Processing variable lda */
38762 lda = max(n,1)((n > 1) ? (n) : (1));
38763/*end of frompyobj*/
38764#ifdef F2PY_REPORT_ATEXIT
38765f2py_start_call_clock();
38766#endif
38767/*callfortranroutine*/
38768 (*f2py_func)((lower?"L":"U"),&n,&a,&lda,&ipiv,&work,&lwork,&info) ;
38769 /*(*f2py_func)(&lower,&n,&a,&lda,&ipiv,&work,&lwork,&info);*/
38770if (PyErr_Occurred())
38771 f2py_success = 0;
38772#ifdef F2PY_REPORT_ATEXIT
38773f2py_stop_call_clock();
38774#endif
38775/*end of callfortranroutine*/
38776 if (f2py_success) {
38777/*pyobjfrom*/
38778 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
38779/*end of pyobjfrom*/
38780 CFUNCSMESS("Building return value.\n");
38781 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
38782/*closepyobjfrom*/
38783/*end of closepyobjfrom*/
38784 } /*if (f2py_success) after callfortranroutine*/
38785/*cleanupfrompyobj*/
38786 /* End of cleaning variable lda */
38787 /* End of cleaning variable info */
38788 /* End of cleaning variable work */
38789 /* End of cleaning variable lwork */
38790 /* End of cleaning variable ipiv */
38791 /* End of cleaning variable a */
38792 } /*CHECKSCALAR(lower==0||lower==1)*/
38793 } /*if (f2py_success) of lower*/
38794 /* End of cleaning variable lower */
38795 } /*if (f2py_success) of n*/
38796 /* End of cleaning variable n */
38797/*end of cleanupfrompyobj*/
38798 if (capi_buildvalue == NULL((void*)0)) {
38799/*routdebugfailure*/
38800 } else {
38801/*routdebugleave*/
38802 }
38803 CFUNCSMESS("Freeing memory.\n");
38804/*freemem*/
38805#ifdef F2PY_REPORT_ATEXIT
38806f2py_stop_clock();
38807#endif
38808 return capi_buildvalue;
38809}
38810/**************************** end of csytrf_lwork ****************************/
38811
38812/******************************** zsytrf_lwork ********************************/
38813static char doc_f2py_rout__flapack_zsytrf_lwork[] = "\
38814work,info = zsytrf_lwork(n,[lower])\n\nWrapper for ``zsytrf_lwork``.\
38815\n\nParameters\n----------\n"
38816"n : input int\n"
38817"\nOther Parameters\n----------------\n"
38818"lower : input int, optional\n Default: 0\n"
38819"\nReturns\n-------\n"
38820"work : complex\n"
38821"info : int";
38822/* extern void F_FUNC(zsytrf ,ZSYTRF )(char*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */
38823static PyObject *f2py_rout__flapack_zsytrf_lwork(const PyObject *capi_self,
38824 PyObject *capi_args,
38825 PyObject *capi_keywds,
38826 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
38827 PyObject * volatile capi_buildvalue = NULL((void*)0);
38828 volatile int f2py_success = 1;
38829/*decl*/
38830
38831 int lower = 0;
38832 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
38833 int n = 0;
38834 PyObject *n_capi = Py_None(&_Py_NoneStruct);
38835 complex_double a;
38836 int lda = 0;
38837 int ipiv = 0;
38838 complex_double work;
38839 PyObject *work_capi = Py_None(&_Py_NoneStruct);
38840 int lwork = 0;
38841 int info = 0;
38842 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
38843
38844/*routdebugenter*/
38845#ifdef F2PY_REPORT_ATEXIT
38846f2py_start_clock();
38847#endif
38848 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
38849 "O|O:_flapack.zsytrf_lwork",\
38850 capi_kwlist,&n_capi,&lower_capi))
38851 return NULL((void*)0);
38852/*frompyobj*/
38853 /* Processing variable n */
38854 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zsytrf_lwork() 1st argument (n) can't be converted to int");
38855 if (f2py_success) {
38856 /* Processing variable lower */
38857 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
38858 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zsytrf_lwork() 1st keyword (lower) can't be converted to int");
38859 if (f2py_success) {
38860 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zsytrf_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zsytrf_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
38861 /* Processing variable a */
38862 /* Processing variable ipiv */
38863 /* Processing variable lwork */
38864 lwork = -1;
38865 /* Processing variable work */
38866 /* Processing variable info */
38867 /* Processing variable lda */
38868 lda = max(n,1)((n > 1) ? (n) : (1));
38869/*end of frompyobj*/
38870#ifdef F2PY_REPORT_ATEXIT
38871f2py_start_call_clock();
38872#endif
38873/*callfortranroutine*/
38874 (*f2py_func)((lower?"L":"U"),&n,&a,&lda,&ipiv,&work,&lwork,&info) ;
38875 /*(*f2py_func)(&lower,&n,&a,&lda,&ipiv,&work,&lwork,&info);*/
38876if (PyErr_Occurred())
38877 f2py_success = 0;
38878#ifdef F2PY_REPORT_ATEXIT
38879f2py_stop_call_clock();
38880#endif
38881/*end of callfortranroutine*/
38882 if (f2py_success) {
38883/*pyobjfrom*/
38884 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
38885/*end of pyobjfrom*/
38886 CFUNCSMESS("Building return value.\n");
38887 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
38888/*closepyobjfrom*/
38889/*end of closepyobjfrom*/
38890 } /*if (f2py_success) after callfortranroutine*/
38891/*cleanupfrompyobj*/
38892 /* End of cleaning variable lda */
38893 /* End of cleaning variable info */
38894 /* End of cleaning variable work */
38895 /* End of cleaning variable lwork */
38896 /* End of cleaning variable ipiv */
38897 /* End of cleaning variable a */
38898 } /*CHECKSCALAR(lower==0||lower==1)*/
38899 } /*if (f2py_success) of lower*/
38900 /* End of cleaning variable lower */
38901 } /*if (f2py_success) of n*/
38902 /* End of cleaning variable n */
38903/*end of cleanupfrompyobj*/
38904 if (capi_buildvalue == NULL((void*)0)) {
38905/*routdebugfailure*/
38906 } else {
38907/*routdebugleave*/
38908 }
38909 CFUNCSMESS("Freeing memory.\n");
38910/*freemem*/
38911#ifdef F2PY_REPORT_ATEXIT
38912f2py_stop_clock();
38913#endif
38914 return capi_buildvalue;
38915}
38916/**************************** end of zsytrf_lwork ****************************/
38917
38918/*********************************** ssysv ***********************************/
38919static char doc_f2py_rout__flapack_ssysv[] = "\
38920udut,ipiv,x,info = ssysv(a,b,[lwork,lower,overwrite_a,overwrite_b])\n\nWrapper for ``ssysv``.\
38921\n\nParameters\n----------\n"
38922"a : input rank-2 array('f') with bounds (n,n)\n"
38923"b : input rank-2 array('f') with bounds (n,nrhs)\n"
38924"\nOther Parameters\n----------------\n"
38925"overwrite_a : input int, optional\n Default: 0\n"
38926"overwrite_b : input int, optional\n Default: 0\n"
38927"lwork : input int, optional\n Default: max(n,1)\n"
38928"lower : input int, optional\n Default: 0\n"
38929"\nReturns\n-------\n"
38930"udut : rank-2 array('f') with bounds (n,n) and a storage\n"
38931"ipiv : rank-1 array('i') with bounds (n)\n"
38932"x : rank-2 array('f') with bounds (n,nrhs) and b storage\n"
38933"info : int";
38934/* extern void F_FUNC(ssysv,SSYSV)(char*,F_INT*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */
38935static PyObject *f2py_rout__flapack_ssysv(const PyObject *capi_self,
38936 PyObject *capi_args,
38937 PyObject *capi_keywds,
38938 void (*f2py_func)(char*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
38939 PyObject * volatile capi_buildvalue = NULL((void*)0);
38940 volatile int f2py_success = 1;
38941/*decl*/
38942
38943 int n = 0;
38944 int nrhs = 0;
38945 float *a = NULL((void*)0);
38946 npy_intp a_Dims[2] = {-1, -1};
38947 const int a_Rank = 2;
38948 PyArrayObject *capi_a_tmp = NULL((void*)0);
38949 int capi_a_intent = 0;
38950 int capi_overwrite_a = 0;
38951 PyObject *a_capi = Py_None(&_Py_NoneStruct);
38952 int lda = 0;
38953 int *ipiv = NULL((void*)0);
38954 npy_intp ipiv_Dims[1] = {-1};
38955 const int ipiv_Rank = 1;
38956 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
38957 int capi_ipiv_intent = 0;
38958 float *b = NULL((void*)0);
38959 npy_intp b_Dims[2] = {-1, -1};
38960 const int b_Rank = 2;
38961 PyArrayObject *capi_b_tmp = NULL((void*)0);
38962 int capi_b_intent = 0;
38963 int capi_overwrite_b = 0;
38964 PyObject *b_capi = Py_None(&_Py_NoneStruct);
38965 int ldb = 0;
38966 float *work = NULL((void*)0);
38967 npy_intp work_Dims[1] = {-1};
38968 const int work_Rank = 1;
38969 PyArrayObject *capi_work_tmp = NULL((void*)0);
38970 int capi_work_intent = 0;
38971 int lwork = 0;
38972 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
38973 int info = 0;
38974 int lower = 0;
38975 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
38976 static char *capi_kwlist[] = {"a","b","lwork","lower","overwrite_a","overwrite_b",NULL((void*)0)};
38977
38978/*routdebugenter*/
38979#ifdef F2PY_REPORT_ATEXIT
38980f2py_start_clock();
38981#endif
38982 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
38983 "OO|OOii:_flapack.ssysv",\
38984 capi_kwlist,&a_capi,&b_capi,&lwork_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b))
38985 return NULL((void*)0);
38986/*frompyobj*/
38987 /* Processing variable lower */
38988 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
38989 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssysv() 2nd keyword (lower) can't be converted to int");
38990 if (f2py_success) {
38991 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","ssysv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssysv:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
38992 /* Processing variable a */
38993 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
38994 ;
38995 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
38996 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
38997 if (capi_a_tmp == NULL((void*)0)) {
38998 if (!PyErr_Occurred())
38999 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssysv to C/Fortran array" );
39000 } else {
39001 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
39002
39003 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
39004 /* Processing variable info */
39005 /* Processing variable n */
39006 n = shape(a,0)a_Dims[0];
39007 /* Processing variable lda */
39008 lda = shape(a,0)a_Dims[0];
39009 /* Processing variable ipiv */
39010 ipiv_Dims[0]=n;
39011 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
39012 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
39013 if (capi_ipiv_tmp == NULL((void*)0)) {
39014 if (!PyErr_Occurred())
39015 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.ssysv to C/Fortran array" );
39016 } else {
39017 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
39018
39019 /* Processing variable b */
39020 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
39021 b_Dims[0]=n;
39022 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
39023 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
39024 if (capi_b_tmp == NULL((void*)0)) {
39025 if (!PyErr_Occurred())
39026 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ssysv to C/Fortran array" );
39027 } else {
39028 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
39029
39030 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
39031 /* Processing variable ldb */
39032 ldb = shape(b,0)b_Dims[0];
39033 /* Processing variable lwork */
39034 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else
39035 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssysv() 1st keyword (lwork) can't be converted to int");
39036 if (f2py_success) {
39037 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","1st keyword lwork","ssysv:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssysv:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
39038 /* Processing variable work */
39039 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
39040 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
39041 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
39042 if (capi_work_tmp == NULL((void*)0)) {
39043 if (!PyErr_Occurred())
39044 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssysv to C/Fortran array" );
39045 } else {
39046 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
39047
39048 /* Processing variable nrhs */
39049 nrhs = shape(b,1)b_Dims[1];
39050/*end of frompyobj*/
39051#ifdef F2PY_REPORT_ATEXIT
39052f2py_start_call_clock();
39053#endif
39054/*callfortranroutine*/
39055 (*f2py_func)((lower?"L":"U"),&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info) ;
39056 /*(*f2py_func)(&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info,&lower);*/
39057if (PyErr_Occurred())
39058 f2py_success = 0;
39059#ifdef F2PY_REPORT_ATEXIT
39060f2py_stop_call_clock();
39061#endif
39062/*end of callfortranroutine*/
39063 if (f2py_success) {
39064/*pyobjfrom*/
39065/*end of pyobjfrom*/
39066 CFUNCSMESS("Building return value.\n");
39067 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_ipiv_tmp,capi_b_tmp,info);
39068/*closepyobjfrom*/
39069/*end of closepyobjfrom*/
39070 } /*if (f2py_success) after callfortranroutine*/
39071/*cleanupfrompyobj*/
39072 /* End of cleaning variable nrhs */
39073 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
39074 } /*if (capi_work_tmp == NULL) ... else of work*/
39075 /* End of cleaning variable work */
39076 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
39077 } /*if (f2py_success) of lwork*/
39078 /* End of cleaning variable lwork */
39079 /* End of cleaning variable ldb */
39080 } /*CHECKARRAY(shape(b,0)==n)*/
39081 } /*if (capi_b_tmp == NULL) ... else of b*/
39082 /* End of cleaning variable b */
39083 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
39084 /* End of cleaning variable ipiv */
39085 /* End of cleaning variable lda */
39086 /* End of cleaning variable n */
39087 /* End of cleaning variable info */
39088 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
39089 } /*if (capi_a_tmp == NULL) ... else of a*/
39090 /* End of cleaning variable a */
39091 } /*CHECKSCALAR(lower==0||lower==1)*/
39092 } /*if (f2py_success) of lower*/
39093 /* End of cleaning variable lower */
39094/*end of cleanupfrompyobj*/
39095 if (capi_buildvalue == NULL((void*)0)) {
39096/*routdebugfailure*/
39097 } else {
39098/*routdebugleave*/
39099 }
39100 CFUNCSMESS("Freeing memory.\n");
39101/*freemem*/
39102#ifdef F2PY_REPORT_ATEXIT
39103f2py_stop_clock();
39104#endif
39105 return capi_buildvalue;
39106}
39107/******************************** end of ssysv ********************************/
39108
39109/*********************************** dsysv ***********************************/
39110static char doc_f2py_rout__flapack_dsysv[] = "\
39111udut,ipiv,x,info = dsysv(a,b,[lwork,lower,overwrite_a,overwrite_b])\n\nWrapper for ``dsysv``.\
39112\n\nParameters\n----------\n"
39113"a : input rank-2 array('d') with bounds (n,n)\n"
39114"b : input rank-2 array('d') with bounds (n,nrhs)\n"
39115"\nOther Parameters\n----------------\n"
39116"overwrite_a : input int, optional\n Default: 0\n"
39117"overwrite_b : input int, optional\n Default: 0\n"
39118"lwork : input int, optional\n Default: max(n,1)\n"
39119"lower : input int, optional\n Default: 0\n"
39120"\nReturns\n-------\n"
39121"udut : rank-2 array('d') with bounds (n,n) and a storage\n"
39122"ipiv : rank-1 array('i') with bounds (n)\n"
39123"x : rank-2 array('d') with bounds (n,nrhs) and b storage\n"
39124"info : int";
39125/* extern void F_FUNC(dsysv,DSYSV)(char*,F_INT*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */
39126static PyObject *f2py_rout__flapack_dsysv(const PyObject *capi_self,
39127 PyObject *capi_args,
39128 PyObject *capi_keywds,
39129 void (*f2py_func)(char*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
39130 PyObject * volatile capi_buildvalue = NULL((void*)0);
39131 volatile int f2py_success = 1;
39132/*decl*/
39133
39134 int n = 0;
39135 int nrhs = 0;
39136 double *a = NULL((void*)0);
39137 npy_intp a_Dims[2] = {-1, -1};
39138 const int a_Rank = 2;
39139 PyArrayObject *capi_a_tmp = NULL((void*)0);
39140 int capi_a_intent = 0;
39141 int capi_overwrite_a = 0;
39142 PyObject *a_capi = Py_None(&_Py_NoneStruct);
39143 int lda = 0;
39144 int *ipiv = NULL((void*)0);
39145 npy_intp ipiv_Dims[1] = {-1};
39146 const int ipiv_Rank = 1;
39147 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
39148 int capi_ipiv_intent = 0;
39149 double *b = NULL((void*)0);
39150 npy_intp b_Dims[2] = {-1, -1};
39151 const int b_Rank = 2;
39152 PyArrayObject *capi_b_tmp = NULL((void*)0);
39153 int capi_b_intent = 0;
39154 int capi_overwrite_b = 0;
39155 PyObject *b_capi = Py_None(&_Py_NoneStruct);
39156 int ldb = 0;
39157 double *work = NULL((void*)0);
39158 npy_intp work_Dims[1] = {-1};
39159 const int work_Rank = 1;
39160 PyArrayObject *capi_work_tmp = NULL((void*)0);
39161 int capi_work_intent = 0;
39162 int lwork = 0;
39163 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
39164 int info = 0;
39165 int lower = 0;
39166 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
39167 static char *capi_kwlist[] = {"a","b","lwork","lower","overwrite_a","overwrite_b",NULL((void*)0)};
39168
39169/*routdebugenter*/
39170#ifdef F2PY_REPORT_ATEXIT
39171f2py_start_clock();
39172#endif
39173 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
39174 "OO|OOii:_flapack.dsysv",\
39175 capi_kwlist,&a_capi,&b_capi,&lwork_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b))
39176 return NULL((void*)0);
39177/*frompyobj*/
39178 /* Processing variable lower */
39179 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
39180 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsysv() 2nd keyword (lower) can't be converted to int");
39181 if (f2py_success) {
39182 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","dsysv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsysv:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
39183 /* Processing variable a */
39184 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
39185 ;
39186 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
39187 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
39188 if (capi_a_tmp == NULL((void*)0)) {
39189 if (!PyErr_Occurred())
39190 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsysv to C/Fortran array" );
39191 } else {
39192 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
39193
39194 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
39195 /* Processing variable info */
39196 /* Processing variable n */
39197 n = shape(a,0)a_Dims[0];
39198 /* Processing variable lda */
39199 lda = shape(a,0)a_Dims[0];
39200 /* Processing variable ipiv */
39201 ipiv_Dims[0]=n;
39202 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
39203 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
39204 if (capi_ipiv_tmp == NULL((void*)0)) {
39205 if (!PyErr_Occurred())
39206 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.dsysv to C/Fortran array" );
39207 } else {
39208 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
39209
39210 /* Processing variable b */
39211 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
39212 b_Dims[0]=n;
39213 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
39214 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
39215 if (capi_b_tmp == NULL((void*)0)) {
39216 if (!PyErr_Occurred())
39217 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dsysv to C/Fortran array" );
39218 } else {
39219 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
39220
39221 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
39222 /* Processing variable ldb */
39223 ldb = shape(b,0)b_Dims[0];
39224 /* Processing variable lwork */
39225 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else
39226 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsysv() 1st keyword (lwork) can't be converted to int");
39227 if (f2py_success) {
39228 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","1st keyword lwork","dsysv:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsysv:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
39229 /* Processing variable work */
39230 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
39231 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
39232 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
39233 if (capi_work_tmp == NULL((void*)0)) {
39234 if (!PyErr_Occurred())
39235 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsysv to C/Fortran array" );
39236 } else {
39237 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
39238
39239 /* Processing variable nrhs */
39240 nrhs = shape(b,1)b_Dims[1];
39241/*end of frompyobj*/
39242#ifdef F2PY_REPORT_ATEXIT
39243f2py_start_call_clock();
39244#endif
39245/*callfortranroutine*/
39246 (*f2py_func)((lower?"L":"U"),&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info) ;
39247 /*(*f2py_func)(&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info,&lower);*/
39248if (PyErr_Occurred())
39249 f2py_success = 0;
39250#ifdef F2PY_REPORT_ATEXIT
39251f2py_stop_call_clock();
39252#endif
39253/*end of callfortranroutine*/
39254 if (f2py_success) {
39255/*pyobjfrom*/
39256/*end of pyobjfrom*/
39257 CFUNCSMESS("Building return value.\n");
39258 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_ipiv_tmp,capi_b_tmp,info);
39259/*closepyobjfrom*/
39260/*end of closepyobjfrom*/
39261 } /*if (f2py_success) after callfortranroutine*/
39262/*cleanupfrompyobj*/
39263 /* End of cleaning variable nrhs */
39264 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
39265 } /*if (capi_work_tmp == NULL) ... else of work*/
39266 /* End of cleaning variable work */
39267 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
39268 } /*if (f2py_success) of lwork*/
39269 /* End of cleaning variable lwork */
39270 /* End of cleaning variable ldb */
39271 } /*CHECKARRAY(shape(b,0)==n)*/
39272 } /*if (capi_b_tmp == NULL) ... else of b*/
39273 /* End of cleaning variable b */
39274 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
39275 /* End of cleaning variable ipiv */
39276 /* End of cleaning variable lda */
39277 /* End of cleaning variable n */
39278 /* End of cleaning variable info */
39279 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
39280 } /*if (capi_a_tmp == NULL) ... else of a*/
39281 /* End of cleaning variable a */
39282 } /*CHECKSCALAR(lower==0||lower==1)*/
39283 } /*if (f2py_success) of lower*/
39284 /* End of cleaning variable lower */
39285/*end of cleanupfrompyobj*/
39286 if (capi_buildvalue == NULL((void*)0)) {
39287/*routdebugfailure*/
39288 } else {
39289/*routdebugleave*/
39290 }
39291 CFUNCSMESS("Freeing memory.\n");
39292/*freemem*/
39293#ifdef F2PY_REPORT_ATEXIT
39294f2py_stop_clock();
39295#endif
39296 return capi_buildvalue;
39297}
39298/******************************** end of dsysv ********************************/
39299
39300/*********************************** csysv ***********************************/
39301static char doc_f2py_rout__flapack_csysv[] = "\
39302udut,ipiv,x,info = csysv(a,b,[lwork,lower,overwrite_a,overwrite_b])\n\nWrapper for ``csysv``.\
39303\n\nParameters\n----------\n"
39304"a : input rank-2 array('F') with bounds (n,n)\n"
39305"b : input rank-2 array('F') with bounds (n,nrhs)\n"
39306"\nOther Parameters\n----------------\n"
39307"overwrite_a : input int, optional\n Default: 0\n"
39308"overwrite_b : input int, optional\n Default: 0\n"
39309"lwork : input int, optional\n Default: max(n,1)\n"
39310"lower : input int, optional\n Default: 0\n"
39311"\nReturns\n-------\n"
39312"udut : rank-2 array('F') with bounds (n,n) and a storage\n"
39313"ipiv : rank-1 array('i') with bounds (n)\n"
39314"x : rank-2 array('F') with bounds (n,nrhs) and b storage\n"
39315"info : int";
39316/* extern void F_FUNC(csysv,CSYSV)(char*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */
39317static PyObject *f2py_rout__flapack_csysv(const PyObject *capi_self,
39318 PyObject *capi_args,
39319 PyObject *capi_keywds,
39320 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
39321 PyObject * volatile capi_buildvalue = NULL((void*)0);
39322 volatile int f2py_success = 1;
39323/*decl*/
39324
39325 int n = 0;
39326 int nrhs = 0;
39327 complex_float *a = NULL((void*)0);
39328 npy_intp a_Dims[2] = {-1, -1};
39329 const int a_Rank = 2;
39330 PyArrayObject *capi_a_tmp = NULL((void*)0);
39331 int capi_a_intent = 0;
39332 int capi_overwrite_a = 0;
39333 PyObject *a_capi = Py_None(&_Py_NoneStruct);
39334 int lda = 0;
39335 int *ipiv = NULL((void*)0);
39336 npy_intp ipiv_Dims[1] = {-1};
39337 const int ipiv_Rank = 1;
39338 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
39339 int capi_ipiv_intent = 0;
39340 complex_float *b = NULL((void*)0);
39341 npy_intp b_Dims[2] = {-1, -1};
39342 const int b_Rank = 2;
39343 PyArrayObject *capi_b_tmp = NULL((void*)0);
39344 int capi_b_intent = 0;
39345 int capi_overwrite_b = 0;
39346 PyObject *b_capi = Py_None(&_Py_NoneStruct);
39347 int ldb = 0;
39348 complex_float *work = NULL((void*)0);
39349 npy_intp work_Dims[1] = {-1};
39350 const int work_Rank = 1;
39351 PyArrayObject *capi_work_tmp = NULL((void*)0);
39352 int capi_work_intent = 0;
39353 int lwork = 0;
39354 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
39355 int info = 0;
39356 int lower = 0;
39357 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
39358 static char *capi_kwlist[] = {"a","b","lwork","lower","overwrite_a","overwrite_b",NULL((void*)0)};
39359
39360/*routdebugenter*/
39361#ifdef F2PY_REPORT_ATEXIT
39362f2py_start_clock();
39363#endif
39364 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
39365 "OO|OOii:_flapack.csysv",\
39366 capi_kwlist,&a_capi,&b_capi,&lwork_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b))
39367 return NULL((void*)0);
39368/*frompyobj*/
39369 /* Processing variable lower */
39370 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
39371 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.csysv() 2nd keyword (lower) can't be converted to int");
39372 if (f2py_success) {
39373 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","csysv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""csysv:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
39374 /* Processing variable a */
39375 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
39376 ;
39377 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
39378 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
39379 if (capi_a_tmp == NULL((void*)0)) {
39380 if (!PyErr_Occurred())
39381 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.csysv to C/Fortran array" );
39382 } else {
39383 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
39384
39385 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
39386 /* Processing variable info */
39387 /* Processing variable n */
39388 n = shape(a,0)a_Dims[0];
39389 /* Processing variable lda */
39390 lda = shape(a,0)a_Dims[0];
39391 /* Processing variable ipiv */
39392 ipiv_Dims[0]=n;
39393 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
39394 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
39395 if (capi_ipiv_tmp == NULL((void*)0)) {
39396 if (!PyErr_Occurred())
39397 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.csysv to C/Fortran array" );
39398 } else {
39399 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
39400
39401 /* Processing variable b */
39402 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
39403 b_Dims[0]=n;
39404 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
39405 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
39406 if (capi_b_tmp == NULL((void*)0)) {
39407 if (!PyErr_Occurred())
39408 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.csysv to C/Fortran array" );
39409 } else {
39410 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
39411
39412 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
39413 /* Processing variable ldb */
39414 ldb = shape(b,0)b_Dims[0];
39415 /* Processing variable lwork */
39416 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else
39417 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.csysv() 1st keyword (lwork) can't be converted to int");
39418 if (f2py_success) {
39419 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","1st keyword lwork","csysv:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""csysv:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
39420 /* Processing variable work */
39421 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
39422 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
39423 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
39424 if (capi_work_tmp == NULL((void*)0)) {
39425 if (!PyErr_Occurred())
39426 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.csysv to C/Fortran array" );
39427 } else {
39428 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
39429
39430 /* Processing variable nrhs */
39431 nrhs = shape(b,1)b_Dims[1];
39432/*end of frompyobj*/
39433#ifdef F2PY_REPORT_ATEXIT
39434f2py_start_call_clock();
39435#endif
39436/*callfortranroutine*/
39437 (*f2py_func)((lower?"L":"U"),&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info) ;
39438 /*(*f2py_func)(&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info,&lower);*/
39439if (PyErr_Occurred())
39440 f2py_success = 0;
39441#ifdef F2PY_REPORT_ATEXIT
39442f2py_stop_call_clock();
39443#endif
39444/*end of callfortranroutine*/
39445 if (f2py_success) {
39446/*pyobjfrom*/
39447/*end of pyobjfrom*/
39448 CFUNCSMESS("Building return value.\n");
39449 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_ipiv_tmp,capi_b_tmp,info);
39450/*closepyobjfrom*/
39451/*end of closepyobjfrom*/
39452 } /*if (f2py_success) after callfortranroutine*/
39453/*cleanupfrompyobj*/
39454 /* End of cleaning variable nrhs */
39455 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
39456 } /*if (capi_work_tmp == NULL) ... else of work*/
39457 /* End of cleaning variable work */
39458 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
39459 } /*if (f2py_success) of lwork*/
39460 /* End of cleaning variable lwork */
39461 /* End of cleaning variable ldb */
39462 } /*CHECKARRAY(shape(b,0)==n)*/
39463 } /*if (capi_b_tmp == NULL) ... else of b*/
39464 /* End of cleaning variable b */
39465 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
39466 /* End of cleaning variable ipiv */
39467 /* End of cleaning variable lda */
39468 /* End of cleaning variable n */
39469 /* End of cleaning variable info */
39470 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
39471 } /*if (capi_a_tmp == NULL) ... else of a*/
39472 /* End of cleaning variable a */
39473 } /*CHECKSCALAR(lower==0||lower==1)*/
39474 } /*if (f2py_success) of lower*/
39475 /* End of cleaning variable lower */
39476/*end of cleanupfrompyobj*/
39477 if (capi_buildvalue == NULL((void*)0)) {
39478/*routdebugfailure*/
39479 } else {
39480/*routdebugleave*/
39481 }
39482 CFUNCSMESS("Freeing memory.\n");
39483/*freemem*/
39484#ifdef F2PY_REPORT_ATEXIT
39485f2py_stop_clock();
39486#endif
39487 return capi_buildvalue;
39488}
39489/******************************** end of csysv ********************************/
39490
39491/*********************************** zsysv ***********************************/
39492static char doc_f2py_rout__flapack_zsysv[] = "\
39493udut,ipiv,x,info = zsysv(a,b,[lwork,lower,overwrite_a,overwrite_b])\n\nWrapper for ``zsysv``.\
39494\n\nParameters\n----------\n"
39495"a : input rank-2 array('D') with bounds (n,n)\n"
39496"b : input rank-2 array('D') with bounds (n,nrhs)\n"
39497"\nOther Parameters\n----------------\n"
39498"overwrite_a : input int, optional\n Default: 0\n"
39499"overwrite_b : input int, optional\n Default: 0\n"
39500"lwork : input int, optional\n Default: max(n,1)\n"
39501"lower : input int, optional\n Default: 0\n"
39502"\nReturns\n-------\n"
39503"udut : rank-2 array('D') with bounds (n,n) and a storage\n"
39504"ipiv : rank-1 array('i') with bounds (n)\n"
39505"x : rank-2 array('D') with bounds (n,nrhs) and b storage\n"
39506"info : int";
39507/* extern void F_FUNC(zsysv,ZSYSV)(char*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */
39508static PyObject *f2py_rout__flapack_zsysv(const PyObject *capi_self,
39509 PyObject *capi_args,
39510 PyObject *capi_keywds,
39511 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
39512 PyObject * volatile capi_buildvalue = NULL((void*)0);
39513 volatile int f2py_success = 1;
39514/*decl*/
39515
39516 int n = 0;
39517 int nrhs = 0;
39518 complex_double *a = NULL((void*)0);
39519 npy_intp a_Dims[2] = {-1, -1};
39520 const int a_Rank = 2;
39521 PyArrayObject *capi_a_tmp = NULL((void*)0);
39522 int capi_a_intent = 0;
39523 int capi_overwrite_a = 0;
39524 PyObject *a_capi = Py_None(&_Py_NoneStruct);
39525 int lda = 0;
39526 int *ipiv = NULL((void*)0);
39527 npy_intp ipiv_Dims[1] = {-1};
39528 const int ipiv_Rank = 1;
39529 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
39530 int capi_ipiv_intent = 0;
39531 complex_double *b = NULL((void*)0);
39532 npy_intp b_Dims[2] = {-1, -1};
39533 const int b_Rank = 2;
39534 PyArrayObject *capi_b_tmp = NULL((void*)0);
39535 int capi_b_intent = 0;
39536 int capi_overwrite_b = 0;
39537 PyObject *b_capi = Py_None(&_Py_NoneStruct);
39538 int ldb = 0;
39539 complex_double *work = NULL((void*)0);
39540 npy_intp work_Dims[1] = {-1};
39541 const int work_Rank = 1;
39542 PyArrayObject *capi_work_tmp = NULL((void*)0);
39543 int capi_work_intent = 0;
39544 int lwork = 0;
39545 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
39546 int info = 0;
39547 int lower = 0;
39548 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
39549 static char *capi_kwlist[] = {"a","b","lwork","lower","overwrite_a","overwrite_b",NULL((void*)0)};
39550
39551/*routdebugenter*/
39552#ifdef F2PY_REPORT_ATEXIT
39553f2py_start_clock();
39554#endif
39555 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
39556 "OO|OOii:_flapack.zsysv",\
39557 capi_kwlist,&a_capi,&b_capi,&lwork_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b))
39558 return NULL((void*)0);
39559/*frompyobj*/
39560 /* Processing variable lower */
39561 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
39562 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zsysv() 2nd keyword (lower) can't be converted to int");
39563 if (f2py_success) {
39564 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","zsysv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zsysv:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
39565 /* Processing variable a */
39566 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
39567 ;
39568 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
39569 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
39570 if (capi_a_tmp == NULL((void*)0)) {
39571 if (!PyErr_Occurred())
39572 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zsysv to C/Fortran array" );
39573 } else {
39574 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
39575
39576 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
39577 /* Processing variable info */
39578 /* Processing variable n */
39579 n = shape(a,0)a_Dims[0];
39580 /* Processing variable lda */
39581 lda = shape(a,0)a_Dims[0];
39582 /* Processing variable ipiv */
39583 ipiv_Dims[0]=n;
39584 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
39585 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
39586 if (capi_ipiv_tmp == NULL((void*)0)) {
39587 if (!PyErr_Occurred())
39588 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.zsysv to C/Fortran array" );
39589 } else {
39590 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
39591
39592 /* Processing variable b */
39593 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
39594 b_Dims[0]=n;
39595 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
39596 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
39597 if (capi_b_tmp == NULL((void*)0)) {
39598 if (!PyErr_Occurred())
39599 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zsysv to C/Fortran array" );
39600 } else {
39601 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
39602
39603 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
39604 /* Processing variable ldb */
39605 ldb = shape(b,0)b_Dims[0];
39606 /* Processing variable lwork */
39607 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else
39608 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zsysv() 1st keyword (lwork) can't be converted to int");
39609 if (f2py_success) {
39610 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","1st keyword lwork","zsysv:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zsysv:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
39611 /* Processing variable work */
39612 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
39613 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
39614 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
39615 if (capi_work_tmp == NULL((void*)0)) {
39616 if (!PyErr_Occurred())
39617 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zsysv to C/Fortran array" );
39618 } else {
39619 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
39620
39621 /* Processing variable nrhs */
39622 nrhs = shape(b,1)b_Dims[1];
39623/*end of frompyobj*/
39624#ifdef F2PY_REPORT_ATEXIT
39625f2py_start_call_clock();
39626#endif
39627/*callfortranroutine*/
39628 (*f2py_func)((lower?"L":"U"),&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info) ;
39629 /*(*f2py_func)(&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info,&lower);*/
39630if (PyErr_Occurred())
39631 f2py_success = 0;
39632#ifdef F2PY_REPORT_ATEXIT
39633f2py_stop_call_clock();
39634#endif
39635/*end of callfortranroutine*/
39636 if (f2py_success) {
39637/*pyobjfrom*/
39638/*end of pyobjfrom*/
39639 CFUNCSMESS("Building return value.\n");
39640 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_ipiv_tmp,capi_b_tmp,info);
39641/*closepyobjfrom*/
39642/*end of closepyobjfrom*/
39643 } /*if (f2py_success) after callfortranroutine*/
39644/*cleanupfrompyobj*/
39645 /* End of cleaning variable nrhs */
39646 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
39647 } /*if (capi_work_tmp == NULL) ... else of work*/
39648 /* End of cleaning variable work */
39649 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
39650 } /*if (f2py_success) of lwork*/
39651 /* End of cleaning variable lwork */
39652 /* End of cleaning variable ldb */
39653 } /*CHECKARRAY(shape(b,0)==n)*/
39654 } /*if (capi_b_tmp == NULL) ... else of b*/
39655 /* End of cleaning variable b */
39656 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
39657 /* End of cleaning variable ipiv */
39658 /* End of cleaning variable lda */
39659 /* End of cleaning variable n */
39660 /* End of cleaning variable info */
39661 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
39662 } /*if (capi_a_tmp == NULL) ... else of a*/
39663 /* End of cleaning variable a */
39664 } /*CHECKSCALAR(lower==0||lower==1)*/
39665 } /*if (f2py_success) of lower*/
39666 /* End of cleaning variable lower */
39667/*end of cleanupfrompyobj*/
39668 if (capi_buildvalue == NULL((void*)0)) {
39669/*routdebugfailure*/
39670 } else {
39671/*routdebugleave*/
39672 }
39673 CFUNCSMESS("Freeing memory.\n");
39674/*freemem*/
39675#ifdef F2PY_REPORT_ATEXIT
39676f2py_stop_clock();
39677#endif
39678 return capi_buildvalue;
39679}
39680/******************************** end of zsysv ********************************/
39681
39682/******************************** ssysv_lwork ********************************/
39683static char doc_f2py_rout__flapack_ssysv_lwork[] = "\
39684work,info = ssysv_lwork(n,[lower])\n\nWrapper for ``ssysv_lwork``.\
39685\n\nParameters\n----------\n"
39686"n : input int\n"
39687"\nOther Parameters\n----------------\n"
39688"lower : input int, optional\n Default: 0\n"
39689"\nReturns\n-------\n"
39690"work : float\n"
39691"info : int";
39692/* extern void F_FUNC(ssysv ,SSYSV )(char*,F_INT*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */
39693static PyObject *f2py_rout__flapack_ssysv_lwork(const PyObject *capi_self,
39694 PyObject *capi_args,
39695 PyObject *capi_keywds,
39696 void (*f2py_func)(char*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
39697 PyObject * volatile capi_buildvalue = NULL((void*)0);
39698 volatile int f2py_success = 1;
39699/*decl*/
39700
39701 int n = 0;
39702 PyObject *n_capi = Py_None(&_Py_NoneStruct);
39703 int nrhs = 0;
39704 float a = 0;
39705 int lda = 0;
39706 int ipiv = 0;
39707 float b = 0;
39708 int ldb = 0;
39709 float work = 0;
39710 int lwork = 0;
39711 int info = 0;
39712 int lower = 0;
39713 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
39714 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
39715
39716/*routdebugenter*/
39717#ifdef F2PY_REPORT_ATEXIT
39718f2py_start_clock();
39719#endif
39720 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
39721 "O|O:_flapack.ssysv_lwork",\
39722 capi_kwlist,&n_capi,&lower_capi))
39723 return NULL((void*)0);
39724/*frompyobj*/
39725 /* Processing variable n */
39726 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssysv_lwork() 1st argument (n) can't be converted to int");
39727 if (f2py_success) {
39728 /* Processing variable lower */
39729 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
39730 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssysv_lwork() 1st keyword (lower) can't be converted to int");
39731 if (f2py_success) {
39732 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssysv_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssysv_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
39733 /* Processing variable nrhs */
39734 nrhs = 1;
39735 /* Processing variable a */
39736 /* Processing variable ipiv */
39737 /* Processing variable b */
39738 /* Processing variable lwork */
39739 lwork = -1;
39740 /* Processing variable work */
39741 /* Processing variable info */
39742 /* Processing variable lda */
39743 lda = n;
39744 /* Processing variable ldb */
39745 ldb = n;
39746/*end of frompyobj*/
39747#ifdef F2PY_REPORT_ATEXIT
39748f2py_start_call_clock();
39749#endif
39750/*callfortranroutine*/
39751 (*f2py_func)((lower?"L":"U"),&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info) ;
39752 /*(*f2py_func)(&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info,&lower);*/
39753if (PyErr_Occurred())
39754 f2py_success = 0;
39755#ifdef F2PY_REPORT_ATEXIT
39756f2py_stop_call_clock();
39757#endif
39758/*end of callfortranroutine*/
39759 if (f2py_success) {
39760/*pyobjfrom*/
39761/*end of pyobjfrom*/
39762 CFUNCSMESS("Building return value.\n");
39763 capi_buildvalue = Py_BuildValue("fi",work,info);
39764/*closepyobjfrom*/
39765/*end of closepyobjfrom*/
39766 } /*if (f2py_success) after callfortranroutine*/
39767/*cleanupfrompyobj*/
39768 /* End of cleaning variable ldb */
39769 /* End of cleaning variable lda */
39770 /* End of cleaning variable info */
39771 /* End of cleaning variable work */
39772 /* End of cleaning variable lwork */
39773 /* End of cleaning variable b */
39774 /* End of cleaning variable ipiv */
39775 /* End of cleaning variable a */
39776 /* End of cleaning variable nrhs */
39777 } /*CHECKSCALAR(lower==0||lower==1)*/
39778 } /*if (f2py_success) of lower*/
39779 /* End of cleaning variable lower */
39780 } /*if (f2py_success) of n*/
39781 /* End of cleaning variable n */
39782/*end of cleanupfrompyobj*/
39783 if (capi_buildvalue == NULL((void*)0)) {
39784/*routdebugfailure*/
39785 } else {
39786/*routdebugleave*/
39787 }
39788 CFUNCSMESS("Freeing memory.\n");
39789/*freemem*/
39790#ifdef F2PY_REPORT_ATEXIT
39791f2py_stop_clock();
39792#endif
39793 return capi_buildvalue;
39794}
39795/***************************** end of ssysv_lwork *****************************/
39796
39797/******************************** dsysv_lwork ********************************/
39798static char doc_f2py_rout__flapack_dsysv_lwork[] = "\
39799work,info = dsysv_lwork(n,[lower])\n\nWrapper for ``dsysv_lwork``.\
39800\n\nParameters\n----------\n"
39801"n : input int\n"
39802"\nOther Parameters\n----------------\n"
39803"lower : input int, optional\n Default: 0\n"
39804"\nReturns\n-------\n"
39805"work : float\n"
39806"info : int";
39807/* extern void F_FUNC(dsysv ,DSYSV )(char*,F_INT*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */
39808static PyObject *f2py_rout__flapack_dsysv_lwork(const PyObject *capi_self,
39809 PyObject *capi_args,
39810 PyObject *capi_keywds,
39811 void (*f2py_func)(char*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
39812 PyObject * volatile capi_buildvalue = NULL((void*)0);
39813 volatile int f2py_success = 1;
39814/*decl*/
39815
39816 int n = 0;
39817 PyObject *n_capi = Py_None(&_Py_NoneStruct);
39818 int nrhs = 0;
39819 double a = 0;
39820 int lda = 0;
39821 int ipiv = 0;
39822 double b = 0;
39823 int ldb = 0;
39824 double work = 0;
39825 int lwork = 0;
39826 int info = 0;
39827 int lower = 0;
39828 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
39829 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
39830
39831/*routdebugenter*/
39832#ifdef F2PY_REPORT_ATEXIT
39833f2py_start_clock();
39834#endif
39835 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
39836 "O|O:_flapack.dsysv_lwork",\
39837 capi_kwlist,&n_capi,&lower_capi))
39838 return NULL((void*)0);
39839/*frompyobj*/
39840 /* Processing variable n */
39841 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsysv_lwork() 1st argument (n) can't be converted to int");
39842 if (f2py_success) {
39843 /* Processing variable lower */
39844 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
39845 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsysv_lwork() 1st keyword (lower) can't be converted to int");
39846 if (f2py_success) {
39847 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsysv_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsysv_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
39848 /* Processing variable nrhs */
39849 nrhs = 1;
39850 /* Processing variable a */
39851 /* Processing variable ipiv */
39852 /* Processing variable b */
39853 /* Processing variable lwork */
39854 lwork = -1;
39855 /* Processing variable work */
39856 /* Processing variable info */
39857 /* Processing variable lda */
39858 lda = n;
39859 /* Processing variable ldb */
39860 ldb = n;
39861/*end of frompyobj*/
39862#ifdef F2PY_REPORT_ATEXIT
39863f2py_start_call_clock();
39864#endif
39865/*callfortranroutine*/
39866 (*f2py_func)((lower?"L":"U"),&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info) ;
39867 /*(*f2py_func)(&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info,&lower);*/
39868if (PyErr_Occurred())
39869 f2py_success = 0;
39870#ifdef F2PY_REPORT_ATEXIT
39871f2py_stop_call_clock();
39872#endif
39873/*end of callfortranroutine*/
39874 if (f2py_success) {
39875/*pyobjfrom*/
39876/*end of pyobjfrom*/
39877 CFUNCSMESS("Building return value.\n");
39878 capi_buildvalue = Py_BuildValue("di",work,info);
39879/*closepyobjfrom*/
39880/*end of closepyobjfrom*/
39881 } /*if (f2py_success) after callfortranroutine*/
39882/*cleanupfrompyobj*/
39883 /* End of cleaning variable ldb */
39884 /* End of cleaning variable lda */
39885 /* End of cleaning variable info */
39886 /* End of cleaning variable work */
39887 /* End of cleaning variable lwork */
39888 /* End of cleaning variable b */
39889 /* End of cleaning variable ipiv */
39890 /* End of cleaning variable a */
39891 /* End of cleaning variable nrhs */
39892 } /*CHECKSCALAR(lower==0||lower==1)*/
39893 } /*if (f2py_success) of lower*/
39894 /* End of cleaning variable lower */
39895 } /*if (f2py_success) of n*/
39896 /* End of cleaning variable n */
39897/*end of cleanupfrompyobj*/
39898 if (capi_buildvalue == NULL((void*)0)) {
39899/*routdebugfailure*/
39900 } else {
39901/*routdebugleave*/
39902 }
39903 CFUNCSMESS("Freeing memory.\n");
39904/*freemem*/
39905#ifdef F2PY_REPORT_ATEXIT
39906f2py_stop_clock();
39907#endif
39908 return capi_buildvalue;
39909}
39910/***************************** end of dsysv_lwork *****************************/
39911
39912/******************************** csysv_lwork ********************************/
39913static char doc_f2py_rout__flapack_csysv_lwork[] = "\
39914work,info = csysv_lwork(n,[lower])\n\nWrapper for ``csysv_lwork``.\
39915\n\nParameters\n----------\n"
39916"n : input int\n"
39917"\nOther Parameters\n----------------\n"
39918"lower : input int, optional\n Default: 0\n"
39919"\nReturns\n-------\n"
39920"work : complex\n"
39921"info : int";
39922/* extern void F_FUNC(csysv ,CSYSV )(char*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */
39923static PyObject *f2py_rout__flapack_csysv_lwork(const PyObject *capi_self,
39924 PyObject *capi_args,
39925 PyObject *capi_keywds,
39926 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
39927 PyObject * volatile capi_buildvalue = NULL((void*)0);
39928 volatile int f2py_success = 1;
39929/*decl*/
39930
39931 int n = 0;
39932 PyObject *n_capi = Py_None(&_Py_NoneStruct);
39933 int nrhs = 0;
39934 complex_float a;
39935 int lda = 0;
39936 int ipiv = 0;
39937 complex_float b;
39938 int ldb = 0;
39939 complex_float work;
39940 PyObject *work_capi = Py_None(&_Py_NoneStruct);
39941 int lwork = 0;
39942 int info = 0;
39943 int lower = 0;
39944 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
39945 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
39946
39947/*routdebugenter*/
39948#ifdef F2PY_REPORT_ATEXIT
39949f2py_start_clock();
39950#endif
39951 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
39952 "O|O:_flapack.csysv_lwork",\
39953 capi_kwlist,&n_capi,&lower_capi))
39954 return NULL((void*)0);
39955/*frompyobj*/
39956 /* Processing variable n */
39957 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.csysv_lwork() 1st argument (n) can't be converted to int");
39958 if (f2py_success) {
39959 /* Processing variable lower */
39960 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
39961 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.csysv_lwork() 1st keyword (lower) can't be converted to int");
39962 if (f2py_success) {
39963 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","csysv_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""csysv_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
39964 /* Processing variable nrhs */
39965 nrhs = 1;
39966 /* Processing variable a */
39967 /* Processing variable ipiv */
39968 /* Processing variable b */
39969 /* Processing variable lwork */
39970 lwork = -1;
39971 /* Processing variable work */
39972 /* Processing variable info */
39973 /* Processing variable lda */
39974 lda = n;
39975 /* Processing variable ldb */
39976 ldb = n;
39977/*end of frompyobj*/
39978#ifdef F2PY_REPORT_ATEXIT
39979f2py_start_call_clock();
39980#endif
39981/*callfortranroutine*/
39982 (*f2py_func)((lower?"L":"U"),&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info) ;
39983 /*(*f2py_func)(&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info,&lower);*/
39984if (PyErr_Occurred())
39985 f2py_success = 0;
39986#ifdef F2PY_REPORT_ATEXIT
39987f2py_stop_call_clock();
39988#endif
39989/*end of callfortranroutine*/
39990 if (f2py_success) {
39991/*pyobjfrom*/
39992 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
39993/*end of pyobjfrom*/
39994 CFUNCSMESS("Building return value.\n");
39995 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
39996/*closepyobjfrom*/
39997/*end of closepyobjfrom*/
39998 } /*if (f2py_success) after callfortranroutine*/
39999/*cleanupfrompyobj*/
40000 /* End of cleaning variable ldb */
40001 /* End of cleaning variable lda */
40002 /* End of cleaning variable info */
40003 /* End of cleaning variable work */
40004 /* End of cleaning variable lwork */
40005 /* End of cleaning variable b */
40006 /* End of cleaning variable ipiv */
40007 /* End of cleaning variable a */
40008 /* End of cleaning variable nrhs */
40009 } /*CHECKSCALAR(lower==0||lower==1)*/
40010 } /*if (f2py_success) of lower*/
40011 /* End of cleaning variable lower */
40012 } /*if (f2py_success) of n*/
40013 /* End of cleaning variable n */
40014/*end of cleanupfrompyobj*/
40015 if (capi_buildvalue == NULL((void*)0)) {
40016/*routdebugfailure*/
40017 } else {
40018/*routdebugleave*/
40019 }
40020 CFUNCSMESS("Freeing memory.\n");
40021/*freemem*/
40022#ifdef F2PY_REPORT_ATEXIT
40023f2py_stop_clock();
40024#endif
40025 return capi_buildvalue;
40026}
40027/***************************** end of csysv_lwork *****************************/
40028
40029/******************************** zsysv_lwork ********************************/
40030static char doc_f2py_rout__flapack_zsysv_lwork[] = "\
40031work,info = zsysv_lwork(n,[lower])\n\nWrapper for ``zsysv_lwork``.\
40032\n\nParameters\n----------\n"
40033"n : input int\n"
40034"\nOther Parameters\n----------------\n"
40035"lower : input int, optional\n Default: 0\n"
40036"\nReturns\n-------\n"
40037"work : complex\n"
40038"info : int";
40039/* extern void F_FUNC(zsysv ,ZSYSV )(char*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */
40040static PyObject *f2py_rout__flapack_zsysv_lwork(const PyObject *capi_self,
40041 PyObject *capi_args,
40042 PyObject *capi_keywds,
40043 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
40044 PyObject * volatile capi_buildvalue = NULL((void*)0);
40045 volatile int f2py_success = 1;
40046/*decl*/
40047
40048 int n = 0;
40049 PyObject *n_capi = Py_None(&_Py_NoneStruct);
40050 int nrhs = 0;
40051 complex_double a;
40052 int lda = 0;
40053 int ipiv = 0;
40054 complex_double b;
40055 int ldb = 0;
40056 complex_double work;
40057 PyObject *work_capi = Py_None(&_Py_NoneStruct);
40058 int lwork = 0;
40059 int info = 0;
40060 int lower = 0;
40061 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
40062 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
40063
40064/*routdebugenter*/
40065#ifdef F2PY_REPORT_ATEXIT
40066f2py_start_clock();
40067#endif
40068 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
40069 "O|O:_flapack.zsysv_lwork",\
40070 capi_kwlist,&n_capi,&lower_capi))
40071 return NULL((void*)0);
40072/*frompyobj*/
40073 /* Processing variable n */
40074 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zsysv_lwork() 1st argument (n) can't be converted to int");
40075 if (f2py_success) {
40076 /* Processing variable lower */
40077 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
40078 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zsysv_lwork() 1st keyword (lower) can't be converted to int");
40079 if (f2py_success) {
40080 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zsysv_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zsysv_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
40081 /* Processing variable nrhs */
40082 nrhs = 1;
40083 /* Processing variable a */
40084 /* Processing variable ipiv */
40085 /* Processing variable b */
40086 /* Processing variable lwork */
40087 lwork = -1;
40088 /* Processing variable work */
40089 /* Processing variable info */
40090 /* Processing variable lda */
40091 lda = n;
40092 /* Processing variable ldb */
40093 ldb = n;
40094/*end of frompyobj*/
40095#ifdef F2PY_REPORT_ATEXIT
40096f2py_start_call_clock();
40097#endif
40098/*callfortranroutine*/
40099 (*f2py_func)((lower?"L":"U"),&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info) ;
40100 /*(*f2py_func)(&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info,&lower);*/
40101if (PyErr_Occurred())
40102 f2py_success = 0;
40103#ifdef F2PY_REPORT_ATEXIT
40104f2py_stop_call_clock();
40105#endif
40106/*end of callfortranroutine*/
40107 if (f2py_success) {
40108/*pyobjfrom*/
40109 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
40110/*end of pyobjfrom*/
40111 CFUNCSMESS("Building return value.\n");
40112 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
40113/*closepyobjfrom*/
40114/*end of closepyobjfrom*/
40115 } /*if (f2py_success) after callfortranroutine*/
40116/*cleanupfrompyobj*/
40117 /* End of cleaning variable ldb */
40118 /* End of cleaning variable lda */
40119 /* End of cleaning variable info */
40120 /* End of cleaning variable work */
40121 /* End of cleaning variable lwork */
40122 /* End of cleaning variable b */
40123 /* End of cleaning variable ipiv */
40124 /* End of cleaning variable a */
40125 /* End of cleaning variable nrhs */
40126 } /*CHECKSCALAR(lower==0||lower==1)*/
40127 } /*if (f2py_success) of lower*/
40128 /* End of cleaning variable lower */
40129 } /*if (f2py_success) of n*/
40130 /* End of cleaning variable n */
40131/*end of cleanupfrompyobj*/
40132 if (capi_buildvalue == NULL((void*)0)) {
40133/*routdebugfailure*/
40134 } else {
40135/*routdebugleave*/
40136 }
40137 CFUNCSMESS("Freeing memory.\n");
40138/*freemem*/
40139#ifdef F2PY_REPORT_ATEXIT
40140f2py_stop_clock();
40141#endif
40142 return capi_buildvalue;
40143}
40144/***************************** end of zsysv_lwork *****************************/
40145
40146/*********************************** ssysvx ***********************************/
40147static char doc_f2py_rout__flapack_ssysvx[] = "\
40148a_s,udut,ipiv,b_s,x,rcond,ferr,berr,info = ssysvx(a,b,[af,ipiv,lwork,factored,lower,overwrite_a,overwrite_b])\n\nWrapper for ``ssysvx``.\
40149\n\nParameters\n----------\n"
40150"a : input rank-2 array('f') with bounds (n,n)\n"
40151"b : input rank-2 array('f') with bounds (n,nrhs)\n"
40152"\nOther Parameters\n----------------\n"
40153"overwrite_a : input int, optional\n Default: 0\n"
40154"af : input rank-2 array('f') with bounds (n,n)\n"
40155"ipiv : input rank-1 array('i') with bounds (n)\n"
40156"overwrite_b : input int, optional\n Default: 0\n"
40157"lwork : input int, optional\n Default: max(3*n,1)\n"
40158"factored : input int, optional\n Default: 0\n"
40159"lower : input int, optional\n Default: 0\n"
40160"\nReturns\n-------\n"
40161"a_s : rank-2 array('f') with bounds (n,n) and a storage\n"
40162"udut : rank-2 array('f') with bounds (n,n) and af storage\n"
40163"ipiv : rank-1 array('i') with bounds (n)\n"
40164"b_s : rank-2 array('f') with bounds (n,nrhs) and b storage\n"
40165"x : rank-2 array('f') with bounds (n,nrhs)\n"
40166"rcond : float\n"
40167"ferr : rank-1 array('f') with bounds (nrhs)\n"
40168"berr : rank-1 array('f') with bounds (nrhs)\n"
40169"info : int";
40170/* extern void F_FUNC(ssysvx,SSYSVX)(char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT*,F_INT* ); */
40171static PyObject *f2py_rout__flapack_ssysvx(const PyObject *capi_self,
40172 PyObject *capi_args,
40173 PyObject *capi_keywds,
40174 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint* )) {
40175 PyObject * volatile capi_buildvalue = NULL((void*)0);
40176 volatile int f2py_success = 1;
40177/*decl*/
40178
40179 int n = 0;
40180 int nrhs = 0;
40181 float *a = NULL((void*)0);
40182 npy_intp a_Dims[2] = {-1, -1};
40183 const int a_Rank = 2;
40184 PyArrayObject *capi_a_tmp = NULL((void*)0);
40185 int capi_a_intent = 0;
40186 int capi_overwrite_a = 0;
40187 PyObject *a_capi = Py_None(&_Py_NoneStruct);
40188 int lda = 0;
40189 float *af = NULL((void*)0);
40190 npy_intp af_Dims[2] = {-1, -1};
40191 const int af_Rank = 2;
40192 PyArrayObject *capi_af_tmp = NULL((void*)0);
40193 int capi_af_intent = 0;
40194 PyObject *af_capi = Py_None(&_Py_NoneStruct);
40195 int ldaf = 0;
40196 int *ipiv = NULL((void*)0);
40197 npy_intp ipiv_Dims[1] = {-1};
40198 const int ipiv_Rank = 1;
40199 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
40200 int capi_ipiv_intent = 0;
40201 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
40202 float *b = NULL((void*)0);
40203 npy_intp b_Dims[2] = {-1, -1};
40204 const int b_Rank = 2;
40205 PyArrayObject *capi_b_tmp = NULL((void*)0);
40206 int capi_b_intent = 0;
40207 int capi_overwrite_b = 0;
40208 PyObject *b_capi = Py_None(&_Py_NoneStruct);
40209 int ldb = 0;
40210 float *x = NULL((void*)0);
40211 npy_intp x_Dims[2] = {-1, -1};
40212 const int x_Rank = 2;
40213 PyArrayObject *capi_x_tmp = NULL((void*)0);
40214 int capi_x_intent = 0;
40215 int ldx = 0;
40216 float rcond = 0;
40217 float *ferr = NULL((void*)0);
40218 npy_intp ferr_Dims[1] = {-1};
40219 const int ferr_Rank = 1;
40220 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
40221 int capi_ferr_intent = 0;
40222 float *berr = NULL((void*)0);
40223 npy_intp berr_Dims[1] = {-1};
40224 const int berr_Rank = 1;
40225 PyArrayObject *capi_berr_tmp = NULL((void*)0);
40226 int capi_berr_intent = 0;
40227 float *work = NULL((void*)0);
40228 npy_intp work_Dims[1] = {-1};
40229 const int work_Rank = 1;
40230 PyArrayObject *capi_work_tmp = NULL((void*)0);
40231 int capi_work_intent = 0;
40232 int lwork = 0;
40233 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
40234 int *irwork = NULL((void*)0);
40235 npy_intp irwork_Dims[1] = {-1};
40236 const int irwork_Rank = 1;
40237 PyArrayObject *capi_irwork_tmp = NULL((void*)0);
40238 int capi_irwork_intent = 0;
40239 int info = 0;
40240 int factored = 0;
40241 PyObject *factored_capi = Py_None(&_Py_NoneStruct);
40242 int lower = 0;
40243 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
40244 static char *capi_kwlist[] = {"a","b","af","ipiv","lwork","factored","lower","overwrite_a","overwrite_b",NULL((void*)0)};
40245
40246/*routdebugenter*/
40247#ifdef F2PY_REPORT_ATEXIT
40248f2py_start_clock();
40249#endif
40250 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
40251 "OO|OOOOOii:_flapack.ssysvx",\
40252 capi_kwlist,&a_capi,&b_capi,&af_capi,&ipiv_capi,&lwork_capi,&factored_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b))
40253 return NULL((void*)0);
40254/*frompyobj*/
40255 /* Processing variable factored */
40256 if (factored_capi == Py_None(&_Py_NoneStruct)) factored = 0; else
40257 f2py_success = int_from_pyobj(&factored,factored_capi,"_flapack.ssysvx() 4th keyword (factored) can't be converted to int");
40258 if (f2py_success) {
40259 CHECKSCALAR(factored==0||factored==1,"factored==0||factored==1","4th keyword factored","ssysvx:factored=%d",factored)if (!(factored==0||factored==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssysvx:factored=%d", "(""factored==0||factored==1"") failed for "
"4th keyword factored", factored); PyErr_SetString(_flapack_error
,errstring); } else
{
40260 /* Processing variable lower */
40261 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
40262 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssysvx() 5th keyword (lower) can't be converted to int");
40263 if (f2py_success) {
40264 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","5th keyword lower","ssysvx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssysvx:lower=%d", "(""lower==0||lower==1"") failed for "
"5th keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
40265 /* Processing variable a */
40266 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
40267 ;
40268 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
40269 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
40270 if (capi_a_tmp == NULL((void*)0)) {
40271 if (!PyErr_Occurred())
40272 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssysvx to C/Fortran array" );
40273 } else {
40274 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
40275
40276 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
40277 /* Processing variable rcond */
40278 /* Processing variable info */
40279 /* Processing variable n */
40280 n = shape(a,0)a_Dims[0];
40281 /* Processing variable lda */
40282 lda = shape(a,0)a_Dims[0];
40283 /* Processing variable af */
40284 af_Dims[0]=n,af_Dims[1]=n;
40285 capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
40286 capi_af_tmp = array_from_pyobj(NPY_FLOAT,af_Dims,af_Rank,capi_af_intent,af_capi);
40287 if (capi_af_tmp == NULL((void*)0)) {
40288 if (!PyErr_Occurred())
40289 PyErr_SetString(_flapack_error,"failed in converting 1st keyword `af' of _flapack.ssysvx to C/Fortran array" );
40290 } else {
40291 af = (float *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data));
40292
40293 /* Processing variable ldaf */
40294 ldaf = shape(af,0)af_Dims[0];
40295 /* Processing variable ipiv */
40296 ipiv_Dims[0]=n;
40297 capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
40298 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
40299 if (capi_ipiv_tmp == NULL((void*)0)) {
40300 if (!PyErr_Occurred())
40301 PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `ipiv' of _flapack.ssysvx to C/Fortran array" );
40302 } else {
40303 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
40304
40305 /* Processing variable b */
40306 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
40307 b_Dims[0]=n;
40308 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
40309 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
40310 if (capi_b_tmp == NULL((void*)0)) {
40311 if (!PyErr_Occurred())
40312 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ssysvx to C/Fortran array" );
40313 } else {
40314 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
40315
40316 /* Processing variable ldb */
40317 ldb = shape(b,0)b_Dims[0];
40318 /* Processing variable ldx */
40319 ldx = n;
40320 /* Processing variable lwork */
40321 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else
40322 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssysvx() 3rd keyword (lwork) can't be converted to int");
40323 if (f2py_success) {
40324 CHECKSCALAR(lwork>=3*n||lwork==-1,"lwork>=3*n||lwork==-1","3rd keyword lwork","ssysvx:lwork=%d",lwork)if (!(lwork>=3*n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssysvx:lwork=%d", "(""lwork>=3*n||lwork==-1"") failed for "
"3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
40325 /* Processing variable work */
40326 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
40327 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
40328 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
40329 if (capi_work_tmp == NULL((void*)0)) {
40330 if (!PyErr_Occurred())
40331 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssysvx to C/Fortran array" );
40332 } else {
40333 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
40334
40335 /* Processing variable irwork */
40336 irwork_Dims[0]=n;
40337 capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
40338 capi_irwork_tmp = array_from_pyobj(NPY_INT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct));
40339 if (capi_irwork_tmp == NULL((void*)0)) {
40340 if (!PyErr_Occurred())
40341 PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.ssysvx to C/Fortran array" );
40342 } else {
40343 irwork = (int *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data
)
);
40344
40345 /* Processing variable nrhs */
40346 nrhs = shape(b,1)b_Dims[1];
40347 /* Processing variable x */
40348 x_Dims[0]=n,x_Dims[1]=nrhs;
40349 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
40350 capi_x_tmp = array_from_pyobj(NPY_FLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
40351 if (capi_x_tmp == NULL((void*)0)) {
40352 if (!PyErr_Occurred())
40353 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.ssysvx to C/Fortran array" );
40354 } else {
40355 x = (float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
40356
40357 /* Processing variable ferr */
40358 ferr_Dims[0]=nrhs;
40359 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
40360 capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
40361 if (capi_ferr_tmp == NULL((void*)0)) {
40362 if (!PyErr_Occurred())
40363 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.ssysvx to C/Fortran array" );
40364 } else {
40365 ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
40366
40367 /* Processing variable berr */
40368 berr_Dims[0]=nrhs;
40369 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
40370 capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
40371 if (capi_berr_tmp == NULL((void*)0)) {
40372 if (!PyErr_Occurred())
40373 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.ssysvx to C/Fortran array" );
40374 } else {
40375 berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
40376
40377/*end of frompyobj*/
40378#ifdef F2PY_REPORT_ATEXIT
40379f2py_start_call_clock();
40380#endif
40381/*callfortranroutine*/
40382 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
40383 (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,irwork,&info) ;
40384 /*(*f2py_func)(&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,irwork,&info,&factored,&lower);*/
40385 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
40386if (PyErr_Occurred())
40387 f2py_success = 0;
40388#ifdef F2PY_REPORT_ATEXIT
40389f2py_stop_call_clock();
40390#endif
40391/*end of callfortranroutine*/
40392 if (f2py_success) {
40393/*pyobjfrom*/
40394/*end of pyobjfrom*/
40395 CFUNCSMESS("Building return value.\n");
40396 capi_buildvalue = Py_BuildValue("NNNNNfNNi",capi_a_tmp,capi_af_tmp,capi_ipiv_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
40397/*closepyobjfrom*/
40398/*end of closepyobjfrom*/
40399 } /*if (f2py_success) after callfortranroutine*/
40400/*cleanupfrompyobj*/
40401 } /*if (capi_berr_tmp == NULL) ... else of berr*/
40402 /* End of cleaning variable berr */
40403 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
40404 /* End of cleaning variable ferr */
40405 } /*if (capi_x_tmp == NULL) ... else of x*/
40406 /* End of cleaning variable x */
40407 /* End of cleaning variable nrhs */
40408 Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp)));
40409 } /*if (capi_irwork_tmp == NULL) ... else of irwork*/
40410 /* End of cleaning variable irwork */
40411 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
40412 } /*if (capi_work_tmp == NULL) ... else of work*/
40413 /* End of cleaning variable work */
40414 } /*CHECKSCALAR(lwork>=3*n||lwork==-1)*/
40415 } /*if (f2py_success) of lwork*/
40416 /* End of cleaning variable lwork */
40417 /* End of cleaning variable ldx */
40418 /* End of cleaning variable ldb */
40419 } /*if (capi_b_tmp == NULL) ... else of b*/
40420 /* End of cleaning variable b */
40421 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
40422 /* End of cleaning variable ipiv */
40423 /* End of cleaning variable ldaf */
40424 } /*if (capi_af_tmp == NULL) ... else of af*/
40425 /* End of cleaning variable af */
40426 /* End of cleaning variable lda */
40427 /* End of cleaning variable n */
40428 /* End of cleaning variable info */
40429 /* End of cleaning variable rcond */
40430 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
40431 } /*if (capi_a_tmp == NULL) ... else of a*/
40432 /* End of cleaning variable a */
40433 } /*CHECKSCALAR(lower==0||lower==1)*/
40434 } /*if (f2py_success) of lower*/
40435 /* End of cleaning variable lower */
40436 } /*CHECKSCALAR(factored==0||factored==1)*/
40437 } /*if (f2py_success) of factored*/
40438 /* End of cleaning variable factored */
40439/*end of cleanupfrompyobj*/
40440 if (capi_buildvalue == NULL((void*)0)) {
40441/*routdebugfailure*/
40442 } else {
40443/*routdebugleave*/
40444 }
40445 CFUNCSMESS("Freeing memory.\n");
40446/*freemem*/
40447#ifdef F2PY_REPORT_ATEXIT
40448f2py_stop_clock();
40449#endif
40450 return capi_buildvalue;
40451}
40452/******************************* end of ssysvx *******************************/
40453
40454/*********************************** dsysvx ***********************************/
40455static char doc_f2py_rout__flapack_dsysvx[] = "\
40456a_s,udut,ipiv,b_s,x,rcond,ferr,berr,info = dsysvx(a,b,[af,ipiv,lwork,factored,lower,overwrite_a,overwrite_b])\n\nWrapper for ``dsysvx``.\
40457\n\nParameters\n----------\n"
40458"a : input rank-2 array('d') with bounds (n,n)\n"
40459"b : input rank-2 array('d') with bounds (n,nrhs)\n"
40460"\nOther Parameters\n----------------\n"
40461"overwrite_a : input int, optional\n Default: 0\n"
40462"af : input rank-2 array('d') with bounds (n,n)\n"
40463"ipiv : input rank-1 array('i') with bounds (n)\n"
40464"overwrite_b : input int, optional\n Default: 0\n"
40465"lwork : input int, optional\n Default: max(3*n,1)\n"
40466"factored : input int, optional\n Default: 0\n"
40467"lower : input int, optional\n Default: 0\n"
40468"\nReturns\n-------\n"
40469"a_s : rank-2 array('d') with bounds (n,n) and a storage\n"
40470"udut : rank-2 array('d') with bounds (n,n) and af storage\n"
40471"ipiv : rank-1 array('i') with bounds (n)\n"
40472"b_s : rank-2 array('d') with bounds (n,nrhs) and b storage\n"
40473"x : rank-2 array('d') with bounds (n,nrhs)\n"
40474"rcond : float\n"
40475"ferr : rank-1 array('d') with bounds (nrhs)\n"
40476"berr : rank-1 array('d') with bounds (nrhs)\n"
40477"info : int";
40478/* extern void F_FUNC(dsysvx,DSYSVX)(char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT*,F_INT* ); */
40479static PyObject *f2py_rout__flapack_dsysvx(const PyObject *capi_self,
40480 PyObject *capi_args,
40481 PyObject *capi_keywds,
40482 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint* )) {
40483 PyObject * volatile capi_buildvalue = NULL((void*)0);
40484 volatile int f2py_success = 1;
40485/*decl*/
40486
40487 int n = 0;
40488 int nrhs = 0;
40489 double *a = NULL((void*)0);
40490 npy_intp a_Dims[2] = {-1, -1};
40491 const int a_Rank = 2;
40492 PyArrayObject *capi_a_tmp = NULL((void*)0);
40493 int capi_a_intent = 0;
40494 int capi_overwrite_a = 0;
40495 PyObject *a_capi = Py_None(&_Py_NoneStruct);
40496 int lda = 0;
40497 double *af = NULL((void*)0);
40498 npy_intp af_Dims[2] = {-1, -1};
40499 const int af_Rank = 2;
40500 PyArrayObject *capi_af_tmp = NULL((void*)0);
40501 int capi_af_intent = 0;
40502 PyObject *af_capi = Py_None(&_Py_NoneStruct);
40503 int ldaf = 0;
40504 int *ipiv = NULL((void*)0);
40505 npy_intp ipiv_Dims[1] = {-1};
40506 const int ipiv_Rank = 1;
40507 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
40508 int capi_ipiv_intent = 0;
40509 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
40510 double *b = NULL((void*)0);
40511 npy_intp b_Dims[2] = {-1, -1};
40512 const int b_Rank = 2;
40513 PyArrayObject *capi_b_tmp = NULL((void*)0);
40514 int capi_b_intent = 0;
40515 int capi_overwrite_b = 0;
40516 PyObject *b_capi = Py_None(&_Py_NoneStruct);
40517 int ldb = 0;
40518 double *x = NULL((void*)0);
40519 npy_intp x_Dims[2] = {-1, -1};
40520 const int x_Rank = 2;
40521 PyArrayObject *capi_x_tmp = NULL((void*)0);
40522 int capi_x_intent = 0;
40523 int ldx = 0;
40524 double rcond = 0;
40525 double *ferr = NULL((void*)0);
40526 npy_intp ferr_Dims[1] = {-1};
40527 const int ferr_Rank = 1;
40528 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
40529 int capi_ferr_intent = 0;
40530 double *berr = NULL((void*)0);
40531 npy_intp berr_Dims[1] = {-1};
40532 const int berr_Rank = 1;
40533 PyArrayObject *capi_berr_tmp = NULL((void*)0);
40534 int capi_berr_intent = 0;
40535 double *work = NULL((void*)0);
40536 npy_intp work_Dims[1] = {-1};
40537 const int work_Rank = 1;
40538 PyArrayObject *capi_work_tmp = NULL((void*)0);
40539 int capi_work_intent = 0;
40540 int lwork = 0;
40541 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
40542 int *irwork = NULL((void*)0);
40543 npy_intp irwork_Dims[1] = {-1};
40544 const int irwork_Rank = 1;
40545 PyArrayObject *capi_irwork_tmp = NULL((void*)0);
40546 int capi_irwork_intent = 0;
40547 int info = 0;
40548 int factored = 0;
40549 PyObject *factored_capi = Py_None(&_Py_NoneStruct);
40550 int lower = 0;
40551 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
40552 static char *capi_kwlist[] = {"a","b","af","ipiv","lwork","factored","lower","overwrite_a","overwrite_b",NULL((void*)0)};
40553
40554/*routdebugenter*/
40555#ifdef F2PY_REPORT_ATEXIT
40556f2py_start_clock();
40557#endif
40558 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
40559 "OO|OOOOOii:_flapack.dsysvx",\
40560 capi_kwlist,&a_capi,&b_capi,&af_capi,&ipiv_capi,&lwork_capi,&factored_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b))
40561 return NULL((void*)0);
40562/*frompyobj*/
40563 /* Processing variable factored */
40564 if (factored_capi == Py_None(&_Py_NoneStruct)) factored = 0; else
40565 f2py_success = int_from_pyobj(&factored,factored_capi,"_flapack.dsysvx() 4th keyword (factored) can't be converted to int");
40566 if (f2py_success) {
40567 CHECKSCALAR(factored==0||factored==1,"factored==0||factored==1","4th keyword factored","dsysvx:factored=%d",factored)if (!(factored==0||factored==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsysvx:factored=%d", "(""factored==0||factored==1"") failed for "
"4th keyword factored", factored); PyErr_SetString(_flapack_error
,errstring); } else
{
40568 /* Processing variable lower */
40569 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
40570 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsysvx() 5th keyword (lower) can't be converted to int");
40571 if (f2py_success) {
40572 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","5th keyword lower","dsysvx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsysvx:lower=%d", "(""lower==0||lower==1"") failed for "
"5th keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
40573 /* Processing variable a */
40574 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
40575 ;
40576 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
40577 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
40578 if (capi_a_tmp == NULL((void*)0)) {
40579 if (!PyErr_Occurred())
40580 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsysvx to C/Fortran array" );
40581 } else {
40582 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
40583
40584 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
40585 /* Processing variable rcond */
40586 /* Processing variable info */
40587 /* Processing variable n */
40588 n = shape(a,0)a_Dims[0];
40589 /* Processing variable lda */
40590 lda = shape(a,0)a_Dims[0];
40591 /* Processing variable af */
40592 af_Dims[0]=n,af_Dims[1]=n;
40593 capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
40594 capi_af_tmp = array_from_pyobj(NPY_DOUBLE,af_Dims,af_Rank,capi_af_intent,af_capi);
40595 if (capi_af_tmp == NULL((void*)0)) {
40596 if (!PyErr_Occurred())
40597 PyErr_SetString(_flapack_error,"failed in converting 1st keyword `af' of _flapack.dsysvx to C/Fortran array" );
40598 } else {
40599 af = (double *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data));
40600
40601 /* Processing variable ldaf */
40602 ldaf = shape(af,0)af_Dims[0];
40603 /* Processing variable ipiv */
40604 ipiv_Dims[0]=n;
40605 capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
40606 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
40607 if (capi_ipiv_tmp == NULL((void*)0)) {
40608 if (!PyErr_Occurred())
40609 PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `ipiv' of _flapack.dsysvx to C/Fortran array" );
40610 } else {
40611 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
40612
40613 /* Processing variable b */
40614 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
40615 b_Dims[0]=n;
40616 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
40617 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
40618 if (capi_b_tmp == NULL((void*)0)) {
40619 if (!PyErr_Occurred())
40620 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dsysvx to C/Fortran array" );
40621 } else {
40622 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
40623
40624 /* Processing variable ldb */
40625 ldb = shape(b,0)b_Dims[0];
40626 /* Processing variable ldx */
40627 ldx = n;
40628 /* Processing variable lwork */
40629 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else
40630 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsysvx() 3rd keyword (lwork) can't be converted to int");
40631 if (f2py_success) {
40632 CHECKSCALAR(lwork>=3*n||lwork==-1,"lwork>=3*n||lwork==-1","3rd keyword lwork","dsysvx:lwork=%d",lwork)if (!(lwork>=3*n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsysvx:lwork=%d", "(""lwork>=3*n||lwork==-1"") failed for "
"3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
40633 /* Processing variable work */
40634 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
40635 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
40636 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
40637 if (capi_work_tmp == NULL((void*)0)) {
40638 if (!PyErr_Occurred())
40639 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsysvx to C/Fortran array" );
40640 } else {
40641 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
40642
40643 /* Processing variable irwork */
40644 irwork_Dims[0]=n;
40645 capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
40646 capi_irwork_tmp = array_from_pyobj(NPY_INT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct));
40647 if (capi_irwork_tmp == NULL((void*)0)) {
40648 if (!PyErr_Occurred())
40649 PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.dsysvx to C/Fortran array" );
40650 } else {
40651 irwork = (int *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data
)
);
40652
40653 /* Processing variable nrhs */
40654 nrhs = shape(b,1)b_Dims[1];
40655 /* Processing variable x */
40656 x_Dims[0]=n,x_Dims[1]=nrhs;
40657 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
40658 capi_x_tmp = array_from_pyobj(NPY_DOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
40659 if (capi_x_tmp == NULL((void*)0)) {
40660 if (!PyErr_Occurred())
40661 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.dsysvx to C/Fortran array" );
40662 } else {
40663 x = (double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
40664
40665 /* Processing variable ferr */
40666 ferr_Dims[0]=nrhs;
40667 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
40668 capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
40669 if (capi_ferr_tmp == NULL((void*)0)) {
40670 if (!PyErr_Occurred())
40671 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.dsysvx to C/Fortran array" );
40672 } else {
40673 ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
40674
40675 /* Processing variable berr */
40676 berr_Dims[0]=nrhs;
40677 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
40678 capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
40679 if (capi_berr_tmp == NULL((void*)0)) {
40680 if (!PyErr_Occurred())
40681 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.dsysvx to C/Fortran array" );
40682 } else {
40683 berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
40684
40685/*end of frompyobj*/
40686#ifdef F2PY_REPORT_ATEXIT
40687f2py_start_call_clock();
40688#endif
40689/*callfortranroutine*/
40690 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
40691 (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,irwork,&info) ;
40692 /*(*f2py_func)(&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,irwork,&info,&factored,&lower);*/
40693 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
40694if (PyErr_Occurred())
40695 f2py_success = 0;
40696#ifdef F2PY_REPORT_ATEXIT
40697f2py_stop_call_clock();
40698#endif
40699/*end of callfortranroutine*/
40700 if (f2py_success) {
40701/*pyobjfrom*/
40702/*end of pyobjfrom*/
40703 CFUNCSMESS("Building return value.\n");
40704 capi_buildvalue = Py_BuildValue("NNNNNdNNi",capi_a_tmp,capi_af_tmp,capi_ipiv_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
40705/*closepyobjfrom*/
40706/*end of closepyobjfrom*/
40707 } /*if (f2py_success) after callfortranroutine*/
40708/*cleanupfrompyobj*/
40709 } /*if (capi_berr_tmp == NULL) ... else of berr*/
40710 /* End of cleaning variable berr */
40711 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
40712 /* End of cleaning variable ferr */
40713 } /*if (capi_x_tmp == NULL) ... else of x*/
40714 /* End of cleaning variable x */
40715 /* End of cleaning variable nrhs */
40716 Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp)));
40717 } /*if (capi_irwork_tmp == NULL) ... else of irwork*/
40718 /* End of cleaning variable irwork */
40719 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
40720 } /*if (capi_work_tmp == NULL) ... else of work*/
40721 /* End of cleaning variable work */
40722 } /*CHECKSCALAR(lwork>=3*n||lwork==-1)*/
40723 } /*if (f2py_success) of lwork*/
40724 /* End of cleaning variable lwork */
40725 /* End of cleaning variable ldx */
40726 /* End of cleaning variable ldb */
40727 } /*if (capi_b_tmp == NULL) ... else of b*/
40728 /* End of cleaning variable b */
40729 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
40730 /* End of cleaning variable ipiv */
40731 /* End of cleaning variable ldaf */
40732 } /*if (capi_af_tmp == NULL) ... else of af*/
40733 /* End of cleaning variable af */
40734 /* End of cleaning variable lda */
40735 /* End of cleaning variable n */
40736 /* End of cleaning variable info */
40737 /* End of cleaning variable rcond */
40738 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
40739 } /*if (capi_a_tmp == NULL) ... else of a*/
40740 /* End of cleaning variable a */
40741 } /*CHECKSCALAR(lower==0||lower==1)*/
40742 } /*if (f2py_success) of lower*/
40743 /* End of cleaning variable lower */
40744 } /*CHECKSCALAR(factored==0||factored==1)*/
40745 } /*if (f2py_success) of factored*/
40746 /* End of cleaning variable factored */
40747/*end of cleanupfrompyobj*/
40748 if (capi_buildvalue == NULL((void*)0)) {
40749/*routdebugfailure*/
40750 } else {
40751/*routdebugleave*/
40752 }
40753 CFUNCSMESS("Freeing memory.\n");
40754/*freemem*/
40755#ifdef F2PY_REPORT_ATEXIT
40756f2py_stop_clock();
40757#endif
40758 return capi_buildvalue;
40759}
40760/******************************* end of dsysvx *******************************/
40761
40762/*********************************** csysvx ***********************************/
40763static char doc_f2py_rout__flapack_csysvx[] = "\
40764a_s,udut,ipiv,b_s,x,rcond,ferr,berr,info = csysvx(a,b,[af,ipiv,lwork,factored,lower,overwrite_a,overwrite_b])\n\nWrapper for ``csysvx``.\
40765\n\nParameters\n----------\n"
40766"a : input rank-2 array('F') with bounds (n,n)\n"
40767"b : input rank-2 array('F') with bounds (n,nrhs)\n"
40768"\nOther Parameters\n----------------\n"
40769"overwrite_a : input int, optional\n Default: 0\n"
40770"af : input rank-2 array('F') with bounds (n,n)\n"
40771"ipiv : input rank-1 array('i') with bounds (n)\n"
40772"overwrite_b : input int, optional\n Default: 0\n"
40773"lwork : input int, optional\n Default: max(3*n,1)\n"
40774"factored : input int, optional\n Default: 0\n"
40775"lower : input int, optional\n Default: 0\n"
40776"\nReturns\n-------\n"
40777"a_s : rank-2 array('F') with bounds (n,n) and a storage\n"
40778"udut : rank-2 array('F') with bounds (n,n) and af storage\n"
40779"ipiv : rank-1 array('i') with bounds (n)\n"
40780"b_s : rank-2 array('F') with bounds (n,nrhs) and b storage\n"
40781"x : rank-2 array('F') with bounds (n,nrhs)\n"
40782"rcond : float\n"
40783"ferr : rank-1 array('f') with bounds (nrhs)\n"
40784"berr : rank-1 array('f') with bounds (nrhs)\n"
40785"info : int";
40786/* extern void F_FUNC(csysvx,CSYSVX)(char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,float*,complex_float*,F_INT*,float*,F_INT* ); */
40787static PyObject *f2py_rout__flapack_csysvx(const PyObject *capi_self,
40788 PyObject *capi_args,
40789 PyObject *capi_keywds,
40790 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,float*,F_INTint* )) {
40791 PyObject * volatile capi_buildvalue = NULL((void*)0);
40792 volatile int f2py_success = 1;
40793/*decl*/
40794
40795 int n = 0;
40796 int nrhs = 0;
40797 complex_float *a = NULL((void*)0);
40798 npy_intp a_Dims[2] = {-1, -1};
40799 const int a_Rank = 2;
40800 PyArrayObject *capi_a_tmp = NULL((void*)0);
40801 int capi_a_intent = 0;
40802 int capi_overwrite_a = 0;
40803 PyObject *a_capi = Py_None(&_Py_NoneStruct);
40804 int lda = 0;
40805 complex_float *af = NULL((void*)0);
40806 npy_intp af_Dims[2] = {-1, -1};
40807 const int af_Rank = 2;
40808 PyArrayObject *capi_af_tmp = NULL((void*)0);
40809 int capi_af_intent = 0;
40810 PyObject *af_capi = Py_None(&_Py_NoneStruct);
40811 int ldaf = 0;
40812 int *ipiv = NULL((void*)0);
40813 npy_intp ipiv_Dims[1] = {-1};
40814 const int ipiv_Rank = 1;
40815 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
40816 int capi_ipiv_intent = 0;
40817 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
40818 complex_float *b = NULL((void*)0);
40819 npy_intp b_Dims[2] = {-1, -1};
40820 const int b_Rank = 2;
40821 PyArrayObject *capi_b_tmp = NULL((void*)0);
40822 int capi_b_intent = 0;
40823 int capi_overwrite_b = 0;
40824 PyObject *b_capi = Py_None(&_Py_NoneStruct);
40825 int ldb = 0;
40826 complex_float *x = NULL((void*)0);
40827 npy_intp x_Dims[2] = {-1, -1};
40828 const int x_Rank = 2;
40829 PyArrayObject *capi_x_tmp = NULL((void*)0);
40830 int capi_x_intent = 0;
40831 int ldx = 0;
40832 float rcond = 0;
40833 float *ferr = NULL((void*)0);
40834 npy_intp ferr_Dims[1] = {-1};
40835 const int ferr_Rank = 1;
40836 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
40837 int capi_ferr_intent = 0;
40838 float *berr = NULL((void*)0);
40839 npy_intp berr_Dims[1] = {-1};
40840 const int berr_Rank = 1;
40841 PyArrayObject *capi_berr_tmp = NULL((void*)0);
40842 int capi_berr_intent = 0;
40843 complex_float *work = NULL((void*)0);
40844 npy_intp work_Dims[1] = {-1};
40845 const int work_Rank = 1;
40846 PyArrayObject *capi_work_tmp = NULL((void*)0);
40847 int capi_work_intent = 0;
40848 int lwork = 0;
40849 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
40850 float *irwork = NULL((void*)0);
40851 npy_intp irwork_Dims[1] = {-1};
40852 const int irwork_Rank = 1;
40853 PyArrayObject *capi_irwork_tmp = NULL((void*)0);
40854 int capi_irwork_intent = 0;
40855 int info = 0;
40856 int factored = 0;
40857 PyObject *factored_capi = Py_None(&_Py_NoneStruct);
40858 int lower = 0;
40859 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
40860 static char *capi_kwlist[] = {"a","b","af","ipiv","lwork","factored","lower","overwrite_a","overwrite_b",NULL((void*)0)};
40861
40862/*routdebugenter*/
40863#ifdef F2PY_REPORT_ATEXIT
40864f2py_start_clock();
40865#endif
40866 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
40867 "OO|OOOOOii:_flapack.csysvx",\
40868 capi_kwlist,&a_capi,&b_capi,&af_capi,&ipiv_capi,&lwork_capi,&factored_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b))
40869 return NULL((void*)0);
40870/*frompyobj*/
40871 /* Processing variable factored */
40872 if (factored_capi == Py_None(&_Py_NoneStruct)) factored = 0; else
40873 f2py_success = int_from_pyobj(&factored,factored_capi,"_flapack.csysvx() 4th keyword (factored) can't be converted to int");
40874 if (f2py_success) {
40875 CHECKSCALAR(factored==0||factored==1,"factored==0||factored==1","4th keyword factored","csysvx:factored=%d",factored)if (!(factored==0||factored==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""csysvx:factored=%d", "(""factored==0||factored==1"") failed for "
"4th keyword factored", factored); PyErr_SetString(_flapack_error
,errstring); } else
{
40876 /* Processing variable lower */
40877 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
40878 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.csysvx() 5th keyword (lower) can't be converted to int");
40879 if (f2py_success) {
40880 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","5th keyword lower","csysvx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""csysvx:lower=%d", "(""lower==0||lower==1"") failed for "
"5th keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
40881 /* Processing variable a */
40882 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
40883 ;
40884 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
40885 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
40886 if (capi_a_tmp == NULL((void*)0)) {
40887 if (!PyErr_Occurred())
40888 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.csysvx to C/Fortran array" );
40889 } else {
40890 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
40891
40892 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
40893 /* Processing variable rcond */
40894 /* Processing variable info */
40895 /* Processing variable n */
40896 n = shape(a,0)a_Dims[0];
40897 /* Processing variable lda */
40898 lda = shape(a,0)a_Dims[0];
40899 /* Processing variable af */
40900 af_Dims[0]=n,af_Dims[1]=n;
40901 capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
40902 capi_af_tmp = array_from_pyobj(NPY_CFLOAT,af_Dims,af_Rank,capi_af_intent,af_capi);
40903 if (capi_af_tmp == NULL((void*)0)) {
40904 if (!PyErr_Occurred())
40905 PyErr_SetString(_flapack_error,"failed in converting 1st keyword `af' of _flapack.csysvx to C/Fortran array" );
40906 } else {
40907 af = (complex_float *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data));
40908
40909 /* Processing variable ldaf */
40910 ldaf = shape(af,0)af_Dims[0];
40911 /* Processing variable ipiv */
40912 ipiv_Dims[0]=n;
40913 capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
40914 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
40915 if (capi_ipiv_tmp == NULL((void*)0)) {
40916 if (!PyErr_Occurred())
40917 PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `ipiv' of _flapack.csysvx to C/Fortran array" );
40918 } else {
40919 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
40920
40921 /* Processing variable b */
40922 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
40923 b_Dims[0]=n;
40924 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
40925 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
40926 if (capi_b_tmp == NULL((void*)0)) {
40927 if (!PyErr_Occurred())
40928 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.csysvx to C/Fortran array" );
40929 } else {
40930 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
40931
40932 /* Processing variable ldb */
40933 ldb = shape(b,0)b_Dims[0];
40934 /* Processing variable ldx */
40935 ldx = n;
40936 /* Processing variable lwork */
40937 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else
40938 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.csysvx() 3rd keyword (lwork) can't be converted to int");
40939 if (f2py_success) {
40940 CHECKSCALAR(lwork>=2*n||lwork==-1,"lwork>=2*n||lwork==-1","3rd keyword lwork","csysvx:lwork=%d",lwork)if (!(lwork>=2*n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""csysvx:lwork=%d", "(""lwork>=2*n||lwork==-1"") failed for "
"3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
40941 /* Processing variable work */
40942 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
40943 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
40944 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
40945 if (capi_work_tmp == NULL((void*)0)) {
40946 if (!PyErr_Occurred())
40947 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.csysvx to C/Fortran array" );
40948 } else {
40949 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
40950
40951 /* Processing variable irwork */
40952 irwork_Dims[0]=n;
40953 capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
40954 capi_irwork_tmp = array_from_pyobj(NPY_FLOAT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct));
40955 if (capi_irwork_tmp == NULL((void*)0)) {
40956 if (!PyErr_Occurred())
40957 PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.csysvx to C/Fortran array" );
40958 } else {
40959 irwork = (float *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data
)
);
40960
40961 /* Processing variable nrhs */
40962 nrhs = shape(b,1)b_Dims[1];
40963 /* Processing variable x */
40964 x_Dims[0]=n,x_Dims[1]=nrhs;
40965 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
40966 capi_x_tmp = array_from_pyobj(NPY_CFLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
40967 if (capi_x_tmp == NULL((void*)0)) {
40968 if (!PyErr_Occurred())
40969 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.csysvx to C/Fortran array" );
40970 } else {
40971 x = (complex_float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
40972
40973 /* Processing variable ferr */
40974 ferr_Dims[0]=nrhs;
40975 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
40976 capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
40977 if (capi_ferr_tmp == NULL((void*)0)) {
40978 if (!PyErr_Occurred())
40979 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.csysvx to C/Fortran array" );
40980 } else {
40981 ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
40982
40983 /* Processing variable berr */
40984 berr_Dims[0]=nrhs;
40985 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
40986 capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
40987 if (capi_berr_tmp == NULL((void*)0)) {
40988 if (!PyErr_Occurred())
40989 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.csysvx to C/Fortran array" );
40990 } else {
40991 berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
40992
40993/*end of frompyobj*/
40994#ifdef F2PY_REPORT_ATEXIT
40995f2py_start_call_clock();
40996#endif
40997/*callfortranroutine*/
40998 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
40999 (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,irwork,&info) ;
41000 /*(*f2py_func)(&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,irwork,&info,&factored,&lower);*/
41001 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
41002if (PyErr_Occurred())
41003 f2py_success = 0;
41004#ifdef F2PY_REPORT_ATEXIT
41005f2py_stop_call_clock();
41006#endif
41007/*end of callfortranroutine*/
41008 if (f2py_success) {
41009/*pyobjfrom*/
41010/*end of pyobjfrom*/
41011 CFUNCSMESS("Building return value.\n");
41012 capi_buildvalue = Py_BuildValue("NNNNNfNNi",capi_a_tmp,capi_af_tmp,capi_ipiv_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
41013/*closepyobjfrom*/
41014/*end of closepyobjfrom*/
41015 } /*if (f2py_success) after callfortranroutine*/
41016/*cleanupfrompyobj*/
41017 } /*if (capi_berr_tmp == NULL) ... else of berr*/
41018 /* End of cleaning variable berr */
41019 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
41020 /* End of cleaning variable ferr */
41021 } /*if (capi_x_tmp == NULL) ... else of x*/
41022 /* End of cleaning variable x */
41023 /* End of cleaning variable nrhs */
41024 Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp)));
41025 } /*if (capi_irwork_tmp == NULL) ... else of irwork*/
41026 /* End of cleaning variable irwork */
41027 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
41028 } /*if (capi_work_tmp == NULL) ... else of work*/
41029 /* End of cleaning variable work */
41030 } /*CHECKSCALAR(lwork>=2*n||lwork==-1)*/
41031 } /*if (f2py_success) of lwork*/
41032 /* End of cleaning variable lwork */
41033 /* End of cleaning variable ldx */
41034 /* End of cleaning variable ldb */
41035 } /*if (capi_b_tmp == NULL) ... else of b*/
41036 /* End of cleaning variable b */
41037 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
41038 /* End of cleaning variable ipiv */
41039 /* End of cleaning variable ldaf */
41040 } /*if (capi_af_tmp == NULL) ... else of af*/
41041 /* End of cleaning variable af */
41042 /* End of cleaning variable lda */
41043 /* End of cleaning variable n */
41044 /* End of cleaning variable info */
41045 /* End of cleaning variable rcond */
41046 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
41047 } /*if (capi_a_tmp == NULL) ... else of a*/
41048 /* End of cleaning variable a */
41049 } /*CHECKSCALAR(lower==0||lower==1)*/
41050 } /*if (f2py_success) of lower*/
41051 /* End of cleaning variable lower */
41052 } /*CHECKSCALAR(factored==0||factored==1)*/
41053 } /*if (f2py_success) of factored*/
41054 /* End of cleaning variable factored */
41055/*end of cleanupfrompyobj*/
41056 if (capi_buildvalue == NULL((void*)0)) {
41057/*routdebugfailure*/
41058 } else {
41059/*routdebugleave*/
41060 }
41061 CFUNCSMESS("Freeing memory.\n");
41062/*freemem*/
41063#ifdef F2PY_REPORT_ATEXIT
41064f2py_stop_clock();
41065#endif
41066 return capi_buildvalue;
41067}
41068/******************************* end of csysvx *******************************/
41069
41070/*********************************** zsysvx ***********************************/
41071static char doc_f2py_rout__flapack_zsysvx[] = "\
41072a_s,udut,ipiv,b_s,x,rcond,ferr,berr,info = zsysvx(a,b,[af,ipiv,lwork,factored,lower,overwrite_a,overwrite_b])\n\nWrapper for ``zsysvx``.\
41073\n\nParameters\n----------\n"
41074"a : input rank-2 array('D') with bounds (n,n)\n"
41075"b : input rank-2 array('D') with bounds (n,nrhs)\n"
41076"\nOther Parameters\n----------------\n"
41077"overwrite_a : input int, optional\n Default: 0\n"
41078"af : input rank-2 array('D') with bounds (n,n)\n"
41079"ipiv : input rank-1 array('i') with bounds (n)\n"
41080"overwrite_b : input int, optional\n Default: 0\n"
41081"lwork : input int, optional\n Default: max(3*n,1)\n"
41082"factored : input int, optional\n Default: 0\n"
41083"lower : input int, optional\n Default: 0\n"
41084"\nReturns\n-------\n"
41085"a_s : rank-2 array('D') with bounds (n,n) and a storage\n"
41086"udut : rank-2 array('D') with bounds (n,n) and af storage\n"
41087"ipiv : rank-1 array('i') with bounds (n)\n"
41088"b_s : rank-2 array('D') with bounds (n,nrhs) and b storage\n"
41089"x : rank-2 array('D') with bounds (n,nrhs)\n"
41090"rcond : float\n"
41091"ferr : rank-1 array('d') with bounds (nrhs)\n"
41092"berr : rank-1 array('d') with bounds (nrhs)\n"
41093"info : int";
41094/* extern void F_FUNC(zsysvx,ZSYSVX)(char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,double*,complex_double*,F_INT*,double*,F_INT* ); */
41095static PyObject *f2py_rout__flapack_zsysvx(const PyObject *capi_self,
41096 PyObject *capi_args,
41097 PyObject *capi_keywds,
41098 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,double*,F_INTint* )) {
41099 PyObject * volatile capi_buildvalue = NULL((void*)0);
41100 volatile int f2py_success = 1;
41101/*decl*/
41102
41103 int n = 0;
41104 int nrhs = 0;
41105 complex_double *a = NULL((void*)0);
41106 npy_intp a_Dims[2] = {-1, -1};
41107 const int a_Rank = 2;
41108 PyArrayObject *capi_a_tmp = NULL((void*)0);
41109 int capi_a_intent = 0;
41110 int capi_overwrite_a = 0;
41111 PyObject *a_capi = Py_None(&_Py_NoneStruct);
41112 int lda = 0;
41113 complex_double *af = NULL((void*)0);
41114 npy_intp af_Dims[2] = {-1, -1};
41115 const int af_Rank = 2;
41116 PyArrayObject *capi_af_tmp = NULL((void*)0);
41117 int capi_af_intent = 0;
41118 PyObject *af_capi = Py_None(&_Py_NoneStruct);
41119 int ldaf = 0;
41120 int *ipiv = NULL((void*)0);
41121 npy_intp ipiv_Dims[1] = {-1};
41122 const int ipiv_Rank = 1;
41123 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
41124 int capi_ipiv_intent = 0;
41125 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
41126 complex_double *b = NULL((void*)0);
41127 npy_intp b_Dims[2] = {-1, -1};
41128 const int b_Rank = 2;
41129 PyArrayObject *capi_b_tmp = NULL((void*)0);
41130 int capi_b_intent = 0;
41131 int capi_overwrite_b = 0;
41132 PyObject *b_capi = Py_None(&_Py_NoneStruct);
41133 int ldb = 0;
41134 complex_double *x = NULL((void*)0);
41135 npy_intp x_Dims[2] = {-1, -1};
41136 const int x_Rank = 2;
41137 PyArrayObject *capi_x_tmp = NULL((void*)0);
41138 int capi_x_intent = 0;
41139 int ldx = 0;
41140 double rcond = 0;
41141 double *ferr = NULL((void*)0);
41142 npy_intp ferr_Dims[1] = {-1};
41143 const int ferr_Rank = 1;
41144 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
41145 int capi_ferr_intent = 0;
41146 double *berr = NULL((void*)0);
41147 npy_intp berr_Dims[1] = {-1};
41148 const int berr_Rank = 1;
41149 PyArrayObject *capi_berr_tmp = NULL((void*)0);
41150 int capi_berr_intent = 0;
41151 complex_double *work = NULL((void*)0);
41152 npy_intp work_Dims[1] = {-1};
41153 const int work_Rank = 1;
41154 PyArrayObject *capi_work_tmp = NULL((void*)0);
41155 int capi_work_intent = 0;
41156 int lwork = 0;
41157 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
41158 double *irwork = NULL((void*)0);
41159 npy_intp irwork_Dims[1] = {-1};
41160 const int irwork_Rank = 1;
41161 PyArrayObject *capi_irwork_tmp = NULL((void*)0);
41162 int capi_irwork_intent = 0;
41163 int info = 0;
41164 int factored = 0;
41165 PyObject *factored_capi = Py_None(&_Py_NoneStruct);
41166 int lower = 0;
41167 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
41168 static char *capi_kwlist[] = {"a","b","af","ipiv","lwork","factored","lower","overwrite_a","overwrite_b",NULL((void*)0)};
41169
41170/*routdebugenter*/
41171#ifdef F2PY_REPORT_ATEXIT
41172f2py_start_clock();
41173#endif
41174 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
41175 "OO|OOOOOii:_flapack.zsysvx",\
41176 capi_kwlist,&a_capi,&b_capi,&af_capi,&ipiv_capi,&lwork_capi,&factored_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b))
41177 return NULL((void*)0);
41178/*frompyobj*/
41179 /* Processing variable factored */
41180 if (factored_capi == Py_None(&_Py_NoneStruct)) factored = 0; else
41181 f2py_success = int_from_pyobj(&factored,factored_capi,"_flapack.zsysvx() 4th keyword (factored) can't be converted to int");
41182 if (f2py_success) {
41183 CHECKSCALAR(factored==0||factored==1,"factored==0||factored==1","4th keyword factored","zsysvx:factored=%d",factored)if (!(factored==0||factored==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zsysvx:factored=%d", "(""factored==0||factored==1"") failed for "
"4th keyword factored", factored); PyErr_SetString(_flapack_error
,errstring); } else
{
41184 /* Processing variable lower */
41185 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
41186 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zsysvx() 5th keyword (lower) can't be converted to int");
41187 if (f2py_success) {
41188 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","5th keyword lower","zsysvx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zsysvx:lower=%d", "(""lower==0||lower==1"") failed for "
"5th keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
41189 /* Processing variable a */
41190 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
41191 ;
41192 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
41193 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
41194 if (capi_a_tmp == NULL((void*)0)) {
41195 if (!PyErr_Occurred())
41196 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zsysvx to C/Fortran array" );
41197 } else {
41198 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
41199
41200 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
41201 /* Processing variable rcond */
41202 /* Processing variable info */
41203 /* Processing variable n */
41204 n = shape(a,0)a_Dims[0];
41205 /* Processing variable lda */
41206 lda = shape(a,0)a_Dims[0];
41207 /* Processing variable af */
41208 af_Dims[0]=n,af_Dims[1]=n;
41209 capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
41210 capi_af_tmp = array_from_pyobj(NPY_CDOUBLE,af_Dims,af_Rank,capi_af_intent,af_capi);
41211 if (capi_af_tmp == NULL((void*)0)) {
41212 if (!PyErr_Occurred())
41213 PyErr_SetString(_flapack_error,"failed in converting 1st keyword `af' of _flapack.zsysvx to C/Fortran array" );
41214 } else {
41215 af = (complex_double *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data));
41216
41217 /* Processing variable ldaf */
41218 ldaf = shape(af,0)af_Dims[0];
41219 /* Processing variable ipiv */
41220 ipiv_Dims[0]=n;
41221 capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
41222 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
41223 if (capi_ipiv_tmp == NULL((void*)0)) {
41224 if (!PyErr_Occurred())
41225 PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `ipiv' of _flapack.zsysvx to C/Fortran array" );
41226 } else {
41227 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
41228
41229 /* Processing variable b */
41230 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
41231 b_Dims[0]=n;
41232 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
41233 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
41234 if (capi_b_tmp == NULL((void*)0)) {
41235 if (!PyErr_Occurred())
41236 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zsysvx to C/Fortran array" );
41237 } else {
41238 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
41239
41240 /* Processing variable ldb */
41241 ldb = shape(b,0)b_Dims[0];
41242 /* Processing variable ldx */
41243 ldx = n;
41244 /* Processing variable lwork */
41245 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else
41246 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zsysvx() 3rd keyword (lwork) can't be converted to int");
41247 if (f2py_success) {
41248 CHECKSCALAR(lwork>=2*n||lwork==-1,"lwork>=2*n||lwork==-1","3rd keyword lwork","zsysvx:lwork=%d",lwork)if (!(lwork>=2*n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zsysvx:lwork=%d", "(""lwork>=2*n||lwork==-1"") failed for "
"3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
41249 /* Processing variable work */
41250 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
41251 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
41252 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
41253 if (capi_work_tmp == NULL((void*)0)) {
41254 if (!PyErr_Occurred())
41255 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zsysvx to C/Fortran array" );
41256 } else {
41257 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
41258
41259 /* Processing variable irwork */
41260 irwork_Dims[0]=n;
41261 capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
41262 capi_irwork_tmp = array_from_pyobj(NPY_DOUBLE,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct));
41263 if (capi_irwork_tmp == NULL((void*)0)) {
41264 if (!PyErr_Occurred())
41265 PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.zsysvx to C/Fortran array" );
41266 } else {
41267 irwork = (double *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data
)
);
41268
41269 /* Processing variable nrhs */
41270 nrhs = shape(b,1)b_Dims[1];
41271 /* Processing variable x */
41272 x_Dims[0]=n,x_Dims[1]=nrhs;
41273 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
41274 capi_x_tmp = array_from_pyobj(NPY_CDOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
41275 if (capi_x_tmp == NULL((void*)0)) {
41276 if (!PyErr_Occurred())
41277 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.zsysvx to C/Fortran array" );
41278 } else {
41279 x = (complex_double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
41280
41281 /* Processing variable ferr */
41282 ferr_Dims[0]=nrhs;
41283 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
41284 capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
41285 if (capi_ferr_tmp == NULL((void*)0)) {
41286 if (!PyErr_Occurred())
41287 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.zsysvx to C/Fortran array" );
41288 } else {
41289 ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
41290
41291 /* Processing variable berr */
41292 berr_Dims[0]=nrhs;
41293 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
41294 capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
41295 if (capi_berr_tmp == NULL((void*)0)) {
41296 if (!PyErr_Occurred())
41297 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.zsysvx to C/Fortran array" );
41298 } else {
41299 berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
41300
41301/*end of frompyobj*/
41302#ifdef F2PY_REPORT_ATEXIT
41303f2py_start_call_clock();
41304#endif
41305/*callfortranroutine*/
41306 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
41307 (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,irwork,&info) ;
41308 /*(*f2py_func)(&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,irwork,&info,&factored,&lower);*/
41309 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
41310if (PyErr_Occurred())
41311 f2py_success = 0;
41312#ifdef F2PY_REPORT_ATEXIT
41313f2py_stop_call_clock();
41314#endif
41315/*end of callfortranroutine*/
41316 if (f2py_success) {
41317/*pyobjfrom*/
41318/*end of pyobjfrom*/
41319 CFUNCSMESS("Building return value.\n");
41320 capi_buildvalue = Py_BuildValue("NNNNNdNNi",capi_a_tmp,capi_af_tmp,capi_ipiv_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
41321/*closepyobjfrom*/
41322/*end of closepyobjfrom*/
41323 } /*if (f2py_success) after callfortranroutine*/
41324/*cleanupfrompyobj*/
41325 } /*if (capi_berr_tmp == NULL) ... else of berr*/
41326 /* End of cleaning variable berr */
41327 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
41328 /* End of cleaning variable ferr */
41329 } /*if (capi_x_tmp == NULL) ... else of x*/
41330 /* End of cleaning variable x */
41331 /* End of cleaning variable nrhs */
41332 Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp)));
41333 } /*if (capi_irwork_tmp == NULL) ... else of irwork*/
41334 /* End of cleaning variable irwork */
41335 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
41336 } /*if (capi_work_tmp == NULL) ... else of work*/
41337 /* End of cleaning variable work */
41338 } /*CHECKSCALAR(lwork>=2*n||lwork==-1)*/
41339 } /*if (f2py_success) of lwork*/
41340 /* End of cleaning variable lwork */
41341 /* End of cleaning variable ldx */
41342 /* End of cleaning variable ldb */
41343 } /*if (capi_b_tmp == NULL) ... else of b*/
41344 /* End of cleaning variable b */
41345 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
41346 /* End of cleaning variable ipiv */
41347 /* End of cleaning variable ldaf */
41348 } /*if (capi_af_tmp == NULL) ... else of af*/
41349 /* End of cleaning variable af */
41350 /* End of cleaning variable lda */
41351 /* End of cleaning variable n */
41352 /* End of cleaning variable info */
41353 /* End of cleaning variable rcond */
41354 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
41355 } /*if (capi_a_tmp == NULL) ... else of a*/
41356 /* End of cleaning variable a */
41357 } /*CHECKSCALAR(lower==0||lower==1)*/
41358 } /*if (f2py_success) of lower*/
41359 /* End of cleaning variable lower */
41360 } /*CHECKSCALAR(factored==0||factored==1)*/
41361 } /*if (f2py_success) of factored*/
41362 /* End of cleaning variable factored */
41363/*end of cleanupfrompyobj*/
41364 if (capi_buildvalue == NULL((void*)0)) {
41365/*routdebugfailure*/
41366 } else {
41367/*routdebugleave*/
41368 }
41369 CFUNCSMESS("Freeing memory.\n");
41370/*freemem*/
41371#ifdef F2PY_REPORT_ATEXIT
41372f2py_stop_clock();
41373#endif
41374 return capi_buildvalue;
41375}
41376/******************************* end of zsysvx *******************************/
41377
41378/******************************** ssysvx_lwork ********************************/
41379static char doc_f2py_rout__flapack_ssysvx_lwork[] = "\
41380work,info = ssysvx_lwork(n,[lower])\n\nWrapper for ``ssysvx_lwork``.\
41381\n\nParameters\n----------\n"
41382"n : input int\n"
41383"\nOther Parameters\n----------------\n"
41384"lower : input int, optional\n Default: 0\n"
41385"\nReturns\n-------\n"
41386"work : float\n"
41387"info : int";
41388/* extern void F_FUNC(ssysvx ,SSYSVX )(char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT*,F_INT* ); */
41389static PyObject *f2py_rout__flapack_ssysvx_lwork(const PyObject *capi_self,
41390 PyObject *capi_args,
41391 PyObject *capi_keywds,
41392 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint* )) {
41393 PyObject * volatile capi_buildvalue = NULL((void*)0);
41394 volatile int f2py_success = 1;
41395/*decl*/
41396
41397 int n = 0;
41398 PyObject *n_capi = Py_None(&_Py_NoneStruct);
41399 int nrhs = 0;
41400 float a = 0;
41401 int lda = 0;
41402 float af = 0;
41403 int ldaf = 0;
41404 int ipiv = 0;
41405 float b = 0;
41406 int ldb = 0;
41407 float x = 0;
41408 int ldx = 0;
41409 float rcond = 0;
41410 float ferr = 0;
41411 float berr = 0;
41412 float work = 0;
41413 int lwork = 0;
41414 int irwork = 0;
41415 int info = 0;
41416 int factored = 0;
41417 int lower = 0;
41418 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
41419 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
41420
41421/*routdebugenter*/
41422#ifdef F2PY_REPORT_ATEXIT
41423f2py_start_clock();
41424#endif
41425 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
41426 "O|O:_flapack.ssysvx_lwork",\
41427 capi_kwlist,&n_capi,&lower_capi))
41428 return NULL((void*)0);
41429/*frompyobj*/
41430 /* Processing variable n */
41431 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssysvx_lwork() 1st argument (n) can't be converted to int");
41432 if (f2py_success) {
41433 /* Processing variable lower */
41434 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
41435 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssysvx_lwork() 1st keyword (lower) can't be converted to int");
41436 if (f2py_success) {
41437 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssysvx_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssysvx_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
41438 /* Processing variable factored */
41439 factored = 0;
41440 /* Processing variable nrhs */
41441 nrhs = 1;
41442 /* Processing variable a */
41443 /* Processing variable af */
41444 /* Processing variable ipiv */
41445 /* Processing variable b */
41446 /* Processing variable x */
41447 /* Processing variable rcond */
41448 /* Processing variable ferr */
41449 /* Processing variable berr */
41450 /* Processing variable lwork */
41451 lwork = -1;
41452 /* Processing variable irwork */
41453 /* Processing variable work */
41454 /* Processing variable info */
41455 /* Processing variable lda */
41456 lda = n;
41457 /* Processing variable ldaf */
41458 ldaf = n;
41459 /* Processing variable ldb */
41460 ldb = n;
41461 /* Processing variable ldx */
41462 ldx = n;
41463/*end of frompyobj*/
41464#ifdef F2PY_REPORT_ATEXIT
41465f2py_start_call_clock();
41466#endif
41467/*callfortranroutine*/
41468 (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&irwork,&info) ;
41469 /*(*f2py_func)(&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&irwork,&info,&factored,&lower);*/
41470if (PyErr_Occurred())
41471 f2py_success = 0;
41472#ifdef F2PY_REPORT_ATEXIT
41473f2py_stop_call_clock();
41474#endif
41475/*end of callfortranroutine*/
41476 if (f2py_success) {
41477/*pyobjfrom*/
41478/*end of pyobjfrom*/
41479 CFUNCSMESS("Building return value.\n");
41480 capi_buildvalue = Py_BuildValue("fi",work,info);
41481/*closepyobjfrom*/
41482/*end of closepyobjfrom*/
41483 } /*if (f2py_success) after callfortranroutine*/
41484/*cleanupfrompyobj*/
41485 /* End of cleaning variable ldx */
41486 /* End of cleaning variable ldb */
41487 /* End of cleaning variable ldaf */
41488 /* End of cleaning variable lda */
41489 /* End of cleaning variable info */
41490 /* End of cleaning variable work */
41491 /* End of cleaning variable irwork */
41492 /* End of cleaning variable lwork */
41493 /* End of cleaning variable berr */
41494 /* End of cleaning variable ferr */
41495 /* End of cleaning variable rcond */
41496 /* End of cleaning variable x */
41497 /* End of cleaning variable b */
41498 /* End of cleaning variable ipiv */
41499 /* End of cleaning variable af */
41500 /* End of cleaning variable a */
41501 /* End of cleaning variable nrhs */
41502 /* End of cleaning variable factored */
41503 } /*CHECKSCALAR(lower==0||lower==1)*/
41504 } /*if (f2py_success) of lower*/
41505 /* End of cleaning variable lower */
41506 } /*if (f2py_success) of n*/
41507 /* End of cleaning variable n */
41508/*end of cleanupfrompyobj*/
41509 if (capi_buildvalue == NULL((void*)0)) {
41510/*routdebugfailure*/
41511 } else {
41512/*routdebugleave*/
41513 }
41514 CFUNCSMESS("Freeing memory.\n");
41515/*freemem*/
41516#ifdef F2PY_REPORT_ATEXIT
41517f2py_stop_clock();
41518#endif
41519 return capi_buildvalue;
41520}
41521/**************************** end of ssysvx_lwork ****************************/
41522
41523/******************************** dsysvx_lwork ********************************/
41524static char doc_f2py_rout__flapack_dsysvx_lwork[] = "\
41525work,info = dsysvx_lwork(n,[lower])\n\nWrapper for ``dsysvx_lwork``.\
41526\n\nParameters\n----------\n"
41527"n : input int\n"
41528"\nOther Parameters\n----------------\n"
41529"lower : input int, optional\n Default: 0\n"
41530"\nReturns\n-------\n"
41531"work : float\n"
41532"info : int";
41533/* extern void F_FUNC(dsysvx ,DSYSVX )(char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT*,F_INT* ); */
41534static PyObject *f2py_rout__flapack_dsysvx_lwork(const PyObject *capi_self,
41535 PyObject *capi_args,
41536 PyObject *capi_keywds,
41537 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint* )) {
41538 PyObject * volatile capi_buildvalue = NULL((void*)0);
41539 volatile int f2py_success = 1;
41540/*decl*/
41541
41542 int n = 0;
41543 PyObject *n_capi = Py_None(&_Py_NoneStruct);
41544 int nrhs = 0;
41545 double a = 0;
41546 int lda = 0;
41547 double af = 0;
41548 int ldaf = 0;
41549 int ipiv = 0;
41550 double b = 0;
41551 int ldb = 0;
41552 double x = 0;
41553 int ldx = 0;
41554 double rcond = 0;
41555 double ferr = 0;
41556 double berr = 0;
41557 double work = 0;
41558 int lwork = 0;
41559 int irwork = 0;
41560 int info = 0;
41561 int factored = 0;
41562 int lower = 0;
41563 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
41564 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
41565
41566/*routdebugenter*/
41567#ifdef F2PY_REPORT_ATEXIT
41568f2py_start_clock();
41569#endif
41570 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
41571 "O|O:_flapack.dsysvx_lwork",\
41572 capi_kwlist,&n_capi,&lower_capi))
41573 return NULL((void*)0);
41574/*frompyobj*/
41575 /* Processing variable n */
41576 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsysvx_lwork() 1st argument (n) can't be converted to int");
41577 if (f2py_success) {
41578 /* Processing variable lower */
41579 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
41580 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsysvx_lwork() 1st keyword (lower) can't be converted to int");
41581 if (f2py_success) {
41582 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsysvx_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsysvx_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
41583 /* Processing variable factored */
41584 factored = 0;
41585 /* Processing variable nrhs */
41586 nrhs = 1;
41587 /* Processing variable a */
41588 /* Processing variable af */
41589 /* Processing variable ipiv */
41590 /* Processing variable b */
41591 /* Processing variable x */
41592 /* Processing variable rcond */
41593 /* Processing variable ferr */
41594 /* Processing variable berr */
41595 /* Processing variable lwork */
41596 lwork = -1;
41597 /* Processing variable irwork */
41598 /* Processing variable work */
41599 /* Processing variable info */
41600 /* Processing variable lda */
41601 lda = n;
41602 /* Processing variable ldaf */
41603 ldaf = n;
41604 /* Processing variable ldb */
41605 ldb = n;
41606 /* Processing variable ldx */
41607 ldx = n;
41608/*end of frompyobj*/
41609#ifdef F2PY_REPORT_ATEXIT
41610f2py_start_call_clock();
41611#endif
41612/*callfortranroutine*/
41613 (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&irwork,&info) ;
41614 /*(*f2py_func)(&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&irwork,&info,&factored,&lower);*/
41615if (PyErr_Occurred())
41616 f2py_success = 0;
41617#ifdef F2PY_REPORT_ATEXIT
41618f2py_stop_call_clock();
41619#endif
41620/*end of callfortranroutine*/
41621 if (f2py_success) {
41622/*pyobjfrom*/
41623/*end of pyobjfrom*/
41624 CFUNCSMESS("Building return value.\n");
41625 capi_buildvalue = Py_BuildValue("di",work,info);
41626/*closepyobjfrom*/
41627/*end of closepyobjfrom*/
41628 } /*if (f2py_success) after callfortranroutine*/
41629/*cleanupfrompyobj*/
41630 /* End of cleaning variable ldx */
41631 /* End of cleaning variable ldb */
41632 /* End of cleaning variable ldaf */
41633 /* End of cleaning variable lda */
41634 /* End of cleaning variable info */
41635 /* End of cleaning variable work */
41636 /* End of cleaning variable irwork */
41637 /* End of cleaning variable lwork */
41638 /* End of cleaning variable berr */
41639 /* End of cleaning variable ferr */
41640 /* End of cleaning variable rcond */
41641 /* End of cleaning variable x */
41642 /* End of cleaning variable b */
41643 /* End of cleaning variable ipiv */
41644 /* End of cleaning variable af */
41645 /* End of cleaning variable a */
41646 /* End of cleaning variable nrhs */
41647 /* End of cleaning variable factored */
41648 } /*CHECKSCALAR(lower==0||lower==1)*/
41649 } /*if (f2py_success) of lower*/
41650 /* End of cleaning variable lower */
41651 } /*if (f2py_success) of n*/
41652 /* End of cleaning variable n */
41653/*end of cleanupfrompyobj*/
41654 if (capi_buildvalue == NULL((void*)0)) {
41655/*routdebugfailure*/
41656 } else {
41657/*routdebugleave*/
41658 }
41659 CFUNCSMESS("Freeing memory.\n");
41660/*freemem*/
41661#ifdef F2PY_REPORT_ATEXIT
41662f2py_stop_clock();
41663#endif
41664 return capi_buildvalue;
41665}
41666/**************************** end of dsysvx_lwork ****************************/
41667
41668/******************************** csysvx_lwork ********************************/
41669static char doc_f2py_rout__flapack_csysvx_lwork[] = "\
41670work,info = csysvx_lwork(n,[lower])\n\nWrapper for ``csysvx_lwork``.\
41671\n\nParameters\n----------\n"
41672"n : input int\n"
41673"\nOther Parameters\n----------------\n"
41674"lower : input int, optional\n Default: 0\n"
41675"\nReturns\n-------\n"
41676"work : complex\n"
41677"info : int";
41678/* extern void F_FUNC(csysvx ,CSYSVX )(char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,float*,complex_float*,F_INT*,float*,F_INT* ); */
41679static PyObject *f2py_rout__flapack_csysvx_lwork(const PyObject *capi_self,
41680 PyObject *capi_args,
41681 PyObject *capi_keywds,
41682 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,float*,F_INTint* )) {
41683 PyObject * volatile capi_buildvalue = NULL((void*)0);
41684 volatile int f2py_success = 1;
41685/*decl*/
41686
41687 int n = 0;
41688 PyObject *n_capi = Py_None(&_Py_NoneStruct);
41689 int nrhs = 0;
41690 complex_float a;
41691 int lda = 0;
41692 complex_float af;
41693 int ldaf = 0;
41694 int ipiv = 0;
41695 complex_float b;
41696 int ldb = 0;
41697 complex_float x;
41698 int ldx = 0;
41699 float rcond = 0;
41700 float ferr = 0;
41701 float berr = 0;
41702 complex_float work;
41703 PyObject *work_capi = Py_None(&_Py_NoneStruct);
41704 int lwork = 0;
41705 float irwork = 0;
41706 int info = 0;
41707 int factored = 0;
41708 int lower = 0;
41709 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
41710 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
41711
41712/*routdebugenter*/
41713#ifdef F2PY_REPORT_ATEXIT
41714f2py_start_clock();
41715#endif
41716 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
41717 "O|O:_flapack.csysvx_lwork",\
41718 capi_kwlist,&n_capi,&lower_capi))
41719 return NULL((void*)0);
41720/*frompyobj*/
41721 /* Processing variable n */
41722 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.csysvx_lwork() 1st argument (n) can't be converted to int");
41723 if (f2py_success) {
41724 /* Processing variable lower */
41725 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
41726 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.csysvx_lwork() 1st keyword (lower) can't be converted to int");
41727 if (f2py_success) {
41728 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","csysvx_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""csysvx_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
41729 /* Processing variable factored */
41730 factored = 0;
41731 /* Processing variable nrhs */
41732 nrhs = 1;
41733 /* Processing variable a */
41734 /* Processing variable af */
41735 /* Processing variable ipiv */
41736 /* Processing variable b */
41737 /* Processing variable x */
41738 /* Processing variable rcond */
41739 /* Processing variable ferr */
41740 /* Processing variable berr */
41741 /* Processing variable lwork */
41742 lwork = -1;
41743 /* Processing variable irwork */
41744 /* Processing variable work */
41745 /* Processing variable info */
41746 /* Processing variable lda */
41747 lda = n;
41748 /* Processing variable ldaf */
41749 ldaf = n;
41750 /* Processing variable ldb */
41751 ldb = n;
41752 /* Processing variable ldx */
41753 ldx = n;
41754/*end of frompyobj*/
41755#ifdef F2PY_REPORT_ATEXIT
41756f2py_start_call_clock();
41757#endif
41758/*callfortranroutine*/
41759 (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&irwork,&info) ;
41760 /*(*f2py_func)(&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&irwork,&info,&factored,&lower);*/
41761if (PyErr_Occurred())
41762 f2py_success = 0;
41763#ifdef F2PY_REPORT_ATEXIT
41764f2py_stop_call_clock();
41765#endif
41766/*end of callfortranroutine*/
41767 if (f2py_success) {
41768/*pyobjfrom*/
41769 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
41770/*end of pyobjfrom*/
41771 CFUNCSMESS("Building return value.\n");
41772 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
41773/*closepyobjfrom*/
41774/*end of closepyobjfrom*/
41775 } /*if (f2py_success) after callfortranroutine*/
41776/*cleanupfrompyobj*/
41777 /* End of cleaning variable ldx */
41778 /* End of cleaning variable ldb */
41779 /* End of cleaning variable ldaf */
41780 /* End of cleaning variable lda */
41781 /* End of cleaning variable info */
41782 /* End of cleaning variable work */
41783 /* End of cleaning variable irwork */
41784 /* End of cleaning variable lwork */
41785 /* End of cleaning variable berr */
41786 /* End of cleaning variable ferr */
41787 /* End of cleaning variable rcond */
41788 /* End of cleaning variable x */
41789 /* End of cleaning variable b */
41790 /* End of cleaning variable ipiv */
41791 /* End of cleaning variable af */
41792 /* End of cleaning variable a */
41793 /* End of cleaning variable nrhs */
41794 /* End of cleaning variable factored */
41795 } /*CHECKSCALAR(lower==0||lower==1)*/
41796 } /*if (f2py_success) of lower*/
41797 /* End of cleaning variable lower */
41798 } /*if (f2py_success) of n*/
41799 /* End of cleaning variable n */
41800/*end of cleanupfrompyobj*/
41801 if (capi_buildvalue == NULL((void*)0)) {
41802/*routdebugfailure*/
41803 } else {
41804/*routdebugleave*/
41805 }
41806 CFUNCSMESS("Freeing memory.\n");
41807/*freemem*/
41808#ifdef F2PY_REPORT_ATEXIT
41809f2py_stop_clock();
41810#endif
41811 return capi_buildvalue;
41812}
41813/**************************** end of csysvx_lwork ****************************/
41814
41815/******************************** zsysvx_lwork ********************************/
41816static char doc_f2py_rout__flapack_zsysvx_lwork[] = "\
41817work,info = zsysvx_lwork(n,[lower])\n\nWrapper for ``zsysvx_lwork``.\
41818\n\nParameters\n----------\n"
41819"n : input int\n"
41820"\nOther Parameters\n----------------\n"
41821"lower : input int, optional\n Default: 0\n"
41822"\nReturns\n-------\n"
41823"work : complex\n"
41824"info : int";
41825/* extern void F_FUNC(zsysvx ,ZSYSVX )(char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,double*,complex_double*,F_INT*,double*,F_INT* ); */
41826static PyObject *f2py_rout__flapack_zsysvx_lwork(const PyObject *capi_self,
41827 PyObject *capi_args,
41828 PyObject *capi_keywds,
41829 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,double*,F_INTint* )) {
41830 PyObject * volatile capi_buildvalue = NULL((void*)0);
41831 volatile int f2py_success = 1;
41832/*decl*/
41833
41834 int n = 0;
41835 PyObject *n_capi = Py_None(&_Py_NoneStruct);
41836 int nrhs = 0;
41837 complex_double a;
41838 int lda = 0;
41839 complex_double af;
41840 int ldaf = 0;
41841 int ipiv = 0;
41842 complex_double b;
41843 int ldb = 0;
41844 complex_double x;
41845 int ldx = 0;
41846 double rcond = 0;
41847 double ferr = 0;
41848 double berr = 0;
41849 complex_double work;
41850 PyObject *work_capi = Py_None(&_Py_NoneStruct);
41851 int lwork = 0;
41852 double irwork = 0;
41853 int info = 0;
41854 int factored = 0;
41855 int lower = 0;
41856 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
41857 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
41858
41859/*routdebugenter*/
41860#ifdef F2PY_REPORT_ATEXIT
41861f2py_start_clock();
41862#endif
41863 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
41864 "O|O:_flapack.zsysvx_lwork",\
41865 capi_kwlist,&n_capi,&lower_capi))
41866 return NULL((void*)0);
41867/*frompyobj*/
41868 /* Processing variable n */
41869 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zsysvx_lwork() 1st argument (n) can't be converted to int");
41870 if (f2py_success) {
41871 /* Processing variable lower */
41872 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
41873 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zsysvx_lwork() 1st keyword (lower) can't be converted to int");
41874 if (f2py_success) {
41875 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zsysvx_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zsysvx_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
41876 /* Processing variable factored */
41877 factored = 0;
41878 /* Processing variable nrhs */
41879 nrhs = 1;
41880 /* Processing variable a */
41881 /* Processing variable af */
41882 /* Processing variable ipiv */
41883 /* Processing variable b */
41884 /* Processing variable x */
41885 /* Processing variable rcond */
41886 /* Processing variable ferr */
41887 /* Processing variable berr */
41888 /* Processing variable lwork */
41889 lwork = -1;
41890 /* Processing variable irwork */
41891 /* Processing variable work */
41892 /* Processing variable info */
41893 /* Processing variable lda */
41894 lda = n;
41895 /* Processing variable ldaf */
41896 ldaf = n;
41897 /* Processing variable ldb */
41898 ldb = n;
41899 /* Processing variable ldx */
41900 ldx = n;
41901/*end of frompyobj*/
41902#ifdef F2PY_REPORT_ATEXIT
41903f2py_start_call_clock();
41904#endif
41905/*callfortranroutine*/
41906 (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&irwork,&info) ;
41907 /*(*f2py_func)(&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&irwork,&info,&factored,&lower);*/
41908if (PyErr_Occurred())
41909 f2py_success = 0;
41910#ifdef F2PY_REPORT_ATEXIT
41911f2py_stop_call_clock();
41912#endif
41913/*end of callfortranroutine*/
41914 if (f2py_success) {
41915/*pyobjfrom*/
41916 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
41917/*end of pyobjfrom*/
41918 CFUNCSMESS("Building return value.\n");
41919 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
41920/*closepyobjfrom*/
41921/*end of closepyobjfrom*/
41922 } /*if (f2py_success) after callfortranroutine*/
41923/*cleanupfrompyobj*/
41924 /* End of cleaning variable ldx */
41925 /* End of cleaning variable ldb */
41926 /* End of cleaning variable ldaf */
41927 /* End of cleaning variable lda */
41928 /* End of cleaning variable info */
41929 /* End of cleaning variable work */
41930 /* End of cleaning variable irwork */
41931 /* End of cleaning variable lwork */
41932 /* End of cleaning variable berr */
41933 /* End of cleaning variable ferr */
41934 /* End of cleaning variable rcond */
41935 /* End of cleaning variable x */
41936 /* End of cleaning variable b */
41937 /* End of cleaning variable ipiv */
41938 /* End of cleaning variable af */
41939 /* End of cleaning variable a */
41940 /* End of cleaning variable nrhs */
41941 /* End of cleaning variable factored */
41942 } /*CHECKSCALAR(lower==0||lower==1)*/
41943 } /*if (f2py_success) of lower*/
41944 /* End of cleaning variable lower */
41945 } /*if (f2py_success) of n*/
41946 /* End of cleaning variable n */
41947/*end of cleanupfrompyobj*/
41948 if (capi_buildvalue == NULL((void*)0)) {
41949/*routdebugfailure*/
41950 } else {
41951/*routdebugleave*/
41952 }
41953 CFUNCSMESS("Freeing memory.\n");
41954/*freemem*/
41955#ifdef F2PY_REPORT_ATEXIT
41956f2py_stop_clock();
41957#endif
41958 return capi_buildvalue;
41959}
41960/**************************** end of zsysvx_lwork ****************************/
41961
41962/*********************************** ssycon ***********************************/
41963static char doc_f2py_rout__flapack_ssycon[] = "\
41964rcond,info = ssycon(a,ipiv,anorm,[lower])\n\nWrapper for ``ssycon``.\
41965\n\nParameters\n----------\n"
41966"a : input rank-2 array('f') with bounds (n,n)\n"
41967"ipiv : input rank-1 array('i') with bounds (n)\n"
41968"anorm : input float\n"
41969"\nOther Parameters\n----------------\n"
41970"lower : input int, optional\n Default: 0\n"
41971"\nReturns\n-------\n"
41972"rcond : float\n"
41973"info : int";
41974/* extern void F_FUNC(ssycon,SSYCON)(char*,F_INT*,float*,F_INT*,F_INT*,float*,float*,float*,F_INT*,F_INT* ); */
41975static PyObject *f2py_rout__flapack_ssycon(const PyObject *capi_self,
41976 PyObject *capi_args,
41977 PyObject *capi_keywds,
41978 void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,float*,F_INTint*,F_INTint* )) {
41979 PyObject * volatile capi_buildvalue = NULL((void*)0);
41980 volatile int f2py_success = 1;
41981/*decl*/
41982
41983 int n = 0;
41984 float *a = NULL((void*)0);
41985 npy_intp a_Dims[2] = {-1, -1};
41986 const int a_Rank = 2;
41987 PyArrayObject *capi_a_tmp = NULL((void*)0);
41988 int capi_a_intent = 0;
41989 PyObject *a_capi = Py_None(&_Py_NoneStruct);
41990 int lda = 0;
41991 int *ipiv = NULL((void*)0);
41992 npy_intp ipiv_Dims[1] = {-1};
41993 const int ipiv_Rank = 1;
41994 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
41995 int capi_ipiv_intent = 0;
41996 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
41997 float anorm = 0;
41998 PyObject *anorm_capi = Py_None(&_Py_NoneStruct);
41999 float rcond = 0;
42000 float *work = NULL((void*)0);
42001 npy_intp work_Dims[1] = {-1};
42002 const int work_Rank = 1;
42003 PyArrayObject *capi_work_tmp = NULL((void*)0);
42004 int capi_work_intent = 0;
42005 int *iwork = NULL((void*)0);
42006 npy_intp iwork_Dims[1] = {-1};
42007 const int iwork_Rank = 1;
42008 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
42009 int capi_iwork_intent = 0;
42010 int info = 0;
42011 int lower = 0;
42012 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
42013 static char *capi_kwlist[] = {"a","ipiv","anorm","lower",NULL((void*)0)};
42014
42015/*routdebugenter*/
42016#ifdef F2PY_REPORT_ATEXIT
42017f2py_start_clock();
42018#endif
42019 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
42020 "OOO|O:_flapack.ssycon",\
42021 capi_kwlist,&a_capi,&ipiv_capi,&anorm_capi,&lower_capi))
42022 return NULL((void*)0);
42023/*frompyobj*/
42024 /* Processing variable lower */
42025 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
42026 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssycon() 1st keyword (lower) can't be converted to int");
42027 if (f2py_success) {
42028 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssycon:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssycon:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
42029 /* Processing variable a */
42030 ;
42031 capi_a_intent |= F2PY_INTENT_IN1;
42032 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
42033 if (capi_a_tmp == NULL((void*)0)) {
42034 if (!PyErr_Occurred())
42035 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssycon to C/Fortran array" );
42036 } else {
42037 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
42038
42039 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
42040 /* Processing variable anorm */
42041 f2py_success = float_from_pyobj(&anorm,anorm_capi,"_flapack.ssycon() 3rd argument (anorm) can't be converted to float");
42042 if (f2py_success) {
42043 /* Processing variable rcond */
42044 /* Processing variable info */
42045 /* Processing variable n */
42046 n = shape(a,0)a_Dims[0];
42047 /* Processing variable lda */
42048 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
42049 /* Processing variable ipiv */
42050 ipiv_Dims[0]=n;
42051 capi_ipiv_intent |= F2PY_INTENT_IN1;
42052 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
42053 if (capi_ipiv_tmp == NULL((void*)0)) {
42054 if (!PyErr_Occurred())
42055 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ipiv' of _flapack.ssycon to C/Fortran array" );
42056 } else {
42057 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
42058
42059 /* Processing variable work */
42060 work_Dims[0]=2 * n;
42061 capi_work_intent |= F2PY_INTENT_HIDE8;
42062 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
42063 if (capi_work_tmp == NULL((void*)0)) {
42064 if (!PyErr_Occurred())
42065 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssycon to C/Fortran array" );
42066 } else {
42067 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
42068
42069 /* Processing variable iwork */
42070 iwork_Dims[0]=n;
42071 capi_iwork_intent |= F2PY_INTENT_HIDE8;
42072 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
42073 if (capi_iwork_tmp == NULL((void*)0)) {
42074 if (!PyErr_Occurred())
42075 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.ssycon to C/Fortran array" );
42076 } else {
42077 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
42078
42079/*end of frompyobj*/
42080#ifdef F2PY_REPORT_ATEXIT
42081f2py_start_call_clock();
42082#endif
42083/*callfortranroutine*/
42084 (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,&anorm,&rcond,work,iwork,&info) ;
42085 /*(*f2py_func)(&n,a,&lda,ipiv,&anorm,&rcond,work,iwork,&info,&lower);*/
42086if (PyErr_Occurred())
42087 f2py_success = 0;
42088#ifdef F2PY_REPORT_ATEXIT
42089f2py_stop_call_clock();
42090#endif
42091/*end of callfortranroutine*/
42092 if (f2py_success) {
42093/*pyobjfrom*/
42094/*end of pyobjfrom*/
42095 CFUNCSMESS("Building return value.\n");
42096 capi_buildvalue = Py_BuildValue("fi",rcond,info);
42097/*closepyobjfrom*/
42098/*end of closepyobjfrom*/
42099 } /*if (f2py_success) after callfortranroutine*/
42100/*cleanupfrompyobj*/
42101 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
42102 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
42103 /* End of cleaning variable iwork */
42104 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
42105 } /*if (capi_work_tmp == NULL) ... else of work*/
42106 /* End of cleaning variable work */
42107 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
42108 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
42109 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
42110 /* End of cleaning variable ipiv */
42111 /* End of cleaning variable lda */
42112 /* End of cleaning variable n */
42113 /* End of cleaning variable info */
42114 /* End of cleaning variable rcond */
42115 } /*if (f2py_success) of anorm*/
42116 /* End of cleaning variable anorm */
42117 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
42118 if((PyObject *)capi_a_tmp!=a_capi) {
42119 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
42120 } /*if (capi_a_tmp == NULL) ... else of a*/
42121 /* End of cleaning variable a */
42122 } /*CHECKSCALAR(lower==0||lower==1)*/
42123 } /*if (f2py_success) of lower*/
42124 /* End of cleaning variable lower */
42125/*end of cleanupfrompyobj*/
42126 if (capi_buildvalue == NULL((void*)0)) {
42127/*routdebugfailure*/
42128 } else {
42129/*routdebugleave*/
42130 }
42131 CFUNCSMESS("Freeing memory.\n");
42132/*freemem*/
42133#ifdef F2PY_REPORT_ATEXIT
42134f2py_stop_clock();
42135#endif
42136 return capi_buildvalue;
42137}
42138/******************************* end of ssycon *******************************/
42139
42140/*********************************** dsycon ***********************************/
42141static char doc_f2py_rout__flapack_dsycon[] = "\
42142rcond,info = dsycon(a,ipiv,anorm,[lower])\n\nWrapper for ``dsycon``.\
42143\n\nParameters\n----------\n"
42144"a : input rank-2 array('d') with bounds (n,n)\n"
42145"ipiv : input rank-1 array('i') with bounds (n)\n"
42146"anorm : input float\n"
42147"\nOther Parameters\n----------------\n"
42148"lower : input int, optional\n Default: 0\n"
42149"\nReturns\n-------\n"
42150"rcond : float\n"
42151"info : int";
42152/* extern void F_FUNC(dsycon,DSYCON)(char*,F_INT*,double*,F_INT*,F_INT*,double*,double*,double*,F_INT*,F_INT* ); */
42153static PyObject *f2py_rout__flapack_dsycon(const PyObject *capi_self,
42154 PyObject *capi_args,
42155 PyObject *capi_keywds,
42156 void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,double*,F_INTint*,F_INTint* )) {
42157 PyObject * volatile capi_buildvalue = NULL((void*)0);
42158 volatile int f2py_success = 1;
42159/*decl*/
42160
42161 int n = 0;
42162 double *a = NULL((void*)0);
42163 npy_intp a_Dims[2] = {-1, -1};
42164 const int a_Rank = 2;
42165 PyArrayObject *capi_a_tmp = NULL((void*)0);
42166 int capi_a_intent = 0;
42167 PyObject *a_capi = Py_None(&_Py_NoneStruct);
42168 int lda = 0;
42169 int *ipiv = NULL((void*)0);
42170 npy_intp ipiv_Dims[1] = {-1};
42171 const int ipiv_Rank = 1;
42172 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
42173 int capi_ipiv_intent = 0;
42174 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
42175 double anorm = 0;
42176 PyObject *anorm_capi = Py_None(&_Py_NoneStruct);
42177 double rcond = 0;
42178 double *work = NULL((void*)0);
42179 npy_intp work_Dims[1] = {-1};
42180 const int work_Rank = 1;
42181 PyArrayObject *capi_work_tmp = NULL((void*)0);
42182 int capi_work_intent = 0;
42183 int *iwork = NULL((void*)0);
42184 npy_intp iwork_Dims[1] = {-1};
42185 const int iwork_Rank = 1;
42186 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
42187 int capi_iwork_intent = 0;
42188 int info = 0;
42189 int lower = 0;
42190 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
42191 static char *capi_kwlist[] = {"a","ipiv","anorm","lower",NULL((void*)0)};
42192
42193/*routdebugenter*/
42194#ifdef F2PY_REPORT_ATEXIT
42195f2py_start_clock();
42196#endif
42197 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
42198 "OOO|O:_flapack.dsycon",\
42199 capi_kwlist,&a_capi,&ipiv_capi,&anorm_capi,&lower_capi))
42200 return NULL((void*)0);
42201/*frompyobj*/
42202 /* Processing variable lower */
42203 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
42204 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsycon() 1st keyword (lower) can't be converted to int");
42205 if (f2py_success) {
42206 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsycon:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsycon:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
42207 /* Processing variable a */
42208 ;
42209 capi_a_intent |= F2PY_INTENT_IN1;
42210 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
42211 if (capi_a_tmp == NULL((void*)0)) {
42212 if (!PyErr_Occurred())
42213 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsycon to C/Fortran array" );
42214 } else {
42215 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
42216
42217 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
42218 /* Processing variable anorm */
42219 f2py_success = double_from_pyobj(&anorm,anorm_capi,"_flapack.dsycon() 3rd argument (anorm) can't be converted to double");
42220 if (f2py_success) {
42221 /* Processing variable rcond */
42222 /* Processing variable info */
42223 /* Processing variable n */
42224 n = shape(a,0)a_Dims[0];
42225 /* Processing variable lda */
42226 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
42227 /* Processing variable ipiv */
42228 ipiv_Dims[0]=n;
42229 capi_ipiv_intent |= F2PY_INTENT_IN1;
42230 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
42231 if (capi_ipiv_tmp == NULL((void*)0)) {
42232 if (!PyErr_Occurred())
42233 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ipiv' of _flapack.dsycon to C/Fortran array" );
42234 } else {
42235 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
42236
42237 /* Processing variable work */
42238 work_Dims[0]=2 * n;
42239 capi_work_intent |= F2PY_INTENT_HIDE8;
42240 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
42241 if (capi_work_tmp == NULL((void*)0)) {
42242 if (!PyErr_Occurred())
42243 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsycon to C/Fortran array" );
42244 } else {
42245 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
42246
42247 /* Processing variable iwork */
42248 iwork_Dims[0]=n;
42249 capi_iwork_intent |= F2PY_INTENT_HIDE8;
42250 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
42251 if (capi_iwork_tmp == NULL((void*)0)) {
42252 if (!PyErr_Occurred())
42253 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dsycon to C/Fortran array" );
42254 } else {
42255 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
42256
42257/*end of frompyobj*/
42258#ifdef F2PY_REPORT_ATEXIT
42259f2py_start_call_clock();
42260#endif
42261/*callfortranroutine*/
42262 (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,&anorm,&rcond,work,iwork,&info) ;
42263 /*(*f2py_func)(&n,a,&lda,ipiv,&anorm,&rcond,work,iwork,&info,&lower);*/
42264if (PyErr_Occurred())
42265 f2py_success = 0;
42266#ifdef F2PY_REPORT_ATEXIT
42267f2py_stop_call_clock();
42268#endif
42269/*end of callfortranroutine*/
42270 if (f2py_success) {
42271/*pyobjfrom*/
42272/*end of pyobjfrom*/
42273 CFUNCSMESS("Building return value.\n");
42274 capi_buildvalue = Py_BuildValue("di",rcond,info);
42275/*closepyobjfrom*/
42276/*end of closepyobjfrom*/
42277 } /*if (f2py_success) after callfortranroutine*/
42278/*cleanupfrompyobj*/
42279 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
42280 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
42281 /* End of cleaning variable iwork */
42282 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
42283 } /*if (capi_work_tmp == NULL) ... else of work*/
42284 /* End of cleaning variable work */
42285 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
42286 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
42287 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
42288 /* End of cleaning variable ipiv */
42289 /* End of cleaning variable lda */
42290 /* End of cleaning variable n */
42291 /* End of cleaning variable info */
42292 /* End of cleaning variable rcond */
42293 } /*if (f2py_success) of anorm*/
42294 /* End of cleaning variable anorm */
42295 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
42296 if((PyObject *)capi_a_tmp!=a_capi) {
42297 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
42298 } /*if (capi_a_tmp == NULL) ... else of a*/
42299 /* End of cleaning variable a */
42300 } /*CHECKSCALAR(lower==0||lower==1)*/
42301 } /*if (f2py_success) of lower*/
42302 /* End of cleaning variable lower */
42303/*end of cleanupfrompyobj*/
42304 if (capi_buildvalue == NULL((void*)0)) {
42305/*routdebugfailure*/
42306 } else {
42307/*routdebugleave*/
42308 }
42309 CFUNCSMESS("Freeing memory.\n");
42310/*freemem*/
42311#ifdef F2PY_REPORT_ATEXIT
42312f2py_stop_clock();
42313#endif
42314 return capi_buildvalue;
42315}
42316/******************************* end of dsycon *******************************/
42317
42318/*********************************** csycon ***********************************/
42319static char doc_f2py_rout__flapack_csycon[] = "\
42320rcond,info = csycon(a,ipiv,anorm,[lower])\n\nWrapper for ``csycon``.\
42321\n\nParameters\n----------\n"
42322"a : input rank-2 array('F') with bounds (n,n)\n"
42323"ipiv : input rank-1 array('i') with bounds (n)\n"
42324"anorm : input float\n"
42325"\nOther Parameters\n----------------\n"
42326"lower : input int, optional\n Default: 0\n"
42327"\nReturns\n-------\n"
42328"rcond : float\n"
42329"info : int";
42330/* extern void F_FUNC(csycon,CSYCON)(char*,F_INT*,complex_float*,F_INT*,F_INT*,float*,float*,complex_float*,F_INT* ); */
42331static PyObject *f2py_rout__flapack_csycon(const PyObject *capi_self,
42332 PyObject *capi_args,
42333 PyObject *capi_keywds,
42334 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,float*,complex_float*,F_INTint* )) {
42335 PyObject * volatile capi_buildvalue = NULL((void*)0);
42336 volatile int f2py_success = 1;
42337/*decl*/
42338
42339 int n = 0;
42340 complex_float *a = NULL((void*)0);
42341 npy_intp a_Dims[2] = {-1, -1};
42342 const int a_Rank = 2;
42343 PyArrayObject *capi_a_tmp = NULL((void*)0);
42344 int capi_a_intent = 0;
42345 PyObject *a_capi = Py_None(&_Py_NoneStruct);
42346 int lda = 0;
42347 int *ipiv = NULL((void*)0);
42348 npy_intp ipiv_Dims[1] = {-1};
42349 const int ipiv_Rank = 1;
42350 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
42351 int capi_ipiv_intent = 0;
42352 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
42353 float anorm = 0;
42354 PyObject *anorm_capi = Py_None(&_Py_NoneStruct);
42355 float rcond = 0;
42356 complex_float *work = NULL((void*)0);
42357 npy_intp work_Dims[1] = {-1};
42358 const int work_Rank = 1;
42359 PyArrayObject *capi_work_tmp = NULL((void*)0);
42360 int capi_work_intent = 0;
42361 int info = 0;
42362 int lower = 0;
42363 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
42364 static char *capi_kwlist[] = {"a","ipiv","anorm","lower",NULL((void*)0)};
42365
42366/*routdebugenter*/
42367#ifdef F2PY_REPORT_ATEXIT
42368f2py_start_clock();
42369#endif
42370 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
42371 "OOO|O:_flapack.csycon",\
42372 capi_kwlist,&a_capi,&ipiv_capi,&anorm_capi,&lower_capi))
42373 return NULL((void*)0);
42374/*frompyobj*/
42375 /* Processing variable lower */
42376 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
42377 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.csycon() 1st keyword (lower) can't be converted to int");
42378 if (f2py_success) {
42379 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","csycon:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""csycon:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
42380 /* Processing variable a */
42381 ;
42382 capi_a_intent |= F2PY_INTENT_IN1;
42383 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
42384 if (capi_a_tmp == NULL((void*)0)) {
42385 if (!PyErr_Occurred())
42386 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.csycon to C/Fortran array" );
42387 } else {
42388 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
42389
42390 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
42391 /* Processing variable anorm */
42392 f2py_success = float_from_pyobj(&anorm,anorm_capi,"_flapack.csycon() 3rd argument (anorm) can't be converted to float");
42393 if (f2py_success) {
42394 /* Processing variable rcond */
42395 /* Processing variable info */
42396 /* Processing variable n */
42397 n = shape(a,0)a_Dims[0];
42398 /* Processing variable lda */
42399 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
42400 /* Processing variable ipiv */
42401 ipiv_Dims[0]=n;
42402 capi_ipiv_intent |= F2PY_INTENT_IN1;
42403 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
42404 if (capi_ipiv_tmp == NULL((void*)0)) {
42405 if (!PyErr_Occurred())
42406 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ipiv' of _flapack.csycon to C/Fortran array" );
42407 } else {
42408 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
42409
42410 /* Processing variable work */
42411 work_Dims[0]=2 * n;
42412 capi_work_intent |= F2PY_INTENT_HIDE8;
42413 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
42414 if (capi_work_tmp == NULL((void*)0)) {
42415 if (!PyErr_Occurred())
42416 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.csycon to C/Fortran array" );
42417 } else {
42418 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
42419
42420/*end of frompyobj*/
42421#ifdef F2PY_REPORT_ATEXIT
42422f2py_start_call_clock();
42423#endif
42424/*callfortranroutine*/
42425 (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,&anorm,&rcond,work,&info) ;
42426 /*(*f2py_func)(&n,a,&lda,ipiv,&anorm,&rcond,work,&info,&lower);*/
42427if (PyErr_Occurred())
42428 f2py_success = 0;
42429#ifdef F2PY_REPORT_ATEXIT
42430f2py_stop_call_clock();
42431#endif
42432/*end of callfortranroutine*/
42433 if (f2py_success) {
42434/*pyobjfrom*/
42435/*end of pyobjfrom*/
42436 CFUNCSMESS("Building return value.\n");
42437 capi_buildvalue = Py_BuildValue("fi",rcond,info);
42438/*closepyobjfrom*/
42439/*end of closepyobjfrom*/
42440 } /*if (f2py_success) after callfortranroutine*/
42441/*cleanupfrompyobj*/
42442 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
42443 } /*if (capi_work_tmp == NULL) ... else of work*/
42444 /* End of cleaning variable work */
42445 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
42446 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
42447 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
42448 /* End of cleaning variable ipiv */
42449 /* End of cleaning variable lda */
42450 /* End of cleaning variable n */
42451 /* End of cleaning variable info */
42452 /* End of cleaning variable rcond */
42453 } /*if (f2py_success) of anorm*/
42454 /* End of cleaning variable anorm */
42455 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
42456 if((PyObject *)capi_a_tmp!=a_capi) {
42457 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
42458 } /*if (capi_a_tmp == NULL) ... else of a*/
42459 /* End of cleaning variable a */
42460 } /*CHECKSCALAR(lower==0||lower==1)*/
42461 } /*if (f2py_success) of lower*/
42462 /* End of cleaning variable lower */
42463/*end of cleanupfrompyobj*/
42464 if (capi_buildvalue == NULL((void*)0)) {
42465/*routdebugfailure*/
42466 } else {
42467/*routdebugleave*/
42468 }
42469 CFUNCSMESS("Freeing memory.\n");
42470/*freemem*/
42471#ifdef F2PY_REPORT_ATEXIT
42472f2py_stop_clock();
42473#endif
42474 return capi_buildvalue;
42475}
42476/******************************* end of csycon *******************************/
42477
42478/*********************************** zsycon ***********************************/
42479static char doc_f2py_rout__flapack_zsycon[] = "\
42480rcond,info = zsycon(a,ipiv,anorm,[lower])\n\nWrapper for ``zsycon``.\
42481\n\nParameters\n----------\n"
42482"a : input rank-2 array('D') with bounds (n,n)\n"
42483"ipiv : input rank-1 array('i') with bounds (n)\n"
42484"anorm : input float\n"
42485"\nOther Parameters\n----------------\n"
42486"lower : input int, optional\n Default: 0\n"
42487"\nReturns\n-------\n"
42488"rcond : float\n"
42489"info : int";
42490/* extern void F_FUNC(zsycon,ZSYCON)(char*,F_INT*,complex_double*,F_INT*,F_INT*,double*,double*,complex_double*,F_INT* ); */
42491static PyObject *f2py_rout__flapack_zsycon(const PyObject *capi_self,
42492 PyObject *capi_args,
42493 PyObject *capi_keywds,
42494 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,double*,complex_double*,F_INTint* )) {
42495 PyObject * volatile capi_buildvalue = NULL((void*)0);
42496 volatile int f2py_success = 1;
42497/*decl*/
42498
42499 int n = 0;
42500 complex_double *a = NULL((void*)0);
42501 npy_intp a_Dims[2] = {-1, -1};
42502 const int a_Rank = 2;
42503 PyArrayObject *capi_a_tmp = NULL((void*)0);
42504 int capi_a_intent = 0;
42505 PyObject *a_capi = Py_None(&_Py_NoneStruct);
42506 int lda = 0;
42507 int *ipiv = NULL((void*)0);
42508 npy_intp ipiv_Dims[1] = {-1};
42509 const int ipiv_Rank = 1;
42510 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
42511 int capi_ipiv_intent = 0;
42512 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
42513 double anorm = 0;
42514 PyObject *anorm_capi = Py_None(&_Py_NoneStruct);
42515 double rcond = 0;
42516 complex_double *work = NULL((void*)0);
42517 npy_intp work_Dims[1] = {-1};
42518 const int work_Rank = 1;
42519 PyArrayObject *capi_work_tmp = NULL((void*)0);
42520 int capi_work_intent = 0;
42521 int info = 0;
42522 int lower = 0;
42523 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
42524 static char *capi_kwlist[] = {"a","ipiv","anorm","lower",NULL((void*)0)};
42525
42526/*routdebugenter*/
42527#ifdef F2PY_REPORT_ATEXIT
42528f2py_start_clock();
42529#endif
42530 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
42531 "OOO|O:_flapack.zsycon",\
42532 capi_kwlist,&a_capi,&ipiv_capi,&anorm_capi,&lower_capi))
42533 return NULL((void*)0);
42534/*frompyobj*/
42535 /* Processing variable lower */
42536 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
42537 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zsycon() 1st keyword (lower) can't be converted to int");
42538 if (f2py_success) {
42539 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zsycon:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zsycon:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
42540 /* Processing variable a */
42541 ;
42542 capi_a_intent |= F2PY_INTENT_IN1;
42543 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
42544 if (capi_a_tmp == NULL((void*)0)) {
42545 if (!PyErr_Occurred())
42546 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zsycon to C/Fortran array" );
42547 } else {
42548 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
42549
42550 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
42551 /* Processing variable anorm */
42552 f2py_success = double_from_pyobj(&anorm,anorm_capi,"_flapack.zsycon() 3rd argument (anorm) can't be converted to double");
42553 if (f2py_success) {
42554 /* Processing variable rcond */
42555 /* Processing variable info */
42556 /* Processing variable n */
42557 n = shape(a,0)a_Dims[0];
42558 /* Processing variable lda */
42559 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
42560 /* Processing variable ipiv */
42561 ipiv_Dims[0]=n;
42562 capi_ipiv_intent |= F2PY_INTENT_IN1;
42563 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
42564 if (capi_ipiv_tmp == NULL((void*)0)) {
42565 if (!PyErr_Occurred())
42566 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ipiv' of _flapack.zsycon to C/Fortran array" );
42567 } else {
42568 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
42569
42570 /* Processing variable work */
42571 work_Dims[0]=2 * n;
42572 capi_work_intent |= F2PY_INTENT_HIDE8;
42573 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
42574 if (capi_work_tmp == NULL((void*)0)) {
42575 if (!PyErr_Occurred())
42576 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zsycon to C/Fortran array" );
42577 } else {
42578 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
42579
42580/*end of frompyobj*/
42581#ifdef F2PY_REPORT_ATEXIT
42582f2py_start_call_clock();
42583#endif
42584/*callfortranroutine*/
42585 (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,&anorm,&rcond,work,&info) ;
42586 /*(*f2py_func)(&n,a,&lda,ipiv,&anorm,&rcond,work,&info,&lower);*/
42587if (PyErr_Occurred())
42588 f2py_success = 0;
42589#ifdef F2PY_REPORT_ATEXIT
42590f2py_stop_call_clock();
42591#endif
42592/*end of callfortranroutine*/
42593 if (f2py_success) {
42594/*pyobjfrom*/
42595/*end of pyobjfrom*/
42596 CFUNCSMESS("Building return value.\n");
42597 capi_buildvalue = Py_BuildValue("di",rcond,info);
42598/*closepyobjfrom*/
42599/*end of closepyobjfrom*/
42600 } /*if (f2py_success) after callfortranroutine*/
42601/*cleanupfrompyobj*/
42602 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
42603 } /*if (capi_work_tmp == NULL) ... else of work*/
42604 /* End of cleaning variable work */
42605 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
42606 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
42607 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
42608 /* End of cleaning variable ipiv */
42609 /* End of cleaning variable lda */
42610 /* End of cleaning variable n */
42611 /* End of cleaning variable info */
42612 /* End of cleaning variable rcond */
42613 } /*if (f2py_success) of anorm*/
42614 /* End of cleaning variable anorm */
42615 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
42616 if((PyObject *)capi_a_tmp!=a_capi) {
42617 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
42618 } /*if (capi_a_tmp == NULL) ... else of a*/
42619 /* End of cleaning variable a */
42620 } /*CHECKSCALAR(lower==0||lower==1)*/
42621 } /*if (f2py_success) of lower*/
42622 /* End of cleaning variable lower */
42623/*end of cleanupfrompyobj*/
42624 if (capi_buildvalue == NULL((void*)0)) {
42625/*routdebugfailure*/
42626 } else {
42627/*routdebugleave*/
42628 }
42629 CFUNCSMESS("Freeing memory.\n");
42630/*freemem*/
42631#ifdef F2PY_REPORT_ATEXIT
42632f2py_stop_clock();
42633#endif
42634 return capi_buildvalue;
42635}
42636/******************************* end of zsycon *******************************/
42637
42638/*********************************** checon ***********************************/
42639static char doc_f2py_rout__flapack_checon[] = "\
42640rcond,info = checon(a,ipiv,anorm,[lower])\n\nWrapper for ``checon``.\
42641\n\nParameters\n----------\n"
42642"a : input rank-2 array('F') with bounds (n,n)\n"
42643"ipiv : input rank-1 array('i') with bounds (n)\n"
42644"anorm : input float\n"
42645"\nOther Parameters\n----------------\n"
42646"lower : input int, optional\n Default: 0\n"
42647"\nReturns\n-------\n"
42648"rcond : float\n"
42649"info : int";
42650/* extern void F_FUNC(checon,CHECON)(char*,F_INT*,complex_float*,F_INT*,F_INT*,float*,float*,complex_float*,F_INT* ); */
42651static PyObject *f2py_rout__flapack_checon(const PyObject *capi_self,
42652 PyObject *capi_args,
42653 PyObject *capi_keywds,
42654 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,float*,complex_float*,F_INTint* )) {
42655 PyObject * volatile capi_buildvalue = NULL((void*)0);
42656 volatile int f2py_success = 1;
42657/*decl*/
42658
42659 int n = 0;
42660 complex_float *a = NULL((void*)0);
42661 npy_intp a_Dims[2] = {-1, -1};
42662 const int a_Rank = 2;
42663 PyArrayObject *capi_a_tmp = NULL((void*)0);
42664 int capi_a_intent = 0;
42665 PyObject *a_capi = Py_None(&_Py_NoneStruct);
42666 int lda = 0;
42667 int *ipiv = NULL((void*)0);
42668 npy_intp ipiv_Dims[1] = {-1};
42669 const int ipiv_Rank = 1;
42670 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
42671 int capi_ipiv_intent = 0;
42672 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
42673 float anorm = 0;
42674 PyObject *anorm_capi = Py_None(&_Py_NoneStruct);
42675 float rcond = 0;
42676 complex_float *work = NULL((void*)0);
42677 npy_intp work_Dims[1] = {-1};
42678 const int work_Rank = 1;
42679 PyArrayObject *capi_work_tmp = NULL((void*)0);
42680 int capi_work_intent = 0;
42681 int info = 0;
42682 int lower = 0;
42683 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
42684 static char *capi_kwlist[] = {"a","ipiv","anorm","lower",NULL((void*)0)};
42685
42686/*routdebugenter*/
42687#ifdef F2PY_REPORT_ATEXIT
42688f2py_start_clock();
42689#endif
42690 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
42691 "OOO|O:_flapack.checon",\
42692 capi_kwlist,&a_capi,&ipiv_capi,&anorm_capi,&lower_capi))
42693 return NULL((void*)0);
42694/*frompyobj*/
42695 /* Processing variable lower */
42696 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
42697 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.checon() 1st keyword (lower) can't be converted to int");
42698 if (f2py_success) {
42699 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","checon:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""checon:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
42700 /* Processing variable a */
42701 ;
42702 capi_a_intent |= F2PY_INTENT_IN1;
42703 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
42704 if (capi_a_tmp == NULL((void*)0)) {
42705 if (!PyErr_Occurred())
42706 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.checon to C/Fortran array" );
42707 } else {
42708 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
42709
42710 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
42711 /* Processing variable anorm */
42712 f2py_success = float_from_pyobj(&anorm,anorm_capi,"_flapack.checon() 3rd argument (anorm) can't be converted to float");
42713 if (f2py_success) {
42714 /* Processing variable rcond */
42715 /* Processing variable info */
42716 /* Processing variable n */
42717 n = shape(a,0)a_Dims[0];
42718 /* Processing variable lda */
42719 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
42720 /* Processing variable ipiv */
42721 ipiv_Dims[0]=n;
42722 capi_ipiv_intent |= F2PY_INTENT_IN1;
42723 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
42724 if (capi_ipiv_tmp == NULL((void*)0)) {
42725 if (!PyErr_Occurred())
42726 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ipiv' of _flapack.checon to C/Fortran array" );
42727 } else {
42728 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
42729
42730 /* Processing variable work */
42731 work_Dims[0]=2 * n;
42732 capi_work_intent |= F2PY_INTENT_HIDE8;
42733 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
42734 if (capi_work_tmp == NULL((void*)0)) {
42735 if (!PyErr_Occurred())
42736 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.checon to C/Fortran array" );
42737 } else {
42738 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
42739
42740/*end of frompyobj*/
42741#ifdef F2PY_REPORT_ATEXIT
42742f2py_start_call_clock();
42743#endif
42744/*callfortranroutine*/
42745 (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,&anorm,&rcond,work,&info) ;
42746 /*(*f2py_func)(&n,a,&lda,ipiv,&anorm,&rcond,work,&info,&lower);*/
42747if (PyErr_Occurred())
42748 f2py_success = 0;
42749#ifdef F2PY_REPORT_ATEXIT
42750f2py_stop_call_clock();
42751#endif
42752/*end of callfortranroutine*/
42753 if (f2py_success) {
42754/*pyobjfrom*/
42755/*end of pyobjfrom*/
42756 CFUNCSMESS("Building return value.\n");
42757 capi_buildvalue = Py_BuildValue("fi",rcond,info);
42758/*closepyobjfrom*/
42759/*end of closepyobjfrom*/
42760 } /*if (f2py_success) after callfortranroutine*/
42761/*cleanupfrompyobj*/
42762 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
42763 } /*if (capi_work_tmp == NULL) ... else of work*/
42764 /* End of cleaning variable work */
42765 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
42766 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
42767 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
42768 /* End of cleaning variable ipiv */
42769 /* End of cleaning variable lda */
42770 /* End of cleaning variable n */
42771 /* End of cleaning variable info */
42772 /* End of cleaning variable rcond */
42773 } /*if (f2py_success) of anorm*/
42774 /* End of cleaning variable anorm */
42775 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
42776 if((PyObject *)capi_a_tmp!=a_capi) {
42777 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
42778 } /*if (capi_a_tmp == NULL) ... else of a*/
42779 /* End of cleaning variable a */
42780 } /*CHECKSCALAR(lower==0||lower==1)*/
42781 } /*if (f2py_success) of lower*/
42782 /* End of cleaning variable lower */
42783/*end of cleanupfrompyobj*/
42784 if (capi_buildvalue == NULL((void*)0)) {
42785/*routdebugfailure*/
42786 } else {
42787/*routdebugleave*/
42788 }
42789 CFUNCSMESS("Freeing memory.\n");
42790/*freemem*/
42791#ifdef F2PY_REPORT_ATEXIT
42792f2py_stop_clock();
42793#endif
42794 return capi_buildvalue;
42795}
42796/******************************* end of checon *******************************/
42797
42798/*********************************** zhecon ***********************************/
42799static char doc_f2py_rout__flapack_zhecon[] = "\
42800rcond,info = zhecon(a,ipiv,anorm,[lower])\n\nWrapper for ``zhecon``.\
42801\n\nParameters\n----------\n"
42802"a : input rank-2 array('D') with bounds (n,n)\n"
42803"ipiv : input rank-1 array('i') with bounds (n)\n"
42804"anorm : input float\n"
42805"\nOther Parameters\n----------------\n"
42806"lower : input int, optional\n Default: 0\n"
42807"\nReturns\n-------\n"
42808"rcond : float\n"
42809"info : int";
42810/* extern void F_FUNC(zhecon,ZHECON)(char*,F_INT*,complex_double*,F_INT*,F_INT*,double*,double*,complex_double*,F_INT* ); */
42811static PyObject *f2py_rout__flapack_zhecon(const PyObject *capi_self,
42812 PyObject *capi_args,
42813 PyObject *capi_keywds,
42814 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,double*,complex_double*,F_INTint* )) {
42815 PyObject * volatile capi_buildvalue = NULL((void*)0);
42816 volatile int f2py_success = 1;
42817/*decl*/
42818
42819 int n = 0;
42820 complex_double *a = NULL((void*)0);
42821 npy_intp a_Dims[2] = {-1, -1};
42822 const int a_Rank = 2;
42823 PyArrayObject *capi_a_tmp = NULL((void*)0);
42824 int capi_a_intent = 0;
42825 PyObject *a_capi = Py_None(&_Py_NoneStruct);
42826 int lda = 0;
42827 int *ipiv = NULL((void*)0);
42828 npy_intp ipiv_Dims[1] = {-1};
42829 const int ipiv_Rank = 1;
42830 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
42831 int capi_ipiv_intent = 0;
42832 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
42833 double anorm = 0;
42834 PyObject *anorm_capi = Py_None(&_Py_NoneStruct);
42835 double rcond = 0;
42836 complex_double *work = NULL((void*)0);
42837 npy_intp work_Dims[1] = {-1};
42838 const int work_Rank = 1;
42839 PyArrayObject *capi_work_tmp = NULL((void*)0);
42840 int capi_work_intent = 0;
42841 int info = 0;
42842 int lower = 0;
42843 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
42844 static char *capi_kwlist[] = {"a","ipiv","anorm","lower",NULL((void*)0)};
42845
42846/*routdebugenter*/
42847#ifdef F2PY_REPORT_ATEXIT
42848f2py_start_clock();
42849#endif
42850 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
42851 "OOO|O:_flapack.zhecon",\
42852 capi_kwlist,&a_capi,&ipiv_capi,&anorm_capi,&lower_capi))
42853 return NULL((void*)0);
42854/*frompyobj*/
42855 /* Processing variable lower */
42856 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
42857 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhecon() 1st keyword (lower) can't be converted to int");
42858 if (f2py_success) {
42859 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zhecon:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhecon:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
42860 /* Processing variable a */
42861 ;
42862 capi_a_intent |= F2PY_INTENT_IN1;
42863 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
42864 if (capi_a_tmp == NULL((void*)0)) {
42865 if (!PyErr_Occurred())
42866 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zhecon to C/Fortran array" );
42867 } else {
42868 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
42869
42870 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
42871 /* Processing variable anorm */
42872 f2py_success = double_from_pyobj(&anorm,anorm_capi,"_flapack.zhecon() 3rd argument (anorm) can't be converted to double");
42873 if (f2py_success) {
42874 /* Processing variable rcond */
42875 /* Processing variable info */
42876 /* Processing variable n */
42877 n = shape(a,0)a_Dims[0];
42878 /* Processing variable lda */
42879 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
42880 /* Processing variable ipiv */
42881 ipiv_Dims[0]=n;
42882 capi_ipiv_intent |= F2PY_INTENT_IN1;
42883 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
42884 if (capi_ipiv_tmp == NULL((void*)0)) {
42885 if (!PyErr_Occurred())
42886 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ipiv' of _flapack.zhecon to C/Fortran array" );
42887 } else {
42888 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
42889
42890 /* Processing variable work */
42891 work_Dims[0]=2 * n;
42892 capi_work_intent |= F2PY_INTENT_HIDE8;
42893 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
42894 if (capi_work_tmp == NULL((void*)0)) {
42895 if (!PyErr_Occurred())
42896 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zhecon to C/Fortran array" );
42897 } else {
42898 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
42899
42900/*end of frompyobj*/
42901#ifdef F2PY_REPORT_ATEXIT
42902f2py_start_call_clock();
42903#endif
42904/*callfortranroutine*/
42905 (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,&anorm,&rcond,work,&info) ;
42906 /*(*f2py_func)(&n,a,&lda,ipiv,&anorm,&rcond,work,&info,&lower);*/
42907if (PyErr_Occurred())
42908 f2py_success = 0;
42909#ifdef F2PY_REPORT_ATEXIT
42910f2py_stop_call_clock();
42911#endif
42912/*end of callfortranroutine*/
42913 if (f2py_success) {
42914/*pyobjfrom*/
42915/*end of pyobjfrom*/
42916 CFUNCSMESS("Building return value.\n");
42917 capi_buildvalue = Py_BuildValue("di",rcond,info);
42918/*closepyobjfrom*/
42919/*end of closepyobjfrom*/
42920 } /*if (f2py_success) after callfortranroutine*/
42921/*cleanupfrompyobj*/
42922 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
42923 } /*if (capi_work_tmp == NULL) ... else of work*/
42924 /* End of cleaning variable work */
42925 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
42926 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
42927 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
42928 /* End of cleaning variable ipiv */
42929 /* End of cleaning variable lda */
42930 /* End of cleaning variable n */
42931 /* End of cleaning variable info */
42932 /* End of cleaning variable rcond */
42933 } /*if (f2py_success) of anorm*/
42934 /* End of cleaning variable anorm */
42935 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
42936 if((PyObject *)capi_a_tmp!=a_capi) {
42937 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
42938 } /*if (capi_a_tmp == NULL) ... else of a*/
42939 /* End of cleaning variable a */
42940 } /*CHECKSCALAR(lower==0||lower==1)*/
42941 } /*if (f2py_success) of lower*/
42942 /* End of cleaning variable lower */
42943/*end of cleanupfrompyobj*/
42944 if (capi_buildvalue == NULL((void*)0)) {
42945/*routdebugfailure*/
42946 } else {
42947/*routdebugleave*/
42948 }
42949 CFUNCSMESS("Freeing memory.\n");
42950/*freemem*/
42951#ifdef F2PY_REPORT_ATEXIT
42952f2py_stop_clock();
42953#endif
42954 return capi_buildvalue;
42955}
42956/******************************* end of zhecon *******************************/
42957
42958/********************************** ssyconv **********************************/
42959static char doc_f2py_rout__flapack_ssyconv[] = "\
42960a,e,info = ssyconv(a,ipiv,[lower,way,overwrite_a])\n\nWrapper for ``ssyconv``.\
42961\n\nParameters\n----------\n"
42962"a : input rank-2 array('f') with bounds (n,n)\n"
42963"ipiv : input rank-1 array('i') with bounds (n)\n"
42964"\nOther Parameters\n----------------\n"
42965"lower : input int, optional\n Default: 0\n"
42966"way : input int, optional\n Default: 0\n"
42967"overwrite_a : input int, optional\n Default: 0\n"
42968"\nReturns\n-------\n"
42969"a : rank-2 array('f') with bounds (n,n)\n"
42970"e : rank-1 array('f') with bounds (n)\n"
42971"info : int";
42972/* extern void F_FUNC(ssyconv,SSYCONV)(char*,char*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT* ); */
42973static PyObject *f2py_rout__flapack_ssyconv(const PyObject *capi_self,
42974 PyObject *capi_args,
42975 PyObject *capi_keywds,
42976 void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint* )) {
42977 PyObject * volatile capi_buildvalue = NULL((void*)0);
42978 volatile int f2py_success = 1;
42979/*decl*/
42980
42981 int lower = 0;
42982 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
42983 int way = 0;
42984 PyObject *way_capi = Py_None(&_Py_NoneStruct);
42985 int n = 0;
42986 float *a = NULL((void*)0);
42987 npy_intp a_Dims[2] = {-1, -1};
42988 const int a_Rank = 2;
42989 PyArrayObject *capi_a_tmp = NULL((void*)0);
42990 int capi_a_intent = 0;
42991 int capi_overwrite_a = 0;
42992 PyObject *a_capi = Py_None(&_Py_NoneStruct);
42993 int lda = 0;
42994 int *ipiv = NULL((void*)0);
42995 npy_intp ipiv_Dims[1] = {-1};
42996 const int ipiv_Rank = 1;
42997 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
42998 int capi_ipiv_intent = 0;
42999 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
43000 float *e = NULL((void*)0);
43001 npy_intp e_Dims[1] = {-1};
43002 const int e_Rank = 1;
43003 PyArrayObject *capi_e_tmp = NULL((void*)0);
43004 int capi_e_intent = 0;
43005 int info = 0;
43006 static char *capi_kwlist[] = {"a","ipiv","lower","way","overwrite_a",NULL((void*)0)};
43007
43008/*routdebugenter*/
43009#ifdef F2PY_REPORT_ATEXIT
43010f2py_start_clock();
43011#endif
43012 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
43013 "OO|OOi:_flapack.ssyconv",\
43014 capi_kwlist,&a_capi,&ipiv_capi,&lower_capi,&way_capi,&capi_overwrite_a))
43015 return NULL((void*)0);
43016/*frompyobj*/
43017 /* Processing variable lower */
43018 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
43019 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssyconv() 1st keyword (lower) can't be converted to int");
43020 if (f2py_success) {
43021 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssyconv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyconv:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
43022 /* Processing variable way */
43023 if (way_capi == Py_None(&_Py_NoneStruct)) way = 0; else
43024 f2py_success = int_from_pyobj(&way,way_capi,"_flapack.ssyconv() 2nd keyword (way) can't be converted to int");
43025 if (f2py_success) {
43026 CHECKSCALAR(way==0||way==1,"way==0||way==1","2nd keyword way","ssyconv:way=%d",way)if (!(way==0||way==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyconv:way=%d", "(""way==0||way==1"") failed for "
"2nd keyword way", way); PyErr_SetString(_flapack_error,errstring
); } else
{
43027 /* Processing variable a */
43028 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
43029 ;
43030 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
43031 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
43032 if (capi_a_tmp == NULL((void*)0)) {
43033 if (!PyErr_Occurred())
43034 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssyconv to C/Fortran array" );
43035 } else {
43036 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
43037
43038 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
43039 /* Processing variable info */
43040 /* Processing variable n */
43041 n = shape(a,0)a_Dims[0];
43042 /* Processing variable lda */
43043 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
43044 /* Processing variable ipiv */
43045 ipiv_Dims[0]=n;
43046 capi_ipiv_intent |= F2PY_INTENT_IN1;
43047 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
43048 if (capi_ipiv_tmp == NULL((void*)0)) {
43049 if (!PyErr_Occurred())
43050 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ipiv' of _flapack.ssyconv to C/Fortran array" );
43051 } else {
43052 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
43053
43054 /* Processing variable e */
43055 e_Dims[0]=n;
43056 capi_e_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
43057 capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,Py_None(&_Py_NoneStruct));
43058 if (capi_e_tmp == NULL((void*)0)) {
43059 if (!PyErr_Occurred())
43060 PyErr_SetString(_flapack_error,"failed in converting hidden `e' of _flapack.ssyconv to C/Fortran array" );
43061 } else {
43062 e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
43063
43064/*end of frompyobj*/
43065#ifdef F2PY_REPORT_ATEXIT
43066f2py_start_call_clock();
43067#endif
43068/*callfortranroutine*/
43069 (*f2py_func)((lower?"L":"U"),(way?"R":"C"),&n,a,&lda,ipiv,e,&info) ;
43070 /*(*f2py_func)(&lower,&way,&n,a,&lda,ipiv,e,&info);*/
43071if (PyErr_Occurred())
43072 f2py_success = 0;
43073#ifdef F2PY_REPORT_ATEXIT
43074f2py_stop_call_clock();
43075#endif
43076/*end of callfortranroutine*/
43077 if (f2py_success) {
43078/*pyobjfrom*/
43079/*end of pyobjfrom*/
43080 CFUNCSMESS("Building return value.\n");
43081 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_e_tmp,info);
43082/*closepyobjfrom*/
43083/*end of closepyobjfrom*/
43084 } /*if (f2py_success) after callfortranroutine*/
43085/*cleanupfrompyobj*/
43086 } /*if (capi_e_tmp == NULL) ... else of e*/
43087 /* End of cleaning variable e */
43088 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
43089 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
43090 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
43091 /* End of cleaning variable ipiv */
43092 /* End of cleaning variable lda */
43093 /* End of cleaning variable n */
43094 /* End of cleaning variable info */
43095 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
43096 } /*if (capi_a_tmp == NULL) ... else of a*/
43097 /* End of cleaning variable a */
43098 } /*CHECKSCALAR(way==0||way==1)*/
43099 } /*if (f2py_success) of way*/
43100 /* End of cleaning variable way */
43101 } /*CHECKSCALAR(lower==0||lower==1)*/
43102 } /*if (f2py_success) of lower*/
43103 /* End of cleaning variable lower */
43104/*end of cleanupfrompyobj*/
43105 if (capi_buildvalue == NULL((void*)0)) {
43106/*routdebugfailure*/
43107 } else {
43108/*routdebugleave*/
43109 }
43110 CFUNCSMESS("Freeing memory.\n");
43111/*freemem*/
43112#ifdef F2PY_REPORT_ATEXIT
43113f2py_stop_clock();
43114#endif
43115 return capi_buildvalue;
43116}
43117/******************************* end of ssyconv *******************************/
43118
43119/********************************** dsyconv **********************************/
43120static char doc_f2py_rout__flapack_dsyconv[] = "\
43121a,e,info = dsyconv(a,ipiv,[lower,way,overwrite_a])\n\nWrapper for ``dsyconv``.\
43122\n\nParameters\n----------\n"
43123"a : input rank-2 array('d') with bounds (n,n)\n"
43124"ipiv : input rank-1 array('i') with bounds (n)\n"
43125"\nOther Parameters\n----------------\n"
43126"lower : input int, optional\n Default: 0\n"
43127"way : input int, optional\n Default: 0\n"
43128"overwrite_a : input int, optional\n Default: 0\n"
43129"\nReturns\n-------\n"
43130"a : rank-2 array('d') with bounds (n,n)\n"
43131"e : rank-1 array('d') with bounds (n)\n"
43132"info : int";
43133/* extern void F_FUNC(dsyconv,DSYCONV)(char*,char*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT* ); */
43134static PyObject *f2py_rout__flapack_dsyconv(const PyObject *capi_self,
43135 PyObject *capi_args,
43136 PyObject *capi_keywds,
43137 void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint* )) {
43138 PyObject * volatile capi_buildvalue = NULL((void*)0);
43139 volatile int f2py_success = 1;
43140/*decl*/
43141
43142 int lower = 0;
43143 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
43144 int way = 0;
43145 PyObject *way_capi = Py_None(&_Py_NoneStruct);
43146 int n = 0;
43147 double *a = NULL((void*)0);
43148 npy_intp a_Dims[2] = {-1, -1};
43149 const int a_Rank = 2;
43150 PyArrayObject *capi_a_tmp = NULL((void*)0);
43151 int capi_a_intent = 0;
43152 int capi_overwrite_a = 0;
43153 PyObject *a_capi = Py_None(&_Py_NoneStruct);
43154 int lda = 0;
43155 int *ipiv = NULL((void*)0);
43156 npy_intp ipiv_Dims[1] = {-1};
43157 const int ipiv_Rank = 1;
43158 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
43159 int capi_ipiv_intent = 0;
43160 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
43161 double *e = NULL((void*)0);
43162 npy_intp e_Dims[1] = {-1};
43163 const int e_Rank = 1;
43164 PyArrayObject *capi_e_tmp = NULL((void*)0);
43165 int capi_e_intent = 0;
43166 int info = 0;
43167 static char *capi_kwlist[] = {"a","ipiv","lower","way","overwrite_a",NULL((void*)0)};
43168
43169/*routdebugenter*/
43170#ifdef F2PY_REPORT_ATEXIT
43171f2py_start_clock();
43172#endif
43173 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
43174 "OO|OOi:_flapack.dsyconv",\
43175 capi_kwlist,&a_capi,&ipiv_capi,&lower_capi,&way_capi,&capi_overwrite_a))
43176 return NULL((void*)0);
43177/*frompyobj*/
43178 /* Processing variable lower */
43179 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
43180 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsyconv() 1st keyword (lower) can't be converted to int");
43181 if (f2py_success) {
43182 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsyconv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyconv:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
43183 /* Processing variable way */
43184 if (way_capi == Py_None(&_Py_NoneStruct)) way = 0; else
43185 f2py_success = int_from_pyobj(&way,way_capi,"_flapack.dsyconv() 2nd keyword (way) can't be converted to int");
43186 if (f2py_success) {
43187 CHECKSCALAR(way==0||way==1,"way==0||way==1","2nd keyword way","dsyconv:way=%d",way)if (!(way==0||way==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyconv:way=%d", "(""way==0||way==1"") failed for "
"2nd keyword way", way); PyErr_SetString(_flapack_error,errstring
); } else
{
43188 /* Processing variable a */
43189 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
43190 ;
43191 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
43192 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
43193 if (capi_a_tmp == NULL((void*)0)) {
43194 if (!PyErr_Occurred())
43195 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsyconv to C/Fortran array" );
43196 } else {
43197 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
43198
43199 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
43200 /* Processing variable info */
43201 /* Processing variable n */
43202 n = shape(a,0)a_Dims[0];
43203 /* Processing variable lda */
43204 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
43205 /* Processing variable ipiv */
43206 ipiv_Dims[0]=n;
43207 capi_ipiv_intent |= F2PY_INTENT_IN1;
43208 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
43209 if (capi_ipiv_tmp == NULL((void*)0)) {
43210 if (!PyErr_Occurred())
43211 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ipiv' of _flapack.dsyconv to C/Fortran array" );
43212 } else {
43213 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
43214
43215 /* Processing variable e */
43216 e_Dims[0]=n;
43217 capi_e_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
43218 capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,Py_None(&_Py_NoneStruct));
43219 if (capi_e_tmp == NULL((void*)0)) {
43220 if (!PyErr_Occurred())
43221 PyErr_SetString(_flapack_error,"failed in converting hidden `e' of _flapack.dsyconv to C/Fortran array" );
43222 } else {
43223 e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
43224
43225/*end of frompyobj*/
43226#ifdef F2PY_REPORT_ATEXIT
43227f2py_start_call_clock();
43228#endif
43229/*callfortranroutine*/
43230 (*f2py_func)((lower?"L":"U"),(way?"R":"C"),&n,a,&lda,ipiv,e,&info) ;
43231 /*(*f2py_func)(&lower,&way,&n,a,&lda,ipiv,e,&info);*/
43232if (PyErr_Occurred())
43233 f2py_success = 0;
43234#ifdef F2PY_REPORT_ATEXIT
43235f2py_stop_call_clock();
43236#endif
43237/*end of callfortranroutine*/
43238 if (f2py_success) {
43239/*pyobjfrom*/
43240/*end of pyobjfrom*/
43241 CFUNCSMESS("Building return value.\n");
43242 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_e_tmp,info);
43243/*closepyobjfrom*/
43244/*end of closepyobjfrom*/
43245 } /*if (f2py_success) after callfortranroutine*/
43246/*cleanupfrompyobj*/
43247 } /*if (capi_e_tmp == NULL) ... else of e*/
43248 /* End of cleaning variable e */
43249 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
43250 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
43251 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
43252 /* End of cleaning variable ipiv */
43253 /* End of cleaning variable lda */
43254 /* End of cleaning variable n */
43255 /* End of cleaning variable info */
43256 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
43257 } /*if (capi_a_tmp == NULL) ... else of a*/
43258 /* End of cleaning variable a */
43259 } /*CHECKSCALAR(way==0||way==1)*/
43260 } /*if (f2py_success) of way*/
43261 /* End of cleaning variable way */
43262 } /*CHECKSCALAR(lower==0||lower==1)*/
43263 } /*if (f2py_success) of lower*/
43264 /* End of cleaning variable lower */
43265/*end of cleanupfrompyobj*/
43266 if (capi_buildvalue == NULL((void*)0)) {
43267/*routdebugfailure*/
43268 } else {
43269/*routdebugleave*/
43270 }
43271 CFUNCSMESS("Freeing memory.\n");
43272/*freemem*/
43273#ifdef F2PY_REPORT_ATEXIT
43274f2py_stop_clock();
43275#endif
43276 return capi_buildvalue;
43277}
43278/******************************* end of dsyconv *******************************/
43279
43280/********************************** csyconv **********************************/
43281static char doc_f2py_rout__flapack_csyconv[] = "\
43282a,e,info = csyconv(a,ipiv,[lower,way,overwrite_a])\n\nWrapper for ``csyconv``.\
43283\n\nParameters\n----------\n"
43284"a : input rank-2 array('F') with bounds (n,n)\n"
43285"ipiv : input rank-1 array('i') with bounds (n)\n"
43286"\nOther Parameters\n----------------\n"
43287"lower : input int, optional\n Default: 0\n"
43288"way : input int, optional\n Default: 0\n"
43289"overwrite_a : input int, optional\n Default: 0\n"
43290"\nReturns\n-------\n"
43291"a : rank-2 array('F') with bounds (n,n)\n"
43292"e : rank-1 array('F') with bounds (n)\n"
43293"info : int";
43294/* extern void F_FUNC(csyconv,CSYCONV)(char*,char*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT* ); */
43295static PyObject *f2py_rout__flapack_csyconv(const PyObject *capi_self,
43296 PyObject *capi_args,
43297 PyObject *capi_keywds,
43298 void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint* )) {
43299 PyObject * volatile capi_buildvalue = NULL((void*)0);
43300 volatile int f2py_success = 1;
43301/*decl*/
43302
43303 int lower = 0;
43304 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
43305 int way = 0;
43306 PyObject *way_capi = Py_None(&_Py_NoneStruct);
43307 int n = 0;
43308 complex_float *a = NULL((void*)0);
43309 npy_intp a_Dims[2] = {-1, -1};
43310 const int a_Rank = 2;
43311 PyArrayObject *capi_a_tmp = NULL((void*)0);
43312 int capi_a_intent = 0;
43313 int capi_overwrite_a = 0;
43314 PyObject *a_capi = Py_None(&_Py_NoneStruct);
43315 int lda = 0;
43316 int *ipiv = NULL((void*)0);
43317 npy_intp ipiv_Dims[1] = {-1};
43318 const int ipiv_Rank = 1;
43319 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
43320 int capi_ipiv_intent = 0;
43321 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
43322 complex_float *e = NULL((void*)0);
43323 npy_intp e_Dims[1] = {-1};
43324 const int e_Rank = 1;
43325 PyArrayObject *capi_e_tmp = NULL((void*)0);
43326 int capi_e_intent = 0;
43327 int info = 0;
43328 static char *capi_kwlist[] = {"a","ipiv","lower","way","overwrite_a",NULL((void*)0)};
43329
43330/*routdebugenter*/
43331#ifdef F2PY_REPORT_ATEXIT
43332f2py_start_clock();
43333#endif
43334 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
43335 "OO|OOi:_flapack.csyconv",\
43336 capi_kwlist,&a_capi,&ipiv_capi,&lower_capi,&way_capi,&capi_overwrite_a))
43337 return NULL((void*)0);
43338/*frompyobj*/
43339 /* Processing variable lower */
43340 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
43341 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.csyconv() 1st keyword (lower) can't be converted to int");
43342 if (f2py_success) {
43343 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","csyconv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""csyconv:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
43344 /* Processing variable way */
43345 if (way_capi == Py_None(&_Py_NoneStruct)) way = 0; else
43346 f2py_success = int_from_pyobj(&way,way_capi,"_flapack.csyconv() 2nd keyword (way) can't be converted to int");
43347 if (f2py_success) {
43348 CHECKSCALAR(way==0||way==1,"way==0||way==1","2nd keyword way","csyconv:way=%d",way)if (!(way==0||way==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""csyconv:way=%d", "(""way==0||way==1"") failed for "
"2nd keyword way", way); PyErr_SetString(_flapack_error,errstring
); } else
{
43349 /* Processing variable a */
43350 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
43351 ;
43352 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
43353 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
43354 if (capi_a_tmp == NULL((void*)0)) {
43355 if (!PyErr_Occurred())
43356 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.csyconv to C/Fortran array" );
43357 } else {
43358 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
43359
43360 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
43361 /* Processing variable info */
43362 /* Processing variable n */
43363 n = shape(a,0)a_Dims[0];
43364 /* Processing variable lda */
43365 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
43366 /* Processing variable ipiv */
43367 ipiv_Dims[0]=n;
43368 capi_ipiv_intent |= F2PY_INTENT_IN1;
43369 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
43370 if (capi_ipiv_tmp == NULL((void*)0)) {
43371 if (!PyErr_Occurred())
43372 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ipiv' of _flapack.csyconv to C/Fortran array" );
43373 } else {
43374 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
43375
43376 /* Processing variable e */
43377 e_Dims[0]=n;
43378 capi_e_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
43379 capi_e_tmp = array_from_pyobj(NPY_CFLOAT,e_Dims,e_Rank,capi_e_intent,Py_None(&_Py_NoneStruct));
43380 if (capi_e_tmp == NULL((void*)0)) {
43381 if (!PyErr_Occurred())
43382 PyErr_SetString(_flapack_error,"failed in converting hidden `e' of _flapack.csyconv to C/Fortran array" );
43383 } else {
43384 e = (complex_float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
43385
43386/*end of frompyobj*/
43387#ifdef F2PY_REPORT_ATEXIT
43388f2py_start_call_clock();
43389#endif
43390/*callfortranroutine*/
43391 (*f2py_func)((lower?"L":"U"),(way?"R":"C"),&n,a,&lda,ipiv,e,&info) ;
43392 /*(*f2py_func)(&lower,&way,&n,a,&lda,ipiv,e,&info);*/
43393if (PyErr_Occurred())
43394 f2py_success = 0;
43395#ifdef F2PY_REPORT_ATEXIT
43396f2py_stop_call_clock();
43397#endif
43398/*end of callfortranroutine*/
43399 if (f2py_success) {
43400/*pyobjfrom*/
43401/*end of pyobjfrom*/
43402 CFUNCSMESS("Building return value.\n");
43403 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_e_tmp,info);
43404/*closepyobjfrom*/
43405/*end of closepyobjfrom*/
43406 } /*if (f2py_success) after callfortranroutine*/
43407/*cleanupfrompyobj*/
43408 } /*if (capi_e_tmp == NULL) ... else of e*/
43409 /* End of cleaning variable e */
43410 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
43411 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
43412 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
43413 /* End of cleaning variable ipiv */
43414 /* End of cleaning variable lda */
43415 /* End of cleaning variable n */
43416 /* End of cleaning variable info */
43417 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
43418 } /*if (capi_a_tmp == NULL) ... else of a*/
43419 /* End of cleaning variable a */
43420 } /*CHECKSCALAR(way==0||way==1)*/
43421 } /*if (f2py_success) of way*/
43422 /* End of cleaning variable way */
43423 } /*CHECKSCALAR(lower==0||lower==1)*/
43424 } /*if (f2py_success) of lower*/
43425 /* End of cleaning variable lower */
43426/*end of cleanupfrompyobj*/
43427 if (capi_buildvalue == NULL((void*)0)) {
43428/*routdebugfailure*/
43429 } else {
43430/*routdebugleave*/
43431 }
43432 CFUNCSMESS("Freeing memory.\n");
43433/*freemem*/
43434#ifdef F2PY_REPORT_ATEXIT
43435f2py_stop_clock();
43436#endif
43437 return capi_buildvalue;
43438}
43439/******************************* end of csyconv *******************************/
43440
43441/********************************** zsyconv **********************************/
43442static char doc_f2py_rout__flapack_zsyconv[] = "\
43443a,e,info = zsyconv(a,ipiv,[lower,way,overwrite_a])\n\nWrapper for ``zsyconv``.\
43444\n\nParameters\n----------\n"
43445"a : input rank-2 array('D') with bounds (n,n)\n"
43446"ipiv : input rank-1 array('i') with bounds (n)\n"
43447"\nOther Parameters\n----------------\n"
43448"lower : input int, optional\n Default: 0\n"
43449"way : input int, optional\n Default: 0\n"
43450"overwrite_a : input int, optional\n Default: 0\n"
43451"\nReturns\n-------\n"
43452"a : rank-2 array('D') with bounds (n,n)\n"
43453"e : rank-1 array('D') with bounds (n)\n"
43454"info : int";
43455/* extern void F_FUNC(zsyconv,ZSYCONV)(char*,char*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT* ); */
43456static PyObject *f2py_rout__flapack_zsyconv(const PyObject *capi_self,
43457 PyObject *capi_args,
43458 PyObject *capi_keywds,
43459 void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint* )) {
43460 PyObject * volatile capi_buildvalue = NULL((void*)0);
43461 volatile int f2py_success = 1;
43462/*decl*/
43463
43464 int lower = 0;
43465 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
43466 int way = 0;
43467 PyObject *way_capi = Py_None(&_Py_NoneStruct);
43468 int n = 0;
43469 complex_double *a = NULL((void*)0);
43470 npy_intp a_Dims[2] = {-1, -1};
43471 const int a_Rank = 2;
43472 PyArrayObject *capi_a_tmp = NULL((void*)0);
43473 int capi_a_intent = 0;
43474 int capi_overwrite_a = 0;
43475 PyObject *a_capi = Py_None(&_Py_NoneStruct);
43476 int lda = 0;
43477 int *ipiv = NULL((void*)0);
43478 npy_intp ipiv_Dims[1] = {-1};
43479 const int ipiv_Rank = 1;
43480 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
43481 int capi_ipiv_intent = 0;
43482 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
43483 complex_double *e = NULL((void*)0);
43484 npy_intp e_Dims[1] = {-1};
43485 const int e_Rank = 1;
43486 PyArrayObject *capi_e_tmp = NULL((void*)0);
43487 int capi_e_intent = 0;
43488 int info = 0;
43489 static char *capi_kwlist[] = {"a","ipiv","lower","way","overwrite_a",NULL((void*)0)};
43490
43491/*routdebugenter*/
43492#ifdef F2PY_REPORT_ATEXIT
43493f2py_start_clock();
43494#endif
43495 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
43496 "OO|OOi:_flapack.zsyconv",\
43497 capi_kwlist,&a_capi,&ipiv_capi,&lower_capi,&way_capi,&capi_overwrite_a))
43498 return NULL((void*)0);
43499/*frompyobj*/
43500 /* Processing variable lower */
43501 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
43502 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zsyconv() 1st keyword (lower) can't be converted to int");
43503 if (f2py_success) {
43504 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zsyconv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zsyconv:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
43505 /* Processing variable way */
43506 if (way_capi == Py_None(&_Py_NoneStruct)) way = 0; else
43507 f2py_success = int_from_pyobj(&way,way_capi,"_flapack.zsyconv() 2nd keyword (way) can't be converted to int");
43508 if (f2py_success) {
43509 CHECKSCALAR(way==0||way==1,"way==0||way==1","2nd keyword way","zsyconv:way=%d",way)if (!(way==0||way==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zsyconv:way=%d", "(""way==0||way==1"") failed for "
"2nd keyword way", way); PyErr_SetString(_flapack_error,errstring
); } else
{
43510 /* Processing variable a */
43511 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
43512 ;
43513 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
43514 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
43515 if (capi_a_tmp == NULL((void*)0)) {
43516 if (!PyErr_Occurred())
43517 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zsyconv to C/Fortran array" );
43518 } else {
43519 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
43520
43521 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
43522 /* Processing variable info */
43523 /* Processing variable n */
43524 n = shape(a,0)a_Dims[0];
43525 /* Processing variable lda */
43526 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
43527 /* Processing variable ipiv */
43528 ipiv_Dims[0]=n;
43529 capi_ipiv_intent |= F2PY_INTENT_IN1;
43530 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
43531 if (capi_ipiv_tmp == NULL((void*)0)) {
43532 if (!PyErr_Occurred())
43533 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ipiv' of _flapack.zsyconv to C/Fortran array" );
43534 } else {
43535 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
43536
43537 /* Processing variable e */
43538 e_Dims[0]=n;
43539 capi_e_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
43540 capi_e_tmp = array_from_pyobj(NPY_CDOUBLE,e_Dims,e_Rank,capi_e_intent,Py_None(&_Py_NoneStruct));
43541 if (capi_e_tmp == NULL((void*)0)) {
43542 if (!PyErr_Occurred())
43543 PyErr_SetString(_flapack_error,"failed in converting hidden `e' of _flapack.zsyconv to C/Fortran array" );
43544 } else {
43545 e = (complex_double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
43546
43547/*end of frompyobj*/
43548#ifdef F2PY_REPORT_ATEXIT
43549f2py_start_call_clock();
43550#endif
43551/*callfortranroutine*/
43552 (*f2py_func)((lower?"L":"U"),(way?"R":"C"),&n,a,&lda,ipiv,e,&info) ;
43553 /*(*f2py_func)(&lower,&way,&n,a,&lda,ipiv,e,&info);*/
43554if (PyErr_Occurred())
43555 f2py_success = 0;
43556#ifdef F2PY_REPORT_ATEXIT
43557f2py_stop_call_clock();
43558#endif
43559/*end of callfortranroutine*/
43560 if (f2py_success) {
43561/*pyobjfrom*/
43562/*end of pyobjfrom*/
43563 CFUNCSMESS("Building return value.\n");
43564 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_e_tmp,info);
43565/*closepyobjfrom*/
43566/*end of closepyobjfrom*/
43567 } /*if (f2py_success) after callfortranroutine*/
43568/*cleanupfrompyobj*/
43569 } /*if (capi_e_tmp == NULL) ... else of e*/
43570 /* End of cleaning variable e */
43571 if((PyObject *)capi_ipiv_tmp!=ipiv_capi) {
43572 Py_XDECREF(capi_ipiv_tmp)_Py_XDECREF(((PyObject*)(capi_ipiv_tmp))); }
43573 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
43574 /* End of cleaning variable ipiv */
43575 /* End of cleaning variable lda */
43576 /* End of cleaning variable n */
43577 /* End of cleaning variable info */
43578 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
43579 } /*if (capi_a_tmp == NULL) ... else of a*/
43580 /* End of cleaning variable a */
43581 } /*CHECKSCALAR(way==0||way==1)*/
43582 } /*if (f2py_success) of way*/
43583 /* End of cleaning variable way */
43584 } /*CHECKSCALAR(lower==0||lower==1)*/
43585 } /*if (f2py_success) of lower*/
43586 /* End of cleaning variable lower */
43587/*end of cleanupfrompyobj*/
43588 if (capi_buildvalue == NULL((void*)0)) {
43589/*routdebugfailure*/
43590 } else {
43591/*routdebugleave*/
43592 }
43593 CFUNCSMESS("Freeing memory.\n");
43594/*freemem*/
43595#ifdef F2PY_REPORT_ATEXIT
43596f2py_stop_clock();
43597#endif
43598 return capi_buildvalue;
43599}
43600/******************************* end of zsyconv *******************************/
43601
43602/*********************************** chegst ***********************************/
43603static char doc_f2py_rout__flapack_chegst[] = "\
43604c,info = chegst(a,b,[itype,lower,overwrite_a])\n\nWrapper for ``chegst``.\
43605\n\nParameters\n----------\n"
43606"a : input rank-2 array('F') with bounds (n,n)\n"
43607"b : input rank-2 array('F') with bounds (n,n)\n"
43608"\nOther Parameters\n----------------\n"
43609"overwrite_a : input int, optional\n Default: 0\n"
43610"itype : input int, optional\n Default: 1\n"
43611"lower : input int, optional\n Default: 0\n"
43612"\nReturns\n-------\n"
43613"c : rank-2 array('F') with bounds (n,n) and a storage\n"
43614"info : int";
43615/* extern void F_FUNC(chegst,CHEGST)(F_INT*,char*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */
43616static PyObject *f2py_rout__flapack_chegst(const PyObject *capi_self,
43617 PyObject *capi_args,
43618 PyObject *capi_keywds,
43619 void (*f2py_func)(F_INTint*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
43620 PyObject * volatile capi_buildvalue = NULL((void*)0);
43621 volatile int f2py_success = 1;
43622/*decl*/
43623
43624 int n = 0;
43625 complex_float *a = NULL((void*)0);
43626 npy_intp a_Dims[2] = {-1, -1};
43627 const int a_Rank = 2;
43628 PyArrayObject *capi_a_tmp = NULL((void*)0);
43629 int capi_a_intent = 0;
43630 int capi_overwrite_a = 0;
43631 PyObject *a_capi = Py_None(&_Py_NoneStruct);
43632 int lda = 0;
43633 complex_float *b = NULL((void*)0);
43634 npy_intp b_Dims[2] = {-1, -1};
43635 const int b_Rank = 2;
43636 PyArrayObject *capi_b_tmp = NULL((void*)0);
43637 int capi_b_intent = 0;
43638 PyObject *b_capi = Py_None(&_Py_NoneStruct);
43639 int ldb = 0;
43640 int info = 0;
43641 int itype = 0;
43642 PyObject *itype_capi = Py_None(&_Py_NoneStruct);
43643 int lower = 0;
43644 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
43645 static char *capi_kwlist[] = {"a","b","itype","lower","overwrite_a",NULL((void*)0)};
43646
43647/*routdebugenter*/
43648#ifdef F2PY_REPORT_ATEXIT
43649f2py_start_clock();
43650#endif
43651 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
43652 "OO|OOi:_flapack.chegst",\
43653 capi_kwlist,&a_capi,&b_capi,&itype_capi,&lower_capi,&capi_overwrite_a))
43654 return NULL((void*)0);
43655/*frompyobj*/
43656 /* Processing variable itype */
43657 if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else
43658 f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.chegst() 1st keyword (itype) can't be converted to int");
43659 if (f2py_success) {
43660 CHECKSCALAR(itype==1||itype==2||itype==3,"itype==1||itype==2||itype==3","1st keyword itype","chegst:itype=%d",itype)if (!(itype==1||itype==2||itype==3)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chegst:itype=%d", "(""itype==1||itype==2||itype==3"
") failed for ""1st keyword itype", itype); PyErr_SetString(_flapack_error
,errstring); } else
{
43661 /* Processing variable lower */
43662 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
43663 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chegst() 2nd keyword (lower) can't be converted to int");
43664 if (f2py_success) {
43665 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","chegst:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chegst:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
43666 /* Processing variable a */
43667 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
43668 ;
43669 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
43670 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
43671 if (capi_a_tmp == NULL((void*)0)) {
43672 if (!PyErr_Occurred())
43673 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.chegst to C/Fortran array" );
43674 } else {
43675 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
43676
43677 /* Processing variable info */
43678 /* Processing variable n */
43679 n = shape(a,0)a_Dims[0];
43680 /* Processing variable lda */
43681 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
43682 /* Processing variable b */
43683 b_Dims[0]=n,b_Dims[1]=n;
43684 capi_b_intent |= F2PY_INTENT_IN1;
43685 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
43686 if (capi_b_tmp == NULL((void*)0)) {
43687 if (!PyErr_Occurred())
43688 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.chegst to C/Fortran array" );
43689 } else {
43690 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
43691
43692 /* Processing variable ldb */
43693 ldb = max(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1));
43694/*end of frompyobj*/
43695#ifdef F2PY_REPORT_ATEXIT
43696f2py_start_call_clock();
43697#endif
43698/*callfortranroutine*/
43699 (*f2py_func)(&itype,(lower?"L":"U"),&n,a,&lda,b,&ldb,&info) ;
43700 /*(*f2py_func)(&n,a,&lda,b,&ldb,&info,&itype,&lower);*/
43701if (PyErr_Occurred())
43702 f2py_success = 0;
43703#ifdef F2PY_REPORT_ATEXIT
43704f2py_stop_call_clock();
43705#endif
43706/*end of callfortranroutine*/
43707 if (f2py_success) {
43708/*pyobjfrom*/
43709/*end of pyobjfrom*/
43710 CFUNCSMESS("Building return value.\n");
43711 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
43712/*closepyobjfrom*/
43713/*end of closepyobjfrom*/
43714 } /*if (f2py_success) after callfortranroutine*/
43715/*cleanupfrompyobj*/
43716 /* End of cleaning variable ldb */
43717 if((PyObject *)capi_b_tmp!=b_capi) {
43718 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
43719 } /*if (capi_b_tmp == NULL) ... else of b*/
43720 /* End of cleaning variable b */
43721 /* End of cleaning variable lda */
43722 /* End of cleaning variable n */
43723 /* End of cleaning variable info */
43724 } /*if (capi_a_tmp == NULL) ... else of a*/
43725 /* End of cleaning variable a */
43726 } /*CHECKSCALAR(lower==0||lower==1)*/
43727 } /*if (f2py_success) of lower*/
43728 /* End of cleaning variable lower */
43729 } /*CHECKSCALAR(itype==1||itype==2||itype==3)*/
43730 } /*if (f2py_success) of itype*/
43731 /* End of cleaning variable itype */
43732/*end of cleanupfrompyobj*/
43733 if (capi_buildvalue == NULL((void*)0)) {
43734/*routdebugfailure*/
43735 } else {
43736/*routdebugleave*/
43737 }
43738 CFUNCSMESS("Freeing memory.\n");
43739/*freemem*/
43740#ifdef F2PY_REPORT_ATEXIT
43741f2py_stop_clock();
43742#endif
43743 return capi_buildvalue;
43744}
43745/******************************* end of chegst *******************************/
43746
43747/*********************************** zhegst ***********************************/
43748static char doc_f2py_rout__flapack_zhegst[] = "\
43749c,info = zhegst(a,b,[itype,lower,overwrite_a])\n\nWrapper for ``zhegst``.\
43750\n\nParameters\n----------\n"
43751"a : input rank-2 array('D') with bounds (n,n)\n"
43752"b : input rank-2 array('D') with bounds (n,n)\n"
43753"\nOther Parameters\n----------------\n"
43754"overwrite_a : input int, optional\n Default: 0\n"
43755"itype : input int, optional\n Default: 1\n"
43756"lower : input int, optional\n Default: 0\n"
43757"\nReturns\n-------\n"
43758"c : rank-2 array('D') with bounds (n,n) and a storage\n"
43759"info : int";
43760/* extern void F_FUNC(zhegst,ZHEGST)(F_INT*,char*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */
43761static PyObject *f2py_rout__flapack_zhegst(const PyObject *capi_self,
43762 PyObject *capi_args,
43763 PyObject *capi_keywds,
43764 void (*f2py_func)(F_INTint*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
43765 PyObject * volatile capi_buildvalue = NULL((void*)0);
43766 volatile int f2py_success = 1;
43767/*decl*/
43768
43769 int n = 0;
43770 complex_double *a = NULL((void*)0);
43771 npy_intp a_Dims[2] = {-1, -1};
43772 const int a_Rank = 2;
43773 PyArrayObject *capi_a_tmp = NULL((void*)0);
43774 int capi_a_intent = 0;
43775 int capi_overwrite_a = 0;
43776 PyObject *a_capi = Py_None(&_Py_NoneStruct);
43777 int lda = 0;
43778 complex_double *b = NULL((void*)0);
43779 npy_intp b_Dims[2] = {-1, -1};
43780 const int b_Rank = 2;
43781 PyArrayObject *capi_b_tmp = NULL((void*)0);
43782 int capi_b_intent = 0;
43783 PyObject *b_capi = Py_None(&_Py_NoneStruct);
43784 int ldb = 0;
43785 int info = 0;
43786 int itype = 0;
43787 PyObject *itype_capi = Py_None(&_Py_NoneStruct);
43788 int lower = 0;
43789 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
43790 static char *capi_kwlist[] = {"a","b","itype","lower","overwrite_a",NULL((void*)0)};
43791
43792/*routdebugenter*/
43793#ifdef F2PY_REPORT_ATEXIT
43794f2py_start_clock();
43795#endif
43796 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
43797 "OO|OOi:_flapack.zhegst",\
43798 capi_kwlist,&a_capi,&b_capi,&itype_capi,&lower_capi,&capi_overwrite_a))
43799 return NULL((void*)0);
43800/*frompyobj*/
43801 /* Processing variable itype */
43802 if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else
43803 f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.zhegst() 1st keyword (itype) can't be converted to int");
43804 if (f2py_success) {
43805 CHECKSCALAR(itype==1||itype==2||itype==3,"itype==1||itype==2||itype==3","1st keyword itype","zhegst:itype=%d",itype)if (!(itype==1||itype==2||itype==3)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhegst:itype=%d", "(""itype==1||itype==2||itype==3"
") failed for ""1st keyword itype", itype); PyErr_SetString(_flapack_error
,errstring); } else
{
43806 /* Processing variable lower */
43807 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
43808 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhegst() 2nd keyword (lower) can't be converted to int");
43809 if (f2py_success) {
43810 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","zhegst:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhegst:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
43811 /* Processing variable a */
43812 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
43813 ;
43814 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
43815 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
43816 if (capi_a_tmp == NULL((void*)0)) {
43817 if (!PyErr_Occurred())
43818 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zhegst to C/Fortran array" );
43819 } else {
43820 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
43821
43822 /* Processing variable info */
43823 /* Processing variable n */
43824 n = shape(a,0)a_Dims[0];
43825 /* Processing variable lda */
43826 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
43827 /* Processing variable b */
43828 b_Dims[0]=n,b_Dims[1]=n;
43829 capi_b_intent |= F2PY_INTENT_IN1;
43830 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
43831 if (capi_b_tmp == NULL((void*)0)) {
43832 if (!PyErr_Occurred())
43833 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zhegst to C/Fortran array" );
43834 } else {
43835 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
43836
43837 /* Processing variable ldb */
43838 ldb = max(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1));
43839/*end of frompyobj*/
43840#ifdef F2PY_REPORT_ATEXIT
43841f2py_start_call_clock();
43842#endif
43843/*callfortranroutine*/
43844 (*f2py_func)(&itype,(lower?"L":"U"),&n,a,&lda,b,&ldb,&info) ;
43845 /*(*f2py_func)(&n,a,&lda,b,&ldb,&info,&itype,&lower);*/
43846if (PyErr_Occurred())
43847 f2py_success = 0;
43848#ifdef F2PY_REPORT_ATEXIT
43849f2py_stop_call_clock();
43850#endif
43851/*end of callfortranroutine*/
43852 if (f2py_success) {
43853/*pyobjfrom*/
43854/*end of pyobjfrom*/
43855 CFUNCSMESS("Building return value.\n");
43856 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
43857/*closepyobjfrom*/
43858/*end of closepyobjfrom*/
43859 } /*if (f2py_success) after callfortranroutine*/
43860/*cleanupfrompyobj*/
43861 /* End of cleaning variable ldb */
43862 if((PyObject *)capi_b_tmp!=b_capi) {
43863 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
43864 } /*if (capi_b_tmp == NULL) ... else of b*/
43865 /* End of cleaning variable b */
43866 /* End of cleaning variable lda */
43867 /* End of cleaning variable n */
43868 /* End of cleaning variable info */
43869 } /*if (capi_a_tmp == NULL) ... else of a*/
43870 /* End of cleaning variable a */
43871 } /*CHECKSCALAR(lower==0||lower==1)*/
43872 } /*if (f2py_success) of lower*/
43873 /* End of cleaning variable lower */
43874 } /*CHECKSCALAR(itype==1||itype==2||itype==3)*/
43875 } /*if (f2py_success) of itype*/
43876 /* End of cleaning variable itype */
43877/*end of cleanupfrompyobj*/
43878 if (capi_buildvalue == NULL((void*)0)) {
43879/*routdebugfailure*/
43880 } else {
43881/*routdebugleave*/
43882 }
43883 CFUNCSMESS("Freeing memory.\n");
43884/*freemem*/
43885#ifdef F2PY_REPORT_ATEXIT
43886f2py_stop_clock();
43887#endif
43888 return capi_buildvalue;
43889}
43890/******************************* end of zhegst *******************************/
43891
43892/*********************************** chetrf ***********************************/
43893static char doc_f2py_rout__flapack_chetrf[] = "\
43894ldu,ipiv,info = chetrf(a,[lower,lwork,overwrite_a])\n\nWrapper for ``chetrf``.\
43895\n\nParameters\n----------\n"
43896"a : input rank-2 array('F') with bounds (n,n)\n"
43897"\nOther Parameters\n----------------\n"
43898"lower : input int, optional\n Default: 0\n"
43899"overwrite_a : input int, optional\n Default: 0\n"
43900"lwork : input int, optional\n Default: max(n,1)\n"
43901"\nReturns\n-------\n"
43902"ldu : rank-2 array('F') with bounds (n,n) and a storage\n"
43903"ipiv : rank-1 array('i') with bounds (n)\n"
43904"info : int";
43905/* extern void F_FUNC(chetrf,CHETRF)(char*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */
43906static PyObject *f2py_rout__flapack_chetrf(const PyObject *capi_self,
43907 PyObject *capi_args,
43908 PyObject *capi_keywds,
43909 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
43910 PyObject * volatile capi_buildvalue = NULL((void*)0);
43911 volatile int f2py_success = 1;
43912/*decl*/
43913
43914 int lower = 0;
43915 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
43916 int n = 0;
43917 complex_float *a = NULL((void*)0);
43918 npy_intp a_Dims[2] = {-1, -1};
43919 const int a_Rank = 2;
43920 PyArrayObject *capi_a_tmp = NULL((void*)0);
43921 int capi_a_intent = 0;
43922 int capi_overwrite_a = 0;
43923 PyObject *a_capi = Py_None(&_Py_NoneStruct);
43924 int lda = 0;
43925 int *ipiv = NULL((void*)0);
43926 npy_intp ipiv_Dims[1] = {-1};
43927 const int ipiv_Rank = 1;
43928 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
43929 int capi_ipiv_intent = 0;
43930 complex_float *work = NULL((void*)0);
43931 npy_intp work_Dims[1] = {-1};
43932 const int work_Rank = 1;
43933 PyArrayObject *capi_work_tmp = NULL((void*)0);
43934 int capi_work_intent = 0;
43935 int lwork = 0;
43936 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
43937 int info = 0;
43938 static char *capi_kwlist[] = {"a","lower","lwork","overwrite_a",NULL((void*)0)};
43939
43940/*routdebugenter*/
43941#ifdef F2PY_REPORT_ATEXIT
43942f2py_start_clock();
43943#endif
43944 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
43945 "O|OOi:_flapack.chetrf",\
43946 capi_kwlist,&a_capi,&lower_capi,&lwork_capi,&capi_overwrite_a))
43947 return NULL((void*)0);
43948/*frompyobj*/
43949 /* Processing variable lower */
43950 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
43951 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chetrf() 1st keyword (lower) can't be converted to int");
43952 if (f2py_success) {
43953 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","chetrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chetrf:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
43954 /* Processing variable a */
43955 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
43956 ;
43957 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
43958 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
43959 if (capi_a_tmp == NULL((void*)0)) {
43960 if (!PyErr_Occurred())
43961 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.chetrf to C/Fortran array" );
43962 } else {
43963 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
43964
43965 /* Processing variable info */
43966 /* Processing variable n */
43967 n = shape(a,0)a_Dims[0];
43968 /* Processing variable lda */
43969 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
43970 /* Processing variable ipiv */
43971 ipiv_Dims[0]=n;
43972 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
43973 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
43974 if (capi_ipiv_tmp == NULL((void*)0)) {
43975 if (!PyErr_Occurred())
43976 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.chetrf to C/Fortran array" );
43977 } else {
43978 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
43979
43980 /* Processing variable lwork */
43981 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else
43982 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.chetrf() 2nd keyword (lwork) can't be converted to int");
43983 if (f2py_success) {
43984 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","2nd keyword lwork","chetrf:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chetrf:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
43985 /* Processing variable work */
43986 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
43987 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
43988 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
43989 if (capi_work_tmp == NULL((void*)0)) {
43990 if (!PyErr_Occurred())
43991 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.chetrf to C/Fortran array" );
43992 } else {
43993 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
43994
43995/*end of frompyobj*/
43996#ifdef F2PY_REPORT_ATEXIT
43997f2py_start_call_clock();
43998#endif
43999/*callfortranroutine*/
44000 (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,work,&lwork,&info) ;
44001 /*(*f2py_func)(&lower,&n,a,&lda,ipiv,work,&lwork,&info);*/
44002if (PyErr_Occurred())
44003 f2py_success = 0;
44004#ifdef F2PY_REPORT_ATEXIT
44005f2py_stop_call_clock();
44006#endif
44007/*end of callfortranroutine*/
44008 if (f2py_success) {
44009/*pyobjfrom*/
44010/*end of pyobjfrom*/
44011 CFUNCSMESS("Building return value.\n");
44012 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_ipiv_tmp,info);
44013/*closepyobjfrom*/
44014/*end of closepyobjfrom*/
44015 } /*if (f2py_success) after callfortranroutine*/
44016/*cleanupfrompyobj*/
44017 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
44018 } /*if (capi_work_tmp == NULL) ... else of work*/
44019 /* End of cleaning variable work */
44020 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
44021 } /*if (f2py_success) of lwork*/
44022 /* End of cleaning variable lwork */
44023 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
44024 /* End of cleaning variable ipiv */
44025 /* End of cleaning variable lda */
44026 /* End of cleaning variable n */
44027 /* End of cleaning variable info */
44028 } /*if (capi_a_tmp == NULL) ... else of a*/
44029 /* End of cleaning variable a */
44030 } /*CHECKSCALAR(lower==0||lower==1)*/
44031 } /*if (f2py_success) of lower*/
44032 /* End of cleaning variable lower */
44033/*end of cleanupfrompyobj*/
44034 if (capi_buildvalue == NULL((void*)0)) {
44035/*routdebugfailure*/
44036 } else {
44037/*routdebugleave*/
44038 }
44039 CFUNCSMESS("Freeing memory.\n");
44040/*freemem*/
44041#ifdef F2PY_REPORT_ATEXIT
44042f2py_stop_clock();
44043#endif
44044 return capi_buildvalue;
44045}
44046/******************************* end of chetrf *******************************/
44047
44048/*********************************** zhetrf ***********************************/
44049static char doc_f2py_rout__flapack_zhetrf[] = "\
44050ldu,ipiv,info = zhetrf(a,[lower,lwork,overwrite_a])\n\nWrapper for ``zhetrf``.\
44051\n\nParameters\n----------\n"
44052"a : input rank-2 array('D') with bounds (n,n)\n"
44053"\nOther Parameters\n----------------\n"
44054"lower : input int, optional\n Default: 0\n"
44055"overwrite_a : input int, optional\n Default: 0\n"
44056"lwork : input int, optional\n Default: max(n,1)\n"
44057"\nReturns\n-------\n"
44058"ldu : rank-2 array('D') with bounds (n,n) and a storage\n"
44059"ipiv : rank-1 array('i') with bounds (n)\n"
44060"info : int";
44061/* extern void F_FUNC(zhetrf,ZHETRF)(char*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */
44062static PyObject *f2py_rout__flapack_zhetrf(const PyObject *capi_self,
44063 PyObject *capi_args,
44064 PyObject *capi_keywds,
44065 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
44066 PyObject * volatile capi_buildvalue = NULL((void*)0);
44067 volatile int f2py_success = 1;
44068/*decl*/
44069
44070 int lower = 0;
44071 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
44072 int n = 0;
44073 complex_double *a = NULL((void*)0);
44074 npy_intp a_Dims[2] = {-1, -1};
44075 const int a_Rank = 2;
44076 PyArrayObject *capi_a_tmp = NULL((void*)0);
44077 int capi_a_intent = 0;
44078 int capi_overwrite_a = 0;
44079 PyObject *a_capi = Py_None(&_Py_NoneStruct);
44080 int lda = 0;
44081 int *ipiv = NULL((void*)0);
44082 npy_intp ipiv_Dims[1] = {-1};
44083 const int ipiv_Rank = 1;
44084 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
44085 int capi_ipiv_intent = 0;
44086 complex_double *work = NULL((void*)0);
44087 npy_intp work_Dims[1] = {-1};
44088 const int work_Rank = 1;
44089 PyArrayObject *capi_work_tmp = NULL((void*)0);
44090 int capi_work_intent = 0;
44091 int lwork = 0;
44092 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
44093 int info = 0;
44094 static char *capi_kwlist[] = {"a","lower","lwork","overwrite_a",NULL((void*)0)};
44095
44096/*routdebugenter*/
44097#ifdef F2PY_REPORT_ATEXIT
44098f2py_start_clock();
44099#endif
44100 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
44101 "O|OOi:_flapack.zhetrf",\
44102 capi_kwlist,&a_capi,&lower_capi,&lwork_capi,&capi_overwrite_a))
44103 return NULL((void*)0);
44104/*frompyobj*/
44105 /* Processing variable lower */
44106 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
44107 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhetrf() 1st keyword (lower) can't be converted to int");
44108 if (f2py_success) {
44109 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zhetrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhetrf:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
44110 /* Processing variable a */
44111 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
44112 ;
44113 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
44114 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
44115 if (capi_a_tmp == NULL((void*)0)) {
44116 if (!PyErr_Occurred())
44117 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zhetrf to C/Fortran array" );
44118 } else {
44119 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
44120
44121 /* Processing variable info */
44122 /* Processing variable n */
44123 n = shape(a,0)a_Dims[0];
44124 /* Processing variable lda */
44125 lda = max(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
44126 /* Processing variable ipiv */
44127 ipiv_Dims[0]=n;
44128 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
44129 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
44130 if (capi_ipiv_tmp == NULL((void*)0)) {
44131 if (!PyErr_Occurred())
44132 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.zhetrf to C/Fortran array" );
44133 } else {
44134 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
44135
44136 /* Processing variable lwork */
44137 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else
44138 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zhetrf() 2nd keyword (lwork) can't be converted to int");
44139 if (f2py_success) {
44140 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","2nd keyword lwork","zhetrf:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhetrf:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
44141 /* Processing variable work */
44142 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
44143 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
44144 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
44145 if (capi_work_tmp == NULL((void*)0)) {
44146 if (!PyErr_Occurred())
44147 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zhetrf to C/Fortran array" );
44148 } else {
44149 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
44150
44151/*end of frompyobj*/
44152#ifdef F2PY_REPORT_ATEXIT
44153f2py_start_call_clock();
44154#endif
44155/*callfortranroutine*/
44156 (*f2py_func)((lower?"L":"U"),&n,a,&lda,ipiv,work,&lwork,&info) ;
44157 /*(*f2py_func)(&lower,&n,a,&lda,ipiv,work,&lwork,&info);*/
44158if (PyErr_Occurred())
44159 f2py_success = 0;
44160#ifdef F2PY_REPORT_ATEXIT
44161f2py_stop_call_clock();
44162#endif
44163/*end of callfortranroutine*/
44164 if (f2py_success) {
44165/*pyobjfrom*/
44166/*end of pyobjfrom*/
44167 CFUNCSMESS("Building return value.\n");
44168 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_ipiv_tmp,info);
44169/*closepyobjfrom*/
44170/*end of closepyobjfrom*/
44171 } /*if (f2py_success) after callfortranroutine*/
44172/*cleanupfrompyobj*/
44173 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
44174 } /*if (capi_work_tmp == NULL) ... else of work*/
44175 /* End of cleaning variable work */
44176 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
44177 } /*if (f2py_success) of lwork*/
44178 /* End of cleaning variable lwork */
44179 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
44180 /* End of cleaning variable ipiv */
44181 /* End of cleaning variable lda */
44182 /* End of cleaning variable n */
44183 /* End of cleaning variable info */
44184 } /*if (capi_a_tmp == NULL) ... else of a*/
44185 /* End of cleaning variable a */
44186 } /*CHECKSCALAR(lower==0||lower==1)*/
44187 } /*if (f2py_success) of lower*/
44188 /* End of cleaning variable lower */
44189/*end of cleanupfrompyobj*/
44190 if (capi_buildvalue == NULL((void*)0)) {
44191/*routdebugfailure*/
44192 } else {
44193/*routdebugleave*/
44194 }
44195 CFUNCSMESS("Freeing memory.\n");
44196/*freemem*/
44197#ifdef F2PY_REPORT_ATEXIT
44198f2py_stop_clock();
44199#endif
44200 return capi_buildvalue;
44201}
44202/******************************* end of zhetrf *******************************/
44203
44204/******************************** chetrf_lwork ********************************/
44205static char doc_f2py_rout__flapack_chetrf_lwork[] = "\
44206work,info = chetrf_lwork(n,[lower])\n\nWrapper for ``chetrf_lwork``.\
44207\n\nParameters\n----------\n"
44208"n : input int\n"
44209"\nOther Parameters\n----------------\n"
44210"lower : input int, optional\n Default: 0\n"
44211"\nReturns\n-------\n"
44212"work : complex\n"
44213"info : int";
44214/* extern void F_FUNC(chetrf ,CHETRF )(char*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */
44215static PyObject *f2py_rout__flapack_chetrf_lwork(const PyObject *capi_self,
44216 PyObject *capi_args,
44217 PyObject *capi_keywds,
44218 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
44219 PyObject * volatile capi_buildvalue = NULL((void*)0);
44220 volatile int f2py_success = 1;
44221/*decl*/
44222
44223 int lower = 0;
44224 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
44225 int n = 0;
44226 PyObject *n_capi = Py_None(&_Py_NoneStruct);
44227 complex_float a;
44228 int lda = 0;
44229 int ipiv = 0;
44230 complex_float work;
44231 PyObject *work_capi = Py_None(&_Py_NoneStruct);
44232 int lwork = 0;
44233 int info = 0;
44234 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
44235
44236/*routdebugenter*/
44237#ifdef F2PY_REPORT_ATEXIT
44238f2py_start_clock();
44239#endif
44240 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
44241 "O|O:_flapack.chetrf_lwork",\
44242 capi_kwlist,&n_capi,&lower_capi))
44243 return NULL((void*)0);
44244/*frompyobj*/
44245 /* Processing variable n */
44246 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.chetrf_lwork() 1st argument (n) can't be converted to int");
44247 if (f2py_success) {
44248 /* Processing variable lower */
44249 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
44250 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chetrf_lwork() 1st keyword (lower) can't be converted to int");
44251 if (f2py_success) {
44252 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","chetrf_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chetrf_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
44253 /* Processing variable a */
44254 /* Processing variable ipiv */
44255 /* Processing variable lwork */
44256 lwork = -1;
44257 /* Processing variable work */
44258 /* Processing variable info */
44259 /* Processing variable lda */
44260 lda = max(n,1)((n > 1) ? (n) : (1));
44261/*end of frompyobj*/
44262#ifdef F2PY_REPORT_ATEXIT
44263f2py_start_call_clock();
44264#endif
44265/*callfortranroutine*/
44266 (*f2py_func)((lower?"L":"U"),&n,&a,&lda,&ipiv,&work,&lwork,&info) ;
44267 /*(*f2py_func)(&lower,&n,&a,&lda,&ipiv,&work,&lwork,&info);*/
44268if (PyErr_Occurred())
44269 f2py_success = 0;
44270#ifdef F2PY_REPORT_ATEXIT
44271f2py_stop_call_clock();
44272#endif
44273/*end of callfortranroutine*/
44274 if (f2py_success) {
44275/*pyobjfrom*/
44276 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
44277/*end of pyobjfrom*/
44278 CFUNCSMESS("Building return value.\n");
44279 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
44280/*closepyobjfrom*/
44281/*end of closepyobjfrom*/
44282 } /*if (f2py_success) after callfortranroutine*/
44283/*cleanupfrompyobj*/
44284 /* End of cleaning variable lda */
44285 /* End of cleaning variable info */
44286 /* End of cleaning variable work */
44287 /* End of cleaning variable lwork */
44288 /* End of cleaning variable ipiv */
44289 /* End of cleaning variable a */
44290 } /*CHECKSCALAR(lower==0||lower==1)*/
44291 } /*if (f2py_success) of lower*/
44292 /* End of cleaning variable lower */
44293 } /*if (f2py_success) of n*/
44294 /* End of cleaning variable n */
44295/*end of cleanupfrompyobj*/
44296 if (capi_buildvalue == NULL((void*)0)) {
44297/*routdebugfailure*/
44298 } else {
44299/*routdebugleave*/
44300 }
44301 CFUNCSMESS("Freeing memory.\n");
44302/*freemem*/
44303#ifdef F2PY_REPORT_ATEXIT
44304f2py_stop_clock();
44305#endif
44306 return capi_buildvalue;
44307}
44308/**************************** end of chetrf_lwork ****************************/
44309
44310/******************************** zhetrf_lwork ********************************/
44311static char doc_f2py_rout__flapack_zhetrf_lwork[] = "\
44312work,info = zhetrf_lwork(n,[lower])\n\nWrapper for ``zhetrf_lwork``.\
44313\n\nParameters\n----------\n"
44314"n : input int\n"
44315"\nOther Parameters\n----------------\n"
44316"lower : input int, optional\n Default: 0\n"
44317"\nReturns\n-------\n"
44318"work : complex\n"
44319"info : int";
44320/* extern void F_FUNC(zhetrf ,ZHETRF )(char*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */
44321static PyObject *f2py_rout__flapack_zhetrf_lwork(const PyObject *capi_self,
44322 PyObject *capi_args,
44323 PyObject *capi_keywds,
44324 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
44325 PyObject * volatile capi_buildvalue = NULL((void*)0);
44326 volatile int f2py_success = 1;
44327/*decl*/
44328
44329 int lower = 0;
44330 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
44331 int n = 0;
44332 PyObject *n_capi = Py_None(&_Py_NoneStruct);
44333 complex_double a;
44334 int lda = 0;
44335 int ipiv = 0;
44336 complex_double work;
44337 PyObject *work_capi = Py_None(&_Py_NoneStruct);
44338 int lwork = 0;
44339 int info = 0;
44340 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
44341
44342/*routdebugenter*/
44343#ifdef F2PY_REPORT_ATEXIT
44344f2py_start_clock();
44345#endif
44346 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
44347 "O|O:_flapack.zhetrf_lwork",\
44348 capi_kwlist,&n_capi,&lower_capi))
44349 return NULL((void*)0);
44350/*frompyobj*/
44351 /* Processing variable n */
44352 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zhetrf_lwork() 1st argument (n) can't be converted to int");
44353 if (f2py_success) {
44354 /* Processing variable lower */
44355 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
44356 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhetrf_lwork() 1st keyword (lower) can't be converted to int");
44357 if (f2py_success) {
44358 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zhetrf_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhetrf_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
44359 /* Processing variable a */
44360 /* Processing variable ipiv */
44361 /* Processing variable lwork */
44362 lwork = -1;
44363 /* Processing variable work */
44364 /* Processing variable info */
44365 /* Processing variable lda */
44366 lda = max(n,1)((n > 1) ? (n) : (1));
44367/*end of frompyobj*/
44368#ifdef F2PY_REPORT_ATEXIT
44369f2py_start_call_clock();
44370#endif
44371/*callfortranroutine*/
44372 (*f2py_func)((lower?"L":"U"),&n,&a,&lda,&ipiv,&work,&lwork,&info) ;
44373 /*(*f2py_func)(&lower,&n,&a,&lda,&ipiv,&work,&lwork,&info);*/
44374if (PyErr_Occurred())
44375 f2py_success = 0;
44376#ifdef F2PY_REPORT_ATEXIT
44377f2py_stop_call_clock();
44378#endif
44379/*end of callfortranroutine*/
44380 if (f2py_success) {
44381/*pyobjfrom*/
44382 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
44383/*end of pyobjfrom*/
44384 CFUNCSMESS("Building return value.\n");
44385 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
44386/*closepyobjfrom*/
44387/*end of closepyobjfrom*/
44388 } /*if (f2py_success) after callfortranroutine*/
44389/*cleanupfrompyobj*/
44390 /* End of cleaning variable lda */
44391 /* End of cleaning variable info */
44392 /* End of cleaning variable work */
44393 /* End of cleaning variable lwork */
44394 /* End of cleaning variable ipiv */
44395 /* End of cleaning variable a */
44396 } /*CHECKSCALAR(lower==0||lower==1)*/
44397 } /*if (f2py_success) of lower*/
44398 /* End of cleaning variable lower */
44399 } /*if (f2py_success) of n*/
44400 /* End of cleaning variable n */
44401/*end of cleanupfrompyobj*/
44402 if (capi_buildvalue == NULL((void*)0)) {
44403/*routdebugfailure*/
44404 } else {
44405/*routdebugleave*/
44406 }
44407 CFUNCSMESS("Freeing memory.\n");
44408/*freemem*/
44409#ifdef F2PY_REPORT_ATEXIT
44410f2py_stop_clock();
44411#endif
44412 return capi_buildvalue;
44413}
44414/**************************** end of zhetrf_lwork ****************************/
44415
44416/*********************************** chesv ***********************************/
44417static char doc_f2py_rout__flapack_chesv[] = "\
44418uduh,ipiv,x,info = chesv(a,b,[lwork,lower,overwrite_a,overwrite_b])\n\nWrapper for ``chesv``.\
44419\n\nParameters\n----------\n"
44420"a : input rank-2 array('F') with bounds (n,n)\n"
44421"b : input rank-2 array('F') with bounds (n,nrhs)\n"
44422"\nOther Parameters\n----------------\n"
44423"overwrite_a : input int, optional\n Default: 0\n"
44424"overwrite_b : input int, optional\n Default: 0\n"
44425"lwork : input int, optional\n Default: max(n,1)\n"
44426"lower : input int, optional\n Default: 0\n"
44427"\nReturns\n-------\n"
44428"uduh : rank-2 array('F') with bounds (n,n) and a storage\n"
44429"ipiv : rank-1 array('i') with bounds (n)\n"
44430"x : rank-2 array('F') with bounds (n,nrhs) and b storage\n"
44431"info : int";
44432/* extern void F_FUNC(chesv,CHESV)(char*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */
44433static PyObject *f2py_rout__flapack_chesv(const PyObject *capi_self,
44434 PyObject *capi_args,
44435 PyObject *capi_keywds,
44436 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
44437 PyObject * volatile capi_buildvalue = NULL((void*)0);
44438 volatile int f2py_success = 1;
44439/*decl*/
44440
44441 int n = 0;
44442 int nrhs = 0;
44443 complex_float *a = NULL((void*)0);
44444 npy_intp a_Dims[2] = {-1, -1};
44445 const int a_Rank = 2;
44446 PyArrayObject *capi_a_tmp = NULL((void*)0);
44447 int capi_a_intent = 0;
44448 int capi_overwrite_a = 0;
44449 PyObject *a_capi = Py_None(&_Py_NoneStruct);
44450 int lda = 0;
44451 int *ipiv = NULL((void*)0);
44452 npy_intp ipiv_Dims[1] = {-1};
44453 const int ipiv_Rank = 1;
44454 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
44455 int capi_ipiv_intent = 0;
44456 complex_float *b = NULL((void*)0);
44457 npy_intp b_Dims[2] = {-1, -1};
44458 const int b_Rank = 2;
44459 PyArrayObject *capi_b_tmp = NULL((void*)0);
44460 int capi_b_intent = 0;
44461 int capi_overwrite_b = 0;
44462 PyObject *b_capi = Py_None(&_Py_NoneStruct);
44463 int ldb = 0;
44464 complex_float *work = NULL((void*)0);
44465 npy_intp work_Dims[1] = {-1};
44466 const int work_Rank = 1;
44467 PyArrayObject *capi_work_tmp = NULL((void*)0);
44468 int capi_work_intent = 0;
44469 int lwork = 0;
44470 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
44471 int info = 0;
44472 int lower = 0;
44473 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
44474 static char *capi_kwlist[] = {"a","b","lwork","lower","overwrite_a","overwrite_b",NULL((void*)0)};
44475
44476/*routdebugenter*/
44477#ifdef F2PY_REPORT_ATEXIT
44478f2py_start_clock();
44479#endif
44480 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
44481 "OO|OOii:_flapack.chesv",\
44482 capi_kwlist,&a_capi,&b_capi,&lwork_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b))
44483 return NULL((void*)0);
44484/*frompyobj*/
44485 /* Processing variable lower */
44486 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
44487 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chesv() 2nd keyword (lower) can't be converted to int");
44488 if (f2py_success) {
44489 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","chesv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chesv:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
44490 /* Processing variable a */
44491 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
44492 ;
44493 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
44494 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
44495 if (capi_a_tmp == NULL((void*)0)) {
44496 if (!PyErr_Occurred())
44497 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.chesv to C/Fortran array" );
44498 } else {
44499 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
44500
44501 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
44502 /* Processing variable info */
44503 /* Processing variable n */
44504 n = shape(a,0)a_Dims[0];
44505 /* Processing variable lda */
44506 lda = shape(a,0)a_Dims[0];
44507 /* Processing variable ipiv */
44508 ipiv_Dims[0]=n;
44509 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
44510 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
44511 if (capi_ipiv_tmp == NULL((void*)0)) {
44512 if (!PyErr_Occurred())
44513 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.chesv to C/Fortran array" );
44514 } else {
44515 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
44516
44517 /* Processing variable b */
44518 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
44519 b_Dims[0]=n;
44520 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
44521 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
44522 if (capi_b_tmp == NULL((void*)0)) {
44523 if (!PyErr_Occurred())
44524 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.chesv to C/Fortran array" );
44525 } else {
44526 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
44527
44528 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
44529 /* Processing variable ldb */
44530 ldb = shape(b,0)b_Dims[0];
44531 /* Processing variable lwork */
44532 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else
44533 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.chesv() 1st keyword (lwork) can't be converted to int");
44534 if (f2py_success) {
44535 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","1st keyword lwork","chesv:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chesv:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
44536 /* Processing variable work */
44537 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
44538 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
44539 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
44540 if (capi_work_tmp == NULL((void*)0)) {
44541 if (!PyErr_Occurred())
44542 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.chesv to C/Fortran array" );
44543 } else {
44544 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
44545
44546 /* Processing variable nrhs */
44547 nrhs = shape(b,1)b_Dims[1];
44548/*end of frompyobj*/
44549#ifdef F2PY_REPORT_ATEXIT
44550f2py_start_call_clock();
44551#endif
44552/*callfortranroutine*/
44553 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
44554 (*f2py_func)((lower?"L":"U"),&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info) ;
44555 /*(*f2py_func)(&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info,&lower);*/
44556 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
44557if (PyErr_Occurred())
44558 f2py_success = 0;
44559#ifdef F2PY_REPORT_ATEXIT
44560f2py_stop_call_clock();
44561#endif
44562/*end of callfortranroutine*/
44563 if (f2py_success) {
44564/*pyobjfrom*/
44565/*end of pyobjfrom*/
44566 CFUNCSMESS("Building return value.\n");
44567 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_ipiv_tmp,capi_b_tmp,info);
44568/*closepyobjfrom*/
44569/*end of closepyobjfrom*/
44570 } /*if (f2py_success) after callfortranroutine*/
44571/*cleanupfrompyobj*/
44572 /* End of cleaning variable nrhs */
44573 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
44574 } /*if (capi_work_tmp == NULL) ... else of work*/
44575 /* End of cleaning variable work */
44576 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
44577 } /*if (f2py_success) of lwork*/
44578 /* End of cleaning variable lwork */
44579 /* End of cleaning variable ldb */
44580 } /*CHECKARRAY(shape(b,0)==n)*/
44581 } /*if (capi_b_tmp == NULL) ... else of b*/
44582 /* End of cleaning variable b */
44583 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
44584 /* End of cleaning variable ipiv */
44585 /* End of cleaning variable lda */
44586 /* End of cleaning variable n */
44587 /* End of cleaning variable info */
44588 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
44589 } /*if (capi_a_tmp == NULL) ... else of a*/
44590 /* End of cleaning variable a */
44591 } /*CHECKSCALAR(lower==0||lower==1)*/
44592 } /*if (f2py_success) of lower*/
44593 /* End of cleaning variable lower */
44594/*end of cleanupfrompyobj*/
44595 if (capi_buildvalue == NULL((void*)0)) {
44596/*routdebugfailure*/
44597 } else {
44598/*routdebugleave*/
44599 }
44600 CFUNCSMESS("Freeing memory.\n");
44601/*freemem*/
44602#ifdef F2PY_REPORT_ATEXIT
44603f2py_stop_clock();
44604#endif
44605 return capi_buildvalue;
44606}
44607/******************************** end of chesv ********************************/
44608
44609/*********************************** zhesv ***********************************/
44610static char doc_f2py_rout__flapack_zhesv[] = "\
44611uduh,ipiv,x,info = zhesv(a,b,[lwork,lower,overwrite_a,overwrite_b])\n\nWrapper for ``zhesv``.\
44612\n\nParameters\n----------\n"
44613"a : input rank-2 array('D') with bounds (n,n)\n"
44614"b : input rank-2 array('D') with bounds (n,nrhs)\n"
44615"\nOther Parameters\n----------------\n"
44616"overwrite_a : input int, optional\n Default: 0\n"
44617"overwrite_b : input int, optional\n Default: 0\n"
44618"lwork : input int, optional\n Default: max(n,1)\n"
44619"lower : input int, optional\n Default: 0\n"
44620"\nReturns\n-------\n"
44621"uduh : rank-2 array('D') with bounds (n,n) and a storage\n"
44622"ipiv : rank-1 array('i') with bounds (n)\n"
44623"x : rank-2 array('D') with bounds (n,nrhs) and b storage\n"
44624"info : int";
44625/* extern void F_FUNC(zhesv,ZHESV)(char*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */
44626static PyObject *f2py_rout__flapack_zhesv(const PyObject *capi_self,
44627 PyObject *capi_args,
44628 PyObject *capi_keywds,
44629 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
44630 PyObject * volatile capi_buildvalue = NULL((void*)0);
44631 volatile int f2py_success = 1;
44632/*decl*/
44633
44634 int n = 0;
44635 int nrhs = 0;
44636 complex_double *a = NULL((void*)0);
44637 npy_intp a_Dims[2] = {-1, -1};
44638 const int a_Rank = 2;
44639 PyArrayObject *capi_a_tmp = NULL((void*)0);
44640 int capi_a_intent = 0;
44641 int capi_overwrite_a = 0;
44642 PyObject *a_capi = Py_None(&_Py_NoneStruct);
44643 int lda = 0;
44644 int *ipiv = NULL((void*)0);
44645 npy_intp ipiv_Dims[1] = {-1};
44646 const int ipiv_Rank = 1;
44647 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
44648 int capi_ipiv_intent = 0;
44649 complex_double *b = NULL((void*)0);
44650 npy_intp b_Dims[2] = {-1, -1};
44651 const int b_Rank = 2;
44652 PyArrayObject *capi_b_tmp = NULL((void*)0);
44653 int capi_b_intent = 0;
44654 int capi_overwrite_b = 0;
44655 PyObject *b_capi = Py_None(&_Py_NoneStruct);
44656 int ldb = 0;
44657 complex_double *work = NULL((void*)0);
44658 npy_intp work_Dims[1] = {-1};
44659 const int work_Rank = 1;
44660 PyArrayObject *capi_work_tmp = NULL((void*)0);
44661 int capi_work_intent = 0;
44662 int lwork = 0;
44663 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
44664 int info = 0;
44665 int lower = 0;
44666 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
44667 static char *capi_kwlist[] = {"a","b","lwork","lower","overwrite_a","overwrite_b",NULL((void*)0)};
44668
44669/*routdebugenter*/
44670#ifdef F2PY_REPORT_ATEXIT
44671f2py_start_clock();
44672#endif
44673 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
44674 "OO|OOii:_flapack.zhesv",\
44675 capi_kwlist,&a_capi,&b_capi,&lwork_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b))
44676 return NULL((void*)0);
44677/*frompyobj*/
44678 /* Processing variable lower */
44679 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
44680 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhesv() 2nd keyword (lower) can't be converted to int");
44681 if (f2py_success) {
44682 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","zhesv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhesv:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
44683 /* Processing variable a */
44684 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
44685 ;
44686 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
44687 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
44688 if (capi_a_tmp == NULL((void*)0)) {
44689 if (!PyErr_Occurred())
44690 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zhesv to C/Fortran array" );
44691 } else {
44692 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
44693
44694 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
44695 /* Processing variable info */
44696 /* Processing variable n */
44697 n = shape(a,0)a_Dims[0];
44698 /* Processing variable lda */
44699 lda = shape(a,0)a_Dims[0];
44700 /* Processing variable ipiv */
44701 ipiv_Dims[0]=n;
44702 capi_ipiv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
44703 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,Py_None(&_Py_NoneStruct));
44704 if (capi_ipiv_tmp == NULL((void*)0)) {
44705 if (!PyErr_Occurred())
44706 PyErr_SetString(_flapack_error,"failed in converting hidden `ipiv' of _flapack.zhesv to C/Fortran array" );
44707 } else {
44708 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
44709
44710 /* Processing variable b */
44711 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
44712 b_Dims[0]=n;
44713 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
44714 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
44715 if (capi_b_tmp == NULL((void*)0)) {
44716 if (!PyErr_Occurred())
44717 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zhesv to C/Fortran array" );
44718 } else {
44719 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
44720
44721 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
44722 /* Processing variable ldb */
44723 ldb = shape(b,0)b_Dims[0];
44724 /* Processing variable lwork */
44725 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(n,1)((n > 1) ? (n) : (1)); else
44726 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zhesv() 1st keyword (lwork) can't be converted to int");
44727 if (f2py_success) {
44728 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","1st keyword lwork","zhesv:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhesv:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
44729 /* Processing variable work */
44730 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
44731 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
44732 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
44733 if (capi_work_tmp == NULL((void*)0)) {
44734 if (!PyErr_Occurred())
44735 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zhesv to C/Fortran array" );
44736 } else {
44737 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
44738
44739 /* Processing variable nrhs */
44740 nrhs = shape(b,1)b_Dims[1];
44741/*end of frompyobj*/
44742#ifdef F2PY_REPORT_ATEXIT
44743f2py_start_call_clock();
44744#endif
44745/*callfortranroutine*/
44746 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
44747 (*f2py_func)((lower?"L":"U"),&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info) ;
44748 /*(*f2py_func)(&n,&nrhs,a,&lda,ipiv,b,&ldb,work,&lwork,&info,&lower);*/
44749 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
44750if (PyErr_Occurred())
44751 f2py_success = 0;
44752#ifdef F2PY_REPORT_ATEXIT
44753f2py_stop_call_clock();
44754#endif
44755/*end of callfortranroutine*/
44756 if (f2py_success) {
44757/*pyobjfrom*/
44758/*end of pyobjfrom*/
44759 CFUNCSMESS("Building return value.\n");
44760 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_ipiv_tmp,capi_b_tmp,info);
44761/*closepyobjfrom*/
44762/*end of closepyobjfrom*/
44763 } /*if (f2py_success) after callfortranroutine*/
44764/*cleanupfrompyobj*/
44765 /* End of cleaning variable nrhs */
44766 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
44767 } /*if (capi_work_tmp == NULL) ... else of work*/
44768 /* End of cleaning variable work */
44769 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
44770 } /*if (f2py_success) of lwork*/
44771 /* End of cleaning variable lwork */
44772 /* End of cleaning variable ldb */
44773 } /*CHECKARRAY(shape(b,0)==n)*/
44774 } /*if (capi_b_tmp == NULL) ... else of b*/
44775 /* End of cleaning variable b */
44776 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
44777 /* End of cleaning variable ipiv */
44778 /* End of cleaning variable lda */
44779 /* End of cleaning variable n */
44780 /* End of cleaning variable info */
44781 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
44782 } /*if (capi_a_tmp == NULL) ... else of a*/
44783 /* End of cleaning variable a */
44784 } /*CHECKSCALAR(lower==0||lower==1)*/
44785 } /*if (f2py_success) of lower*/
44786 /* End of cleaning variable lower */
44787/*end of cleanupfrompyobj*/
44788 if (capi_buildvalue == NULL((void*)0)) {
44789/*routdebugfailure*/
44790 } else {
44791/*routdebugleave*/
44792 }
44793 CFUNCSMESS("Freeing memory.\n");
44794/*freemem*/
44795#ifdef F2PY_REPORT_ATEXIT
44796f2py_stop_clock();
44797#endif
44798 return capi_buildvalue;
44799}
44800/******************************** end of zhesv ********************************/
44801
44802/******************************** chesv_lwork ********************************/
44803static char doc_f2py_rout__flapack_chesv_lwork[] = "\
44804work,info = chesv_lwork(n,[lower])\n\nWrapper for ``chesv_lwork``.\
44805\n\nParameters\n----------\n"
44806"n : input int\n"
44807"\nOther Parameters\n----------------\n"
44808"lower : input int, optional\n Default: 0\n"
44809"\nReturns\n-------\n"
44810"work : complex\n"
44811"info : int";
44812/* extern void F_FUNC(chesv ,CHESV )(char*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */
44813static PyObject *f2py_rout__flapack_chesv_lwork(const PyObject *capi_self,
44814 PyObject *capi_args,
44815 PyObject *capi_keywds,
44816 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
44817 PyObject * volatile capi_buildvalue = NULL((void*)0);
44818 volatile int f2py_success = 1;
44819/*decl*/
44820
44821 int n = 0;
44822 PyObject *n_capi = Py_None(&_Py_NoneStruct);
44823 int nrhs = 0;
44824 complex_float a;
44825 int lda = 0;
44826 int ipiv = 0;
44827 complex_float b;
44828 int ldb = 0;
44829 complex_float work;
44830 PyObject *work_capi = Py_None(&_Py_NoneStruct);
44831 int lwork = 0;
44832 int info = 0;
44833 int lower = 0;
44834 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
44835 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
44836
44837/*routdebugenter*/
44838#ifdef F2PY_REPORT_ATEXIT
44839f2py_start_clock();
44840#endif
44841 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
44842 "O|O:_flapack.chesv_lwork",\
44843 capi_kwlist,&n_capi,&lower_capi))
44844 return NULL((void*)0);
44845/*frompyobj*/
44846 /* Processing variable lower */
44847 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
44848 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chesv_lwork() 1st keyword (lower) can't be converted to int");
44849 if (f2py_success) {
44850 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","chesv_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chesv_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
44851 /* Processing variable n */
44852 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.chesv_lwork() 1st argument (n) can't be converted to int");
44853 if (f2py_success) {
44854 /* Processing variable nrhs */
44855 nrhs = 1;
44856 /* Processing variable a */
44857 /* Processing variable ipiv */
44858 /* Processing variable b */
44859 /* Processing variable lwork */
44860 lwork = -1;
44861 /* Processing variable work */
44862 /* Processing variable info */
44863 /* Processing variable lda */
44864 lda = n;
44865 /* Processing variable ldb */
44866 ldb = n;
44867/*end of frompyobj*/
44868#ifdef F2PY_REPORT_ATEXIT
44869f2py_start_call_clock();
44870#endif
44871/*callfortranroutine*/
44872 (*f2py_func)((lower?"L":"U"),&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info) ;
44873 /*(*f2py_func)(&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info,&lower);*/
44874if (PyErr_Occurred())
44875 f2py_success = 0;
44876#ifdef F2PY_REPORT_ATEXIT
44877f2py_stop_call_clock();
44878#endif
44879/*end of callfortranroutine*/
44880 if (f2py_success) {
44881/*pyobjfrom*/
44882 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
44883/*end of pyobjfrom*/
44884 CFUNCSMESS("Building return value.\n");
44885 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
44886/*closepyobjfrom*/
44887/*end of closepyobjfrom*/
44888 } /*if (f2py_success) after callfortranroutine*/
44889/*cleanupfrompyobj*/
44890 /* End of cleaning variable ldb */
44891 /* End of cleaning variable lda */
44892 /* End of cleaning variable info */
44893 /* End of cleaning variable work */
44894 /* End of cleaning variable lwork */
44895 /* End of cleaning variable b */
44896 /* End of cleaning variable ipiv */
44897 /* End of cleaning variable a */
44898 /* End of cleaning variable nrhs */
44899 } /*if (f2py_success) of n*/
44900 /* End of cleaning variable n */
44901 } /*CHECKSCALAR(lower==0||lower==1)*/
44902 } /*if (f2py_success) of lower*/
44903 /* End of cleaning variable lower */
44904/*end of cleanupfrompyobj*/
44905 if (capi_buildvalue == NULL((void*)0)) {
44906/*routdebugfailure*/
44907 } else {
44908/*routdebugleave*/
44909 }
44910 CFUNCSMESS("Freeing memory.\n");
44911/*freemem*/
44912#ifdef F2PY_REPORT_ATEXIT
44913f2py_stop_clock();
44914#endif
44915 return capi_buildvalue;
44916}
44917/***************************** end of chesv_lwork *****************************/
44918
44919/******************************** zhesv_lwork ********************************/
44920static char doc_f2py_rout__flapack_zhesv_lwork[] = "\
44921work,info = zhesv_lwork(n,[lower])\n\nWrapper for ``zhesv_lwork``.\
44922\n\nParameters\n----------\n"
44923"n : input int\n"
44924"\nOther Parameters\n----------------\n"
44925"lower : input int, optional\n Default: 0\n"
44926"\nReturns\n-------\n"
44927"work : complex\n"
44928"info : int";
44929/* extern void F_FUNC(zhesv ,ZHESV )(char*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */
44930static PyObject *f2py_rout__flapack_zhesv_lwork(const PyObject *capi_self,
44931 PyObject *capi_args,
44932 PyObject *capi_keywds,
44933 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
44934 PyObject * volatile capi_buildvalue = NULL((void*)0);
44935 volatile int f2py_success = 1;
44936/*decl*/
44937
44938 int n = 0;
44939 PyObject *n_capi = Py_None(&_Py_NoneStruct);
44940 int nrhs = 0;
44941 complex_double a;
44942 int lda = 0;
44943 int ipiv = 0;
44944 complex_double b;
44945 int ldb = 0;
44946 complex_double work;
44947 PyObject *work_capi = Py_None(&_Py_NoneStruct);
44948 int lwork = 0;
44949 int info = 0;
44950 int lower = 0;
44951 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
44952 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
44953
44954/*routdebugenter*/
44955#ifdef F2PY_REPORT_ATEXIT
44956f2py_start_clock();
44957#endif
44958 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
44959 "O|O:_flapack.zhesv_lwork",\
44960 capi_kwlist,&n_capi,&lower_capi))
44961 return NULL((void*)0);
44962/*frompyobj*/
44963 /* Processing variable lower */
44964 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
44965 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhesv_lwork() 1st keyword (lower) can't be converted to int");
44966 if (f2py_success) {
44967 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zhesv_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhesv_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
44968 /* Processing variable n */
44969 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zhesv_lwork() 1st argument (n) can't be converted to int");
44970 if (f2py_success) {
44971 /* Processing variable nrhs */
44972 nrhs = 1;
44973 /* Processing variable a */
44974 /* Processing variable ipiv */
44975 /* Processing variable b */
44976 /* Processing variable lwork */
44977 lwork = -1;
44978 /* Processing variable work */
44979 /* Processing variable info */
44980 /* Processing variable lda */
44981 lda = n;
44982 /* Processing variable ldb */
44983 ldb = n;
44984/*end of frompyobj*/
44985#ifdef F2PY_REPORT_ATEXIT
44986f2py_start_call_clock();
44987#endif
44988/*callfortranroutine*/
44989 (*f2py_func)((lower?"L":"U"),&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info) ;
44990 /*(*f2py_func)(&n,&nrhs,&a,&lda,&ipiv,&b,&ldb,&work,&lwork,&info,&lower);*/
44991if (PyErr_Occurred())
44992 f2py_success = 0;
44993#ifdef F2PY_REPORT_ATEXIT
44994f2py_stop_call_clock();
44995#endif
44996/*end of callfortranroutine*/
44997 if (f2py_success) {
44998/*pyobjfrom*/
44999 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
45000/*end of pyobjfrom*/
45001 CFUNCSMESS("Building return value.\n");
45002 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
45003/*closepyobjfrom*/
45004/*end of closepyobjfrom*/
45005 } /*if (f2py_success) after callfortranroutine*/
45006/*cleanupfrompyobj*/
45007 /* End of cleaning variable ldb */
45008 /* End of cleaning variable lda */
45009 /* End of cleaning variable info */
45010 /* End of cleaning variable work */
45011 /* End of cleaning variable lwork */
45012 /* End of cleaning variable b */
45013 /* End of cleaning variable ipiv */
45014 /* End of cleaning variable a */
45015 /* End of cleaning variable nrhs */
45016 } /*if (f2py_success) of n*/
45017 /* End of cleaning variable n */
45018 } /*CHECKSCALAR(lower==0||lower==1)*/
45019 } /*if (f2py_success) of lower*/
45020 /* End of cleaning variable lower */
45021/*end of cleanupfrompyobj*/
45022 if (capi_buildvalue == NULL((void*)0)) {
45023/*routdebugfailure*/
45024 } else {
45025/*routdebugleave*/
45026 }
45027 CFUNCSMESS("Freeing memory.\n");
45028/*freemem*/
45029#ifdef F2PY_REPORT_ATEXIT
45030f2py_stop_clock();
45031#endif
45032 return capi_buildvalue;
45033}
45034/***************************** end of zhesv_lwork *****************************/
45035
45036/*********************************** chesvx ***********************************/
45037static char doc_f2py_rout__flapack_chesvx[] = "\
45038uduh,ipiv,x,rcond,ferr,berr,info = chesvx(a,b,[af,ipiv,lwork,factored,lower,overwrite_a,overwrite_b])\n\nWrapper for ``chesvx``.\
45039\n\nParameters\n----------\n"
45040"a : input rank-2 array('F') with bounds (n,n)\n"
45041"b : input rank-2 array('F') with bounds (n,nrhs)\n"
45042"\nOther Parameters\n----------------\n"
45043"overwrite_a : input int, optional\n Default: 0\n"
45044"af : input rank-2 array('F') with bounds (n,n)\n"
45045"ipiv : input rank-1 array('i') with bounds (n)\n"
45046"overwrite_b : input int, optional\n Default: 0\n"
45047"lwork : input int, optional\n Default: max(2*n,1)\n"
45048"factored : input int, optional\n Default: 0\n"
45049"lower : input int, optional\n Default: 0\n"
45050"\nReturns\n-------\n"
45051"uduh : rank-2 array('F') with bounds (n,n) and af storage\n"
45052"ipiv : rank-1 array('i') with bounds (n)\n"
45053"x : rank-2 array('F') with bounds (n,nrhs)\n"
45054"rcond : float\n"
45055"ferr : rank-1 array('f') with bounds (nrhs)\n"
45056"berr : rank-1 array('f') with bounds (nrhs)\n"
45057"info : int";
45058/* extern void F_FUNC(chesvx,CHESVX)(char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,float*,complex_float*,F_INT*,float*,F_INT* ); */
45059static PyObject *f2py_rout__flapack_chesvx(const PyObject *capi_self,
45060 PyObject *capi_args,
45061 PyObject *capi_keywds,
45062 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,float*,F_INTint* )) {
45063 PyObject * volatile capi_buildvalue = NULL((void*)0);
45064 volatile int f2py_success = 1;
45065/*decl*/
45066
45067 int n = 0;
45068 int nrhs = 0;
45069 complex_float *a = NULL((void*)0);
45070 npy_intp a_Dims[2] = {-1, -1};
45071 const int a_Rank = 2;
45072 PyArrayObject *capi_a_tmp = NULL((void*)0);
45073 int capi_a_intent = 0;
45074 int capi_overwrite_a = 0;
45075 PyObject *a_capi = Py_None(&_Py_NoneStruct);
45076 int lda = 0;
45077 complex_float *af = NULL((void*)0);
45078 npy_intp af_Dims[2] = {-1, -1};
45079 const int af_Rank = 2;
45080 PyArrayObject *capi_af_tmp = NULL((void*)0);
45081 int capi_af_intent = 0;
45082 PyObject *af_capi = Py_None(&_Py_NoneStruct);
45083 int ldaf = 0;
45084 int *ipiv = NULL((void*)0);
45085 npy_intp ipiv_Dims[1] = {-1};
45086 const int ipiv_Rank = 1;
45087 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
45088 int capi_ipiv_intent = 0;
45089 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
45090 complex_float *b = NULL((void*)0);
45091 npy_intp b_Dims[2] = {-1, -1};
45092 const int b_Rank = 2;
45093 PyArrayObject *capi_b_tmp = NULL((void*)0);
45094 int capi_b_intent = 0;
45095 int capi_overwrite_b = 0;
45096 PyObject *b_capi = Py_None(&_Py_NoneStruct);
45097 int ldb = 0;
45098 complex_float *x = NULL((void*)0);
45099 npy_intp x_Dims[2] = {-1, -1};
45100 const int x_Rank = 2;
45101 PyArrayObject *capi_x_tmp = NULL((void*)0);
45102 int capi_x_intent = 0;
45103 int ldx = 0;
45104 float rcond = 0;
45105 float *ferr = NULL((void*)0);
45106 npy_intp ferr_Dims[1] = {-1};
45107 const int ferr_Rank = 1;
45108 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
45109 int capi_ferr_intent = 0;
45110 float *berr = NULL((void*)0);
45111 npy_intp berr_Dims[1] = {-1};
45112 const int berr_Rank = 1;
45113 PyArrayObject *capi_berr_tmp = NULL((void*)0);
45114 int capi_berr_intent = 0;
45115 complex_float *work = NULL((void*)0);
45116 npy_intp work_Dims[1] = {-1};
45117 const int work_Rank = 1;
45118 PyArrayObject *capi_work_tmp = NULL((void*)0);
45119 int capi_work_intent = 0;
45120 int lwork = 0;
45121 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
45122 float *rwork = NULL((void*)0);
45123 npy_intp rwork_Dims[1] = {-1};
45124 const int rwork_Rank = 1;
45125 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
45126 int capi_rwork_intent = 0;
45127 int info = 0;
45128 int factored = 0;
45129 PyObject *factored_capi = Py_None(&_Py_NoneStruct);
45130 int lower = 0;
45131 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
45132 static char *capi_kwlist[] = {"a","b","af","ipiv","lwork","factored","lower","overwrite_a","overwrite_b",NULL((void*)0)};
45133
45134/*routdebugenter*/
45135#ifdef F2PY_REPORT_ATEXIT
45136f2py_start_clock();
45137#endif
45138 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
45139 "OO|OOOOOii:_flapack.chesvx",\
45140 capi_kwlist,&a_capi,&b_capi,&af_capi,&ipiv_capi,&lwork_capi,&factored_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b))
45141 return NULL((void*)0);
45142/*frompyobj*/
45143 /* Processing variable factored */
45144 if (factored_capi == Py_None(&_Py_NoneStruct)) factored = 0; else
45145 f2py_success = int_from_pyobj(&factored,factored_capi,"_flapack.chesvx() 4th keyword (factored) can't be converted to int");
45146 if (f2py_success) {
45147 CHECKSCALAR(factored==0||factored==1,"factored==0||factored==1","4th keyword factored","chesvx:factored=%d",factored)if (!(factored==0||factored==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chesvx:factored=%d", "(""factored==0||factored==1"") failed for "
"4th keyword factored", factored); PyErr_SetString(_flapack_error
,errstring); } else
{
45148 /* Processing variable lower */
45149 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
45150 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chesvx() 5th keyword (lower) can't be converted to int");
45151 if (f2py_success) {
45152 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","5th keyword lower","chesvx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chesvx:lower=%d", "(""lower==0||lower==1"") failed for "
"5th keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
45153 /* Processing variable a */
45154 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
45155 ;
45156 capi_a_intent |= F2PY_INTENT_IN1;
45157 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
45158 if (capi_a_tmp == NULL((void*)0)) {
45159 if (!PyErr_Occurred())
45160 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.chesvx to C/Fortran array" );
45161 } else {
45162 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
45163
45164 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
45165 /* Processing variable rcond */
45166 /* Processing variable info */
45167 /* Processing variable n */
45168 n = shape(a,0)a_Dims[0];
45169 /* Processing variable lda */
45170 lda = shape(a,0)a_Dims[0];
45171 /* Processing variable af */
45172 af_Dims[0]=n,af_Dims[1]=n;
45173 capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
45174 capi_af_tmp = array_from_pyobj(NPY_CFLOAT,af_Dims,af_Rank,capi_af_intent,af_capi);
45175 if (capi_af_tmp == NULL((void*)0)) {
45176 if (!PyErr_Occurred())
45177 PyErr_SetString(_flapack_error,"failed in converting 1st keyword `af' of _flapack.chesvx to C/Fortran array" );
45178 } else {
45179 af = (complex_float *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data));
45180
45181 /* Processing variable ldaf */
45182 ldaf = shape(af,0)af_Dims[0];
45183 /* Processing variable ipiv */
45184 ipiv_Dims[0]=n;
45185 capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
45186 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
45187 if (capi_ipiv_tmp == NULL((void*)0)) {
45188 if (!PyErr_Occurred())
45189 PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `ipiv' of _flapack.chesvx to C/Fortran array" );
45190 } else {
45191 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
45192
45193 /* Processing variable b */
45194 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
45195 b_Dims[0]=n;
45196 capi_b_intent |= F2PY_INTENT_IN1;
45197 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
45198 if (capi_b_tmp == NULL((void*)0)) {
45199 if (!PyErr_Occurred())
45200 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.chesvx to C/Fortran array" );
45201 } else {
45202 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
45203
45204 /* Processing variable ldb */
45205 ldb = shape(b,0)b_Dims[0];
45206 /* Processing variable lwork */
45207 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else
45208 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.chesvx() 3rd keyword (lwork) can't be converted to int");
45209 if (f2py_success) {
45210 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","3rd keyword lwork","chesvx:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chesvx:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
45211 /* Processing variable rwork */
45212 rwork_Dims[0]=n;
45213 capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
45214 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
45215 if (capi_rwork_tmp == NULL((void*)0)) {
45216 if (!PyErr_Occurred())
45217 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.chesvx to C/Fortran array" );
45218 } else {
45219 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
45220
45221 /* Processing variable nrhs */
45222 nrhs = shape(b,1)b_Dims[1];
45223 /* Processing variable x */
45224 x_Dims[0]=n,x_Dims[1]=nrhs;
45225 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
45226 capi_x_tmp = array_from_pyobj(NPY_CFLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
45227 if (capi_x_tmp == NULL((void*)0)) {
45228 if (!PyErr_Occurred())
45229 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.chesvx to C/Fortran array" );
45230 } else {
45231 x = (complex_float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
45232
45233 /* Processing variable ldx */
45234 ldx = shape(x,0)x_Dims[0];
45235 /* Processing variable ferr */
45236 ferr_Dims[0]=nrhs;
45237 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
45238 capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
45239 if (capi_ferr_tmp == NULL((void*)0)) {
45240 if (!PyErr_Occurred())
45241 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.chesvx to C/Fortran array" );
45242 } else {
45243 ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
45244
45245 /* Processing variable berr */
45246 berr_Dims[0]=nrhs;
45247 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
45248 capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
45249 if (capi_berr_tmp == NULL((void*)0)) {
45250 if (!PyErr_Occurred())
45251 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.chesvx to C/Fortran array" );
45252 } else {
45253 berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
45254
45255 /* Processing variable work */
45256 work_Dims[0]=MAX(1,lwork)((1 > lwork) ? (1) : (lwork));
45257 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
45258 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
45259 if (capi_work_tmp == NULL((void*)0)) {
45260 if (!PyErr_Occurred())
45261 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.chesvx to C/Fortran array" );
45262 } else {
45263 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
45264
45265/*end of frompyobj*/
45266#ifdef F2PY_REPORT_ATEXIT
45267f2py_start_call_clock();
45268#endif
45269/*callfortranroutine*/
45270 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
45271 (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,rwork,&info) ;
45272 /*(*f2py_func)(&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,rwork,&info,&factored,&lower);*/
45273 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
45274if (PyErr_Occurred())
45275 f2py_success = 0;
45276#ifdef F2PY_REPORT_ATEXIT
45277f2py_stop_call_clock();
45278#endif
45279/*end of callfortranroutine*/
45280 if (f2py_success) {
45281/*pyobjfrom*/
45282/*end of pyobjfrom*/
45283 CFUNCSMESS("Building return value.\n");
45284 capi_buildvalue = Py_BuildValue("NNNfNNi",capi_af_tmp,capi_ipiv_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
45285/*closepyobjfrom*/
45286/*end of closepyobjfrom*/
45287 } /*if (f2py_success) after callfortranroutine*/
45288/*cleanupfrompyobj*/
45289 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
45290 } /*if (capi_work_tmp == NULL) ... else of work*/
45291 /* End of cleaning variable work */
45292 } /*if (capi_berr_tmp == NULL) ... else of berr*/
45293 /* End of cleaning variable berr */
45294 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
45295 /* End of cleaning variable ferr */
45296 /* End of cleaning variable ldx */
45297 } /*if (capi_x_tmp == NULL) ... else of x*/
45298 /* End of cleaning variable x */
45299 /* End of cleaning variable nrhs */
45300 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
45301 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
45302 /* End of cleaning variable rwork */
45303 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
45304 } /*if (f2py_success) of lwork*/
45305 /* End of cleaning variable lwork */
45306 /* End of cleaning variable ldb */
45307 if((PyObject *)capi_b_tmp!=b_capi) {
45308 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
45309 } /*if (capi_b_tmp == NULL) ... else of b*/
45310 /* End of cleaning variable b */
45311 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
45312 /* End of cleaning variable ipiv */
45313 /* End of cleaning variable ldaf */
45314 } /*if (capi_af_tmp == NULL) ... else of af*/
45315 /* End of cleaning variable af */
45316 /* End of cleaning variable lda */
45317 /* End of cleaning variable n */
45318 /* End of cleaning variable info */
45319 /* End of cleaning variable rcond */
45320 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
45321 if((PyObject *)capi_a_tmp!=a_capi) {
45322 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
45323 } /*if (capi_a_tmp == NULL) ... else of a*/
45324 /* End of cleaning variable a */
45325 } /*CHECKSCALAR(lower==0||lower==1)*/
45326 } /*if (f2py_success) of lower*/
45327 /* End of cleaning variable lower */
45328 } /*CHECKSCALAR(factored==0||factored==1)*/
45329 } /*if (f2py_success) of factored*/
45330 /* End of cleaning variable factored */
45331/*end of cleanupfrompyobj*/
45332 if (capi_buildvalue == NULL((void*)0)) {
45333/*routdebugfailure*/
45334 } else {
45335/*routdebugleave*/
45336 }
45337 CFUNCSMESS("Freeing memory.\n");
45338/*freemem*/
45339#ifdef F2PY_REPORT_ATEXIT
45340f2py_stop_clock();
45341#endif
45342 return capi_buildvalue;
45343}
45344/******************************* end of chesvx *******************************/
45345
45346/*********************************** zhesvx ***********************************/
45347static char doc_f2py_rout__flapack_zhesvx[] = "\
45348uduh,ipiv,x,rcond,ferr,berr,info = zhesvx(a,b,[af,ipiv,lwork,factored,lower,overwrite_a,overwrite_b])\n\nWrapper for ``zhesvx``.\
45349\n\nParameters\n----------\n"
45350"a : input rank-2 array('D') with bounds (n,n)\n"
45351"b : input rank-2 array('D') with bounds (n,nrhs)\n"
45352"\nOther Parameters\n----------------\n"
45353"overwrite_a : input int, optional\n Default: 0\n"
45354"af : input rank-2 array('D') with bounds (n,n)\n"
45355"ipiv : input rank-1 array('i') with bounds (n)\n"
45356"overwrite_b : input int, optional\n Default: 0\n"
45357"lwork : input int, optional\n Default: max(2*n,1)\n"
45358"factored : input int, optional\n Default: 0\n"
45359"lower : input int, optional\n Default: 0\n"
45360"\nReturns\n-------\n"
45361"uduh : rank-2 array('D') with bounds (n,n) and af storage\n"
45362"ipiv : rank-1 array('i') with bounds (n)\n"
45363"x : rank-2 array('D') with bounds (n,nrhs)\n"
45364"rcond : float\n"
45365"ferr : rank-1 array('d') with bounds (nrhs)\n"
45366"berr : rank-1 array('d') with bounds (nrhs)\n"
45367"info : int";
45368/* extern void F_FUNC(zhesvx,ZHESVX)(char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,double*,complex_double*,F_INT*,double*,F_INT* ); */
45369static PyObject *f2py_rout__flapack_zhesvx(const PyObject *capi_self,
45370 PyObject *capi_args,
45371 PyObject *capi_keywds,
45372 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,double*,F_INTint* )) {
45373 PyObject * volatile capi_buildvalue = NULL((void*)0);
45374 volatile int f2py_success = 1;
45375/*decl*/
45376
45377 int n = 0;
45378 int nrhs = 0;
45379 complex_double *a = NULL((void*)0);
45380 npy_intp a_Dims[2] = {-1, -1};
45381 const int a_Rank = 2;
45382 PyArrayObject *capi_a_tmp = NULL((void*)0);
45383 int capi_a_intent = 0;
45384 int capi_overwrite_a = 0;
45385 PyObject *a_capi = Py_None(&_Py_NoneStruct);
45386 int lda = 0;
45387 complex_double *af = NULL((void*)0);
45388 npy_intp af_Dims[2] = {-1, -1};
45389 const int af_Rank = 2;
45390 PyArrayObject *capi_af_tmp = NULL((void*)0);
45391 int capi_af_intent = 0;
45392 PyObject *af_capi = Py_None(&_Py_NoneStruct);
45393 int ldaf = 0;
45394 int *ipiv = NULL((void*)0);
45395 npy_intp ipiv_Dims[1] = {-1};
45396 const int ipiv_Rank = 1;
45397 PyArrayObject *capi_ipiv_tmp = NULL((void*)0);
45398 int capi_ipiv_intent = 0;
45399 PyObject *ipiv_capi = Py_None(&_Py_NoneStruct);
45400 complex_double *b = NULL((void*)0);
45401 npy_intp b_Dims[2] = {-1, -1};
45402 const int b_Rank = 2;
45403 PyArrayObject *capi_b_tmp = NULL((void*)0);
45404 int capi_b_intent = 0;
45405 int capi_overwrite_b = 0;
45406 PyObject *b_capi = Py_None(&_Py_NoneStruct);
45407 int ldb = 0;
45408 complex_double *x = NULL((void*)0);
45409 npy_intp x_Dims[2] = {-1, -1};
45410 const int x_Rank = 2;
45411 PyArrayObject *capi_x_tmp = NULL((void*)0);
45412 int capi_x_intent = 0;
45413 int ldx = 0;
45414 double rcond = 0;
45415 double *ferr = NULL((void*)0);
45416 npy_intp ferr_Dims[1] = {-1};
45417 const int ferr_Rank = 1;
45418 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
45419 int capi_ferr_intent = 0;
45420 double *berr = NULL((void*)0);
45421 npy_intp berr_Dims[1] = {-1};
45422 const int berr_Rank = 1;
45423 PyArrayObject *capi_berr_tmp = NULL((void*)0);
45424 int capi_berr_intent = 0;
45425 complex_double *work = NULL((void*)0);
45426 npy_intp work_Dims[1] = {-1};
45427 const int work_Rank = 1;
45428 PyArrayObject *capi_work_tmp = NULL((void*)0);
45429 int capi_work_intent = 0;
45430 int lwork = 0;
45431 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
45432 double *rwork = NULL((void*)0);
45433 npy_intp rwork_Dims[1] = {-1};
45434 const int rwork_Rank = 1;
45435 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
45436 int capi_rwork_intent = 0;
45437 int info = 0;
45438 int factored = 0;
45439 PyObject *factored_capi = Py_None(&_Py_NoneStruct);
45440 int lower = 0;
45441 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
45442 static char *capi_kwlist[] = {"a","b","af","ipiv","lwork","factored","lower","overwrite_a","overwrite_b",NULL((void*)0)};
45443
45444/*routdebugenter*/
45445#ifdef F2PY_REPORT_ATEXIT
45446f2py_start_clock();
45447#endif
45448 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
45449 "OO|OOOOOii:_flapack.zhesvx",\
45450 capi_kwlist,&a_capi,&b_capi,&af_capi,&ipiv_capi,&lwork_capi,&factored_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b))
45451 return NULL((void*)0);
45452/*frompyobj*/
45453 /* Processing variable factored */
45454 if (factored_capi == Py_None(&_Py_NoneStruct)) factored = 0; else
45455 f2py_success = int_from_pyobj(&factored,factored_capi,"_flapack.zhesvx() 4th keyword (factored) can't be converted to int");
45456 if (f2py_success) {
45457 CHECKSCALAR(factored==0||factored==1,"factored==0||factored==1","4th keyword factored","zhesvx:factored=%d",factored)if (!(factored==0||factored==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhesvx:factored=%d", "(""factored==0||factored==1"") failed for "
"4th keyword factored", factored); PyErr_SetString(_flapack_error
,errstring); } else
{
45458 /* Processing variable lower */
45459 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
45460 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhesvx() 5th keyword (lower) can't be converted to int");
45461 if (f2py_success) {
45462 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","5th keyword lower","zhesvx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhesvx:lower=%d", "(""lower==0||lower==1"") failed for "
"5th keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
45463 /* Processing variable a */
45464 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
45465 ;
45466 capi_a_intent |= F2PY_INTENT_IN1;
45467 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
45468 if (capi_a_tmp == NULL((void*)0)) {
45469 if (!PyErr_Occurred())
45470 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zhesvx to C/Fortran array" );
45471 } else {
45472 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
45473
45474 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
45475 /* Processing variable rcond */
45476 /* Processing variable info */
45477 /* Processing variable n */
45478 n = shape(a,0)a_Dims[0];
45479 /* Processing variable lda */
45480 lda = shape(a,0)a_Dims[0];
45481 /* Processing variable af */
45482 af_Dims[0]=n,af_Dims[1]=n;
45483 capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
45484 capi_af_tmp = array_from_pyobj(NPY_CDOUBLE,af_Dims,af_Rank,capi_af_intent,af_capi);
45485 if (capi_af_tmp == NULL((void*)0)) {
45486 if (!PyErr_Occurred())
45487 PyErr_SetString(_flapack_error,"failed in converting 1st keyword `af' of _flapack.zhesvx to C/Fortran array" );
45488 } else {
45489 af = (complex_double *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data));
45490
45491 /* Processing variable ldaf */
45492 ldaf = shape(af,0)af_Dims[0];
45493 /* Processing variable ipiv */
45494 ipiv_Dims[0]=n;
45495 capi_ipiv_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
45496 capi_ipiv_tmp = array_from_pyobj(NPY_INT,ipiv_Dims,ipiv_Rank,capi_ipiv_intent,ipiv_capi);
45497 if (capi_ipiv_tmp == NULL((void*)0)) {
45498 if (!PyErr_Occurred())
45499 PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `ipiv' of _flapack.zhesvx to C/Fortran array" );
45500 } else {
45501 ipiv = (int *)(PyArray_DATA(capi_ipiv_tmp)((void *)((PyArrayObject_fields *)(capi_ipiv_tmp))->data));
45502
45503 /* Processing variable b */
45504 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
45505 b_Dims[0]=n;
45506 capi_b_intent |= F2PY_INTENT_IN1;
45507 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
45508 if (capi_b_tmp == NULL((void*)0)) {
45509 if (!PyErr_Occurred())
45510 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zhesvx to C/Fortran array" );
45511 } else {
45512 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
45513
45514 /* Processing variable ldb */
45515 ldb = shape(b,0)b_Dims[0];
45516 /* Processing variable lwork */
45517 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else
45518 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zhesvx() 3rd keyword (lwork) can't be converted to int");
45519 if (f2py_success) {
45520 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","3rd keyword lwork","zhesvx:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhesvx:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
45521 /* Processing variable rwork */
45522 rwork_Dims[0]=n;
45523 capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
45524 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
45525 if (capi_rwork_tmp == NULL((void*)0)) {
45526 if (!PyErr_Occurred())
45527 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zhesvx to C/Fortran array" );
45528 } else {
45529 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
45530
45531 /* Processing variable nrhs */
45532 nrhs = shape(b,1)b_Dims[1];
45533 /* Processing variable x */
45534 x_Dims[0]=n,x_Dims[1]=nrhs;
45535 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
45536 capi_x_tmp = array_from_pyobj(NPY_CDOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
45537 if (capi_x_tmp == NULL((void*)0)) {
45538 if (!PyErr_Occurred())
45539 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.zhesvx to C/Fortran array" );
45540 } else {
45541 x = (complex_double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
45542
45543 /* Processing variable ldx */
45544 ldx = shape(x,0)x_Dims[0];
45545 /* Processing variable ferr */
45546 ferr_Dims[0]=nrhs;
45547 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
45548 capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
45549 if (capi_ferr_tmp == NULL((void*)0)) {
45550 if (!PyErr_Occurred())
45551 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.zhesvx to C/Fortran array" );
45552 } else {
45553 ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
45554
45555 /* Processing variable berr */
45556 berr_Dims[0]=nrhs;
45557 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
45558 capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
45559 if (capi_berr_tmp == NULL((void*)0)) {
45560 if (!PyErr_Occurred())
45561 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.zhesvx to C/Fortran array" );
45562 } else {
45563 berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
45564
45565 /* Processing variable work */
45566 work_Dims[0]=MAX(1,lwork)((1 > lwork) ? (1) : (lwork));
45567 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
45568 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
45569 if (capi_work_tmp == NULL((void*)0)) {
45570 if (!PyErr_Occurred())
45571 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zhesvx to C/Fortran array" );
45572 } else {
45573 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
45574
45575/*end of frompyobj*/
45576#ifdef F2PY_REPORT_ATEXIT
45577f2py_start_call_clock();
45578#endif
45579/*callfortranroutine*/
45580 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
45581 (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,rwork,&info) ;
45582 /*(*f2py_func)(&n,&nrhs,a,&lda,af,&ldaf,ipiv,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&lwork,rwork,&info,&factored,&lower);*/
45583 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
45584if (PyErr_Occurred())
45585 f2py_success = 0;
45586#ifdef F2PY_REPORT_ATEXIT
45587f2py_stop_call_clock();
45588#endif
45589/*end of callfortranroutine*/
45590 if (f2py_success) {
45591/*pyobjfrom*/
45592/*end of pyobjfrom*/
45593 CFUNCSMESS("Building return value.\n");
45594 capi_buildvalue = Py_BuildValue("NNNdNNi",capi_af_tmp,capi_ipiv_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
45595/*closepyobjfrom*/
45596/*end of closepyobjfrom*/
45597 } /*if (f2py_success) after callfortranroutine*/
45598/*cleanupfrompyobj*/
45599 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
45600 } /*if (capi_work_tmp == NULL) ... else of work*/
45601 /* End of cleaning variable work */
45602 } /*if (capi_berr_tmp == NULL) ... else of berr*/
45603 /* End of cleaning variable berr */
45604 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
45605 /* End of cleaning variable ferr */
45606 /* End of cleaning variable ldx */
45607 } /*if (capi_x_tmp == NULL) ... else of x*/
45608 /* End of cleaning variable x */
45609 /* End of cleaning variable nrhs */
45610 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
45611 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
45612 /* End of cleaning variable rwork */
45613 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
45614 } /*if (f2py_success) of lwork*/
45615 /* End of cleaning variable lwork */
45616 /* End of cleaning variable ldb */
45617 if((PyObject *)capi_b_tmp!=b_capi) {
45618 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
45619 } /*if (capi_b_tmp == NULL) ... else of b*/
45620 /* End of cleaning variable b */
45621 } /*if (capi_ipiv_tmp == NULL) ... else of ipiv*/
45622 /* End of cleaning variable ipiv */
45623 /* End of cleaning variable ldaf */
45624 } /*if (capi_af_tmp == NULL) ... else of af*/
45625 /* End of cleaning variable af */
45626 /* End of cleaning variable lda */
45627 /* End of cleaning variable n */
45628 /* End of cleaning variable info */
45629 /* End of cleaning variable rcond */
45630 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
45631 if((PyObject *)capi_a_tmp!=a_capi) {
45632 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
45633 } /*if (capi_a_tmp == NULL) ... else of a*/
45634 /* End of cleaning variable a */
45635 } /*CHECKSCALAR(lower==0||lower==1)*/
45636 } /*if (f2py_success) of lower*/
45637 /* End of cleaning variable lower */
45638 } /*CHECKSCALAR(factored==0||factored==1)*/
45639 } /*if (f2py_success) of factored*/
45640 /* End of cleaning variable factored */
45641/*end of cleanupfrompyobj*/
45642 if (capi_buildvalue == NULL((void*)0)) {
45643/*routdebugfailure*/
45644 } else {
45645/*routdebugleave*/
45646 }
45647 CFUNCSMESS("Freeing memory.\n");
45648/*freemem*/
45649#ifdef F2PY_REPORT_ATEXIT
45650f2py_stop_clock();
45651#endif
45652 return capi_buildvalue;
45653}
45654/******************************* end of zhesvx *******************************/
45655
45656/******************************** chesvx_lwork ********************************/
45657static char doc_f2py_rout__flapack_chesvx_lwork[] = "\
45658work,info = chesvx_lwork(n,[lower])\n\nWrapper for ``chesvx_lwork``.\
45659\n\nParameters\n----------\n"
45660"n : input int\n"
45661"\nOther Parameters\n----------------\n"
45662"lower : input int, optional\n Default: 0\n"
45663"\nReturns\n-------\n"
45664"work : complex\n"
45665"info : int";
45666/* extern void F_FUNC(chesvx ,CHESVX )(char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,float*,complex_float*,F_INT*,float*,F_INT* ); */
45667static PyObject *f2py_rout__flapack_chesvx_lwork(const PyObject *capi_self,
45668 PyObject *capi_args,
45669 PyObject *capi_keywds,
45670 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,float*,F_INTint* )) {
45671 PyObject * volatile capi_buildvalue = NULL((void*)0);
45672 volatile int f2py_success = 1;
45673/*decl*/
45674
45675 int n = 0;
45676 PyObject *n_capi = Py_None(&_Py_NoneStruct);
45677 int nrhs = 0;
45678 complex_float a;
45679 int lda = 0;
45680 complex_float af;
45681 int ldaf = 0;
45682 int ipiv = 0;
45683 complex_float b;
45684 int ldb = 0;
45685 complex_float x;
45686 int ldx = 0;
45687 float rcond = 0;
45688 float ferr = 0;
45689 float berr = 0;
45690 complex_float work;
45691 PyObject *work_capi = Py_None(&_Py_NoneStruct);
45692 int lwork = 0;
45693 float rwork = 0;
45694 int info = 0;
45695 int factored = 0;
45696 int lower = 0;
45697 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
45698 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
45699
45700/*routdebugenter*/
45701#ifdef F2PY_REPORT_ATEXIT
45702f2py_start_clock();
45703#endif
45704 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
45705 "O|O:_flapack.chesvx_lwork",\
45706 capi_kwlist,&n_capi,&lower_capi))
45707 return NULL((void*)0);
45708/*frompyobj*/
45709 /* Processing variable lower */
45710 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
45711 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chesvx_lwork() 1st keyword (lower) can't be converted to int");
45712 if (f2py_success) {
45713 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","chesvx_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chesvx_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
45714 /* Processing variable n */
45715 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.chesvx_lwork() 1st argument (n) can't be converted to int");
45716 if (f2py_success) {
45717 /* Processing variable factored */
45718 factored = 0;
45719 /* Processing variable a */
45720 /* Processing variable af */
45721 /* Processing variable ipiv */
45722 /* Processing variable b */
45723 /* Processing variable x */
45724 /* Processing variable rcond */
45725 /* Processing variable ferr */
45726 /* Processing variable berr */
45727 /* Processing variable lwork */
45728 lwork = -1;
45729 /* Processing variable rwork */
45730 /* Processing variable work */
45731 /* Processing variable info */
45732 /* Processing variable nrhs */
45733 nrhs = 1;
45734 /* Processing variable lda */
45735 lda = n;
45736 /* Processing variable ldaf */
45737 ldaf = n;
45738 /* Processing variable ldb */
45739 ldb = n;
45740 /* Processing variable ldx */
45741 ldx = n;
45742/*end of frompyobj*/
45743#ifdef F2PY_REPORT_ATEXIT
45744f2py_start_call_clock();
45745#endif
45746/*callfortranroutine*/
45747 (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&rwork,&info) ;
45748 /*(*f2py_func)(&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&rwork,&info,&factored,&lower);*/
45749if (PyErr_Occurred())
45750 f2py_success = 0;
45751#ifdef F2PY_REPORT_ATEXIT
45752f2py_stop_call_clock();
45753#endif
45754/*end of callfortranroutine*/
45755 if (f2py_success) {
45756/*pyobjfrom*/
45757 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
45758/*end of pyobjfrom*/
45759 CFUNCSMESS("Building return value.\n");
45760 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
45761/*closepyobjfrom*/
45762/*end of closepyobjfrom*/
45763 } /*if (f2py_success) after callfortranroutine*/
45764/*cleanupfrompyobj*/
45765 /* End of cleaning variable ldx */
45766 /* End of cleaning variable ldb */
45767 /* End of cleaning variable ldaf */
45768 /* End of cleaning variable lda */
45769 /* End of cleaning variable nrhs */
45770 /* End of cleaning variable info */
45771 /* End of cleaning variable work */
45772 /* End of cleaning variable rwork */
45773 /* End of cleaning variable lwork */
45774 /* End of cleaning variable berr */
45775 /* End of cleaning variable ferr */
45776 /* End of cleaning variable rcond */
45777 /* End of cleaning variable x */
45778 /* End of cleaning variable b */
45779 /* End of cleaning variable ipiv */
45780 /* End of cleaning variable af */
45781 /* End of cleaning variable a */
45782 /* End of cleaning variable factored */
45783 } /*if (f2py_success) of n*/
45784 /* End of cleaning variable n */
45785 } /*CHECKSCALAR(lower==0||lower==1)*/
45786 } /*if (f2py_success) of lower*/
45787 /* End of cleaning variable lower */
45788/*end of cleanupfrompyobj*/
45789 if (capi_buildvalue == NULL((void*)0)) {
45790/*routdebugfailure*/
45791 } else {
45792/*routdebugleave*/
45793 }
45794 CFUNCSMESS("Freeing memory.\n");
45795/*freemem*/
45796#ifdef F2PY_REPORT_ATEXIT
45797f2py_stop_clock();
45798#endif
45799 return capi_buildvalue;
45800}
45801/**************************** end of chesvx_lwork ****************************/
45802
45803/******************************** zhesvx_lwork ********************************/
45804static char doc_f2py_rout__flapack_zhesvx_lwork[] = "\
45805work,info = zhesvx_lwork(n,[lower])\n\nWrapper for ``zhesvx_lwork``.\
45806\n\nParameters\n----------\n"
45807"n : input int\n"
45808"\nOther Parameters\n----------------\n"
45809"lower : input int, optional\n Default: 0\n"
45810"\nReturns\n-------\n"
45811"work : complex\n"
45812"info : int";
45813/* extern void F_FUNC(zhesvx ,ZHESVX )(char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,double*,complex_double*,F_INT*,double*,F_INT* ); */
45814static PyObject *f2py_rout__flapack_zhesvx_lwork(const PyObject *capi_self,
45815 PyObject *capi_args,
45816 PyObject *capi_keywds,
45817 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,double*,F_INTint* )) {
45818 PyObject * volatile capi_buildvalue = NULL((void*)0);
45819 volatile int f2py_success = 1;
45820/*decl*/
45821
45822 int n = 0;
45823 PyObject *n_capi = Py_None(&_Py_NoneStruct);
45824 int nrhs = 0;
45825 complex_double a;
45826 int lda = 0;
45827 complex_double af;
45828 int ldaf = 0;
45829 int ipiv = 0;
45830 complex_double b;
45831 int ldb = 0;
45832 complex_double x;
45833 int ldx = 0;
45834 double rcond = 0;
45835 double ferr = 0;
45836 double berr = 0;
45837 complex_double work;
45838 PyObject *work_capi = Py_None(&_Py_NoneStruct);
45839 int lwork = 0;
45840 double rwork = 0;
45841 int info = 0;
45842 int factored = 0;
45843 int lower = 0;
45844 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
45845 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
45846
45847/*routdebugenter*/
45848#ifdef F2PY_REPORT_ATEXIT
45849f2py_start_clock();
45850#endif
45851 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
45852 "O|O:_flapack.zhesvx_lwork",\
45853 capi_kwlist,&n_capi,&lower_capi))
45854 return NULL((void*)0);
45855/*frompyobj*/
45856 /* Processing variable lower */
45857 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
45858 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhesvx_lwork() 1st keyword (lower) can't be converted to int");
45859 if (f2py_success) {
45860 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zhesvx_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhesvx_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
45861 /* Processing variable n */
45862 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zhesvx_lwork() 1st argument (n) can't be converted to int");
45863 if (f2py_success) {
45864 /* Processing variable factored */
45865 factored = 0;
45866 /* Processing variable a */
45867 /* Processing variable af */
45868 /* Processing variable ipiv */
45869 /* Processing variable b */
45870 /* Processing variable x */
45871 /* Processing variable rcond */
45872 /* Processing variable ferr */
45873 /* Processing variable berr */
45874 /* Processing variable lwork */
45875 lwork = -1;
45876 /* Processing variable rwork */
45877 /* Processing variable work */
45878 /* Processing variable info */
45879 /* Processing variable nrhs */
45880 nrhs = 1;
45881 /* Processing variable lda */
45882 lda = n;
45883 /* Processing variable ldaf */
45884 ldaf = n;
45885 /* Processing variable ldb */
45886 ldb = n;
45887 /* Processing variable ldx */
45888 ldx = n;
45889/*end of frompyobj*/
45890#ifdef F2PY_REPORT_ATEXIT
45891f2py_start_call_clock();
45892#endif
45893/*callfortranroutine*/
45894 (*f2py_func)((factored?"F":"N"),(lower?"L":"U"),&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&rwork,&info) ;
45895 /*(*f2py_func)(&n,&nrhs,&a,&lda,&af,&ldaf,&ipiv,&b,&ldb,&x,&ldx,&rcond,&ferr,&berr,&work,&lwork,&rwork,&info,&factored,&lower);*/
45896if (PyErr_Occurred())
45897 f2py_success = 0;
45898#ifdef F2PY_REPORT_ATEXIT
45899f2py_stop_call_clock();
45900#endif
45901/*end of callfortranroutine*/
45902 if (f2py_success) {
45903/*pyobjfrom*/
45904 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
45905/*end of pyobjfrom*/
45906 CFUNCSMESS("Building return value.\n");
45907 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
45908/*closepyobjfrom*/
45909/*end of closepyobjfrom*/
45910 } /*if (f2py_success) after callfortranroutine*/
45911/*cleanupfrompyobj*/
45912 /* End of cleaning variable ldx */
45913 /* End of cleaning variable ldb */
45914 /* End of cleaning variable ldaf */
45915 /* End of cleaning variable lda */
45916 /* End of cleaning variable nrhs */
45917 /* End of cleaning variable info */
45918 /* End of cleaning variable work */
45919 /* End of cleaning variable rwork */
45920 /* End of cleaning variable lwork */
45921 /* End of cleaning variable berr */
45922 /* End of cleaning variable ferr */
45923 /* End of cleaning variable rcond */
45924 /* End of cleaning variable x */
45925 /* End of cleaning variable b */
45926 /* End of cleaning variable ipiv */
45927 /* End of cleaning variable af */
45928 /* End of cleaning variable a */
45929 /* End of cleaning variable factored */
45930 } /*if (f2py_success) of n*/
45931 /* End of cleaning variable n */
45932 } /*CHECKSCALAR(lower==0||lower==1)*/
45933 } /*if (f2py_success) of lower*/
45934 /* End of cleaning variable lower */
45935/*end of cleanupfrompyobj*/
45936 if (capi_buildvalue == NULL((void*)0)) {
45937/*routdebugfailure*/
45938 } else {
45939/*routdebugleave*/
45940 }
45941 CFUNCSMESS("Freeing memory.\n");
45942/*freemem*/
45943#ifdef F2PY_REPORT_ATEXIT
45944f2py_stop_clock();
45945#endif
45946 return capi_buildvalue;
45947}
45948/**************************** end of zhesvx_lwork ****************************/
45949
45950/*********************************** ssytrd ***********************************/
45951static char doc_f2py_rout__flapack_ssytrd[] = "\
45952c,d,e,tau,info = ssytrd(a,[lower,lwork,overwrite_a])\n\nWrapper for ``ssytrd``.\
45953\n\nParameters\n----------\n"
45954"a : input rank-2 array('f') with bounds (lda,n)\n"
45955"\nOther Parameters\n----------------\n"
45956"lower : input int, optional\n Default: 0\n"
45957"overwrite_a : input int, optional\n Default: 0\n"
45958"lwork : input int, optional\n Default: MAX(n,1)\n"
45959"\nReturns\n-------\n"
45960"c : rank-2 array('f') with bounds (lda,n) and a storage\n"
45961"d : rank-1 array('f') with bounds (n)\n"
45962"e : rank-1 array('f') with bounds (n - 1)\n"
45963"tau : rank-1 array('f') with bounds (n - 1)\n"
45964"info : int";
45965/* extern void F_FUNC(ssytrd,SSYTRD)(char*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT* ); */
45966static PyObject *f2py_rout__flapack_ssytrd(const PyObject *capi_self,
45967 PyObject *capi_args,
45968 PyObject *capi_keywds,
45969 void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* )) {
45970 PyObject * volatile capi_buildvalue = NULL((void*)0);
45971 volatile int f2py_success = 1;
45972/*decl*/
45973
45974 int lower = 0;
45975 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
45976 int n = 0;
45977 float *a = NULL((void*)0);
45978 npy_intp a_Dims[2] = {-1, -1};
45979 const int a_Rank = 2;
45980 PyArrayObject *capi_a_tmp = NULL((void*)0);
45981 int capi_a_intent = 0;
45982 int capi_overwrite_a = 0;
45983 PyObject *a_capi = Py_None(&_Py_NoneStruct);
45984 int lda = 0;
45985 float *d = NULL((void*)0);
45986 npy_intp d_Dims[1] = {-1};
45987 const int d_Rank = 1;
45988 PyArrayObject *capi_d_tmp = NULL((void*)0);
45989 int capi_d_intent = 0;
45990 float *e = NULL((void*)0);
45991 npy_intp e_Dims[1] = {-1};
45992 const int e_Rank = 1;
45993 PyArrayObject *capi_e_tmp = NULL((void*)0);
45994 int capi_e_intent = 0;
45995 float *tau = NULL((void*)0);
45996 npy_intp tau_Dims[1] = {-1};
45997 const int tau_Rank = 1;
45998 PyArrayObject *capi_tau_tmp = NULL((void*)0);
45999 int capi_tau_intent = 0;
46000 float *work = NULL((void*)0);
46001 npy_intp work_Dims[1] = {-1};
46002 const int work_Rank = 1;
46003 PyArrayObject *capi_work_tmp = NULL((void*)0);
46004 int capi_work_intent = 0;
46005 int lwork = 0;
46006 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
46007 int info = 0;
46008 static char *capi_kwlist[] = {"a","lower","lwork","overwrite_a",NULL((void*)0)};
46009
46010/*routdebugenter*/
46011#ifdef F2PY_REPORT_ATEXIT
46012f2py_start_clock();
46013#endif
46014 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
46015 "O|OOi:_flapack.ssytrd",\
46016 capi_kwlist,&a_capi,&lower_capi,&lwork_capi,&capi_overwrite_a))
46017 return NULL((void*)0);
46018/*frompyobj*/
46019 /* Processing variable lower */
46020 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
46021 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssytrd() 1st keyword (lower) can't be converted to int");
46022 if (f2py_success) {
46023 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssytrd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssytrd:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
46024 /* Processing variable a */
46025 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
46026 ;
46027 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
46028 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
46029 if (capi_a_tmp == NULL((void*)0)) {
46030 if (!PyErr_Occurred())
46031 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssytrd to C/Fortran array" );
46032 } else {
46033 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
46034
46035 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
46036 /* Processing variable info */
46037 /* Processing variable lda */
46038 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
46039 /* Processing variable n */
46040 n = shape(a,1)a_Dims[1];
46041 /* Processing variable d */
46042 d_Dims[0]=n;
46043 capi_d_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
46044 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,Py_None(&_Py_NoneStruct));
46045 if (capi_d_tmp == NULL((void*)0)) {
46046 if (!PyErr_Occurred())
46047 PyErr_SetString(_flapack_error,"failed in converting hidden `d' of _flapack.ssytrd to C/Fortran array" );
46048 } else {
46049 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
46050
46051 /* Processing variable e */
46052 e_Dims[0]=n - 1;
46053 capi_e_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
46054 capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,Py_None(&_Py_NoneStruct));
46055 if (capi_e_tmp == NULL((void*)0)) {
46056 if (!PyErr_Occurred())
46057 PyErr_SetString(_flapack_error,"failed in converting hidden `e' of _flapack.ssytrd to C/Fortran array" );
46058 } else {
46059 e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
46060
46061 /* Processing variable tau */
46062 tau_Dims[0]=n - 1;
46063 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
46064 capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
46065 if (capi_tau_tmp == NULL((void*)0)) {
46066 if (!PyErr_Occurred())
46067 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.ssytrd to C/Fortran array" );
46068 } else {
46069 tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
46070
46071 /* Processing variable lwork */
46072 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(n,1)((n > 1) ? (n) : (1)); else
46073 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssytrd() 2nd keyword (lwork) can't be converted to int");
46074 if (f2py_success) {
46075 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","ssytrd:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssytrd:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
46076 /* Processing variable work */
46077 work_Dims[0]=lwork;
46078 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
46079 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
46080 if (capi_work_tmp == NULL((void*)0)) {
46081 if (!PyErr_Occurred())
46082 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssytrd to C/Fortran array" );
46083 } else {
46084 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
46085
46086/*end of frompyobj*/
46087#ifdef F2PY_REPORT_ATEXIT
46088f2py_start_call_clock();
46089#endif
46090/*callfortranroutine*/
46091 (*f2py_func)((lower?"L":"U"),&n,a,&lda,d,e,tau,work,&lwork,&info); ;
46092 /*(*f2py_func)(&lower,&n,a,&lda,d,e,tau,work,&lwork,&info);*/
46093if (PyErr_Occurred())
46094 f2py_success = 0;
46095#ifdef F2PY_REPORT_ATEXIT
46096f2py_stop_call_clock();
46097#endif
46098/*end of callfortranroutine*/
46099 if (f2py_success) {
46100/*pyobjfrom*/
46101/*end of pyobjfrom*/
46102 CFUNCSMESS("Building return value.\n");
46103 capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_d_tmp,capi_e_tmp,capi_tau_tmp,info);
46104/*closepyobjfrom*/
46105/*end of closepyobjfrom*/
46106 } /*if (f2py_success) after callfortranroutine*/
46107/*cleanupfrompyobj*/
46108 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
46109 } /*if (capi_work_tmp == NULL) ... else of work*/
46110 /* End of cleaning variable work */
46111 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
46112 } /*if (f2py_success) of lwork*/
46113 /* End of cleaning variable lwork */
46114 } /*if (capi_tau_tmp == NULL) ... else of tau*/
46115 /* End of cleaning variable tau */
46116 } /*if (capi_e_tmp == NULL) ... else of e*/
46117 /* End of cleaning variable e */
46118 } /*if (capi_d_tmp == NULL) ... else of d*/
46119 /* End of cleaning variable d */
46120 /* End of cleaning variable n */
46121 /* End of cleaning variable lda */
46122 /* End of cleaning variable info */
46123 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
46124 } /*if (capi_a_tmp == NULL) ... else of a*/
46125 /* End of cleaning variable a */
46126 } /*CHECKSCALAR(lower==0||lower==1)*/
46127 } /*if (f2py_success) of lower*/
46128 /* End of cleaning variable lower */
46129/*end of cleanupfrompyobj*/
46130 if (capi_buildvalue == NULL((void*)0)) {
46131/*routdebugfailure*/
46132 } else {
46133/*routdebugleave*/
46134 }
46135 CFUNCSMESS("Freeing memory.\n");
46136/*freemem*/
46137#ifdef F2PY_REPORT_ATEXIT
46138f2py_stop_clock();
46139#endif
46140 return capi_buildvalue;
46141}
46142/******************************* end of ssytrd *******************************/
46143
46144/*********************************** dsytrd ***********************************/
46145static char doc_f2py_rout__flapack_dsytrd[] = "\
46146c,d,e,tau,info = dsytrd(a,[lower,lwork,overwrite_a])\n\nWrapper for ``dsytrd``.\
46147\n\nParameters\n----------\n"
46148"a : input rank-2 array('d') with bounds (lda,n)\n"
46149"\nOther Parameters\n----------------\n"
46150"lower : input int, optional\n Default: 0\n"
46151"overwrite_a : input int, optional\n Default: 0\n"
46152"lwork : input int, optional\n Default: MAX(n,1)\n"
46153"\nReturns\n-------\n"
46154"c : rank-2 array('d') with bounds (lda,n) and a storage\n"
46155"d : rank-1 array('d') with bounds (n)\n"
46156"e : rank-1 array('d') with bounds (n - 1)\n"
46157"tau : rank-1 array('d') with bounds (n - 1)\n"
46158"info : int";
46159/* extern void F_FUNC(dsytrd,DSYTRD)(char*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT* ); */
46160static PyObject *f2py_rout__flapack_dsytrd(const PyObject *capi_self,
46161 PyObject *capi_args,
46162 PyObject *capi_keywds,
46163 void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* )) {
46164 PyObject * volatile capi_buildvalue = NULL((void*)0);
46165 volatile int f2py_success = 1;
46166/*decl*/
46167
46168 int lower = 0;
46169 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
46170 int n = 0;
46171 double *a = NULL((void*)0);
46172 npy_intp a_Dims[2] = {-1, -1};
46173 const int a_Rank = 2;
46174 PyArrayObject *capi_a_tmp = NULL((void*)0);
46175 int capi_a_intent = 0;
46176 int capi_overwrite_a = 0;
46177 PyObject *a_capi = Py_None(&_Py_NoneStruct);
46178 int lda = 0;
46179 double *d = NULL((void*)0);
46180 npy_intp d_Dims[1] = {-1};
46181 const int d_Rank = 1;
46182 PyArrayObject *capi_d_tmp = NULL((void*)0);
46183 int capi_d_intent = 0;
46184 double *e = NULL((void*)0);
46185 npy_intp e_Dims[1] = {-1};
46186 const int e_Rank = 1;
46187 PyArrayObject *capi_e_tmp = NULL((void*)0);
46188 int capi_e_intent = 0;
46189 double *tau = NULL((void*)0);
46190 npy_intp tau_Dims[1] = {-1};
46191 const int tau_Rank = 1;
46192 PyArrayObject *capi_tau_tmp = NULL((void*)0);
46193 int capi_tau_intent = 0;
46194 double *work = NULL((void*)0);
46195 npy_intp work_Dims[1] = {-1};
46196 const int work_Rank = 1;
46197 PyArrayObject *capi_work_tmp = NULL((void*)0);
46198 int capi_work_intent = 0;
46199 int lwork = 0;
46200 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
46201 int info = 0;
46202 static char *capi_kwlist[] = {"a","lower","lwork","overwrite_a",NULL((void*)0)};
46203
46204/*routdebugenter*/
46205#ifdef F2PY_REPORT_ATEXIT
46206f2py_start_clock();
46207#endif
46208 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
46209 "O|OOi:_flapack.dsytrd",\
46210 capi_kwlist,&a_capi,&lower_capi,&lwork_capi,&capi_overwrite_a))
46211 return NULL((void*)0);
46212/*frompyobj*/
46213 /* Processing variable lower */
46214 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
46215 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsytrd() 1st keyword (lower) can't be converted to int");
46216 if (f2py_success) {
46217 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsytrd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsytrd:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
46218 /* Processing variable a */
46219 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
46220 ;
46221 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
46222 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
46223 if (capi_a_tmp == NULL((void*)0)) {
46224 if (!PyErr_Occurred())
46225 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsytrd to C/Fortran array" );
46226 } else {
46227 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
46228
46229 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
46230 /* Processing variable info */
46231 /* Processing variable lda */
46232 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
46233 /* Processing variable n */
46234 n = shape(a,1)a_Dims[1];
46235 /* Processing variable d */
46236 d_Dims[0]=n;
46237 capi_d_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
46238 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,Py_None(&_Py_NoneStruct));
46239 if (capi_d_tmp == NULL((void*)0)) {
46240 if (!PyErr_Occurred())
46241 PyErr_SetString(_flapack_error,"failed in converting hidden `d' of _flapack.dsytrd to C/Fortran array" );
46242 } else {
46243 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
46244
46245 /* Processing variable e */
46246 e_Dims[0]=n - 1;
46247 capi_e_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
46248 capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,Py_None(&_Py_NoneStruct));
46249 if (capi_e_tmp == NULL((void*)0)) {
46250 if (!PyErr_Occurred())
46251 PyErr_SetString(_flapack_error,"failed in converting hidden `e' of _flapack.dsytrd to C/Fortran array" );
46252 } else {
46253 e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
46254
46255 /* Processing variable tau */
46256 tau_Dims[0]=n - 1;
46257 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
46258 capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
46259 if (capi_tau_tmp == NULL((void*)0)) {
46260 if (!PyErr_Occurred())
46261 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.dsytrd to C/Fortran array" );
46262 } else {
46263 tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
46264
46265 /* Processing variable lwork */
46266 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(n,1)((n > 1) ? (n) : (1)); else
46267 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsytrd() 2nd keyword (lwork) can't be converted to int");
46268 if (f2py_success) {
46269 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","dsytrd:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsytrd:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
46270 /* Processing variable work */
46271 work_Dims[0]=lwork;
46272 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
46273 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
46274 if (capi_work_tmp == NULL((void*)0)) {
46275 if (!PyErr_Occurred())
46276 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsytrd to C/Fortran array" );
46277 } else {
46278 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
46279
46280/*end of frompyobj*/
46281#ifdef F2PY_REPORT_ATEXIT
46282f2py_start_call_clock();
46283#endif
46284/*callfortranroutine*/
46285 (*f2py_func)((lower?"L":"U"),&n,a,&lda,d,e,tau,work,&lwork,&info); ;
46286 /*(*f2py_func)(&lower,&n,a,&lda,d,e,tau,work,&lwork,&info);*/
46287if (PyErr_Occurred())
46288 f2py_success = 0;
46289#ifdef F2PY_REPORT_ATEXIT
46290f2py_stop_call_clock();
46291#endif
46292/*end of callfortranroutine*/
46293 if (f2py_success) {
46294/*pyobjfrom*/
46295/*end of pyobjfrom*/
46296 CFUNCSMESS("Building return value.\n");
46297 capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_d_tmp,capi_e_tmp,capi_tau_tmp,info);
46298/*closepyobjfrom*/
46299/*end of closepyobjfrom*/
46300 } /*if (f2py_success) after callfortranroutine*/
46301/*cleanupfrompyobj*/
46302 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
46303 } /*if (capi_work_tmp == NULL) ... else of work*/
46304 /* End of cleaning variable work */
46305 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
46306 } /*if (f2py_success) of lwork*/
46307 /* End of cleaning variable lwork */
46308 } /*if (capi_tau_tmp == NULL) ... else of tau*/
46309 /* End of cleaning variable tau */
46310 } /*if (capi_e_tmp == NULL) ... else of e*/
46311 /* End of cleaning variable e */
46312 } /*if (capi_d_tmp == NULL) ... else of d*/
46313 /* End of cleaning variable d */
46314 /* End of cleaning variable n */
46315 /* End of cleaning variable lda */
46316 /* End of cleaning variable info */
46317 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
46318 } /*if (capi_a_tmp == NULL) ... else of a*/
46319 /* End of cleaning variable a */
46320 } /*CHECKSCALAR(lower==0||lower==1)*/
46321 } /*if (f2py_success) of lower*/
46322 /* End of cleaning variable lower */
46323/*end of cleanupfrompyobj*/
46324 if (capi_buildvalue == NULL((void*)0)) {
46325/*routdebugfailure*/
46326 } else {
46327/*routdebugleave*/
46328 }
46329 CFUNCSMESS("Freeing memory.\n");
46330/*freemem*/
46331#ifdef F2PY_REPORT_ATEXIT
46332f2py_stop_clock();
46333#endif
46334 return capi_buildvalue;
46335}
46336/******************************* end of dsytrd *******************************/
46337
46338/******************************** ssytrd_lwork ********************************/
46339static char doc_f2py_rout__flapack_ssytrd_lwork[] = "\
46340work,info = ssytrd_lwork(n,[lower])\n\nWrapper for ``ssytrd_lwork``.\
46341\n\nParameters\n----------\n"
46342"n : input int\n"
46343"\nOther Parameters\n----------------\n"
46344"lower : input int, optional\n Default: 0\n"
46345"\nReturns\n-------\n"
46346"work : float\n"
46347"info : int";
46348/* extern void F_FUNC(ssytrd ,SSYTRD )(char*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT* ); */
46349static PyObject *f2py_rout__flapack_ssytrd_lwork(const PyObject *capi_self,
46350 PyObject *capi_args,
46351 PyObject *capi_keywds,
46352 void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* )) {
46353 PyObject * volatile capi_buildvalue = NULL((void*)0);
46354 volatile int f2py_success = 1;
46355/*decl*/
46356
46357 int lower = 0;
46358 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
46359 int n = 0;
46360 PyObject *n_capi = Py_None(&_Py_NoneStruct);
46361 float a = 0;
46362 int lda = 0;
46363 float d = 0;
46364 float e = 0;
46365 float tau = 0;
46366 float work = 0;
46367 int lwork = 0;
46368 int info = 0;
46369 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
46370
46371/*routdebugenter*/
46372#ifdef F2PY_REPORT_ATEXIT
46373f2py_start_clock();
46374#endif
46375 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
46376 "O|O:_flapack.ssytrd_lwork",\
46377 capi_kwlist,&n_capi,&lower_capi))
46378 return NULL((void*)0);
46379/*frompyobj*/
46380 /* Processing variable n */
46381 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssytrd_lwork() 1st argument (n) can't be converted to int");
46382 if (f2py_success) {
46383 /* Processing variable lower */
46384 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
46385 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssytrd_lwork() 1st keyword (lower) can't be converted to int");
46386 if (f2py_success) {
46387 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssytrd_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssytrd_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
46388 /* Processing variable a */
46389 /* Processing variable d */
46390 /* Processing variable e */
46391 /* Processing variable tau */
46392 /* Processing variable work */
46393 /* Processing variable lwork */
46394 lwork = -1;
46395 /* Processing variable info */
46396 /* Processing variable lda */
46397 lda = MAX(n,1)((n > 1) ? (n) : (1));
46398/*end of frompyobj*/
46399#ifdef F2PY_REPORT_ATEXIT
46400f2py_start_call_clock();
46401#endif
46402/*callfortranroutine*/
46403 (*f2py_func)((lower?"L":"U"),&n,&a,&lda,&d,&e,&tau,&work,&lwork,&info); ;
46404 /*(*f2py_func)(&lower,&n,&a,&lda,&d,&e,&tau,&work,&lwork,&info);*/
46405if (PyErr_Occurred())
46406 f2py_success = 0;
46407#ifdef F2PY_REPORT_ATEXIT
46408f2py_stop_call_clock();
46409#endif
46410/*end of callfortranroutine*/
46411 if (f2py_success) {
46412/*pyobjfrom*/
46413/*end of pyobjfrom*/
46414 CFUNCSMESS("Building return value.\n");
46415 capi_buildvalue = Py_BuildValue("fi",work,info);
46416/*closepyobjfrom*/
46417/*end of closepyobjfrom*/
46418 } /*if (f2py_success) after callfortranroutine*/
46419/*cleanupfrompyobj*/
46420 /* End of cleaning variable lda */
46421 /* End of cleaning variable info */
46422 /* End of cleaning variable lwork */
46423 /* End of cleaning variable work */
46424 /* End of cleaning variable tau */
46425 /* End of cleaning variable e */
46426 /* End of cleaning variable d */
46427 /* End of cleaning variable a */
46428 } /*CHECKSCALAR(lower==0||lower==1)*/
46429 } /*if (f2py_success) of lower*/
46430 /* End of cleaning variable lower */
46431 } /*if (f2py_success) of n*/
46432 /* End of cleaning variable n */
46433/*end of cleanupfrompyobj*/
46434 if (capi_buildvalue == NULL((void*)0)) {
46435/*routdebugfailure*/
46436 } else {
46437/*routdebugleave*/
46438 }
46439 CFUNCSMESS("Freeing memory.\n");
46440/*freemem*/
46441#ifdef F2PY_REPORT_ATEXIT
46442f2py_stop_clock();
46443#endif
46444 return capi_buildvalue;
46445}
46446/**************************** end of ssytrd_lwork ****************************/
46447
46448/******************************** dsytrd_lwork ********************************/
46449static char doc_f2py_rout__flapack_dsytrd_lwork[] = "\
46450work,info = dsytrd_lwork(n,[lower])\n\nWrapper for ``dsytrd_lwork``.\
46451\n\nParameters\n----------\n"
46452"n : input int\n"
46453"\nOther Parameters\n----------------\n"
46454"lower : input int, optional\n Default: 0\n"
46455"\nReturns\n-------\n"
46456"work : float\n"
46457"info : int";
46458/* extern void F_FUNC(dsytrd ,DSYTRD )(char*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT* ); */
46459static PyObject *f2py_rout__flapack_dsytrd_lwork(const PyObject *capi_self,
46460 PyObject *capi_args,
46461 PyObject *capi_keywds,
46462 void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* )) {
46463 PyObject * volatile capi_buildvalue = NULL((void*)0);
46464 volatile int f2py_success = 1;
46465/*decl*/
46466
46467 int lower = 0;
46468 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
46469 int n = 0;
46470 PyObject *n_capi = Py_None(&_Py_NoneStruct);
46471 double a = 0;
46472 int lda = 0;
46473 double d = 0;
46474 double e = 0;
46475 double tau = 0;
46476 double work = 0;
46477 int lwork = 0;
46478 int info = 0;
46479 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
46480
46481/*routdebugenter*/
46482#ifdef F2PY_REPORT_ATEXIT
46483f2py_start_clock();
46484#endif
46485 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
46486 "O|O:_flapack.dsytrd_lwork",\
46487 capi_kwlist,&n_capi,&lower_capi))
46488 return NULL((void*)0);
46489/*frompyobj*/
46490 /* Processing variable n */
46491 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsytrd_lwork() 1st argument (n) can't be converted to int");
46492 if (f2py_success) {
46493 /* Processing variable lower */
46494 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
46495 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsytrd_lwork() 1st keyword (lower) can't be converted to int");
46496 if (f2py_success) {
46497 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsytrd_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsytrd_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
46498 /* Processing variable a */
46499 /* Processing variable d */
46500 /* Processing variable e */
46501 /* Processing variable tau */
46502 /* Processing variable work */
46503 /* Processing variable lwork */
46504 lwork = -1;
46505 /* Processing variable info */
46506 /* Processing variable lda */
46507 lda = MAX(n,1)((n > 1) ? (n) : (1));
46508/*end of frompyobj*/
46509#ifdef F2PY_REPORT_ATEXIT
46510f2py_start_call_clock();
46511#endif
46512/*callfortranroutine*/
46513 (*f2py_func)((lower?"L":"U"),&n,&a,&lda,&d,&e,&tau,&work,&lwork,&info); ;
46514 /*(*f2py_func)(&lower,&n,&a,&lda,&d,&e,&tau,&work,&lwork,&info);*/
46515if (PyErr_Occurred())
46516 f2py_success = 0;
46517#ifdef F2PY_REPORT_ATEXIT
46518f2py_stop_call_clock();
46519#endif
46520/*end of callfortranroutine*/
46521 if (f2py_success) {
46522/*pyobjfrom*/
46523/*end of pyobjfrom*/
46524 CFUNCSMESS("Building return value.\n");
46525 capi_buildvalue = Py_BuildValue("di",work,info);
46526/*closepyobjfrom*/
46527/*end of closepyobjfrom*/
46528 } /*if (f2py_success) after callfortranroutine*/
46529/*cleanupfrompyobj*/
46530 /* End of cleaning variable lda */
46531 /* End of cleaning variable info */
46532 /* End of cleaning variable lwork */
46533 /* End of cleaning variable work */
46534 /* End of cleaning variable tau */
46535 /* End of cleaning variable e */
46536 /* End of cleaning variable d */
46537 /* End of cleaning variable a */
46538 } /*CHECKSCALAR(lower==0||lower==1)*/
46539 } /*if (f2py_success) of lower*/
46540 /* End of cleaning variable lower */
46541 } /*if (f2py_success) of n*/
46542 /* End of cleaning variable n */
46543/*end of cleanupfrompyobj*/
46544 if (capi_buildvalue == NULL((void*)0)) {
46545/*routdebugfailure*/
46546 } else {
46547/*routdebugleave*/
46548 }
46549 CFUNCSMESS("Freeing memory.\n");
46550/*freemem*/
46551#ifdef F2PY_REPORT_ATEXIT
46552f2py_stop_clock();
46553#endif
46554 return capi_buildvalue;
46555}
46556/**************************** end of dsytrd_lwork ****************************/
46557
46558/*********************************** chetrd ***********************************/
46559static char doc_f2py_rout__flapack_chetrd[] = "\
46560c,d,e,tau,info = chetrd(a,[lower,lwork,overwrite_a])\n\nWrapper for ``chetrd``.\
46561\n\nParameters\n----------\n"
46562"a : input rank-2 array('F') with bounds (lda,n)\n"
46563"\nOther Parameters\n----------------\n"
46564"lower : input int, optional\n Default: 0\n"
46565"overwrite_a : input int, optional\n Default: 0\n"
46566"lwork : input int, optional\n Default: MAX(n,1)\n"
46567"\nReturns\n-------\n"
46568"c : rank-2 array('F') with bounds (lda,n) and a storage\n"
46569"d : rank-1 array('f') with bounds (n)\n"
46570"e : rank-1 array('f') with bounds (n - 1)\n"
46571"tau : rank-1 array('F') with bounds (n - 1)\n"
46572"info : int";
46573/* extern void F_FUNC(chetrd,CHETRD)(char*,F_INT*,complex_float*,F_INT*,float*,float*,complex_float*,complex_float*,F_INT*,F_INT* ); */
46574static PyObject *f2py_rout__flapack_chetrd(const PyObject *capi_self,
46575 PyObject *capi_args,
46576 PyObject *capi_keywds,
46577 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
46578 PyObject * volatile capi_buildvalue = NULL((void*)0);
46579 volatile int f2py_success = 1;
46580/*decl*/
46581
46582 int lower = 0;
46583 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
46584 int n = 0;
46585 complex_float *a = NULL((void*)0);
46586 npy_intp a_Dims[2] = {-1, -1};
46587 const int a_Rank = 2;
46588 PyArrayObject *capi_a_tmp = NULL((void*)0);
46589 int capi_a_intent = 0;
46590 int capi_overwrite_a = 0;
46591 PyObject *a_capi = Py_None(&_Py_NoneStruct);
46592 int lda = 0;
46593 float *d = NULL((void*)0);
46594 npy_intp d_Dims[1] = {-1};
46595 const int d_Rank = 1;
46596 PyArrayObject *capi_d_tmp = NULL((void*)0);
46597 int capi_d_intent = 0;
46598 float *e = NULL((void*)0);
46599 npy_intp e_Dims[1] = {-1};
46600 const int e_Rank = 1;
46601 PyArrayObject *capi_e_tmp = NULL((void*)0);
46602 int capi_e_intent = 0;
46603 complex_float *tau = NULL((void*)0);
46604 npy_intp tau_Dims[1] = {-1};
46605 const int tau_Rank = 1;
46606 PyArrayObject *capi_tau_tmp = NULL((void*)0);
46607 int capi_tau_intent = 0;
46608 complex_float *work = NULL((void*)0);
46609 npy_intp work_Dims[1] = {-1};
46610 const int work_Rank = 1;
46611 PyArrayObject *capi_work_tmp = NULL((void*)0);
46612 int capi_work_intent = 0;
46613 int lwork = 0;
46614 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
46615 int info = 0;
46616 static char *capi_kwlist[] = {"a","lower","lwork","overwrite_a",NULL((void*)0)};
46617
46618/*routdebugenter*/
46619#ifdef F2PY_REPORT_ATEXIT
46620f2py_start_clock();
46621#endif
46622 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
46623 "O|OOi:_flapack.chetrd",\
46624 capi_kwlist,&a_capi,&lower_capi,&lwork_capi,&capi_overwrite_a))
46625 return NULL((void*)0);
46626/*frompyobj*/
46627 /* Processing variable lower */
46628 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
46629 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chetrd() 1st keyword (lower) can't be converted to int");
46630 if (f2py_success) {
46631 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","chetrd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chetrd:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
46632 /* Processing variable a */
46633 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
46634 ;
46635 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
46636 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
46637 if (capi_a_tmp == NULL((void*)0)) {
46638 if (!PyErr_Occurred())
46639 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.chetrd to C/Fortran array" );
46640 } else {
46641 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
46642
46643 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
46644 /* Processing variable info */
46645 /* Processing variable lda */
46646 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
46647 /* Processing variable n */
46648 n = shape(a,1)a_Dims[1];
46649 /* Processing variable d */
46650 d_Dims[0]=n;
46651 capi_d_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
46652 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,Py_None(&_Py_NoneStruct));
46653 if (capi_d_tmp == NULL((void*)0)) {
46654 if (!PyErr_Occurred())
46655 PyErr_SetString(_flapack_error,"failed in converting hidden `d' of _flapack.chetrd to C/Fortran array" );
46656 } else {
46657 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
46658
46659 /* Processing variable e */
46660 e_Dims[0]=n - 1;
46661 capi_e_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
46662 capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,Py_None(&_Py_NoneStruct));
46663 if (capi_e_tmp == NULL((void*)0)) {
46664 if (!PyErr_Occurred())
46665 PyErr_SetString(_flapack_error,"failed in converting hidden `e' of _flapack.chetrd to C/Fortran array" );
46666 } else {
46667 e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
46668
46669 /* Processing variable tau */
46670 tau_Dims[0]=n - 1;
46671 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
46672 capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
46673 if (capi_tau_tmp == NULL((void*)0)) {
46674 if (!PyErr_Occurred())
46675 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.chetrd to C/Fortran array" );
46676 } else {
46677 tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
46678
46679 /* Processing variable lwork */
46680 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(n,1)((n > 1) ? (n) : (1)); else
46681 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.chetrd() 2nd keyword (lwork) can't be converted to int");
46682 if (f2py_success) {
46683 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","chetrd:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chetrd:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
46684 /* Processing variable work */
46685 work_Dims[0]=lwork;
46686 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
46687 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
46688 if (capi_work_tmp == NULL((void*)0)) {
46689 if (!PyErr_Occurred())
46690 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.chetrd to C/Fortran array" );
46691 } else {
46692 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
46693
46694/*end of frompyobj*/
46695#ifdef F2PY_REPORT_ATEXIT
46696f2py_start_call_clock();
46697#endif
46698/*callfortranroutine*/
46699 (*f2py_func)((lower?"L":"U"),&n,a,&lda,d,e,tau,work,&lwork,&info); ;
46700 /*(*f2py_func)(&lower,&n,a,&lda,d,e,tau,work,&lwork,&info);*/
46701if (PyErr_Occurred())
46702 f2py_success = 0;
46703#ifdef F2PY_REPORT_ATEXIT
46704f2py_stop_call_clock();
46705#endif
46706/*end of callfortranroutine*/
46707 if (f2py_success) {
46708/*pyobjfrom*/
46709/*end of pyobjfrom*/
46710 CFUNCSMESS("Building return value.\n");
46711 capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_d_tmp,capi_e_tmp,capi_tau_tmp,info);
46712/*closepyobjfrom*/
46713/*end of closepyobjfrom*/
46714 } /*if (f2py_success) after callfortranroutine*/
46715/*cleanupfrompyobj*/
46716 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
46717 } /*if (capi_work_tmp == NULL) ... else of work*/
46718 /* End of cleaning variable work */
46719 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
46720 } /*if (f2py_success) of lwork*/
46721 /* End of cleaning variable lwork */
46722 } /*if (capi_tau_tmp == NULL) ... else of tau*/
46723 /* End of cleaning variable tau */
46724 } /*if (capi_e_tmp == NULL) ... else of e*/
46725 /* End of cleaning variable e */
46726 } /*if (capi_d_tmp == NULL) ... else of d*/
46727 /* End of cleaning variable d */
46728 /* End of cleaning variable n */
46729 /* End of cleaning variable lda */
46730 /* End of cleaning variable info */
46731 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
46732 } /*if (capi_a_tmp == NULL) ... else of a*/
46733 /* End of cleaning variable a */
46734 } /*CHECKSCALAR(lower==0||lower==1)*/
46735 } /*if (f2py_success) of lower*/
46736 /* End of cleaning variable lower */
46737/*end of cleanupfrompyobj*/
46738 if (capi_buildvalue == NULL((void*)0)) {
46739/*routdebugfailure*/
46740 } else {
46741/*routdebugleave*/
46742 }
46743 CFUNCSMESS("Freeing memory.\n");
46744/*freemem*/
46745#ifdef F2PY_REPORT_ATEXIT
46746f2py_stop_clock();
46747#endif
46748 return capi_buildvalue;
46749}
46750/******************************* end of chetrd *******************************/
46751
46752/*********************************** zhetrd ***********************************/
46753static char doc_f2py_rout__flapack_zhetrd[] = "\
46754c,d,e,tau,info = zhetrd(a,[lower,lwork,overwrite_a])\n\nWrapper for ``zhetrd``.\
46755\n\nParameters\n----------\n"
46756"a : input rank-2 array('D') with bounds (lda,n)\n"
46757"\nOther Parameters\n----------------\n"
46758"lower : input int, optional\n Default: 0\n"
46759"overwrite_a : input int, optional\n Default: 0\n"
46760"lwork : input int, optional\n Default: MAX(n,1)\n"
46761"\nReturns\n-------\n"
46762"c : rank-2 array('D') with bounds (lda,n) and a storage\n"
46763"d : rank-1 array('d') with bounds (n)\n"
46764"e : rank-1 array('d') with bounds (n - 1)\n"
46765"tau : rank-1 array('D') with bounds (n - 1)\n"
46766"info : int";
46767/* extern void F_FUNC(zhetrd,ZHETRD)(char*,F_INT*,complex_double*,F_INT*,double*,double*,complex_double*,complex_double*,F_INT*,F_INT* ); */
46768static PyObject *f2py_rout__flapack_zhetrd(const PyObject *capi_self,
46769 PyObject *capi_args,
46770 PyObject *capi_keywds,
46771 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
46772 PyObject * volatile capi_buildvalue = NULL((void*)0);
46773 volatile int f2py_success = 1;
46774/*decl*/
46775
46776 int lower = 0;
46777 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
46778 int n = 0;
46779 complex_double *a = NULL((void*)0);
46780 npy_intp a_Dims[2] = {-1, -1};
46781 const int a_Rank = 2;
46782 PyArrayObject *capi_a_tmp = NULL((void*)0);
46783 int capi_a_intent = 0;
46784 int capi_overwrite_a = 0;
46785 PyObject *a_capi = Py_None(&_Py_NoneStruct);
46786 int lda = 0;
46787 double *d = NULL((void*)0);
46788 npy_intp d_Dims[1] = {-1};
46789 const int d_Rank = 1;
46790 PyArrayObject *capi_d_tmp = NULL((void*)0);
46791 int capi_d_intent = 0;
46792 double *e = NULL((void*)0);
46793 npy_intp e_Dims[1] = {-1};
46794 const int e_Rank = 1;
46795 PyArrayObject *capi_e_tmp = NULL((void*)0);
46796 int capi_e_intent = 0;
46797 complex_double *tau = NULL((void*)0);
46798 npy_intp tau_Dims[1] = {-1};
46799 const int tau_Rank = 1;
46800 PyArrayObject *capi_tau_tmp = NULL((void*)0);
46801 int capi_tau_intent = 0;
46802 complex_double *work = NULL((void*)0);
46803 npy_intp work_Dims[1] = {-1};
46804 const int work_Rank = 1;
46805 PyArrayObject *capi_work_tmp = NULL((void*)0);
46806 int capi_work_intent = 0;
46807 int lwork = 0;
46808 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
46809 int info = 0;
46810 static char *capi_kwlist[] = {"a","lower","lwork","overwrite_a",NULL((void*)0)};
46811
46812/*routdebugenter*/
46813#ifdef F2PY_REPORT_ATEXIT
46814f2py_start_clock();
46815#endif
46816 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
46817 "O|OOi:_flapack.zhetrd",\
46818 capi_kwlist,&a_capi,&lower_capi,&lwork_capi,&capi_overwrite_a))
46819 return NULL((void*)0);
46820/*frompyobj*/
46821 /* Processing variable lower */
46822 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
46823 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhetrd() 1st keyword (lower) can't be converted to int");
46824 if (f2py_success) {
46825 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zhetrd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhetrd:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
46826 /* Processing variable a */
46827 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
46828 ;
46829 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
46830 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
46831 if (capi_a_tmp == NULL((void*)0)) {
46832 if (!PyErr_Occurred())
46833 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zhetrd to C/Fortran array" );
46834 } else {
46835 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
46836
46837 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
46838 /* Processing variable info */
46839 /* Processing variable lda */
46840 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
46841 /* Processing variable n */
46842 n = shape(a,1)a_Dims[1];
46843 /* Processing variable d */
46844 d_Dims[0]=n;
46845 capi_d_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
46846 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,Py_None(&_Py_NoneStruct));
46847 if (capi_d_tmp == NULL((void*)0)) {
46848 if (!PyErr_Occurred())
46849 PyErr_SetString(_flapack_error,"failed in converting hidden `d' of _flapack.zhetrd to C/Fortran array" );
46850 } else {
46851 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
46852
46853 /* Processing variable e */
46854 e_Dims[0]=n - 1;
46855 capi_e_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
46856 capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,Py_None(&_Py_NoneStruct));
46857 if (capi_e_tmp == NULL((void*)0)) {
46858 if (!PyErr_Occurred())
46859 PyErr_SetString(_flapack_error,"failed in converting hidden `e' of _flapack.zhetrd to C/Fortran array" );
46860 } else {
46861 e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
46862
46863 /* Processing variable tau */
46864 tau_Dims[0]=n - 1;
46865 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
46866 capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
46867 if (capi_tau_tmp == NULL((void*)0)) {
46868 if (!PyErr_Occurred())
46869 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.zhetrd to C/Fortran array" );
46870 } else {
46871 tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
46872
46873 /* Processing variable lwork */
46874 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(n,1)((n > 1) ? (n) : (1)); else
46875 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zhetrd() 2nd keyword (lwork) can't be converted to int");
46876 if (f2py_success) {
46877 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","2nd keyword lwork","zhetrd:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhetrd:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"2nd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
46878 /* Processing variable work */
46879 work_Dims[0]=lwork;
46880 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
46881 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
46882 if (capi_work_tmp == NULL((void*)0)) {
46883 if (!PyErr_Occurred())
46884 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zhetrd to C/Fortran array" );
46885 } else {
46886 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
46887
46888/*end of frompyobj*/
46889#ifdef F2PY_REPORT_ATEXIT
46890f2py_start_call_clock();
46891#endif
46892/*callfortranroutine*/
46893 (*f2py_func)((lower?"L":"U"),&n,a,&lda,d,e,tau,work,&lwork,&info); ;
46894 /*(*f2py_func)(&lower,&n,a,&lda,d,e,tau,work,&lwork,&info);*/
46895if (PyErr_Occurred())
46896 f2py_success = 0;
46897#ifdef F2PY_REPORT_ATEXIT
46898f2py_stop_call_clock();
46899#endif
46900/*end of callfortranroutine*/
46901 if (f2py_success) {
46902/*pyobjfrom*/
46903/*end of pyobjfrom*/
46904 CFUNCSMESS("Building return value.\n");
46905 capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_d_tmp,capi_e_tmp,capi_tau_tmp,info);
46906/*closepyobjfrom*/
46907/*end of closepyobjfrom*/
46908 } /*if (f2py_success) after callfortranroutine*/
46909/*cleanupfrompyobj*/
46910 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
46911 } /*if (capi_work_tmp == NULL) ... else of work*/
46912 /* End of cleaning variable work */
46913 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
46914 } /*if (f2py_success) of lwork*/
46915 /* End of cleaning variable lwork */
46916 } /*if (capi_tau_tmp == NULL) ... else of tau*/
46917 /* End of cleaning variable tau */
46918 } /*if (capi_e_tmp == NULL) ... else of e*/
46919 /* End of cleaning variable e */
46920 } /*if (capi_d_tmp == NULL) ... else of d*/
46921 /* End of cleaning variable d */
46922 /* End of cleaning variable n */
46923 /* End of cleaning variable lda */
46924 /* End of cleaning variable info */
46925 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
46926 } /*if (capi_a_tmp == NULL) ... else of a*/
46927 /* End of cleaning variable a */
46928 } /*CHECKSCALAR(lower==0||lower==1)*/
46929 } /*if (f2py_success) of lower*/
46930 /* End of cleaning variable lower */
46931/*end of cleanupfrompyobj*/
46932 if (capi_buildvalue == NULL((void*)0)) {
46933/*routdebugfailure*/
46934 } else {
46935/*routdebugleave*/
46936 }
46937 CFUNCSMESS("Freeing memory.\n");
46938/*freemem*/
46939#ifdef F2PY_REPORT_ATEXIT
46940f2py_stop_clock();
46941#endif
46942 return capi_buildvalue;
46943}
46944/******************************* end of zhetrd *******************************/
46945
46946/******************************** chetrd_lwork ********************************/
46947static char doc_f2py_rout__flapack_chetrd_lwork[] = "\
46948work,info = chetrd_lwork(n,[lower])\n\nWrapper for ``chetrd_lwork``.\
46949\n\nParameters\n----------\n"
46950"n : input int\n"
46951"\nOther Parameters\n----------------\n"
46952"lower : input int, optional\n Default: 0\n"
46953"\nReturns\n-------\n"
46954"work : complex\n"
46955"info : int";
46956/* extern void F_FUNC(chetrd ,CHETRD )(char*,F_INT*,complex_float*,F_INT*,float*,float*,complex_float*,complex_float*,F_INT*,F_INT* ); */
46957static PyObject *f2py_rout__flapack_chetrd_lwork(const PyObject *capi_self,
46958 PyObject *capi_args,
46959 PyObject *capi_keywds,
46960 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
46961 PyObject * volatile capi_buildvalue = NULL((void*)0);
46962 volatile int f2py_success = 1;
46963/*decl*/
46964
46965 int lower = 0;
46966 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
46967 int n = 0;
46968 PyObject *n_capi = Py_None(&_Py_NoneStruct);
46969 complex_float a;
46970 int lda = 0;
46971 float d = 0;
46972 float e = 0;
46973 complex_float tau;
46974 complex_float work;
46975 PyObject *work_capi = Py_None(&_Py_NoneStruct);
46976 int lwork = 0;
46977 int info = 0;
46978 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
46979
46980/*routdebugenter*/
46981#ifdef F2PY_REPORT_ATEXIT
46982f2py_start_clock();
46983#endif
46984 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
46985 "O|O:_flapack.chetrd_lwork",\
46986 capi_kwlist,&n_capi,&lower_capi))
46987 return NULL((void*)0);
46988/*frompyobj*/
46989 /* Processing variable n */
46990 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.chetrd_lwork() 1st argument (n) can't be converted to int");
46991 if (f2py_success) {
46992 /* Processing variable lower */
46993 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
46994 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chetrd_lwork() 1st keyword (lower) can't be converted to int");
46995 if (f2py_success) {
46996 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","chetrd_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chetrd_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
46997 /* Processing variable a */
46998 /* Processing variable d */
46999 /* Processing variable e */
47000 /* Processing variable tau */
47001 /* Processing variable work */
47002 /* Processing variable lwork */
47003 lwork = -1;
47004 /* Processing variable info */
47005 /* Processing variable lda */
47006 lda = MAX(n,1)((n > 1) ? (n) : (1));
47007/*end of frompyobj*/
47008#ifdef F2PY_REPORT_ATEXIT
47009f2py_start_call_clock();
47010#endif
47011/*callfortranroutine*/
47012 (*f2py_func)((lower?"L":"U"),&n,&a,&lda,&d,&e,&tau,&work,&lwork,&info); ;
47013 /*(*f2py_func)(&lower,&n,&a,&lda,&d,&e,&tau,&work,&lwork,&info);*/
47014if (PyErr_Occurred())
47015 f2py_success = 0;
47016#ifdef F2PY_REPORT_ATEXIT
47017f2py_stop_call_clock();
47018#endif
47019/*end of callfortranroutine*/
47020 if (f2py_success) {
47021/*pyobjfrom*/
47022 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
47023/*end of pyobjfrom*/
47024 CFUNCSMESS("Building return value.\n");
47025 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
47026/*closepyobjfrom*/
47027/*end of closepyobjfrom*/
47028 } /*if (f2py_success) after callfortranroutine*/
47029/*cleanupfrompyobj*/
47030 /* End of cleaning variable lda */
47031 /* End of cleaning variable info */
47032 /* End of cleaning variable lwork */
47033 /* End of cleaning variable work */
47034 /* End of cleaning variable tau */
47035 /* End of cleaning variable e */
47036 /* End of cleaning variable d */
47037 /* End of cleaning variable a */
47038 } /*CHECKSCALAR(lower==0||lower==1)*/
47039 } /*if (f2py_success) of lower*/
47040 /* End of cleaning variable lower */
47041 } /*if (f2py_success) of n*/
47042 /* End of cleaning variable n */
47043/*end of cleanupfrompyobj*/
47044 if (capi_buildvalue == NULL((void*)0)) {
47045/*routdebugfailure*/
47046 } else {
47047/*routdebugleave*/
47048 }
47049 CFUNCSMESS("Freeing memory.\n");
47050/*freemem*/
47051#ifdef F2PY_REPORT_ATEXIT
47052f2py_stop_clock();
47053#endif
47054 return capi_buildvalue;
47055}
47056/**************************** end of chetrd_lwork ****************************/
47057
47058/******************************** zhetrd_lwork ********************************/
47059static char doc_f2py_rout__flapack_zhetrd_lwork[] = "\
47060work,info = zhetrd_lwork(n,[lower])\n\nWrapper for ``zhetrd_lwork``.\
47061\n\nParameters\n----------\n"
47062"n : input int\n"
47063"\nOther Parameters\n----------------\n"
47064"lower : input int, optional\n Default: 0\n"
47065"\nReturns\n-------\n"
47066"work : complex\n"
47067"info : int";
47068/* extern void F_FUNC(zhetrd ,ZHETRD )(char*,F_INT*,complex_double*,F_INT*,double*,double*,complex_double*,complex_double*,F_INT*,F_INT* ); */
47069static PyObject *f2py_rout__flapack_zhetrd_lwork(const PyObject *capi_self,
47070 PyObject *capi_args,
47071 PyObject *capi_keywds,
47072 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
47073 PyObject * volatile capi_buildvalue = NULL((void*)0);
47074 volatile int f2py_success = 1;
47075/*decl*/
47076
47077 int lower = 0;
47078 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
47079 int n = 0;
47080 PyObject *n_capi = Py_None(&_Py_NoneStruct);
47081 complex_double a;
47082 int lda = 0;
47083 double d = 0;
47084 double e = 0;
47085 complex_double tau;
47086 complex_double work;
47087 PyObject *work_capi = Py_None(&_Py_NoneStruct);
47088 int lwork = 0;
47089 int info = 0;
47090 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
47091
47092/*routdebugenter*/
47093#ifdef F2PY_REPORT_ATEXIT
47094f2py_start_clock();
47095#endif
47096 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
47097 "O|O:_flapack.zhetrd_lwork",\
47098 capi_kwlist,&n_capi,&lower_capi))
47099 return NULL((void*)0);
47100/*frompyobj*/
47101 /* Processing variable n */
47102 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zhetrd_lwork() 1st argument (n) can't be converted to int");
47103 if (f2py_success) {
47104 /* Processing variable lower */
47105 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
47106 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhetrd_lwork() 1st keyword (lower) can't be converted to int");
47107 if (f2py_success) {
47108 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zhetrd_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhetrd_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
47109 /* Processing variable a */
47110 /* Processing variable d */
47111 /* Processing variable e */
47112 /* Processing variable tau */
47113 /* Processing variable work */
47114 /* Processing variable lwork */
47115 lwork = -1;
47116 /* Processing variable info */
47117 /* Processing variable lda */
47118 lda = MAX(n,1)((n > 1) ? (n) : (1));
47119/*end of frompyobj*/
47120#ifdef F2PY_REPORT_ATEXIT
47121f2py_start_call_clock();
47122#endif
47123/*callfortranroutine*/
47124 (*f2py_func)((lower?"L":"U"),&n,&a,&lda,&d,&e,&tau,&work,&lwork,&info); ;
47125 /*(*f2py_func)(&lower,&n,&a,&lda,&d,&e,&tau,&work,&lwork,&info);*/
47126if (PyErr_Occurred())
47127 f2py_success = 0;
47128#ifdef F2PY_REPORT_ATEXIT
47129f2py_stop_call_clock();
47130#endif
47131/*end of callfortranroutine*/
47132 if (f2py_success) {
47133/*pyobjfrom*/
47134 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
47135/*end of pyobjfrom*/
47136 CFUNCSMESS("Building return value.\n");
47137 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
47138/*closepyobjfrom*/
47139/*end of closepyobjfrom*/
47140 } /*if (f2py_success) after callfortranroutine*/
47141/*cleanupfrompyobj*/
47142 /* End of cleaning variable lda */
47143 /* End of cleaning variable info */
47144 /* End of cleaning variable lwork */
47145 /* End of cleaning variable work */
47146 /* End of cleaning variable tau */
47147 /* End of cleaning variable e */
47148 /* End of cleaning variable d */
47149 /* End of cleaning variable a */
47150 } /*CHECKSCALAR(lower==0||lower==1)*/
47151 } /*if (f2py_success) of lower*/
47152 /* End of cleaning variable lower */
47153 } /*if (f2py_success) of n*/
47154 /* End of cleaning variable n */
47155/*end of cleanupfrompyobj*/
47156 if (capi_buildvalue == NULL((void*)0)) {
47157/*routdebugfailure*/
47158 } else {
47159/*routdebugleave*/
47160 }
47161 CFUNCSMESS("Freeing memory.\n");
47162/*freemem*/
47163#ifdef F2PY_REPORT_ATEXIT
47164f2py_stop_clock();
47165#endif
47166 return capi_buildvalue;
47167}
47168/**************************** end of zhetrd_lwork ****************************/
47169
47170/*********************************** ssyevr ***********************************/
47171static char doc_f2py_rout__flapack_ssyevr[] = "\
47172w,z,m,isuppz,info = ssyevr(a,[compute_v,range,lower,vl,vu,il,iu,abstol,lwork,liwork,overwrite_a])\n\nWrapper for ``ssyevr``.\
47173\n\nParameters\n----------\n"
47174"a : input rank-2 array('f') with bounds (n,n)\n"
47175"\nOther Parameters\n----------------\n"
47176"compute_v : input int, optional\n Default: 1\n"
47177"range : input string(len=1), optional\n Default: 'A'\n"
47178"lower : input int, optional\n Default: 0\n"
47179"overwrite_a : input int, optional\n Default: 0\n"
47180"vl : input float, optional\n Default: 0.0\n"
47181"vu : input float, optional\n Default: 1.0\n"
47182"il : input int, optional\n Default: 1\n"
47183"iu : input int, optional\n Default: n\n"
47184"abstol : input float, optional\n Default: 0.0\n"
47185"lwork : input int, optional\n Default: max(26*n,1)\n"
47186"liwork : input int, optional\n Default: max(1,10*n)\n"
47187"\nReturns\n-------\n"
47188"w : rank-1 array('f') with bounds (n)\n"
47189"z : rank-2 array('f') with bounds ((compute_v?MAX(0,n):0),(compute_v?(*range=='I'?iu-il+1:MAX(1,n)):0))\n"
47190"m : int\n"
47191"isuppz : rank-1 array('i') with bounds ((compute_v?(2*(*range=='A'||(*range=='I' && iu-il+1==n)?n:0)):0))\n"
47192"info : int";
47193/* extern void F_FUNC(ssyevr,SSYEVR)(char*,char*,char*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
47194static PyObject *f2py_rout__flapack_ssyevr(const PyObject *capi_self,
47195 PyObject *capi_args,
47196 PyObject *capi_keywds,
47197 void (*f2py_func)(char*,char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
47198 PyObject * volatile capi_buildvalue = NULL((void*)0);
47199 volatile int f2py_success = 1;
47200/*decl*/
47201
47202 int compute_v = 0;
47203 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
47204 string range = NULL((void*)0);
47205 int slen(range)capi_range_len;
47206 PyObject *range_capi = Py_None(&_Py_NoneStruct);
47207 int lower = 0;
47208 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
47209 int n = 0;
47210 float *a = NULL((void*)0);
47211 npy_intp a_Dims[2] = {-1, -1};
47212 const int a_Rank = 2;
47213 PyArrayObject *capi_a_tmp = NULL((void*)0);
47214 int capi_a_intent = 0;
47215 int capi_overwrite_a = 0;
47216 PyObject *a_capi = Py_None(&_Py_NoneStruct);
47217 int lda = 0;
47218 float vl = 0;
47219 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
47220 float vu = 0;
47221 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
47222 int il = 0;
47223 PyObject *il_capi = Py_None(&_Py_NoneStruct);
47224 int iu = 0;
47225 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
47226 float abstol = 0;
47227 PyObject *abstol_capi = Py_None(&_Py_NoneStruct);
47228 float *w = NULL((void*)0);
47229 npy_intp w_Dims[1] = {-1};
47230 const int w_Rank = 1;
47231 PyArrayObject *capi_w_tmp = NULL((void*)0);
47232 int capi_w_intent = 0;
47233 float *z = NULL((void*)0);
47234 npy_intp z_Dims[2] = {-1, -1};
47235 const int z_Rank = 2;
47236 PyArrayObject *capi_z_tmp = NULL((void*)0);
47237 int capi_z_intent = 0;
47238 int m = 0;
47239 int ldz = 0;
47240 int *isuppz = NULL((void*)0);
47241 npy_intp isuppz_Dims[1] = {-1};
47242 const int isuppz_Rank = 1;
47243 PyArrayObject *capi_isuppz_tmp = NULL((void*)0);
47244 int capi_isuppz_intent = 0;
47245 float *work = NULL((void*)0);
47246 npy_intp work_Dims[1] = {-1};
47247 const int work_Rank = 1;
47248 PyArrayObject *capi_work_tmp = NULL((void*)0);
47249 int capi_work_intent = 0;
47250 int lwork = 0;
47251 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
47252 int *iwork = NULL((void*)0);
47253 npy_intp iwork_Dims[1] = {-1};
47254 const int iwork_Rank = 1;
47255 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
47256 int capi_iwork_intent = 0;
47257 int liwork = 0;
47258 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
47259 int info = 0;
47260 static char *capi_kwlist[] = {"a","compute_v","range","lower","vl","vu","il","iu","abstol","lwork","liwork","overwrite_a",NULL((void*)0)};
47261
47262/*routdebugenter*/
47263#ifdef F2PY_REPORT_ATEXIT
47264f2py_start_clock();
47265#endif
47266 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
47267 "O|OOOOOOOOOOi:_flapack.ssyevr",\
47268 capi_kwlist,&a_capi,&compute_v_capi,&range_capi,&lower_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&liwork_capi,&capi_overwrite_a))
47269 return NULL((void*)0);
47270/*frompyobj*/
47271 /* Processing variable a */
47272 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
47273 ;
47274 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
47275 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
47276 if (capi_a_tmp == NULL((void*)0)) {
47277 if (!PyErr_Occurred())
47278 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssyevr to C/Fortran array" );
47279 } else {
47280 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
47281
47282 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
47283 /* Processing variable compute_v */
47284 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
47285 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.ssyevr() 1st keyword (compute_v) can't be converted to int");
47286 if (f2py_success) {
47287 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","ssyevr:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyevr:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
47288 /* Processing variable lower */
47289 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
47290 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssyevr() 3rd keyword (lower) can't be converted to int");
47291 if (f2py_success) {
47292 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","3rd keyword lower","ssyevr:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyevr:lower=%d", "(""lower==0||lower==1"") failed for "
"3rd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
47293 /* Processing variable vl */
47294 if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else
47295 f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.ssyevr() 4th keyword (vl) can't be converted to float");
47296 if (f2py_success) {
47297 /* Processing variable abstol */
47298 if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else
47299 f2py_success = float_from_pyobj(&abstol,abstol_capi,"_flapack.ssyevr() 8th keyword (abstol) can't be converted to float");
47300 if (f2py_success) {
47301 /* Processing variable m */
47302 /* Processing variable info */
47303 /* Processing variable range */
47304 slen(range)capi_range_len = 1;
47305 f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 2nd keyword `range' of _flapack.ssyevr to C string");
47306 if (f2py_success) {
47307 CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","2nd keyword range","ssyevr:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ssyevr:slen(range)=%d range=\"%s\""
, "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""2nd keyword range"
, capi_range_len, range); PyErr_SetString(_flapack_error, errstring
); } else
{
47308 /* Processing variable vu */
47309 if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else
47310 f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.ssyevr() 5th keyword (vu) can't be converted to float");
47311 if (f2py_success) {
47312 CHECKSCALAR(vu>=vl,"vu>=vl","5th keyword vu","ssyevr:vu=%g",vu)if (!(vu>=vl)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyevr:vu=%g", "(""vu>=vl"") failed for ""5th keyword vu"
, vu); PyErr_SetString(_flapack_error,errstring); } else
{
47313 /* Processing variable n */
47314 n = shape(a,0)a_Dims[0];
47315 /* Processing variable lda */
47316 lda = max(1,n)((1 > n) ? (1) : (n));
47317 /* Processing variable w */
47318 w_Dims[0]=n;
47319 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
47320 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
47321 if (capi_w_tmp == NULL((void*)0)) {
47322 if (!PyErr_Occurred())
47323 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.ssyevr to C/Fortran array" );
47324 } else {
47325 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
47326
47327 /* Processing variable il */
47328 if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else
47329 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.ssyevr() 6th keyword (il) can't be converted to int");
47330 if (f2py_success) {
47331 CHECKSCALAR(il>=1&&il<=n,"il>=1&&il<=n","6th keyword il","ssyevr:il=%d",il)if (!(il>=1&&il<=n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyevr:il=%d", "(""il>=1&&il<=n"") failed for "
"6th keyword il", il); PyErr_SetString(_flapack_error,errstring
); } else
{
47332 /* Processing variable iu */
47333 if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else
47334 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.ssyevr() 7th keyword (iu) can't be converted to int");
47335 if (f2py_success) {
47336 CHECKSCALAR(n>=iu&&iu>=il,"n>=iu&&iu>=il","7th keyword iu","ssyevr:iu=%d",iu)if (!(n>=iu&&iu>=il)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyevr:iu=%d", "(""n>=iu&&iu>=il"") failed for "
"7th keyword iu", iu); PyErr_SetString(_flapack_error,errstring
); } else
{
47337 /* Processing variable lwork */
47338 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(26*n,1)((26*n > 1) ? (26*n) : (1)); else
47339 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssyevr() 9th keyword (lwork) can't be converted to int");
47340 if (f2py_success) {
47341 CHECKSCALAR(lwork>=max(1,26*n)||lwork==-1,"lwork>=max(1,26*n)||lwork==-1","9th keyword lwork","ssyevr:lwork=%d",lwork)if (!(lwork>=((1 > 26*n) ? (1) : (26*n))||lwork==-1)) {
char errstring[256]; __builtin___sprintf_chk (errstring, 2 -
1, __builtin_object_size (errstring, 2 > 1), "%s: ""ssyevr:lwork=%d"
, "(""lwork>=max(1,26*n)||lwork==-1"") failed for ""9th keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
47342 /* Processing variable liwork */
47343 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = max(1,10*n)((1 > 10*n) ? (1) : (10*n)); else
47344 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.ssyevr() 10th keyword (liwork) can't be converted to int");
47345 if (f2py_success) {
47346 CHECKSCALAR(liwork>=max(1,10*n)||liwork==-1,"liwork>=max(1,10*n)||liwork==-1","10th keyword liwork","ssyevr:liwork=%d",liwork)if (!(liwork>=((1 > 10*n) ? (1) : (10*n))||liwork==-1))
{ char errstring[256]; __builtin___sprintf_chk (errstring, 2
- 1, __builtin_object_size (errstring, 2 > 1), "%s: ""ssyevr:liwork=%d"
, "(""liwork>=max(1,10*n)||liwork==-1"") failed for ""10th keyword liwork"
, liwork); PyErr_SetString(_flapack_error,errstring); } else
{
47347 /* Processing variable work */
47348 work_Dims[0]=lwork;
47349 capi_work_intent |= F2PY_INTENT_HIDE8;
47350 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
47351 if (capi_work_tmp == NULL((void*)0)) {
47352 if (!PyErr_Occurred())
47353 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssyevr to C/Fortran array" );
47354 } else {
47355 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
47356
47357 /* Processing variable iwork */
47358 iwork_Dims[0]=liwork;
47359 capi_iwork_intent |= F2PY_INTENT_HIDE8;
47360 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
47361 if (capi_iwork_tmp == NULL((void*)0)) {
47362 if (!PyErr_Occurred())
47363 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.ssyevr to C/Fortran array" );
47364 } else {
47365 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
47366
47367 /* Processing variable z */
47368 z_Dims[0]=(compute_v?MAX(0,n)((0 > n) ? (0) : (n)):0),z_Dims[1]=(compute_v?(*range=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0);
47369 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
47370 capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
47371 if (capi_z_tmp == NULL((void*)0)) {
47372 if (!PyErr_Occurred())
47373 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.ssyevr to C/Fortran array" );
47374 } else {
47375 z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
47376
47377 /* Processing variable isuppz */
47378 isuppz_Dims[0]=(compute_v?(2*(*range=='A'||(*range=='I' && iu-il+1==n)?n:0)):0);
47379 capi_isuppz_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
47380 capi_isuppz_tmp = array_from_pyobj(NPY_INT,isuppz_Dims,isuppz_Rank,capi_isuppz_intent,Py_None(&_Py_NoneStruct));
47381 if (capi_isuppz_tmp == NULL((void*)0)) {
47382 if (!PyErr_Occurred())
47383 PyErr_SetString(_flapack_error,"failed in converting hidden `isuppz' of _flapack.ssyevr to C/Fortran array" );
47384 } else {
47385 isuppz = (int *)(PyArray_DATA(capi_isuppz_tmp)((void *)((PyArrayObject_fields *)(capi_isuppz_tmp))->data
)
);
47386
47387 /* Processing variable ldz */
47388 ldz = max(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0]));
47389/*end of frompyobj*/
47390#ifdef F2PY_REPORT_ATEXIT
47391f2py_start_call_clock();
47392#endif
47393/*callfortranroutine*/
47394 (*f2py_func)((compute_v?"V":"N"),range,(lower?"L":"U"),&n,a,&lda,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,isuppz,work,&lwork,iwork,&liwork,&info) ;
47395 /*(*f2py_func)(&compute_v,range,&lower,&n,a,&lda,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,isuppz,work,&lwork,iwork,&liwork,&info,slen(range));*/
47396if (PyErr_Occurred())
47397 f2py_success = 0;
47398#ifdef F2PY_REPORT_ATEXIT
47399f2py_stop_call_clock();
47400#endif
47401/*end of callfortranroutine*/
47402 if (f2py_success) {
47403/*pyobjfrom*/
47404/*end of pyobjfrom*/
47405 CFUNCSMESS("Building return value.\n");
47406 capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_isuppz_tmp,info);
47407/*closepyobjfrom*/
47408/*end of closepyobjfrom*/
47409 } /*if (f2py_success) after callfortranroutine*/
47410/*cleanupfrompyobj*/
47411 /* End of cleaning variable ldz */
47412 } /*if (capi_isuppz_tmp == NULL) ... else of isuppz*/
47413 /* End of cleaning variable isuppz */
47414 } /*if (capi_z_tmp == NULL) ... else of z*/
47415 /* End of cleaning variable z */
47416 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
47417 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
47418 /* End of cleaning variable iwork */
47419 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
47420 } /*if (capi_work_tmp == NULL) ... else of work*/
47421 /* End of cleaning variable work */
47422 } /*CHECKSCALAR(liwork>=max(1,10*n)||liwork==-1)*/
47423 } /*if (f2py_success) of liwork*/
47424 /* End of cleaning variable liwork */
47425 } /*CHECKSCALAR(lwork>=max(1,26*n)||lwork==-1)*/
47426 } /*if (f2py_success) of lwork*/
47427 /* End of cleaning variable lwork */
47428 } /*CHECKSCALAR(n>=iu&&iu>=il)*/
47429 } /*if (f2py_success) of iu*/
47430 /* End of cleaning variable iu */
47431 } /*CHECKSCALAR(il>=1&&il<=n)*/
47432 } /*if (f2py_success) of il*/
47433 /* End of cleaning variable il */
47434 } /*if (capi_w_tmp == NULL) ... else of w*/
47435 /* End of cleaning variable w */
47436 /* End of cleaning variable lda */
47437 /* End of cleaning variable n */
47438 } /*CHECKSCALAR(vu>=vl)*/
47439 } /*if (f2py_success) of vu*/
47440 /* End of cleaning variable vu */
47441 } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/
47442 STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0);
47443 } /*if (f2py_success) of range*/
47444 /* End of cleaning variable range */
47445 /* End of cleaning variable info */
47446 /* End of cleaning variable m */
47447 } /*if (f2py_success) of abstol*/
47448 /* End of cleaning variable abstol */
47449 } /*if (f2py_success) of vl*/
47450 /* End of cleaning variable vl */
47451 } /*CHECKSCALAR(lower==0||lower==1)*/
47452 } /*if (f2py_success) of lower*/
47453 /* End of cleaning variable lower */
47454 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
47455 } /*if (f2py_success) of compute_v*/
47456 /* End of cleaning variable compute_v */
47457 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
47458 if((PyObject *)capi_a_tmp!=a_capi) {
47459 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
47460 } /*if (capi_a_tmp == NULL) ... else of a*/
47461 /* End of cleaning variable a */
47462/*end of cleanupfrompyobj*/
47463 if (capi_buildvalue == NULL((void*)0)) {
47464/*routdebugfailure*/
47465 } else {
47466/*routdebugleave*/
47467 }
47468 CFUNCSMESS("Freeing memory.\n");
47469/*freemem*/
47470#ifdef F2PY_REPORT_ATEXIT
47471f2py_stop_clock();
47472#endif
47473 return capi_buildvalue;
47474}
47475/******************************* end of ssyevr *******************************/
47476
47477/*********************************** dsyevr ***********************************/
47478static char doc_f2py_rout__flapack_dsyevr[] = "\
47479w,z,m,isuppz,info = dsyevr(a,[compute_v,range,lower,vl,vu,il,iu,abstol,lwork,liwork,overwrite_a])\n\nWrapper for ``dsyevr``.\
47480\n\nParameters\n----------\n"
47481"a : input rank-2 array('d') with bounds (n,n)\n"
47482"\nOther Parameters\n----------------\n"
47483"compute_v : input int, optional\n Default: 1\n"
47484"range : input string(len=1), optional\n Default: 'A'\n"
47485"lower : input int, optional\n Default: 0\n"
47486"overwrite_a : input int, optional\n Default: 0\n"
47487"vl : input float, optional\n Default: 0.0\n"
47488"vu : input float, optional\n Default: 1.0\n"
47489"il : input int, optional\n Default: 1\n"
47490"iu : input int, optional\n Default: n\n"
47491"abstol : input float, optional\n Default: 0.0\n"
47492"lwork : input int, optional\n Default: max(26*n,1)\n"
47493"liwork : input int, optional\n Default: max(1,10*n)\n"
47494"\nReturns\n-------\n"
47495"w : rank-1 array('d') with bounds (n)\n"
47496"z : rank-2 array('d') with bounds ((compute_v?MAX(0,n):0),(compute_v?(*range=='I'?iu-il+1:MAX(1,n)):0))\n"
47497"m : int\n"
47498"isuppz : rank-1 array('i') with bounds ((compute_v?(2*(*range=='A'||(*range=='I' && iu-il+1==n)?n:0)):0))\n"
47499"info : int";
47500/* extern void F_FUNC(dsyevr,DSYEVR)(char*,char*,char*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
47501static PyObject *f2py_rout__flapack_dsyevr(const PyObject *capi_self,
47502 PyObject *capi_args,
47503 PyObject *capi_keywds,
47504 void (*f2py_func)(char*,char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
47505 PyObject * volatile capi_buildvalue = NULL((void*)0);
47506 volatile int f2py_success = 1;
47507/*decl*/
47508
47509 int compute_v = 0;
47510 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
47511 string range = NULL((void*)0);
47512 int slen(range)capi_range_len;
47513 PyObject *range_capi = Py_None(&_Py_NoneStruct);
47514 int lower = 0;
47515 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
47516 int n = 0;
47517 double *a = NULL((void*)0);
47518 npy_intp a_Dims[2] = {-1, -1};
47519 const int a_Rank = 2;
47520 PyArrayObject *capi_a_tmp = NULL((void*)0);
47521 int capi_a_intent = 0;
47522 int capi_overwrite_a = 0;
47523 PyObject *a_capi = Py_None(&_Py_NoneStruct);
47524 int lda = 0;
47525 double vl = 0;
47526 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
47527 double vu = 0;
47528 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
47529 int il = 0;
47530 PyObject *il_capi = Py_None(&_Py_NoneStruct);
47531 int iu = 0;
47532 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
47533 double abstol = 0;
47534 PyObject *abstol_capi = Py_None(&_Py_NoneStruct);
47535 double *w = NULL((void*)0);
47536 npy_intp w_Dims[1] = {-1};
47537 const int w_Rank = 1;
47538 PyArrayObject *capi_w_tmp = NULL((void*)0);
47539 int capi_w_intent = 0;
47540 double *z = NULL((void*)0);
47541 npy_intp z_Dims[2] = {-1, -1};
47542 const int z_Rank = 2;
47543 PyArrayObject *capi_z_tmp = NULL((void*)0);
47544 int capi_z_intent = 0;
47545 int m = 0;
47546 int ldz = 0;
47547 int *isuppz = NULL((void*)0);
47548 npy_intp isuppz_Dims[1] = {-1};
47549 const int isuppz_Rank = 1;
47550 PyArrayObject *capi_isuppz_tmp = NULL((void*)0);
47551 int capi_isuppz_intent = 0;
47552 double *work = NULL((void*)0);
47553 npy_intp work_Dims[1] = {-1};
47554 const int work_Rank = 1;
47555 PyArrayObject *capi_work_tmp = NULL((void*)0);
47556 int capi_work_intent = 0;
47557 int lwork = 0;
47558 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
47559 int *iwork = NULL((void*)0);
47560 npy_intp iwork_Dims[1] = {-1};
47561 const int iwork_Rank = 1;
47562 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
47563 int capi_iwork_intent = 0;
47564 int liwork = 0;
47565 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
47566 int info = 0;
47567 static char *capi_kwlist[] = {"a","compute_v","range","lower","vl","vu","il","iu","abstol","lwork","liwork","overwrite_a",NULL((void*)0)};
47568
47569/*routdebugenter*/
47570#ifdef F2PY_REPORT_ATEXIT
47571f2py_start_clock();
47572#endif
47573 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
47574 "O|OOOOOOOOOOi:_flapack.dsyevr",\
47575 capi_kwlist,&a_capi,&compute_v_capi,&range_capi,&lower_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&liwork_capi,&capi_overwrite_a))
47576 return NULL((void*)0);
47577/*frompyobj*/
47578 /* Processing variable a */
47579 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
47580 ;
47581 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
47582 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
47583 if (capi_a_tmp == NULL((void*)0)) {
47584 if (!PyErr_Occurred())
47585 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsyevr to C/Fortran array" );
47586 } else {
47587 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
47588
47589 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
47590 /* Processing variable compute_v */
47591 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
47592 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dsyevr() 1st keyword (compute_v) can't be converted to int");
47593 if (f2py_success) {
47594 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","dsyevr:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyevr:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
47595 /* Processing variable lower */
47596 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
47597 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsyevr() 3rd keyword (lower) can't be converted to int");
47598 if (f2py_success) {
47599 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","3rd keyword lower","dsyevr:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyevr:lower=%d", "(""lower==0||lower==1"") failed for "
"3rd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
47600 /* Processing variable vl */
47601 if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else
47602 f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.dsyevr() 4th keyword (vl) can't be converted to double");
47603 if (f2py_success) {
47604 /* Processing variable abstol */
47605 if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else
47606 f2py_success = double_from_pyobj(&abstol,abstol_capi,"_flapack.dsyevr() 8th keyword (abstol) can't be converted to double");
47607 if (f2py_success) {
47608 /* Processing variable m */
47609 /* Processing variable info */
47610 /* Processing variable range */
47611 slen(range)capi_range_len = 1;
47612 f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 2nd keyword `range' of _flapack.dsyevr to C string");
47613 if (f2py_success) {
47614 CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","2nd keyword range","dsyevr:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dsyevr:slen(range)=%d range=\"%s\""
, "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""2nd keyword range"
, capi_range_len, range); PyErr_SetString(_flapack_error, errstring
); } else
{
47615 /* Processing variable vu */
47616 if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else
47617 f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.dsyevr() 5th keyword (vu) can't be converted to double");
47618 if (f2py_success) {
47619 CHECKSCALAR(vu>=vl,"vu>=vl","5th keyword vu","dsyevr:vu=%g",vu)if (!(vu>=vl)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyevr:vu=%g", "(""vu>=vl"") failed for ""5th keyword vu"
, vu); PyErr_SetString(_flapack_error,errstring); } else
{
47620 /* Processing variable n */
47621 n = shape(a,0)a_Dims[0];
47622 /* Processing variable lda */
47623 lda = max(1,n)((1 > n) ? (1) : (n));
47624 /* Processing variable w */
47625 w_Dims[0]=n;
47626 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
47627 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
47628 if (capi_w_tmp == NULL((void*)0)) {
47629 if (!PyErr_Occurred())
47630 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dsyevr to C/Fortran array" );
47631 } else {
47632 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
47633
47634 /* Processing variable il */
47635 if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else
47636 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.dsyevr() 6th keyword (il) can't be converted to int");
47637 if (f2py_success) {
47638 CHECKSCALAR(il>=1&&il<=n,"il>=1&&il<=n","6th keyword il","dsyevr:il=%d",il)if (!(il>=1&&il<=n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyevr:il=%d", "(""il>=1&&il<=n"") failed for "
"6th keyword il", il); PyErr_SetString(_flapack_error,errstring
); } else
{
47639 /* Processing variable iu */
47640 if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else
47641 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.dsyevr() 7th keyword (iu) can't be converted to int");
47642 if (f2py_success) {
47643 CHECKSCALAR(n>=iu&&iu>=il,"n>=iu&&iu>=il","7th keyword iu","dsyevr:iu=%d",iu)if (!(n>=iu&&iu>=il)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyevr:iu=%d", "(""n>=iu&&iu>=il"") failed for "
"7th keyword iu", iu); PyErr_SetString(_flapack_error,errstring
); } else
{
47644 /* Processing variable lwork */
47645 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(26*n,1)((26*n > 1) ? (26*n) : (1)); else
47646 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsyevr() 9th keyword (lwork) can't be converted to int");
47647 if (f2py_success) {
47648 CHECKSCALAR(lwork>=max(1,26*n)||lwork==-1,"lwork>=max(1,26*n)||lwork==-1","9th keyword lwork","dsyevr:lwork=%d",lwork)if (!(lwork>=((1 > 26*n) ? (1) : (26*n))||lwork==-1)) {
char errstring[256]; __builtin___sprintf_chk (errstring, 2 -
1, __builtin_object_size (errstring, 2 > 1), "%s: ""dsyevr:lwork=%d"
, "(""lwork>=max(1,26*n)||lwork==-1"") failed for ""9th keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
47649 /* Processing variable liwork */
47650 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = max(1,10*n)((1 > 10*n) ? (1) : (10*n)); else
47651 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.dsyevr() 10th keyword (liwork) can't be converted to int");
47652 if (f2py_success) {
47653 CHECKSCALAR(liwork>=max(1,10*n)||liwork==-1,"liwork>=max(1,10*n)||liwork==-1","10th keyword liwork","dsyevr:liwork=%d",liwork)if (!(liwork>=((1 > 10*n) ? (1) : (10*n))||liwork==-1))
{ char errstring[256]; __builtin___sprintf_chk (errstring, 2
- 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dsyevr:liwork=%d"
, "(""liwork>=max(1,10*n)||liwork==-1"") failed for ""10th keyword liwork"
, liwork); PyErr_SetString(_flapack_error,errstring); } else
{
47654 /* Processing variable work */
47655 work_Dims[0]=lwork;
47656 capi_work_intent |= F2PY_INTENT_HIDE8;
47657 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
47658 if (capi_work_tmp == NULL((void*)0)) {
47659 if (!PyErr_Occurred())
47660 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsyevr to C/Fortran array" );
47661 } else {
47662 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
47663
47664 /* Processing variable iwork */
47665 iwork_Dims[0]=liwork;
47666 capi_iwork_intent |= F2PY_INTENT_HIDE8;
47667 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
47668 if (capi_iwork_tmp == NULL((void*)0)) {
47669 if (!PyErr_Occurred())
47670 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dsyevr to C/Fortran array" );
47671 } else {
47672 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
47673
47674 /* Processing variable z */
47675 z_Dims[0]=(compute_v?MAX(0,n)((0 > n) ? (0) : (n)):0),z_Dims[1]=(compute_v?(*range=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0);
47676 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
47677 capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
47678 if (capi_z_tmp == NULL((void*)0)) {
47679 if (!PyErr_Occurred())
47680 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.dsyevr to C/Fortran array" );
47681 } else {
47682 z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
47683
47684 /* Processing variable isuppz */
47685 isuppz_Dims[0]=(compute_v?(2*(*range=='A'||(*range=='I' && iu-il+1==n)?n:0)):0);
47686 capi_isuppz_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
47687 capi_isuppz_tmp = array_from_pyobj(NPY_INT,isuppz_Dims,isuppz_Rank,capi_isuppz_intent,Py_None(&_Py_NoneStruct));
47688 if (capi_isuppz_tmp == NULL((void*)0)) {
47689 if (!PyErr_Occurred())
47690 PyErr_SetString(_flapack_error,"failed in converting hidden `isuppz' of _flapack.dsyevr to C/Fortran array" );
47691 } else {
47692 isuppz = (int *)(PyArray_DATA(capi_isuppz_tmp)((void *)((PyArrayObject_fields *)(capi_isuppz_tmp))->data
)
);
47693
47694 /* Processing variable ldz */
47695 ldz = max(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0]));
47696/*end of frompyobj*/
47697#ifdef F2PY_REPORT_ATEXIT
47698f2py_start_call_clock();
47699#endif
47700/*callfortranroutine*/
47701 (*f2py_func)((compute_v?"V":"N"),range,(lower?"L":"U"),&n,a,&lda,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,isuppz,work,&lwork,iwork,&liwork,&info) ;
47702 /*(*f2py_func)(&compute_v,range,&lower,&n,a,&lda,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,isuppz,work,&lwork,iwork,&liwork,&info,slen(range));*/
47703if (PyErr_Occurred())
47704 f2py_success = 0;
47705#ifdef F2PY_REPORT_ATEXIT
47706f2py_stop_call_clock();
47707#endif
47708/*end of callfortranroutine*/
47709 if (f2py_success) {
47710/*pyobjfrom*/
47711/*end of pyobjfrom*/
47712 CFUNCSMESS("Building return value.\n");
47713 capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_isuppz_tmp,info);
47714/*closepyobjfrom*/
47715/*end of closepyobjfrom*/
47716 } /*if (f2py_success) after callfortranroutine*/
47717/*cleanupfrompyobj*/
47718 /* End of cleaning variable ldz */
47719 } /*if (capi_isuppz_tmp == NULL) ... else of isuppz*/
47720 /* End of cleaning variable isuppz */
47721 } /*if (capi_z_tmp == NULL) ... else of z*/
47722 /* End of cleaning variable z */
47723 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
47724 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
47725 /* End of cleaning variable iwork */
47726 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
47727 } /*if (capi_work_tmp == NULL) ... else of work*/
47728 /* End of cleaning variable work */
47729 } /*CHECKSCALAR(liwork>=max(1,10*n)||liwork==-1)*/
47730 } /*if (f2py_success) of liwork*/
47731 /* End of cleaning variable liwork */
47732 } /*CHECKSCALAR(lwork>=max(1,26*n)||lwork==-1)*/
47733 } /*if (f2py_success) of lwork*/
47734 /* End of cleaning variable lwork */
47735 } /*CHECKSCALAR(n>=iu&&iu>=il)*/
47736 } /*if (f2py_success) of iu*/
47737 /* End of cleaning variable iu */
47738 } /*CHECKSCALAR(il>=1&&il<=n)*/
47739 } /*if (f2py_success) of il*/
47740 /* End of cleaning variable il */
47741 } /*if (capi_w_tmp == NULL) ... else of w*/
47742 /* End of cleaning variable w */
47743 /* End of cleaning variable lda */
47744 /* End of cleaning variable n */
47745 } /*CHECKSCALAR(vu>=vl)*/
47746 } /*if (f2py_success) of vu*/
47747 /* End of cleaning variable vu */
47748 } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/
47749 STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0);
47750 } /*if (f2py_success) of range*/
47751 /* End of cleaning variable range */
47752 /* End of cleaning variable info */
47753 /* End of cleaning variable m */
47754 } /*if (f2py_success) of abstol*/
47755 /* End of cleaning variable abstol */
47756 } /*if (f2py_success) of vl*/
47757 /* End of cleaning variable vl */
47758 } /*CHECKSCALAR(lower==0||lower==1)*/
47759 } /*if (f2py_success) of lower*/
47760 /* End of cleaning variable lower */
47761 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
47762 } /*if (f2py_success) of compute_v*/
47763 /* End of cleaning variable compute_v */
47764 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
47765 if((PyObject *)capi_a_tmp!=a_capi) {
47766 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
47767 } /*if (capi_a_tmp == NULL) ... else of a*/
47768 /* End of cleaning variable a */
47769/*end of cleanupfrompyobj*/
47770 if (capi_buildvalue == NULL((void*)0)) {
47771/*routdebugfailure*/
47772 } else {
47773/*routdebugleave*/
47774 }
47775 CFUNCSMESS("Freeing memory.\n");
47776/*freemem*/
47777#ifdef F2PY_REPORT_ATEXIT
47778f2py_stop_clock();
47779#endif
47780 return capi_buildvalue;
47781}
47782/******************************* end of dsyevr *******************************/
47783
47784/******************************** ssyevr_lwork ********************************/
47785static char doc_f2py_rout__flapack_ssyevr_lwork[] = "\
47786work,iwork,info = ssyevr_lwork(n,[lower])\n\nWrapper for ``ssyevr_lwork``.\
47787\n\nParameters\n----------\n"
47788"n : input int\n"
47789"\nOther Parameters\n----------------\n"
47790"lower : input int, optional\n Default: 0\n"
47791"\nReturns\n-------\n"
47792"work : float\n"
47793"iwork : int\n"
47794"info : int";
47795/* extern void F_FUNC(ssyevr ,SSYEVR )(char*,char*,char*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
47796static PyObject *f2py_rout__flapack_ssyevr_lwork(const PyObject *capi_self,
47797 PyObject *capi_args,
47798 PyObject *capi_keywds,
47799 void (*f2py_func)(char*,char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
47800 PyObject * volatile capi_buildvalue = NULL((void*)0);
47801 volatile int f2py_success = 1;
47802/*decl*/
47803
47804 int lower = 0;
47805 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
47806 int n = 0;
47807 PyObject *n_capi = Py_None(&_Py_NoneStruct);
47808 float a = 0;
47809 int lda = 0;
47810 float vl = 0;
47811 float vu = 0;
47812 int il = 0;
47813 int iu = 0;
47814 float abstol = 0;
47815 int m = 0;
47816 float w = 0;
47817 float z = 0;
47818 int ldz = 0;
47819 int isuppz = 0;
47820 float work = 0;
47821 int lwork = 0;
47822 int iwork = 0;
47823 int liwork = 0;
47824 int info = 0;
47825 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
47826
47827/*routdebugenter*/
47828#ifdef F2PY_REPORT_ATEXIT
47829f2py_start_clock();
47830#endif
47831 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
47832 "O|O:_flapack.ssyevr_lwork",\
47833 capi_kwlist,&n_capi,&lower_capi))
47834 return NULL((void*)0);
47835/*frompyobj*/
47836 /* Processing variable n */
47837 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssyevr_lwork() 1st argument (n) can't be converted to int");
47838 if (f2py_success) {
47839 /* Processing variable lower */
47840 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
47841 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssyevr_lwork() 1st keyword (lower) can't be converted to int");
47842 if (f2py_success) {
47843 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssyevr_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyevr_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
47844 /* Processing variable a */
47845 /* Processing variable vl */
47846 vl = 0.0;
47847 /* Processing variable vu */
47848 vu = 1.0;
47849 /* Processing variable il */
47850 il = 1;
47851 /* Processing variable iu */
47852 iu = 2;
47853 /* Processing variable abstol */
47854 abstol = 0.0;
47855 /* Processing variable m */
47856 m = 1;
47857 /* Processing variable w */
47858 /* Processing variable z */
47859 /* Processing variable isuppz */
47860 /* Processing variable lwork */
47861 lwork = -1;
47862 /* Processing variable liwork */
47863 liwork = -1;
47864 /* Processing variable work */
47865 /* Processing variable iwork */
47866 /* Processing variable info */
47867 /* Processing variable lda */
47868 lda = max(1,n)((1 > n) ? (1) : (n));
47869 /* Processing variable ldz */
47870 ldz = max(1,n)((1 > n) ? (1) : (n));
47871/*end of frompyobj*/
47872#ifdef F2PY_REPORT_ATEXIT
47873f2py_start_call_clock();
47874#endif
47875/*callfortranroutine*/
47876 (*f2py_func)("N","A",(lower?"L":"U"),&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&isuppz,&work,&lwork,&iwork,&liwork,&info) ;
47877 /*(*f2py_func)(&lower,&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&isuppz,&work,&lwork,&iwork,&liwork,&info);*/
47878if (PyErr_Occurred())
47879 f2py_success = 0;
47880#ifdef F2PY_REPORT_ATEXIT
47881f2py_stop_call_clock();
47882#endif
47883/*end of callfortranroutine*/
47884 if (f2py_success) {
47885/*pyobjfrom*/
47886/*end of pyobjfrom*/
47887 CFUNCSMESS("Building return value.\n");
47888 capi_buildvalue = Py_BuildValue("fii",work,iwork,info);
47889/*closepyobjfrom*/
47890/*end of closepyobjfrom*/
47891 } /*if (f2py_success) after callfortranroutine*/
47892/*cleanupfrompyobj*/
47893 /* End of cleaning variable ldz */
47894 /* End of cleaning variable lda */
47895 /* End of cleaning variable info */
47896 /* End of cleaning variable iwork */
47897 /* End of cleaning variable work */
47898 /* End of cleaning variable liwork */
47899 /* End of cleaning variable lwork */
47900 /* End of cleaning variable isuppz */
47901 /* End of cleaning variable z */
47902 /* End of cleaning variable w */
47903 /* End of cleaning variable m */
47904 /* End of cleaning variable abstol */
47905 /* End of cleaning variable iu */
47906 /* End of cleaning variable il */
47907 /* End of cleaning variable vu */
47908 /* End of cleaning variable vl */
47909 /* End of cleaning variable a */
47910 } /*CHECKSCALAR(lower==0||lower==1)*/
47911 } /*if (f2py_success) of lower*/
47912 /* End of cleaning variable lower */
47913 } /*if (f2py_success) of n*/
47914 /* End of cleaning variable n */
47915/*end of cleanupfrompyobj*/
47916 if (capi_buildvalue == NULL((void*)0)) {
47917/*routdebugfailure*/
47918 } else {
47919/*routdebugleave*/
47920 }
47921 CFUNCSMESS("Freeing memory.\n");
47922/*freemem*/
47923#ifdef F2PY_REPORT_ATEXIT
47924f2py_stop_clock();
47925#endif
47926 return capi_buildvalue;
47927}
47928/**************************** end of ssyevr_lwork ****************************/
47929
47930/******************************** dsyevr_lwork ********************************/
47931static char doc_f2py_rout__flapack_dsyevr_lwork[] = "\
47932work,iwork,info = dsyevr_lwork(n,[lower])\n\nWrapper for ``dsyevr_lwork``.\
47933\n\nParameters\n----------\n"
47934"n : input int\n"
47935"\nOther Parameters\n----------------\n"
47936"lower : input int, optional\n Default: 0\n"
47937"\nReturns\n-------\n"
47938"work : float\n"
47939"iwork : int\n"
47940"info : int";
47941/* extern void F_FUNC(dsyevr ,DSYEVR )(char*,char*,char*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
47942static PyObject *f2py_rout__flapack_dsyevr_lwork(const PyObject *capi_self,
47943 PyObject *capi_args,
47944 PyObject *capi_keywds,
47945 void (*f2py_func)(char*,char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
47946 PyObject * volatile capi_buildvalue = NULL((void*)0);
47947 volatile int f2py_success = 1;
47948/*decl*/
47949
47950 int lower = 0;
47951 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
47952 int n = 0;
47953 PyObject *n_capi = Py_None(&_Py_NoneStruct);
47954 double a = 0;
47955 int lda = 0;
47956 double vl = 0;
47957 double vu = 0;
47958 int il = 0;
47959 int iu = 0;
47960 double abstol = 0;
47961 int m = 0;
47962 double w = 0;
47963 double z = 0;
47964 int ldz = 0;
47965 int isuppz = 0;
47966 double work = 0;
47967 int lwork = 0;
47968 int iwork = 0;
47969 int liwork = 0;
47970 int info = 0;
47971 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
47972
47973/*routdebugenter*/
47974#ifdef F2PY_REPORT_ATEXIT
47975f2py_start_clock();
47976#endif
47977 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
47978 "O|O:_flapack.dsyevr_lwork",\
47979 capi_kwlist,&n_capi,&lower_capi))
47980 return NULL((void*)0);
47981/*frompyobj*/
47982 /* Processing variable n */
47983 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsyevr_lwork() 1st argument (n) can't be converted to int");
47984 if (f2py_success) {
47985 /* Processing variable lower */
47986 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
47987 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsyevr_lwork() 1st keyword (lower) can't be converted to int");
47988 if (f2py_success) {
47989 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsyevr_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyevr_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
47990 /* Processing variable a */
47991 /* Processing variable vl */
47992 vl = 0.0;
47993 /* Processing variable vu */
47994 vu = 1.0;
47995 /* Processing variable il */
47996 il = 1;
47997 /* Processing variable iu */
47998 iu = 2;
47999 /* Processing variable abstol */
48000 abstol = 0.0;
48001 /* Processing variable m */
48002 m = 1;
48003 /* Processing variable w */
48004 /* Processing variable z */
48005 /* Processing variable isuppz */
48006 /* Processing variable lwork */
48007 lwork = -1;
48008 /* Processing variable liwork */
48009 liwork = -1;
48010 /* Processing variable work */
48011 /* Processing variable iwork */
48012 /* Processing variable info */
48013 /* Processing variable lda */
48014 lda = max(1,n)((1 > n) ? (1) : (n));
48015 /* Processing variable ldz */
48016 ldz = max(1,n)((1 > n) ? (1) : (n));
48017/*end of frompyobj*/
48018#ifdef F2PY_REPORT_ATEXIT
48019f2py_start_call_clock();
48020#endif
48021/*callfortranroutine*/
48022 (*f2py_func)("N","A",(lower?"L":"U"),&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&isuppz,&work,&lwork,&iwork,&liwork,&info) ;
48023 /*(*f2py_func)(&lower,&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&isuppz,&work,&lwork,&iwork,&liwork,&info);*/
48024if (PyErr_Occurred())
48025 f2py_success = 0;
48026#ifdef F2PY_REPORT_ATEXIT
48027f2py_stop_call_clock();
48028#endif
48029/*end of callfortranroutine*/
48030 if (f2py_success) {
48031/*pyobjfrom*/
48032/*end of pyobjfrom*/
48033 CFUNCSMESS("Building return value.\n");
48034 capi_buildvalue = Py_BuildValue("dii",work,iwork,info);
48035/*closepyobjfrom*/
48036/*end of closepyobjfrom*/
48037 } /*if (f2py_success) after callfortranroutine*/
48038/*cleanupfrompyobj*/
48039 /* End of cleaning variable ldz */
48040 /* End of cleaning variable lda */
48041 /* End of cleaning variable info */
48042 /* End of cleaning variable iwork */
48043 /* End of cleaning variable work */
48044 /* End of cleaning variable liwork */
48045 /* End of cleaning variable lwork */
48046 /* End of cleaning variable isuppz */
48047 /* End of cleaning variable z */
48048 /* End of cleaning variable w */
48049 /* End of cleaning variable m */
48050 /* End of cleaning variable abstol */
48051 /* End of cleaning variable iu */
48052 /* End of cleaning variable il */
48053 /* End of cleaning variable vu */
48054 /* End of cleaning variable vl */
48055 /* End of cleaning variable a */
48056 } /*CHECKSCALAR(lower==0||lower==1)*/
48057 } /*if (f2py_success) of lower*/
48058 /* End of cleaning variable lower */
48059 } /*if (f2py_success) of n*/
48060 /* End of cleaning variable n */
48061/*end of cleanupfrompyobj*/
48062 if (capi_buildvalue == NULL((void*)0)) {
48063/*routdebugfailure*/
48064 } else {
48065/*routdebugleave*/
48066 }
48067 CFUNCSMESS("Freeing memory.\n");
48068/*freemem*/
48069#ifdef F2PY_REPORT_ATEXIT
48070f2py_stop_clock();
48071#endif
48072 return capi_buildvalue;
48073}
48074/**************************** end of dsyevr_lwork ****************************/
48075
48076/*********************************** cheevr ***********************************/
48077static char doc_f2py_rout__flapack_cheevr[] = "\
48078w,z,m,isuppz,info = cheevr(a,[compute_v,range,lower,vl,vu,il,iu,abstol,lwork,lrwork,liwork,overwrite_a])\n\nWrapper for ``cheevr``.\
48079\n\nParameters\n----------\n"
48080"a : input rank-2 array('F') with bounds (n,n)\n"
48081"\nOther Parameters\n----------------\n"
48082"compute_v : input int, optional\n Default: 1\n"
48083"range : input string(len=1), optional\n Default: 'A'\n"
48084"lower : input int, optional\n Default: 0\n"
48085"overwrite_a : input int, optional\n Default: 0\n"
48086"vl : input float, optional\n Default: 0.0\n"
48087"vu : input float, optional\n Default: 1.0\n"
48088"il : input int, optional\n Default: 1\n"
48089"iu : input int, optional\n Default: n\n"
48090"abstol : input float, optional\n Default: 0.0\n"
48091"lwork : input int, optional\n Default: max(2*n,1)\n"
48092"lrwork : input int, optional\n Default: max(24*n,1)\n"
48093"liwork : input int, optional\n Default: max(1,10*n)\n"
48094"\nReturns\n-------\n"
48095"w : rank-1 array('f') with bounds (n)\n"
48096"z : rank-2 array('F') with bounds ((compute_v?MAX(0,n):0),(compute_v?(*range=='I'?iu-il+1:MAX(1,n)):0))\n"
48097"m : int\n"
48098"isuppz : rank-1 array('i') with bounds (2*max(1,n))\n"
48099"info : int";
48100/* extern void F_FUNC(cheevr,CHEEVR)(char*,char*,char*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
48101static PyObject *f2py_rout__flapack_cheevr(const PyObject *capi_self,
48102 PyObject *capi_args,
48103 PyObject *capi_keywds,
48104 void (*f2py_func)(char*,char*,char*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
48105 PyObject * volatile capi_buildvalue = NULL((void*)0);
48106 volatile int f2py_success = 1;
48107/*decl*/
48108
48109 int compute_v = 0;
48110 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
48111 string range = NULL((void*)0);
48112 int slen(range)capi_range_len;
48113 PyObject *range_capi = Py_None(&_Py_NoneStruct);
48114 int lower = 0;
48115 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
48116 int n = 0;
48117 complex_float *a = NULL((void*)0);
48118 npy_intp a_Dims[2] = {-1, -1};
48119 const int a_Rank = 2;
48120 PyArrayObject *capi_a_tmp = NULL((void*)0);
48121 int capi_a_intent = 0;
48122 int capi_overwrite_a = 0;
48123 PyObject *a_capi = Py_None(&_Py_NoneStruct);
48124 int lda = 0;
48125 float vl = 0;
48126 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
48127 float vu = 0;
48128 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
48129 int il = 0;
48130 PyObject *il_capi = Py_None(&_Py_NoneStruct);
48131 int iu = 0;
48132 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
48133 float abstol = 0;
48134 PyObject *abstol_capi = Py_None(&_Py_NoneStruct);
48135 float *w = NULL((void*)0);
48136 npy_intp w_Dims[1] = {-1};
48137 const int w_Rank = 1;
48138 PyArrayObject *capi_w_tmp = NULL((void*)0);
48139 int capi_w_intent = 0;
48140 complex_float *z = NULL((void*)0);
48141 npy_intp z_Dims[2] = {-1, -1};
48142 const int z_Rank = 2;
48143 PyArrayObject *capi_z_tmp = NULL((void*)0);
48144 int capi_z_intent = 0;
48145 int m = 0;
48146 int ldz = 0;
48147 int *isuppz = NULL((void*)0);
48148 npy_intp isuppz_Dims[1] = {-1};
48149 const int isuppz_Rank = 1;
48150 PyArrayObject *capi_isuppz_tmp = NULL((void*)0);
48151 int capi_isuppz_intent = 0;
48152 complex_float *work = NULL((void*)0);
48153 npy_intp work_Dims[1] = {-1};
48154 const int work_Rank = 1;
48155 PyArrayObject *capi_work_tmp = NULL((void*)0);
48156 int capi_work_intent = 0;
48157 int lwork = 0;
48158 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
48159 float *rwork = NULL((void*)0);
48160 npy_intp rwork_Dims[1] = {-1};
48161 const int rwork_Rank = 1;
48162 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
48163 int capi_rwork_intent = 0;
48164 int lrwork = 0;
48165 PyObject *lrwork_capi = Py_None(&_Py_NoneStruct);
48166 int *iwork = NULL((void*)0);
48167 npy_intp iwork_Dims[1] = {-1};
48168 const int iwork_Rank = 1;
48169 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
48170 int capi_iwork_intent = 0;
48171 int liwork = 0;
48172 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
48173 int info = 0;
48174 static char *capi_kwlist[] = {"a","compute_v","range","lower","vl","vu","il","iu","abstol","lwork","lrwork","liwork","overwrite_a",NULL((void*)0)};
48175
48176/*routdebugenter*/
48177#ifdef F2PY_REPORT_ATEXIT
48178f2py_start_clock();
48179#endif
48180 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
48181 "O|OOOOOOOOOOOi:_flapack.cheevr",\
48182 capi_kwlist,&a_capi,&compute_v_capi,&range_capi,&lower_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&lrwork_capi,&liwork_capi,&capi_overwrite_a))
48183 return NULL((void*)0);
48184/*frompyobj*/
48185 /* Processing variable a */
48186 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
48187 ;
48188 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
48189 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
48190 if (capi_a_tmp == NULL((void*)0)) {
48191 if (!PyErr_Occurred())
48192 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cheevr to C/Fortran array" );
48193 } else {
48194 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
48195
48196 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
48197 /* Processing variable compute_v */
48198 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
48199 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.cheevr() 1st keyword (compute_v) can't be converted to int");
48200 if (f2py_success) {
48201 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","cheevr:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheevr:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
48202 /* Processing variable lower */
48203 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
48204 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cheevr() 3rd keyword (lower) can't be converted to int");
48205 if (f2py_success) {
48206 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","3rd keyword lower","cheevr:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheevr:lower=%d", "(""lower==0||lower==1"") failed for "
"3rd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
48207 /* Processing variable vl */
48208 if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else
48209 f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.cheevr() 4th keyword (vl) can't be converted to float");
48210 if (f2py_success) {
48211 /* Processing variable abstol */
48212 if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else
48213 f2py_success = float_from_pyobj(&abstol,abstol_capi,"_flapack.cheevr() 8th keyword (abstol) can't be converted to float");
48214 if (f2py_success) {
48215 /* Processing variable m */
48216 /* Processing variable info */
48217 /* Processing variable range */
48218 slen(range)capi_range_len = 1;
48219 f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 2nd keyword `range' of _flapack.cheevr to C string");
48220 if (f2py_success) {
48221 CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","2nd keyword range","cheevr:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""cheevr:slen(range)=%d range=\"%s\""
, "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""2nd keyword range"
, capi_range_len, range); PyErr_SetString(_flapack_error, errstring
); } else
{
48222 /* Processing variable vu */
48223 if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else
48224 f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.cheevr() 5th keyword (vu) can't be converted to float");
48225 if (f2py_success) {
48226 CHECKSCALAR(vu>vl,"vu>vl","5th keyword vu","cheevr:vu=%g",vu)if (!(vu>vl)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheevr:vu=%g", "(""vu>vl"") failed for ""5th keyword vu"
, vu); PyErr_SetString(_flapack_error,errstring); } else
{
48227 /* Processing variable n */
48228 n = shape(a,0)a_Dims[0];
48229 /* Processing variable lda */
48230 lda = max(1,n)((1 > n) ? (1) : (n));
48231 /* Processing variable w */
48232 w_Dims[0]=n;
48233 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
48234 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
48235 if (capi_w_tmp == NULL((void*)0)) {
48236 if (!PyErr_Occurred())
48237 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.cheevr to C/Fortran array" );
48238 } else {
48239 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
48240
48241 /* Processing variable isuppz */
48242 isuppz_Dims[0]=2*max(1,n)((1 > n) ? (1) : (n));
48243 capi_isuppz_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
48244 capi_isuppz_tmp = array_from_pyobj(NPY_INT,isuppz_Dims,isuppz_Rank,capi_isuppz_intent,Py_None(&_Py_NoneStruct));
48245 if (capi_isuppz_tmp == NULL((void*)0)) {
48246 if (!PyErr_Occurred())
48247 PyErr_SetString(_flapack_error,"failed in converting hidden `isuppz' of _flapack.cheevr to C/Fortran array" );
48248 } else {
48249 isuppz = (int *)(PyArray_DATA(capi_isuppz_tmp)((void *)((PyArrayObject_fields *)(capi_isuppz_tmp))->data
)
);
48250
48251 /* Processing variable il */
48252 if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else
48253 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.cheevr() 6th keyword (il) can't be converted to int");
48254 if (f2py_success) {
48255 CHECKSCALAR(il>=1&&il<=n,"il>=1&&il<=n","6th keyword il","cheevr:il=%d",il)if (!(il>=1&&il<=n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheevr:il=%d", "(""il>=1&&il<=n"") failed for "
"6th keyword il", il); PyErr_SetString(_flapack_error,errstring
); } else
{
48256 /* Processing variable iu */
48257 if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else
48258 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.cheevr() 7th keyword (iu) can't be converted to int");
48259 if (f2py_success) {
48260 CHECKSCALAR(n>=iu&&iu>=il,"n>=iu&&iu>=il","7th keyword iu","cheevr:iu=%d",iu)if (!(n>=iu&&iu>=il)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheevr:iu=%d", "(""n>=iu&&iu>=il"") failed for "
"7th keyword iu", iu); PyErr_SetString(_flapack_error,errstring
); } else
{
48261 /* Processing variable lwork */
48262 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else
48263 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cheevr() 9th keyword (lwork) can't be converted to int");
48264 if (f2py_success) {
48265 CHECKSCALAR(lwork>=max(2*n,1)||lwork==-1,"lwork>=max(2*n,1)||lwork==-1","9th keyword lwork","cheevr:lwork=%d",lwork)if (!(lwork>=((2*n > 1) ? (2*n) : (1))||lwork==-1)) { char
errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""cheevr:lwork=%d", "(""lwork>=max(2*n,1)||lwork==-1"
") failed for ""9th keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
48266 /* Processing variable lrwork */
48267 if (lrwork_capi == Py_None(&_Py_NoneStruct)) lrwork = max(24*n,1)((24*n > 1) ? (24*n) : (1)); else
48268 f2py_success = int_from_pyobj(&lrwork,lrwork_capi,"_flapack.cheevr() 10th keyword (lrwork) can't be converted to int");
48269 if (f2py_success) {
48270 CHECKSCALAR(lrwork>=max(24*n,1)||lrwork==-1,"lrwork>=max(24*n,1)||lrwork==-1","10th keyword lrwork","cheevr:lrwork=%d",lrwork)if (!(lrwork>=((24*n > 1) ? (24*n) : (1))||lrwork==-1))
{ char errstring[256]; __builtin___sprintf_chk (errstring, 2
- 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cheevr:lrwork=%d"
, "(""lrwork>=max(24*n,1)||lrwork==-1"") failed for ""10th keyword lrwork"
, lrwork); PyErr_SetString(_flapack_error,errstring); } else
{
48271 /* Processing variable liwork */
48272 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = max(1,10*n)((1 > 10*n) ? (1) : (10*n)); else
48273 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.cheevr() 11st keyword (liwork) can't be converted to int");
48274 if (f2py_success) {
48275 CHECKSCALAR(liwork>=max(1,10*n)||liwork==-1,"liwork>=max(1,10*n)||liwork==-1","11st keyword liwork","cheevr:liwork=%d",liwork)if (!(liwork>=((1 > 10*n) ? (1) : (10*n))||liwork==-1))
{ char errstring[256]; __builtin___sprintf_chk (errstring, 2
- 1, __builtin_object_size (errstring, 2 > 1), "%s: ""cheevr:liwork=%d"
, "(""liwork>=max(1,10*n)||liwork==-1"") failed for ""11st keyword liwork"
, liwork); PyErr_SetString(_flapack_error,errstring); } else
{
48276 /* Processing variable work */
48277 work_Dims[0]=lwork;
48278 capi_work_intent |= F2PY_INTENT_HIDE8;
48279 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
48280 if (capi_work_tmp == NULL((void*)0)) {
48281 if (!PyErr_Occurred())
48282 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cheevr to C/Fortran array" );
48283 } else {
48284 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
48285
48286 /* Processing variable rwork */
48287 rwork_Dims[0]=lrwork;
48288 capi_rwork_intent |= F2PY_INTENT_HIDE8;
48289 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
48290 if (capi_rwork_tmp == NULL((void*)0)) {
48291 if (!PyErr_Occurred())
48292 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cheevr to C/Fortran array" );
48293 } else {
48294 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
48295
48296 /* Processing variable iwork */
48297 iwork_Dims[0]=liwork;
48298 capi_iwork_intent |= F2PY_INTENT_HIDE8;
48299 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
48300 if (capi_iwork_tmp == NULL((void*)0)) {
48301 if (!PyErr_Occurred())
48302 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.cheevr to C/Fortran array" );
48303 } else {
48304 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
48305
48306 /* Processing variable z */
48307 z_Dims[0]=(compute_v?MAX(0,n)((0 > n) ? (0) : (n)):0),z_Dims[1]=(compute_v?(*range=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0);
48308 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
48309 capi_z_tmp = array_from_pyobj(NPY_CFLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
48310 if (capi_z_tmp == NULL((void*)0)) {
48311 if (!PyErr_Occurred())
48312 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.cheevr to C/Fortran array" );
48313 } else {
48314 z = (complex_float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
48315
48316 /* Processing variable ldz */
48317 ldz = max(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0]));
48318/*end of frompyobj*/
48319#ifdef F2PY_REPORT_ATEXIT
48320f2py_start_call_clock();
48321#endif
48322/*callfortranroutine*/
48323 (*f2py_func)((compute_v?"V":"N"),range,(lower?"L":"U"),&n,a,&lda,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,isuppz,work,&lwork,rwork,&lrwork,iwork,&liwork,&info) ;
48324 /*(*f2py_func)(&compute_v,range,&lower,&n,a,&lda,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,isuppz,work,&lwork,rwork,&lrwork,iwork,&liwork,&info,slen(range));*/
48325if (PyErr_Occurred())
48326 f2py_success = 0;
48327#ifdef F2PY_REPORT_ATEXIT
48328f2py_stop_call_clock();
48329#endif
48330/*end of callfortranroutine*/
48331 if (f2py_success) {
48332/*pyobjfrom*/
48333/*end of pyobjfrom*/
48334 CFUNCSMESS("Building return value.\n");
48335 capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_isuppz_tmp,info);
48336/*closepyobjfrom*/
48337/*end of closepyobjfrom*/
48338 } /*if (f2py_success) after callfortranroutine*/
48339/*cleanupfrompyobj*/
48340 /* End of cleaning variable ldz */
48341 } /*if (capi_z_tmp == NULL) ... else of z*/
48342 /* End of cleaning variable z */
48343 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
48344 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
48345 /* End of cleaning variable iwork */
48346 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
48347 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
48348 /* End of cleaning variable rwork */
48349 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
48350 } /*if (capi_work_tmp == NULL) ... else of work*/
48351 /* End of cleaning variable work */
48352 } /*CHECKSCALAR(liwork>=max(1,10*n)||liwork==-1)*/
48353 } /*if (f2py_success) of liwork*/
48354 /* End of cleaning variable liwork */
48355 } /*CHECKSCALAR(lrwork>=max(24*n,1)||lrwork==-1)*/
48356 } /*if (f2py_success) of lrwork*/
48357 /* End of cleaning variable lrwork */
48358 } /*CHECKSCALAR(lwork>=max(2*n,1)||lwork==-1)*/
48359 } /*if (f2py_success) of lwork*/
48360 /* End of cleaning variable lwork */
48361 } /*CHECKSCALAR(n>=iu&&iu>=il)*/
48362 } /*if (f2py_success) of iu*/
48363 /* End of cleaning variable iu */
48364 } /*CHECKSCALAR(il>=1&&il<=n)*/
48365 } /*if (f2py_success) of il*/
48366 /* End of cleaning variable il */
48367 } /*if (capi_isuppz_tmp == NULL) ... else of isuppz*/
48368 /* End of cleaning variable isuppz */
48369 } /*if (capi_w_tmp == NULL) ... else of w*/
48370 /* End of cleaning variable w */
48371 /* End of cleaning variable lda */
48372 /* End of cleaning variable n */
48373 } /*CHECKSCALAR(vu>vl)*/
48374 } /*if (f2py_success) of vu*/
48375 /* End of cleaning variable vu */
48376 } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/
48377 STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0);
48378 } /*if (f2py_success) of range*/
48379 /* End of cleaning variable range */
48380 /* End of cleaning variable info */
48381 /* End of cleaning variable m */
48382 } /*if (f2py_success) of abstol*/
48383 /* End of cleaning variable abstol */
48384 } /*if (f2py_success) of vl*/
48385 /* End of cleaning variable vl */
48386 } /*CHECKSCALAR(lower==0||lower==1)*/
48387 } /*if (f2py_success) of lower*/
48388 /* End of cleaning variable lower */
48389 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
48390 } /*if (f2py_success) of compute_v*/
48391 /* End of cleaning variable compute_v */
48392 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
48393 if((PyObject *)capi_a_tmp!=a_capi) {
48394 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
48395 } /*if (capi_a_tmp == NULL) ... else of a*/
48396 /* End of cleaning variable a */
48397/*end of cleanupfrompyobj*/
48398 if (capi_buildvalue == NULL((void*)0)) {
48399/*routdebugfailure*/
48400 } else {
48401/*routdebugleave*/
48402 }
48403 CFUNCSMESS("Freeing memory.\n");
48404/*freemem*/
48405#ifdef F2PY_REPORT_ATEXIT
48406f2py_stop_clock();
48407#endif
48408 return capi_buildvalue;
48409}
48410/******************************* end of cheevr *******************************/
48411
48412/*********************************** zheevr ***********************************/
48413static char doc_f2py_rout__flapack_zheevr[] = "\
48414w,z,m,isuppz,info = zheevr(a,[compute_v,range,lower,vl,vu,il,iu,abstol,lwork,lrwork,liwork,overwrite_a])\n\nWrapper for ``zheevr``.\
48415\n\nParameters\n----------\n"
48416"a : input rank-2 array('D') with bounds (n,n)\n"
48417"\nOther Parameters\n----------------\n"
48418"compute_v : input int, optional\n Default: 1\n"
48419"range : input string(len=1), optional\n Default: 'A'\n"
48420"lower : input int, optional\n Default: 0\n"
48421"overwrite_a : input int, optional\n Default: 0\n"
48422"vl : input float, optional\n Default: 0.0\n"
48423"vu : input float, optional\n Default: 1.0\n"
48424"il : input int, optional\n Default: 1\n"
48425"iu : input int, optional\n Default: n\n"
48426"abstol : input float, optional\n Default: 0.0\n"
48427"lwork : input int, optional\n Default: max(2*n,1)\n"
48428"lrwork : input int, optional\n Default: max(24*n,1)\n"
48429"liwork : input int, optional\n Default: max(1,10*n)\n"
48430"\nReturns\n-------\n"
48431"w : rank-1 array('d') with bounds (n)\n"
48432"z : rank-2 array('D') with bounds ((compute_v?MAX(0,n):0),(compute_v?(*range=='I'?iu-il+1:MAX(1,n)):0))\n"
48433"m : int\n"
48434"isuppz : rank-1 array('i') with bounds (2*max(1,n))\n"
48435"info : int";
48436/* extern void F_FUNC(zheevr,ZHEEVR)(char*,char*,char*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
48437static PyObject *f2py_rout__flapack_zheevr(const PyObject *capi_self,
48438 PyObject *capi_args,
48439 PyObject *capi_keywds,
48440 void (*f2py_func)(char*,char*,char*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
48441 PyObject * volatile capi_buildvalue = NULL((void*)0);
48442 volatile int f2py_success = 1;
48443/*decl*/
48444
48445 int compute_v = 0;
48446 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
48447 string range = NULL((void*)0);
48448 int slen(range)capi_range_len;
48449 PyObject *range_capi = Py_None(&_Py_NoneStruct);
48450 int lower = 0;
48451 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
48452 int n = 0;
48453 complex_double *a = NULL((void*)0);
48454 npy_intp a_Dims[2] = {-1, -1};
48455 const int a_Rank = 2;
48456 PyArrayObject *capi_a_tmp = NULL((void*)0);
48457 int capi_a_intent = 0;
48458 int capi_overwrite_a = 0;
48459 PyObject *a_capi = Py_None(&_Py_NoneStruct);
48460 int lda = 0;
48461 double vl = 0;
48462 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
48463 double vu = 0;
48464 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
48465 int il = 0;
48466 PyObject *il_capi = Py_None(&_Py_NoneStruct);
48467 int iu = 0;
48468 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
48469 double abstol = 0;
48470 PyObject *abstol_capi = Py_None(&_Py_NoneStruct);
48471 double *w = NULL((void*)0);
48472 npy_intp w_Dims[1] = {-1};
48473 const int w_Rank = 1;
48474 PyArrayObject *capi_w_tmp = NULL((void*)0);
48475 int capi_w_intent = 0;
48476 complex_double *z = NULL((void*)0);
48477 npy_intp z_Dims[2] = {-1, -1};
48478 const int z_Rank = 2;
48479 PyArrayObject *capi_z_tmp = NULL((void*)0);
48480 int capi_z_intent = 0;
48481 int m = 0;
48482 int ldz = 0;
48483 int *isuppz = NULL((void*)0);
48484 npy_intp isuppz_Dims[1] = {-1};
48485 const int isuppz_Rank = 1;
48486 PyArrayObject *capi_isuppz_tmp = NULL((void*)0);
48487 int capi_isuppz_intent = 0;
48488 complex_double *work = NULL((void*)0);
48489 npy_intp work_Dims[1] = {-1};
48490 const int work_Rank = 1;
48491 PyArrayObject *capi_work_tmp = NULL((void*)0);
48492 int capi_work_intent = 0;
48493 int lwork = 0;
48494 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
48495 double *rwork = NULL((void*)0);
48496 npy_intp rwork_Dims[1] = {-1};
48497 const int rwork_Rank = 1;
48498 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
48499 int capi_rwork_intent = 0;
48500 int lrwork = 0;
48501 PyObject *lrwork_capi = Py_None(&_Py_NoneStruct);
48502 int *iwork = NULL((void*)0);
48503 npy_intp iwork_Dims[1] = {-1};
48504 const int iwork_Rank = 1;
48505 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
48506 int capi_iwork_intent = 0;
48507 int liwork = 0;
48508 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
48509 int info = 0;
48510 static char *capi_kwlist[] = {"a","compute_v","range","lower","vl","vu","il","iu","abstol","lwork","lrwork","liwork","overwrite_a",NULL((void*)0)};
48511
48512/*routdebugenter*/
48513#ifdef F2PY_REPORT_ATEXIT
48514f2py_start_clock();
48515#endif
48516 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
48517 "O|OOOOOOOOOOOi:_flapack.zheevr",\
48518 capi_kwlist,&a_capi,&compute_v_capi,&range_capi,&lower_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&lrwork_capi,&liwork_capi,&capi_overwrite_a))
48519 return NULL((void*)0);
48520/*frompyobj*/
48521 /* Processing variable a */
48522 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
48523 ;
48524 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
48525 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
48526 if (capi_a_tmp == NULL((void*)0)) {
48527 if (!PyErr_Occurred())
48528 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zheevr to C/Fortran array" );
48529 } else {
48530 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
48531
48532 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
48533 /* Processing variable compute_v */
48534 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
48535 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.zheevr() 1st keyword (compute_v) can't be converted to int");
48536 if (f2py_success) {
48537 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","zheevr:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheevr:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
48538 /* Processing variable lower */
48539 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
48540 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zheevr() 3rd keyword (lower) can't be converted to int");
48541 if (f2py_success) {
48542 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","3rd keyword lower","zheevr:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheevr:lower=%d", "(""lower==0||lower==1"") failed for "
"3rd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
48543 /* Processing variable vl */
48544 if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else
48545 f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.zheevr() 4th keyword (vl) can't be converted to double");
48546 if (f2py_success) {
48547 /* Processing variable abstol */
48548 if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else
48549 f2py_success = double_from_pyobj(&abstol,abstol_capi,"_flapack.zheevr() 8th keyword (abstol) can't be converted to double");
48550 if (f2py_success) {
48551 /* Processing variable m */
48552 /* Processing variable info */
48553 /* Processing variable range */
48554 slen(range)capi_range_len = 1;
48555 f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 2nd keyword `range' of _flapack.zheevr to C string");
48556 if (f2py_success) {
48557 CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","2nd keyword range","zheevr:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zheevr:slen(range)=%d range=\"%s\""
, "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""2nd keyword range"
, capi_range_len, range); PyErr_SetString(_flapack_error, errstring
); } else
{
48558 /* Processing variable vu */
48559 if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else
48560 f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.zheevr() 5th keyword (vu) can't be converted to double");
48561 if (f2py_success) {
48562 CHECKSCALAR(vu>vl,"vu>vl","5th keyword vu","zheevr:vu=%g",vu)if (!(vu>vl)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheevr:vu=%g", "(""vu>vl"") failed for ""5th keyword vu"
, vu); PyErr_SetString(_flapack_error,errstring); } else
{
48563 /* Processing variable n */
48564 n = shape(a,0)a_Dims[0];
48565 /* Processing variable lda */
48566 lda = max(1,n)((1 > n) ? (1) : (n));
48567 /* Processing variable w */
48568 w_Dims[0]=n;
48569 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
48570 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
48571 if (capi_w_tmp == NULL((void*)0)) {
48572 if (!PyErr_Occurred())
48573 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zheevr to C/Fortran array" );
48574 } else {
48575 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
48576
48577 /* Processing variable isuppz */
48578 isuppz_Dims[0]=2*max(1,n)((1 > n) ? (1) : (n));
48579 capi_isuppz_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
48580 capi_isuppz_tmp = array_from_pyobj(NPY_INT,isuppz_Dims,isuppz_Rank,capi_isuppz_intent,Py_None(&_Py_NoneStruct));
48581 if (capi_isuppz_tmp == NULL((void*)0)) {
48582 if (!PyErr_Occurred())
48583 PyErr_SetString(_flapack_error,"failed in converting hidden `isuppz' of _flapack.zheevr to C/Fortran array" );
48584 } else {
48585 isuppz = (int *)(PyArray_DATA(capi_isuppz_tmp)((void *)((PyArrayObject_fields *)(capi_isuppz_tmp))->data
)
);
48586
48587 /* Processing variable il */
48588 if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else
48589 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.zheevr() 6th keyword (il) can't be converted to int");
48590 if (f2py_success) {
48591 CHECKSCALAR(il>=1&&il<=n,"il>=1&&il<=n","6th keyword il","zheevr:il=%d",il)if (!(il>=1&&il<=n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheevr:il=%d", "(""il>=1&&il<=n"") failed for "
"6th keyword il", il); PyErr_SetString(_flapack_error,errstring
); } else
{
48592 /* Processing variable iu */
48593 if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else
48594 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.zheevr() 7th keyword (iu) can't be converted to int");
48595 if (f2py_success) {
48596 CHECKSCALAR(n>=iu&&iu>=il,"n>=iu&&iu>=il","7th keyword iu","zheevr:iu=%d",iu)if (!(n>=iu&&iu>=il)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheevr:iu=%d", "(""n>=iu&&iu>=il"") failed for "
"7th keyword iu", iu); PyErr_SetString(_flapack_error,errstring
); } else
{
48597 /* Processing variable lwork */
48598 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else
48599 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zheevr() 9th keyword (lwork) can't be converted to int");
48600 if (f2py_success) {
48601 CHECKSCALAR(lwork>=max(2*n,1)||lwork==-1,"lwork>=max(2*n,1)||lwork==-1","9th keyword lwork","zheevr:lwork=%d",lwork)if (!(lwork>=((2*n > 1) ? (2*n) : (1))||lwork==-1)) { char
errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zheevr:lwork=%d", "(""lwork>=max(2*n,1)||lwork==-1"
") failed for ""9th keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
48602 /* Processing variable lrwork */
48603 if (lrwork_capi == Py_None(&_Py_NoneStruct)) lrwork = max(24*n,1)((24*n > 1) ? (24*n) : (1)); else
48604 f2py_success = int_from_pyobj(&lrwork,lrwork_capi,"_flapack.zheevr() 10th keyword (lrwork) can't be converted to int");
48605 if (f2py_success) {
48606 CHECKSCALAR(lrwork>=max(24*n,1)||lrwork==-1,"lrwork>=max(24*n,1)||lrwork==-1","10th keyword lrwork","zheevr:lrwork=%d",lrwork)if (!(lrwork>=((24*n > 1) ? (24*n) : (1))||lrwork==-1))
{ char errstring[256]; __builtin___sprintf_chk (errstring, 2
- 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zheevr:lrwork=%d"
, "(""lrwork>=max(24*n,1)||lrwork==-1"") failed for ""10th keyword lrwork"
, lrwork); PyErr_SetString(_flapack_error,errstring); } else
{
48607 /* Processing variable liwork */
48608 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = max(1,10*n)((1 > 10*n) ? (1) : (10*n)); else
48609 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.zheevr() 11st keyword (liwork) can't be converted to int");
48610 if (f2py_success) {
48611 CHECKSCALAR(liwork>=max(1,10*n)||liwork==-1,"liwork>=max(1,10*n)||liwork==-1","11st keyword liwork","zheevr:liwork=%d",liwork)if (!(liwork>=((1 > 10*n) ? (1) : (10*n))||liwork==-1))
{ char errstring[256]; __builtin___sprintf_chk (errstring, 2
- 1, __builtin_object_size (errstring, 2 > 1), "%s: ""zheevr:liwork=%d"
, "(""liwork>=max(1,10*n)||liwork==-1"") failed for ""11st keyword liwork"
, liwork); PyErr_SetString(_flapack_error,errstring); } else
{
48612 /* Processing variable work */
48613 work_Dims[0]=lwork;
48614 capi_work_intent |= F2PY_INTENT_HIDE8;
48615 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
48616 if (capi_work_tmp == NULL((void*)0)) {
48617 if (!PyErr_Occurred())
48618 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zheevr to C/Fortran array" );
48619 } else {
48620 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
48621
48622 /* Processing variable rwork */
48623 rwork_Dims[0]=lrwork;
48624 capi_rwork_intent |= F2PY_INTENT_HIDE8;
48625 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
48626 if (capi_rwork_tmp == NULL((void*)0)) {
48627 if (!PyErr_Occurred())
48628 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zheevr to C/Fortran array" );
48629 } else {
48630 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
48631
48632 /* Processing variable iwork */
48633 iwork_Dims[0]=liwork;
48634 capi_iwork_intent |= F2PY_INTENT_HIDE8;
48635 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
48636 if (capi_iwork_tmp == NULL((void*)0)) {
48637 if (!PyErr_Occurred())
48638 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.zheevr to C/Fortran array" );
48639 } else {
48640 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
48641
48642 /* Processing variable z */
48643 z_Dims[0]=(compute_v?MAX(0,n)((0 > n) ? (0) : (n)):0),z_Dims[1]=(compute_v?(*range=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0);
48644 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
48645 capi_z_tmp = array_from_pyobj(NPY_CDOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
48646 if (capi_z_tmp == NULL((void*)0)) {
48647 if (!PyErr_Occurred())
48648 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.zheevr to C/Fortran array" );
48649 } else {
48650 z = (complex_double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
48651
48652 /* Processing variable ldz */
48653 ldz = max(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0]));
48654/*end of frompyobj*/
48655#ifdef F2PY_REPORT_ATEXIT
48656f2py_start_call_clock();
48657#endif
48658/*callfortranroutine*/
48659 (*f2py_func)((compute_v?"V":"N"),range,(lower?"L":"U"),&n,a,&lda,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,isuppz,work,&lwork,rwork,&lrwork,iwork,&liwork,&info) ;
48660 /*(*f2py_func)(&compute_v,range,&lower,&n,a,&lda,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,isuppz,work,&lwork,rwork,&lrwork,iwork,&liwork,&info,slen(range));*/
48661if (PyErr_Occurred())
48662 f2py_success = 0;
48663#ifdef F2PY_REPORT_ATEXIT
48664f2py_stop_call_clock();
48665#endif
48666/*end of callfortranroutine*/
48667 if (f2py_success) {
48668/*pyobjfrom*/
48669/*end of pyobjfrom*/
48670 CFUNCSMESS("Building return value.\n");
48671 capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_isuppz_tmp,info);
48672/*closepyobjfrom*/
48673/*end of closepyobjfrom*/
48674 } /*if (f2py_success) after callfortranroutine*/
48675/*cleanupfrompyobj*/
48676 /* End of cleaning variable ldz */
48677 } /*if (capi_z_tmp == NULL) ... else of z*/
48678 /* End of cleaning variable z */
48679 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
48680 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
48681 /* End of cleaning variable iwork */
48682 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
48683 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
48684 /* End of cleaning variable rwork */
48685 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
48686 } /*if (capi_work_tmp == NULL) ... else of work*/
48687 /* End of cleaning variable work */
48688 } /*CHECKSCALAR(liwork>=max(1,10*n)||liwork==-1)*/
48689 } /*if (f2py_success) of liwork*/
48690 /* End of cleaning variable liwork */
48691 } /*CHECKSCALAR(lrwork>=max(24*n,1)||lrwork==-1)*/
48692 } /*if (f2py_success) of lrwork*/
48693 /* End of cleaning variable lrwork */
48694 } /*CHECKSCALAR(lwork>=max(2*n,1)||lwork==-1)*/
48695 } /*if (f2py_success) of lwork*/
48696 /* End of cleaning variable lwork */
48697 } /*CHECKSCALAR(n>=iu&&iu>=il)*/
48698 } /*if (f2py_success) of iu*/
48699 /* End of cleaning variable iu */
48700 } /*CHECKSCALAR(il>=1&&il<=n)*/
48701 } /*if (f2py_success) of il*/
48702 /* End of cleaning variable il */
48703 } /*if (capi_isuppz_tmp == NULL) ... else of isuppz*/
48704 /* End of cleaning variable isuppz */
48705 } /*if (capi_w_tmp == NULL) ... else of w*/
48706 /* End of cleaning variable w */
48707 /* End of cleaning variable lda */
48708 /* End of cleaning variable n */
48709 } /*CHECKSCALAR(vu>vl)*/
48710 } /*if (f2py_success) of vu*/
48711 /* End of cleaning variable vu */
48712 } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/
48713 STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0);
48714 } /*if (f2py_success) of range*/
48715 /* End of cleaning variable range */
48716 /* End of cleaning variable info */
48717 /* End of cleaning variable m */
48718 } /*if (f2py_success) of abstol*/
48719 /* End of cleaning variable abstol */
48720 } /*if (f2py_success) of vl*/
48721 /* End of cleaning variable vl */
48722 } /*CHECKSCALAR(lower==0||lower==1)*/
48723 } /*if (f2py_success) of lower*/
48724 /* End of cleaning variable lower */
48725 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
48726 } /*if (f2py_success) of compute_v*/
48727 /* End of cleaning variable compute_v */
48728 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
48729 if((PyObject *)capi_a_tmp!=a_capi) {
48730 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
48731 } /*if (capi_a_tmp == NULL) ... else of a*/
48732 /* End of cleaning variable a */
48733/*end of cleanupfrompyobj*/
48734 if (capi_buildvalue == NULL((void*)0)) {
48735/*routdebugfailure*/
48736 } else {
48737/*routdebugleave*/
48738 }
48739 CFUNCSMESS("Freeing memory.\n");
48740/*freemem*/
48741#ifdef F2PY_REPORT_ATEXIT
48742f2py_stop_clock();
48743#endif
48744 return capi_buildvalue;
48745}
48746/******************************* end of zheevr *******************************/
48747
48748/******************************** cheevr_lwork ********************************/
48749static char doc_f2py_rout__flapack_cheevr_lwork[] = "\
48750work,rwork,iwork,info = cheevr_lwork(n,[lower])\n\nWrapper for ``cheevr_lwork``.\
48751\n\nParameters\n----------\n"
48752"n : input int\n"
48753"\nOther Parameters\n----------------\n"
48754"lower : input int, optional\n Default: 0\n"
48755"\nReturns\n-------\n"
48756"work : complex\n"
48757"rwork : float\n"
48758"iwork : int\n"
48759"info : int";
48760/* extern void F_FUNC(cheevr ,CHEEVR )(char*,char*,char*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,complex_float*,F_INT*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
48761static PyObject *f2py_rout__flapack_cheevr_lwork(const PyObject *capi_self,
48762 PyObject *capi_args,
48763 PyObject *capi_keywds,
48764 void (*f2py_func)(char*,char*,char*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
48765 PyObject * volatile capi_buildvalue = NULL((void*)0);
48766 volatile int f2py_success = 1;
48767/*decl*/
48768
48769 int n = 0;
48770 PyObject *n_capi = Py_None(&_Py_NoneStruct);
48771 int lower = 0;
48772 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
48773 complex_float a;
48774 int lda = 0;
48775 float vl = 0;
48776 float vu = 0;
48777 int il = 0;
48778 int iu = 0;
48779 float abstol = 0;
48780 int m = 0;
48781 float w = 0;
48782 complex_float z;
48783 int ldz = 0;
48784 int isuppz = 0;
48785 complex_float work;
48786 PyObject *work_capi = Py_None(&_Py_NoneStruct);
48787 int lwork = 0;
48788 float rwork = 0;
48789 int lrwork = 0;
48790 int iwork = 0;
48791 int liwork = 0;
48792 int info = 0;
48793 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
48794
48795/*routdebugenter*/
48796#ifdef F2PY_REPORT_ATEXIT
48797f2py_start_clock();
48798#endif
48799 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
48800 "O|O:_flapack.cheevr_lwork",\
48801 capi_kwlist,&n_capi,&lower_capi))
48802 return NULL((void*)0);
48803/*frompyobj*/
48804 /* Processing variable n */
48805 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cheevr_lwork() 1st argument (n) can't be converted to int");
48806 if (f2py_success) {
48807 /* Processing variable lower */
48808 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
48809 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cheevr_lwork() 1st keyword (lower) can't be converted to int");
48810 if (f2py_success) {
48811 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cheevr_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheevr_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
48812 /* Processing variable a */
48813 /* Processing variable vl */
48814 vl = 0.0;
48815 /* Processing variable vu */
48816 vu = 1.0;
48817 /* Processing variable il */
48818 il = 1;
48819 /* Processing variable iu */
48820 iu = 2;
48821 /* Processing variable abstol */
48822 abstol = 0.0;
48823 /* Processing variable m */
48824 m = 1;
48825 /* Processing variable w */
48826 /* Processing variable z */
48827 /* Processing variable isuppz */
48828 /* Processing variable lwork */
48829 lwork = -1;
48830 /* Processing variable lrwork */
48831 lrwork = -1;
48832 /* Processing variable liwork */
48833 liwork = -1;
48834 /* Processing variable work */
48835 /* Processing variable rwork */
48836 /* Processing variable iwork */
48837 /* Processing variable info */
48838 /* Processing variable lda */
48839 lda = max(1,n)((1 > n) ? (1) : (n));
48840 /* Processing variable ldz */
48841 ldz = max(1,n)((1 > n) ? (1) : (n));
48842/*end of frompyobj*/
48843#ifdef F2PY_REPORT_ATEXIT
48844f2py_start_call_clock();
48845#endif
48846/*callfortranroutine*/
48847 (*f2py_func)("N","A",(lower?"L":"U"),&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&isuppz,&work,&lwork,&rwork,&lrwork,&iwork,&liwork,&info) ;
48848 /*(*f2py_func)(&n,&lower,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&isuppz,&work,&lwork,&rwork,&lrwork,&iwork,&liwork,&info);*/
48849if (PyErr_Occurred())
48850 f2py_success = 0;
48851#ifdef F2PY_REPORT_ATEXIT
48852f2py_stop_call_clock();
48853#endif
48854/*end of callfortranroutine*/
48855 if (f2py_success) {
48856/*pyobjfrom*/
48857 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
48858/*end of pyobjfrom*/
48859 CFUNCSMESS("Building return value.\n");
48860 capi_buildvalue = Py_BuildValue("Nfii",work_capi,rwork,iwork,info);
48861/*closepyobjfrom*/
48862/*end of closepyobjfrom*/
48863 } /*if (f2py_success) after callfortranroutine*/
48864/*cleanupfrompyobj*/
48865 /* End of cleaning variable ldz */
48866 /* End of cleaning variable lda */
48867 /* End of cleaning variable info */
48868 /* End of cleaning variable iwork */
48869 /* End of cleaning variable rwork */
48870 /* End of cleaning variable work */
48871 /* End of cleaning variable liwork */
48872 /* End of cleaning variable lrwork */
48873 /* End of cleaning variable lwork */
48874 /* End of cleaning variable isuppz */
48875 /* End of cleaning variable z */
48876 /* End of cleaning variable w */
48877 /* End of cleaning variable m */
48878 /* End of cleaning variable abstol */
48879 /* End of cleaning variable iu */
48880 /* End of cleaning variable il */
48881 /* End of cleaning variable vu */
48882 /* End of cleaning variable vl */
48883 /* End of cleaning variable a */
48884 } /*CHECKSCALAR(lower==0||lower==1)*/
48885 } /*if (f2py_success) of lower*/
48886 /* End of cleaning variable lower */
48887 } /*if (f2py_success) of n*/
48888 /* End of cleaning variable n */
48889/*end of cleanupfrompyobj*/
48890 if (capi_buildvalue == NULL((void*)0)) {
48891/*routdebugfailure*/
48892 } else {
48893/*routdebugleave*/
48894 }
48895 CFUNCSMESS("Freeing memory.\n");
48896/*freemem*/
48897#ifdef F2PY_REPORT_ATEXIT
48898f2py_stop_clock();
48899#endif
48900 return capi_buildvalue;
48901}
48902/**************************** end of cheevr_lwork ****************************/
48903
48904/******************************** zheevr_lwork ********************************/
48905static char doc_f2py_rout__flapack_zheevr_lwork[] = "\
48906work,rwork,iwork,info = zheevr_lwork(n,[lower])\n\nWrapper for ``zheevr_lwork``.\
48907\n\nParameters\n----------\n"
48908"n : input int\n"
48909"\nOther Parameters\n----------------\n"
48910"lower : input int, optional\n Default: 0\n"
48911"\nReturns\n-------\n"
48912"work : complex\n"
48913"rwork : float\n"
48914"iwork : int\n"
48915"info : int";
48916/* extern void F_FUNC(zheevr ,ZHEEVR )(char*,char*,char*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,complex_double*,F_INT*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
48917static PyObject *f2py_rout__flapack_zheevr_lwork(const PyObject *capi_self,
48918 PyObject *capi_args,
48919 PyObject *capi_keywds,
48920 void (*f2py_func)(char*,char*,char*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
48921 PyObject * volatile capi_buildvalue = NULL((void*)0);
48922 volatile int f2py_success = 1;
48923/*decl*/
48924
48925 int n = 0;
48926 PyObject *n_capi = Py_None(&_Py_NoneStruct);
48927 int lower = 0;
48928 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
48929 complex_double a;
48930 int lda = 0;
48931 double vl = 0;
48932 double vu = 0;
48933 int il = 0;
48934 int iu = 0;
48935 double abstol = 0;
48936 int m = 0;
48937 double w = 0;
48938 complex_double z;
48939 int ldz = 0;
48940 int isuppz = 0;
48941 complex_double work;
48942 PyObject *work_capi = Py_None(&_Py_NoneStruct);
48943 int lwork = 0;
48944 double rwork = 0;
48945 int lrwork = 0;
48946 int iwork = 0;
48947 int liwork = 0;
48948 int info = 0;
48949 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
48950
48951/*routdebugenter*/
48952#ifdef F2PY_REPORT_ATEXIT
48953f2py_start_clock();
48954#endif
48955 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
48956 "O|O:_flapack.zheevr_lwork",\
48957 capi_kwlist,&n_capi,&lower_capi))
48958 return NULL((void*)0);
48959/*frompyobj*/
48960 /* Processing variable n */
48961 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zheevr_lwork() 1st argument (n) can't be converted to int");
48962 if (f2py_success) {
48963 /* Processing variable lower */
48964 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
48965 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zheevr_lwork() 1st keyword (lower) can't be converted to int");
48966 if (f2py_success) {
48967 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zheevr_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheevr_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
48968 /* Processing variable a */
48969 /* Processing variable vl */
48970 vl = 0.0;
48971 /* Processing variable vu */
48972 vu = 1.0;
48973 /* Processing variable il */
48974 il = 1;
48975 /* Processing variable iu */
48976 iu = 2;
48977 /* Processing variable abstol */
48978 abstol = 0.0;
48979 /* Processing variable m */
48980 m = 1;
48981 /* Processing variable w */
48982 /* Processing variable z */
48983 /* Processing variable isuppz */
48984 /* Processing variable lwork */
48985 lwork = -1;
48986 /* Processing variable lrwork */
48987 lrwork = -1;
48988 /* Processing variable liwork */
48989 liwork = -1;
48990 /* Processing variable work */
48991 /* Processing variable rwork */
48992 /* Processing variable iwork */
48993 /* Processing variable info */
48994 /* Processing variable lda */
48995 lda = max(1,n)((1 > n) ? (1) : (n));
48996 /* Processing variable ldz */
48997 ldz = max(1,n)((1 > n) ? (1) : (n));
48998/*end of frompyobj*/
48999#ifdef F2PY_REPORT_ATEXIT
49000f2py_start_call_clock();
49001#endif
49002/*callfortranroutine*/
49003 (*f2py_func)("N","A",(lower?"L":"U"),&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&isuppz,&work,&lwork,&rwork,&lrwork,&iwork,&liwork,&info) ;
49004 /*(*f2py_func)(&n,&lower,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&isuppz,&work,&lwork,&rwork,&lrwork,&iwork,&liwork,&info);*/
49005if (PyErr_Occurred())
49006 f2py_success = 0;
49007#ifdef F2PY_REPORT_ATEXIT
49008f2py_stop_call_clock();
49009#endif
49010/*end of callfortranroutine*/
49011 if (f2py_success) {
49012/*pyobjfrom*/
49013 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
49014/*end of pyobjfrom*/
49015 CFUNCSMESS("Building return value.\n");
49016 capi_buildvalue = Py_BuildValue("Ndii",work_capi,rwork,iwork,info);
49017/*closepyobjfrom*/
49018/*end of closepyobjfrom*/
49019 } /*if (f2py_success) after callfortranroutine*/
49020/*cleanupfrompyobj*/
49021 /* End of cleaning variable ldz */
49022 /* End of cleaning variable lda */
49023 /* End of cleaning variable info */
49024 /* End of cleaning variable iwork */
49025 /* End of cleaning variable rwork */
49026 /* End of cleaning variable work */
49027 /* End of cleaning variable liwork */
49028 /* End of cleaning variable lrwork */
49029 /* End of cleaning variable lwork */
49030 /* End of cleaning variable isuppz */
49031 /* End of cleaning variable z */
49032 /* End of cleaning variable w */
49033 /* End of cleaning variable m */
49034 /* End of cleaning variable abstol */
49035 /* End of cleaning variable iu */
49036 /* End of cleaning variable il */
49037 /* End of cleaning variable vu */
49038 /* End of cleaning variable vl */
49039 /* End of cleaning variable a */
49040 } /*CHECKSCALAR(lower==0||lower==1)*/
49041 } /*if (f2py_success) of lower*/
49042 /* End of cleaning variable lower */
49043 } /*if (f2py_success) of n*/
49044 /* End of cleaning variable n */
49045/*end of cleanupfrompyobj*/
49046 if (capi_buildvalue == NULL((void*)0)) {
49047/*routdebugfailure*/
49048 } else {
49049/*routdebugleave*/
49050 }
49051 CFUNCSMESS("Freeing memory.\n");
49052/*freemem*/
49053#ifdef F2PY_REPORT_ATEXIT
49054f2py_stop_clock();
49055#endif
49056 return capi_buildvalue;
49057}
49058/**************************** end of zheevr_lwork ****************************/
49059
49060/*********************************** ssyevx ***********************************/
49061static char doc_f2py_rout__flapack_ssyevx[] = "\
49062w,z,m,ifail,info = ssyevx(a,[compute_v,range,lower,vl,vu,il,iu,abstol,lwork,overwrite_a])\n\nWrapper for ``ssyevx``.\
49063\n\nParameters\n----------\n"
49064"a : input rank-2 array('f') with bounds (n,n)\n"
49065"\nOther Parameters\n----------------\n"
49066"compute_v : input int, optional\n Default: 1\n"
49067"range : input string(len=1), optional\n Default: 'A'\n"
49068"lower : input int, optional\n Default: 0\n"
49069"overwrite_a : input int, optional\n Default: 0\n"
49070"vl : input float, optional\n Default: 0.0\n"
49071"vu : input float, optional\n Default: 1.0\n"
49072"il : input int, optional\n Default: 1\n"
49073"iu : input int, optional\n Default: n\n"
49074"abstol : input float, optional\n Default: 0.0\n"
49075"lwork : input int, optional\n Default: max(8*n,1)\n"
49076"\nReturns\n-------\n"
49077"w : rank-1 array('f') with bounds (n)\n"
49078"z : rank-2 array('f') with bounds ((compute_v?MAX(0,n):0),(compute_v?(*range=='I'?iu-il+1:MAX(1,n)):0))\n"
49079"m : int\n"
49080"ifail : rank-1 array('i') with bounds ((compute_v?n:0))\n"
49081"info : int";
49082/* extern void F_FUNC(ssyevx,SSYEVX)(char*,char*,char*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
49083static PyObject *f2py_rout__flapack_ssyevx(const PyObject *capi_self,
49084 PyObject *capi_args,
49085 PyObject *capi_keywds,
49086 void (*f2py_func)(char*,char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
49087 PyObject * volatile capi_buildvalue = NULL((void*)0);
49088 volatile int f2py_success = 1;
49089/*decl*/
49090
49091 int compute_v = 0;
49092 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
49093 string range = NULL((void*)0);
49094 int slen(range)capi_range_len;
49095 PyObject *range_capi = Py_None(&_Py_NoneStruct);
49096 int lower = 0;
49097 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
49098 int n = 0;
49099 float *a = NULL((void*)0);
49100 npy_intp a_Dims[2] = {-1, -1};
49101 const int a_Rank = 2;
49102 PyArrayObject *capi_a_tmp = NULL((void*)0);
49103 int capi_a_intent = 0;
49104 int capi_overwrite_a = 0;
49105 PyObject *a_capi = Py_None(&_Py_NoneStruct);
49106 int lda = 0;
49107 float vl = 0;
49108 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
49109 float vu = 0;
49110 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
49111 int il = 0;
49112 PyObject *il_capi = Py_None(&_Py_NoneStruct);
49113 int iu = 0;
49114 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
49115 float abstol = 0;
49116 PyObject *abstol_capi = Py_None(&_Py_NoneStruct);
49117 float *w = NULL((void*)0);
49118 npy_intp w_Dims[1] = {-1};
49119 const int w_Rank = 1;
49120 PyArrayObject *capi_w_tmp = NULL((void*)0);
49121 int capi_w_intent = 0;
49122 float *z = NULL((void*)0);
49123 npy_intp z_Dims[2] = {-1, -1};
49124 const int z_Rank = 2;
49125 PyArrayObject *capi_z_tmp = NULL((void*)0);
49126 int capi_z_intent = 0;
49127 int m = 0;
49128 int ldz = 0;
49129 float *work = NULL((void*)0);
49130 npy_intp work_Dims[1] = {-1};
49131 const int work_Rank = 1;
49132 PyArrayObject *capi_work_tmp = NULL((void*)0);
49133 int capi_work_intent = 0;
49134 int lwork = 0;
49135 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
49136 int *iwork = NULL((void*)0);
49137 npy_intp iwork_Dims[1] = {-1};
49138 const int iwork_Rank = 1;
49139 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
49140 int capi_iwork_intent = 0;
49141 int *ifail = NULL((void*)0);
49142 npy_intp ifail_Dims[1] = {-1};
49143 const int ifail_Rank = 1;
49144 PyArrayObject *capi_ifail_tmp = NULL((void*)0);
49145 int capi_ifail_intent = 0;
49146 int info = 0;
49147 static char *capi_kwlist[] = {"a","compute_v","range","lower","vl","vu","il","iu","abstol","lwork","overwrite_a",NULL((void*)0)};
49148
49149/*routdebugenter*/
49150#ifdef F2PY_REPORT_ATEXIT
49151f2py_start_clock();
49152#endif
49153 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
49154 "O|OOOOOOOOOi:_flapack.ssyevx",\
49155 capi_kwlist,&a_capi,&compute_v_capi,&range_capi,&lower_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&capi_overwrite_a))
49156 return NULL((void*)0);
49157/*frompyobj*/
49158 /* Processing variable compute_v */
49159 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
49160 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.ssyevx() 1st keyword (compute_v) can't be converted to int");
49161 if (f2py_success) {
49162 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","ssyevx:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyevx:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
49163 /* Processing variable lower */
49164 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
49165 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssyevx() 3rd keyword (lower) can't be converted to int");
49166 if (f2py_success) {
49167 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","3rd keyword lower","ssyevx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyevx:lower=%d", "(""lower==0||lower==1"") failed for "
"3rd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
49168 /* Processing variable vl */
49169 if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else
49170 f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.ssyevx() 4th keyword (vl) can't be converted to float");
49171 if (f2py_success) {
49172 /* Processing variable abstol */
49173 if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else
49174 f2py_success = float_from_pyobj(&abstol,abstol_capi,"_flapack.ssyevx() 8th keyword (abstol) can't be converted to float");
49175 if (f2py_success) {
49176 /* Processing variable a */
49177 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
49178 ;
49179 capi_a_intent |= F2PY_INTENT_IN1;
49180 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
49181 if (capi_a_tmp == NULL((void*)0)) {
49182 if (!PyErr_Occurred())
49183 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssyevx to C/Fortran array" );
49184 } else {
49185 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
49186
49187 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
49188 /* Processing variable m */
49189 /* Processing variable info */
49190 /* Processing variable range */
49191 slen(range)capi_range_len = 1;
49192 f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 2nd keyword `range' of _flapack.ssyevx to C string");
49193 if (f2py_success) {
49194 CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","2nd keyword range","ssyevx:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ssyevx:slen(range)=%d range=\"%s\""
, "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""2nd keyword range"
, capi_range_len, range); PyErr_SetString(_flapack_error, errstring
); } else
{
49195 /* Processing variable n */
49196 n = shape(a,0)a_Dims[0];
49197 /* Processing variable il */
49198 if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else
49199 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.ssyevx() 6th keyword (il) can't be converted to int");
49200 if (f2py_success) {
49201 CHECKSCALAR(il>=1&&il<=n,"il>=1&&il<=n","6th keyword il","ssyevx:il=%d",il)if (!(il>=1&&il<=n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyevx:il=%d", "(""il>=1&&il<=n"") failed for "
"6th keyword il", il); PyErr_SetString(_flapack_error,errstring
); } else
{
49202 /* Processing variable iu */
49203 if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else
49204 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.ssyevx() 7th keyword (iu) can't be converted to int");
49205 if (f2py_success) {
49206 CHECKSCALAR(n>=iu&&iu>=il,"n>=iu&&iu>=il","7th keyword iu","ssyevx:iu=%d",iu)if (!(n>=iu&&iu>=il)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyevx:iu=%d", "(""n>=iu&&iu>=il"") failed for "
"7th keyword iu", iu); PyErr_SetString(_flapack_error,errstring
); } else
{
49207 /* Processing variable vu */
49208 if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else
49209 f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.ssyevx() 5th keyword (vu) can't be converted to float");
49210 if (f2py_success) {
49211 CHECKSCALAR(vu>vl,"vu>vl","5th keyword vu","ssyevx:vu=%g",vu)if (!(vu>vl)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyevx:vu=%g", "(""vu>vl"") failed for ""5th keyword vu"
, vu); PyErr_SetString(_flapack_error,errstring); } else
{
49212 /* Processing variable lwork */
49213 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(8*n,1)((8*n > 1) ? (8*n) : (1)); else
49214 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssyevx() 9th keyword (lwork) can't be converted to int");
49215 if (f2py_success) {
49216 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","9th keyword lwork","ssyevx:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyevx:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"9th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
49217 /* Processing variable lda */
49218 lda = max(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
49219 /* Processing variable work */
49220 work_Dims[0]=lwork;
49221 capi_work_intent |= F2PY_INTENT_HIDE8;
49222 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
49223 if (capi_work_tmp == NULL((void*)0)) {
49224 if (!PyErr_Occurred())
49225 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssyevx to C/Fortran array" );
49226 } else {
49227 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
49228
49229 /* Processing variable iwork */
49230 iwork_Dims[0]=5 * n;
49231 capi_iwork_intent |= F2PY_INTENT_HIDE8;
49232 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
49233 if (capi_iwork_tmp == NULL((void*)0)) {
49234 if (!PyErr_Occurred())
49235 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.ssyevx to C/Fortran array" );
49236 } else {
49237 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
49238
49239 /* Processing variable w */
49240 w_Dims[0]=n;
49241 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
49242 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
49243 if (capi_w_tmp == NULL((void*)0)) {
49244 if (!PyErr_Occurred())
49245 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.ssyevx to C/Fortran array" );
49246 } else {
49247 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
49248
49249 /* Processing variable z */
49250 z_Dims[0]=(compute_v?MAX(0,n)((0 > n) ? (0) : (n)):0),z_Dims[1]=(compute_v?(*range=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0);
49251 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
49252 capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
49253 if (capi_z_tmp == NULL((void*)0)) {
49254 if (!PyErr_Occurred())
49255 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.ssyevx to C/Fortran array" );
49256 } else {
49257 z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
49258
49259 /* Processing variable ifail */
49260 ifail_Dims[0]=(compute_v?n:0);
49261 capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
49262 capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct));
49263 if (capi_ifail_tmp == NULL((void*)0)) {
49264 if (!PyErr_Occurred())
49265 PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.ssyevx to C/Fortran array" );
49266 } else {
49267 ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data));
49268
49269 /* Processing variable ldz */
49270 ldz = max(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0]));
49271/*end of frompyobj*/
49272#ifdef F2PY_REPORT_ATEXIT
49273f2py_start_call_clock();
49274#endif
49275/*callfortranroutine*/
49276 (*f2py_func)((compute_v?"V":"N"),range,(lower?"L":"U"),&n,a,&lda,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,&lwork,iwork,ifail,&info) ;
49277 /*(*f2py_func)(&compute_v,range,&lower,&n,a,&lda,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,work,&lwork,iwork,ifail,&info,slen(range));*/
49278if (PyErr_Occurred())
49279 f2py_success = 0;
49280#ifdef F2PY_REPORT_ATEXIT
49281f2py_stop_call_clock();
49282#endif
49283/*end of callfortranroutine*/
49284 if (f2py_success) {
49285/*pyobjfrom*/
49286/*end of pyobjfrom*/
49287 CFUNCSMESS("Building return value.\n");
49288 capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info);
49289/*closepyobjfrom*/
49290/*end of closepyobjfrom*/
49291 } /*if (f2py_success) after callfortranroutine*/
49292/*cleanupfrompyobj*/
49293 /* End of cleaning variable ldz */
49294 } /*if (capi_ifail_tmp == NULL) ... else of ifail*/
49295 /* End of cleaning variable ifail */
49296 } /*if (capi_z_tmp == NULL) ... else of z*/
49297 /* End of cleaning variable z */
49298 } /*if (capi_w_tmp == NULL) ... else of w*/
49299 /* End of cleaning variable w */
49300 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
49301 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
49302 /* End of cleaning variable iwork */
49303 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
49304 } /*if (capi_work_tmp == NULL) ... else of work*/
49305 /* End of cleaning variable work */
49306 /* End of cleaning variable lda */
49307 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
49308 } /*if (f2py_success) of lwork*/
49309 /* End of cleaning variable lwork */
49310 } /*CHECKSCALAR(vu>vl)*/
49311 } /*if (f2py_success) of vu*/
49312 /* End of cleaning variable vu */
49313 } /*CHECKSCALAR(n>=iu&&iu>=il)*/
49314 } /*if (f2py_success) of iu*/
49315 /* End of cleaning variable iu */
49316 } /*CHECKSCALAR(il>=1&&il<=n)*/
49317 } /*if (f2py_success) of il*/
49318 /* End of cleaning variable il */
49319 /* End of cleaning variable n */
49320 } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/
49321 STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0);
49322 } /*if (f2py_success) of range*/
49323 /* End of cleaning variable range */
49324 /* End of cleaning variable info */
49325 /* End of cleaning variable m */
49326 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
49327 if((PyObject *)capi_a_tmp!=a_capi) {
49328 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
49329 } /*if (capi_a_tmp == NULL) ... else of a*/
49330 /* End of cleaning variable a */
49331 } /*if (f2py_success) of abstol*/
49332 /* End of cleaning variable abstol */
49333 } /*if (f2py_success) of vl*/
49334 /* End of cleaning variable vl */
49335 } /*CHECKSCALAR(lower==0||lower==1)*/
49336 } /*if (f2py_success) of lower*/
49337 /* End of cleaning variable lower */
49338 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
49339 } /*if (f2py_success) of compute_v*/
49340 /* End of cleaning variable compute_v */
49341/*end of cleanupfrompyobj*/
49342 if (capi_buildvalue == NULL((void*)0)) {
49343/*routdebugfailure*/
49344 } else {
49345/*routdebugleave*/
49346 }
49347 CFUNCSMESS("Freeing memory.\n");
49348/*freemem*/
49349#ifdef F2PY_REPORT_ATEXIT
49350f2py_stop_clock();
49351#endif
49352 return capi_buildvalue;
49353}
49354/******************************* end of ssyevx *******************************/
49355
49356/*********************************** dsyevx ***********************************/
49357static char doc_f2py_rout__flapack_dsyevx[] = "\
49358w,z,m,ifail,info = dsyevx(a,[compute_v,range,lower,vl,vu,il,iu,abstol,lwork,overwrite_a])\n\nWrapper for ``dsyevx``.\
49359\n\nParameters\n----------\n"
49360"a : input rank-2 array('d') with bounds (n,n)\n"
49361"\nOther Parameters\n----------------\n"
49362"compute_v : input int, optional\n Default: 1\n"
49363"range : input string(len=1), optional\n Default: 'A'\n"
49364"lower : input int, optional\n Default: 0\n"
49365"overwrite_a : input int, optional\n Default: 0\n"
49366"vl : input float, optional\n Default: 0.0\n"
49367"vu : input float, optional\n Default: 1.0\n"
49368"il : input int, optional\n Default: 1\n"
49369"iu : input int, optional\n Default: n\n"
49370"abstol : input float, optional\n Default: 0.0\n"
49371"lwork : input int, optional\n Default: max(8*n,1)\n"
49372"\nReturns\n-------\n"
49373"w : rank-1 array('d') with bounds (n)\n"
49374"z : rank-2 array('d') with bounds ((compute_v?MAX(0,n):0),(compute_v?(*range=='I'?iu-il+1:MAX(1,n)):0))\n"
49375"m : int\n"
49376"ifail : rank-1 array('i') with bounds ((compute_v?n:0))\n"
49377"info : int";
49378/* extern void F_FUNC(dsyevx,DSYEVX)(char*,char*,char*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
49379static PyObject *f2py_rout__flapack_dsyevx(const PyObject *capi_self,
49380 PyObject *capi_args,
49381 PyObject *capi_keywds,
49382 void (*f2py_func)(char*,char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
49383 PyObject * volatile capi_buildvalue = NULL((void*)0);
49384 volatile int f2py_success = 1;
49385/*decl*/
49386
49387 int compute_v = 0;
49388 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
49389 string range = NULL((void*)0);
49390 int slen(range)capi_range_len;
49391 PyObject *range_capi = Py_None(&_Py_NoneStruct);
49392 int lower = 0;
49393 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
49394 int n = 0;
49395 double *a = NULL((void*)0);
49396 npy_intp a_Dims[2] = {-1, -1};
49397 const int a_Rank = 2;
49398 PyArrayObject *capi_a_tmp = NULL((void*)0);
49399 int capi_a_intent = 0;
49400 int capi_overwrite_a = 0;
49401 PyObject *a_capi = Py_None(&_Py_NoneStruct);
49402 int lda = 0;
49403 double vl = 0;
49404 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
49405 double vu = 0;
49406 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
49407 int il = 0;
49408 PyObject *il_capi = Py_None(&_Py_NoneStruct);
49409 int iu = 0;
49410 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
49411 double abstol = 0;
49412 PyObject *abstol_capi = Py_None(&_Py_NoneStruct);
49413 double *w = NULL((void*)0);
49414 npy_intp w_Dims[1] = {-1};
49415 const int w_Rank = 1;
49416 PyArrayObject *capi_w_tmp = NULL((void*)0);
49417 int capi_w_intent = 0;
49418 double *z = NULL((void*)0);
49419 npy_intp z_Dims[2] = {-1, -1};
49420 const int z_Rank = 2;
49421 PyArrayObject *capi_z_tmp = NULL((void*)0);
49422 int capi_z_intent = 0;
49423 int m = 0;
49424 int ldz = 0;
49425 double *work = NULL((void*)0);
49426 npy_intp work_Dims[1] = {-1};
49427 const int work_Rank = 1;
49428 PyArrayObject *capi_work_tmp = NULL((void*)0);
49429 int capi_work_intent = 0;
49430 int lwork = 0;
49431 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
49432 int *iwork = NULL((void*)0);
49433 npy_intp iwork_Dims[1] = {-1};
49434 const int iwork_Rank = 1;
49435 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
49436 int capi_iwork_intent = 0;
49437 int *ifail = NULL((void*)0);
49438 npy_intp ifail_Dims[1] = {-1};
49439 const int ifail_Rank = 1;
49440 PyArrayObject *capi_ifail_tmp = NULL((void*)0);
49441 int capi_ifail_intent = 0;
49442 int info = 0;
49443 static char *capi_kwlist[] = {"a","compute_v","range","lower","vl","vu","il","iu","abstol","lwork","overwrite_a",NULL((void*)0)};
49444
49445/*routdebugenter*/
49446#ifdef F2PY_REPORT_ATEXIT
49447f2py_start_clock();
49448#endif
49449 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
49450 "O|OOOOOOOOOi:_flapack.dsyevx",\
49451 capi_kwlist,&a_capi,&compute_v_capi,&range_capi,&lower_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&capi_overwrite_a))
49452 return NULL((void*)0);
49453/*frompyobj*/
49454 /* Processing variable compute_v */
49455 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
49456 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dsyevx() 1st keyword (compute_v) can't be converted to int");
49457 if (f2py_success) {
49458 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","dsyevx:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyevx:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
49459 /* Processing variable lower */
49460 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
49461 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsyevx() 3rd keyword (lower) can't be converted to int");
49462 if (f2py_success) {
49463 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","3rd keyword lower","dsyevx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyevx:lower=%d", "(""lower==0||lower==1"") failed for "
"3rd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
49464 /* Processing variable vl */
49465 if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else
49466 f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.dsyevx() 4th keyword (vl) can't be converted to double");
49467 if (f2py_success) {
49468 /* Processing variable abstol */
49469 if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else
49470 f2py_success = double_from_pyobj(&abstol,abstol_capi,"_flapack.dsyevx() 8th keyword (abstol) can't be converted to double");
49471 if (f2py_success) {
49472 /* Processing variable a */
49473 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
49474 ;
49475 capi_a_intent |= F2PY_INTENT_IN1;
49476 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
49477 if (capi_a_tmp == NULL((void*)0)) {
49478 if (!PyErr_Occurred())
49479 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsyevx to C/Fortran array" );
49480 } else {
49481 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
49482
49483 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
49484 /* Processing variable m */
49485 /* Processing variable info */
49486 /* Processing variable range */
49487 slen(range)capi_range_len = 1;
49488 f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 2nd keyword `range' of _flapack.dsyevx to C string");
49489 if (f2py_success) {
49490 CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","2nd keyword range","dsyevx:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dsyevx:slen(range)=%d range=\"%s\""
, "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""2nd keyword range"
, capi_range_len, range); PyErr_SetString(_flapack_error, errstring
); } else
{
49491 /* Processing variable n */
49492 n = shape(a,0)a_Dims[0];
49493 /* Processing variable il */
49494 if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else
49495 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.dsyevx() 6th keyword (il) can't be converted to int");
49496 if (f2py_success) {
49497 CHECKSCALAR(il>=1&&il<=n,"il>=1&&il<=n","6th keyword il","dsyevx:il=%d",il)if (!(il>=1&&il<=n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyevx:il=%d", "(""il>=1&&il<=n"") failed for "
"6th keyword il", il); PyErr_SetString(_flapack_error,errstring
); } else
{
49498 /* Processing variable iu */
49499 if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else
49500 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.dsyevx() 7th keyword (iu) can't be converted to int");
49501 if (f2py_success) {
49502 CHECKSCALAR(n>=iu&&iu>=il,"n>=iu&&iu>=il","7th keyword iu","dsyevx:iu=%d",iu)if (!(n>=iu&&iu>=il)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyevx:iu=%d", "(""n>=iu&&iu>=il"") failed for "
"7th keyword iu", iu); PyErr_SetString(_flapack_error,errstring
); } else
{
49503 /* Processing variable vu */
49504 if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else
49505 f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.dsyevx() 5th keyword (vu) can't be converted to double");
49506 if (f2py_success) {
49507 CHECKSCALAR(vu>vl,"vu>vl","5th keyword vu","dsyevx:vu=%g",vu)if (!(vu>vl)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyevx:vu=%g", "(""vu>vl"") failed for ""5th keyword vu"
, vu); PyErr_SetString(_flapack_error,errstring); } else
{
49508 /* Processing variable lwork */
49509 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(8*n,1)((8*n > 1) ? (8*n) : (1)); else
49510 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsyevx() 9th keyword (lwork) can't be converted to int");
49511 if (f2py_success) {
49512 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","9th keyword lwork","dsyevx:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyevx:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"9th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
49513 /* Processing variable lda */
49514 lda = max(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
49515 /* Processing variable work */
49516 work_Dims[0]=lwork;
49517 capi_work_intent |= F2PY_INTENT_HIDE8;
49518 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
49519 if (capi_work_tmp == NULL((void*)0)) {
49520 if (!PyErr_Occurred())
49521 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsyevx to C/Fortran array" );
49522 } else {
49523 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
49524
49525 /* Processing variable iwork */
49526 iwork_Dims[0]=5 * n;
49527 capi_iwork_intent |= F2PY_INTENT_HIDE8;
49528 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
49529 if (capi_iwork_tmp == NULL((void*)0)) {
49530 if (!PyErr_Occurred())
49531 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dsyevx to C/Fortran array" );
49532 } else {
49533 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
49534
49535 /* Processing variable w */
49536 w_Dims[0]=n;
49537 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
49538 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
49539 if (capi_w_tmp == NULL((void*)0)) {
49540 if (!PyErr_Occurred())
49541 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dsyevx to C/Fortran array" );
49542 } else {
49543 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
49544
49545 /* Processing variable z */
49546 z_Dims[0]=(compute_v?MAX(0,n)((0 > n) ? (0) : (n)):0),z_Dims[1]=(compute_v?(*range=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0);
49547 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
49548 capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
49549 if (capi_z_tmp == NULL((void*)0)) {
49550 if (!PyErr_Occurred())
49551 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.dsyevx to C/Fortran array" );
49552 } else {
49553 z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
49554
49555 /* Processing variable ifail */
49556 ifail_Dims[0]=(compute_v?n:0);
49557 capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
49558 capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct));
49559 if (capi_ifail_tmp == NULL((void*)0)) {
49560 if (!PyErr_Occurred())
49561 PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.dsyevx to C/Fortran array" );
49562 } else {
49563 ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data));
49564
49565 /* Processing variable ldz */
49566 ldz = max(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0]));
49567/*end of frompyobj*/
49568#ifdef F2PY_REPORT_ATEXIT
49569f2py_start_call_clock();
49570#endif
49571/*callfortranroutine*/
49572 (*f2py_func)((compute_v?"V":"N"),range,(lower?"L":"U"),&n,a,&lda,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,&lwork,iwork,ifail,&info) ;
49573 /*(*f2py_func)(&compute_v,range,&lower,&n,a,&lda,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,work,&lwork,iwork,ifail,&info,slen(range));*/
49574if (PyErr_Occurred())
49575 f2py_success = 0;
49576#ifdef F2PY_REPORT_ATEXIT
49577f2py_stop_call_clock();
49578#endif
49579/*end of callfortranroutine*/
49580 if (f2py_success) {
49581/*pyobjfrom*/
49582/*end of pyobjfrom*/
49583 CFUNCSMESS("Building return value.\n");
49584 capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info);
49585/*closepyobjfrom*/
49586/*end of closepyobjfrom*/
49587 } /*if (f2py_success) after callfortranroutine*/
49588/*cleanupfrompyobj*/
49589 /* End of cleaning variable ldz */
49590 } /*if (capi_ifail_tmp == NULL) ... else of ifail*/
49591 /* End of cleaning variable ifail */
49592 } /*if (capi_z_tmp == NULL) ... else of z*/
49593 /* End of cleaning variable z */
49594 } /*if (capi_w_tmp == NULL) ... else of w*/
49595 /* End of cleaning variable w */
49596 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
49597 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
49598 /* End of cleaning variable iwork */
49599 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
49600 } /*if (capi_work_tmp == NULL) ... else of work*/
49601 /* End of cleaning variable work */
49602 /* End of cleaning variable lda */
49603 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
49604 } /*if (f2py_success) of lwork*/
49605 /* End of cleaning variable lwork */
49606 } /*CHECKSCALAR(vu>vl)*/
49607 } /*if (f2py_success) of vu*/
49608 /* End of cleaning variable vu */
49609 } /*CHECKSCALAR(n>=iu&&iu>=il)*/
49610 } /*if (f2py_success) of iu*/
49611 /* End of cleaning variable iu */
49612 } /*CHECKSCALAR(il>=1&&il<=n)*/
49613 } /*if (f2py_success) of il*/
49614 /* End of cleaning variable il */
49615 /* End of cleaning variable n */
49616 } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/
49617 STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0);
49618 } /*if (f2py_success) of range*/
49619 /* End of cleaning variable range */
49620 /* End of cleaning variable info */
49621 /* End of cleaning variable m */
49622 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
49623 if((PyObject *)capi_a_tmp!=a_capi) {
49624 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
49625 } /*if (capi_a_tmp == NULL) ... else of a*/
49626 /* End of cleaning variable a */
49627 } /*if (f2py_success) of abstol*/
49628 /* End of cleaning variable abstol */
49629 } /*if (f2py_success) of vl*/
49630 /* End of cleaning variable vl */
49631 } /*CHECKSCALAR(lower==0||lower==1)*/
49632 } /*if (f2py_success) of lower*/
49633 /* End of cleaning variable lower */
49634 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
49635 } /*if (f2py_success) of compute_v*/
49636 /* End of cleaning variable compute_v */
49637/*end of cleanupfrompyobj*/
49638 if (capi_buildvalue == NULL((void*)0)) {
49639/*routdebugfailure*/
49640 } else {
49641/*routdebugleave*/
49642 }
49643 CFUNCSMESS("Freeing memory.\n");
49644/*freemem*/
49645#ifdef F2PY_REPORT_ATEXIT
49646f2py_stop_clock();
49647#endif
49648 return capi_buildvalue;
49649}
49650/******************************* end of dsyevx *******************************/
49651
49652/******************************** ssyevx_lwork ********************************/
49653static char doc_f2py_rout__flapack_ssyevx_lwork[] = "\
49654work,info = ssyevx_lwork(n,[lower])\n\nWrapper for ``ssyevx_lwork``.\
49655\n\nParameters\n----------\n"
49656"n : input int\n"
49657"\nOther Parameters\n----------------\n"
49658"lower : input int, optional\n Default: 0\n"
49659"\nReturns\n-------\n"
49660"work : float\n"
49661"info : int";
49662/* extern void F_FUNC(ssyevx ,SSYEVX )(char*,char*,char*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
49663static PyObject *f2py_rout__flapack_ssyevx_lwork(const PyObject *capi_self,
49664 PyObject *capi_args,
49665 PyObject *capi_keywds,
49666 void (*f2py_func)(char*,char*,char*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
49667 PyObject * volatile capi_buildvalue = NULL((void*)0);
49668 volatile int f2py_success = 1;
49669/*decl*/
49670
49671 int lower = 0;
49672 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
49673 int n = 0;
49674 PyObject *n_capi = Py_None(&_Py_NoneStruct);
49675 float a = 0;
49676 int lda = 0;
49677 float vl = 0;
49678 float vu = 0;
49679 int il = 0;
49680 int iu = 0;
49681 float abstol = 0;
49682 int m = 0;
49683 float w = 0;
49684 float z = 0;
49685 int ldz = 0;
49686 float work = 0;
49687 int lwork = 0;
49688 int iwork = 0;
49689 int ifail = 0;
49690 int info = 0;
49691 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
49692
49693/*routdebugenter*/
49694#ifdef F2PY_REPORT_ATEXIT
49695f2py_start_clock();
49696#endif
49697 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
49698 "O|O:_flapack.ssyevx_lwork",\
49699 capi_kwlist,&n_capi,&lower_capi))
49700 return NULL((void*)0);
49701/*frompyobj*/
49702 /* Processing variable n */
49703 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssyevx_lwork() 1st argument (n) can't be converted to int");
49704 if (f2py_success) {
49705 /* Processing variable lower */
49706 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
49707 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssyevx_lwork() 1st keyword (lower) can't be converted to int");
49708 if (f2py_success) {
49709 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssyevx_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyevx_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
49710 /* Processing variable a */
49711 /* Processing variable il */
49712 il = 1;
49713 /* Processing variable iu */
49714 iu = 0;
49715 /* Processing variable vl */
49716 vl = 0.0;
49717 /* Processing variable vu */
49718 vu = 1.0;
49719 /* Processing variable abstol */
49720 abstol = 0.0;
49721 /* Processing variable m */
49722 /* Processing variable w */
49723 /* Processing variable z */
49724 /* Processing variable lwork */
49725 lwork = -1;
49726 /* Processing variable iwork */
49727 /* Processing variable ifail */
49728 /* Processing variable work */
49729 /* Processing variable info */
49730 /* Processing variable lda */
49731 lda = MAX(1,n)((1 > n) ? (1) : (n));
49732 /* Processing variable ldz */
49733 ldz = MAX(1,n)((1 > n) ? (1) : (n));
49734/*end of frompyobj*/
49735#ifdef F2PY_REPORT_ATEXIT
49736f2py_start_call_clock();
49737#endif
49738/*callfortranroutine*/
49739 (*f2py_func)("N","A",(lower?"L":"U"),&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&iwork,&ifail,&info) ;
49740 /*(*f2py_func)(&lower,&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&iwork,&ifail,&info);*/
49741if (PyErr_Occurred())
49742 f2py_success = 0;
49743#ifdef F2PY_REPORT_ATEXIT
49744f2py_stop_call_clock();
49745#endif
49746/*end of callfortranroutine*/
49747 if (f2py_success) {
49748/*pyobjfrom*/
49749/*end of pyobjfrom*/
49750 CFUNCSMESS("Building return value.\n");
49751 capi_buildvalue = Py_BuildValue("fi",work,info);
49752/*closepyobjfrom*/
49753/*end of closepyobjfrom*/
49754 } /*if (f2py_success) after callfortranroutine*/
49755/*cleanupfrompyobj*/
49756 /* End of cleaning variable ldz */
49757 /* End of cleaning variable lda */
49758 /* End of cleaning variable info */
49759 /* End of cleaning variable work */
49760 /* End of cleaning variable ifail */
49761 /* End of cleaning variable iwork */
49762 /* End of cleaning variable lwork */
49763 /* End of cleaning variable z */
49764 /* End of cleaning variable w */
49765 /* End of cleaning variable m */
49766 /* End of cleaning variable abstol */
49767 /* End of cleaning variable vu */
49768 /* End of cleaning variable vl */
49769 /* End of cleaning variable iu */
49770 /* End of cleaning variable il */
49771 /* End of cleaning variable a */
49772 } /*CHECKSCALAR(lower==0||lower==1)*/
49773 } /*if (f2py_success) of lower*/
49774 /* End of cleaning variable lower */
49775 } /*if (f2py_success) of n*/
49776 /* End of cleaning variable n */
49777/*end of cleanupfrompyobj*/
49778 if (capi_buildvalue == NULL((void*)0)) {
49779/*routdebugfailure*/
49780 } else {
49781/*routdebugleave*/
49782 }
49783 CFUNCSMESS("Freeing memory.\n");
49784/*freemem*/
49785#ifdef F2PY_REPORT_ATEXIT
49786f2py_stop_clock();
49787#endif
49788 return capi_buildvalue;
49789}
49790/**************************** end of ssyevx_lwork ****************************/
49791
49792/******************************** dsyevx_lwork ********************************/
49793static char doc_f2py_rout__flapack_dsyevx_lwork[] = "\
49794work,info = dsyevx_lwork(n,[lower])\n\nWrapper for ``dsyevx_lwork``.\
49795\n\nParameters\n----------\n"
49796"n : input int\n"
49797"\nOther Parameters\n----------------\n"
49798"lower : input int, optional\n Default: 0\n"
49799"\nReturns\n-------\n"
49800"work : float\n"
49801"info : int";
49802/* extern void F_FUNC(dsyevx ,DSYEVX )(char*,char*,char*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
49803static PyObject *f2py_rout__flapack_dsyevx_lwork(const PyObject *capi_self,
49804 PyObject *capi_args,
49805 PyObject *capi_keywds,
49806 void (*f2py_func)(char*,char*,char*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
49807 PyObject * volatile capi_buildvalue = NULL((void*)0);
49808 volatile int f2py_success = 1;
49809/*decl*/
49810
49811 int lower = 0;
49812 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
49813 int n = 0;
49814 PyObject *n_capi = Py_None(&_Py_NoneStruct);
49815 double a = 0;
49816 int lda = 0;
49817 double vl = 0;
49818 double vu = 0;
49819 int il = 0;
49820 int iu = 0;
49821 double abstol = 0;
49822 int m = 0;
49823 double w = 0;
49824 double z = 0;
49825 int ldz = 0;
49826 double work = 0;
49827 int lwork = 0;
49828 int iwork = 0;
49829 int ifail = 0;
49830 int info = 0;
49831 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
49832
49833/*routdebugenter*/
49834#ifdef F2PY_REPORT_ATEXIT
49835f2py_start_clock();
49836#endif
49837 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
49838 "O|O:_flapack.dsyevx_lwork",\
49839 capi_kwlist,&n_capi,&lower_capi))
49840 return NULL((void*)0);
49841/*frompyobj*/
49842 /* Processing variable n */
49843 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsyevx_lwork() 1st argument (n) can't be converted to int");
49844 if (f2py_success) {
49845 /* Processing variable lower */
49846 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
49847 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsyevx_lwork() 1st keyword (lower) can't be converted to int");
49848 if (f2py_success) {
49849 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsyevx_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyevx_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
49850 /* Processing variable a */
49851 /* Processing variable il */
49852 il = 1;
49853 /* Processing variable iu */
49854 iu = 0;
49855 /* Processing variable vl */
49856 vl = 0.0;
49857 /* Processing variable vu */
49858 vu = 1.0;
49859 /* Processing variable abstol */
49860 abstol = 0.0;
49861 /* Processing variable m */
49862 /* Processing variable w */
49863 /* Processing variable z */
49864 /* Processing variable lwork */
49865 lwork = -1;
49866 /* Processing variable iwork */
49867 /* Processing variable ifail */
49868 /* Processing variable work */
49869 /* Processing variable info */
49870 /* Processing variable lda */
49871 lda = MAX(1,n)((1 > n) ? (1) : (n));
49872 /* Processing variable ldz */
49873 ldz = MAX(1,n)((1 > n) ? (1) : (n));
49874/*end of frompyobj*/
49875#ifdef F2PY_REPORT_ATEXIT
49876f2py_start_call_clock();
49877#endif
49878/*callfortranroutine*/
49879 (*f2py_func)("N","A",(lower?"L":"U"),&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&iwork,&ifail,&info) ;
49880 /*(*f2py_func)(&lower,&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&iwork,&ifail,&info);*/
49881if (PyErr_Occurred())
49882 f2py_success = 0;
49883#ifdef F2PY_REPORT_ATEXIT
49884f2py_stop_call_clock();
49885#endif
49886/*end of callfortranroutine*/
49887 if (f2py_success) {
49888/*pyobjfrom*/
49889/*end of pyobjfrom*/
49890 CFUNCSMESS("Building return value.\n");
49891 capi_buildvalue = Py_BuildValue("di",work,info);
49892/*closepyobjfrom*/
49893/*end of closepyobjfrom*/
49894 } /*if (f2py_success) after callfortranroutine*/
49895/*cleanupfrompyobj*/
49896 /* End of cleaning variable ldz */
49897 /* End of cleaning variable lda */
49898 /* End of cleaning variable info */
49899 /* End of cleaning variable work */
49900 /* End of cleaning variable ifail */
49901 /* End of cleaning variable iwork */
49902 /* End of cleaning variable lwork */
49903 /* End of cleaning variable z */
49904 /* End of cleaning variable w */
49905 /* End of cleaning variable m */
49906 /* End of cleaning variable abstol */
49907 /* End of cleaning variable vu */
49908 /* End of cleaning variable vl */
49909 /* End of cleaning variable iu */
49910 /* End of cleaning variable il */
49911 /* End of cleaning variable a */
49912 } /*CHECKSCALAR(lower==0||lower==1)*/
49913 } /*if (f2py_success) of lower*/
49914 /* End of cleaning variable lower */
49915 } /*if (f2py_success) of n*/
49916 /* End of cleaning variable n */
49917/*end of cleanupfrompyobj*/
49918 if (capi_buildvalue == NULL((void*)0)) {
49919/*routdebugfailure*/
49920 } else {
49921/*routdebugleave*/
49922 }
49923 CFUNCSMESS("Freeing memory.\n");
49924/*freemem*/
49925#ifdef F2PY_REPORT_ATEXIT
49926f2py_stop_clock();
49927#endif
49928 return capi_buildvalue;
49929}
49930/**************************** end of dsyevx_lwork ****************************/
49931
49932/*********************************** cheevx ***********************************/
49933static char doc_f2py_rout__flapack_cheevx[] = "\
49934w,z,m,ifail,info = cheevx(a,[compute_v,range,lower,vl,vu,il,iu,abstol,lwork,overwrite_a])\n\nWrapper for ``cheevx``.\
49935\n\nParameters\n----------\n"
49936"a : input rank-2 array('F') with bounds (n,n)\n"
49937"\nOther Parameters\n----------------\n"
49938"compute_v : input int, optional\n Default: 1\n"
49939"range : input string(len=1), optional\n Default: 'A'\n"
49940"lower : input int, optional\n Default: 0\n"
49941"overwrite_a : input int, optional\n Default: 0\n"
49942"vl : input float, optional\n Default: 0.0\n"
49943"vu : input float, optional\n Default: 1.0\n"
49944"il : input int, optional\n Default: 1\n"
49945"iu : input int, optional\n Default: n\n"
49946"abstol : input float, optional\n Default: 0.0\n"
49947"lwork : input int, optional\n Default: max(2*n,1)\n"
49948"\nReturns\n-------\n"
49949"w : rank-1 array('f') with bounds (n)\n"
49950"z : rank-2 array('F') with bounds ((compute_v*n),(compute_v?(*range=='I'?iu-il+1:MAX(1,n)):0))\n"
49951"m : int\n"
49952"ifail : rank-1 array('i') with bounds (compute_v*n)\n"
49953"info : int";
49954/* extern void F_FUNC(cheevx,CHEEVX)(char*,char*,char*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */
49955static PyObject *f2py_rout__flapack_cheevx(const PyObject *capi_self,
49956 PyObject *capi_args,
49957 PyObject *capi_keywds,
49958 void (*f2py_func)(char*,char*,char*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) {
49959 PyObject * volatile capi_buildvalue = NULL((void*)0);
49960 volatile int f2py_success = 1;
49961/*decl*/
49962
49963 int compute_v = 0;
49964 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
49965 string range = NULL((void*)0);
49966 int slen(range)capi_range_len;
49967 PyObject *range_capi = Py_None(&_Py_NoneStruct);
49968 int lower = 0;
49969 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
49970 int n = 0;
49971 complex_float *a = NULL((void*)0);
49972 npy_intp a_Dims[2] = {-1, -1};
49973 const int a_Rank = 2;
49974 PyArrayObject *capi_a_tmp = NULL((void*)0);
49975 int capi_a_intent = 0;
49976 int capi_overwrite_a = 0;
49977 PyObject *a_capi = Py_None(&_Py_NoneStruct);
49978 int lda = 0;
49979 float vl = 0;
49980 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
49981 float vu = 0;
49982 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
49983 int il = 0;
49984 PyObject *il_capi = Py_None(&_Py_NoneStruct);
49985 int iu = 0;
49986 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
49987 float abstol = 0;
49988 PyObject *abstol_capi = Py_None(&_Py_NoneStruct);
49989 float *w = NULL((void*)0);
49990 npy_intp w_Dims[1] = {-1};
49991 const int w_Rank = 1;
49992 PyArrayObject *capi_w_tmp = NULL((void*)0);
49993 int capi_w_intent = 0;
49994 complex_float *z = NULL((void*)0);
49995 npy_intp z_Dims[2] = {-1, -1};
49996 const int z_Rank = 2;
49997 PyArrayObject *capi_z_tmp = NULL((void*)0);
49998 int capi_z_intent = 0;
49999 int m = 0;
50000 int ldz = 0;
50001 complex_float *work = NULL((void*)0);
50002 npy_intp work_Dims[1] = {-1};
50003 const int work_Rank = 1;
50004 PyArrayObject *capi_work_tmp = NULL((void*)0);
50005 int capi_work_intent = 0;
50006 int lwork = 0;
50007 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
50008 float *rwork = NULL((void*)0);
50009 npy_intp rwork_Dims[1] = {-1};
50010 const int rwork_Rank = 1;
50011 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
50012 int capi_rwork_intent = 0;
50013 int *iwork = NULL((void*)0);
50014 npy_intp iwork_Dims[1] = {-1};
50015 const int iwork_Rank = 1;
50016 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
50017 int capi_iwork_intent = 0;
50018 int *ifail = NULL((void*)0);
50019 npy_intp ifail_Dims[1] = {-1};
50020 const int ifail_Rank = 1;
50021 PyArrayObject *capi_ifail_tmp = NULL((void*)0);
50022 int capi_ifail_intent = 0;
50023 int info = 0;
50024 static char *capi_kwlist[] = {"a","compute_v","range","lower","vl","vu","il","iu","abstol","lwork","overwrite_a",NULL((void*)0)};
50025
50026/*routdebugenter*/
50027#ifdef F2PY_REPORT_ATEXIT
50028f2py_start_clock();
50029#endif
50030 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
50031 "O|OOOOOOOOOi:_flapack.cheevx",\
50032 capi_kwlist,&a_capi,&compute_v_capi,&range_capi,&lower_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&capi_overwrite_a))
50033 return NULL((void*)0);
50034/*frompyobj*/
50035 /* Processing variable compute_v */
50036 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
50037 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.cheevx() 1st keyword (compute_v) can't be converted to int");
50038 if (f2py_success) {
50039 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","cheevx:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheevx:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
50040 /* Processing variable lower */
50041 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
50042 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cheevx() 3rd keyword (lower) can't be converted to int");
50043 if (f2py_success) {
50044 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","3rd keyword lower","cheevx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheevx:lower=%d", "(""lower==0||lower==1"") failed for "
"3rd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
50045 /* Processing variable vl */
50046 if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else
50047 f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.cheevx() 4th keyword (vl) can't be converted to float");
50048 if (f2py_success) {
50049 /* Processing variable abstol */
50050 if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else
50051 f2py_success = float_from_pyobj(&abstol,abstol_capi,"_flapack.cheevx() 8th keyword (abstol) can't be converted to float");
50052 if (f2py_success) {
50053 /* Processing variable a */
50054 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
50055 ;
50056 capi_a_intent |= F2PY_INTENT_IN1;
50057 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
50058 if (capi_a_tmp == NULL((void*)0)) {
50059 if (!PyErr_Occurred())
50060 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cheevx to C/Fortran array" );
50061 } else {
50062 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
50063
50064 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
50065 /* Processing variable m */
50066 /* Processing variable info */
50067 /* Processing variable range */
50068 slen(range)capi_range_len = 1;
50069 f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 2nd keyword `range' of _flapack.cheevx to C string");
50070 if (f2py_success) {
50071 CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","2nd keyword range","cheevx:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""cheevx:slen(range)=%d range=\"%s\""
, "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""2nd keyword range"
, capi_range_len, range); PyErr_SetString(_flapack_error, errstring
); } else
{
50072 /* Processing variable vu */
50073 if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else
50074 f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.cheevx() 5th keyword (vu) can't be converted to float");
50075 if (f2py_success) {
50076 CHECKSCALAR(vu>vl,"vu>vl","5th keyword vu","cheevx:vu=%g",vu)if (!(vu>vl)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheevx:vu=%g", "(""vu>vl"") failed for ""5th keyword vu"
, vu); PyErr_SetString(_flapack_error,errstring); } else
{
50077 /* Processing variable n */
50078 n = shape(a,0)a_Dims[0];
50079 /* Processing variable lda */
50080 lda = max(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
50081 /* Processing variable iwork */
50082 iwork_Dims[0]=5 * n;
50083 capi_iwork_intent |= F2PY_INTENT_HIDE8;
50084 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
50085 if (capi_iwork_tmp == NULL((void*)0)) {
50086 if (!PyErr_Occurred())
50087 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.cheevx to C/Fortran array" );
50088 } else {
50089 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
50090
50091 /* Processing variable rwork */
50092 rwork_Dims[0]=7 * n;
50093 capi_rwork_intent |= F2PY_INTENT_HIDE8;
50094 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
50095 if (capi_rwork_tmp == NULL((void*)0)) {
50096 if (!PyErr_Occurred())
50097 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cheevx to C/Fortran array" );
50098 } else {
50099 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
50100
50101 /* Processing variable w */
50102 w_Dims[0]=n;
50103 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
50104 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
50105 if (capi_w_tmp == NULL((void*)0)) {
50106 if (!PyErr_Occurred())
50107 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.cheevx to C/Fortran array" );
50108 } else {
50109 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
50110
50111 /* Processing variable ifail */
50112 ifail_Dims[0]=compute_v*n;
50113 capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
50114 capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct));
50115 if (capi_ifail_tmp == NULL((void*)0)) {
50116 if (!PyErr_Occurred())
50117 PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.cheevx to C/Fortran array" );
50118 } else {
50119 ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data));
50120
50121 /* Processing variable il */
50122 if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else
50123 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.cheevx() 6th keyword (il) can't be converted to int");
50124 if (f2py_success) {
50125 CHECKSCALAR(il>=1&&il<=n,"il>=1&&il<=n","6th keyword il","cheevx:il=%d",il)if (!(il>=1&&il<=n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheevx:il=%d", "(""il>=1&&il<=n"") failed for "
"6th keyword il", il); PyErr_SetString(_flapack_error,errstring
); } else
{
50126 /* Processing variable iu */
50127 if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else
50128 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.cheevx() 7th keyword (iu) can't be converted to int");
50129 if (f2py_success) {
50130 CHECKSCALAR(n>=iu&&iu>=il,"n>=iu&&iu>=il","7th keyword iu","cheevx:iu=%d",iu)if (!(n>=iu&&iu>=il)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheevx:iu=%d", "(""n>=iu&&iu>=il"") failed for "
"7th keyword iu", iu); PyErr_SetString(_flapack_error,errstring
); } else
{
50131 /* Processing variable lwork */
50132 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else
50133 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cheevx() 9th keyword (lwork) can't be converted to int");
50134 if (f2py_success) {
50135 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","9th keyword lwork","cheevx:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheevx:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"9th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
50136 /* Processing variable work */
50137 work_Dims[0]=lwork;
50138 capi_work_intent |= F2PY_INTENT_HIDE8;
50139 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
50140 if (capi_work_tmp == NULL((void*)0)) {
50141 if (!PyErr_Occurred())
50142 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cheevx to C/Fortran array" );
50143 } else {
50144 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
50145
50146 /* Processing variable z */
50147 z_Dims[0]=(compute_v*n),z_Dims[1]=(compute_v?(*range=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0);
50148 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
50149 capi_z_tmp = array_from_pyobj(NPY_CFLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
50150 if (capi_z_tmp == NULL((void*)0)) {
50151 if (!PyErr_Occurred())
50152 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.cheevx to C/Fortran array" );
50153 } else {
50154 z = (complex_float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
50155
50156 /* Processing variable ldz */
50157 ldz = max(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0]));
50158/*end of frompyobj*/
50159#ifdef F2PY_REPORT_ATEXIT
50160f2py_start_call_clock();
50161#endif
50162/*callfortranroutine*/
50163 (*f2py_func)((compute_v?"V":"N"),range,(lower?"L":"U"),&n,a,&lda,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,&lwork,rwork,iwork,ifail,&info) ;
50164 /*(*f2py_func)(&compute_v,range,&lower,&n,a,&lda,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,work,&lwork,rwork,iwork,ifail,&info,slen(range));*/
50165if (PyErr_Occurred())
50166 f2py_success = 0;
50167#ifdef F2PY_REPORT_ATEXIT
50168f2py_stop_call_clock();
50169#endif
50170/*end of callfortranroutine*/
50171 if (f2py_success) {
50172/*pyobjfrom*/
50173/*end of pyobjfrom*/
50174 CFUNCSMESS("Building return value.\n");
50175 capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info);
50176/*closepyobjfrom*/
50177/*end of closepyobjfrom*/
50178 } /*if (f2py_success) after callfortranroutine*/
50179/*cleanupfrompyobj*/
50180 /* End of cleaning variable ldz */
50181 } /*if (capi_z_tmp == NULL) ... else of z*/
50182 /* End of cleaning variable z */
50183 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
50184 } /*if (capi_work_tmp == NULL) ... else of work*/
50185 /* End of cleaning variable work */
50186 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
50187 } /*if (f2py_success) of lwork*/
50188 /* End of cleaning variable lwork */
50189 } /*CHECKSCALAR(n>=iu&&iu>=il)*/
50190 } /*if (f2py_success) of iu*/
50191 /* End of cleaning variable iu */
50192 } /*CHECKSCALAR(il>=1&&il<=n)*/
50193 } /*if (f2py_success) of il*/
50194 /* End of cleaning variable il */
50195 } /*if (capi_ifail_tmp == NULL) ... else of ifail*/
50196 /* End of cleaning variable ifail */
50197 } /*if (capi_w_tmp == NULL) ... else of w*/
50198 /* End of cleaning variable w */
50199 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
50200 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
50201 /* End of cleaning variable rwork */
50202 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
50203 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
50204 /* End of cleaning variable iwork */
50205 /* End of cleaning variable lda */
50206 /* End of cleaning variable n */
50207 } /*CHECKSCALAR(vu>vl)*/
50208 } /*if (f2py_success) of vu*/
50209 /* End of cleaning variable vu */
50210 } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/
50211 STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0);
50212 } /*if (f2py_success) of range*/
50213 /* End of cleaning variable range */
50214 /* End of cleaning variable info */
50215 /* End of cleaning variable m */
50216 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
50217 if((PyObject *)capi_a_tmp!=a_capi) {
50218 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
50219 } /*if (capi_a_tmp == NULL) ... else of a*/
50220 /* End of cleaning variable a */
50221 } /*if (f2py_success) of abstol*/
50222 /* End of cleaning variable abstol */
50223 } /*if (f2py_success) of vl*/
50224 /* End of cleaning variable vl */
50225 } /*CHECKSCALAR(lower==0||lower==1)*/
50226 } /*if (f2py_success) of lower*/
50227 /* End of cleaning variable lower */
50228 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
50229 } /*if (f2py_success) of compute_v*/
50230 /* End of cleaning variable compute_v */
50231/*end of cleanupfrompyobj*/
50232 if (capi_buildvalue == NULL((void*)0)) {
50233/*routdebugfailure*/
50234 } else {
50235/*routdebugleave*/
50236 }
50237 CFUNCSMESS("Freeing memory.\n");
50238/*freemem*/
50239#ifdef F2PY_REPORT_ATEXIT
50240f2py_stop_clock();
50241#endif
50242 return capi_buildvalue;
50243}
50244/******************************* end of cheevx *******************************/
50245
50246/*********************************** zheevx ***********************************/
50247static char doc_f2py_rout__flapack_zheevx[] = "\
50248w,z,m,ifail,info = zheevx(a,[compute_v,range,lower,vl,vu,il,iu,abstol,lwork,overwrite_a])\n\nWrapper for ``zheevx``.\
50249\n\nParameters\n----------\n"
50250"a : input rank-2 array('D') with bounds (n,n)\n"
50251"\nOther Parameters\n----------------\n"
50252"compute_v : input int, optional\n Default: 1\n"
50253"range : input string(len=1), optional\n Default: 'A'\n"
50254"lower : input int, optional\n Default: 0\n"
50255"overwrite_a : input int, optional\n Default: 0\n"
50256"vl : input float, optional\n Default: 0.0\n"
50257"vu : input float, optional\n Default: 1.0\n"
50258"il : input int, optional\n Default: 1\n"
50259"iu : input int, optional\n Default: n\n"
50260"abstol : input float, optional\n Default: 0.0\n"
50261"lwork : input int, optional\n Default: max(2*n,1)\n"
50262"\nReturns\n-------\n"
50263"w : rank-1 array('d') with bounds (n)\n"
50264"z : rank-2 array('D') with bounds ((compute_v*n),(compute_v?(*range=='I'?iu-il+1:MAX(1,n)):0))\n"
50265"m : int\n"
50266"ifail : rank-1 array('i') with bounds (compute_v*n)\n"
50267"info : int";
50268/* extern void F_FUNC(zheevx,ZHEEVX)(char*,char*,char*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */
50269static PyObject *f2py_rout__flapack_zheevx(const PyObject *capi_self,
50270 PyObject *capi_args,
50271 PyObject *capi_keywds,
50272 void (*f2py_func)(char*,char*,char*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) {
50273 PyObject * volatile capi_buildvalue = NULL((void*)0);
50274 volatile int f2py_success = 1;
50275/*decl*/
50276
50277 int compute_v = 0;
50278 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
50279 string range = NULL((void*)0);
50280 int slen(range)capi_range_len;
50281 PyObject *range_capi = Py_None(&_Py_NoneStruct);
50282 int lower = 0;
50283 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
50284 int n = 0;
50285 complex_double *a = NULL((void*)0);
50286 npy_intp a_Dims[2] = {-1, -1};
50287 const int a_Rank = 2;
50288 PyArrayObject *capi_a_tmp = NULL((void*)0);
50289 int capi_a_intent = 0;
50290 int capi_overwrite_a = 0;
50291 PyObject *a_capi = Py_None(&_Py_NoneStruct);
50292 int lda = 0;
50293 double vl = 0;
50294 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
50295 double vu = 0;
50296 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
50297 int il = 0;
50298 PyObject *il_capi = Py_None(&_Py_NoneStruct);
50299 int iu = 0;
50300 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
50301 double abstol = 0;
50302 PyObject *abstol_capi = Py_None(&_Py_NoneStruct);
50303 double *w = NULL((void*)0);
50304 npy_intp w_Dims[1] = {-1};
50305 const int w_Rank = 1;
50306 PyArrayObject *capi_w_tmp = NULL((void*)0);
50307 int capi_w_intent = 0;
50308 complex_double *z = NULL((void*)0);
50309 npy_intp z_Dims[2] = {-1, -1};
50310 const int z_Rank = 2;
50311 PyArrayObject *capi_z_tmp = NULL((void*)0);
50312 int capi_z_intent = 0;
50313 int m = 0;
50314 int ldz = 0;
50315 complex_double *work = NULL((void*)0);
50316 npy_intp work_Dims[1] = {-1};
50317 const int work_Rank = 1;
50318 PyArrayObject *capi_work_tmp = NULL((void*)0);
50319 int capi_work_intent = 0;
50320 int lwork = 0;
50321 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
50322 double *rwork = NULL((void*)0);
50323 npy_intp rwork_Dims[1] = {-1};
50324 const int rwork_Rank = 1;
50325 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
50326 int capi_rwork_intent = 0;
50327 int *iwork = NULL((void*)0);
50328 npy_intp iwork_Dims[1] = {-1};
50329 const int iwork_Rank = 1;
50330 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
50331 int capi_iwork_intent = 0;
50332 int *ifail = NULL((void*)0);
50333 npy_intp ifail_Dims[1] = {-1};
50334 const int ifail_Rank = 1;
50335 PyArrayObject *capi_ifail_tmp = NULL((void*)0);
50336 int capi_ifail_intent = 0;
50337 int info = 0;
50338 static char *capi_kwlist[] = {"a","compute_v","range","lower","vl","vu","il","iu","abstol","lwork","overwrite_a",NULL((void*)0)};
50339
50340/*routdebugenter*/
50341#ifdef F2PY_REPORT_ATEXIT
50342f2py_start_clock();
50343#endif
50344 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
50345 "O|OOOOOOOOOi:_flapack.zheevx",\
50346 capi_kwlist,&a_capi,&compute_v_capi,&range_capi,&lower_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&capi_overwrite_a))
50347 return NULL((void*)0);
50348/*frompyobj*/
50349 /* Processing variable compute_v */
50350 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
50351 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.zheevx() 1st keyword (compute_v) can't be converted to int");
50352 if (f2py_success) {
50353 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","zheevx:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheevx:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
50354 /* Processing variable lower */
50355 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
50356 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zheevx() 3rd keyword (lower) can't be converted to int");
50357 if (f2py_success) {
50358 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","3rd keyword lower","zheevx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheevx:lower=%d", "(""lower==0||lower==1"") failed for "
"3rd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
50359 /* Processing variable vl */
50360 if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else
50361 f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.zheevx() 4th keyword (vl) can't be converted to double");
50362 if (f2py_success) {
50363 /* Processing variable abstol */
50364 if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else
50365 f2py_success = double_from_pyobj(&abstol,abstol_capi,"_flapack.zheevx() 8th keyword (abstol) can't be converted to double");
50366 if (f2py_success) {
50367 /* Processing variable a */
50368 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
50369 ;
50370 capi_a_intent |= F2PY_INTENT_IN1;
50371 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
50372 if (capi_a_tmp == NULL((void*)0)) {
50373 if (!PyErr_Occurred())
50374 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zheevx to C/Fortran array" );
50375 } else {
50376 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
50377
50378 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
50379 /* Processing variable m */
50380 /* Processing variable info */
50381 /* Processing variable range */
50382 slen(range)capi_range_len = 1;
50383 f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 2nd keyword `range' of _flapack.zheevx to C string");
50384 if (f2py_success) {
50385 CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","2nd keyword range","zheevx:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zheevx:slen(range)=%d range=\"%s\""
, "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""2nd keyword range"
, capi_range_len, range); PyErr_SetString(_flapack_error, errstring
); } else
{
50386 /* Processing variable vu */
50387 if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else
50388 f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.zheevx() 5th keyword (vu) can't be converted to double");
50389 if (f2py_success) {
50390 CHECKSCALAR(vu>vl,"vu>vl","5th keyword vu","zheevx:vu=%g",vu)if (!(vu>vl)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheevx:vu=%g", "(""vu>vl"") failed for ""5th keyword vu"
, vu); PyErr_SetString(_flapack_error,errstring); } else
{
50391 /* Processing variable n */
50392 n = shape(a,0)a_Dims[0];
50393 /* Processing variable lda */
50394 lda = max(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
50395 /* Processing variable iwork */
50396 iwork_Dims[0]=5 * n;
50397 capi_iwork_intent |= F2PY_INTENT_HIDE8;
50398 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
50399 if (capi_iwork_tmp == NULL((void*)0)) {
50400 if (!PyErr_Occurred())
50401 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.zheevx to C/Fortran array" );
50402 } else {
50403 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
50404
50405 /* Processing variable rwork */
50406 rwork_Dims[0]=7 * n;
50407 capi_rwork_intent |= F2PY_INTENT_HIDE8;
50408 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
50409 if (capi_rwork_tmp == NULL((void*)0)) {
50410 if (!PyErr_Occurred())
50411 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zheevx to C/Fortran array" );
50412 } else {
50413 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
50414
50415 /* Processing variable w */
50416 w_Dims[0]=n;
50417 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
50418 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
50419 if (capi_w_tmp == NULL((void*)0)) {
50420 if (!PyErr_Occurred())
50421 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zheevx to C/Fortran array" );
50422 } else {
50423 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
50424
50425 /* Processing variable ifail */
50426 ifail_Dims[0]=compute_v*n;
50427 capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
50428 capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct));
50429 if (capi_ifail_tmp == NULL((void*)0)) {
50430 if (!PyErr_Occurred())
50431 PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.zheevx to C/Fortran array" );
50432 } else {
50433 ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data));
50434
50435 /* Processing variable il */
50436 if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else
50437 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.zheevx() 6th keyword (il) can't be converted to int");
50438 if (f2py_success) {
50439 CHECKSCALAR(il>=1&&il<=n,"il>=1&&il<=n","6th keyword il","zheevx:il=%d",il)if (!(il>=1&&il<=n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheevx:il=%d", "(""il>=1&&il<=n"") failed for "
"6th keyword il", il); PyErr_SetString(_flapack_error,errstring
); } else
{
50440 /* Processing variable iu */
50441 if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else
50442 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.zheevx() 7th keyword (iu) can't be converted to int");
50443 if (f2py_success) {
50444 CHECKSCALAR(n>=iu&&iu>=il,"n>=iu&&iu>=il","7th keyword iu","zheevx:iu=%d",iu)if (!(n>=iu&&iu>=il)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheevx:iu=%d", "(""n>=iu&&iu>=il"") failed for "
"7th keyword iu", iu); PyErr_SetString(_flapack_error,errstring
); } else
{
50445 /* Processing variable lwork */
50446 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else
50447 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zheevx() 9th keyword (lwork) can't be converted to int");
50448 if (f2py_success) {
50449 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","9th keyword lwork","zheevx:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheevx:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"9th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
50450 /* Processing variable work */
50451 work_Dims[0]=lwork;
50452 capi_work_intent |= F2PY_INTENT_HIDE8;
50453 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
50454 if (capi_work_tmp == NULL((void*)0)) {
50455 if (!PyErr_Occurred())
50456 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zheevx to C/Fortran array" );
50457 } else {
50458 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
50459
50460 /* Processing variable z */
50461 z_Dims[0]=(compute_v*n),z_Dims[1]=(compute_v?(*range=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0);
50462 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
50463 capi_z_tmp = array_from_pyobj(NPY_CDOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
50464 if (capi_z_tmp == NULL((void*)0)) {
50465 if (!PyErr_Occurred())
50466 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.zheevx to C/Fortran array" );
50467 } else {
50468 z = (complex_double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
50469
50470 /* Processing variable ldz */
50471 ldz = max(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0]));
50472/*end of frompyobj*/
50473#ifdef F2PY_REPORT_ATEXIT
50474f2py_start_call_clock();
50475#endif
50476/*callfortranroutine*/
50477 (*f2py_func)((compute_v?"V":"N"),range,(lower?"L":"U"),&n,a,&lda,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,&lwork,rwork,iwork,ifail,&info) ;
50478 /*(*f2py_func)(&compute_v,range,&lower,&n,a,&lda,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,work,&lwork,rwork,iwork,ifail,&info,slen(range));*/
50479if (PyErr_Occurred())
50480 f2py_success = 0;
50481#ifdef F2PY_REPORT_ATEXIT
50482f2py_stop_call_clock();
50483#endif
50484/*end of callfortranroutine*/
50485 if (f2py_success) {
50486/*pyobjfrom*/
50487/*end of pyobjfrom*/
50488 CFUNCSMESS("Building return value.\n");
50489 capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info);
50490/*closepyobjfrom*/
50491/*end of closepyobjfrom*/
50492 } /*if (f2py_success) after callfortranroutine*/
50493/*cleanupfrompyobj*/
50494 /* End of cleaning variable ldz */
50495 } /*if (capi_z_tmp == NULL) ... else of z*/
50496 /* End of cleaning variable z */
50497 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
50498 } /*if (capi_work_tmp == NULL) ... else of work*/
50499 /* End of cleaning variable work */
50500 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
50501 } /*if (f2py_success) of lwork*/
50502 /* End of cleaning variable lwork */
50503 } /*CHECKSCALAR(n>=iu&&iu>=il)*/
50504 } /*if (f2py_success) of iu*/
50505 /* End of cleaning variable iu */
50506 } /*CHECKSCALAR(il>=1&&il<=n)*/
50507 } /*if (f2py_success) of il*/
50508 /* End of cleaning variable il */
50509 } /*if (capi_ifail_tmp == NULL) ... else of ifail*/
50510 /* End of cleaning variable ifail */
50511 } /*if (capi_w_tmp == NULL) ... else of w*/
50512 /* End of cleaning variable w */
50513 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
50514 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
50515 /* End of cleaning variable rwork */
50516 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
50517 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
50518 /* End of cleaning variable iwork */
50519 /* End of cleaning variable lda */
50520 /* End of cleaning variable n */
50521 } /*CHECKSCALAR(vu>vl)*/
50522 } /*if (f2py_success) of vu*/
50523 /* End of cleaning variable vu */
50524 } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/
50525 STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0);
50526 } /*if (f2py_success) of range*/
50527 /* End of cleaning variable range */
50528 /* End of cleaning variable info */
50529 /* End of cleaning variable m */
50530 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
50531 if((PyObject *)capi_a_tmp!=a_capi) {
50532 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
50533 } /*if (capi_a_tmp == NULL) ... else of a*/
50534 /* End of cleaning variable a */
50535 } /*if (f2py_success) of abstol*/
50536 /* End of cleaning variable abstol */
50537 } /*if (f2py_success) of vl*/
50538 /* End of cleaning variable vl */
50539 } /*CHECKSCALAR(lower==0||lower==1)*/
50540 } /*if (f2py_success) of lower*/
50541 /* End of cleaning variable lower */
50542 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
50543 } /*if (f2py_success) of compute_v*/
50544 /* End of cleaning variable compute_v */
50545/*end of cleanupfrompyobj*/
50546 if (capi_buildvalue == NULL((void*)0)) {
50547/*routdebugfailure*/
50548 } else {
50549/*routdebugleave*/
50550 }
50551 CFUNCSMESS("Freeing memory.\n");
50552/*freemem*/
50553#ifdef F2PY_REPORT_ATEXIT
50554f2py_stop_clock();
50555#endif
50556 return capi_buildvalue;
50557}
50558/******************************* end of zheevx *******************************/
50559
50560/******************************** cheevx_lwork ********************************/
50561static char doc_f2py_rout__flapack_cheevx_lwork[] = "\
50562work,info = cheevx_lwork(n,[lower])\n\nWrapper for ``cheevx_lwork``.\
50563\n\nParameters\n----------\n"
50564"n : input int\n"
50565"\nOther Parameters\n----------------\n"
50566"lower : input int, optional\n Default: 0\n"
50567"\nReturns\n-------\n"
50568"work : complex\n"
50569"info : int";
50570/* extern void F_FUNC(cheevx ,CHEEVX )(char*,char*,char*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */
50571static PyObject *f2py_rout__flapack_cheevx_lwork(const PyObject *capi_self,
50572 PyObject *capi_args,
50573 PyObject *capi_keywds,
50574 void (*f2py_func)(char*,char*,char*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) {
50575 PyObject * volatile capi_buildvalue = NULL((void*)0);
50576 volatile int f2py_success = 1;
50577/*decl*/
50578
50579 int lower = 0;
50580 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
50581 int n = 0;
50582 PyObject *n_capi = Py_None(&_Py_NoneStruct);
50583 complex_float a;
50584 int lda = 0;
50585 float vl = 0;
50586 float vu = 0;
50587 int il = 0;
50588 int iu = 0;
50589 float abstol = 0;
50590 int m = 0;
50591 float w = 0;
50592 complex_float z;
50593 int ldz = 0;
50594 complex_float work;
50595 PyObject *work_capi = Py_None(&_Py_NoneStruct);
50596 int lwork = 0;
50597 float rwork = 0;
50598 int iwork = 0;
50599 int ifail = 0;
50600 int info = 0;
50601 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
50602
50603/*routdebugenter*/
50604#ifdef F2PY_REPORT_ATEXIT
50605f2py_start_clock();
50606#endif
50607 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
50608 "O|O:_flapack.cheevx_lwork",\
50609 capi_kwlist,&n_capi,&lower_capi))
50610 return NULL((void*)0);
50611/*frompyobj*/
50612 /* Processing variable n */
50613 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cheevx_lwork() 1st argument (n) can't be converted to int");
50614 if (f2py_success) {
50615 /* Processing variable lower */
50616 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
50617 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cheevx_lwork() 1st keyword (lower) can't be converted to int");
50618 if (f2py_success) {
50619 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cheevx_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheevx_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
50620 /* Processing variable a */
50621 /* Processing variable il */
50622 il = 1;
50623 /* Processing variable iu */
50624 iu = 0;
50625 /* Processing variable vl */
50626 vl = 0.0;
50627 /* Processing variable vu */
50628 vu = 1.0;
50629 /* Processing variable abstol */
50630 abstol = 0.0;
50631 /* Processing variable m */
50632 /* Processing variable w */
50633 /* Processing variable z */
50634 /* Processing variable lwork */
50635 lwork = -1;
50636 /* Processing variable rwork */
50637 /* Processing variable iwork */
50638 /* Processing variable ifail */
50639 /* Processing variable work */
50640 /* Processing variable info */
50641 /* Processing variable lda */
50642 lda = MAX(1,n)((1 > n) ? (1) : (n));
50643 /* Processing variable ldz */
50644 ldz = MAX(1,n)((1 > n) ? (1) : (n));
50645/*end of frompyobj*/
50646#ifdef F2PY_REPORT_ATEXIT
50647f2py_start_call_clock();
50648#endif
50649/*callfortranroutine*/
50650 (*f2py_func)("N","A",(lower?"L":"U"),&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&rwork,&iwork,&ifail,&info) ;
50651 /*(*f2py_func)(&lower,&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&rwork,&iwork,&ifail,&info);*/
50652if (PyErr_Occurred())
50653 f2py_success = 0;
50654#ifdef F2PY_REPORT_ATEXIT
50655f2py_stop_call_clock();
50656#endif
50657/*end of callfortranroutine*/
50658 if (f2py_success) {
50659/*pyobjfrom*/
50660 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
50661/*end of pyobjfrom*/
50662 CFUNCSMESS("Building return value.\n");
50663 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
50664/*closepyobjfrom*/
50665/*end of closepyobjfrom*/
50666 } /*if (f2py_success) after callfortranroutine*/
50667/*cleanupfrompyobj*/
50668 /* End of cleaning variable ldz */
50669 /* End of cleaning variable lda */
50670 /* End of cleaning variable info */
50671 /* End of cleaning variable work */
50672 /* End of cleaning variable ifail */
50673 /* End of cleaning variable iwork */
50674 /* End of cleaning variable rwork */
50675 /* End of cleaning variable lwork */
50676 /* End of cleaning variable z */
50677 /* End of cleaning variable w */
50678 /* End of cleaning variable m */
50679 /* End of cleaning variable abstol */
50680 /* End of cleaning variable vu */
50681 /* End of cleaning variable vl */
50682 /* End of cleaning variable iu */
50683 /* End of cleaning variable il */
50684 /* End of cleaning variable a */
50685 } /*CHECKSCALAR(lower==0||lower==1)*/
50686 } /*if (f2py_success) of lower*/
50687 /* End of cleaning variable lower */
50688 } /*if (f2py_success) of n*/
50689 /* End of cleaning variable n */
50690/*end of cleanupfrompyobj*/
50691 if (capi_buildvalue == NULL((void*)0)) {
50692/*routdebugfailure*/
50693 } else {
50694/*routdebugleave*/
50695 }
50696 CFUNCSMESS("Freeing memory.\n");
50697/*freemem*/
50698#ifdef F2PY_REPORT_ATEXIT
50699f2py_stop_clock();
50700#endif
50701 return capi_buildvalue;
50702}
50703/**************************** end of cheevx_lwork ****************************/
50704
50705/******************************** zheevx_lwork ********************************/
50706static char doc_f2py_rout__flapack_zheevx_lwork[] = "\
50707work,info = zheevx_lwork(n,[lower])\n\nWrapper for ``zheevx_lwork``.\
50708\n\nParameters\n----------\n"
50709"n : input int\n"
50710"\nOther Parameters\n----------------\n"
50711"lower : input int, optional\n Default: 0\n"
50712"\nReturns\n-------\n"
50713"work : complex\n"
50714"info : int";
50715/* extern void F_FUNC(zheevx ,ZHEEVX )(char*,char*,char*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */
50716static PyObject *f2py_rout__flapack_zheevx_lwork(const PyObject *capi_self,
50717 PyObject *capi_args,
50718 PyObject *capi_keywds,
50719 void (*f2py_func)(char*,char*,char*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) {
50720 PyObject * volatile capi_buildvalue = NULL((void*)0);
50721 volatile int f2py_success = 1;
50722/*decl*/
50723
50724 int lower = 0;
50725 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
50726 int n = 0;
50727 PyObject *n_capi = Py_None(&_Py_NoneStruct);
50728 complex_double a;
50729 int lda = 0;
50730 double vl = 0;
50731 double vu = 0;
50732 int il = 0;
50733 int iu = 0;
50734 double abstol = 0;
50735 int m = 0;
50736 double w = 0;
50737 complex_double z;
50738 int ldz = 0;
50739 complex_double work;
50740 PyObject *work_capi = Py_None(&_Py_NoneStruct);
50741 int lwork = 0;
50742 double rwork = 0;
50743 int iwork = 0;
50744 int ifail = 0;
50745 int info = 0;
50746 static char *capi_kwlist[] = {"n","lower",NULL((void*)0)};
50747
50748/*routdebugenter*/
50749#ifdef F2PY_REPORT_ATEXIT
50750f2py_start_clock();
50751#endif
50752 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
50753 "O|O:_flapack.zheevx_lwork",\
50754 capi_kwlist,&n_capi,&lower_capi))
50755 return NULL((void*)0);
50756/*frompyobj*/
50757 /* Processing variable n */
50758 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zheevx_lwork() 1st argument (n) can't be converted to int");
50759 if (f2py_success) {
50760 /* Processing variable lower */
50761 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
50762 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zheevx_lwork() 1st keyword (lower) can't be converted to int");
50763 if (f2py_success) {
50764 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zheevx_lwork:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheevx_lwork:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
50765 /* Processing variable a */
50766 /* Processing variable il */
50767 il = 1;
50768 /* Processing variable iu */
50769 iu = 0;
50770 /* Processing variable vl */
50771 vl = 0.0;
50772 /* Processing variable vu */
50773 vu = 1.0;
50774 /* Processing variable abstol */
50775 abstol = 0.0;
50776 /* Processing variable m */
50777 /* Processing variable w */
50778 /* Processing variable z */
50779 /* Processing variable lwork */
50780 lwork = -1;
50781 /* Processing variable rwork */
50782 /* Processing variable iwork */
50783 /* Processing variable ifail */
50784 /* Processing variable work */
50785 /* Processing variable info */
50786 /* Processing variable lda */
50787 lda = MAX(1,n)((1 > n) ? (1) : (n));
50788 /* Processing variable ldz */
50789 ldz = MAX(1,n)((1 > n) ? (1) : (n));
50790/*end of frompyobj*/
50791#ifdef F2PY_REPORT_ATEXIT
50792f2py_start_call_clock();
50793#endif
50794/*callfortranroutine*/
50795 (*f2py_func)("N","A",(lower?"L":"U"),&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&rwork,&iwork,&ifail,&info) ;
50796 /*(*f2py_func)(&lower,&n,&a,&lda,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&rwork,&iwork,&ifail,&info);*/
50797if (PyErr_Occurred())
50798 f2py_success = 0;
50799#ifdef F2PY_REPORT_ATEXIT
50800f2py_stop_call_clock();
50801#endif
50802/*end of callfortranroutine*/
50803 if (f2py_success) {
50804/*pyobjfrom*/
50805 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
50806/*end of pyobjfrom*/
50807 CFUNCSMESS("Building return value.\n");
50808 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
50809/*closepyobjfrom*/
50810/*end of closepyobjfrom*/
50811 } /*if (f2py_success) after callfortranroutine*/
50812/*cleanupfrompyobj*/
50813 /* End of cleaning variable ldz */
50814 /* End of cleaning variable lda */
50815 /* End of cleaning variable info */
50816 /* End of cleaning variable work */
50817 /* End of cleaning variable ifail */
50818 /* End of cleaning variable iwork */
50819 /* End of cleaning variable rwork */
50820 /* End of cleaning variable lwork */
50821 /* End of cleaning variable z */
50822 /* End of cleaning variable w */
50823 /* End of cleaning variable m */
50824 /* End of cleaning variable abstol */
50825 /* End of cleaning variable vu */
50826 /* End of cleaning variable vl */
50827 /* End of cleaning variable iu */
50828 /* End of cleaning variable il */
50829 /* End of cleaning variable a */
50830 } /*CHECKSCALAR(lower==0||lower==1)*/
50831 } /*if (f2py_success) of lower*/
50832 /* End of cleaning variable lower */
50833 } /*if (f2py_success) of n*/
50834 /* End of cleaning variable n */
50835/*end of cleanupfrompyobj*/
50836 if (capi_buildvalue == NULL((void*)0)) {
50837/*routdebugfailure*/
50838 } else {
50839/*routdebugleave*/
50840 }
50841 CFUNCSMESS("Freeing memory.\n");
50842/*freemem*/
50843#ifdef F2PY_REPORT_ATEXIT
50844f2py_stop_clock();
50845#endif
50846 return capi_buildvalue;
50847}
50848/**************************** end of zheevx_lwork ****************************/
50849
50850/*********************************** ssygv ***********************************/
50851static char doc_f2py_rout__flapack_ssygv[] = "\
50852w,v,info = ssygv(a,b,[itype,jobz,uplo,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``ssygv``.\
50853\n\nParameters\n----------\n"
50854"a : input rank-2 array('f') with bounds (n,n)\n"
50855"b : input rank-2 array('f') with bounds (n,n)\n"
50856"\nOther Parameters\n----------------\n"
50857"itype : input int, optional\n Default: 1\n"
50858"jobz : input string(len=1), optional\n Default: 'V'\n"
50859"uplo : input string(len=1), optional\n Default: 'L'\n"
50860"overwrite_a : input int, optional\n Default: 0\n"
50861"overwrite_b : input int, optional\n Default: 0\n"
50862"lwork : input int, optional\n Default: max(3*n-1,1)\n"
50863"\nReturns\n-------\n"
50864"w : rank-1 array('f') with bounds (n)\n"
50865"v : rank-2 array('f') with bounds (n,n) and a storage\n"
50866"info : int";
50867/* extern void F_FUNC(ssygv,SSYGV)(F_INT*,char*,char*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */
50868static PyObject *f2py_rout__flapack_ssygv(const PyObject *capi_self,
50869 PyObject *capi_args,
50870 PyObject *capi_keywds,
50871 void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
50872 PyObject * volatile capi_buildvalue = NULL((void*)0);
50873 volatile int f2py_success = 1;
50874/*decl*/
50875
50876 int itype = 0;
50877 PyObject *itype_capi = Py_None(&_Py_NoneStruct);
50878 string jobz = NULL((void*)0);
50879 int slen(jobz)capi_jobz_len;
50880 PyObject *jobz_capi = Py_None(&_Py_NoneStruct);
50881 string uplo = NULL((void*)0);
50882 int slen(uplo)capi_uplo_len;
50883 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
50884 int n = 0;
50885 int lda = 0;
50886 int ldb = 0;
50887 float *w = NULL((void*)0);
50888 npy_intp w_Dims[1] = {-1};
50889 const int w_Rank = 1;
50890 PyArrayObject *capi_w_tmp = NULL((void*)0);
50891 int capi_w_intent = 0;
50892 float *a = NULL((void*)0);
50893 npy_intp a_Dims[2] = {-1, -1};
50894 const int a_Rank = 2;
50895 PyArrayObject *capi_a_tmp = NULL((void*)0);
50896 int capi_a_intent = 0;
50897 int capi_overwrite_a = 0;
50898 PyObject *a_capi = Py_None(&_Py_NoneStruct);
50899 float *b = NULL((void*)0);
50900 npy_intp b_Dims[2] = {-1, -1};
50901 const int b_Rank = 2;
50902 PyArrayObject *capi_b_tmp = NULL((void*)0);
50903 int capi_b_intent = 0;
50904 int capi_overwrite_b = 0;
50905 PyObject *b_capi = Py_None(&_Py_NoneStruct);
50906 float *work = NULL((void*)0);
50907 npy_intp work_Dims[1] = {-1};
50908 const int work_Rank = 1;
50909 PyArrayObject *capi_work_tmp = NULL((void*)0);
50910 int capi_work_intent = 0;
50911 int lwork = 0;
50912 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
50913 int info = 0;
50914 static char *capi_kwlist[] = {"a","b","itype","jobz","uplo","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
50915
50916/*routdebugenter*/
50917#ifdef F2PY_REPORT_ATEXIT
50918f2py_start_clock();
50919#endif
50920 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
50921 "OO|OOOOii:_flapack.ssygv",\
50922 capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&uplo_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
50923 return NULL((void*)0);
50924/*frompyobj*/
50925 /* Processing variable a */
50926 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
50927 ;
50928 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
50929 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
50930 if (capi_a_tmp == NULL((void*)0)) {
50931 if (!PyErr_Occurred())
50932 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssygv to C/Fortran array" );
50933 } else {
50934 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
50935
50936 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
50937 /* Processing variable itype */
50938 if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else
50939 f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.ssygv() 1st keyword (itype) can't be converted to int");
50940 if (f2py_success) {
50941 CHECKSCALAR(itype > 0 || itype < 4,"itype > 0 || itype < 4","1st keyword itype","ssygv:itype=%d",itype)if (!(itype > 0 || itype < 4)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssygv:itype=%d", "(""itype > 0 || itype < 4"") failed for "
"1st keyword itype", itype); PyErr_SetString(_flapack_error,errstring
); } else
{
50942 /* Processing variable jobz */
50943 slen(jobz)capi_jobz_len = 1;
50944 f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.ssygv to C string");
50945 if (f2py_success) {
50946 CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","ssygv:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssygv:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'"
") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString
(_flapack_error, errstring); } else
{
50947 /* Processing variable uplo */
50948 slen(uplo)capi_uplo_len = 1;
50949 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.ssygv to C string");
50950 if (f2py_success) {
50951 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","ssygv:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssygv:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
50952 /* Processing variable info */
50953 /* Processing variable n */
50954 n = shape(a,0)a_Dims[0];
50955 /* Processing variable lda */
50956 lda = max(1,n)((1 > n) ? (1) : (n));
50957 /* Processing variable w */
50958 w_Dims[0]=n;
50959 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
50960 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
50961 if (capi_w_tmp == NULL((void*)0)) {
50962 if (!PyErr_Occurred())
50963 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.ssygv to C/Fortran array" );
50964 } else {
50965 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
50966
50967 /* Processing variable b */
50968 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
50969 b_Dims[0]=n,b_Dims[1]=n;
50970 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
50971 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
50972 if (capi_b_tmp == NULL((void*)0)) {
50973 if (!PyErr_Occurred())
50974 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ssygv to C/Fortran array" );
50975 } else {
50976 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
50977
50978 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
50979 CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b");
} else
{
50980 /* Processing variable lwork */
50981 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n-1,1)((3*n-1 > 1) ? (3*n-1) : (1)); else
50982 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssygv() 4th keyword (lwork) can't be converted to int");
50983 if (f2py_success) {
50984 CHECKSCALAR(lwork>0||lwork==-1,"lwork>0||lwork==-1","4th keyword lwork","ssygv:lwork=%d",lwork)if (!(lwork>0||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssygv:lwork=%d", "(""lwork>0||lwork==-1"") failed for "
"4th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
50985 /* Processing variable ldb */
50986 ldb = max(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
50987 /* Processing variable work */
50988 work_Dims[0]=lwork;
50989 capi_work_intent |= F2PY_INTENT_HIDE8;
50990 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
50991 if (capi_work_tmp == NULL((void*)0)) {
50992 if (!PyErr_Occurred())
50993 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssygv to C/Fortran array" );
50994 } else {
50995 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
50996
50997/*end of frompyobj*/
50998#ifdef F2PY_REPORT_ATEXIT
50999f2py_start_call_clock();
51000#endif
51001/*callfortranroutine*/
51002 (*f2py_func)(&itype,jobz,uplo,&n,a,&lda,b,&ldb,w,work,&lwork,&info) ;
51003 /*(*f2py_func)(&itype,jobz,uplo,&n,&lda,&ldb,w,a,b,work,&lwork,&info,slen(jobz),slen(uplo));*/
51004if (PyErr_Occurred())
51005 f2py_success = 0;
51006#ifdef F2PY_REPORT_ATEXIT
51007f2py_stop_call_clock();
51008#endif
51009/*end of callfortranroutine*/
51010 if (f2py_success) {
51011/*pyobjfrom*/
51012/*end of pyobjfrom*/
51013 CFUNCSMESS("Building return value.\n");
51014 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info);
51015/*closepyobjfrom*/
51016/*end of closepyobjfrom*/
51017 } /*if (f2py_success) after callfortranroutine*/
51018/*cleanupfrompyobj*/
51019 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
51020 } /*if (capi_work_tmp == NULL) ... else of work*/
51021 /* End of cleaning variable work */
51022 /* End of cleaning variable ldb */
51023 } /*CHECKSCALAR(lwork>0||lwork==-1)*/
51024 } /*if (f2py_success) of lwork*/
51025 /* End of cleaning variable lwork */
51026 } /*CHECKARRAY(shape(b,0)==shape(b,1))*/
51027 } /*CHECKARRAY(shape(b,0)==n)*/
51028 if((PyObject *)capi_b_tmp!=b_capi) {
51029 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
51030 } /*if (capi_b_tmp == NULL) ... else of b*/
51031 /* End of cleaning variable b */
51032 } /*if (capi_w_tmp == NULL) ... else of w*/
51033 /* End of cleaning variable w */
51034 /* End of cleaning variable lda */
51035 /* End of cleaning variable n */
51036 /* End of cleaning variable info */
51037 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
51038 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
51039 } /*if (f2py_success) of uplo*/
51040 /* End of cleaning variable uplo */
51041 } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/
51042 STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0);
51043 } /*if (f2py_success) of jobz*/
51044 /* End of cleaning variable jobz */
51045 } /*CHECKSCALAR(itype > 0 || itype < 4)*/
51046 } /*if (f2py_success) of itype*/
51047 /* End of cleaning variable itype */
51048 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
51049 } /*if (capi_a_tmp == NULL) ... else of a*/
51050 /* End of cleaning variable a */
51051/*end of cleanupfrompyobj*/
51052 if (capi_buildvalue == NULL((void*)0)) {
51053/*routdebugfailure*/
51054 } else {
51055/*routdebugleave*/
51056 }
51057 CFUNCSMESS("Freeing memory.\n");
51058/*freemem*/
51059#ifdef F2PY_REPORT_ATEXIT
51060f2py_stop_clock();
51061#endif
51062 return capi_buildvalue;
51063}
51064/******************************** end of ssygv ********************************/
51065
51066/*********************************** dsygv ***********************************/
51067static char doc_f2py_rout__flapack_dsygv[] = "\
51068w,v,info = dsygv(a,b,[itype,jobz,uplo,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``dsygv``.\
51069\n\nParameters\n----------\n"
51070"a : input rank-2 array('d') with bounds (n,n)\n"
51071"b : input rank-2 array('d') with bounds (n,n)\n"
51072"\nOther Parameters\n----------------\n"
51073"itype : input int, optional\n Default: 1\n"
51074"jobz : input string(len=1), optional\n Default: 'V'\n"
51075"uplo : input string(len=1), optional\n Default: 'L'\n"
51076"overwrite_a : input int, optional\n Default: 0\n"
51077"overwrite_b : input int, optional\n Default: 0\n"
51078"lwork : input int, optional\n Default: max(3*n-1,1)\n"
51079"\nReturns\n-------\n"
51080"w : rank-1 array('d') with bounds (n)\n"
51081"v : rank-2 array('d') with bounds (n,n) and a storage\n"
51082"info : int";
51083/* extern void F_FUNC(dsygv,DSYGV)(F_INT*,char*,char*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */
51084static PyObject *f2py_rout__flapack_dsygv(const PyObject *capi_self,
51085 PyObject *capi_args,
51086 PyObject *capi_keywds,
51087 void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
51088 PyObject * volatile capi_buildvalue = NULL((void*)0);
51089 volatile int f2py_success = 1;
51090/*decl*/
51091
51092 int itype = 0;
51093 PyObject *itype_capi = Py_None(&_Py_NoneStruct);
51094 string jobz = NULL((void*)0);
51095 int slen(jobz)capi_jobz_len;
51096 PyObject *jobz_capi = Py_None(&_Py_NoneStruct);
51097 string uplo = NULL((void*)0);
51098 int slen(uplo)capi_uplo_len;
51099 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
51100 int n = 0;
51101 int lda = 0;
51102 int ldb = 0;
51103 double *w = NULL((void*)0);
51104 npy_intp w_Dims[1] = {-1};
51105 const int w_Rank = 1;
51106 PyArrayObject *capi_w_tmp = NULL((void*)0);
51107 int capi_w_intent = 0;
51108 double *a = NULL((void*)0);
51109 npy_intp a_Dims[2] = {-1, -1};
51110 const int a_Rank = 2;
51111 PyArrayObject *capi_a_tmp = NULL((void*)0);
51112 int capi_a_intent = 0;
51113 int capi_overwrite_a = 0;
51114 PyObject *a_capi = Py_None(&_Py_NoneStruct);
51115 double *b = NULL((void*)0);
51116 npy_intp b_Dims[2] = {-1, -1};
51117 const int b_Rank = 2;
51118 PyArrayObject *capi_b_tmp = NULL((void*)0);
51119 int capi_b_intent = 0;
51120 int capi_overwrite_b = 0;
51121 PyObject *b_capi = Py_None(&_Py_NoneStruct);
51122 double *work = NULL((void*)0);
51123 npy_intp work_Dims[1] = {-1};
51124 const int work_Rank = 1;
51125 PyArrayObject *capi_work_tmp = NULL((void*)0);
51126 int capi_work_intent = 0;
51127 int lwork = 0;
51128 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
51129 int info = 0;
51130 static char *capi_kwlist[] = {"a","b","itype","jobz","uplo","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
51131
51132/*routdebugenter*/
51133#ifdef F2PY_REPORT_ATEXIT
51134f2py_start_clock();
51135#endif
51136 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
51137 "OO|OOOOii:_flapack.dsygv",\
51138 capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&uplo_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
51139 return NULL((void*)0);
51140/*frompyobj*/
51141 /* Processing variable a */
51142 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
51143 ;
51144 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
51145 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
51146 if (capi_a_tmp == NULL((void*)0)) {
51147 if (!PyErr_Occurred())
51148 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsygv to C/Fortran array" );
51149 } else {
51150 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
51151
51152 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
51153 /* Processing variable itype */
51154 if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else
51155 f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.dsygv() 1st keyword (itype) can't be converted to int");
51156 if (f2py_success) {
51157 CHECKSCALAR(itype > 0 || itype < 4,"itype > 0 || itype < 4","1st keyword itype","dsygv:itype=%d",itype)if (!(itype > 0 || itype < 4)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsygv:itype=%d", "(""itype > 0 || itype < 4"") failed for "
"1st keyword itype", itype); PyErr_SetString(_flapack_error,errstring
); } else
{
51158 /* Processing variable jobz */
51159 slen(jobz)capi_jobz_len = 1;
51160 f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.dsygv to C string");
51161 if (f2py_success) {
51162 CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","dsygv:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsygv:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'"
") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString
(_flapack_error, errstring); } else
{
51163 /* Processing variable uplo */
51164 slen(uplo)capi_uplo_len = 1;
51165 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.dsygv to C string");
51166 if (f2py_success) {
51167 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","dsygv:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsygv:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
51168 /* Processing variable info */
51169 /* Processing variable n */
51170 n = shape(a,0)a_Dims[0];
51171 /* Processing variable lda */
51172 lda = max(1,n)((1 > n) ? (1) : (n));
51173 /* Processing variable w */
51174 w_Dims[0]=n;
51175 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
51176 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
51177 if (capi_w_tmp == NULL((void*)0)) {
51178 if (!PyErr_Occurred())
51179 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dsygv to C/Fortran array" );
51180 } else {
51181 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
51182
51183 /* Processing variable b */
51184 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
51185 b_Dims[0]=n,b_Dims[1]=n;
51186 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
51187 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
51188 if (capi_b_tmp == NULL((void*)0)) {
51189 if (!PyErr_Occurred())
51190 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dsygv to C/Fortran array" );
51191 } else {
51192 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
51193
51194 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
51195 CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b");
} else
{
51196 /* Processing variable lwork */
51197 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n-1,1)((3*n-1 > 1) ? (3*n-1) : (1)); else
51198 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsygv() 4th keyword (lwork) can't be converted to int");
51199 if (f2py_success) {
51200 CHECKSCALAR(lwork>0||lwork==-1,"lwork>0||lwork==-1","4th keyword lwork","dsygv:lwork=%d",lwork)if (!(lwork>0||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsygv:lwork=%d", "(""lwork>0||lwork==-1"") failed for "
"4th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
51201 /* Processing variable ldb */
51202 ldb = max(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
51203 /* Processing variable work */
51204 work_Dims[0]=lwork;
51205 capi_work_intent |= F2PY_INTENT_HIDE8;
51206 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
51207 if (capi_work_tmp == NULL((void*)0)) {
51208 if (!PyErr_Occurred())
51209 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsygv to C/Fortran array" );
51210 } else {
51211 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
51212
51213/*end of frompyobj*/
51214#ifdef F2PY_REPORT_ATEXIT
51215f2py_start_call_clock();
51216#endif
51217/*callfortranroutine*/
51218 (*f2py_func)(&itype,jobz,uplo,&n,a,&lda,b,&ldb,w,work,&lwork,&info) ;
51219 /*(*f2py_func)(&itype,jobz,uplo,&n,&lda,&ldb,w,a,b,work,&lwork,&info,slen(jobz),slen(uplo));*/
51220if (PyErr_Occurred())
51221 f2py_success = 0;
51222#ifdef F2PY_REPORT_ATEXIT
51223f2py_stop_call_clock();
51224#endif
51225/*end of callfortranroutine*/
51226 if (f2py_success) {
51227/*pyobjfrom*/
51228/*end of pyobjfrom*/
51229 CFUNCSMESS("Building return value.\n");
51230 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info);
51231/*closepyobjfrom*/
51232/*end of closepyobjfrom*/
51233 } /*if (f2py_success) after callfortranroutine*/
51234/*cleanupfrompyobj*/
51235 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
51236 } /*if (capi_work_tmp == NULL) ... else of work*/
51237 /* End of cleaning variable work */
51238 /* End of cleaning variable ldb */
51239 } /*CHECKSCALAR(lwork>0||lwork==-1)*/
51240 } /*if (f2py_success) of lwork*/
51241 /* End of cleaning variable lwork */
51242 } /*CHECKARRAY(shape(b,0)==shape(b,1))*/
51243 } /*CHECKARRAY(shape(b,0)==n)*/
51244 if((PyObject *)capi_b_tmp!=b_capi) {
51245 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
51246 } /*if (capi_b_tmp == NULL) ... else of b*/
51247 /* End of cleaning variable b */
51248 } /*if (capi_w_tmp == NULL) ... else of w*/
51249 /* End of cleaning variable w */
51250 /* End of cleaning variable lda */
51251 /* End of cleaning variable n */
51252 /* End of cleaning variable info */
51253 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
51254 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
51255 } /*if (f2py_success) of uplo*/
51256 /* End of cleaning variable uplo */
51257 } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/
51258 STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0);
51259 } /*if (f2py_success) of jobz*/
51260 /* End of cleaning variable jobz */
51261 } /*CHECKSCALAR(itype > 0 || itype < 4)*/
51262 } /*if (f2py_success) of itype*/
51263 /* End of cleaning variable itype */
51264 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
51265 } /*if (capi_a_tmp == NULL) ... else of a*/
51266 /* End of cleaning variable a */
51267/*end of cleanupfrompyobj*/
51268 if (capi_buildvalue == NULL((void*)0)) {
51269/*routdebugfailure*/
51270 } else {
51271/*routdebugleave*/
51272 }
51273 CFUNCSMESS("Freeing memory.\n");
51274/*freemem*/
51275#ifdef F2PY_REPORT_ATEXIT
51276f2py_stop_clock();
51277#endif
51278 return capi_buildvalue;
51279}
51280/******************************** end of dsygv ********************************/
51281
51282/******************************** ssygv_lwork ********************************/
51283static char doc_f2py_rout__flapack_ssygv_lwork[] = "\
51284work,info = ssygv_lwork(n,[uplo])\n\nWrapper for ``ssygv_lwork``.\
51285\n\nParameters\n----------\n"
51286"n : input int\n"
51287"\nOther Parameters\n----------------\n"
51288"uplo : input string(len=1), optional\n Default: 'L'\n"
51289"\nReturns\n-------\n"
51290"work : float\n"
51291"info : int";
51292/* extern void F_FUNC(ssygv ,SSYGV )(F_INT*,char*,char*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */
51293static PyObject *f2py_rout__flapack_ssygv_lwork(const PyObject *capi_self,
51294 PyObject *capi_args,
51295 PyObject *capi_keywds,
51296 void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
51297 PyObject * volatile capi_buildvalue = NULL((void*)0);
51298 volatile int f2py_success = 1;
51299/*decl*/
51300
51301 int itype = 0;
51302 string jobz = NULL((void*)0);
51303 int slen(jobz)capi_jobz_len;
51304 PyObject *jobz_capi = Py_None(&_Py_NoneStruct);
51305 string uplo = NULL((void*)0);
51306 int slen(uplo)capi_uplo_len;
51307 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
51308 int n = 0;
51309 PyObject *n_capi = Py_None(&_Py_NoneStruct);
51310 float a = 0;
51311 int lda = 0;
51312 float b = 0;
51313 int ldb = 0;
51314 float w = 0;
51315 float work = 0;
51316 int lwork = 0;
51317 int info = 0;
51318 static char *capi_kwlist[] = {"n","uplo",NULL((void*)0)};
51319
51320/*routdebugenter*/
51321#ifdef F2PY_REPORT_ATEXIT
51322f2py_start_clock();
51323#endif
51324 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
51325 "O|O:_flapack.ssygv_lwork",\
51326 capi_kwlist,&n_capi,&uplo_capi))
51327 return NULL((void*)0);
51328/*frompyobj*/
51329 /* Processing variable n */
51330 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssygv_lwork() 1st argument (n) can't be converted to int");
51331 if (f2py_success) {
51332 /* Processing variable uplo */
51333 slen(uplo)capi_uplo_len = 1;
51334 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.ssygv_lwork to C string");
51335 if (f2py_success) {
51336 CHECKSTRING(*uplo=='U' || *uplo=='L',"*uplo=='U' || *uplo=='L'","1st keyword uplo","ssygv_lwork:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U' || *uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssygv_lwork:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U' || *uplo=='L'"
") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
51337 /* Processing variable itype */
51338 itype = 1;
51339 /* Processing variable a */
51340 /* Processing variable b */
51341 /* Processing variable lwork */
51342 lwork = -1;
51343 /* Processing variable w */
51344 /* Processing variable work */
51345 /* Processing variable info */
51346 /* Processing variable jobz */
51347 slen(jobz)capi_jobz_len = 1;
51348 f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"N",jobz_capi,"string_from_pyobj failed in converting hidden `jobz' of _flapack.ssygv_lwork to C string");
51349 if (f2py_success) {
51350 /* Processing variable lda */
51351 lda = max(1,n)((1 > n) ? (1) : (n));
51352 /* Processing variable ldb */
51353 ldb = max(1,n)((1 > n) ? (1) : (n));
51354/*end of frompyobj*/
51355#ifdef F2PY_REPORT_ATEXIT
51356f2py_start_call_clock();
51357#endif
51358/*callfortranroutine*/
51359 (*f2py_func)(&itype,jobz,uplo,&n,&a,&lda,&b,&ldb,&w,&work,&lwork,&info) ;
51360 /*(*f2py_func)(&itype,jobz,uplo,&n,&a,&lda,&b,&ldb,&w,&work,&lwork,&info,slen(jobz),slen(uplo));*/
51361if (PyErr_Occurred())
51362 f2py_success = 0;
51363#ifdef F2PY_REPORT_ATEXIT
51364f2py_stop_call_clock();
51365#endif
51366/*end of callfortranroutine*/
51367 if (f2py_success) {
51368/*pyobjfrom*/
51369/*end of pyobjfrom*/
51370 CFUNCSMESS("Building return value.\n");
51371 capi_buildvalue = Py_BuildValue("fi",work,info);
51372/*closepyobjfrom*/
51373/*end of closepyobjfrom*/
51374 } /*if (f2py_success) after callfortranroutine*/
51375/*cleanupfrompyobj*/
51376 /* End of cleaning variable ldb */
51377 /* End of cleaning variable lda */
51378 STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0);
51379 } /*if (f2py_success) of jobz*/
51380 /* End of cleaning variable jobz */
51381 /* End of cleaning variable info */
51382 /* End of cleaning variable work */
51383 /* End of cleaning variable w */
51384 /* End of cleaning variable lwork */
51385 /* End of cleaning variable b */
51386 /* End of cleaning variable a */
51387 /* End of cleaning variable itype */
51388 } /*CHECKSTRING(*uplo=='U' || *uplo=='L')*/
51389 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
51390 } /*if (f2py_success) of uplo*/
51391 /* End of cleaning variable uplo */
51392 } /*if (f2py_success) of n*/
51393 /* End of cleaning variable n */
51394/*end of cleanupfrompyobj*/
51395 if (capi_buildvalue == NULL((void*)0)) {
51396/*routdebugfailure*/
51397 } else {
51398/*routdebugleave*/
51399 }
51400 CFUNCSMESS("Freeing memory.\n");
51401/*freemem*/
51402#ifdef F2PY_REPORT_ATEXIT
51403f2py_stop_clock();
51404#endif
51405 return capi_buildvalue;
51406}
51407/***************************** end of ssygv_lwork *****************************/
51408
51409/******************************** dsygv_lwork ********************************/
51410static char doc_f2py_rout__flapack_dsygv_lwork[] = "\
51411work,info = dsygv_lwork(n,[uplo])\n\nWrapper for ``dsygv_lwork``.\
51412\n\nParameters\n----------\n"
51413"n : input int\n"
51414"\nOther Parameters\n----------------\n"
51415"uplo : input string(len=1), optional\n Default: 'L'\n"
51416"\nReturns\n-------\n"
51417"work : float\n"
51418"info : int";
51419/* extern void F_FUNC(dsygv ,DSYGV )(F_INT*,char*,char*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */
51420static PyObject *f2py_rout__flapack_dsygv_lwork(const PyObject *capi_self,
51421 PyObject *capi_args,
51422 PyObject *capi_keywds,
51423 void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
51424 PyObject * volatile capi_buildvalue = NULL((void*)0);
51425 volatile int f2py_success = 1;
51426/*decl*/
51427
51428 int itype = 0;
51429 string jobz = NULL((void*)0);
51430 int slen(jobz)capi_jobz_len;
51431 PyObject *jobz_capi = Py_None(&_Py_NoneStruct);
51432 string uplo = NULL((void*)0);
51433 int slen(uplo)capi_uplo_len;
51434 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
51435 int n = 0;
51436 PyObject *n_capi = Py_None(&_Py_NoneStruct);
51437 double a = 0;
51438 int lda = 0;
51439 double b = 0;
51440 int ldb = 0;
51441 double w = 0;
51442 double work = 0;
51443 int lwork = 0;
51444 int info = 0;
51445 static char *capi_kwlist[] = {"n","uplo",NULL((void*)0)};
51446
51447/*routdebugenter*/
51448#ifdef F2PY_REPORT_ATEXIT
51449f2py_start_clock();
51450#endif
51451 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
51452 "O|O:_flapack.dsygv_lwork",\
51453 capi_kwlist,&n_capi,&uplo_capi))
51454 return NULL((void*)0);
51455/*frompyobj*/
51456 /* Processing variable n */
51457 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsygv_lwork() 1st argument (n) can't be converted to int");
51458 if (f2py_success) {
51459 /* Processing variable uplo */
51460 slen(uplo)capi_uplo_len = 1;
51461 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.dsygv_lwork to C string");
51462 if (f2py_success) {
51463 CHECKSTRING(*uplo=='U' || *uplo=='L',"*uplo=='U' || *uplo=='L'","1st keyword uplo","dsygv_lwork:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U' || *uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsygv_lwork:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U' || *uplo=='L'"
") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
51464 /* Processing variable itype */
51465 itype = 1;
51466 /* Processing variable a */
51467 /* Processing variable b */
51468 /* Processing variable lwork */
51469 lwork = -1;
51470 /* Processing variable w */
51471 /* Processing variable work */
51472 /* Processing variable info */
51473 /* Processing variable jobz */
51474 slen(jobz)capi_jobz_len = 1;
51475 f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"N",jobz_capi,"string_from_pyobj failed in converting hidden `jobz' of _flapack.dsygv_lwork to C string");
51476 if (f2py_success) {
51477 /* Processing variable lda */
51478 lda = max(1,n)((1 > n) ? (1) : (n));
51479 /* Processing variable ldb */
51480 ldb = max(1,n)((1 > n) ? (1) : (n));
51481/*end of frompyobj*/
51482#ifdef F2PY_REPORT_ATEXIT
51483f2py_start_call_clock();
51484#endif
51485/*callfortranroutine*/
51486 (*f2py_func)(&itype,jobz,uplo,&n,&a,&lda,&b,&ldb,&w,&work,&lwork,&info) ;
51487 /*(*f2py_func)(&itype,jobz,uplo,&n,&a,&lda,&b,&ldb,&w,&work,&lwork,&info,slen(jobz),slen(uplo));*/
51488if (PyErr_Occurred())
51489 f2py_success = 0;
51490#ifdef F2PY_REPORT_ATEXIT
51491f2py_stop_call_clock();
51492#endif
51493/*end of callfortranroutine*/
51494 if (f2py_success) {
51495/*pyobjfrom*/
51496/*end of pyobjfrom*/
51497 CFUNCSMESS("Building return value.\n");
51498 capi_buildvalue = Py_BuildValue("di",work,info);
51499/*closepyobjfrom*/
51500/*end of closepyobjfrom*/
51501 } /*if (f2py_success) after callfortranroutine*/
51502/*cleanupfrompyobj*/
51503 /* End of cleaning variable ldb */
51504 /* End of cleaning variable lda */
51505 STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0);
51506 } /*if (f2py_success) of jobz*/
51507 /* End of cleaning variable jobz */
51508 /* End of cleaning variable info */
51509 /* End of cleaning variable work */
51510 /* End of cleaning variable w */
51511 /* End of cleaning variable lwork */
51512 /* End of cleaning variable b */
51513 /* End of cleaning variable a */
51514 /* End of cleaning variable itype */
51515 } /*CHECKSTRING(*uplo=='U' || *uplo=='L')*/
51516 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
51517 } /*if (f2py_success) of uplo*/
51518 /* End of cleaning variable uplo */
51519 } /*if (f2py_success) of n*/
51520 /* End of cleaning variable n */
51521/*end of cleanupfrompyobj*/
51522 if (capi_buildvalue == NULL((void*)0)) {
51523/*routdebugfailure*/
51524 } else {
51525/*routdebugleave*/
51526 }
51527 CFUNCSMESS("Freeing memory.\n");
51528/*freemem*/
51529#ifdef F2PY_REPORT_ATEXIT
51530f2py_stop_clock();
51531#endif
51532 return capi_buildvalue;
51533}
51534/***************************** end of dsygv_lwork *****************************/
51535
51536/*********************************** chegv ***********************************/
51537static char doc_f2py_rout__flapack_chegv[] = "\
51538w,v,info = chegv(a,b,[itype,jobz,uplo,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``chegv``.\
51539\n\nParameters\n----------\n"
51540"a : input rank-2 array('F') with bounds (n,n)\n"
51541"b : input rank-2 array('F') with bounds (n,n)\n"
51542"\nOther Parameters\n----------------\n"
51543"itype : input int, optional\n Default: 1\n"
51544"jobz : input string(len=1), optional\n Default: 'V'\n"
51545"uplo : input string(len=1), optional\n Default: 'L'\n"
51546"overwrite_a : input int, optional\n Default: 0\n"
51547"overwrite_b : input int, optional\n Default: 0\n"
51548"lwork : input int, optional\n Default: max(2*n-1,1)\n"
51549"\nReturns\n-------\n"
51550"w : rank-1 array('f') with bounds (n)\n"
51551"v : rank-2 array('F') with bounds (n,n) and a storage\n"
51552"info : int";
51553/* extern void F_FUNC(chegv,CHEGV)(F_INT*,char*,char*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,float*,F_INT* ); */
51554static PyObject *f2py_rout__flapack_chegv(const PyObject *capi_self,
51555 PyObject *capi_args,
51556 PyObject *capi_keywds,
51557 void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint* )) {
51558 PyObject * volatile capi_buildvalue = NULL((void*)0);
51559 volatile int f2py_success = 1;
51560/*decl*/
51561
51562 int itype = 0;
51563 PyObject *itype_capi = Py_None(&_Py_NoneStruct);
51564 string jobz = NULL((void*)0);
51565 int slen(jobz)capi_jobz_len;
51566 PyObject *jobz_capi = Py_None(&_Py_NoneStruct);
51567 string uplo = NULL((void*)0);
51568 int slen(uplo)capi_uplo_len;
51569 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
51570 int n = 0;
51571 int lda = 0;
51572 int ldb = 0;
51573 float *w = NULL((void*)0);
51574 npy_intp w_Dims[1] = {-1};
51575 const int w_Rank = 1;
51576 PyArrayObject *capi_w_tmp = NULL((void*)0);
51577 int capi_w_intent = 0;
51578 complex_float *a = NULL((void*)0);
51579 npy_intp a_Dims[2] = {-1, -1};
51580 const int a_Rank = 2;
51581 PyArrayObject *capi_a_tmp = NULL((void*)0);
51582 int capi_a_intent = 0;
51583 int capi_overwrite_a = 0;
51584 PyObject *a_capi = Py_None(&_Py_NoneStruct);
51585 complex_float *b = NULL((void*)0);
51586 npy_intp b_Dims[2] = {-1, -1};
51587 const int b_Rank = 2;
51588 PyArrayObject *capi_b_tmp = NULL((void*)0);
51589 int capi_b_intent = 0;
51590 int capi_overwrite_b = 0;
51591 PyObject *b_capi = Py_None(&_Py_NoneStruct);
51592 complex_float *work = NULL((void*)0);
51593 npy_intp work_Dims[1] = {-1};
51594 const int work_Rank = 1;
51595 PyArrayObject *capi_work_tmp = NULL((void*)0);
51596 int capi_work_intent = 0;
51597 int lwork = 0;
51598 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
51599 float *rwork = NULL((void*)0);
51600 npy_intp rwork_Dims[1] = {-1};
51601 const int rwork_Rank = 1;
51602 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
51603 int capi_rwork_intent = 0;
51604 int info = 0;
51605 static char *capi_kwlist[] = {"a","b","itype","jobz","uplo","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
51606
51607/*routdebugenter*/
51608#ifdef F2PY_REPORT_ATEXIT
51609f2py_start_clock();
51610#endif
51611 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
51612 "OO|OOOOii:_flapack.chegv",\
51613 capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&uplo_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
51614 return NULL((void*)0);
51615/*frompyobj*/
51616 /* Processing variable a */
51617 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
51618 ;
51619 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
51620 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
51621 if (capi_a_tmp == NULL((void*)0)) {
51622 if (!PyErr_Occurred())
51623 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.chegv to C/Fortran array" );
51624 } else {
51625 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
51626
51627 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
51628 /* Processing variable itype */
51629 if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else
51630 f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.chegv() 1st keyword (itype) can't be converted to int");
51631 if (f2py_success) {
51632 CHECKSCALAR(itype > 0 || itype < 4,"itype > 0 || itype < 4","1st keyword itype","chegv:itype=%d",itype)if (!(itype > 0 || itype < 4)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chegv:itype=%d", "(""itype > 0 || itype < 4"") failed for "
"1st keyword itype", itype); PyErr_SetString(_flapack_error,errstring
); } else
{
51633 /* Processing variable jobz */
51634 slen(jobz)capi_jobz_len = 1;
51635 f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.chegv to C string");
51636 if (f2py_success) {
51637 CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","chegv:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chegv:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'"
") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString
(_flapack_error, errstring); } else
{
51638 /* Processing variable uplo */
51639 slen(uplo)capi_uplo_len = 1;
51640 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.chegv to C string");
51641 if (f2py_success) {
51642 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","chegv:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chegv:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
51643 /* Processing variable info */
51644 /* Processing variable n */
51645 n = shape(a,0)a_Dims[0];
51646 /* Processing variable lda */
51647 lda = max(1,n)((1 > n) ? (1) : (n));
51648 /* Processing variable rwork */
51649 rwork_Dims[0]=MAX(1,3*n-2)((1 > 3*n-2) ? (1) : (3*n-2));
51650 capi_rwork_intent |= F2PY_INTENT_HIDE8;
51651 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
51652 if (capi_rwork_tmp == NULL((void*)0)) {
51653 if (!PyErr_Occurred())
51654 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.chegv to C/Fortran array" );
51655 } else {
51656 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
51657
51658 /* Processing variable w */
51659 w_Dims[0]=n;
51660 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
51661 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
51662 if (capi_w_tmp == NULL((void*)0)) {
51663 if (!PyErr_Occurred())
51664 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.chegv to C/Fortran array" );
51665 } else {
51666 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
51667
51668 /* Processing variable b */
51669 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
51670 b_Dims[0]=n,b_Dims[1]=n;
51671 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
51672 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
51673 if (capi_b_tmp == NULL((void*)0)) {
51674 if (!PyErr_Occurred())
51675 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.chegv to C/Fortran array" );
51676 } else {
51677 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
51678
51679 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
51680 CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b");
} else
{
51681 /* Processing variable lwork */
51682 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n-1,1)((2*n-1 > 1) ? (2*n-1) : (1)); else
51683 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.chegv() 4th keyword (lwork) can't be converted to int");
51684 if (f2py_success) {
51685 CHECKSCALAR(lwork>0||lwork==-1,"lwork>0||lwork==-1","4th keyword lwork","chegv:lwork=%d",lwork)if (!(lwork>0||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chegv:lwork=%d", "(""lwork>0||lwork==-1"") failed for "
"4th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
51686 /* Processing variable ldb */
51687 ldb = max(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
51688 /* Processing variable work */
51689 work_Dims[0]=lwork;
51690 capi_work_intent |= F2PY_INTENT_HIDE8;
51691 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
51692 if (capi_work_tmp == NULL((void*)0)) {
51693 if (!PyErr_Occurred())
51694 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.chegv to C/Fortran array" );
51695 } else {
51696 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
51697
51698/*end of frompyobj*/
51699#ifdef F2PY_REPORT_ATEXIT
51700f2py_start_call_clock();
51701#endif
51702/*callfortranroutine*/
51703 (*f2py_func)(&itype,jobz,uplo,&n,a,&lda,b,&ldb,w,work,&lwork,rwork,&info) ;
51704 /*(*f2py_func)(&itype,jobz,uplo,&n,&lda,&ldb,w,a,b,work,&lwork,rwork,&info,slen(jobz),slen(uplo));*/
51705if (PyErr_Occurred())
51706 f2py_success = 0;
51707#ifdef F2PY_REPORT_ATEXIT
51708f2py_stop_call_clock();
51709#endif
51710/*end of callfortranroutine*/
51711 if (f2py_success) {
51712/*pyobjfrom*/
51713/*end of pyobjfrom*/
51714 CFUNCSMESS("Building return value.\n");
51715 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info);
51716/*closepyobjfrom*/
51717/*end of closepyobjfrom*/
51718 } /*if (f2py_success) after callfortranroutine*/
51719/*cleanupfrompyobj*/
51720 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
51721 } /*if (capi_work_tmp == NULL) ... else of work*/
51722 /* End of cleaning variable work */
51723 /* End of cleaning variable ldb */
51724 } /*CHECKSCALAR(lwork>0||lwork==-1)*/
51725 } /*if (f2py_success) of lwork*/
51726 /* End of cleaning variable lwork */
51727 } /*CHECKARRAY(shape(b,0)==shape(b,1))*/
51728 } /*CHECKARRAY(shape(b,0)==n)*/
51729 if((PyObject *)capi_b_tmp!=b_capi) {
51730 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
51731 } /*if (capi_b_tmp == NULL) ... else of b*/
51732 /* End of cleaning variable b */
51733 } /*if (capi_w_tmp == NULL) ... else of w*/
51734 /* End of cleaning variable w */
51735 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
51736 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
51737 /* End of cleaning variable rwork */
51738 /* End of cleaning variable lda */
51739 /* End of cleaning variable n */
51740 /* End of cleaning variable info */
51741 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
51742 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
51743 } /*if (f2py_success) of uplo*/
51744 /* End of cleaning variable uplo */
51745 } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/
51746 STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0);
51747 } /*if (f2py_success) of jobz*/
51748 /* End of cleaning variable jobz */
51749 } /*CHECKSCALAR(itype > 0 || itype < 4)*/
51750 } /*if (f2py_success) of itype*/
51751 /* End of cleaning variable itype */
51752 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
51753 } /*if (capi_a_tmp == NULL) ... else of a*/
51754 /* End of cleaning variable a */
51755/*end of cleanupfrompyobj*/
51756 if (capi_buildvalue == NULL((void*)0)) {
51757/*routdebugfailure*/
51758 } else {
51759/*routdebugleave*/
51760 }
51761 CFUNCSMESS("Freeing memory.\n");
51762/*freemem*/
51763#ifdef F2PY_REPORT_ATEXIT
51764f2py_stop_clock();
51765#endif
51766 return capi_buildvalue;
51767}
51768/******************************** end of chegv ********************************/
51769
51770/*********************************** zhegv ***********************************/
51771static char doc_f2py_rout__flapack_zhegv[] = "\
51772w,v,info = zhegv(a,b,[itype,jobz,uplo,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``zhegv``.\
51773\n\nParameters\n----------\n"
51774"a : input rank-2 array('D') with bounds (n,n)\n"
51775"b : input rank-2 array('D') with bounds (n,n)\n"
51776"\nOther Parameters\n----------------\n"
51777"itype : input int, optional\n Default: 1\n"
51778"jobz : input string(len=1), optional\n Default: 'V'\n"
51779"uplo : input string(len=1), optional\n Default: 'L'\n"
51780"overwrite_a : input int, optional\n Default: 0\n"
51781"overwrite_b : input int, optional\n Default: 0\n"
51782"lwork : input int, optional\n Default: max(2*n-1,1)\n"
51783"\nReturns\n-------\n"
51784"w : rank-1 array('d') with bounds (n)\n"
51785"v : rank-2 array('D') with bounds (n,n) and a storage\n"
51786"info : int";
51787/* extern void F_FUNC(zhegv,ZHEGV)(F_INT*,char*,char*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,double*,F_INT* ); */
51788static PyObject *f2py_rout__flapack_zhegv(const PyObject *capi_self,
51789 PyObject *capi_args,
51790 PyObject *capi_keywds,
51791 void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint* )) {
51792 PyObject * volatile capi_buildvalue = NULL((void*)0);
51793 volatile int f2py_success = 1;
51794/*decl*/
51795
51796 int itype = 0;
51797 PyObject *itype_capi = Py_None(&_Py_NoneStruct);
51798 string jobz = NULL((void*)0);
51799 int slen(jobz)capi_jobz_len;
51800 PyObject *jobz_capi = Py_None(&_Py_NoneStruct);
51801 string uplo = NULL((void*)0);
51802 int slen(uplo)capi_uplo_len;
51803 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
51804 int n = 0;
51805 int lda = 0;
51806 int ldb = 0;
51807 double *w = NULL((void*)0);
51808 npy_intp w_Dims[1] = {-1};
51809 const int w_Rank = 1;
51810 PyArrayObject *capi_w_tmp = NULL((void*)0);
51811 int capi_w_intent = 0;
51812 complex_double *a = NULL((void*)0);
51813 npy_intp a_Dims[2] = {-1, -1};
51814 const int a_Rank = 2;
51815 PyArrayObject *capi_a_tmp = NULL((void*)0);
51816 int capi_a_intent = 0;
51817 int capi_overwrite_a = 0;
51818 PyObject *a_capi = Py_None(&_Py_NoneStruct);
51819 complex_double *b = NULL((void*)0);
51820 npy_intp b_Dims[2] = {-1, -1};
51821 const int b_Rank = 2;
51822 PyArrayObject *capi_b_tmp = NULL((void*)0);
51823 int capi_b_intent = 0;
51824 int capi_overwrite_b = 0;
51825 PyObject *b_capi = Py_None(&_Py_NoneStruct);
51826 complex_double *work = NULL((void*)0);
51827 npy_intp work_Dims[1] = {-1};
51828 const int work_Rank = 1;
51829 PyArrayObject *capi_work_tmp = NULL((void*)0);
51830 int capi_work_intent = 0;
51831 int lwork = 0;
51832 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
51833 double *rwork = NULL((void*)0);
51834 npy_intp rwork_Dims[1] = {-1};
51835 const int rwork_Rank = 1;
51836 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
51837 int capi_rwork_intent = 0;
51838 int info = 0;
51839 static char *capi_kwlist[] = {"a","b","itype","jobz","uplo","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
51840
51841/*routdebugenter*/
51842#ifdef F2PY_REPORT_ATEXIT
51843f2py_start_clock();
51844#endif
51845 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
51846 "OO|OOOOii:_flapack.zhegv",\
51847 capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&uplo_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
51848 return NULL((void*)0);
51849/*frompyobj*/
51850 /* Processing variable a */
51851 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
51852 ;
51853 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
51854 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
51855 if (capi_a_tmp == NULL((void*)0)) {
51856 if (!PyErr_Occurred())
51857 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zhegv to C/Fortran array" );
51858 } else {
51859 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
51860
51861 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
51862 /* Processing variable itype */
51863 if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else
51864 f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.zhegv() 1st keyword (itype) can't be converted to int");
51865 if (f2py_success) {
51866 CHECKSCALAR(itype > 0 || itype < 4,"itype > 0 || itype < 4","1st keyword itype","zhegv:itype=%d",itype)if (!(itype > 0 || itype < 4)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhegv:itype=%d", "(""itype > 0 || itype < 4"") failed for "
"1st keyword itype", itype); PyErr_SetString(_flapack_error,errstring
); } else
{
51867 /* Processing variable jobz */
51868 slen(jobz)capi_jobz_len = 1;
51869 f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.zhegv to C string");
51870 if (f2py_success) {
51871 CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","zhegv:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhegv:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'"
") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString
(_flapack_error, errstring); } else
{
51872 /* Processing variable uplo */
51873 slen(uplo)capi_uplo_len = 1;
51874 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.zhegv to C string");
51875 if (f2py_success) {
51876 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","zhegv:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhegv:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
51877 /* Processing variable info */
51878 /* Processing variable n */
51879 n = shape(a,0)a_Dims[0];
51880 /* Processing variable lda */
51881 lda = max(1,n)((1 > n) ? (1) : (n));
51882 /* Processing variable rwork */
51883 rwork_Dims[0]=MAX(1,3*n-2)((1 > 3*n-2) ? (1) : (3*n-2));
51884 capi_rwork_intent |= F2PY_INTENT_HIDE8;
51885 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
51886 if (capi_rwork_tmp == NULL((void*)0)) {
51887 if (!PyErr_Occurred())
51888 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zhegv to C/Fortran array" );
51889 } else {
51890 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
51891
51892 /* Processing variable w */
51893 w_Dims[0]=n;
51894 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
51895 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
51896 if (capi_w_tmp == NULL((void*)0)) {
51897 if (!PyErr_Occurred())
51898 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zhegv to C/Fortran array" );
51899 } else {
51900 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
51901
51902 /* Processing variable b */
51903 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
51904 b_Dims[0]=n,b_Dims[1]=n;
51905 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
51906 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
51907 if (capi_b_tmp == NULL((void*)0)) {
51908 if (!PyErr_Occurred())
51909 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zhegv to C/Fortran array" );
51910 } else {
51911 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
51912
51913 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
51914 CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b");
} else
{
51915 /* Processing variable lwork */
51916 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n-1,1)((2*n-1 > 1) ? (2*n-1) : (1)); else
51917 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zhegv() 4th keyword (lwork) can't be converted to int");
51918 if (f2py_success) {
51919 CHECKSCALAR(lwork>0||lwork==-1,"lwork>0||lwork==-1","4th keyword lwork","zhegv:lwork=%d",lwork)if (!(lwork>0||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhegv:lwork=%d", "(""lwork>0||lwork==-1"") failed for "
"4th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
51920 /* Processing variable ldb */
51921 ldb = max(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
51922 /* Processing variable work */
51923 work_Dims[0]=lwork;
51924 capi_work_intent |= F2PY_INTENT_HIDE8;
51925 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
51926 if (capi_work_tmp == NULL((void*)0)) {
51927 if (!PyErr_Occurred())
51928 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zhegv to C/Fortran array" );
51929 } else {
51930 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
51931
51932/*end of frompyobj*/
51933#ifdef F2PY_REPORT_ATEXIT
51934f2py_start_call_clock();
51935#endif
51936/*callfortranroutine*/
51937 (*f2py_func)(&itype,jobz,uplo,&n,a,&lda,b,&ldb,w,work,&lwork,rwork,&info) ;
51938 /*(*f2py_func)(&itype,jobz,uplo,&n,&lda,&ldb,w,a,b,work,&lwork,rwork,&info,slen(jobz),slen(uplo));*/
51939if (PyErr_Occurred())
51940 f2py_success = 0;
51941#ifdef F2PY_REPORT_ATEXIT
51942f2py_stop_call_clock();
51943#endif
51944/*end of callfortranroutine*/
51945 if (f2py_success) {
51946/*pyobjfrom*/
51947/*end of pyobjfrom*/
51948 CFUNCSMESS("Building return value.\n");
51949 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info);
51950/*closepyobjfrom*/
51951/*end of closepyobjfrom*/
51952 } /*if (f2py_success) after callfortranroutine*/
51953/*cleanupfrompyobj*/
51954 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
51955 } /*if (capi_work_tmp == NULL) ... else of work*/
51956 /* End of cleaning variable work */
51957 /* End of cleaning variable ldb */
51958 } /*CHECKSCALAR(lwork>0||lwork==-1)*/
51959 } /*if (f2py_success) of lwork*/
51960 /* End of cleaning variable lwork */
51961 } /*CHECKARRAY(shape(b,0)==shape(b,1))*/
51962 } /*CHECKARRAY(shape(b,0)==n)*/
51963 if((PyObject *)capi_b_tmp!=b_capi) {
51964 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
51965 } /*if (capi_b_tmp == NULL) ... else of b*/
51966 /* End of cleaning variable b */
51967 } /*if (capi_w_tmp == NULL) ... else of w*/
51968 /* End of cleaning variable w */
51969 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
51970 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
51971 /* End of cleaning variable rwork */
51972 /* End of cleaning variable lda */
51973 /* End of cleaning variable n */
51974 /* End of cleaning variable info */
51975 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
51976 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
51977 } /*if (f2py_success) of uplo*/
51978 /* End of cleaning variable uplo */
51979 } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/
51980 STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0);
51981 } /*if (f2py_success) of jobz*/
51982 /* End of cleaning variable jobz */
51983 } /*CHECKSCALAR(itype > 0 || itype < 4)*/
51984 } /*if (f2py_success) of itype*/
51985 /* End of cleaning variable itype */
51986 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
51987 } /*if (capi_a_tmp == NULL) ... else of a*/
51988 /* End of cleaning variable a */
51989/*end of cleanupfrompyobj*/
51990 if (capi_buildvalue == NULL((void*)0)) {
51991/*routdebugfailure*/
51992 } else {
51993/*routdebugleave*/
51994 }
51995 CFUNCSMESS("Freeing memory.\n");
51996/*freemem*/
51997#ifdef F2PY_REPORT_ATEXIT
51998f2py_stop_clock();
51999#endif
52000 return capi_buildvalue;
52001}
52002/******************************** end of zhegv ********************************/
52003
52004/******************************** chegv_lwork ********************************/
52005static char doc_f2py_rout__flapack_chegv_lwork[] = "\
52006work,info = chegv_lwork(n,[uplo])\n\nWrapper for ``chegv_lwork``.\
52007\n\nParameters\n----------\n"
52008"n : input int\n"
52009"\nOther Parameters\n----------------\n"
52010"uplo : input string(len=1), optional\n Default: 'L'\n"
52011"\nReturns\n-------\n"
52012"work : complex\n"
52013"info : int";
52014/* extern void F_FUNC(chegv ,CHEGV )(F_INT*,char*,char*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,float*,F_INT* ); */
52015static PyObject *f2py_rout__flapack_chegv_lwork(const PyObject *capi_self,
52016 PyObject *capi_args,
52017 PyObject *capi_keywds,
52018 void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint* )) {
52019 PyObject * volatile capi_buildvalue = NULL((void*)0);
52020 volatile int f2py_success = 1;
52021/*decl*/
52022
52023 int itype = 0;
52024 string jobz = NULL((void*)0);
52025 int slen(jobz)capi_jobz_len;
52026 PyObject *jobz_capi = Py_None(&_Py_NoneStruct);
52027 string uplo = NULL((void*)0);
52028 int slen(uplo)capi_uplo_len;
52029 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
52030 int n = 0;
52031 PyObject *n_capi = Py_None(&_Py_NoneStruct);
52032 complex_float a;
52033 int lda = 0;
52034 complex_float b;
52035 int ldb = 0;
52036 float w = 0;
52037 complex_float work;
52038 PyObject *work_capi = Py_None(&_Py_NoneStruct);
52039 int lwork = 0;
52040 float rwork = 0;
52041 int info = 0;
52042 static char *capi_kwlist[] = {"n","uplo",NULL((void*)0)};
52043
52044/*routdebugenter*/
52045#ifdef F2PY_REPORT_ATEXIT
52046f2py_start_clock();
52047#endif
52048 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
52049 "O|O:_flapack.chegv_lwork",\
52050 capi_kwlist,&n_capi,&uplo_capi))
52051 return NULL((void*)0);
52052/*frompyobj*/
52053 /* Processing variable n */
52054 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.chegv_lwork() 1st argument (n) can't be converted to int");
52055 if (f2py_success) {
52056 /* Processing variable uplo */
52057 slen(uplo)capi_uplo_len = 1;
52058 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.chegv_lwork to C string");
52059 if (f2py_success) {
52060 CHECKSTRING(*uplo=='U' || *uplo=='L',"*uplo=='U' || *uplo=='L'","1st keyword uplo","chegv_lwork:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U' || *uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chegv_lwork:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U' || *uplo=='L'"
") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
52061 /* Processing variable itype */
52062 itype = 1;
52063 /* Processing variable a */
52064 /* Processing variable b */
52065 /* Processing variable lwork */
52066 lwork = -1;
52067 /* Processing variable w */
52068 /* Processing variable rwork */
52069 /* Processing variable work */
52070 /* Processing variable info */
52071 /* Processing variable jobz */
52072 slen(jobz)capi_jobz_len = 1;
52073 f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"N",jobz_capi,"string_from_pyobj failed in converting hidden `jobz' of _flapack.chegv_lwork to C string");
52074 if (f2py_success) {
52075 /* Processing variable lda */
52076 lda = MAX(1,n)((1 > n) ? (1) : (n));
52077 /* Processing variable ldb */
52078 ldb = MAX(1,n)((1 > n) ? (1) : (n));
52079/*end of frompyobj*/
52080#ifdef F2PY_REPORT_ATEXIT
52081f2py_start_call_clock();
52082#endif
52083/*callfortranroutine*/
52084 (*f2py_func)(&itype,jobz,uplo,&n,&a,&lda,&b,&ldb,&w,&work,&lwork,&rwork,&info) ;
52085 /*(*f2py_func)(&itype,jobz,uplo,&n,&a,&lda,&b,&ldb,&w,&work,&lwork,&rwork,&info,slen(jobz),slen(uplo));*/
52086if (PyErr_Occurred())
52087 f2py_success = 0;
52088#ifdef F2PY_REPORT_ATEXIT
52089f2py_stop_call_clock();
52090#endif
52091/*end of callfortranroutine*/
52092 if (f2py_success) {
52093/*pyobjfrom*/
52094 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
52095/*end of pyobjfrom*/
52096 CFUNCSMESS("Building return value.\n");
52097 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
52098/*closepyobjfrom*/
52099/*end of closepyobjfrom*/
52100 } /*if (f2py_success) after callfortranroutine*/
52101/*cleanupfrompyobj*/
52102 /* End of cleaning variable ldb */
52103 /* End of cleaning variable lda */
52104 STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0);
52105 } /*if (f2py_success) of jobz*/
52106 /* End of cleaning variable jobz */
52107 /* End of cleaning variable info */
52108 /* End of cleaning variable work */
52109 /* End of cleaning variable rwork */
52110 /* End of cleaning variable w */
52111 /* End of cleaning variable lwork */
52112 /* End of cleaning variable b */
52113 /* End of cleaning variable a */
52114 /* End of cleaning variable itype */
52115 } /*CHECKSTRING(*uplo=='U' || *uplo=='L')*/
52116 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
52117 } /*if (f2py_success) of uplo*/
52118 /* End of cleaning variable uplo */
52119 } /*if (f2py_success) of n*/
52120 /* End of cleaning variable n */
52121/*end of cleanupfrompyobj*/
52122 if (capi_buildvalue == NULL((void*)0)) {
52123/*routdebugfailure*/
52124 } else {
52125/*routdebugleave*/
52126 }
52127 CFUNCSMESS("Freeing memory.\n");
52128/*freemem*/
52129#ifdef F2PY_REPORT_ATEXIT
52130f2py_stop_clock();
52131#endif
52132 return capi_buildvalue;
52133}
52134/***************************** end of chegv_lwork *****************************/
52135
52136/******************************** zhegv_lwork ********************************/
52137static char doc_f2py_rout__flapack_zhegv_lwork[] = "\
52138work,info = zhegv_lwork(n,[uplo])\n\nWrapper for ``zhegv_lwork``.\
52139\n\nParameters\n----------\n"
52140"n : input int\n"
52141"\nOther Parameters\n----------------\n"
52142"uplo : input string(len=1), optional\n Default: 'L'\n"
52143"\nReturns\n-------\n"
52144"work : complex\n"
52145"info : int";
52146/* extern void F_FUNC(zhegv ,ZHEGV )(F_INT*,char*,char*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,double*,F_INT* ); */
52147static PyObject *f2py_rout__flapack_zhegv_lwork(const PyObject *capi_self,
52148 PyObject *capi_args,
52149 PyObject *capi_keywds,
52150 void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint* )) {
52151 PyObject * volatile capi_buildvalue = NULL((void*)0);
52152 volatile int f2py_success = 1;
52153/*decl*/
52154
52155 int itype = 0;
52156 string jobz = NULL((void*)0);
52157 int slen(jobz)capi_jobz_len;
52158 PyObject *jobz_capi = Py_None(&_Py_NoneStruct);
52159 string uplo = NULL((void*)0);
52160 int slen(uplo)capi_uplo_len;
52161 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
52162 int n = 0;
52163 PyObject *n_capi = Py_None(&_Py_NoneStruct);
52164 complex_double a;
52165 int lda = 0;
52166 complex_double b;
52167 int ldb = 0;
52168 double w = 0;
52169 complex_double work;
52170 PyObject *work_capi = Py_None(&_Py_NoneStruct);
52171 int lwork = 0;
52172 double rwork = 0;
52173 int info = 0;
52174 static char *capi_kwlist[] = {"n","uplo",NULL((void*)0)};
52175
52176/*routdebugenter*/
52177#ifdef F2PY_REPORT_ATEXIT
52178f2py_start_clock();
52179#endif
52180 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
52181 "O|O:_flapack.zhegv_lwork",\
52182 capi_kwlist,&n_capi,&uplo_capi))
52183 return NULL((void*)0);
52184/*frompyobj*/
52185 /* Processing variable n */
52186 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zhegv_lwork() 1st argument (n) can't be converted to int");
52187 if (f2py_success) {
52188 /* Processing variable uplo */
52189 slen(uplo)capi_uplo_len = 1;
52190 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.zhegv_lwork to C string");
52191 if (f2py_success) {
52192 CHECKSTRING(*uplo=='U' || *uplo=='L',"*uplo=='U' || *uplo=='L'","1st keyword uplo","zhegv_lwork:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U' || *uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhegv_lwork:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U' || *uplo=='L'"
") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
52193 /* Processing variable itype */
52194 itype = 1;
52195 /* Processing variable a */
52196 /* Processing variable b */
52197 /* Processing variable lwork */
52198 lwork = -1;
52199 /* Processing variable w */
52200 /* Processing variable rwork */
52201 /* Processing variable work */
52202 /* Processing variable info */
52203 /* Processing variable jobz */
52204 slen(jobz)capi_jobz_len = 1;
52205 f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"N",jobz_capi,"string_from_pyobj failed in converting hidden `jobz' of _flapack.zhegv_lwork to C string");
52206 if (f2py_success) {
52207 /* Processing variable lda */
52208 lda = MAX(1,n)((1 > n) ? (1) : (n));
52209 /* Processing variable ldb */
52210 ldb = MAX(1,n)((1 > n) ? (1) : (n));
52211/*end of frompyobj*/
52212#ifdef F2PY_REPORT_ATEXIT
52213f2py_start_call_clock();
52214#endif
52215/*callfortranroutine*/
52216 (*f2py_func)(&itype,jobz,uplo,&n,&a,&lda,&b,&ldb,&w,&work,&lwork,&rwork,&info) ;
52217 /*(*f2py_func)(&itype,jobz,uplo,&n,&a,&lda,&b,&ldb,&w,&work,&lwork,&rwork,&info,slen(jobz),slen(uplo));*/
52218if (PyErr_Occurred())
52219 f2py_success = 0;
52220#ifdef F2PY_REPORT_ATEXIT
52221f2py_stop_call_clock();
52222#endif
52223/*end of callfortranroutine*/
52224 if (f2py_success) {
52225/*pyobjfrom*/
52226 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
52227/*end of pyobjfrom*/
52228 CFUNCSMESS("Building return value.\n");
52229 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
52230/*closepyobjfrom*/
52231/*end of closepyobjfrom*/
52232 } /*if (f2py_success) after callfortranroutine*/
52233/*cleanupfrompyobj*/
52234 /* End of cleaning variable ldb */
52235 /* End of cleaning variable lda */
52236 STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0);
52237 } /*if (f2py_success) of jobz*/
52238 /* End of cleaning variable jobz */
52239 /* End of cleaning variable info */
52240 /* End of cleaning variable work */
52241 /* End of cleaning variable rwork */
52242 /* End of cleaning variable w */
52243 /* End of cleaning variable lwork */
52244 /* End of cleaning variable b */
52245 /* End of cleaning variable a */
52246 /* End of cleaning variable itype */
52247 } /*CHECKSTRING(*uplo=='U' || *uplo=='L')*/
52248 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
52249 } /*if (f2py_success) of uplo*/
52250 /* End of cleaning variable uplo */
52251 } /*if (f2py_success) of n*/
52252 /* End of cleaning variable n */
52253/*end of cleanupfrompyobj*/
52254 if (capi_buildvalue == NULL((void*)0)) {
52255/*routdebugfailure*/
52256 } else {
52257/*routdebugleave*/
52258 }
52259 CFUNCSMESS("Freeing memory.\n");
52260/*freemem*/
52261#ifdef F2PY_REPORT_ATEXIT
52262f2py_stop_clock();
52263#endif
52264 return capi_buildvalue;
52265}
52266/***************************** end of zhegv_lwork *****************************/
52267
52268/*********************************** ssygvd ***********************************/
52269static char doc_f2py_rout__flapack_ssygvd[] = "\
52270w,v,info = ssygvd(a,b,[itype,jobz,uplo,lwork,liwork,overwrite_a,overwrite_b])\n\nWrapper for ``ssygvd``.\
52271\n\nParameters\n----------\n"
52272"a : input rank-2 array('f') with bounds (n,n)\n"
52273"b : input rank-2 array('f') with bounds (n,n)\n"
52274"\nOther Parameters\n----------------\n"
52275"itype : input int, optional\n Default: 1\n"
52276"jobz : input string(len=1), optional\n Default: 'V'\n"
52277"uplo : input string(len=1), optional\n Default: 'L'\n"
52278"overwrite_a : input int, optional\n Default: 0\n"
52279"overwrite_b : input int, optional\n Default: 0\n"
52280"lwork : input int, optional\n Default: (*jobz=='N'?2*n+1:1+6*n+2*n*n)\n"
52281"liwork : input int, optional\n Default: (*jobz=='N'?1:5*n+3)\n"
52282"\nReturns\n-------\n"
52283"w : rank-1 array('f') with bounds (n)\n"
52284"v : rank-2 array('f') with bounds (n,n) and a storage\n"
52285"info : int";
52286/* extern void F_FUNC(ssygvd,SSYGVD)(F_INT*,char*,char*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
52287static PyObject *f2py_rout__flapack_ssygvd(const PyObject *capi_self,
52288 PyObject *capi_args,
52289 PyObject *capi_keywds,
52290 void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
52291 PyObject * volatile capi_buildvalue = NULL((void*)0);
52292 volatile int f2py_success = 1;
52293/*decl*/
52294
52295 int itype = 0;
52296 PyObject *itype_capi = Py_None(&_Py_NoneStruct);
52297 string jobz = NULL((void*)0);
52298 int slen(jobz)capi_jobz_len;
52299 PyObject *jobz_capi = Py_None(&_Py_NoneStruct);
52300 string uplo = NULL((void*)0);
52301 int slen(uplo)capi_uplo_len;
52302 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
52303 int n = 0;
52304 int lda = 0;
52305 int ldb = 0;
52306 float *w = NULL((void*)0);
52307 npy_intp w_Dims[1] = {-1};
52308 const int w_Rank = 1;
52309 PyArrayObject *capi_w_tmp = NULL((void*)0);
52310 int capi_w_intent = 0;
52311 float *a = NULL((void*)0);
52312 npy_intp a_Dims[2] = {-1, -1};
52313 const int a_Rank = 2;
52314 PyArrayObject *capi_a_tmp = NULL((void*)0);
52315 int capi_a_intent = 0;
52316 int capi_overwrite_a = 0;
52317 PyObject *a_capi = Py_None(&_Py_NoneStruct);
52318 float *b = NULL((void*)0);
52319 npy_intp b_Dims[2] = {-1, -1};
52320 const int b_Rank = 2;
52321 PyArrayObject *capi_b_tmp = NULL((void*)0);
52322 int capi_b_intent = 0;
52323 int capi_overwrite_b = 0;
52324 PyObject *b_capi = Py_None(&_Py_NoneStruct);
52325 float *work = NULL((void*)0);
52326 npy_intp work_Dims[1] = {-1};
52327 const int work_Rank = 1;
52328 PyArrayObject *capi_work_tmp = NULL((void*)0);
52329 int capi_work_intent = 0;
52330 int lwork = 0;
52331 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
52332 int *iwork = NULL((void*)0);
52333 npy_intp iwork_Dims[1] = {-1};
52334 const int iwork_Rank = 1;
52335 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
52336 int capi_iwork_intent = 0;
52337 int liwork = 0;
52338 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
52339 int info = 0;
52340 static char *capi_kwlist[] = {"a","b","itype","jobz","uplo","lwork","liwork","overwrite_a","overwrite_b",NULL((void*)0)};
52341
52342/*routdebugenter*/
52343#ifdef F2PY_REPORT_ATEXIT
52344f2py_start_clock();
52345#endif
52346 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
52347 "OO|OOOOOii:_flapack.ssygvd",\
52348 capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&uplo_capi,&lwork_capi,&liwork_capi,&capi_overwrite_a,&capi_overwrite_b))
52349 return NULL((void*)0);
52350/*frompyobj*/
52351 /* Processing variable a */
52352 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
52353 ;
52354 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
52355 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
52356 if (capi_a_tmp == NULL((void*)0)) {
52357 if (!PyErr_Occurred())
52358 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssygvd to C/Fortran array" );
52359 } else {
52360 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
52361
52362 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
52363 /* Processing variable itype */
52364 if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else
52365 f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.ssygvd() 1st keyword (itype) can't be converted to int");
52366 if (f2py_success) {
52367 CHECKSCALAR(itype > 0 || itype < 4,"itype > 0 || itype < 4","1st keyword itype","ssygvd:itype=%d",itype)if (!(itype > 0 || itype < 4)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssygvd:itype=%d", "(""itype > 0 || itype < 4"
") failed for ""1st keyword itype", itype); PyErr_SetString(_flapack_error
,errstring); } else
{
52368 /* Processing variable jobz */
52369 slen(jobz)capi_jobz_len = 1;
52370 f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.ssygvd to C string");
52371 if (f2py_success) {
52372 CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","ssygvd:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssygvd:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'"
") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString
(_flapack_error, errstring); } else
{
52373 /* Processing variable uplo */
52374 slen(uplo)capi_uplo_len = 1;
52375 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.ssygvd to C string");
52376 if (f2py_success) {
52377 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","ssygvd:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssygvd:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
52378 /* Processing variable info */
52379 /* Processing variable n */
52380 n = shape(a,0)a_Dims[0];
52381 /* Processing variable lda */
52382 lda = max(1,n)((1 > n) ? (1) : (n));
52383 /* Processing variable w */
52384 w_Dims[0]=n;
52385 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
52386 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
52387 if (capi_w_tmp == NULL((void*)0)) {
52388 if (!PyErr_Occurred())
52389 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.ssygvd to C/Fortran array" );
52390 } else {
52391 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
52392
52393 /* Processing variable b */
52394 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
52395 b_Dims[0]=n,b_Dims[1]=n;
52396 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
52397 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
52398 if (capi_b_tmp == NULL((void*)0)) {
52399 if (!PyErr_Occurred())
52400 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ssygvd to C/Fortran array" );
52401 } else {
52402 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
52403
52404 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
52405 CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b");
} else
{
52406 /* Processing variable lwork */
52407 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = (*jobz=='N'?2*n+1:1+6*n+2*n*n); else
52408 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssygvd() 4th keyword (lwork) can't be converted to int");
52409 if (f2py_success) {
52410 CHECKSCALAR(lwork>0||lwork==-1,"lwork>0||lwork==-1","4th keyword lwork","ssygvd:lwork=%d",lwork)if (!(lwork>0||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssygvd:lwork=%d", "(""lwork>0||lwork==-1"") failed for "
"4th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
52411 /* Processing variable liwork */
52412 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (*jobz=='N'?1:5*n+3); else
52413 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.ssygvd() 5th keyword (liwork) can't be converted to int");
52414 if (f2py_success) {
52415 CHECKSCALAR(liwork>0||liwork==-1,"liwork>0||liwork==-1","5th keyword liwork","ssygvd:liwork=%d",liwork)if (!(liwork>0||liwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssygvd:liwork=%d", "(""liwork>0||liwork==-1"") failed for "
"5th keyword liwork", liwork); PyErr_SetString(_flapack_error
,errstring); } else
{
52416 /* Processing variable ldb */
52417 ldb = max(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
52418 /* Processing variable work */
52419 work_Dims[0]=lwork;
52420 capi_work_intent |= F2PY_INTENT_HIDE8;
52421 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
52422 if (capi_work_tmp == NULL((void*)0)) {
52423 if (!PyErr_Occurred())
52424 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssygvd to C/Fortran array" );
52425 } else {
52426 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
52427
52428 /* Processing variable iwork */
52429 iwork_Dims[0]=liwork;
52430 capi_iwork_intent |= F2PY_INTENT_HIDE8;
52431 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
52432 if (capi_iwork_tmp == NULL((void*)0)) {
52433 if (!PyErr_Occurred())
52434 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.ssygvd to C/Fortran array" );
52435 } else {
52436 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
52437
52438/*end of frompyobj*/
52439#ifdef F2PY_REPORT_ATEXIT
52440f2py_start_call_clock();
52441#endif
52442/*callfortranroutine*/
52443 (*f2py_func)(&itype,jobz,uplo,&n,a,&lda,b,&ldb,w,work,&lwork,iwork,&liwork,&info) ;
52444 /*(*f2py_func)(&itype,jobz,uplo,&n,&lda,&ldb,w,a,b,work,&lwork,iwork,&liwork,&info,slen(jobz),slen(uplo));*/
52445if (PyErr_Occurred())
52446 f2py_success = 0;
52447#ifdef F2PY_REPORT_ATEXIT
52448f2py_stop_call_clock();
52449#endif
52450/*end of callfortranroutine*/
52451 if (f2py_success) {
52452/*pyobjfrom*/
52453/*end of pyobjfrom*/
52454 CFUNCSMESS("Building return value.\n");
52455 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info);
52456/*closepyobjfrom*/
52457/*end of closepyobjfrom*/
52458 } /*if (f2py_success) after callfortranroutine*/
52459/*cleanupfrompyobj*/
52460 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
52461 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
52462 /* End of cleaning variable iwork */
52463 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
52464 } /*if (capi_work_tmp == NULL) ... else of work*/
52465 /* End of cleaning variable work */
52466 /* End of cleaning variable ldb */
52467 } /*CHECKSCALAR(liwork>0||liwork==-1)*/
52468 } /*if (f2py_success) of liwork*/
52469 /* End of cleaning variable liwork */
52470 } /*CHECKSCALAR(lwork>0||lwork==-1)*/
52471 } /*if (f2py_success) of lwork*/
52472 /* End of cleaning variable lwork */
52473 } /*CHECKARRAY(shape(b,0)==shape(b,1))*/
52474 } /*CHECKARRAY(shape(b,0)==n)*/
52475 if((PyObject *)capi_b_tmp!=b_capi) {
52476 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
52477 } /*if (capi_b_tmp == NULL) ... else of b*/
52478 /* End of cleaning variable b */
52479 } /*if (capi_w_tmp == NULL) ... else of w*/
52480 /* End of cleaning variable w */
52481 /* End of cleaning variable lda */
52482 /* End of cleaning variable n */
52483 /* End of cleaning variable info */
52484 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
52485 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
52486 } /*if (f2py_success) of uplo*/
52487 /* End of cleaning variable uplo */
52488 } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/
52489 STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0);
52490 } /*if (f2py_success) of jobz*/
52491 /* End of cleaning variable jobz */
52492 } /*CHECKSCALAR(itype > 0 || itype < 4)*/
52493 } /*if (f2py_success) of itype*/
52494 /* End of cleaning variable itype */
52495 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
52496 } /*if (capi_a_tmp == NULL) ... else of a*/
52497 /* End of cleaning variable a */
52498/*end of cleanupfrompyobj*/
52499 if (capi_buildvalue == NULL((void*)0)) {
52500/*routdebugfailure*/
52501 } else {
52502/*routdebugleave*/
52503 }
52504 CFUNCSMESS("Freeing memory.\n");
52505/*freemem*/
52506#ifdef F2PY_REPORT_ATEXIT
52507f2py_stop_clock();
52508#endif
52509 return capi_buildvalue;
52510}
52511/******************************* end of ssygvd *******************************/
52512
52513/*********************************** dsygvd ***********************************/
52514static char doc_f2py_rout__flapack_dsygvd[] = "\
52515w,v,info = dsygvd(a,b,[itype,jobz,uplo,lwork,liwork,overwrite_a,overwrite_b])\n\nWrapper for ``dsygvd``.\
52516\n\nParameters\n----------\n"
52517"a : input rank-2 array('d') with bounds (n,n)\n"
52518"b : input rank-2 array('d') with bounds (n,n)\n"
52519"\nOther Parameters\n----------------\n"
52520"itype : input int, optional\n Default: 1\n"
52521"jobz : input string(len=1), optional\n Default: 'V'\n"
52522"uplo : input string(len=1), optional\n Default: 'L'\n"
52523"overwrite_a : input int, optional\n Default: 0\n"
52524"overwrite_b : input int, optional\n Default: 0\n"
52525"lwork : input int, optional\n Default: (*jobz=='N'?2*n+1:1+6*n+2*n*n)\n"
52526"liwork : input int, optional\n Default: (*jobz=='N'?1:5*n+3)\n"
52527"\nReturns\n-------\n"
52528"w : rank-1 array('d') with bounds (n)\n"
52529"v : rank-2 array('d') with bounds (n,n) and a storage\n"
52530"info : int";
52531/* extern void F_FUNC(dsygvd,DSYGVD)(F_INT*,char*,char*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
52532static PyObject *f2py_rout__flapack_dsygvd(const PyObject *capi_self,
52533 PyObject *capi_args,
52534 PyObject *capi_keywds,
52535 void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
52536 PyObject * volatile capi_buildvalue = NULL((void*)0);
52537 volatile int f2py_success = 1;
52538/*decl*/
52539
52540 int itype = 0;
52541 PyObject *itype_capi = Py_None(&_Py_NoneStruct);
52542 string jobz = NULL((void*)0);
52543 int slen(jobz)capi_jobz_len;
52544 PyObject *jobz_capi = Py_None(&_Py_NoneStruct);
52545 string uplo = NULL((void*)0);
52546 int slen(uplo)capi_uplo_len;
52547 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
52548 int n = 0;
52549 int lda = 0;
52550 int ldb = 0;
52551 double *w = NULL((void*)0);
52552 npy_intp w_Dims[1] = {-1};
52553 const int w_Rank = 1;
52554 PyArrayObject *capi_w_tmp = NULL((void*)0);
52555 int capi_w_intent = 0;
52556 double *a = NULL((void*)0);
52557 npy_intp a_Dims[2] = {-1, -1};
52558 const int a_Rank = 2;
52559 PyArrayObject *capi_a_tmp = NULL((void*)0);
52560 int capi_a_intent = 0;
52561 int capi_overwrite_a = 0;
52562 PyObject *a_capi = Py_None(&_Py_NoneStruct);
52563 double *b = NULL((void*)0);
52564 npy_intp b_Dims[2] = {-1, -1};
52565 const int b_Rank = 2;
52566 PyArrayObject *capi_b_tmp = NULL((void*)0);
52567 int capi_b_intent = 0;
52568 int capi_overwrite_b = 0;
52569 PyObject *b_capi = Py_None(&_Py_NoneStruct);
52570 double *work = NULL((void*)0);
52571 npy_intp work_Dims[1] = {-1};
52572 const int work_Rank = 1;
52573 PyArrayObject *capi_work_tmp = NULL((void*)0);
52574 int capi_work_intent = 0;
52575 int lwork = 0;
52576 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
52577 int *iwork = NULL((void*)0);
52578 npy_intp iwork_Dims[1] = {-1};
52579 const int iwork_Rank = 1;
52580 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
52581 int capi_iwork_intent = 0;
52582 int liwork = 0;
52583 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
52584 int info = 0;
52585 static char *capi_kwlist[] = {"a","b","itype","jobz","uplo","lwork","liwork","overwrite_a","overwrite_b",NULL((void*)0)};
52586
52587/*routdebugenter*/
52588#ifdef F2PY_REPORT_ATEXIT
52589f2py_start_clock();
52590#endif
52591 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
52592 "OO|OOOOOii:_flapack.dsygvd",\
52593 capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&uplo_capi,&lwork_capi,&liwork_capi,&capi_overwrite_a,&capi_overwrite_b))
52594 return NULL((void*)0);
52595/*frompyobj*/
52596 /* Processing variable a */
52597 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
52598 ;
52599 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
52600 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
52601 if (capi_a_tmp == NULL((void*)0)) {
52602 if (!PyErr_Occurred())
52603 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsygvd to C/Fortran array" );
52604 } else {
52605 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
52606
52607 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
52608 /* Processing variable itype */
52609 if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else
52610 f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.dsygvd() 1st keyword (itype) can't be converted to int");
52611 if (f2py_success) {
52612 CHECKSCALAR(itype > 0 || itype < 4,"itype > 0 || itype < 4","1st keyword itype","dsygvd:itype=%d",itype)if (!(itype > 0 || itype < 4)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsygvd:itype=%d", "(""itype > 0 || itype < 4"
") failed for ""1st keyword itype", itype); PyErr_SetString(_flapack_error
,errstring); } else
{
52613 /* Processing variable jobz */
52614 slen(jobz)capi_jobz_len = 1;
52615 f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.dsygvd to C string");
52616 if (f2py_success) {
52617 CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","dsygvd:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsygvd:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'"
") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString
(_flapack_error, errstring); } else
{
52618 /* Processing variable uplo */
52619 slen(uplo)capi_uplo_len = 1;
52620 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.dsygvd to C string");
52621 if (f2py_success) {
52622 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","dsygvd:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsygvd:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
52623 /* Processing variable info */
52624 /* Processing variable n */
52625 n = shape(a,0)a_Dims[0];
52626 /* Processing variable lda */
52627 lda = max(1,n)((1 > n) ? (1) : (n));
52628 /* Processing variable w */
52629 w_Dims[0]=n;
52630 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
52631 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
52632 if (capi_w_tmp == NULL((void*)0)) {
52633 if (!PyErr_Occurred())
52634 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dsygvd to C/Fortran array" );
52635 } else {
52636 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
52637
52638 /* Processing variable b */
52639 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
52640 b_Dims[0]=n,b_Dims[1]=n;
52641 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
52642 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
52643 if (capi_b_tmp == NULL((void*)0)) {
52644 if (!PyErr_Occurred())
52645 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dsygvd to C/Fortran array" );
52646 } else {
52647 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
52648
52649 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
52650 CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b");
} else
{
52651 /* Processing variable lwork */
52652 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = (*jobz=='N'?2*n+1:1+6*n+2*n*n); else
52653 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsygvd() 4th keyword (lwork) can't be converted to int");
52654 if (f2py_success) {
52655 CHECKSCALAR(lwork>0||lwork==-1,"lwork>0||lwork==-1","4th keyword lwork","dsygvd:lwork=%d",lwork)if (!(lwork>0||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsygvd:lwork=%d", "(""lwork>0||lwork==-1"") failed for "
"4th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
52656 /* Processing variable liwork */
52657 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (*jobz=='N'?1:5*n+3); else
52658 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.dsygvd() 5th keyword (liwork) can't be converted to int");
52659 if (f2py_success) {
52660 CHECKSCALAR(liwork>0||liwork==-1,"liwork>0||liwork==-1","5th keyword liwork","dsygvd:liwork=%d",liwork)if (!(liwork>0||liwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsygvd:liwork=%d", "(""liwork>0||liwork==-1"") failed for "
"5th keyword liwork", liwork); PyErr_SetString(_flapack_error
,errstring); } else
{
52661 /* Processing variable ldb */
52662 ldb = max(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
52663 /* Processing variable work */
52664 work_Dims[0]=lwork;
52665 capi_work_intent |= F2PY_INTENT_HIDE8;
52666 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
52667 if (capi_work_tmp == NULL((void*)0)) {
52668 if (!PyErr_Occurred())
52669 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsygvd to C/Fortran array" );
52670 } else {
52671 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
52672
52673 /* Processing variable iwork */
52674 iwork_Dims[0]=liwork;
52675 capi_iwork_intent |= F2PY_INTENT_HIDE8;
52676 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
52677 if (capi_iwork_tmp == NULL((void*)0)) {
52678 if (!PyErr_Occurred())
52679 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dsygvd to C/Fortran array" );
52680 } else {
52681 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
52682
52683/*end of frompyobj*/
52684#ifdef F2PY_REPORT_ATEXIT
52685f2py_start_call_clock();
52686#endif
52687/*callfortranroutine*/
52688 (*f2py_func)(&itype,jobz,uplo,&n,a,&lda,b,&ldb,w,work,&lwork,iwork,&liwork,&info) ;
52689 /*(*f2py_func)(&itype,jobz,uplo,&n,&lda,&ldb,w,a,b,work,&lwork,iwork,&liwork,&info,slen(jobz),slen(uplo));*/
52690if (PyErr_Occurred())
52691 f2py_success = 0;
52692#ifdef F2PY_REPORT_ATEXIT
52693f2py_stop_call_clock();
52694#endif
52695/*end of callfortranroutine*/
52696 if (f2py_success) {
52697/*pyobjfrom*/
52698/*end of pyobjfrom*/
52699 CFUNCSMESS("Building return value.\n");
52700 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info);
52701/*closepyobjfrom*/
52702/*end of closepyobjfrom*/
52703 } /*if (f2py_success) after callfortranroutine*/
52704/*cleanupfrompyobj*/
52705 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
52706 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
52707 /* End of cleaning variable iwork */
52708 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
52709 } /*if (capi_work_tmp == NULL) ... else of work*/
52710 /* End of cleaning variable work */
52711 /* End of cleaning variable ldb */
52712 } /*CHECKSCALAR(liwork>0||liwork==-1)*/
52713 } /*if (f2py_success) of liwork*/
52714 /* End of cleaning variable liwork */
52715 } /*CHECKSCALAR(lwork>0||lwork==-1)*/
52716 } /*if (f2py_success) of lwork*/
52717 /* End of cleaning variable lwork */
52718 } /*CHECKARRAY(shape(b,0)==shape(b,1))*/
52719 } /*CHECKARRAY(shape(b,0)==n)*/
52720 if((PyObject *)capi_b_tmp!=b_capi) {
52721 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
52722 } /*if (capi_b_tmp == NULL) ... else of b*/
52723 /* End of cleaning variable b */
52724 } /*if (capi_w_tmp == NULL) ... else of w*/
52725 /* End of cleaning variable w */
52726 /* End of cleaning variable lda */
52727 /* End of cleaning variable n */
52728 /* End of cleaning variable info */
52729 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
52730 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
52731 } /*if (f2py_success) of uplo*/
52732 /* End of cleaning variable uplo */
52733 } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/
52734 STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0);
52735 } /*if (f2py_success) of jobz*/
52736 /* End of cleaning variable jobz */
52737 } /*CHECKSCALAR(itype > 0 || itype < 4)*/
52738 } /*if (f2py_success) of itype*/
52739 /* End of cleaning variable itype */
52740 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
52741 } /*if (capi_a_tmp == NULL) ... else of a*/
52742 /* End of cleaning variable a */
52743/*end of cleanupfrompyobj*/
52744 if (capi_buildvalue == NULL((void*)0)) {
52745/*routdebugfailure*/
52746 } else {
52747/*routdebugleave*/
52748 }
52749 CFUNCSMESS("Freeing memory.\n");
52750/*freemem*/
52751#ifdef F2PY_REPORT_ATEXIT
52752f2py_stop_clock();
52753#endif
52754 return capi_buildvalue;
52755}
52756/******************************* end of dsygvd *******************************/
52757
52758/*********************************** chegvd ***********************************/
52759static char doc_f2py_rout__flapack_chegvd[] = "\
52760w,v,info = chegvd(a,b,[itype,jobz,uplo,lwork,lrwork,liwork,overwrite_a,overwrite_b])\n\nWrapper for ``chegvd``.\
52761\n\nParameters\n----------\n"
52762"a : input rank-2 array('F') with bounds (n,n)\n"
52763"b : input rank-2 array('F') with bounds (n,n)\n"
52764"\nOther Parameters\n----------------\n"
52765"itype : input int, optional\n Default: 1\n"
52766"jobz : input string(len=1), optional\n Default: 'V'\n"
52767"uplo : input string(len=1), optional\n Default: 'L'\n"
52768"overwrite_a : input int, optional\n Default: 0\n"
52769"overwrite_b : input int, optional\n Default: 0\n"
52770"lwork : input int, optional\n Default: (*jobz=='N'?n+1:n*(n+2))\n"
52771"lrwork : input int, optional\n Default: max((*jobz=='N'?n:2*n*n+5*n+1),1)\n"
52772"liwork : input int, optional\n Default: (*jobz=='N'?1:5*n+3)\n"
52773"\nReturns\n-------\n"
52774"w : rank-1 array('f') with bounds (n)\n"
52775"v : rank-2 array('F') with bounds (n,n) and a storage\n"
52776"info : int";
52777/* extern void F_FUNC(chegvd,CHEGVD)(F_INT*,char*,char*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
52778static PyObject *f2py_rout__flapack_chegvd(const PyObject *capi_self,
52779 PyObject *capi_args,
52780 PyObject *capi_keywds,
52781 void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
52782 PyObject * volatile capi_buildvalue = NULL((void*)0);
52783 volatile int f2py_success = 1;
52784/*decl*/
52785
52786 int itype = 0;
52787 PyObject *itype_capi = Py_None(&_Py_NoneStruct);
52788 string jobz = NULL((void*)0);
52789 int slen(jobz)capi_jobz_len;
52790 PyObject *jobz_capi = Py_None(&_Py_NoneStruct);
52791 string uplo = NULL((void*)0);
52792 int slen(uplo)capi_uplo_len;
52793 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
52794 int n = 0;
52795 int lda = 0;
52796 int ldb = 0;
52797 float *w = NULL((void*)0);
52798 npy_intp w_Dims[1] = {-1};
52799 const int w_Rank = 1;
52800 PyArrayObject *capi_w_tmp = NULL((void*)0);
52801 int capi_w_intent = 0;
52802 complex_float *a = NULL((void*)0);
52803 npy_intp a_Dims[2] = {-1, -1};
52804 const int a_Rank = 2;
52805 PyArrayObject *capi_a_tmp = NULL((void*)0);
52806 int capi_a_intent = 0;
52807 int capi_overwrite_a = 0;
52808 PyObject *a_capi = Py_None(&_Py_NoneStruct);
52809 complex_float *b = NULL((void*)0);
52810 npy_intp b_Dims[2] = {-1, -1};
52811 const int b_Rank = 2;
52812 PyArrayObject *capi_b_tmp = NULL((void*)0);
52813 int capi_b_intent = 0;
52814 int capi_overwrite_b = 0;
52815 PyObject *b_capi = Py_None(&_Py_NoneStruct);
52816 complex_float *work = NULL((void*)0);
52817 npy_intp work_Dims[1] = {-1};
52818 const int work_Rank = 1;
52819 PyArrayObject *capi_work_tmp = NULL((void*)0);
52820 int capi_work_intent = 0;
52821 int lwork = 0;
52822 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
52823 float *rwork = NULL((void*)0);
52824 npy_intp rwork_Dims[1] = {-1};
52825 const int rwork_Rank = 1;
52826 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
52827 int capi_rwork_intent = 0;
52828 int lrwork = 0;
52829 PyObject *lrwork_capi = Py_None(&_Py_NoneStruct);
52830 int *iwork = NULL((void*)0);
52831 npy_intp iwork_Dims[1] = {-1};
52832 const int iwork_Rank = 1;
52833 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
52834 int capi_iwork_intent = 0;
52835 int liwork = 0;
52836 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
52837 int info = 0;
52838 static char *capi_kwlist[] = {"a","b","itype","jobz","uplo","lwork","lrwork","liwork","overwrite_a","overwrite_b",NULL((void*)0)};
52839
52840/*routdebugenter*/
52841#ifdef F2PY_REPORT_ATEXIT
52842f2py_start_clock();
52843#endif
52844 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
52845 "OO|OOOOOOii:_flapack.chegvd",\
52846 capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&uplo_capi,&lwork_capi,&lrwork_capi,&liwork_capi,&capi_overwrite_a,&capi_overwrite_b))
52847 return NULL((void*)0);
52848/*frompyobj*/
52849 /* Processing variable a */
52850 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
52851 ;
52852 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
52853 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
52854 if (capi_a_tmp == NULL((void*)0)) {
52855 if (!PyErr_Occurred())
52856 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.chegvd to C/Fortran array" );
52857 } else {
52858 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
52859
52860 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
52861 /* Processing variable itype */
52862 if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else
52863 f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.chegvd() 1st keyword (itype) can't be converted to int");
52864 if (f2py_success) {
52865 CHECKSCALAR(itype > 0 || itype < 4,"itype > 0 || itype < 4","1st keyword itype","chegvd:itype=%d",itype)if (!(itype > 0 || itype < 4)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chegvd:itype=%d", "(""itype > 0 || itype < 4"
") failed for ""1st keyword itype", itype); PyErr_SetString(_flapack_error
,errstring); } else
{
52866 /* Processing variable jobz */
52867 slen(jobz)capi_jobz_len = 1;
52868 f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.chegvd to C string");
52869 if (f2py_success) {
52870 CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","chegvd:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chegvd:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'"
") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString
(_flapack_error, errstring); } else
{
52871 /* Processing variable uplo */
52872 slen(uplo)capi_uplo_len = 1;
52873 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.chegvd to C string");
52874 if (f2py_success) {
52875 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","chegvd:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chegvd:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
52876 /* Processing variable info */
52877 /* Processing variable n */
52878 n = shape(a,0)a_Dims[0];
52879 /* Processing variable lda */
52880 lda = max(1,n)((1 > n) ? (1) : (n));
52881 /* Processing variable w */
52882 w_Dims[0]=n;
52883 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
52884 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
52885 if (capi_w_tmp == NULL((void*)0)) {
52886 if (!PyErr_Occurred())
52887 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.chegvd to C/Fortran array" );
52888 } else {
52889 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
52890
52891 /* Processing variable b */
52892 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
52893 b_Dims[0]=n,b_Dims[1]=n;
52894 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
52895 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
52896 if (capi_b_tmp == NULL((void*)0)) {
52897 if (!PyErr_Occurred())
52898 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.chegvd to C/Fortran array" );
52899 } else {
52900 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
52901
52902 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
52903 CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b");
} else
{
52904 /* Processing variable lwork */
52905 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = (*jobz=='N'?n+1:n*(n+2)); else
52906 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.chegvd() 4th keyword (lwork) can't be converted to int");
52907 if (f2py_success) {
52908 CHECKSCALAR(lwork>0||lwork==-1,"lwork>0||lwork==-1","4th keyword lwork","chegvd:lwork=%d",lwork)if (!(lwork>0||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chegvd:lwork=%d", "(""lwork>0||lwork==-1"") failed for "
"4th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
52909 /* Processing variable lrwork */
52910 if (lrwork_capi == Py_None(&_Py_NoneStruct)) lrwork = max((*jobz=='N'?n:2*n*n+5*n+1),1)(((*jobz=='N'?n:2*n*n+5*n+1) > 1) ? ((*jobz=='N'?n:2*n*n+5
*n+1)) : (1))
; else
52911 f2py_success = int_from_pyobj(&lrwork,lrwork_capi,"_flapack.chegvd() 5th keyword (lrwork) can't be converted to int");
52912 if (f2py_success) {
52913 CHECKSCALAR(lrwork>0||lrwork==-1,"lrwork>0||lrwork==-1","5th keyword lrwork","chegvd:lrwork=%d",lrwork)if (!(lrwork>0||lrwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chegvd:lrwork=%d", "(""lrwork>0||lrwork==-1"") failed for "
"5th keyword lrwork", lrwork); PyErr_SetString(_flapack_error
,errstring); } else
{
52914 /* Processing variable liwork */
52915 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (*jobz=='N'?1:5*n+3); else
52916 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.chegvd() 6th keyword (liwork) can't be converted to int");
52917 if (f2py_success) {
52918 CHECKSCALAR(liwork>0||liwork==-1,"liwork>0||liwork==-1","6th keyword liwork","chegvd:liwork=%d",liwork)if (!(liwork>0||liwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chegvd:liwork=%d", "(""liwork>0||liwork==-1"") failed for "
"6th keyword liwork", liwork); PyErr_SetString(_flapack_error
,errstring); } else
{
52919 /* Processing variable ldb */
52920 ldb = max(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
52921 /* Processing variable work */
52922 work_Dims[0]=lwork;
52923 capi_work_intent |= F2PY_INTENT_HIDE8;
52924 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
52925 if (capi_work_tmp == NULL((void*)0)) {
52926 if (!PyErr_Occurred())
52927 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.chegvd to C/Fortran array" );
52928 } else {
52929 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
52930
52931 /* Processing variable rwork */
52932 rwork_Dims[0]=lrwork;
52933 capi_rwork_intent |= F2PY_INTENT_HIDE8;
52934 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
52935 if (capi_rwork_tmp == NULL((void*)0)) {
52936 if (!PyErr_Occurred())
52937 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.chegvd to C/Fortran array" );
52938 } else {
52939 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
52940
52941 /* Processing variable iwork */
52942 iwork_Dims[0]=liwork;
52943 capi_iwork_intent |= F2PY_INTENT_HIDE8;
52944 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
52945 if (capi_iwork_tmp == NULL((void*)0)) {
52946 if (!PyErr_Occurred())
52947 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.chegvd to C/Fortran array" );
52948 } else {
52949 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
52950
52951/*end of frompyobj*/
52952#ifdef F2PY_REPORT_ATEXIT
52953f2py_start_call_clock();
52954#endif
52955/*callfortranroutine*/
52956 (*f2py_func)(&itype,jobz,uplo,&n,a,&lda,b,&ldb,w,work,&lwork,rwork,&lrwork,iwork,&liwork,&info) ;
52957 /*(*f2py_func)(&itype,jobz,uplo,&n,&lda,&ldb,w,a,b,work,&lwork,rwork,&lrwork,iwork,&liwork,&info,slen(jobz),slen(uplo));*/
52958if (PyErr_Occurred())
52959 f2py_success = 0;
52960#ifdef F2PY_REPORT_ATEXIT
52961f2py_stop_call_clock();
52962#endif
52963/*end of callfortranroutine*/
52964 if (f2py_success) {
52965/*pyobjfrom*/
52966/*end of pyobjfrom*/
52967 CFUNCSMESS("Building return value.\n");
52968 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info);
52969/*closepyobjfrom*/
52970/*end of closepyobjfrom*/
52971 } /*if (f2py_success) after callfortranroutine*/
52972/*cleanupfrompyobj*/
52973 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
52974 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
52975 /* End of cleaning variable iwork */
52976 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
52977 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
52978 /* End of cleaning variable rwork */
52979 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
52980 } /*if (capi_work_tmp == NULL) ... else of work*/
52981 /* End of cleaning variable work */
52982 /* End of cleaning variable ldb */
52983 } /*CHECKSCALAR(liwork>0||liwork==-1)*/
52984 } /*if (f2py_success) of liwork*/
52985 /* End of cleaning variable liwork */
52986 } /*CHECKSCALAR(lrwork>0||lrwork==-1)*/
52987 } /*if (f2py_success) of lrwork*/
52988 /* End of cleaning variable lrwork */
52989 } /*CHECKSCALAR(lwork>0||lwork==-1)*/
52990 } /*if (f2py_success) of lwork*/
52991 /* End of cleaning variable lwork */
52992 } /*CHECKARRAY(shape(b,0)==shape(b,1))*/
52993 } /*CHECKARRAY(shape(b,0)==n)*/
52994 if((PyObject *)capi_b_tmp!=b_capi) {
52995 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
52996 } /*if (capi_b_tmp == NULL) ... else of b*/
52997 /* End of cleaning variable b */
52998 } /*if (capi_w_tmp == NULL) ... else of w*/
52999 /* End of cleaning variable w */
53000 /* End of cleaning variable lda */
53001 /* End of cleaning variable n */
53002 /* End of cleaning variable info */
53003 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
53004 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
53005 } /*if (f2py_success) of uplo*/
53006 /* End of cleaning variable uplo */
53007 } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/
53008 STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0);
53009 } /*if (f2py_success) of jobz*/
53010 /* End of cleaning variable jobz */
53011 } /*CHECKSCALAR(itype > 0 || itype < 4)*/
53012 } /*if (f2py_success) of itype*/
53013 /* End of cleaning variable itype */
53014 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
53015 } /*if (capi_a_tmp == NULL) ... else of a*/
53016 /* End of cleaning variable a */
53017/*end of cleanupfrompyobj*/
53018 if (capi_buildvalue == NULL((void*)0)) {
53019/*routdebugfailure*/
53020 } else {
53021/*routdebugleave*/
53022 }
53023 CFUNCSMESS("Freeing memory.\n");
53024/*freemem*/
53025#ifdef F2PY_REPORT_ATEXIT
53026f2py_stop_clock();
53027#endif
53028 return capi_buildvalue;
53029}
53030/******************************* end of chegvd *******************************/
53031
53032/*********************************** zhegvd ***********************************/
53033static char doc_f2py_rout__flapack_zhegvd[] = "\
53034w,v,info = zhegvd(a,b,[itype,jobz,uplo,lwork,lrwork,liwork,overwrite_a,overwrite_b])\n\nWrapper for ``zhegvd``.\
53035\n\nParameters\n----------\n"
53036"a : input rank-2 array('D') with bounds (n,n)\n"
53037"b : input rank-2 array('D') with bounds (n,n)\n"
53038"\nOther Parameters\n----------------\n"
53039"itype : input int, optional\n Default: 1\n"
53040"jobz : input string(len=1), optional\n Default: 'V'\n"
53041"uplo : input string(len=1), optional\n Default: 'L'\n"
53042"overwrite_a : input int, optional\n Default: 0\n"
53043"overwrite_b : input int, optional\n Default: 0\n"
53044"lwork : input int, optional\n Default: (*jobz=='N'?n+1:n*(n+2))\n"
53045"lrwork : input int, optional\n Default: max((*jobz=='N'?n:2*n*n+5*n+1),1)\n"
53046"liwork : input int, optional\n Default: (*jobz=='N'?1:5*n+3)\n"
53047"\nReturns\n-------\n"
53048"w : rank-1 array('d') with bounds (n)\n"
53049"v : rank-2 array('D') with bounds (n,n) and a storage\n"
53050"info : int";
53051/* extern void F_FUNC(zhegvd,ZHEGVD)(F_INT*,char*,char*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
53052static PyObject *f2py_rout__flapack_zhegvd(const PyObject *capi_self,
53053 PyObject *capi_args,
53054 PyObject *capi_keywds,
53055 void (*f2py_func)(F_INTint*,char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
53056 PyObject * volatile capi_buildvalue = NULL((void*)0);
53057 volatile int f2py_success = 1;
53058/*decl*/
53059
53060 int itype = 0;
53061 PyObject *itype_capi = Py_None(&_Py_NoneStruct);
53062 string jobz = NULL((void*)0);
53063 int slen(jobz)capi_jobz_len;
53064 PyObject *jobz_capi = Py_None(&_Py_NoneStruct);
53065 string uplo = NULL((void*)0);
53066 int slen(uplo)capi_uplo_len;
53067 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
53068 int n = 0;
53069 int lda = 0;
53070 int ldb = 0;
53071 double *w = NULL((void*)0);
53072 npy_intp w_Dims[1] = {-1};
53073 const int w_Rank = 1;
53074 PyArrayObject *capi_w_tmp = NULL((void*)0);
53075 int capi_w_intent = 0;
53076 complex_double *a = NULL((void*)0);
53077 npy_intp a_Dims[2] = {-1, -1};
53078 const int a_Rank = 2;
53079 PyArrayObject *capi_a_tmp = NULL((void*)0);
53080 int capi_a_intent = 0;
53081 int capi_overwrite_a = 0;
53082 PyObject *a_capi = Py_None(&_Py_NoneStruct);
53083 complex_double *b = NULL((void*)0);
53084 npy_intp b_Dims[2] = {-1, -1};
53085 const int b_Rank = 2;
53086 PyArrayObject *capi_b_tmp = NULL((void*)0);
53087 int capi_b_intent = 0;
53088 int capi_overwrite_b = 0;
53089 PyObject *b_capi = Py_None(&_Py_NoneStruct);
53090 complex_double *work = NULL((void*)0);
53091 npy_intp work_Dims[1] = {-1};
53092 const int work_Rank = 1;
53093 PyArrayObject *capi_work_tmp = NULL((void*)0);
53094 int capi_work_intent = 0;
53095 int lwork = 0;
53096 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
53097 double *rwork = NULL((void*)0);
53098 npy_intp rwork_Dims[1] = {-1};
53099 const int rwork_Rank = 1;
53100 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
53101 int capi_rwork_intent = 0;
53102 int lrwork = 0;
53103 PyObject *lrwork_capi = Py_None(&_Py_NoneStruct);
53104 int *iwork = NULL((void*)0);
53105 npy_intp iwork_Dims[1] = {-1};
53106 const int iwork_Rank = 1;
53107 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
53108 int capi_iwork_intent = 0;
53109 int liwork = 0;
53110 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
53111 int info = 0;
53112 static char *capi_kwlist[] = {"a","b","itype","jobz","uplo","lwork","lrwork","liwork","overwrite_a","overwrite_b",NULL((void*)0)};
53113
53114/*routdebugenter*/
53115#ifdef F2PY_REPORT_ATEXIT
53116f2py_start_clock();
53117#endif
53118 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
53119 "OO|OOOOOOii:_flapack.zhegvd",\
53120 capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&uplo_capi,&lwork_capi,&lrwork_capi,&liwork_capi,&capi_overwrite_a,&capi_overwrite_b))
53121 return NULL((void*)0);
53122/*frompyobj*/
53123 /* Processing variable a */
53124 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
53125 ;
53126 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
53127 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
53128 if (capi_a_tmp == NULL((void*)0)) {
53129 if (!PyErr_Occurred())
53130 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zhegvd to C/Fortran array" );
53131 } else {
53132 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
53133
53134 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
53135 /* Processing variable itype */
53136 if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else
53137 f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.zhegvd() 1st keyword (itype) can't be converted to int");
53138 if (f2py_success) {
53139 CHECKSCALAR(itype > 0 || itype < 4,"itype > 0 || itype < 4","1st keyword itype","zhegvd:itype=%d",itype)if (!(itype > 0 || itype < 4)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhegvd:itype=%d", "(""itype > 0 || itype < 4"
") failed for ""1st keyword itype", itype); PyErr_SetString(_flapack_error
,errstring); } else
{
53140 /* Processing variable jobz */
53141 slen(jobz)capi_jobz_len = 1;
53142 f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.zhegvd to C string");
53143 if (f2py_success) {
53144 CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","zhegvd:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhegvd:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'"
") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString
(_flapack_error, errstring); } else
{
53145 /* Processing variable uplo */
53146 slen(uplo)capi_uplo_len = 1;
53147 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.zhegvd to C string");
53148 if (f2py_success) {
53149 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","zhegvd:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhegvd:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
53150 /* Processing variable info */
53151 /* Processing variable n */
53152 n = shape(a,0)a_Dims[0];
53153 /* Processing variable lda */
53154 lda = max(1,n)((1 > n) ? (1) : (n));
53155 /* Processing variable w */
53156 w_Dims[0]=n;
53157 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
53158 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
53159 if (capi_w_tmp == NULL((void*)0)) {
53160 if (!PyErr_Occurred())
53161 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zhegvd to C/Fortran array" );
53162 } else {
53163 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
53164
53165 /* Processing variable b */
53166 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
53167 b_Dims[0]=n,b_Dims[1]=n;
53168 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
53169 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
53170 if (capi_b_tmp == NULL((void*)0)) {
53171 if (!PyErr_Occurred())
53172 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zhegvd to C/Fortran array" );
53173 } else {
53174 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
53175
53176 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
53177 CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b");
} else
{
53178 /* Processing variable lwork */
53179 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = (*jobz=='N'?n+1:n*(n+2)); else
53180 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zhegvd() 4th keyword (lwork) can't be converted to int");
53181 if (f2py_success) {
53182 CHECKSCALAR(lwork>0||lwork==-1,"lwork>0||lwork==-1","4th keyword lwork","zhegvd:lwork=%d",lwork)if (!(lwork>0||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhegvd:lwork=%d", "(""lwork>0||lwork==-1"") failed for "
"4th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
53183 /* Processing variable lrwork */
53184 if (lrwork_capi == Py_None(&_Py_NoneStruct)) lrwork = max((*jobz=='N'?n:2*n*n+5*n+1),1)(((*jobz=='N'?n:2*n*n+5*n+1) > 1) ? ((*jobz=='N'?n:2*n*n+5
*n+1)) : (1))
; else
53185 f2py_success = int_from_pyobj(&lrwork,lrwork_capi,"_flapack.zhegvd() 5th keyword (lrwork) can't be converted to int");
53186 if (f2py_success) {
53187 CHECKSCALAR(lrwork>0||lrwork==-1,"lrwork>0||lrwork==-1","5th keyword lrwork","zhegvd:lrwork=%d",lrwork)if (!(lrwork>0||lrwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhegvd:lrwork=%d", "(""lrwork>0||lrwork==-1"") failed for "
"5th keyword lrwork", lrwork); PyErr_SetString(_flapack_error
,errstring); } else
{
53188 /* Processing variable liwork */
53189 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (*jobz=='N'?1:5*n+3); else
53190 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.zhegvd() 6th keyword (liwork) can't be converted to int");
53191 if (f2py_success) {
53192 CHECKSCALAR(liwork>0||liwork==-1,"liwork>0||liwork==-1","6th keyword liwork","zhegvd:liwork=%d",liwork)if (!(liwork>0||liwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhegvd:liwork=%d", "(""liwork>0||liwork==-1"") failed for "
"6th keyword liwork", liwork); PyErr_SetString(_flapack_error
,errstring); } else
{
53193 /* Processing variable ldb */
53194 ldb = max(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
53195 /* Processing variable work */
53196 work_Dims[0]=lwork;
53197 capi_work_intent |= F2PY_INTENT_HIDE8;
53198 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
53199 if (capi_work_tmp == NULL((void*)0)) {
53200 if (!PyErr_Occurred())
53201 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zhegvd to C/Fortran array" );
53202 } else {
53203 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
53204
53205 /* Processing variable rwork */
53206 rwork_Dims[0]=lrwork;
53207 capi_rwork_intent |= F2PY_INTENT_HIDE8;
53208 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
53209 if (capi_rwork_tmp == NULL((void*)0)) {
53210 if (!PyErr_Occurred())
53211 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zhegvd to C/Fortran array" );
53212 } else {
53213 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
53214
53215 /* Processing variable iwork */
53216 iwork_Dims[0]=liwork;
53217 capi_iwork_intent |= F2PY_INTENT_HIDE8;
53218 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
53219 if (capi_iwork_tmp == NULL((void*)0)) {
53220 if (!PyErr_Occurred())
53221 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.zhegvd to C/Fortran array" );
53222 } else {
53223 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
53224
53225/*end of frompyobj*/
53226#ifdef F2PY_REPORT_ATEXIT
53227f2py_start_call_clock();
53228#endif
53229/*callfortranroutine*/
53230 (*f2py_func)(&itype,jobz,uplo,&n,a,&lda,b,&ldb,w,work,&lwork,rwork,&lrwork,iwork,&liwork,&info) ;
53231 /*(*f2py_func)(&itype,jobz,uplo,&n,&lda,&ldb,w,a,b,work,&lwork,rwork,&lrwork,iwork,&liwork,&info,slen(jobz),slen(uplo));*/
53232if (PyErr_Occurred())
53233 f2py_success = 0;
53234#ifdef F2PY_REPORT_ATEXIT
53235f2py_stop_call_clock();
53236#endif
53237/*end of callfortranroutine*/
53238 if (f2py_success) {
53239/*pyobjfrom*/
53240/*end of pyobjfrom*/
53241 CFUNCSMESS("Building return value.\n");
53242 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_a_tmp,info);
53243/*closepyobjfrom*/
53244/*end of closepyobjfrom*/
53245 } /*if (f2py_success) after callfortranroutine*/
53246/*cleanupfrompyobj*/
53247 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
53248 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
53249 /* End of cleaning variable iwork */
53250 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
53251 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
53252 /* End of cleaning variable rwork */
53253 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
53254 } /*if (capi_work_tmp == NULL) ... else of work*/
53255 /* End of cleaning variable work */
53256 /* End of cleaning variable ldb */
53257 } /*CHECKSCALAR(liwork>0||liwork==-1)*/
53258 } /*if (f2py_success) of liwork*/
53259 /* End of cleaning variable liwork */
53260 } /*CHECKSCALAR(lrwork>0||lrwork==-1)*/
53261 } /*if (f2py_success) of lrwork*/
53262 /* End of cleaning variable lrwork */
53263 } /*CHECKSCALAR(lwork>0||lwork==-1)*/
53264 } /*if (f2py_success) of lwork*/
53265 /* End of cleaning variable lwork */
53266 } /*CHECKARRAY(shape(b,0)==shape(b,1))*/
53267 } /*CHECKARRAY(shape(b,0)==n)*/
53268 if((PyObject *)capi_b_tmp!=b_capi) {
53269 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
53270 } /*if (capi_b_tmp == NULL) ... else of b*/
53271 /* End of cleaning variable b */
53272 } /*if (capi_w_tmp == NULL) ... else of w*/
53273 /* End of cleaning variable w */
53274 /* End of cleaning variable lda */
53275 /* End of cleaning variable n */
53276 /* End of cleaning variable info */
53277 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
53278 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
53279 } /*if (f2py_success) of uplo*/
53280 /* End of cleaning variable uplo */
53281 } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/
53282 STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0);
53283 } /*if (f2py_success) of jobz*/
53284 /* End of cleaning variable jobz */
53285 } /*CHECKSCALAR(itype > 0 || itype < 4)*/
53286 } /*if (f2py_success) of itype*/
53287 /* End of cleaning variable itype */
53288 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
53289 } /*if (capi_a_tmp == NULL) ... else of a*/
53290 /* End of cleaning variable a */
53291/*end of cleanupfrompyobj*/
53292 if (capi_buildvalue == NULL((void*)0)) {
53293/*routdebugfailure*/
53294 } else {
53295/*routdebugleave*/
53296 }
53297 CFUNCSMESS("Freeing memory.\n");
53298/*freemem*/
53299#ifdef F2PY_REPORT_ATEXIT
53300f2py_stop_clock();
53301#endif
53302 return capi_buildvalue;
53303}
53304/******************************* end of zhegvd *******************************/
53305
53306/*********************************** ssygvx ***********************************/
53307static char doc_f2py_rout__flapack_ssygvx[] = "\
53308w,z,m,ifail,info = ssygvx(a,b,[itype,jobz,range,uplo,vl,vu,il,iu,abstol,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``ssygvx``.\
53309\n\nParameters\n----------\n"
53310"a : input rank-2 array('f') with bounds (n,n)\n"
53311"b : input rank-2 array('f') with bounds (n,n)\n"
53312"\nOther Parameters\n----------------\n"
53313"itype : input int, optional\n Default: 1\n"
53314"jobz : input string(len=1), optional\n Default: 'V'\n"
53315"range : input string(len=1), optional\n Default: 'A'\n"
53316"uplo : input string(len=1), optional\n Default: 'L'\n"
53317"overwrite_a : input int, optional\n Default: 0\n"
53318"overwrite_b : input int, optional\n Default: 0\n"
53319"vl : input float, optional\n Default: 0.0\n"
53320"vu : input float, optional\n Default: 1.0\n"
53321"il : input int, optional\n Default: 1\n"
53322"iu : input int, optional\n Default: n\n"
53323"abstol : input float, optional\n Default: 0.0\n"
53324"lwork : input int, optional\n Default: max(8*n,1)\n"
53325"\nReturns\n-------\n"
53326"w : rank-1 array('f') with bounds (n)\n"
53327"z : rank-2 array('f') with bounds ((jobz[0]=='V'?MAX(0,n):0),(jobz[0]=='V'?(range[0]=='I'?iu-il+1:MAX(1,n)):0))\n"
53328"m : int\n"
53329"ifail : rank-1 array('i') with bounds ((jobz[0]=='N'?0:n))\n"
53330"info : int";
53331/* extern void F_FUNC(ssygvx,SSYGVX)(F_INT*,char*,char*,char*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
53332static PyObject *f2py_rout__flapack_ssygvx(const PyObject *capi_self,
53333 PyObject *capi_args,
53334 PyObject *capi_keywds,
53335 void (*f2py_func)(F_INTint*,char*,char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
53336 PyObject * volatile capi_buildvalue = NULL((void*)0);
53337 volatile int f2py_success = 1;
53338/*decl*/
53339
53340 int itype = 0;
53341 PyObject *itype_capi = Py_None(&_Py_NoneStruct);
53342 string jobz = NULL((void*)0);
53343 int slen(jobz)capi_jobz_len;
53344 PyObject *jobz_capi = Py_None(&_Py_NoneStruct);
53345 string range = NULL((void*)0);
53346 int slen(range)capi_range_len;
53347 PyObject *range_capi = Py_None(&_Py_NoneStruct);
53348 string uplo = NULL((void*)0);
53349 int slen(uplo)capi_uplo_len;
53350 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
53351 int n = 0;
53352 float *a = NULL((void*)0);
53353 npy_intp a_Dims[2] = {-1, -1};
53354 const int a_Rank = 2;
53355 PyArrayObject *capi_a_tmp = NULL((void*)0);
53356 int capi_a_intent = 0;
53357 int capi_overwrite_a = 0;
53358 PyObject *a_capi = Py_None(&_Py_NoneStruct);
53359 int lda = 0;
53360 float *b = NULL((void*)0);
53361 npy_intp b_Dims[2] = {-1, -1};
53362 const int b_Rank = 2;
53363 PyArrayObject *capi_b_tmp = NULL((void*)0);
53364 int capi_b_intent = 0;
53365 int capi_overwrite_b = 0;
53366 PyObject *b_capi = Py_None(&_Py_NoneStruct);
53367 int ldb = 0;
53368 float vl = 0;
53369 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
53370 float vu = 0;
53371 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
53372 int il = 0;
53373 PyObject *il_capi = Py_None(&_Py_NoneStruct);
53374 int iu = 0;
53375 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
53376 float abstol = 0;
53377 PyObject *abstol_capi = Py_None(&_Py_NoneStruct);
53378 float *w = NULL((void*)0);
53379 npy_intp w_Dims[1] = {-1};
53380 const int w_Rank = 1;
53381 PyArrayObject *capi_w_tmp = NULL((void*)0);
53382 int capi_w_intent = 0;
53383 float *z = NULL((void*)0);
53384 npy_intp z_Dims[2] = {-1, -1};
53385 const int z_Rank = 2;
53386 PyArrayObject *capi_z_tmp = NULL((void*)0);
53387 int capi_z_intent = 0;
53388 int m = 0;
53389 int ldz = 0;
53390 float *work = NULL((void*)0);
53391 npy_intp work_Dims[1] = {-1};
53392 const int work_Rank = 1;
53393 PyArrayObject *capi_work_tmp = NULL((void*)0);
53394 int capi_work_intent = 0;
53395 int lwork = 0;
53396 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
53397 int *iwork = NULL((void*)0);
53398 npy_intp iwork_Dims[1] = {-1};
53399 const int iwork_Rank = 1;
53400 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
53401 int capi_iwork_intent = 0;
53402 int *ifail = NULL((void*)0);
53403 npy_intp ifail_Dims[1] = {-1};
53404 const int ifail_Rank = 1;
53405 PyArrayObject *capi_ifail_tmp = NULL((void*)0);
53406 int capi_ifail_intent = 0;
53407 int info = 0;
53408 static char *capi_kwlist[] = {"a","b","itype","jobz","range","uplo","vl","vu","il","iu","abstol","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
53409
53410/*routdebugenter*/
53411#ifdef F2PY_REPORT_ATEXIT
53412f2py_start_clock();
53413#endif
53414 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
53415 "OO|OOOOOOOOOOii:_flapack.ssygvx",\
53416 capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&range_capi,&uplo_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
53417 return NULL((void*)0);
53418/*frompyobj*/
53419 /* Processing variable itype */
53420 if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else
53421 f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.ssygvx() 1st keyword (itype) can't be converted to int");
53422 if (f2py_success) {
53423 CHECKSCALAR(itype>0||itype<4,"itype>0||itype<4","1st keyword itype","ssygvx:itype=%d",itype)if (!(itype>0||itype<4)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssygvx:itype=%d", "(""itype>0||itype<4"") failed for "
"1st keyword itype", itype); PyErr_SetString(_flapack_error,errstring
); } else
{
53424 /* Processing variable jobz */
53425 slen(jobz)capi_jobz_len = 1;
53426 f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.ssygvx to C string");
53427 if (f2py_success) {
53428 CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","ssygvx:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssygvx:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'"
") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString
(_flapack_error, errstring); } else
{
53429 /* Processing variable uplo */
53430 slen(uplo)capi_uplo_len = 1;
53431 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 4th keyword `uplo' of _flapack.ssygvx to C string");
53432 if (f2py_success) {
53433 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","4th keyword uplo","ssygvx:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssygvx:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""4th keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
53434 /* Processing variable il */
53435 if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else
53436 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.ssygvx() 7th keyword (il) can't be converted to int");
53437 if (f2py_success) {
53438 /* Processing variable vl */
53439 if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else
53440 f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.ssygvx() 5th keyword (vl) can't be converted to float");
53441 if (f2py_success) {
53442 /* Processing variable abstol */
53443 if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else
53444 f2py_success = float_from_pyobj(&abstol,abstol_capi,"_flapack.ssygvx() 9th keyword (abstol) can't be converted to float");
53445 if (f2py_success) {
53446 /* Processing variable a */
53447 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
53448 ;
53449 capi_a_intent |= F2PY_INTENT_IN1;
53450 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
53451 if (capi_a_tmp == NULL((void*)0)) {
53452 if (!PyErr_Occurred())
53453 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssygvx to C/Fortran array" );
53454 } else {
53455 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
53456
53457 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
53458 /* Processing variable m */
53459 /* Processing variable info */
53460 /* Processing variable range */
53461 slen(range)capi_range_len = 1;
53462 f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 3rd keyword `range' of _flapack.ssygvx to C string");
53463 if (f2py_success) {
53464 CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","3rd keyword range","ssygvx:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ssygvx:slen(range)=%d range=\"%s\""
, "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""3rd keyword range"
, capi_range_len, range); PyErr_SetString(_flapack_error, errstring
); } else
{
53465 /* Processing variable n */
53466 n = shape(a,0)a_Dims[0];
53467 /* Processing variable iu */
53468 if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else
53469 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.ssygvx() 8th keyword (iu) can't be converted to int");
53470 if (f2py_success) {
53471 /* Processing variable vu */
53472 if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else
53473 f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.ssygvx() 6th keyword (vu) can't be converted to float");
53474 if (f2py_success) {
53475 CHECKSCALAR(vu>vl,"vu>vl","6th keyword vu","ssygvx:vu=%g",vu)if (!(vu>vl)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssygvx:vu=%g", "(""vu>vl"") failed for ""6th keyword vu"
, vu); PyErr_SetString(_flapack_error,errstring); } else
{
53476 /* Processing variable lwork */
53477 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(8*n,1)((8*n > 1) ? (8*n) : (1)); else
53478 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ssygvx() 10th keyword (lwork) can't be converted to int");
53479 if (f2py_success) {
53480 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","10th keyword lwork","ssygvx:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssygvx:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"10th keyword lwork", lwork); PyErr_SetString(_flapack_error,
errstring); } else
{
53481 /* Processing variable b */
53482 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
53483 b_Dims[0]=n,b_Dims[1]=n;
53484 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
53485 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
53486 if (capi_b_tmp == NULL((void*)0)) {
53487 if (!PyErr_Occurred())
53488 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ssygvx to C/Fortran array" );
53489 } else {
53490 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
53491
53492 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
53493 CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b");
} else
{
53494 /* Processing variable lda */
53495 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
53496 /* Processing variable ldb */
53497 ldb = MAX(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
53498 /* Processing variable work */
53499 work_Dims[0]=lwork;
53500 capi_work_intent |= F2PY_INTENT_HIDE8;
53501 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
53502 if (capi_work_tmp == NULL((void*)0)) {
53503 if (!PyErr_Occurred())
53504 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssygvx to C/Fortran array" );
53505 } else {
53506 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
53507
53508 /* Processing variable iwork */
53509 iwork_Dims[0]=5 * n;
53510 capi_iwork_intent |= F2PY_INTENT_HIDE8;
53511 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
53512 if (capi_iwork_tmp == NULL((void*)0)) {
53513 if (!PyErr_Occurred())
53514 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.ssygvx to C/Fortran array" );
53515 } else {
53516 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
53517
53518 /* Processing variable w */
53519 w_Dims[0]=n;
53520 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
53521 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
53522 if (capi_w_tmp == NULL((void*)0)) {
53523 if (!PyErr_Occurred())
53524 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.ssygvx to C/Fortran array" );
53525 } else {
53526 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
53527
53528 /* Processing variable z */
53529 z_Dims[0]=(jobz[0]=='V'?MAX(0,n)((0 > n) ? (0) : (n)):0),z_Dims[1]=(jobz[0]=='V'?(range[0]=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0);
53530 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
53531 capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
53532 if (capi_z_tmp == NULL((void*)0)) {
53533 if (!PyErr_Occurred())
53534 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.ssygvx to C/Fortran array" );
53535 } else {
53536 z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
53537
53538 /* Processing variable ifail */
53539 ifail_Dims[0]=(jobz[0]=='N'?0:n);
53540 capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
53541 capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct));
53542 if (capi_ifail_tmp == NULL((void*)0)) {
53543 if (!PyErr_Occurred())
53544 PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.ssygvx to C/Fortran array" );
53545 } else {
53546 ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data));
53547
53548 /* Processing variable ldz */
53549 ldz = MAX(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0]));
53550/*end of frompyobj*/
53551#ifdef F2PY_REPORT_ATEXIT
53552f2py_start_call_clock();
53553#endif
53554/*callfortranroutine*/
53555 (*f2py_func)(&itype,jobz,range,uplo,&n,a,&lda,b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,&lwork,iwork,ifail,&info) ;
53556 /*(*f2py_func)(&itype,jobz,range,uplo,&n,a,&lda,b,&ldb,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,work,&lwork,iwork,ifail,&info,slen(jobz),slen(range),slen(uplo));*/
53557if (PyErr_Occurred())
53558 f2py_success = 0;
53559#ifdef F2PY_REPORT_ATEXIT
53560f2py_stop_call_clock();
53561#endif
53562/*end of callfortranroutine*/
53563 if (f2py_success) {
53564/*pyobjfrom*/
53565/*end of pyobjfrom*/
53566 CFUNCSMESS("Building return value.\n");
53567 capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info);
53568/*closepyobjfrom*/
53569/*end of closepyobjfrom*/
53570 } /*if (f2py_success) after callfortranroutine*/
53571/*cleanupfrompyobj*/
53572 /* End of cleaning variable ldz */
53573 } /*if (capi_ifail_tmp == NULL) ... else of ifail*/
53574 /* End of cleaning variable ifail */
53575 } /*if (capi_z_tmp == NULL) ... else of z*/
53576 /* End of cleaning variable z */
53577 } /*if (capi_w_tmp == NULL) ... else of w*/
53578 /* End of cleaning variable w */
53579 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
53580 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
53581 /* End of cleaning variable iwork */
53582 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
53583 } /*if (capi_work_tmp == NULL) ... else of work*/
53584 /* End of cleaning variable work */
53585 /* End of cleaning variable ldb */
53586 /* End of cleaning variable lda */
53587 } /*CHECKARRAY(shape(b,0)==shape(b,1))*/
53588 } /*CHECKARRAY(shape(b,0)==n)*/
53589 if((PyObject *)capi_b_tmp!=b_capi) {
53590 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
53591 } /*if (capi_b_tmp == NULL) ... else of b*/
53592 /* End of cleaning variable b */
53593 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
53594 } /*if (f2py_success) of lwork*/
53595 /* End of cleaning variable lwork */
53596 } /*CHECKSCALAR(vu>vl)*/
53597 } /*if (f2py_success) of vu*/
53598 /* End of cleaning variable vu */
53599 } /*if (f2py_success) of iu*/
53600 /* End of cleaning variable iu */
53601 /* End of cleaning variable n */
53602 } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/
53603 STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0);
53604 } /*if (f2py_success) of range*/
53605 /* End of cleaning variable range */
53606 /* End of cleaning variable info */
53607 /* End of cleaning variable m */
53608 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
53609 if((PyObject *)capi_a_tmp!=a_capi) {
53610 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
53611 } /*if (capi_a_tmp == NULL) ... else of a*/
53612 /* End of cleaning variable a */
53613 } /*if (f2py_success) of abstol*/
53614 /* End of cleaning variable abstol */
53615 } /*if (f2py_success) of vl*/
53616 /* End of cleaning variable vl */
53617 } /*if (f2py_success) of il*/
53618 /* End of cleaning variable il */
53619 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
53620 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
53621 } /*if (f2py_success) of uplo*/
53622 /* End of cleaning variable uplo */
53623 } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/
53624 STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0);
53625 } /*if (f2py_success) of jobz*/
53626 /* End of cleaning variable jobz */
53627 } /*CHECKSCALAR(itype>0||itype<4)*/
53628 } /*if (f2py_success) of itype*/
53629 /* End of cleaning variable itype */
53630/*end of cleanupfrompyobj*/
53631 if (capi_buildvalue == NULL((void*)0)) {
53632/*routdebugfailure*/
53633 } else {
53634/*routdebugleave*/
53635 }
53636 CFUNCSMESS("Freeing memory.\n");
53637/*freemem*/
53638#ifdef F2PY_REPORT_ATEXIT
53639f2py_stop_clock();
53640#endif
53641 return capi_buildvalue;
53642}
53643/******************************* end of ssygvx *******************************/
53644
53645/*********************************** dsygvx ***********************************/
53646static char doc_f2py_rout__flapack_dsygvx[] = "\
53647w,z,m,ifail,info = dsygvx(a,b,[itype,jobz,range,uplo,vl,vu,il,iu,abstol,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``dsygvx``.\
53648\n\nParameters\n----------\n"
53649"a : input rank-2 array('d') with bounds (n,n)\n"
53650"b : input rank-2 array('d') with bounds (n,n)\n"
53651"\nOther Parameters\n----------------\n"
53652"itype : input int, optional\n Default: 1\n"
53653"jobz : input string(len=1), optional\n Default: 'V'\n"
53654"range : input string(len=1), optional\n Default: 'A'\n"
53655"uplo : input string(len=1), optional\n Default: 'L'\n"
53656"overwrite_a : input int, optional\n Default: 0\n"
53657"overwrite_b : input int, optional\n Default: 0\n"
53658"vl : input float, optional\n Default: 0.0\n"
53659"vu : input float, optional\n Default: 1.0\n"
53660"il : input int, optional\n Default: 1\n"
53661"iu : input int, optional\n Default: n\n"
53662"abstol : input float, optional\n Default: 0.0\n"
53663"lwork : input int, optional\n Default: max(8*n,1)\n"
53664"\nReturns\n-------\n"
53665"w : rank-1 array('d') with bounds (n)\n"
53666"z : rank-2 array('d') with bounds ((jobz[0]=='V'?MAX(0,n):0),(jobz[0]=='V'?(range[0]=='I'?iu-il+1:MAX(1,n)):0))\n"
53667"m : int\n"
53668"ifail : rank-1 array('i') with bounds ((jobz[0]=='N'?0:n))\n"
53669"info : int";
53670/* extern void F_FUNC(dsygvx,DSYGVX)(F_INT*,char*,char*,char*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
53671static PyObject *f2py_rout__flapack_dsygvx(const PyObject *capi_self,
53672 PyObject *capi_args,
53673 PyObject *capi_keywds,
53674 void (*f2py_func)(F_INTint*,char*,char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
53675 PyObject * volatile capi_buildvalue = NULL((void*)0);
53676 volatile int f2py_success = 1;
53677/*decl*/
53678
53679 int itype = 0;
53680 PyObject *itype_capi = Py_None(&_Py_NoneStruct);
53681 string jobz = NULL((void*)0);
53682 int slen(jobz)capi_jobz_len;
53683 PyObject *jobz_capi = Py_None(&_Py_NoneStruct);
53684 string range = NULL((void*)0);
53685 int slen(range)capi_range_len;
53686 PyObject *range_capi = Py_None(&_Py_NoneStruct);
53687 string uplo = NULL((void*)0);
53688 int slen(uplo)capi_uplo_len;
53689 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
53690 int n = 0;
53691 double *a = NULL((void*)0);
53692 npy_intp a_Dims[2] = {-1, -1};
53693 const int a_Rank = 2;
53694 PyArrayObject *capi_a_tmp = NULL((void*)0);
53695 int capi_a_intent = 0;
53696 int capi_overwrite_a = 0;
53697 PyObject *a_capi = Py_None(&_Py_NoneStruct);
53698 int lda = 0;
53699 double *b = NULL((void*)0);
53700 npy_intp b_Dims[2] = {-1, -1};
53701 const int b_Rank = 2;
53702 PyArrayObject *capi_b_tmp = NULL((void*)0);
53703 int capi_b_intent = 0;
53704 int capi_overwrite_b = 0;
53705 PyObject *b_capi = Py_None(&_Py_NoneStruct);
53706 int ldb = 0;
53707 double vl = 0;
53708 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
53709 double vu = 0;
53710 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
53711 int il = 0;
53712 PyObject *il_capi = Py_None(&_Py_NoneStruct);
53713 int iu = 0;
53714 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
53715 double abstol = 0;
53716 PyObject *abstol_capi = Py_None(&_Py_NoneStruct);
53717 double *w = NULL((void*)0);
53718 npy_intp w_Dims[1] = {-1};
53719 const int w_Rank = 1;
53720 PyArrayObject *capi_w_tmp = NULL((void*)0);
53721 int capi_w_intent = 0;
53722 double *z = NULL((void*)0);
53723 npy_intp z_Dims[2] = {-1, -1};
53724 const int z_Rank = 2;
53725 PyArrayObject *capi_z_tmp = NULL((void*)0);
53726 int capi_z_intent = 0;
53727 int m = 0;
53728 int ldz = 0;
53729 double *work = NULL((void*)0);
53730 npy_intp work_Dims[1] = {-1};
53731 const int work_Rank = 1;
53732 PyArrayObject *capi_work_tmp = NULL((void*)0);
53733 int capi_work_intent = 0;
53734 int lwork = 0;
53735 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
53736 int *iwork = NULL((void*)0);
53737 npy_intp iwork_Dims[1] = {-1};
53738 const int iwork_Rank = 1;
53739 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
53740 int capi_iwork_intent = 0;
53741 int *ifail = NULL((void*)0);
53742 npy_intp ifail_Dims[1] = {-1};
53743 const int ifail_Rank = 1;
53744 PyArrayObject *capi_ifail_tmp = NULL((void*)0);
53745 int capi_ifail_intent = 0;
53746 int info = 0;
53747 static char *capi_kwlist[] = {"a","b","itype","jobz","range","uplo","vl","vu","il","iu","abstol","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
53748
53749/*routdebugenter*/
53750#ifdef F2PY_REPORT_ATEXIT
53751f2py_start_clock();
53752#endif
53753 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
53754 "OO|OOOOOOOOOOii:_flapack.dsygvx",\
53755 capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&range_capi,&uplo_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
53756 return NULL((void*)0);
53757/*frompyobj*/
53758 /* Processing variable itype */
53759 if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else
53760 f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.dsygvx() 1st keyword (itype) can't be converted to int");
53761 if (f2py_success) {
53762 CHECKSCALAR(itype>0||itype<4,"itype>0||itype<4","1st keyword itype","dsygvx:itype=%d",itype)if (!(itype>0||itype<4)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsygvx:itype=%d", "(""itype>0||itype<4"") failed for "
"1st keyword itype", itype); PyErr_SetString(_flapack_error,errstring
); } else
{
53763 /* Processing variable jobz */
53764 slen(jobz)capi_jobz_len = 1;
53765 f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.dsygvx to C string");
53766 if (f2py_success) {
53767 CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","dsygvx:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsygvx:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'"
") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString
(_flapack_error, errstring); } else
{
53768 /* Processing variable uplo */
53769 slen(uplo)capi_uplo_len = 1;
53770 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 4th keyword `uplo' of _flapack.dsygvx to C string");
53771 if (f2py_success) {
53772 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","4th keyword uplo","dsygvx:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsygvx:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""4th keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
53773 /* Processing variable il */
53774 if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else
53775 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.dsygvx() 7th keyword (il) can't be converted to int");
53776 if (f2py_success) {
53777 /* Processing variable vl */
53778 if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else
53779 f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.dsygvx() 5th keyword (vl) can't be converted to double");
53780 if (f2py_success) {
53781 /* Processing variable abstol */
53782 if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else
53783 f2py_success = double_from_pyobj(&abstol,abstol_capi,"_flapack.dsygvx() 9th keyword (abstol) can't be converted to double");
53784 if (f2py_success) {
53785 /* Processing variable a */
53786 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
53787 ;
53788 capi_a_intent |= F2PY_INTENT_IN1;
53789 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
53790 if (capi_a_tmp == NULL((void*)0)) {
53791 if (!PyErr_Occurred())
53792 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsygvx to C/Fortran array" );
53793 } else {
53794 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
53795
53796 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
53797 /* Processing variable m */
53798 /* Processing variable info */
53799 /* Processing variable range */
53800 slen(range)capi_range_len = 1;
53801 f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 3rd keyword `range' of _flapack.dsygvx to C string");
53802 if (f2py_success) {
53803 CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","3rd keyword range","dsygvx:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dsygvx:slen(range)=%d range=\"%s\""
, "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""3rd keyword range"
, capi_range_len, range); PyErr_SetString(_flapack_error, errstring
); } else
{
53804 /* Processing variable n */
53805 n = shape(a,0)a_Dims[0];
53806 /* Processing variable iu */
53807 if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else
53808 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.dsygvx() 8th keyword (iu) can't be converted to int");
53809 if (f2py_success) {
53810 /* Processing variable vu */
53811 if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else
53812 f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.dsygvx() 6th keyword (vu) can't be converted to double");
53813 if (f2py_success) {
53814 CHECKSCALAR(vu>vl,"vu>vl","6th keyword vu","dsygvx:vu=%g",vu)if (!(vu>vl)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsygvx:vu=%g", "(""vu>vl"") failed for ""6th keyword vu"
, vu); PyErr_SetString(_flapack_error,errstring); } else
{
53815 /* Processing variable lwork */
53816 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(8*n,1)((8*n > 1) ? (8*n) : (1)); else
53817 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dsygvx() 10th keyword (lwork) can't be converted to int");
53818 if (f2py_success) {
53819 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","10th keyword lwork","dsygvx:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsygvx:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"10th keyword lwork", lwork); PyErr_SetString(_flapack_error,
errstring); } else
{
53820 /* Processing variable b */
53821 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
53822 b_Dims[0]=n,b_Dims[1]=n;
53823 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
53824 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
53825 if (capi_b_tmp == NULL((void*)0)) {
53826 if (!PyErr_Occurred())
53827 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dsygvx to C/Fortran array" );
53828 } else {
53829 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
53830
53831 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
53832 CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b");
} else
{
53833 /* Processing variable lda */
53834 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
53835 /* Processing variable ldb */
53836 ldb = MAX(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
53837 /* Processing variable work */
53838 work_Dims[0]=lwork;
53839 capi_work_intent |= F2PY_INTENT_HIDE8;
53840 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
53841 if (capi_work_tmp == NULL((void*)0)) {
53842 if (!PyErr_Occurred())
53843 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsygvx to C/Fortran array" );
53844 } else {
53845 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
53846
53847 /* Processing variable iwork */
53848 iwork_Dims[0]=5 * n;
53849 capi_iwork_intent |= F2PY_INTENT_HIDE8;
53850 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
53851 if (capi_iwork_tmp == NULL((void*)0)) {
53852 if (!PyErr_Occurred())
53853 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dsygvx to C/Fortran array" );
53854 } else {
53855 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
53856
53857 /* Processing variable w */
53858 w_Dims[0]=n;
53859 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
53860 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
53861 if (capi_w_tmp == NULL((void*)0)) {
53862 if (!PyErr_Occurred())
53863 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dsygvx to C/Fortran array" );
53864 } else {
53865 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
53866
53867 /* Processing variable z */
53868 z_Dims[0]=(jobz[0]=='V'?MAX(0,n)((0 > n) ? (0) : (n)):0),z_Dims[1]=(jobz[0]=='V'?(range[0]=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0);
53869 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
53870 capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
53871 if (capi_z_tmp == NULL((void*)0)) {
53872 if (!PyErr_Occurred())
53873 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.dsygvx to C/Fortran array" );
53874 } else {
53875 z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
53876
53877 /* Processing variable ifail */
53878 ifail_Dims[0]=(jobz[0]=='N'?0:n);
53879 capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
53880 capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct));
53881 if (capi_ifail_tmp == NULL((void*)0)) {
53882 if (!PyErr_Occurred())
53883 PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.dsygvx to C/Fortran array" );
53884 } else {
53885 ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data));
53886
53887 /* Processing variable ldz */
53888 ldz = MAX(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0]));
53889/*end of frompyobj*/
53890#ifdef F2PY_REPORT_ATEXIT
53891f2py_start_call_clock();
53892#endif
53893/*callfortranroutine*/
53894 (*f2py_func)(&itype,jobz,range,uplo,&n,a,&lda,b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,&lwork,iwork,ifail,&info) ;
53895 /*(*f2py_func)(&itype,jobz,range,uplo,&n,a,&lda,b,&ldb,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,work,&lwork,iwork,ifail,&info,slen(jobz),slen(range),slen(uplo));*/
53896if (PyErr_Occurred())
53897 f2py_success = 0;
53898#ifdef F2PY_REPORT_ATEXIT
53899f2py_stop_call_clock();
53900#endif
53901/*end of callfortranroutine*/
53902 if (f2py_success) {
53903/*pyobjfrom*/
53904/*end of pyobjfrom*/
53905 CFUNCSMESS("Building return value.\n");
53906 capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info);
53907/*closepyobjfrom*/
53908/*end of closepyobjfrom*/
53909 } /*if (f2py_success) after callfortranroutine*/
53910/*cleanupfrompyobj*/
53911 /* End of cleaning variable ldz */
53912 } /*if (capi_ifail_tmp == NULL) ... else of ifail*/
53913 /* End of cleaning variable ifail */
53914 } /*if (capi_z_tmp == NULL) ... else of z*/
53915 /* End of cleaning variable z */
53916 } /*if (capi_w_tmp == NULL) ... else of w*/
53917 /* End of cleaning variable w */
53918 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
53919 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
53920 /* End of cleaning variable iwork */
53921 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
53922 } /*if (capi_work_tmp == NULL) ... else of work*/
53923 /* End of cleaning variable work */
53924 /* End of cleaning variable ldb */
53925 /* End of cleaning variable lda */
53926 } /*CHECKARRAY(shape(b,0)==shape(b,1))*/
53927 } /*CHECKARRAY(shape(b,0)==n)*/
53928 if((PyObject *)capi_b_tmp!=b_capi) {
53929 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
53930 } /*if (capi_b_tmp == NULL) ... else of b*/
53931 /* End of cleaning variable b */
53932 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
53933 } /*if (f2py_success) of lwork*/
53934 /* End of cleaning variable lwork */
53935 } /*CHECKSCALAR(vu>vl)*/
53936 } /*if (f2py_success) of vu*/
53937 /* End of cleaning variable vu */
53938 } /*if (f2py_success) of iu*/
53939 /* End of cleaning variable iu */
53940 /* End of cleaning variable n */
53941 } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/
53942 STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0);
53943 } /*if (f2py_success) of range*/
53944 /* End of cleaning variable range */
53945 /* End of cleaning variable info */
53946 /* End of cleaning variable m */
53947 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
53948 if((PyObject *)capi_a_tmp!=a_capi) {
53949 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
53950 } /*if (capi_a_tmp == NULL) ... else of a*/
53951 /* End of cleaning variable a */
53952 } /*if (f2py_success) of abstol*/
53953 /* End of cleaning variable abstol */
53954 } /*if (f2py_success) of vl*/
53955 /* End of cleaning variable vl */
53956 } /*if (f2py_success) of il*/
53957 /* End of cleaning variable il */
53958 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
53959 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
53960 } /*if (f2py_success) of uplo*/
53961 /* End of cleaning variable uplo */
53962 } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/
53963 STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0);
53964 } /*if (f2py_success) of jobz*/
53965 /* End of cleaning variable jobz */
53966 } /*CHECKSCALAR(itype>0||itype<4)*/
53967 } /*if (f2py_success) of itype*/
53968 /* End of cleaning variable itype */
53969/*end of cleanupfrompyobj*/
53970 if (capi_buildvalue == NULL((void*)0)) {
53971/*routdebugfailure*/
53972 } else {
53973/*routdebugleave*/
53974 }
53975 CFUNCSMESS("Freeing memory.\n");
53976/*freemem*/
53977#ifdef F2PY_REPORT_ATEXIT
53978f2py_stop_clock();
53979#endif
53980 return capi_buildvalue;
53981}
53982/******************************* end of dsygvx *******************************/
53983
53984/******************************** ssygvx_lwork ********************************/
53985static char doc_f2py_rout__flapack_ssygvx_lwork[] = "\
53986work,info = ssygvx_lwork(n,[uplo])\n\nWrapper for ``ssygvx_lwork``.\
53987\n\nParameters\n----------\n"
53988"n : input int\n"
53989"\nOther Parameters\n----------------\n"
53990"uplo : input string(len=1), optional\n Default: 'L'\n"
53991"\nReturns\n-------\n"
53992"work : float\n"
53993"info : int";
53994/* extern void F_FUNC(ssygvx ,SSYGVX )(F_INT*,char*,char*,char*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
53995static PyObject *f2py_rout__flapack_ssygvx_lwork(const PyObject *capi_self,
53996 PyObject *capi_args,
53997 PyObject *capi_keywds,
53998 void (*f2py_func)(F_INTint*,char*,char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
53999 PyObject * volatile capi_buildvalue = NULL((void*)0);
54000 volatile int f2py_success = 1;
54001/*decl*/
54002
54003 int itype = 0;
54004 string uplo = NULL((void*)0);
54005 int slen(uplo)capi_uplo_len;
54006 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
54007 int n = 0;
54008 PyObject *n_capi = Py_None(&_Py_NoneStruct);
54009 float a = 0;
54010 int lda = 0;
54011 float b = 0;
54012 int ldb = 0;
54013 float vl = 0;
54014 float vu = 0;
54015 int il = 0;
54016 int iu = 0;
54017 float abstol = 0;
54018 int m = 0;
54019 float w = 0;
54020 float z = 0;
54021 int ldz = 0;
54022 float work = 0;
54023 int lwork = 0;
54024 int iwork = 0;
54025 int ifail = 0;
54026 int info = 0;
54027 static char *capi_kwlist[] = {"n","uplo",NULL((void*)0)};
54028
54029/*routdebugenter*/
54030#ifdef F2PY_REPORT_ATEXIT
54031f2py_start_clock();
54032#endif
54033 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
54034 "O|O:_flapack.ssygvx_lwork",\
54035 capi_kwlist,&n_capi,&uplo_capi))
54036 return NULL((void*)0);
54037/*frompyobj*/
54038 /* Processing variable n */
54039 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssygvx_lwork() 1st argument (n) can't be converted to int");
54040 if (f2py_success) {
54041 /* Processing variable uplo */
54042 slen(uplo)capi_uplo_len = 1;
54043 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.ssygvx_lwork to C string");
54044 if (f2py_success) {
54045 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","ssygvx_lwork:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssygvx_lwork:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
54046 /* Processing variable itype */
54047 itype = 1;
54048 /* Processing variable a */
54049 /* Processing variable b */
54050 /* Processing variable il */
54051 il = 1;
54052 /* Processing variable iu */
54053 iu = 0;
54054 /* Processing variable vl */
54055 vl = 0.0;
54056 /* Processing variable vu */
54057 vu = 1.0;
54058 /* Processing variable abstol */
54059 abstol = 0.0;
54060 /* Processing variable m */
54061 /* Processing variable w */
54062 /* Processing variable z */
54063 /* Processing variable lwork */
54064 lwork = -1;
54065 /* Processing variable iwork */
54066 /* Processing variable ifail */
54067 /* Processing variable work */
54068 /* Processing variable info */
54069 /* Processing variable lda */
54070 lda = MAX(1,n)((1 > n) ? (1) : (n));
54071 /* Processing variable ldb */
54072 ldb = MAX(1,n)((1 > n) ? (1) : (n));
54073 /* Processing variable ldz */
54074 ldz = MAX(1,n)((1 > n) ? (1) : (n));
54075/*end of frompyobj*/
54076#ifdef F2PY_REPORT_ATEXIT
54077f2py_start_call_clock();
54078#endif
54079/*callfortranroutine*/
54080 (*f2py_func)(&itype,"N","A",uplo,&n,&a,&lda,&b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&iwork,&ifail,&info) ;
54081 /*(*f2py_func)(&itype,uplo,&n,&a,&lda,&b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&iwork,&ifail,&info,slen(uplo));*/
54082if (PyErr_Occurred())
54083 f2py_success = 0;
54084#ifdef F2PY_REPORT_ATEXIT
54085f2py_stop_call_clock();
54086#endif
54087/*end of callfortranroutine*/
54088 if (f2py_success) {
54089/*pyobjfrom*/
54090/*end of pyobjfrom*/
54091 CFUNCSMESS("Building return value.\n");
54092 capi_buildvalue = Py_BuildValue("fi",work,info);
54093/*closepyobjfrom*/
54094/*end of closepyobjfrom*/
54095 } /*if (f2py_success) after callfortranroutine*/
54096/*cleanupfrompyobj*/
54097 /* End of cleaning variable ldz */
54098 /* End of cleaning variable ldb */
54099 /* End of cleaning variable lda */
54100 /* End of cleaning variable info */
54101 /* End of cleaning variable work */
54102 /* End of cleaning variable ifail */
54103 /* End of cleaning variable iwork */
54104 /* End of cleaning variable lwork */
54105 /* End of cleaning variable z */
54106 /* End of cleaning variable w */
54107 /* End of cleaning variable m */
54108 /* End of cleaning variable abstol */
54109 /* End of cleaning variable vu */
54110 /* End of cleaning variable vl */
54111 /* End of cleaning variable iu */
54112 /* End of cleaning variable il */
54113 /* End of cleaning variable b */
54114 /* End of cleaning variable a */
54115 /* End of cleaning variable itype */
54116 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
54117 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
54118 } /*if (f2py_success) of uplo*/
54119 /* End of cleaning variable uplo */
54120 } /*if (f2py_success) of n*/
54121 /* End of cleaning variable n */
54122/*end of cleanupfrompyobj*/
54123 if (capi_buildvalue == NULL((void*)0)) {
54124/*routdebugfailure*/
54125 } else {
54126/*routdebugleave*/
54127 }
54128 CFUNCSMESS("Freeing memory.\n");
54129/*freemem*/
54130#ifdef F2PY_REPORT_ATEXIT
54131f2py_stop_clock();
54132#endif
54133 return capi_buildvalue;
54134}
54135/**************************** end of ssygvx_lwork ****************************/
54136
54137/******************************** dsygvx_lwork ********************************/
54138static char doc_f2py_rout__flapack_dsygvx_lwork[] = "\
54139work,info = dsygvx_lwork(n,[uplo])\n\nWrapper for ``dsygvx_lwork``.\
54140\n\nParameters\n----------\n"
54141"n : input int\n"
54142"\nOther Parameters\n----------------\n"
54143"uplo : input string(len=1), optional\n Default: 'L'\n"
54144"\nReturns\n-------\n"
54145"work : float\n"
54146"info : int";
54147/* extern void F_FUNC(dsygvx ,DSYGVX )(F_INT*,char*,char*,char*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
54148static PyObject *f2py_rout__flapack_dsygvx_lwork(const PyObject *capi_self,
54149 PyObject *capi_args,
54150 PyObject *capi_keywds,
54151 void (*f2py_func)(F_INTint*,char*,char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
54152 PyObject * volatile capi_buildvalue = NULL((void*)0);
54153 volatile int f2py_success = 1;
54154/*decl*/
54155
54156 int itype = 0;
54157 string uplo = NULL((void*)0);
54158 int slen(uplo)capi_uplo_len;
54159 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
54160 int n = 0;
54161 PyObject *n_capi = Py_None(&_Py_NoneStruct);
54162 double a = 0;
54163 int lda = 0;
54164 double b = 0;
54165 int ldb = 0;
54166 double vl = 0;
54167 double vu = 0;
54168 int il = 0;
54169 int iu = 0;
54170 double abstol = 0;
54171 int m = 0;
54172 double w = 0;
54173 double z = 0;
54174 int ldz = 0;
54175 double work = 0;
54176 int lwork = 0;
54177 int iwork = 0;
54178 int ifail = 0;
54179 int info = 0;
54180 static char *capi_kwlist[] = {"n","uplo",NULL((void*)0)};
54181
54182/*routdebugenter*/
54183#ifdef F2PY_REPORT_ATEXIT
54184f2py_start_clock();
54185#endif
54186 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
54187 "O|O:_flapack.dsygvx_lwork",\
54188 capi_kwlist,&n_capi,&uplo_capi))
54189 return NULL((void*)0);
54190/*frompyobj*/
54191 /* Processing variable n */
54192 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsygvx_lwork() 1st argument (n) can't be converted to int");
54193 if (f2py_success) {
54194 /* Processing variable uplo */
54195 slen(uplo)capi_uplo_len = 1;
54196 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.dsygvx_lwork to C string");
54197 if (f2py_success) {
54198 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","dsygvx_lwork:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsygvx_lwork:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
54199 /* Processing variable itype */
54200 itype = 1;
54201 /* Processing variable a */
54202 /* Processing variable b */
54203 /* Processing variable il */
54204 il = 1;
54205 /* Processing variable iu */
54206 iu = 0;
54207 /* Processing variable vl */
54208 vl = 0.0;
54209 /* Processing variable vu */
54210 vu = 1.0;
54211 /* Processing variable abstol */
54212 abstol = 0.0;
54213 /* Processing variable m */
54214 /* Processing variable w */
54215 /* Processing variable z */
54216 /* Processing variable lwork */
54217 lwork = -1;
54218 /* Processing variable iwork */
54219 /* Processing variable ifail */
54220 /* Processing variable work */
54221 /* Processing variable info */
54222 /* Processing variable lda */
54223 lda = MAX(1,n)((1 > n) ? (1) : (n));
54224 /* Processing variable ldb */
54225 ldb = MAX(1,n)((1 > n) ? (1) : (n));
54226 /* Processing variable ldz */
54227 ldz = MAX(1,n)((1 > n) ? (1) : (n));
54228/*end of frompyobj*/
54229#ifdef F2PY_REPORT_ATEXIT
54230f2py_start_call_clock();
54231#endif
54232/*callfortranroutine*/
54233 (*f2py_func)(&itype,"N","A",uplo,&n,&a,&lda,&b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&iwork,&ifail,&info) ;
54234 /*(*f2py_func)(&itype,uplo,&n,&a,&lda,&b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&iwork,&ifail,&info,slen(uplo));*/
54235if (PyErr_Occurred())
54236 f2py_success = 0;
54237#ifdef F2PY_REPORT_ATEXIT
54238f2py_stop_call_clock();
54239#endif
54240/*end of callfortranroutine*/
54241 if (f2py_success) {
54242/*pyobjfrom*/
54243/*end of pyobjfrom*/
54244 CFUNCSMESS("Building return value.\n");
54245 capi_buildvalue = Py_BuildValue("di",work,info);
54246/*closepyobjfrom*/
54247/*end of closepyobjfrom*/
54248 } /*if (f2py_success) after callfortranroutine*/
54249/*cleanupfrompyobj*/
54250 /* End of cleaning variable ldz */
54251 /* End of cleaning variable ldb */
54252 /* End of cleaning variable lda */
54253 /* End of cleaning variable info */
54254 /* End of cleaning variable work */
54255 /* End of cleaning variable ifail */
54256 /* End of cleaning variable iwork */
54257 /* End of cleaning variable lwork */
54258 /* End of cleaning variable z */
54259 /* End of cleaning variable w */
54260 /* End of cleaning variable m */
54261 /* End of cleaning variable abstol */
54262 /* End of cleaning variable vu */
54263 /* End of cleaning variable vl */
54264 /* End of cleaning variable iu */
54265 /* End of cleaning variable il */
54266 /* End of cleaning variable b */
54267 /* End of cleaning variable a */
54268 /* End of cleaning variable itype */
54269 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
54270 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
54271 } /*if (f2py_success) of uplo*/
54272 /* End of cleaning variable uplo */
54273 } /*if (f2py_success) of n*/
54274 /* End of cleaning variable n */
54275/*end of cleanupfrompyobj*/
54276 if (capi_buildvalue == NULL((void*)0)) {
54277/*routdebugfailure*/
54278 } else {
54279/*routdebugleave*/
54280 }
54281 CFUNCSMESS("Freeing memory.\n");
54282/*freemem*/
54283#ifdef F2PY_REPORT_ATEXIT
54284f2py_stop_clock();
54285#endif
54286 return capi_buildvalue;
54287}
54288/**************************** end of dsygvx_lwork ****************************/
54289
54290/*********************************** chegvx ***********************************/
54291static char doc_f2py_rout__flapack_chegvx[] = "\
54292w,z,m,ifail,info = chegvx(a,b,[itype,jobz,range,uplo,vl,vu,il,iu,abstol,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``chegvx``.\
54293\n\nParameters\n----------\n"
54294"a : input rank-2 array('F') with bounds (n,n)\n"
54295"b : input rank-2 array('F') with bounds (n,n)\n"
54296"\nOther Parameters\n----------------\n"
54297"itype : input int, optional\n Default: 1\n"
54298"jobz : input string(len=1), optional\n Default: 'V'\n"
54299"range : input string(len=1), optional\n Default: 'A'\n"
54300"uplo : input string(len=1), optional\n Default: 'L'\n"
54301"overwrite_a : input int, optional\n Default: 0\n"
54302"overwrite_b : input int, optional\n Default: 0\n"
54303"vl : input float, optional\n Default: 0.0\n"
54304"vu : input float, optional\n Default: 1.0\n"
54305"il : input int, optional\n Default: 1\n"
54306"iu : input int, optional\n Default: n\n"
54307"abstol : input float, optional\n Default: 0.0\n"
54308"lwork : input int, optional\n Default: max(2*n,1)\n"
54309"\nReturns\n-------\n"
54310"w : rank-1 array('f') with bounds (n)\n"
54311"z : rank-2 array('F') with bounds ((jobz[0]=='V'?MAX(0,n):0),(jobz[0]=='V'?(range[0]=='I'?iu-il+1:MAX(1,n)):0))\n"
54312"m : int\n"
54313"ifail : rank-1 array('i') with bounds ((jobz[0]=='N'?0:n))\n"
54314"info : int";
54315/* extern void F_FUNC(chegvx,CHEGVX)(F_INT*,char*,char*,char*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */
54316static PyObject *f2py_rout__flapack_chegvx(const PyObject *capi_self,
54317 PyObject *capi_args,
54318 PyObject *capi_keywds,
54319 void (*f2py_func)(F_INTint*,char*,char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) {
54320 PyObject * volatile capi_buildvalue = NULL((void*)0);
54321 volatile int f2py_success = 1;
54322/*decl*/
54323
54324 int itype = 0;
54325 PyObject *itype_capi = Py_None(&_Py_NoneStruct);
54326 string jobz = NULL((void*)0);
54327 int slen(jobz)capi_jobz_len;
54328 PyObject *jobz_capi = Py_None(&_Py_NoneStruct);
54329 string range = NULL((void*)0);
54330 int slen(range)capi_range_len;
54331 PyObject *range_capi = Py_None(&_Py_NoneStruct);
54332 string uplo = NULL((void*)0);
54333 int slen(uplo)capi_uplo_len;
54334 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
54335 int n = 0;
54336 complex_float *a = NULL((void*)0);
54337 npy_intp a_Dims[2] = {-1, -1};
54338 const int a_Rank = 2;
54339 PyArrayObject *capi_a_tmp = NULL((void*)0);
54340 int capi_a_intent = 0;
54341 int capi_overwrite_a = 0;
54342 PyObject *a_capi = Py_None(&_Py_NoneStruct);
54343 int lda = 0;
54344 complex_float *b = NULL((void*)0);
54345 npy_intp b_Dims[2] = {-1, -1};
54346 const int b_Rank = 2;
54347 PyArrayObject *capi_b_tmp = NULL((void*)0);
54348 int capi_b_intent = 0;
54349 int capi_overwrite_b = 0;
54350 PyObject *b_capi = Py_None(&_Py_NoneStruct);
54351 int ldb = 0;
54352 float vl = 0;
54353 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
54354 float vu = 0;
54355 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
54356 int il = 0;
54357 PyObject *il_capi = Py_None(&_Py_NoneStruct);
54358 int iu = 0;
54359 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
54360 float abstol = 0;
54361 PyObject *abstol_capi = Py_None(&_Py_NoneStruct);
54362 float *w = NULL((void*)0);
54363 npy_intp w_Dims[1] = {-1};
54364 const int w_Rank = 1;
54365 PyArrayObject *capi_w_tmp = NULL((void*)0);
54366 int capi_w_intent = 0;
54367 complex_float *z = NULL((void*)0);
54368 npy_intp z_Dims[2] = {-1, -1};
54369 const int z_Rank = 2;
54370 PyArrayObject *capi_z_tmp = NULL((void*)0);
54371 int capi_z_intent = 0;
54372 int m = 0;
54373 int ldz = 0;
54374 complex_float *work = NULL((void*)0);
54375 npy_intp work_Dims[1] = {-1};
54376 const int work_Rank = 1;
54377 PyArrayObject *capi_work_tmp = NULL((void*)0);
54378 int capi_work_intent = 0;
54379 int lwork = 0;
54380 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
54381 float *rwork = NULL((void*)0);
54382 npy_intp rwork_Dims[1] = {-1};
54383 const int rwork_Rank = 1;
54384 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
54385 int capi_rwork_intent = 0;
54386 int *iwork = NULL((void*)0);
54387 npy_intp iwork_Dims[1] = {-1};
54388 const int iwork_Rank = 1;
54389 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
54390 int capi_iwork_intent = 0;
54391 int *ifail = NULL((void*)0);
54392 npy_intp ifail_Dims[1] = {-1};
54393 const int ifail_Rank = 1;
54394 PyArrayObject *capi_ifail_tmp = NULL((void*)0);
54395 int capi_ifail_intent = 0;
54396 int info = 0;
54397 static char *capi_kwlist[] = {"a","b","itype","jobz","range","uplo","vl","vu","il","iu","abstol","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
54398
54399/*routdebugenter*/
54400#ifdef F2PY_REPORT_ATEXIT
54401f2py_start_clock();
54402#endif
54403 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
54404 "OO|OOOOOOOOOOii:_flapack.chegvx",\
54405 capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&range_capi,&uplo_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
54406 return NULL((void*)0);
54407/*frompyobj*/
54408 /* Processing variable itype */
54409 if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else
54410 f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.chegvx() 1st keyword (itype) can't be converted to int");
54411 if (f2py_success) {
54412 CHECKSCALAR(itype>0||itype<4,"itype>0||itype<4","1st keyword itype","chegvx:itype=%d",itype)if (!(itype>0||itype<4)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chegvx:itype=%d", "(""itype>0||itype<4"") failed for "
"1st keyword itype", itype); PyErr_SetString(_flapack_error,errstring
); } else
{
54413 /* Processing variable jobz */
54414 slen(jobz)capi_jobz_len = 1;
54415 f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.chegvx to C string");
54416 if (f2py_success) {
54417 CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","chegvx:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chegvx:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'"
") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString
(_flapack_error, errstring); } else
{
54418 /* Processing variable uplo */
54419 slen(uplo)capi_uplo_len = 1;
54420 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 4th keyword `uplo' of _flapack.chegvx to C string");
54421 if (f2py_success) {
54422 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","4th keyword uplo","chegvx:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chegvx:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""4th keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
54423 /* Processing variable il */
54424 if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else
54425 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.chegvx() 7th keyword (il) can't be converted to int");
54426 if (f2py_success) {
54427 /* Processing variable vl */
54428 if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else
54429 f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.chegvx() 5th keyword (vl) can't be converted to float");
54430 if (f2py_success) {
54431 /* Processing variable abstol */
54432 if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else
54433 f2py_success = float_from_pyobj(&abstol,abstol_capi,"_flapack.chegvx() 9th keyword (abstol) can't be converted to float");
54434 if (f2py_success) {
54435 /* Processing variable a */
54436 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
54437 ;
54438 capi_a_intent |= F2PY_INTENT_IN1;
54439 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
54440 if (capi_a_tmp == NULL((void*)0)) {
54441 if (!PyErr_Occurred())
54442 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.chegvx to C/Fortran array" );
54443 } else {
54444 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
54445
54446 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
54447 /* Processing variable m */
54448 /* Processing variable info */
54449 /* Processing variable range */
54450 slen(range)capi_range_len = 1;
54451 f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 3rd keyword `range' of _flapack.chegvx to C string");
54452 if (f2py_success) {
54453 CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","3rd keyword range","chegvx:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""chegvx:slen(range)=%d range=\"%s\""
, "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""3rd keyword range"
, capi_range_len, range); PyErr_SetString(_flapack_error, errstring
); } else
{
54454 /* Processing variable n */
54455 n = shape(a,0)a_Dims[0];
54456 /* Processing variable iu */
54457 if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else
54458 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.chegvx() 8th keyword (iu) can't be converted to int");
54459 if (f2py_success) {
54460 /* Processing variable vu */
54461 if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else
54462 f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.chegvx() 6th keyword (vu) can't be converted to float");
54463 if (f2py_success) {
54464 CHECKSCALAR(vu>vl,"vu>vl","6th keyword vu","chegvx:vu=%g",vu)if (!(vu>vl)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chegvx:vu=%g", "(""vu>vl"") failed for ""6th keyword vu"
, vu); PyErr_SetString(_flapack_error,errstring); } else
{
54465 /* Processing variable lwork */
54466 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else
54467 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.chegvx() 10th keyword (lwork) can't be converted to int");
54468 if (f2py_success) {
54469 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","10th keyword lwork","chegvx:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chegvx:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"10th keyword lwork", lwork); PyErr_SetString(_flapack_error,
errstring); } else
{
54470 /* Processing variable b */
54471 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
54472 b_Dims[0]=n,b_Dims[1]=n;
54473 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
54474 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
54475 if (capi_b_tmp == NULL((void*)0)) {
54476 if (!PyErr_Occurred())
54477 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.chegvx to C/Fortran array" );
54478 } else {
54479 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
54480
54481 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
54482 CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b");
} else
{
54483 /* Processing variable lda */
54484 lda = max(1,n)((1 > n) ? (1) : (n));
54485 /* Processing variable ldb */
54486 ldb = max(1,n)((1 > n) ? (1) : (n));
54487 /* Processing variable work */
54488 work_Dims[0]=lwork;
54489 capi_work_intent |= F2PY_INTENT_HIDE8;
54490 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
54491 if (capi_work_tmp == NULL((void*)0)) {
54492 if (!PyErr_Occurred())
54493 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.chegvx to C/Fortran array" );
54494 } else {
54495 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
54496
54497 /* Processing variable iwork */
54498 iwork_Dims[0]=5 * n;
54499 capi_iwork_intent |= F2PY_INTENT_HIDE8;
54500 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
54501 if (capi_iwork_tmp == NULL((void*)0)) {
54502 if (!PyErr_Occurred())
54503 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.chegvx to C/Fortran array" );
54504 } else {
54505 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
54506
54507 /* Processing variable rwork */
54508 rwork_Dims[0]=7 * n;
54509 capi_rwork_intent |= F2PY_INTENT_HIDE8;
54510 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
54511 if (capi_rwork_tmp == NULL((void*)0)) {
54512 if (!PyErr_Occurred())
54513 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.chegvx to C/Fortran array" );
54514 } else {
54515 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
54516
54517 /* Processing variable w */
54518 w_Dims[0]=n;
54519 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
54520 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
54521 if (capi_w_tmp == NULL((void*)0)) {
54522 if (!PyErr_Occurred())
54523 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.chegvx to C/Fortran array" );
54524 } else {
54525 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
54526
54527 /* Processing variable z */
54528 z_Dims[0]=(jobz[0]=='V'?MAX(0,n)((0 > n) ? (0) : (n)):0),z_Dims[1]=(jobz[0]=='V'?(range[0]=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0);
54529 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
54530 capi_z_tmp = array_from_pyobj(NPY_CFLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
54531 if (capi_z_tmp == NULL((void*)0)) {
54532 if (!PyErr_Occurred())
54533 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.chegvx to C/Fortran array" );
54534 } else {
54535 z = (complex_float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
54536
54537 /* Processing variable ifail */
54538 ifail_Dims[0]=(jobz[0]=='N'?0:n);
54539 capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
54540 capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct));
54541 if (capi_ifail_tmp == NULL((void*)0)) {
54542 if (!PyErr_Occurred())
54543 PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.chegvx to C/Fortran array" );
54544 } else {
54545 ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data));
54546
54547 /* Processing variable ldz */
54548 ldz = max(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0]));
54549/*end of frompyobj*/
54550#ifdef F2PY_REPORT_ATEXIT
54551f2py_start_call_clock();
54552#endif
54553/*callfortranroutine*/
54554 (*f2py_func)(&itype,jobz,range,uplo,&n,a,&lda,b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,&lwork,rwork,iwork,ifail,&info) ;
54555 /*(*f2py_func)(&itype,jobz,range,uplo,&n,a,&lda,b,&ldb,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,work,&lwork,rwork,iwork,ifail,&info,slen(jobz),slen(range),slen(uplo));*/
54556if (PyErr_Occurred())
54557 f2py_success = 0;
54558#ifdef F2PY_REPORT_ATEXIT
54559f2py_stop_call_clock();
54560#endif
54561/*end of callfortranroutine*/
54562 if (f2py_success) {
54563/*pyobjfrom*/
54564/*end of pyobjfrom*/
54565 CFUNCSMESS("Building return value.\n");
54566 capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info);
54567/*closepyobjfrom*/
54568/*end of closepyobjfrom*/
54569 } /*if (f2py_success) after callfortranroutine*/
54570/*cleanupfrompyobj*/
54571 /* End of cleaning variable ldz */
54572 } /*if (capi_ifail_tmp == NULL) ... else of ifail*/
54573 /* End of cleaning variable ifail */
54574 } /*if (capi_z_tmp == NULL) ... else of z*/
54575 /* End of cleaning variable z */
54576 } /*if (capi_w_tmp == NULL) ... else of w*/
54577 /* End of cleaning variable w */
54578 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
54579 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
54580 /* End of cleaning variable rwork */
54581 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
54582 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
54583 /* End of cleaning variable iwork */
54584 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
54585 } /*if (capi_work_tmp == NULL) ... else of work*/
54586 /* End of cleaning variable work */
54587 /* End of cleaning variable ldb */
54588 /* End of cleaning variable lda */
54589 } /*CHECKARRAY(shape(b,0)==shape(b,1))*/
54590 } /*CHECKARRAY(shape(b,0)==n)*/
54591 if((PyObject *)capi_b_tmp!=b_capi) {
54592 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
54593 } /*if (capi_b_tmp == NULL) ... else of b*/
54594 /* End of cleaning variable b */
54595 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
54596 } /*if (f2py_success) of lwork*/
54597 /* End of cleaning variable lwork */
54598 } /*CHECKSCALAR(vu>vl)*/
54599 } /*if (f2py_success) of vu*/
54600 /* End of cleaning variable vu */
54601 } /*if (f2py_success) of iu*/
54602 /* End of cleaning variable iu */
54603 /* End of cleaning variable n */
54604 } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/
54605 STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0);
54606 } /*if (f2py_success) of range*/
54607 /* End of cleaning variable range */
54608 /* End of cleaning variable info */
54609 /* End of cleaning variable m */
54610 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
54611 if((PyObject *)capi_a_tmp!=a_capi) {
54612 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
54613 } /*if (capi_a_tmp == NULL) ... else of a*/
54614 /* End of cleaning variable a */
54615 } /*if (f2py_success) of abstol*/
54616 /* End of cleaning variable abstol */
54617 } /*if (f2py_success) of vl*/
54618 /* End of cleaning variable vl */
54619 } /*if (f2py_success) of il*/
54620 /* End of cleaning variable il */
54621 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
54622 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
54623 } /*if (f2py_success) of uplo*/
54624 /* End of cleaning variable uplo */
54625 } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/
54626 STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0);
54627 } /*if (f2py_success) of jobz*/
54628 /* End of cleaning variable jobz */
54629 } /*CHECKSCALAR(itype>0||itype<4)*/
54630 } /*if (f2py_success) of itype*/
54631 /* End of cleaning variable itype */
54632/*end of cleanupfrompyobj*/
54633 if (capi_buildvalue == NULL((void*)0)) {
54634/*routdebugfailure*/
54635 } else {
54636/*routdebugleave*/
54637 }
54638 CFUNCSMESS("Freeing memory.\n");
54639/*freemem*/
54640#ifdef F2PY_REPORT_ATEXIT
54641f2py_stop_clock();
54642#endif
54643 return capi_buildvalue;
54644}
54645/******************************* end of chegvx *******************************/
54646
54647/*********************************** zhegvx ***********************************/
54648static char doc_f2py_rout__flapack_zhegvx[] = "\
54649w,z,m,ifail,info = zhegvx(a,b,[itype,jobz,range,uplo,vl,vu,il,iu,abstol,lwork,overwrite_a,overwrite_b])\n\nWrapper for ``zhegvx``.\
54650\n\nParameters\n----------\n"
54651"a : input rank-2 array('D') with bounds (n,n)\n"
54652"b : input rank-2 array('D') with bounds (n,n)\n"
54653"\nOther Parameters\n----------------\n"
54654"itype : input int, optional\n Default: 1\n"
54655"jobz : input string(len=1), optional\n Default: 'V'\n"
54656"range : input string(len=1), optional\n Default: 'A'\n"
54657"uplo : input string(len=1), optional\n Default: 'L'\n"
54658"overwrite_a : input int, optional\n Default: 0\n"
54659"overwrite_b : input int, optional\n Default: 0\n"
54660"vl : input float, optional\n Default: 0.0\n"
54661"vu : input float, optional\n Default: 1.0\n"
54662"il : input int, optional\n Default: 1\n"
54663"iu : input int, optional\n Default: n\n"
54664"abstol : input float, optional\n Default: 0.0\n"
54665"lwork : input int, optional\n Default: max(2*n,1)\n"
54666"\nReturns\n-------\n"
54667"w : rank-1 array('d') with bounds (n)\n"
54668"z : rank-2 array('D') with bounds ((jobz[0]=='V'?MAX(0,n):0),(jobz[0]=='V'?(range[0]=='I'?iu-il+1:MAX(1,n)):0))\n"
54669"m : int\n"
54670"ifail : rank-1 array('i') with bounds ((jobz[0]=='N'?0:n))\n"
54671"info : int";
54672/* extern void F_FUNC(zhegvx,ZHEGVX)(F_INT*,char*,char*,char*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */
54673static PyObject *f2py_rout__flapack_zhegvx(const PyObject *capi_self,
54674 PyObject *capi_args,
54675 PyObject *capi_keywds,
54676 void (*f2py_func)(F_INTint*,char*,char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) {
54677 PyObject * volatile capi_buildvalue = NULL((void*)0);
54678 volatile int f2py_success = 1;
54679/*decl*/
54680
54681 int itype = 0;
54682 PyObject *itype_capi = Py_None(&_Py_NoneStruct);
54683 string jobz = NULL((void*)0);
54684 int slen(jobz)capi_jobz_len;
54685 PyObject *jobz_capi = Py_None(&_Py_NoneStruct);
54686 string range = NULL((void*)0);
54687 int slen(range)capi_range_len;
54688 PyObject *range_capi = Py_None(&_Py_NoneStruct);
54689 string uplo = NULL((void*)0);
54690 int slen(uplo)capi_uplo_len;
54691 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
54692 int n = 0;
54693 complex_double *a = NULL((void*)0);
54694 npy_intp a_Dims[2] = {-1, -1};
54695 const int a_Rank = 2;
54696 PyArrayObject *capi_a_tmp = NULL((void*)0);
54697 int capi_a_intent = 0;
54698 int capi_overwrite_a = 0;
54699 PyObject *a_capi = Py_None(&_Py_NoneStruct);
54700 int lda = 0;
54701 complex_double *b = NULL((void*)0);
54702 npy_intp b_Dims[2] = {-1, -1};
54703 const int b_Rank = 2;
54704 PyArrayObject *capi_b_tmp = NULL((void*)0);
54705 int capi_b_intent = 0;
54706 int capi_overwrite_b = 0;
54707 PyObject *b_capi = Py_None(&_Py_NoneStruct);
54708 int ldb = 0;
54709 double vl = 0;
54710 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
54711 double vu = 0;
54712 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
54713 int il = 0;
54714 PyObject *il_capi = Py_None(&_Py_NoneStruct);
54715 int iu = 0;
54716 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
54717 double abstol = 0;
54718 PyObject *abstol_capi = Py_None(&_Py_NoneStruct);
54719 double *w = NULL((void*)0);
54720 npy_intp w_Dims[1] = {-1};
54721 const int w_Rank = 1;
54722 PyArrayObject *capi_w_tmp = NULL((void*)0);
54723 int capi_w_intent = 0;
54724 complex_double *z = NULL((void*)0);
54725 npy_intp z_Dims[2] = {-1, -1};
54726 const int z_Rank = 2;
54727 PyArrayObject *capi_z_tmp = NULL((void*)0);
54728 int capi_z_intent = 0;
54729 int m = 0;
54730 int ldz = 0;
54731 complex_double *work = NULL((void*)0);
54732 npy_intp work_Dims[1] = {-1};
54733 const int work_Rank = 1;
54734 PyArrayObject *capi_work_tmp = NULL((void*)0);
54735 int capi_work_intent = 0;
54736 int lwork = 0;
54737 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
54738 double *rwork = NULL((void*)0);
54739 npy_intp rwork_Dims[1] = {-1};
54740 const int rwork_Rank = 1;
54741 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
54742 int capi_rwork_intent = 0;
54743 int *iwork = NULL((void*)0);
54744 npy_intp iwork_Dims[1] = {-1};
54745 const int iwork_Rank = 1;
54746 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
54747 int capi_iwork_intent = 0;
54748 int *ifail = NULL((void*)0);
54749 npy_intp ifail_Dims[1] = {-1};
54750 const int ifail_Rank = 1;
54751 PyArrayObject *capi_ifail_tmp = NULL((void*)0);
54752 int capi_ifail_intent = 0;
54753 int info = 0;
54754 static char *capi_kwlist[] = {"a","b","itype","jobz","range","uplo","vl","vu","il","iu","abstol","lwork","overwrite_a","overwrite_b",NULL((void*)0)};
54755
54756/*routdebugenter*/
54757#ifdef F2PY_REPORT_ATEXIT
54758f2py_start_clock();
54759#endif
54760 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
54761 "OO|OOOOOOOOOOii:_flapack.zhegvx",\
54762 capi_kwlist,&a_capi,&b_capi,&itype_capi,&jobz_capi,&range_capi,&uplo_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&abstol_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b))
54763 return NULL((void*)0);
54764/*frompyobj*/
54765 /* Processing variable itype */
54766 if (itype_capi == Py_None(&_Py_NoneStruct)) itype = 1; else
54767 f2py_success = int_from_pyobj(&itype,itype_capi,"_flapack.zhegvx() 1st keyword (itype) can't be converted to int");
54768 if (f2py_success) {
54769 CHECKSCALAR(itype>0||itype<4,"itype>0||itype<4","1st keyword itype","zhegvx:itype=%d",itype)if (!(itype>0||itype<4)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhegvx:itype=%d", "(""itype>0||itype<4"") failed for "
"1st keyword itype", itype); PyErr_SetString(_flapack_error,errstring
); } else
{
54770 /* Processing variable jobz */
54771 slen(jobz)capi_jobz_len = 1;
54772 f2py_success = string_from_pyobj(&jobz,&slen(jobz)capi_jobz_len,"V",jobz_capi,"string_from_pyobj failed in converting 2nd keyword `jobz' of _flapack.zhegvx to C string");
54773 if (f2py_success) {
54774 CHECKSTRING(*jobz=='N'||*jobz=='V',"*jobz=='N'||*jobz=='V'","2nd keyword jobz","zhegvx:slen(jobz)=%d jobz=\"%s\"",jobz)if (!(*jobz=='N'||*jobz=='V')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhegvx:slen(jobz)=%d jobz=\"%s\"", "(""*jobz=='N'||*jobz=='V'"
") failed for ""2nd keyword jobz", capi_jobz_len, jobz); PyErr_SetString
(_flapack_error, errstring); } else
{
54775 /* Processing variable uplo */
54776 slen(uplo)capi_uplo_len = 1;
54777 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 4th keyword `uplo' of _flapack.zhegvx to C string");
54778 if (f2py_success) {
54779 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","4th keyword uplo","zhegvx:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhegvx:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""4th keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
54780 /* Processing variable il */
54781 if (il_capi == Py_None(&_Py_NoneStruct)) il = 1; else
54782 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.zhegvx() 7th keyword (il) can't be converted to int");
54783 if (f2py_success) {
54784 /* Processing variable vl */
54785 if (vl_capi == Py_None(&_Py_NoneStruct)) vl = 0.0; else
54786 f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.zhegvx() 5th keyword (vl) can't be converted to double");
54787 if (f2py_success) {
54788 /* Processing variable abstol */
54789 if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else
54790 f2py_success = double_from_pyobj(&abstol,abstol_capi,"_flapack.zhegvx() 9th keyword (abstol) can't be converted to double");
54791 if (f2py_success) {
54792 /* Processing variable a */
54793 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
54794 ;
54795 capi_a_intent |= F2PY_INTENT_IN1;
54796 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
54797 if (capi_a_tmp == NULL((void*)0)) {
54798 if (!PyErr_Occurred())
54799 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zhegvx to C/Fortran array" );
54800 } else {
54801 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
54802
54803 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
54804 /* Processing variable m */
54805 /* Processing variable info */
54806 /* Processing variable range */
54807 slen(range)capi_range_len = 1;
54808 f2py_success = string_from_pyobj(&range,&slen(range)capi_range_len,"A",range_capi,"string_from_pyobj failed in converting 3rd keyword `range' of _flapack.zhegvx to C string");
54809 if (f2py_success) {
54810 CHECKSTRING(*range=='A'||*range=='V' ||*range=='I',"*range=='A'||*range=='V' ||*range=='I'","3rd keyword range","zhegvx:slen(range)=%d range=\"%s\"",range)if (!(*range=='A'||*range=='V' ||*range=='I')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zhegvx:slen(range)=%d range=\"%s\""
, "(""*range=='A'||*range=='V' ||*range=='I'"") failed for ""3rd keyword range"
, capi_range_len, range); PyErr_SetString(_flapack_error, errstring
); } else
{
54811 /* Processing variable n */
54812 n = shape(a,0)a_Dims[0];
54813 /* Processing variable iu */
54814 if (iu_capi == Py_None(&_Py_NoneStruct)) iu = n; else
54815 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.zhegvx() 8th keyword (iu) can't be converted to int");
54816 if (f2py_success) {
54817 /* Processing variable vu */
54818 if (vu_capi == Py_None(&_Py_NoneStruct)) vu = 1.0; else
54819 f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.zhegvx() 6th keyword (vu) can't be converted to double");
54820 if (f2py_success) {
54821 CHECKSCALAR(vu>vl,"vu>vl","6th keyword vu","zhegvx:vu=%g",vu)if (!(vu>vl)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhegvx:vu=%g", "(""vu>vl"") failed for ""6th keyword vu"
, vu); PyErr_SetString(_flapack_error,errstring); } else
{
54822 /* Processing variable lwork */
54823 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(2*n,1)((2*n > 1) ? (2*n) : (1)); else
54824 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zhegvx() 10th keyword (lwork) can't be converted to int");
54825 if (f2py_success) {
54826 CHECKSCALAR(lwork>=1||lwork==-1,"lwork>=1||lwork==-1","10th keyword lwork","zhegvx:lwork=%d",lwork)if (!(lwork>=1||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhegvx:lwork=%d", "(""lwork>=1||lwork==-1"") failed for "
"10th keyword lwork", lwork); PyErr_SetString(_flapack_error,
errstring); } else
{
54827 /* Processing variable b */
54828 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
54829 b_Dims[0]=n,b_Dims[1]=n;
54830 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_ALIGNED81024;
54831 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
54832 if (capi_b_tmp == NULL((void*)0)) {
54833 if (!PyErr_Occurred())
54834 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zhegvx to C/Fortran array" );
54835 } else {
54836 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
54837
54838 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
54839 CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b");
} else
{
54840 /* Processing variable lda */
54841 lda = max(1,n)((1 > n) ? (1) : (n));
54842 /* Processing variable ldb */
54843 ldb = max(1,n)((1 > n) ? (1) : (n));
54844 /* Processing variable work */
54845 work_Dims[0]=lwork;
54846 capi_work_intent |= F2PY_INTENT_HIDE8;
54847 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
54848 if (capi_work_tmp == NULL((void*)0)) {
54849 if (!PyErr_Occurred())
54850 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zhegvx to C/Fortran array" );
54851 } else {
54852 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
54853
54854 /* Processing variable iwork */
54855 iwork_Dims[0]=5 * n;
54856 capi_iwork_intent |= F2PY_INTENT_HIDE8;
54857 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
54858 if (capi_iwork_tmp == NULL((void*)0)) {
54859 if (!PyErr_Occurred())
54860 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.zhegvx to C/Fortran array" );
54861 } else {
54862 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
54863
54864 /* Processing variable rwork */
54865 rwork_Dims[0]=7 * n;
54866 capi_rwork_intent |= F2PY_INTENT_HIDE8;
54867 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
54868 if (capi_rwork_tmp == NULL((void*)0)) {
54869 if (!PyErr_Occurred())
54870 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zhegvx to C/Fortran array" );
54871 } else {
54872 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
54873
54874 /* Processing variable w */
54875 w_Dims[0]=n;
54876 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
54877 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
54878 if (capi_w_tmp == NULL((void*)0)) {
54879 if (!PyErr_Occurred())
54880 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zhegvx to C/Fortran array" );
54881 } else {
54882 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
54883
54884 /* Processing variable z */
54885 z_Dims[0]=(jobz[0]=='V'?MAX(0,n)((0 > n) ? (0) : (n)):0),z_Dims[1]=(jobz[0]=='V'?(range[0]=='I'?iu-il+1:MAX(1,n)((1 > n) ? (1) : (n))):0);
54886 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
54887 capi_z_tmp = array_from_pyobj(NPY_CDOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
54888 if (capi_z_tmp == NULL((void*)0)) {
54889 if (!PyErr_Occurred())
54890 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.zhegvx to C/Fortran array" );
54891 } else {
54892 z = (complex_double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
54893
54894 /* Processing variable ifail */
54895 ifail_Dims[0]=(jobz[0]=='N'?0:n);
54896 capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
54897 capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct));
54898 if (capi_ifail_tmp == NULL((void*)0)) {
54899 if (!PyErr_Occurred())
54900 PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.zhegvx to C/Fortran array" );
54901 } else {
54902 ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data));
54903
54904 /* Processing variable ldz */
54905 ldz = max(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0]));
54906/*end of frompyobj*/
54907#ifdef F2PY_REPORT_ATEXIT
54908f2py_start_call_clock();
54909#endif
54910/*callfortranroutine*/
54911 (*f2py_func)(&itype,jobz,range,uplo,&n,a,&lda,b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,&lwork,rwork,iwork,ifail,&info) ;
54912 /*(*f2py_func)(&itype,jobz,range,uplo,&n,a,&lda,b,&ldb,&vl,&vu,&il,&iu,&abstol,w,z,&m,&ldz,work,&lwork,rwork,iwork,ifail,&info,slen(jobz),slen(range),slen(uplo));*/
54913if (PyErr_Occurred())
54914 f2py_success = 0;
54915#ifdef F2PY_REPORT_ATEXIT
54916f2py_stop_call_clock();
54917#endif
54918/*end of callfortranroutine*/
54919 if (f2py_success) {
54920/*pyobjfrom*/
54921/*end of pyobjfrom*/
54922 CFUNCSMESS("Building return value.\n");
54923 capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info);
54924/*closepyobjfrom*/
54925/*end of closepyobjfrom*/
54926 } /*if (f2py_success) after callfortranroutine*/
54927/*cleanupfrompyobj*/
54928 /* End of cleaning variable ldz */
54929 } /*if (capi_ifail_tmp == NULL) ... else of ifail*/
54930 /* End of cleaning variable ifail */
54931 } /*if (capi_z_tmp == NULL) ... else of z*/
54932 /* End of cleaning variable z */
54933 } /*if (capi_w_tmp == NULL) ... else of w*/
54934 /* End of cleaning variable w */
54935 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
54936 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
54937 /* End of cleaning variable rwork */
54938 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
54939 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
54940 /* End of cleaning variable iwork */
54941 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
54942 } /*if (capi_work_tmp == NULL) ... else of work*/
54943 /* End of cleaning variable work */
54944 /* End of cleaning variable ldb */
54945 /* End of cleaning variable lda */
54946 } /*CHECKARRAY(shape(b,0)==shape(b,1))*/
54947 } /*CHECKARRAY(shape(b,0)==n)*/
54948 if((PyObject *)capi_b_tmp!=b_capi) {
54949 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
54950 } /*if (capi_b_tmp == NULL) ... else of b*/
54951 /* End of cleaning variable b */
54952 } /*CHECKSCALAR(lwork>=1||lwork==-1)*/
54953 } /*if (f2py_success) of lwork*/
54954 /* End of cleaning variable lwork */
54955 } /*CHECKSCALAR(vu>vl)*/
54956 } /*if (f2py_success) of vu*/
54957 /* End of cleaning variable vu */
54958 } /*if (f2py_success) of iu*/
54959 /* End of cleaning variable iu */
54960 /* End of cleaning variable n */
54961 } /*CHECKSTRING(*range=='A'||*range=='V' ||*range=='I')*/
54962 STRINGFREE(range)do {if (!(range == ((void*)0))) free(range);} while (0);
54963 } /*if (f2py_success) of range*/
54964 /* End of cleaning variable range */
54965 /* End of cleaning variable info */
54966 /* End of cleaning variable m */
54967 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
54968 if((PyObject *)capi_a_tmp!=a_capi) {
54969 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
54970 } /*if (capi_a_tmp == NULL) ... else of a*/
54971 /* End of cleaning variable a */
54972 } /*if (f2py_success) of abstol*/
54973 /* End of cleaning variable abstol */
54974 } /*if (f2py_success) of vl*/
54975 /* End of cleaning variable vl */
54976 } /*if (f2py_success) of il*/
54977 /* End of cleaning variable il */
54978 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
54979 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
54980 } /*if (f2py_success) of uplo*/
54981 /* End of cleaning variable uplo */
54982 } /*CHECKSTRING(*jobz=='N'||*jobz=='V')*/
54983 STRINGFREE(jobz)do {if (!(jobz == ((void*)0))) free(jobz);} while (0);
54984 } /*if (f2py_success) of jobz*/
54985 /* End of cleaning variable jobz */
54986 } /*CHECKSCALAR(itype>0||itype<4)*/
54987 } /*if (f2py_success) of itype*/
54988 /* End of cleaning variable itype */
54989/*end of cleanupfrompyobj*/
54990 if (capi_buildvalue == NULL((void*)0)) {
54991/*routdebugfailure*/
54992 } else {
54993/*routdebugleave*/
54994 }
54995 CFUNCSMESS("Freeing memory.\n");
54996/*freemem*/
54997#ifdef F2PY_REPORT_ATEXIT
54998f2py_stop_clock();
54999#endif
55000 return capi_buildvalue;
55001}
55002/******************************* end of zhegvx *******************************/
55003
55004/******************************** chegvx_lwork ********************************/
55005static char doc_f2py_rout__flapack_chegvx_lwork[] = "\
55006work,info = chegvx_lwork(n,[uplo])\n\nWrapper for ``chegvx_lwork``.\
55007\n\nParameters\n----------\n"
55008"n : input int\n"
55009"\nOther Parameters\n----------------\n"
55010"uplo : input string(len=1), optional\n Default: 'L'\n"
55011"\nReturns\n-------\n"
55012"work : complex\n"
55013"info : int";
55014/* extern void F_FUNC(chegvx ,CHEGVX )(F_INT*,char*,char*,char*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */
55015static PyObject *f2py_rout__flapack_chegvx_lwork(const PyObject *capi_self,
55016 PyObject *capi_args,
55017 PyObject *capi_keywds,
55018 void (*f2py_func)(F_INTint*,char*,char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) {
55019 PyObject * volatile capi_buildvalue = NULL((void*)0);
55020 volatile int f2py_success = 1;
55021/*decl*/
55022
55023 int itype = 0;
55024 string uplo = NULL((void*)0);
55025 int slen(uplo)capi_uplo_len;
55026 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
55027 int n = 0;
55028 PyObject *n_capi = Py_None(&_Py_NoneStruct);
55029 complex_float a;
55030 int lda = 0;
55031 complex_float b;
55032 int ldb = 0;
55033 float vl = 0;
55034 float vu = 0;
55035 int il = 0;
55036 int iu = 0;
55037 float abstol = 0;
55038 int m = 0;
55039 float w = 0;
55040 complex_float z;
55041 int ldz = 0;
55042 complex_float work;
55043 PyObject *work_capi = Py_None(&_Py_NoneStruct);
55044 int lwork = 0;
55045 float rwork = 0;
55046 int iwork = 0;
55047 int ifail = 0;
55048 int info = 0;
55049 static char *capi_kwlist[] = {"n","uplo",NULL((void*)0)};
55050
55051/*routdebugenter*/
55052#ifdef F2PY_REPORT_ATEXIT
55053f2py_start_clock();
55054#endif
55055 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
55056 "O|O:_flapack.chegvx_lwork",\
55057 capi_kwlist,&n_capi,&uplo_capi))
55058 return NULL((void*)0);
55059/*frompyobj*/
55060 /* Processing variable n */
55061 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.chegvx_lwork() 1st argument (n) can't be converted to int");
55062 if (f2py_success) {
55063 /* Processing variable uplo */
55064 slen(uplo)capi_uplo_len = 1;
55065 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.chegvx_lwork to C string");
55066 if (f2py_success) {
55067 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","chegvx_lwork:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chegvx_lwork:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
55068 /* Processing variable itype */
55069 itype = 1;
55070 /* Processing variable a */
55071 /* Processing variable b */
55072 /* Processing variable il */
55073 il = 1;
55074 /* Processing variable iu */
55075 iu = 0;
55076 /* Processing variable vl */
55077 vl = 0.0;
55078 /* Processing variable vu */
55079 vu = 1.0;
55080 /* Processing variable abstol */
55081 abstol = 0.0;
55082 /* Processing variable m */
55083 /* Processing variable w */
55084 /* Processing variable z */
55085 /* Processing variable lwork */
55086 lwork = -1;
55087 /* Processing variable rwork */
55088 /* Processing variable iwork */
55089 /* Processing variable ifail */
55090 /* Processing variable work */
55091 /* Processing variable info */
55092 /* Processing variable lda */
55093 lda = MAX(1,n)((1 > n) ? (1) : (n));
55094 /* Processing variable ldb */
55095 ldb = MAX(1,n)((1 > n) ? (1) : (n));
55096 /* Processing variable ldz */
55097 ldz = MAX(1,n)((1 > n) ? (1) : (n));
55098/*end of frompyobj*/
55099#ifdef F2PY_REPORT_ATEXIT
55100f2py_start_call_clock();
55101#endif
55102/*callfortranroutine*/
55103 (*f2py_func)(&itype,"N","A",uplo,&n,&a,&lda,&b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&rwork,&iwork,&ifail,&info) ;
55104 /*(*f2py_func)(&itype,uplo,&n,&a,&lda,&b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&rwork,&iwork,&ifail,&info,slen(uplo));*/
55105if (PyErr_Occurred())
55106 f2py_success = 0;
55107#ifdef F2PY_REPORT_ATEXIT
55108f2py_stop_call_clock();
55109#endif
55110/*end of callfortranroutine*/
55111 if (f2py_success) {
55112/*pyobjfrom*/
55113 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
55114/*end of pyobjfrom*/
55115 CFUNCSMESS("Building return value.\n");
55116 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
55117/*closepyobjfrom*/
55118/*end of closepyobjfrom*/
55119 } /*if (f2py_success) after callfortranroutine*/
55120/*cleanupfrompyobj*/
55121 /* End of cleaning variable ldz */
55122 /* End of cleaning variable ldb */
55123 /* End of cleaning variable lda */
55124 /* End of cleaning variable info */
55125 /* End of cleaning variable work */
55126 /* End of cleaning variable ifail */
55127 /* End of cleaning variable iwork */
55128 /* End of cleaning variable rwork */
55129 /* End of cleaning variable lwork */
55130 /* End of cleaning variable z */
55131 /* End of cleaning variable w */
55132 /* End of cleaning variable m */
55133 /* End of cleaning variable abstol */
55134 /* End of cleaning variable vu */
55135 /* End of cleaning variable vl */
55136 /* End of cleaning variable iu */
55137 /* End of cleaning variable il */
55138 /* End of cleaning variable b */
55139 /* End of cleaning variable a */
55140 /* End of cleaning variable itype */
55141 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
55142 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
55143 } /*if (f2py_success) of uplo*/
55144 /* End of cleaning variable uplo */
55145 } /*if (f2py_success) of n*/
55146 /* End of cleaning variable n */
55147/*end of cleanupfrompyobj*/
55148 if (capi_buildvalue == NULL((void*)0)) {
55149/*routdebugfailure*/
55150 } else {
55151/*routdebugleave*/
55152 }
55153 CFUNCSMESS("Freeing memory.\n");
55154/*freemem*/
55155#ifdef F2PY_REPORT_ATEXIT
55156f2py_stop_clock();
55157#endif
55158 return capi_buildvalue;
55159}
55160/**************************** end of chegvx_lwork ****************************/
55161
55162/******************************** zhegvx_lwork ********************************/
55163static char doc_f2py_rout__flapack_zhegvx_lwork[] = "\
55164work,info = zhegvx_lwork(n,[uplo])\n\nWrapper for ``zhegvx_lwork``.\
55165\n\nParameters\n----------\n"
55166"n : input int\n"
55167"\nOther Parameters\n----------------\n"
55168"uplo : input string(len=1), optional\n Default: 'L'\n"
55169"\nReturns\n-------\n"
55170"work : complex\n"
55171"info : int";
55172/* extern void F_FUNC(zhegvx ,ZHEGVX )(F_INT*,char*,char*,char*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */
55173static PyObject *f2py_rout__flapack_zhegvx_lwork(const PyObject *capi_self,
55174 PyObject *capi_args,
55175 PyObject *capi_keywds,
55176 void (*f2py_func)(F_INTint*,char*,char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) {
55177 PyObject * volatile capi_buildvalue = NULL((void*)0);
55178 volatile int f2py_success = 1;
55179/*decl*/
55180
55181 int itype = 0;
55182 string uplo = NULL((void*)0);
55183 int slen(uplo)capi_uplo_len;
55184 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
55185 int n = 0;
55186 PyObject *n_capi = Py_None(&_Py_NoneStruct);
55187 complex_double a;
55188 int lda = 0;
55189 complex_double b;
55190 int ldb = 0;
55191 double vl = 0;
55192 double vu = 0;
55193 int il = 0;
55194 int iu = 0;
55195 double abstol = 0;
55196 int m = 0;
55197 double w = 0;
55198 complex_double z;
55199 int ldz = 0;
55200 complex_double work;
55201 PyObject *work_capi = Py_None(&_Py_NoneStruct);
55202 int lwork = 0;
55203 double rwork = 0;
55204 int iwork = 0;
55205 int ifail = 0;
55206 int info = 0;
55207 static char *capi_kwlist[] = {"n","uplo",NULL((void*)0)};
55208
55209/*routdebugenter*/
55210#ifdef F2PY_REPORT_ATEXIT
55211f2py_start_clock();
55212#endif
55213 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
55214 "O|O:_flapack.zhegvx_lwork",\
55215 capi_kwlist,&n_capi,&uplo_capi))
55216 return NULL((void*)0);
55217/*frompyobj*/
55218 /* Processing variable n */
55219 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zhegvx_lwork() 1st argument (n) can't be converted to int");
55220 if (f2py_success) {
55221 /* Processing variable uplo */
55222 slen(uplo)capi_uplo_len = 1;
55223 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"L",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.zhegvx_lwork to C string");
55224 if (f2py_success) {
55225 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","zhegvx_lwork:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhegvx_lwork:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
55226 /* Processing variable itype */
55227 itype = 1;
55228 /* Processing variable a */
55229 /* Processing variable b */
55230 /* Processing variable il */
55231 il = 1;
55232 /* Processing variable iu */
55233 iu = 0;
55234 /* Processing variable vl */
55235 vl = 0.0;
55236 /* Processing variable vu */
55237 vu = 1.0;
55238 /* Processing variable abstol */
55239 abstol = 0.0;
55240 /* Processing variable m */
55241 /* Processing variable w */
55242 /* Processing variable z */
55243 /* Processing variable lwork */
55244 lwork = -1;
55245 /* Processing variable rwork */
55246 /* Processing variable iwork */
55247 /* Processing variable ifail */
55248 /* Processing variable work */
55249 /* Processing variable info */
55250 /* Processing variable lda */
55251 lda = MAX(1,n)((1 > n) ? (1) : (n));
55252 /* Processing variable ldb */
55253 ldb = MAX(1,n)((1 > n) ? (1) : (n));
55254 /* Processing variable ldz */
55255 ldz = MAX(1,n)((1 > n) ? (1) : (n));
55256/*end of frompyobj*/
55257#ifdef F2PY_REPORT_ATEXIT
55258f2py_start_call_clock();
55259#endif
55260/*callfortranroutine*/
55261 (*f2py_func)(&itype,"N","A",uplo,&n,&a,&lda,&b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&rwork,&iwork,&ifail,&info) ;
55262 /*(*f2py_func)(&itype,uplo,&n,&a,&lda,&b,&ldb,&vl,&vu,&il,&iu,&abstol,&m,&w,&z,&ldz,&work,&lwork,&rwork,&iwork,&ifail,&info,slen(uplo));*/
55263if (PyErr_Occurred())
55264 f2py_success = 0;
55265#ifdef F2PY_REPORT_ATEXIT
55266f2py_stop_call_clock();
55267#endif
55268/*end of callfortranroutine*/
55269 if (f2py_success) {
55270/*pyobjfrom*/
55271 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
55272/*end of pyobjfrom*/
55273 CFUNCSMESS("Building return value.\n");
55274 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
55275/*closepyobjfrom*/
55276/*end of closepyobjfrom*/
55277 } /*if (f2py_success) after callfortranroutine*/
55278/*cleanupfrompyobj*/
55279 /* End of cleaning variable ldz */
55280 /* End of cleaning variable ldb */
55281 /* End of cleaning variable lda */
55282 /* End of cleaning variable info */
55283 /* End of cleaning variable work */
55284 /* End of cleaning variable ifail */
55285 /* End of cleaning variable iwork */
55286 /* End of cleaning variable rwork */
55287 /* End of cleaning variable lwork */
55288 /* End of cleaning variable z */
55289 /* End of cleaning variable w */
55290 /* End of cleaning variable m */
55291 /* End of cleaning variable abstol */
55292 /* End of cleaning variable vu */
55293 /* End of cleaning variable vl */
55294 /* End of cleaning variable iu */
55295 /* End of cleaning variable il */
55296 /* End of cleaning variable b */
55297 /* End of cleaning variable a */
55298 /* End of cleaning variable itype */
55299 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
55300 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
55301 } /*if (f2py_success) of uplo*/
55302 /* End of cleaning variable uplo */
55303 } /*if (f2py_success) of n*/
55304 /* End of cleaning variable n */
55305/*end of cleanupfrompyobj*/
55306 if (capi_buildvalue == NULL((void*)0)) {
55307/*routdebugfailure*/
55308 } else {
55309/*routdebugleave*/
55310 }
55311 CFUNCSMESS("Freeing memory.\n");
55312/*freemem*/
55313#ifdef F2PY_REPORT_ATEXIT
55314f2py_stop_clock();
55315#endif
55316 return capi_buildvalue;
55317}
55318/**************************** end of zhegvx_lwork ****************************/
55319
55320/********************************** ssyequb **********************************/
55321static char doc_f2py_rout__flapack_ssyequb[] = "\
55322s,scond,amax,info = ssyequb(a,[lower])\n\nWrapper for ``ssyequb``.\
55323\n\nParameters\n----------\n"
55324"a : input rank-2 array('f') with bounds (lda,n)\n"
55325"\nOther Parameters\n----------------\n"
55326"lower : input int, optional\n Default: 0\n"
55327"\nReturns\n-------\n"
55328"s : rank-1 array('f') with bounds (n)\n"
55329"scond : float\n"
55330"amax : float\n"
55331"info : int";
55332/* extern void F_FUNC(ssyequb,SSYEQUB)(char*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT* ); */
55333static PyObject *f2py_rout__flapack_ssyequb(const PyObject *capi_self,
55334 PyObject *capi_args,
55335 PyObject *capi_keywds,
55336 void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint* )) {
55337 PyObject * volatile capi_buildvalue = NULL((void*)0);
55338 volatile int f2py_success = 1;
55339/*decl*/
55340
55341 int lower = 0;
55342 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
55343 int n = 0;
55344 float *a = NULL((void*)0);
55345 npy_intp a_Dims[2] = {-1, -1};
55346 const int a_Rank = 2;
55347 PyArrayObject *capi_a_tmp = NULL((void*)0);
55348 int capi_a_intent = 0;
55349 PyObject *a_capi = Py_None(&_Py_NoneStruct);
55350 int lda = 0;
55351 float *s = NULL((void*)0);
55352 npy_intp s_Dims[1] = {-1};
55353 const int s_Rank = 1;
55354 PyArrayObject *capi_s_tmp = NULL((void*)0);
55355 int capi_s_intent = 0;
55356 float scond = 0;
55357 float amax = 0;
55358 float *work = NULL((void*)0);
55359 npy_intp work_Dims[1] = {-1};
55360 const int work_Rank = 1;
55361 PyArrayObject *capi_work_tmp = NULL((void*)0);
55362 int capi_work_intent = 0;
55363 int info = 0;
55364 static char *capi_kwlist[] = {"a","lower",NULL((void*)0)};
55365
55366/*routdebugenter*/
55367#ifdef F2PY_REPORT_ATEXIT
55368f2py_start_clock();
55369#endif
55370 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
55371 "O|O:_flapack.ssyequb",\
55372 capi_kwlist,&a_capi,&lower_capi))
55373 return NULL((void*)0);
55374/*frompyobj*/
55375 /* Processing variable lower */
55376 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
55377 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssyequb() 1st keyword (lower) can't be converted to int");
55378 if (f2py_success) {
55379 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ssyequb:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssyequb:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
55380 /* Processing variable a */
55381 ;
55382 capi_a_intent |= F2PY_INTENT_IN1;
55383 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
55384 if (capi_a_tmp == NULL((void*)0)) {
55385 if (!PyErr_Occurred())
55386 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ssyequb to C/Fortran array" );
55387 } else {
55388 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
55389
55390 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
55391 /* Processing variable scond */
55392 /* Processing variable amax */
55393 /* Processing variable info */
55394 /* Processing variable n */
55395 n = shape(a,1)a_Dims[1];
55396 /* Processing variable lda */
55397 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
55398 /* Processing variable work */
55399 work_Dims[0]=3 * n;
55400 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
55401 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
55402 if (capi_work_tmp == NULL((void*)0)) {
55403 if (!PyErr_Occurred())
55404 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssyequb to C/Fortran array" );
55405 } else {
55406 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
55407
55408 /* Processing variable s */
55409 s_Dims[0]=n;
55410 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
55411 capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
55412 if (capi_s_tmp == NULL((void*)0)) {
55413 if (!PyErr_Occurred())
55414 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.ssyequb to C/Fortran array" );
55415 } else {
55416 s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
55417
55418/*end of frompyobj*/
55419#ifdef F2PY_REPORT_ATEXIT
55420f2py_start_call_clock();
55421#endif
55422/*callfortranroutine*/
55423 (*f2py_func)((lower?"L":"U"),&n,a,&lda,s,&scond,&amax,work,&info) ;
55424 /*(*f2py_func)(&lower,&n,a,&lda,s,&scond,&amax,work,&info);*/
55425if (PyErr_Occurred())
55426 f2py_success = 0;
55427#ifdef F2PY_REPORT_ATEXIT
55428f2py_stop_call_clock();
55429#endif
55430/*end of callfortranroutine*/
55431 if (f2py_success) {
55432/*pyobjfrom*/
55433/*end of pyobjfrom*/
55434 CFUNCSMESS("Building return value.\n");
55435 capi_buildvalue = Py_BuildValue("Nffi",capi_s_tmp,scond,amax,info);
55436/*closepyobjfrom*/
55437/*end of closepyobjfrom*/
55438 } /*if (f2py_success) after callfortranroutine*/
55439/*cleanupfrompyobj*/
55440 } /*if (capi_s_tmp == NULL) ... else of s*/
55441 /* End of cleaning variable s */
55442 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
55443 } /*if (capi_work_tmp == NULL) ... else of work*/
55444 /* End of cleaning variable work */
55445 /* End of cleaning variable lda */
55446 /* End of cleaning variable n */
55447 /* End of cleaning variable info */
55448 /* End of cleaning variable amax */
55449 /* End of cleaning variable scond */
55450 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
55451 if((PyObject *)capi_a_tmp!=a_capi) {
55452 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
55453 } /*if (capi_a_tmp == NULL) ... else of a*/
55454 /* End of cleaning variable a */
55455 } /*CHECKSCALAR(lower==0||lower==1)*/
55456 } /*if (f2py_success) of lower*/
55457 /* End of cleaning variable lower */
55458/*end of cleanupfrompyobj*/
55459 if (capi_buildvalue == NULL((void*)0)) {
55460/*routdebugfailure*/
55461 } else {
55462/*routdebugleave*/
55463 }
55464 CFUNCSMESS("Freeing memory.\n");
55465/*freemem*/
55466#ifdef F2PY_REPORT_ATEXIT
55467f2py_stop_clock();
55468#endif
55469 return capi_buildvalue;
55470}
55471/******************************* end of ssyequb *******************************/
55472
55473/********************************** dsyequb **********************************/
55474static char doc_f2py_rout__flapack_dsyequb[] = "\
55475s,scond,amax,info = dsyequb(a,[lower])\n\nWrapper for ``dsyequb``.\
55476\n\nParameters\n----------\n"
55477"a : input rank-2 array('d') with bounds (lda,n)\n"
55478"\nOther Parameters\n----------------\n"
55479"lower : input int, optional\n Default: 0\n"
55480"\nReturns\n-------\n"
55481"s : rank-1 array('d') with bounds (n)\n"
55482"scond : float\n"
55483"amax : float\n"
55484"info : int";
55485/* extern void F_FUNC(dsyequb,DSYEQUB)(char*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT* ); */
55486static PyObject *f2py_rout__flapack_dsyequb(const PyObject *capi_self,
55487 PyObject *capi_args,
55488 PyObject *capi_keywds,
55489 void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint* )) {
55490 PyObject * volatile capi_buildvalue = NULL((void*)0);
55491 volatile int f2py_success = 1;
55492/*decl*/
55493
55494 int lower = 0;
55495 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
55496 int n = 0;
55497 double *a = NULL((void*)0);
55498 npy_intp a_Dims[2] = {-1, -1};
55499 const int a_Rank = 2;
55500 PyArrayObject *capi_a_tmp = NULL((void*)0);
55501 int capi_a_intent = 0;
55502 PyObject *a_capi = Py_None(&_Py_NoneStruct);
55503 int lda = 0;
55504 double *s = NULL((void*)0);
55505 npy_intp s_Dims[1] = {-1};
55506 const int s_Rank = 1;
55507 PyArrayObject *capi_s_tmp = NULL((void*)0);
55508 int capi_s_intent = 0;
55509 double scond = 0;
55510 double amax = 0;
55511 double *work = NULL((void*)0);
55512 npy_intp work_Dims[1] = {-1};
55513 const int work_Rank = 1;
55514 PyArrayObject *capi_work_tmp = NULL((void*)0);
55515 int capi_work_intent = 0;
55516 int info = 0;
55517 static char *capi_kwlist[] = {"a","lower",NULL((void*)0)};
55518
55519/*routdebugenter*/
55520#ifdef F2PY_REPORT_ATEXIT
55521f2py_start_clock();
55522#endif
55523 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
55524 "O|O:_flapack.dsyequb",\
55525 capi_kwlist,&a_capi,&lower_capi))
55526 return NULL((void*)0);
55527/*frompyobj*/
55528 /* Processing variable lower */
55529 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
55530 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsyequb() 1st keyword (lower) can't be converted to int");
55531 if (f2py_success) {
55532 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dsyequb:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsyequb:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
55533 /* Processing variable a */
55534 ;
55535 capi_a_intent |= F2PY_INTENT_IN1;
55536 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
55537 if (capi_a_tmp == NULL((void*)0)) {
55538 if (!PyErr_Occurred())
55539 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dsyequb to C/Fortran array" );
55540 } else {
55541 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
55542
55543 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
55544 /* Processing variable scond */
55545 /* Processing variable amax */
55546 /* Processing variable info */
55547 /* Processing variable n */
55548 n = shape(a,1)a_Dims[1];
55549 /* Processing variable lda */
55550 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
55551 /* Processing variable work */
55552 work_Dims[0]=3 * n;
55553 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
55554 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
55555 if (capi_work_tmp == NULL((void*)0)) {
55556 if (!PyErr_Occurred())
55557 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsyequb to C/Fortran array" );
55558 } else {
55559 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
55560
55561 /* Processing variable s */
55562 s_Dims[0]=n;
55563 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
55564 capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
55565 if (capi_s_tmp == NULL((void*)0)) {
55566 if (!PyErr_Occurred())
55567 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.dsyequb to C/Fortran array" );
55568 } else {
55569 s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
55570
55571/*end of frompyobj*/
55572#ifdef F2PY_REPORT_ATEXIT
55573f2py_start_call_clock();
55574#endif
55575/*callfortranroutine*/
55576 (*f2py_func)((lower?"L":"U"),&n,a,&lda,s,&scond,&amax,work,&info) ;
55577 /*(*f2py_func)(&lower,&n,a,&lda,s,&scond,&amax,work,&info);*/
55578if (PyErr_Occurred())
55579 f2py_success = 0;
55580#ifdef F2PY_REPORT_ATEXIT
55581f2py_stop_call_clock();
55582#endif
55583/*end of callfortranroutine*/
55584 if (f2py_success) {
55585/*pyobjfrom*/
55586/*end of pyobjfrom*/
55587 CFUNCSMESS("Building return value.\n");
55588 capi_buildvalue = Py_BuildValue("Nddi",capi_s_tmp,scond,amax,info);
55589/*closepyobjfrom*/
55590/*end of closepyobjfrom*/
55591 } /*if (f2py_success) after callfortranroutine*/
55592/*cleanupfrompyobj*/
55593 } /*if (capi_s_tmp == NULL) ... else of s*/
55594 /* End of cleaning variable s */
55595 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
55596 } /*if (capi_work_tmp == NULL) ... else of work*/
55597 /* End of cleaning variable work */
55598 /* End of cleaning variable lda */
55599 /* End of cleaning variable n */
55600 /* End of cleaning variable info */
55601 /* End of cleaning variable amax */
55602 /* End of cleaning variable scond */
55603 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
55604 if((PyObject *)capi_a_tmp!=a_capi) {
55605 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
55606 } /*if (capi_a_tmp == NULL) ... else of a*/
55607 /* End of cleaning variable a */
55608 } /*CHECKSCALAR(lower==0||lower==1)*/
55609 } /*if (f2py_success) of lower*/
55610 /* End of cleaning variable lower */
55611/*end of cleanupfrompyobj*/
55612 if (capi_buildvalue == NULL((void*)0)) {
55613/*routdebugfailure*/
55614 } else {
55615/*routdebugleave*/
55616 }
55617 CFUNCSMESS("Freeing memory.\n");
55618/*freemem*/
55619#ifdef F2PY_REPORT_ATEXIT
55620f2py_stop_clock();
55621#endif
55622 return capi_buildvalue;
55623}
55624/******************************* end of dsyequb *******************************/
55625
55626/********************************** csyequb **********************************/
55627static char doc_f2py_rout__flapack_csyequb[] = "\
55628s,scond,amax,info = csyequb(a,[lower])\n\nWrapper for ``csyequb``.\
55629\n\nParameters\n----------\n"
55630"a : input rank-2 array('F') with bounds (lda,n)\n"
55631"\nOther Parameters\n----------------\n"
55632"lower : input int, optional\n Default: 0\n"
55633"\nReturns\n-------\n"
55634"s : rank-1 array('f') with bounds (n)\n"
55635"scond : float\n"
55636"amax : float\n"
55637"info : int";
55638/* extern void F_FUNC(csyequb,CSYEQUB)(char*,F_INT*,complex_float*,F_INT*,float*,float*,float*,complex_float*,F_INT* ); */
55639static PyObject *f2py_rout__flapack_csyequb(const PyObject *capi_self,
55640 PyObject *capi_args,
55641 PyObject *capi_keywds,
55642 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint* )) {
55643 PyObject * volatile capi_buildvalue = NULL((void*)0);
55644 volatile int f2py_success = 1;
55645/*decl*/
55646
55647 int lower = 0;
55648 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
55649 int n = 0;
55650 complex_float *a = NULL((void*)0);
55651 npy_intp a_Dims[2] = {-1, -1};
55652 const int a_Rank = 2;
55653 PyArrayObject *capi_a_tmp = NULL((void*)0);
55654 int capi_a_intent = 0;
55655 PyObject *a_capi = Py_None(&_Py_NoneStruct);
55656 int lda = 0;
55657 float *s = NULL((void*)0);
55658 npy_intp s_Dims[1] = {-1};
55659 const int s_Rank = 1;
55660 PyArrayObject *capi_s_tmp = NULL((void*)0);
55661 int capi_s_intent = 0;
55662 float scond = 0;
55663 float amax = 0;
55664 complex_float *work = NULL((void*)0);
55665 npy_intp work_Dims[1] = {-1};
55666 const int work_Rank = 1;
55667 PyArrayObject *capi_work_tmp = NULL((void*)0);
55668 int capi_work_intent = 0;
55669 int info = 0;
55670 static char *capi_kwlist[] = {"a","lower",NULL((void*)0)};
55671
55672/*routdebugenter*/
55673#ifdef F2PY_REPORT_ATEXIT
55674f2py_start_clock();
55675#endif
55676 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
55677 "O|O:_flapack.csyequb",\
55678 capi_kwlist,&a_capi,&lower_capi))
55679 return NULL((void*)0);
55680/*frompyobj*/
55681 /* Processing variable lower */
55682 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
55683 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.csyequb() 1st keyword (lower) can't be converted to int");
55684 if (f2py_success) {
55685 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","csyequb:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""csyequb:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
55686 /* Processing variable a */
55687 ;
55688 capi_a_intent |= F2PY_INTENT_IN1;
55689 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
55690 if (capi_a_tmp == NULL((void*)0)) {
55691 if (!PyErr_Occurred())
55692 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.csyequb to C/Fortran array" );
55693 } else {
55694 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
55695
55696 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
55697 /* Processing variable scond */
55698 /* Processing variable amax */
55699 /* Processing variable info */
55700 /* Processing variable n */
55701 n = shape(a,1)a_Dims[1];
55702 /* Processing variable lda */
55703 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
55704 /* Processing variable work */
55705 work_Dims[0]=3 * n;
55706 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
55707 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
55708 if (capi_work_tmp == NULL((void*)0)) {
55709 if (!PyErr_Occurred())
55710 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.csyequb to C/Fortran array" );
55711 } else {
55712 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
55713
55714 /* Processing variable s */
55715 s_Dims[0]=n;
55716 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
55717 capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
55718 if (capi_s_tmp == NULL((void*)0)) {
55719 if (!PyErr_Occurred())
55720 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.csyequb to C/Fortran array" );
55721 } else {
55722 s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
55723
55724/*end of frompyobj*/
55725#ifdef F2PY_REPORT_ATEXIT
55726f2py_start_call_clock();
55727#endif
55728/*callfortranroutine*/
55729 (*f2py_func)((lower?"L":"U"),&n,a,&lda,s,&scond,&amax,work,&info) ;
55730 /*(*f2py_func)(&lower,&n,a,&lda,s,&scond,&amax,work,&info);*/
55731if (PyErr_Occurred())
55732 f2py_success = 0;
55733#ifdef F2PY_REPORT_ATEXIT
55734f2py_stop_call_clock();
55735#endif
55736/*end of callfortranroutine*/
55737 if (f2py_success) {
55738/*pyobjfrom*/
55739/*end of pyobjfrom*/
55740 CFUNCSMESS("Building return value.\n");
55741 capi_buildvalue = Py_BuildValue("Nffi",capi_s_tmp,scond,amax,info);
55742/*closepyobjfrom*/
55743/*end of closepyobjfrom*/
55744 } /*if (f2py_success) after callfortranroutine*/
55745/*cleanupfrompyobj*/
55746 } /*if (capi_s_tmp == NULL) ... else of s*/
55747 /* End of cleaning variable s */
55748 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
55749 } /*if (capi_work_tmp == NULL) ... else of work*/
55750 /* End of cleaning variable work */
55751 /* End of cleaning variable lda */
55752 /* End of cleaning variable n */
55753 /* End of cleaning variable info */
55754 /* End of cleaning variable amax */
55755 /* End of cleaning variable scond */
55756 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
55757 if((PyObject *)capi_a_tmp!=a_capi) {
55758 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
55759 } /*if (capi_a_tmp == NULL) ... else of a*/
55760 /* End of cleaning variable a */
55761 } /*CHECKSCALAR(lower==0||lower==1)*/
55762 } /*if (f2py_success) of lower*/
55763 /* End of cleaning variable lower */
55764/*end of cleanupfrompyobj*/
55765 if (capi_buildvalue == NULL((void*)0)) {
55766/*routdebugfailure*/
55767 } else {
55768/*routdebugleave*/
55769 }
55770 CFUNCSMESS("Freeing memory.\n");
55771/*freemem*/
55772#ifdef F2PY_REPORT_ATEXIT
55773f2py_stop_clock();
55774#endif
55775 return capi_buildvalue;
55776}
55777/******************************* end of csyequb *******************************/
55778
55779/********************************** zsyequb **********************************/
55780static char doc_f2py_rout__flapack_zsyequb[] = "\
55781s,scond,amax,info = zsyequb(a,[lower])\n\nWrapper for ``zsyequb``.\
55782\n\nParameters\n----------\n"
55783"a : input rank-2 array('D') with bounds (lda,n)\n"
55784"\nOther Parameters\n----------------\n"
55785"lower : input int, optional\n Default: 0\n"
55786"\nReturns\n-------\n"
55787"s : rank-1 array('d') with bounds (n)\n"
55788"scond : float\n"
55789"amax : float\n"
55790"info : int";
55791/* extern void F_FUNC(zsyequb,ZSYEQUB)(char*,F_INT*,complex_double*,F_INT*,double*,double*,double*,complex_double*,F_INT* ); */
55792static PyObject *f2py_rout__flapack_zsyequb(const PyObject *capi_self,
55793 PyObject *capi_args,
55794 PyObject *capi_keywds,
55795 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint* )) {
55796 PyObject * volatile capi_buildvalue = NULL((void*)0);
55797 volatile int f2py_success = 1;
55798/*decl*/
55799
55800 int lower = 0;
55801 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
55802 int n = 0;
55803 complex_double *a = NULL((void*)0);
55804 npy_intp a_Dims[2] = {-1, -1};
55805 const int a_Rank = 2;
55806 PyArrayObject *capi_a_tmp = NULL((void*)0);
55807 int capi_a_intent = 0;
55808 PyObject *a_capi = Py_None(&_Py_NoneStruct);
55809 int lda = 0;
55810 double *s = NULL((void*)0);
55811 npy_intp s_Dims[1] = {-1};
55812 const int s_Rank = 1;
55813 PyArrayObject *capi_s_tmp = NULL((void*)0);
55814 int capi_s_intent = 0;
55815 double scond = 0;
55816 double amax = 0;
55817 complex_double *work = NULL((void*)0);
55818 npy_intp work_Dims[1] = {-1};
55819 const int work_Rank = 1;
55820 PyArrayObject *capi_work_tmp = NULL((void*)0);
55821 int capi_work_intent = 0;
55822 int info = 0;
55823 static char *capi_kwlist[] = {"a","lower",NULL((void*)0)};
55824
55825/*routdebugenter*/
55826#ifdef F2PY_REPORT_ATEXIT
55827f2py_start_clock();
55828#endif
55829 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
55830 "O|O:_flapack.zsyequb",\
55831 capi_kwlist,&a_capi,&lower_capi))
55832 return NULL((void*)0);
55833/*frompyobj*/
55834 /* Processing variable lower */
55835 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
55836 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zsyequb() 1st keyword (lower) can't be converted to int");
55837 if (f2py_success) {
55838 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zsyequb:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zsyequb:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
55839 /* Processing variable a */
55840 ;
55841 capi_a_intent |= F2PY_INTENT_IN1;
55842 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
55843 if (capi_a_tmp == NULL((void*)0)) {
55844 if (!PyErr_Occurred())
55845 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zsyequb to C/Fortran array" );
55846 } else {
55847 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
55848
55849 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
55850 /* Processing variable scond */
55851 /* Processing variable amax */
55852 /* Processing variable info */
55853 /* Processing variable n */
55854 n = shape(a,1)a_Dims[1];
55855 /* Processing variable lda */
55856 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
55857 /* Processing variable work */
55858 work_Dims[0]=3 * n;
55859 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
55860 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
55861 if (capi_work_tmp == NULL((void*)0)) {
55862 if (!PyErr_Occurred())
55863 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zsyequb to C/Fortran array" );
55864 } else {
55865 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
55866
55867 /* Processing variable s */
55868 s_Dims[0]=n;
55869 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
55870 capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
55871 if (capi_s_tmp == NULL((void*)0)) {
55872 if (!PyErr_Occurred())
55873 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.zsyequb to C/Fortran array" );
55874 } else {
55875 s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
55876
55877/*end of frompyobj*/
55878#ifdef F2PY_REPORT_ATEXIT
55879f2py_start_call_clock();
55880#endif
55881/*callfortranroutine*/
55882 (*f2py_func)((lower?"L":"U"),&n,a,&lda,s,&scond,&amax,work,&info) ;
55883 /*(*f2py_func)(&lower,&n,a,&lda,s,&scond,&amax,work,&info);*/
55884if (PyErr_Occurred())
55885 f2py_success = 0;
55886#ifdef F2PY_REPORT_ATEXIT
55887f2py_stop_call_clock();
55888#endif
55889/*end of callfortranroutine*/
55890 if (f2py_success) {
55891/*pyobjfrom*/
55892/*end of pyobjfrom*/
55893 CFUNCSMESS("Building return value.\n");
55894 capi_buildvalue = Py_BuildValue("Nddi",capi_s_tmp,scond,amax,info);
55895/*closepyobjfrom*/
55896/*end of closepyobjfrom*/
55897 } /*if (f2py_success) after callfortranroutine*/
55898/*cleanupfrompyobj*/
55899 } /*if (capi_s_tmp == NULL) ... else of s*/
55900 /* End of cleaning variable s */
55901 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
55902 } /*if (capi_work_tmp == NULL) ... else of work*/
55903 /* End of cleaning variable work */
55904 /* End of cleaning variable lda */
55905 /* End of cleaning variable n */
55906 /* End of cleaning variable info */
55907 /* End of cleaning variable amax */
55908 /* End of cleaning variable scond */
55909 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
55910 if((PyObject *)capi_a_tmp!=a_capi) {
55911 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
55912 } /*if (capi_a_tmp == NULL) ... else of a*/
55913 /* End of cleaning variable a */
55914 } /*CHECKSCALAR(lower==0||lower==1)*/
55915 } /*if (f2py_success) of lower*/
55916 /* End of cleaning variable lower */
55917/*end of cleanupfrompyobj*/
55918 if (capi_buildvalue == NULL((void*)0)) {
55919/*routdebugfailure*/
55920 } else {
55921/*routdebugleave*/
55922 }
55923 CFUNCSMESS("Freeing memory.\n");
55924/*freemem*/
55925#ifdef F2PY_REPORT_ATEXIT
55926f2py_stop_clock();
55927#endif
55928 return capi_buildvalue;
55929}
55930/******************************* end of zsyequb *******************************/
55931
55932/********************************** cheequb **********************************/
55933static char doc_f2py_rout__flapack_cheequb[] = "\
55934s,scond,amax,info = cheequb(a,[lower])\n\nWrapper for ``cheequb``.\
55935\n\nParameters\n----------\n"
55936"a : input rank-2 array('F') with bounds (lda,n)\n"
55937"\nOther Parameters\n----------------\n"
55938"lower : input int, optional\n Default: 0\n"
55939"\nReturns\n-------\n"
55940"s : rank-1 array('f') with bounds (n)\n"
55941"scond : float\n"
55942"amax : float\n"
55943"info : int";
55944/* extern void F_FUNC(cheequb,CHEEQUB)(char*,F_INT*,complex_float*,F_INT*,float*,float*,float*,complex_float*,F_INT* ); */
55945static PyObject *f2py_rout__flapack_cheequb(const PyObject *capi_self,
55946 PyObject *capi_args,
55947 PyObject *capi_keywds,
55948 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,F_INTint* )) {
55949 PyObject * volatile capi_buildvalue = NULL((void*)0);
55950 volatile int f2py_success = 1;
55951/*decl*/
55952
55953 int lower = 0;
55954 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
55955 int n = 0;
55956 complex_float *a = NULL((void*)0);
55957 npy_intp a_Dims[2] = {-1, -1};
55958 const int a_Rank = 2;
55959 PyArrayObject *capi_a_tmp = NULL((void*)0);
55960 int capi_a_intent = 0;
55961 PyObject *a_capi = Py_None(&_Py_NoneStruct);
55962 int lda = 0;
55963 float *s = NULL((void*)0);
55964 npy_intp s_Dims[1] = {-1};
55965 const int s_Rank = 1;
55966 PyArrayObject *capi_s_tmp = NULL((void*)0);
55967 int capi_s_intent = 0;
55968 float scond = 0;
55969 float amax = 0;
55970 complex_float *work = NULL((void*)0);
55971 npy_intp work_Dims[1] = {-1};
55972 const int work_Rank = 1;
55973 PyArrayObject *capi_work_tmp = NULL((void*)0);
55974 int capi_work_intent = 0;
55975 int info = 0;
55976 static char *capi_kwlist[] = {"a","lower",NULL((void*)0)};
55977
55978/*routdebugenter*/
55979#ifdef F2PY_REPORT_ATEXIT
55980f2py_start_clock();
55981#endif
55982 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
55983 "O|O:_flapack.cheequb",\
55984 capi_kwlist,&a_capi,&lower_capi))
55985 return NULL((void*)0);
55986/*frompyobj*/
55987 /* Processing variable lower */
55988 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
55989 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cheequb() 1st keyword (lower) can't be converted to int");
55990 if (f2py_success) {
55991 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cheequb:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cheequb:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
55992 /* Processing variable a */
55993 ;
55994 capi_a_intent |= F2PY_INTENT_IN1;
55995 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
55996 if (capi_a_tmp == NULL((void*)0)) {
55997 if (!PyErr_Occurred())
55998 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cheequb to C/Fortran array" );
55999 } else {
56000 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
56001
56002 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
56003 /* Processing variable scond */
56004 /* Processing variable amax */
56005 /* Processing variable info */
56006 /* Processing variable n */
56007 n = shape(a,1)a_Dims[1];
56008 /* Processing variable lda */
56009 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
56010 /* Processing variable work */
56011 work_Dims[0]=3 * n;
56012 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
56013 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
56014 if (capi_work_tmp == NULL((void*)0)) {
56015 if (!PyErr_Occurred())
56016 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cheequb to C/Fortran array" );
56017 } else {
56018 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
56019
56020 /* Processing variable s */
56021 s_Dims[0]=n;
56022 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
56023 capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
56024 if (capi_s_tmp == NULL((void*)0)) {
56025 if (!PyErr_Occurred())
56026 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.cheequb to C/Fortran array" );
56027 } else {
56028 s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
56029
56030/*end of frompyobj*/
56031#ifdef F2PY_REPORT_ATEXIT
56032f2py_start_call_clock();
56033#endif
56034/*callfortranroutine*/
56035 (*f2py_func)((lower?"L":"U"),&n,a,&lda,s,&scond,&amax,work,&info) ;
56036 /*(*f2py_func)(&lower,&n,a,&lda,s,&scond,&amax,work,&info);*/
56037if (PyErr_Occurred())
56038 f2py_success = 0;
56039#ifdef F2PY_REPORT_ATEXIT
56040f2py_stop_call_clock();
56041#endif
56042/*end of callfortranroutine*/
56043 if (f2py_success) {
56044/*pyobjfrom*/
56045/*end of pyobjfrom*/
56046 CFUNCSMESS("Building return value.\n");
56047 capi_buildvalue = Py_BuildValue("Nffi",capi_s_tmp,scond,amax,info);
56048/*closepyobjfrom*/
56049/*end of closepyobjfrom*/
56050 } /*if (f2py_success) after callfortranroutine*/
56051/*cleanupfrompyobj*/
56052 } /*if (capi_s_tmp == NULL) ... else of s*/
56053 /* End of cleaning variable s */
56054 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
56055 } /*if (capi_work_tmp == NULL) ... else of work*/
56056 /* End of cleaning variable work */
56057 /* End of cleaning variable lda */
56058 /* End of cleaning variable n */
56059 /* End of cleaning variable info */
56060 /* End of cleaning variable amax */
56061 /* End of cleaning variable scond */
56062 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
56063 if((PyObject *)capi_a_tmp!=a_capi) {
56064 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
56065 } /*if (capi_a_tmp == NULL) ... else of a*/
56066 /* End of cleaning variable a */
56067 } /*CHECKSCALAR(lower==0||lower==1)*/
56068 } /*if (f2py_success) of lower*/
56069 /* End of cleaning variable lower */
56070/*end of cleanupfrompyobj*/
56071 if (capi_buildvalue == NULL((void*)0)) {
56072/*routdebugfailure*/
56073 } else {
56074/*routdebugleave*/
56075 }
56076 CFUNCSMESS("Freeing memory.\n");
56077/*freemem*/
56078#ifdef F2PY_REPORT_ATEXIT
56079f2py_stop_clock();
56080#endif
56081 return capi_buildvalue;
56082}
56083/******************************* end of cheequb *******************************/
56084
56085/********************************** zheequb **********************************/
56086static char doc_f2py_rout__flapack_zheequb[] = "\
56087s,scond,amax,info = zheequb(a,[lower])\n\nWrapper for ``zheequb``.\
56088\n\nParameters\n----------\n"
56089"a : input rank-2 array('D') with bounds (lda,n)\n"
56090"\nOther Parameters\n----------------\n"
56091"lower : input int, optional\n Default: 0\n"
56092"\nReturns\n-------\n"
56093"s : rank-1 array('d') with bounds (n)\n"
56094"scond : float\n"
56095"amax : float\n"
56096"info : int";
56097/* extern void F_FUNC(zheequb,ZHEEQUB)(char*,F_INT*,complex_double*,F_INT*,double*,double*,double*,complex_double*,F_INT* ); */
56098static PyObject *f2py_rout__flapack_zheequb(const PyObject *capi_self,
56099 PyObject *capi_args,
56100 PyObject *capi_keywds,
56101 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,F_INTint* )) {
56102 PyObject * volatile capi_buildvalue = NULL((void*)0);
56103 volatile int f2py_success = 1;
56104/*decl*/
56105
56106 int lower = 0;
56107 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
56108 int n = 0;
56109 complex_double *a = NULL((void*)0);
56110 npy_intp a_Dims[2] = {-1, -1};
56111 const int a_Rank = 2;
56112 PyArrayObject *capi_a_tmp = NULL((void*)0);
56113 int capi_a_intent = 0;
56114 PyObject *a_capi = Py_None(&_Py_NoneStruct);
56115 int lda = 0;
56116 double *s = NULL((void*)0);
56117 npy_intp s_Dims[1] = {-1};
56118 const int s_Rank = 1;
56119 PyArrayObject *capi_s_tmp = NULL((void*)0);
56120 int capi_s_intent = 0;
56121 double scond = 0;
56122 double amax = 0;
56123 complex_double *work = NULL((void*)0);
56124 npy_intp work_Dims[1] = {-1};
56125 const int work_Rank = 1;
56126 PyArrayObject *capi_work_tmp = NULL((void*)0);
56127 int capi_work_intent = 0;
56128 int info = 0;
56129 static char *capi_kwlist[] = {"a","lower",NULL((void*)0)};
56130
56131/*routdebugenter*/
56132#ifdef F2PY_REPORT_ATEXIT
56133f2py_start_clock();
56134#endif
56135 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
56136 "O|O:_flapack.zheequb",\
56137 capi_kwlist,&a_capi,&lower_capi))
56138 return NULL((void*)0);
56139/*frompyobj*/
56140 /* Processing variable lower */
56141 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
56142 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zheequb() 1st keyword (lower) can't be converted to int");
56143 if (f2py_success) {
56144 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zheequb:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zheequb:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
56145 /* Processing variable a */
56146 ;
56147 capi_a_intent |= F2PY_INTENT_IN1;
56148 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
56149 if (capi_a_tmp == NULL((void*)0)) {
56150 if (!PyErr_Occurred())
56151 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zheequb to C/Fortran array" );
56152 } else {
56153 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
56154
56155 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
56156 /* Processing variable scond */
56157 /* Processing variable amax */
56158 /* Processing variable info */
56159 /* Processing variable n */
56160 n = shape(a,1)a_Dims[1];
56161 /* Processing variable lda */
56162 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
56163 /* Processing variable work */
56164 work_Dims[0]=3 * n;
56165 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
56166 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
56167 if (capi_work_tmp == NULL((void*)0)) {
56168 if (!PyErr_Occurred())
56169 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zheequb to C/Fortran array" );
56170 } else {
56171 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
56172
56173 /* Processing variable s */
56174 s_Dims[0]=n;
56175 capi_s_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
56176 capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,Py_None(&_Py_NoneStruct));
56177 if (capi_s_tmp == NULL((void*)0)) {
56178 if (!PyErr_Occurred())
56179 PyErr_SetString(_flapack_error,"failed in converting hidden `s' of _flapack.zheequb to C/Fortran array" );
56180 } else {
56181 s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
56182
56183/*end of frompyobj*/
56184#ifdef F2PY_REPORT_ATEXIT
56185f2py_start_call_clock();
56186#endif
56187/*callfortranroutine*/
56188 (*f2py_func)((lower?"L":"U"),&n,a,&lda,s,&scond,&amax,work,&info) ;
56189 /*(*f2py_func)(&lower,&n,a,&lda,s,&scond,&amax,work,&info);*/
56190if (PyErr_Occurred())
56191 f2py_success = 0;
56192#ifdef F2PY_REPORT_ATEXIT
56193f2py_stop_call_clock();
56194#endif
56195/*end of callfortranroutine*/
56196 if (f2py_success) {
56197/*pyobjfrom*/
56198/*end of pyobjfrom*/
56199 CFUNCSMESS("Building return value.\n");
56200 capi_buildvalue = Py_BuildValue("Nddi",capi_s_tmp,scond,amax,info);
56201/*closepyobjfrom*/
56202/*end of closepyobjfrom*/
56203 } /*if (f2py_success) after callfortranroutine*/
56204/*cleanupfrompyobj*/
56205 } /*if (capi_s_tmp == NULL) ... else of s*/
56206 /* End of cleaning variable s */
56207 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
56208 } /*if (capi_work_tmp == NULL) ... else of work*/
56209 /* End of cleaning variable work */
56210 /* End of cleaning variable lda */
56211 /* End of cleaning variable n */
56212 /* End of cleaning variable info */
56213 /* End of cleaning variable amax */
56214 /* End of cleaning variable scond */
56215 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
56216 if((PyObject *)capi_a_tmp!=a_capi) {
56217 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
56218 } /*if (capi_a_tmp == NULL) ... else of a*/
56219 /* End of cleaning variable a */
56220 } /*CHECKSCALAR(lower==0||lower==1)*/
56221 } /*if (f2py_success) of lower*/
56222 /* End of cleaning variable lower */
56223/*end of cleanupfrompyobj*/
56224 if (capi_buildvalue == NULL((void*)0)) {
56225/*routdebugfailure*/
56226 } else {
56227/*routdebugleave*/
56228 }
56229 CFUNCSMESS("Freeing memory.\n");
56230/*freemem*/
56231#ifdef F2PY_REPORT_ATEXIT
56232f2py_stop_clock();
56233#endif
56234 return capi_buildvalue;
56235}
56236/******************************* end of zheequb *******************************/
56237
56238/*********************************** spstrf ***********************************/
56239static char doc_f2py_rout__flapack_spstrf[] = "\
56240c,piv,rank_c,info = spstrf(a,[tol,lower,overwrite_a])\n\nWrapper for ``spstrf``.\
56241\n\nParameters\n----------\n"
56242"a : input rank-2 array('f') with bounds (n,n)\n"
56243"\nOther Parameters\n----------------\n"
56244"overwrite_a : input int, optional\n Default: 0\n"
56245"tol : input float, optional\n Default: -1.0\n"
56246"lower : input int, optional\n Default: 0\n"
56247"\nReturns\n-------\n"
56248"c : rank-2 array('f') with bounds (n,n) and a storage\n"
56249"piv : rank-1 array('i') with bounds (n)\n"
56250"rank_c : int\n"
56251"info : int";
56252/* extern void F_FUNC(spstrf,SPSTRF)(char*,F_INT*,float*,F_INT*,F_INT*,F_INT*,float*,float*,F_INT* ); */
56253static PyObject *f2py_rout__flapack_spstrf(const PyObject *capi_self,
56254 PyObject *capi_args,
56255 PyObject *capi_keywds,
56256 void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint* )) {
56257 PyObject * volatile capi_buildvalue = NULL((void*)0);
56258 volatile int f2py_success = 1;
56259/*decl*/
56260
56261 int n = 0;
56262 float *a = NULL((void*)0);
56263 npy_intp a_Dims[2] = {-1, -1};
56264 const int a_Rank = 2;
56265 PyArrayObject *capi_a_tmp = NULL((void*)0);
56266 int capi_a_intent = 0;
56267 int capi_overwrite_a = 0;
56268 PyObject *a_capi = Py_None(&_Py_NoneStruct);
56269 int lda = 0;
56270 int *piv = NULL((void*)0);
56271 npy_intp piv_Dims[1] = {-1};
56272 const int piv_Rank = 1;
56273 PyArrayObject *capi_piv_tmp = NULL((void*)0);
56274 int capi_piv_intent = 0;
56275 int rank_c = 0;
56276 float tol = 0;
56277 PyObject *tol_capi = Py_None(&_Py_NoneStruct);
56278 float *work = NULL((void*)0);
56279 npy_intp work_Dims[1] = {-1};
56280 const int work_Rank = 1;
56281 PyArrayObject *capi_work_tmp = NULL((void*)0);
56282 int capi_work_intent = 0;
56283 int info = 0;
56284 int lower = 0;
56285 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
56286 static char *capi_kwlist[] = {"a","tol","lower","overwrite_a",NULL((void*)0)};
56287
56288/*routdebugenter*/
56289#ifdef F2PY_REPORT_ATEXIT
56290f2py_start_clock();
56291#endif
56292 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
56293 "O|OOi:_flapack.spstrf",\
56294 capi_kwlist,&a_capi,&tol_capi,&lower_capi,&capi_overwrite_a))
56295 return NULL((void*)0);
56296/*frompyobj*/
56297 /* Processing variable lower */
56298 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
56299 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spstrf() 2nd keyword (lower) can't be converted to int");
56300 if (f2py_success) {
56301 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","spstrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spstrf:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
56302 /* Processing variable a */
56303 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
56304 ;
56305 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
56306 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
56307 if (capi_a_tmp == NULL((void*)0)) {
56308 if (!PyErr_Occurred())
56309 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.spstrf to C/Fortran array" );
56310 } else {
56311 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
56312
56313 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
56314 /* Processing variable rank_c */
56315 /* Processing variable tol */
56316 if (tol_capi == Py_None(&_Py_NoneStruct)) tol = -1.0; else
56317 f2py_success = float_from_pyobj(&tol,tol_capi,"_flapack.spstrf() 1st keyword (tol) can't be converted to float");
56318 if (f2py_success) {
56319 /* Processing variable info */
56320 /* Processing variable n */
56321 n = shape(a,0)a_Dims[0];
56322 /* Processing variable lda */
56323 lda = max(1,shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
56324 /* Processing variable piv */
56325 piv_Dims[0]=n;
56326 capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
56327 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct));
56328 if (capi_piv_tmp == NULL((void*)0)) {
56329 if (!PyErr_Occurred())
56330 PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.spstrf to C/Fortran array" );
56331 } else {
56332 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
56333
56334 /* Processing variable work */
56335 work_Dims[0]=2 * n;
56336 capi_work_intent |= F2PY_INTENT_HIDE8;
56337 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
56338 if (capi_work_tmp == NULL((void*)0)) {
56339 if (!PyErr_Occurred())
56340 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.spstrf to C/Fortran array" );
56341 } else {
56342 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
56343
56344/*end of frompyobj*/
56345#ifdef F2PY_REPORT_ATEXIT
56346f2py_start_call_clock();
56347#endif
56348/*callfortranroutine*/
56349 (*f2py_func)((lower?"L":"U"),&n,a,&lda,piv,&rank_c,&tol,work,&info) ;
56350 /*(*f2py_func)(&n,a,&lda,piv,&rank_c,&tol,work,&info,&lower);*/
56351if (PyErr_Occurred())
56352 f2py_success = 0;
56353#ifdef F2PY_REPORT_ATEXIT
56354f2py_stop_call_clock();
56355#endif
56356/*end of callfortranroutine*/
56357 if (f2py_success) {
56358/*pyobjfrom*/
56359/*end of pyobjfrom*/
56360 CFUNCSMESS("Building return value.\n");
56361 capi_buildvalue = Py_BuildValue("NNii",capi_a_tmp,capi_piv_tmp,rank_c,info);
56362/*closepyobjfrom*/
56363/*end of closepyobjfrom*/
56364 } /*if (f2py_success) after callfortranroutine*/
56365/*cleanupfrompyobj*/
56366 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
56367 } /*if (capi_work_tmp == NULL) ... else of work*/
56368 /* End of cleaning variable work */
56369 } /*if (capi_piv_tmp == NULL) ... else of piv*/
56370 /* End of cleaning variable piv */
56371 /* End of cleaning variable lda */
56372 /* End of cleaning variable n */
56373 /* End of cleaning variable info */
56374 } /*if (f2py_success) of tol*/
56375 /* End of cleaning variable tol */
56376 /* End of cleaning variable rank_c */
56377 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
56378 } /*if (capi_a_tmp == NULL) ... else of a*/
56379 /* End of cleaning variable a */
56380 } /*CHECKSCALAR(lower==0||lower==1)*/
56381 } /*if (f2py_success) of lower*/
56382 /* End of cleaning variable lower */
56383/*end of cleanupfrompyobj*/
56384 if (capi_buildvalue == NULL((void*)0)) {
56385/*routdebugfailure*/
56386 } else {
56387/*routdebugleave*/
56388 }
56389 CFUNCSMESS("Freeing memory.\n");
56390/*freemem*/
56391#ifdef F2PY_REPORT_ATEXIT
56392f2py_stop_clock();
56393#endif
56394 return capi_buildvalue;
56395}
56396/******************************* end of spstrf *******************************/
56397
56398/*********************************** dpstrf ***********************************/
56399static char doc_f2py_rout__flapack_dpstrf[] = "\
56400c,piv,rank_c,info = dpstrf(a,[tol,lower,overwrite_a])\n\nWrapper for ``dpstrf``.\
56401\n\nParameters\n----------\n"
56402"a : input rank-2 array('d') with bounds (n,n)\n"
56403"\nOther Parameters\n----------------\n"
56404"overwrite_a : input int, optional\n Default: 0\n"
56405"tol : input float, optional\n Default: -1.0\n"
56406"lower : input int, optional\n Default: 0\n"
56407"\nReturns\n-------\n"
56408"c : rank-2 array('d') with bounds (n,n) and a storage\n"
56409"piv : rank-1 array('i') with bounds (n)\n"
56410"rank_c : int\n"
56411"info : int";
56412/* extern void F_FUNC(dpstrf,DPSTRF)(char*,F_INT*,double*,F_INT*,F_INT*,F_INT*,double*,double*,F_INT* ); */
56413static PyObject *f2py_rout__flapack_dpstrf(const PyObject *capi_self,
56414 PyObject *capi_args,
56415 PyObject *capi_keywds,
56416 void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint* )) {
56417 PyObject * volatile capi_buildvalue = NULL((void*)0);
56418 volatile int f2py_success = 1;
56419/*decl*/
56420
56421 int n = 0;
56422 double *a = NULL((void*)0);
56423 npy_intp a_Dims[2] = {-1, -1};
56424 const int a_Rank = 2;
56425 PyArrayObject *capi_a_tmp = NULL((void*)0);
56426 int capi_a_intent = 0;
56427 int capi_overwrite_a = 0;
56428 PyObject *a_capi = Py_None(&_Py_NoneStruct);
56429 int lda = 0;
56430 int *piv = NULL((void*)0);
56431 npy_intp piv_Dims[1] = {-1};
56432 const int piv_Rank = 1;
56433 PyArrayObject *capi_piv_tmp = NULL((void*)0);
56434 int capi_piv_intent = 0;
56435 int rank_c = 0;
56436 double tol = 0;
56437 PyObject *tol_capi = Py_None(&_Py_NoneStruct);
56438 double *work = NULL((void*)0);
56439 npy_intp work_Dims[1] = {-1};
56440 const int work_Rank = 1;
56441 PyArrayObject *capi_work_tmp = NULL((void*)0);
56442 int capi_work_intent = 0;
56443 int info = 0;
56444 int lower = 0;
56445 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
56446 static char *capi_kwlist[] = {"a","tol","lower","overwrite_a",NULL((void*)0)};
56447
56448/*routdebugenter*/
56449#ifdef F2PY_REPORT_ATEXIT
56450f2py_start_clock();
56451#endif
56452 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
56453 "O|OOi:_flapack.dpstrf",\
56454 capi_kwlist,&a_capi,&tol_capi,&lower_capi,&capi_overwrite_a))
56455 return NULL((void*)0);
56456/*frompyobj*/
56457 /* Processing variable lower */
56458 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
56459 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpstrf() 2nd keyword (lower) can't be converted to int");
56460 if (f2py_success) {
56461 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","dpstrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpstrf:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
56462 /* Processing variable a */
56463 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
56464 ;
56465 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
56466 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
56467 if (capi_a_tmp == NULL((void*)0)) {
56468 if (!PyErr_Occurred())
56469 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dpstrf to C/Fortran array" );
56470 } else {
56471 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
56472
56473 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
56474 /* Processing variable rank_c */
56475 /* Processing variable tol */
56476 if (tol_capi == Py_None(&_Py_NoneStruct)) tol = -1.0; else
56477 f2py_success = double_from_pyobj(&tol,tol_capi,"_flapack.dpstrf() 1st keyword (tol) can't be converted to double");
56478 if (f2py_success) {
56479 /* Processing variable info */
56480 /* Processing variable n */
56481 n = shape(a,0)a_Dims[0];
56482 /* Processing variable lda */
56483 lda = max(1,shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
56484 /* Processing variable piv */
56485 piv_Dims[0]=n;
56486 capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
56487 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct));
56488 if (capi_piv_tmp == NULL((void*)0)) {
56489 if (!PyErr_Occurred())
56490 PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.dpstrf to C/Fortran array" );
56491 } else {
56492 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
56493
56494 /* Processing variable work */
56495 work_Dims[0]=2 * n;
56496 capi_work_intent |= F2PY_INTENT_HIDE8;
56497 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
56498 if (capi_work_tmp == NULL((void*)0)) {
56499 if (!PyErr_Occurred())
56500 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dpstrf to C/Fortran array" );
56501 } else {
56502 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
56503
56504/*end of frompyobj*/
56505#ifdef F2PY_REPORT_ATEXIT
56506f2py_start_call_clock();
56507#endif
56508/*callfortranroutine*/
56509 (*f2py_func)((lower?"L":"U"),&n,a,&lda,piv,&rank_c,&tol,work,&info) ;
56510 /*(*f2py_func)(&n,a,&lda,piv,&rank_c,&tol,work,&info,&lower);*/
56511if (PyErr_Occurred())
56512 f2py_success = 0;
56513#ifdef F2PY_REPORT_ATEXIT
56514f2py_stop_call_clock();
56515#endif
56516/*end of callfortranroutine*/
56517 if (f2py_success) {
56518/*pyobjfrom*/
56519/*end of pyobjfrom*/
56520 CFUNCSMESS("Building return value.\n");
56521 capi_buildvalue = Py_BuildValue("NNii",capi_a_tmp,capi_piv_tmp,rank_c,info);
56522/*closepyobjfrom*/
56523/*end of closepyobjfrom*/
56524 } /*if (f2py_success) after callfortranroutine*/
56525/*cleanupfrompyobj*/
56526 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
56527 } /*if (capi_work_tmp == NULL) ... else of work*/
56528 /* End of cleaning variable work */
56529 } /*if (capi_piv_tmp == NULL) ... else of piv*/
56530 /* End of cleaning variable piv */
56531 /* End of cleaning variable lda */
56532 /* End of cleaning variable n */
56533 /* End of cleaning variable info */
56534 } /*if (f2py_success) of tol*/
56535 /* End of cleaning variable tol */
56536 /* End of cleaning variable rank_c */
56537 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
56538 } /*if (capi_a_tmp == NULL) ... else of a*/
56539 /* End of cleaning variable a */
56540 } /*CHECKSCALAR(lower==0||lower==1)*/
56541 } /*if (f2py_success) of lower*/
56542 /* End of cleaning variable lower */
56543/*end of cleanupfrompyobj*/
56544 if (capi_buildvalue == NULL((void*)0)) {
56545/*routdebugfailure*/
56546 } else {
56547/*routdebugleave*/
56548 }
56549 CFUNCSMESS("Freeing memory.\n");
56550/*freemem*/
56551#ifdef F2PY_REPORT_ATEXIT
56552f2py_stop_clock();
56553#endif
56554 return capi_buildvalue;
56555}
56556/******************************* end of dpstrf *******************************/
56557
56558/*********************************** cpstrf ***********************************/
56559static char doc_f2py_rout__flapack_cpstrf[] = "\
56560c,piv,rank_c,info = cpstrf(a,[tol,lower,overwrite_a])\n\nWrapper for ``cpstrf``.\
56561\n\nParameters\n----------\n"
56562"a : input rank-2 array('F') with bounds (n,n)\n"
56563"\nOther Parameters\n----------------\n"
56564"overwrite_a : input int, optional\n Default: 0\n"
56565"tol : input float, optional\n Default: -1.0\n"
56566"lower : input int, optional\n Default: 0\n"
56567"\nReturns\n-------\n"
56568"c : rank-2 array('F') with bounds (n,n) and a storage\n"
56569"piv : rank-1 array('i') with bounds (n)\n"
56570"rank_c : int\n"
56571"info : int";
56572/* extern void F_FUNC(cpstrf,CPSTRF)(char*,F_INT*,complex_float*,F_INT*,F_INT*,F_INT*,float*,float*,F_INT* ); */
56573static PyObject *f2py_rout__flapack_cpstrf(const PyObject *capi_self,
56574 PyObject *capi_args,
56575 PyObject *capi_keywds,
56576 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint* )) {
56577 PyObject * volatile capi_buildvalue = NULL((void*)0);
56578 volatile int f2py_success = 1;
56579/*decl*/
56580
56581 int n = 0;
56582 complex_float *a = NULL((void*)0);
56583 npy_intp a_Dims[2] = {-1, -1};
56584 const int a_Rank = 2;
56585 PyArrayObject *capi_a_tmp = NULL((void*)0);
56586 int capi_a_intent = 0;
56587 int capi_overwrite_a = 0;
56588 PyObject *a_capi = Py_None(&_Py_NoneStruct);
56589 int lda = 0;
56590 int *piv = NULL((void*)0);
56591 npy_intp piv_Dims[1] = {-1};
56592 const int piv_Rank = 1;
56593 PyArrayObject *capi_piv_tmp = NULL((void*)0);
56594 int capi_piv_intent = 0;
56595 int rank_c = 0;
56596 float tol = 0;
56597 PyObject *tol_capi = Py_None(&_Py_NoneStruct);
56598 float *work = NULL((void*)0);
56599 npy_intp work_Dims[1] = {-1};
56600 const int work_Rank = 1;
56601 PyArrayObject *capi_work_tmp = NULL((void*)0);
56602 int capi_work_intent = 0;
56603 int info = 0;
56604 int lower = 0;
56605 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
56606 static char *capi_kwlist[] = {"a","tol","lower","overwrite_a",NULL((void*)0)};
56607
56608/*routdebugenter*/
56609#ifdef F2PY_REPORT_ATEXIT
56610f2py_start_clock();
56611#endif
56612 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
56613 "O|OOi:_flapack.cpstrf",\
56614 capi_kwlist,&a_capi,&tol_capi,&lower_capi,&capi_overwrite_a))
56615 return NULL((void*)0);
56616/*frompyobj*/
56617 /* Processing variable lower */
56618 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
56619 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpstrf() 2nd keyword (lower) can't be converted to int");
56620 if (f2py_success) {
56621 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","cpstrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpstrf:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
56622 /* Processing variable a */
56623 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
56624 ;
56625 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
56626 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
56627 if (capi_a_tmp == NULL((void*)0)) {
56628 if (!PyErr_Occurred())
56629 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cpstrf to C/Fortran array" );
56630 } else {
56631 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
56632
56633 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
56634 /* Processing variable rank_c */
56635 /* Processing variable tol */
56636 if (tol_capi == Py_None(&_Py_NoneStruct)) tol = -1.0; else
56637 f2py_success = float_from_pyobj(&tol,tol_capi,"_flapack.cpstrf() 1st keyword (tol) can't be converted to float");
56638 if (f2py_success) {
56639 /* Processing variable info */
56640 /* Processing variable n */
56641 n = shape(a,0)a_Dims[0];
56642 /* Processing variable lda */
56643 lda = max(1,shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
56644 /* Processing variable piv */
56645 piv_Dims[0]=n;
56646 capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
56647 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct));
56648 if (capi_piv_tmp == NULL((void*)0)) {
56649 if (!PyErr_Occurred())
56650 PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.cpstrf to C/Fortran array" );
56651 } else {
56652 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
56653
56654 /* Processing variable work */
56655 work_Dims[0]=2 * n;
56656 capi_work_intent |= F2PY_INTENT_HIDE8;
56657 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
56658 if (capi_work_tmp == NULL((void*)0)) {
56659 if (!PyErr_Occurred())
56660 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cpstrf to C/Fortran array" );
56661 } else {
56662 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
56663
56664/*end of frompyobj*/
56665#ifdef F2PY_REPORT_ATEXIT
56666f2py_start_call_clock();
56667#endif
56668/*callfortranroutine*/
56669 (*f2py_func)((lower?"L":"U"),&n,a,&lda,piv,&rank_c,&tol,work,&info) ;
56670 /*(*f2py_func)(&n,a,&lda,piv,&rank_c,&tol,work,&info,&lower);*/
56671if (PyErr_Occurred())
56672 f2py_success = 0;
56673#ifdef F2PY_REPORT_ATEXIT
56674f2py_stop_call_clock();
56675#endif
56676/*end of callfortranroutine*/
56677 if (f2py_success) {
56678/*pyobjfrom*/
56679/*end of pyobjfrom*/
56680 CFUNCSMESS("Building return value.\n");
56681 capi_buildvalue = Py_BuildValue("NNii",capi_a_tmp,capi_piv_tmp,rank_c,info);
56682/*closepyobjfrom*/
56683/*end of closepyobjfrom*/
56684 } /*if (f2py_success) after callfortranroutine*/
56685/*cleanupfrompyobj*/
56686 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
56687 } /*if (capi_work_tmp == NULL) ... else of work*/
56688 /* End of cleaning variable work */
56689 } /*if (capi_piv_tmp == NULL) ... else of piv*/
56690 /* End of cleaning variable piv */
56691 /* End of cleaning variable lda */
56692 /* End of cleaning variable n */
56693 /* End of cleaning variable info */
56694 } /*if (f2py_success) of tol*/
56695 /* End of cleaning variable tol */
56696 /* End of cleaning variable rank_c */
56697 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
56698 } /*if (capi_a_tmp == NULL) ... else of a*/
56699 /* End of cleaning variable a */
56700 } /*CHECKSCALAR(lower==0||lower==1)*/
56701 } /*if (f2py_success) of lower*/
56702 /* End of cleaning variable lower */
56703/*end of cleanupfrompyobj*/
56704 if (capi_buildvalue == NULL((void*)0)) {
56705/*routdebugfailure*/
56706 } else {
56707/*routdebugleave*/
56708 }
56709 CFUNCSMESS("Freeing memory.\n");
56710/*freemem*/
56711#ifdef F2PY_REPORT_ATEXIT
56712f2py_stop_clock();
56713#endif
56714 return capi_buildvalue;
56715}
56716/******************************* end of cpstrf *******************************/
56717
56718/*********************************** zpstrf ***********************************/
56719static char doc_f2py_rout__flapack_zpstrf[] = "\
56720c,piv,rank_c,info = zpstrf(a,[tol,lower,overwrite_a])\n\nWrapper for ``zpstrf``.\
56721\n\nParameters\n----------\n"
56722"a : input rank-2 array('D') with bounds (n,n)\n"
56723"\nOther Parameters\n----------------\n"
56724"overwrite_a : input int, optional\n Default: 0\n"
56725"tol : input float, optional\n Default: -1.0\n"
56726"lower : input int, optional\n Default: 0\n"
56727"\nReturns\n-------\n"
56728"c : rank-2 array('D') with bounds (n,n) and a storage\n"
56729"piv : rank-1 array('i') with bounds (n)\n"
56730"rank_c : int\n"
56731"info : int";
56732/* extern void F_FUNC(zpstrf,ZPSTRF)(char*,F_INT*,complex_double*,F_INT*,F_INT*,F_INT*,double*,double*,F_INT* ); */
56733static PyObject *f2py_rout__flapack_zpstrf(const PyObject *capi_self,
56734 PyObject *capi_args,
56735 PyObject *capi_keywds,
56736 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint* )) {
56737 PyObject * volatile capi_buildvalue = NULL((void*)0);
56738 volatile int f2py_success = 1;
56739/*decl*/
56740
56741 int n = 0;
56742 complex_double *a = NULL((void*)0);
56743 npy_intp a_Dims[2] = {-1, -1};
56744 const int a_Rank = 2;
56745 PyArrayObject *capi_a_tmp = NULL((void*)0);
56746 int capi_a_intent = 0;
56747 int capi_overwrite_a = 0;
56748 PyObject *a_capi = Py_None(&_Py_NoneStruct);
56749 int lda = 0;
56750 int *piv = NULL((void*)0);
56751 npy_intp piv_Dims[1] = {-1};
56752 const int piv_Rank = 1;
56753 PyArrayObject *capi_piv_tmp = NULL((void*)0);
56754 int capi_piv_intent = 0;
56755 int rank_c = 0;
56756 double tol = 0;
56757 PyObject *tol_capi = Py_None(&_Py_NoneStruct);
56758 double *work = NULL((void*)0);
56759 npy_intp work_Dims[1] = {-1};
56760 const int work_Rank = 1;
56761 PyArrayObject *capi_work_tmp = NULL((void*)0);
56762 int capi_work_intent = 0;
56763 int info = 0;
56764 int lower = 0;
56765 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
56766 static char *capi_kwlist[] = {"a","tol","lower","overwrite_a",NULL((void*)0)};
56767
56768/*routdebugenter*/
56769#ifdef F2PY_REPORT_ATEXIT
56770f2py_start_clock();
56771#endif
56772 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
56773 "O|OOi:_flapack.zpstrf",\
56774 capi_kwlist,&a_capi,&tol_capi,&lower_capi,&capi_overwrite_a))
56775 return NULL((void*)0);
56776/*frompyobj*/
56777 /* Processing variable lower */
56778 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
56779 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpstrf() 2nd keyword (lower) can't be converted to int");
56780 if (f2py_success) {
56781 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","zpstrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpstrf:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
56782 /* Processing variable a */
56783 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
56784 ;
56785 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
56786 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
56787 if (capi_a_tmp == NULL((void*)0)) {
56788 if (!PyErr_Occurred())
56789 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zpstrf to C/Fortran array" );
56790 } else {
56791 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
56792
56793 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
56794 /* Processing variable rank_c */
56795 /* Processing variable tol */
56796 if (tol_capi == Py_None(&_Py_NoneStruct)) tol = -1.0; else
56797 f2py_success = double_from_pyobj(&tol,tol_capi,"_flapack.zpstrf() 1st keyword (tol) can't be converted to double");
56798 if (f2py_success) {
56799 /* Processing variable info */
56800 /* Processing variable n */
56801 n = shape(a,0)a_Dims[0];
56802 /* Processing variable lda */
56803 lda = max(1,shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
56804 /* Processing variable piv */
56805 piv_Dims[0]=n;
56806 capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
56807 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct));
56808 if (capi_piv_tmp == NULL((void*)0)) {
56809 if (!PyErr_Occurred())
56810 PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.zpstrf to C/Fortran array" );
56811 } else {
56812 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
56813
56814 /* Processing variable work */
56815 work_Dims[0]=2 * n;
56816 capi_work_intent |= F2PY_INTENT_HIDE8;
56817 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
56818 if (capi_work_tmp == NULL((void*)0)) {
56819 if (!PyErr_Occurred())
56820 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zpstrf to C/Fortran array" );
56821 } else {
56822 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
56823
56824/*end of frompyobj*/
56825#ifdef F2PY_REPORT_ATEXIT
56826f2py_start_call_clock();
56827#endif
56828/*callfortranroutine*/
56829 (*f2py_func)((lower?"L":"U"),&n,a,&lda,piv,&rank_c,&tol,work,&info) ;
56830 /*(*f2py_func)(&n,a,&lda,piv,&rank_c,&tol,work,&info,&lower);*/
56831if (PyErr_Occurred())
56832 f2py_success = 0;
56833#ifdef F2PY_REPORT_ATEXIT
56834f2py_stop_call_clock();
56835#endif
56836/*end of callfortranroutine*/
56837 if (f2py_success) {
56838/*pyobjfrom*/
56839/*end of pyobjfrom*/
56840 CFUNCSMESS("Building return value.\n");
56841 capi_buildvalue = Py_BuildValue("NNii",capi_a_tmp,capi_piv_tmp,rank_c,info);
56842/*closepyobjfrom*/
56843/*end of closepyobjfrom*/
56844 } /*if (f2py_success) after callfortranroutine*/
56845/*cleanupfrompyobj*/
56846 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
56847 } /*if (capi_work_tmp == NULL) ... else of work*/
56848 /* End of cleaning variable work */
56849 } /*if (capi_piv_tmp == NULL) ... else of piv*/
56850 /* End of cleaning variable piv */
56851 /* End of cleaning variable lda */
56852 /* End of cleaning variable n */
56853 /* End of cleaning variable info */
56854 } /*if (f2py_success) of tol*/
56855 /* End of cleaning variable tol */
56856 /* End of cleaning variable rank_c */
56857 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
56858 } /*if (capi_a_tmp == NULL) ... else of a*/
56859 /* End of cleaning variable a */
56860 } /*CHECKSCALAR(lower==0||lower==1)*/
56861 } /*if (f2py_success) of lower*/
56862 /* End of cleaning variable lower */
56863/*end of cleanupfrompyobj*/
56864 if (capi_buildvalue == NULL((void*)0)) {
56865/*routdebugfailure*/
56866 } else {
56867/*routdebugleave*/
56868 }
56869 CFUNCSMESS("Freeing memory.\n");
56870/*freemem*/
56871#ifdef F2PY_REPORT_ATEXIT
56872f2py_stop_clock();
56873#endif
56874 return capi_buildvalue;
56875}
56876/******************************* end of zpstrf *******************************/
56877
56878/*********************************** spstf2 ***********************************/
56879static char doc_f2py_rout__flapack_spstf2[] = "\
56880c,piv,rank_c,info = spstf2(a,[tol,lower,overwrite_a])\n\nWrapper for ``spstf2``.\
56881\n\nParameters\n----------\n"
56882"a : input rank-2 array('f') with bounds (n,n)\n"
56883"\nOther Parameters\n----------------\n"
56884"overwrite_a : input int, optional\n Default: 0\n"
56885"tol : input float, optional\n Default: -1.0\n"
56886"lower : input int, optional\n Default: 0\n"
56887"\nReturns\n-------\n"
56888"c : rank-2 array('f') with bounds (n,n) and a storage\n"
56889"piv : rank-1 array('i') with bounds (n)\n"
56890"rank_c : int\n"
56891"info : int";
56892/* extern void F_FUNC(spstf2,SPSTF2)(char*,F_INT*,float*,F_INT*,F_INT*,F_INT*,float*,float*,F_INT* ); */
56893static PyObject *f2py_rout__flapack_spstf2(const PyObject *capi_self,
56894 PyObject *capi_args,
56895 PyObject *capi_keywds,
56896 void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint* )) {
56897 PyObject * volatile capi_buildvalue = NULL((void*)0);
56898 volatile int f2py_success = 1;
56899/*decl*/
56900
56901 int n = 0;
56902 float *a = NULL((void*)0);
56903 npy_intp a_Dims[2] = {-1, -1};
56904 const int a_Rank = 2;
56905 PyArrayObject *capi_a_tmp = NULL((void*)0);
56906 int capi_a_intent = 0;
56907 int capi_overwrite_a = 0;
56908 PyObject *a_capi = Py_None(&_Py_NoneStruct);
56909 int lda = 0;
56910 int *piv = NULL((void*)0);
56911 npy_intp piv_Dims[1] = {-1};
56912 const int piv_Rank = 1;
56913 PyArrayObject *capi_piv_tmp = NULL((void*)0);
56914 int capi_piv_intent = 0;
56915 int rank_c = 0;
56916 float tol = 0;
56917 PyObject *tol_capi = Py_None(&_Py_NoneStruct);
56918 float *work = NULL((void*)0);
56919 npy_intp work_Dims[1] = {-1};
56920 const int work_Rank = 1;
56921 PyArrayObject *capi_work_tmp = NULL((void*)0);
56922 int capi_work_intent = 0;
56923 int info = 0;
56924 int lower = 0;
56925 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
56926 static char *capi_kwlist[] = {"a","tol","lower","overwrite_a",NULL((void*)0)};
56927
56928/*routdebugenter*/
56929#ifdef F2PY_REPORT_ATEXIT
56930f2py_start_clock();
56931#endif
56932 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
56933 "O|OOi:_flapack.spstf2",\
56934 capi_kwlist,&a_capi,&tol_capi,&lower_capi,&capi_overwrite_a))
56935 return NULL((void*)0);
56936/*frompyobj*/
56937 /* Processing variable lower */
56938 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
56939 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spstf2() 2nd keyword (lower) can't be converted to int");
56940 if (f2py_success) {
56941 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","spstf2:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spstf2:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
56942 /* Processing variable a */
56943 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
56944 ;
56945 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
56946 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
56947 if (capi_a_tmp == NULL((void*)0)) {
56948 if (!PyErr_Occurred())
56949 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.spstf2 to C/Fortran array" );
56950 } else {
56951 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
56952
56953 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
56954 /* Processing variable rank_c */
56955 /* Processing variable tol */
56956 if (tol_capi == Py_None(&_Py_NoneStruct)) tol = -1.0; else
56957 f2py_success = float_from_pyobj(&tol,tol_capi,"_flapack.spstf2() 1st keyword (tol) can't be converted to float");
56958 if (f2py_success) {
56959 /* Processing variable info */
56960 /* Processing variable n */
56961 n = shape(a,0)a_Dims[0];
56962 /* Processing variable lda */
56963 lda = max(1,shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
56964 /* Processing variable piv */
56965 piv_Dims[0]=n;
56966 capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
56967 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct));
56968 if (capi_piv_tmp == NULL((void*)0)) {
56969 if (!PyErr_Occurred())
56970 PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.spstf2 to C/Fortran array" );
56971 } else {
56972 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
56973
56974 /* Processing variable work */
56975 work_Dims[0]=2 * n;
56976 capi_work_intent |= F2PY_INTENT_HIDE8;
56977 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
56978 if (capi_work_tmp == NULL((void*)0)) {
56979 if (!PyErr_Occurred())
56980 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.spstf2 to C/Fortran array" );
56981 } else {
56982 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
56983
56984/*end of frompyobj*/
56985#ifdef F2PY_REPORT_ATEXIT
56986f2py_start_call_clock();
56987#endif
56988/*callfortranroutine*/
56989 (*f2py_func)((lower?"L":"U"),&n,a,&lda,piv,&rank_c,&tol,work,&info) ;
56990 /*(*f2py_func)(&n,a,&lda,piv,&rank_c,&tol,work,&info,&lower);*/
56991if (PyErr_Occurred())
56992 f2py_success = 0;
56993#ifdef F2PY_REPORT_ATEXIT
56994f2py_stop_call_clock();
56995#endif
56996/*end of callfortranroutine*/
56997 if (f2py_success) {
56998/*pyobjfrom*/
56999/*end of pyobjfrom*/
57000 CFUNCSMESS("Building return value.\n");
57001 capi_buildvalue = Py_BuildValue("NNii",capi_a_tmp,capi_piv_tmp,rank_c,info);
57002/*closepyobjfrom*/
57003/*end of closepyobjfrom*/
57004 } /*if (f2py_success) after callfortranroutine*/
57005/*cleanupfrompyobj*/
57006 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
57007 } /*if (capi_work_tmp == NULL) ... else of work*/
57008 /* End of cleaning variable work */
57009 } /*if (capi_piv_tmp == NULL) ... else of piv*/
57010 /* End of cleaning variable piv */
57011 /* End of cleaning variable lda */
57012 /* End of cleaning variable n */
57013 /* End of cleaning variable info */
57014 } /*if (f2py_success) of tol*/
57015 /* End of cleaning variable tol */
57016 /* End of cleaning variable rank_c */
57017 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
57018 } /*if (capi_a_tmp == NULL) ... else of a*/
57019 /* End of cleaning variable a */
57020 } /*CHECKSCALAR(lower==0||lower==1)*/
57021 } /*if (f2py_success) of lower*/
57022 /* End of cleaning variable lower */
57023/*end of cleanupfrompyobj*/
57024 if (capi_buildvalue == NULL((void*)0)) {
57025/*routdebugfailure*/
57026 } else {
57027/*routdebugleave*/
57028 }
57029 CFUNCSMESS("Freeing memory.\n");
57030/*freemem*/
57031#ifdef F2PY_REPORT_ATEXIT
57032f2py_stop_clock();
57033#endif
57034 return capi_buildvalue;
57035}
57036/******************************* end of spstf2 *******************************/
57037
57038/*********************************** dpstf2 ***********************************/
57039static char doc_f2py_rout__flapack_dpstf2[] = "\
57040c,piv,rank_c,info = dpstf2(a,[tol,lower,overwrite_a])\n\nWrapper for ``dpstf2``.\
57041\n\nParameters\n----------\n"
57042"a : input rank-2 array('d') with bounds (n,n)\n"
57043"\nOther Parameters\n----------------\n"
57044"overwrite_a : input int, optional\n Default: 0\n"
57045"tol : input float, optional\n Default: -1.0\n"
57046"lower : input int, optional\n Default: 0\n"
57047"\nReturns\n-------\n"
57048"c : rank-2 array('d') with bounds (n,n) and a storage\n"
57049"piv : rank-1 array('i') with bounds (n)\n"
57050"rank_c : int\n"
57051"info : int";
57052/* extern void F_FUNC(dpstf2,DPSTF2)(char*,F_INT*,double*,F_INT*,F_INT*,F_INT*,double*,double*,F_INT* ); */
57053static PyObject *f2py_rout__flapack_dpstf2(const PyObject *capi_self,
57054 PyObject *capi_args,
57055 PyObject *capi_keywds,
57056 void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint* )) {
57057 PyObject * volatile capi_buildvalue = NULL((void*)0);
57058 volatile int f2py_success = 1;
57059/*decl*/
57060
57061 int n = 0;
57062 double *a = NULL((void*)0);
57063 npy_intp a_Dims[2] = {-1, -1};
57064 const int a_Rank = 2;
57065 PyArrayObject *capi_a_tmp = NULL((void*)0);
57066 int capi_a_intent = 0;
57067 int capi_overwrite_a = 0;
57068 PyObject *a_capi = Py_None(&_Py_NoneStruct);
57069 int lda = 0;
57070 int *piv = NULL((void*)0);
57071 npy_intp piv_Dims[1] = {-1};
57072 const int piv_Rank = 1;
57073 PyArrayObject *capi_piv_tmp = NULL((void*)0);
57074 int capi_piv_intent = 0;
57075 int rank_c = 0;
57076 double tol = 0;
57077 PyObject *tol_capi = Py_None(&_Py_NoneStruct);
57078 double *work = NULL((void*)0);
57079 npy_intp work_Dims[1] = {-1};
57080 const int work_Rank = 1;
57081 PyArrayObject *capi_work_tmp = NULL((void*)0);
57082 int capi_work_intent = 0;
57083 int info = 0;
57084 int lower = 0;
57085 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
57086 static char *capi_kwlist[] = {"a","tol","lower","overwrite_a",NULL((void*)0)};
57087
57088/*routdebugenter*/
57089#ifdef F2PY_REPORT_ATEXIT
57090f2py_start_clock();
57091#endif
57092 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
57093 "O|OOi:_flapack.dpstf2",\
57094 capi_kwlist,&a_capi,&tol_capi,&lower_capi,&capi_overwrite_a))
57095 return NULL((void*)0);
57096/*frompyobj*/
57097 /* Processing variable lower */
57098 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
57099 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpstf2() 2nd keyword (lower) can't be converted to int");
57100 if (f2py_success) {
57101 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","dpstf2:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpstf2:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
57102 /* Processing variable a */
57103 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
57104 ;
57105 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
57106 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
57107 if (capi_a_tmp == NULL((void*)0)) {
57108 if (!PyErr_Occurred())
57109 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dpstf2 to C/Fortran array" );
57110 } else {
57111 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
57112
57113 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
57114 /* Processing variable rank_c */
57115 /* Processing variable tol */
57116 if (tol_capi == Py_None(&_Py_NoneStruct)) tol = -1.0; else
57117 f2py_success = double_from_pyobj(&tol,tol_capi,"_flapack.dpstf2() 1st keyword (tol) can't be converted to double");
57118 if (f2py_success) {
57119 /* Processing variable info */
57120 /* Processing variable n */
57121 n = shape(a,0)a_Dims[0];
57122 /* Processing variable lda */
57123 lda = max(1,shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
57124 /* Processing variable piv */
57125 piv_Dims[0]=n;
57126 capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
57127 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct));
57128 if (capi_piv_tmp == NULL((void*)0)) {
57129 if (!PyErr_Occurred())
57130 PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.dpstf2 to C/Fortran array" );
57131 } else {
57132 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
57133
57134 /* Processing variable work */
57135 work_Dims[0]=2 * n;
57136 capi_work_intent |= F2PY_INTENT_HIDE8;
57137 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
57138 if (capi_work_tmp == NULL((void*)0)) {
57139 if (!PyErr_Occurred())
57140 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dpstf2 to C/Fortran array" );
57141 } else {
57142 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
57143
57144/*end of frompyobj*/
57145#ifdef F2PY_REPORT_ATEXIT
57146f2py_start_call_clock();
57147#endif
57148/*callfortranroutine*/
57149 (*f2py_func)((lower?"L":"U"),&n,a,&lda,piv,&rank_c,&tol,work,&info) ;
57150 /*(*f2py_func)(&n,a,&lda,piv,&rank_c,&tol,work,&info,&lower);*/
57151if (PyErr_Occurred())
57152 f2py_success = 0;
57153#ifdef F2PY_REPORT_ATEXIT
57154f2py_stop_call_clock();
57155#endif
57156/*end of callfortranroutine*/
57157 if (f2py_success) {
57158/*pyobjfrom*/
57159/*end of pyobjfrom*/
57160 CFUNCSMESS("Building return value.\n");
57161 capi_buildvalue = Py_BuildValue("NNii",capi_a_tmp,capi_piv_tmp,rank_c,info);
57162/*closepyobjfrom*/
57163/*end of closepyobjfrom*/
57164 } /*if (f2py_success) after callfortranroutine*/
57165/*cleanupfrompyobj*/
57166 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
57167 } /*if (capi_work_tmp == NULL) ... else of work*/
57168 /* End of cleaning variable work */
57169 } /*if (capi_piv_tmp == NULL) ... else of piv*/
57170 /* End of cleaning variable piv */
57171 /* End of cleaning variable lda */
57172 /* End of cleaning variable n */
57173 /* End of cleaning variable info */
57174 } /*if (f2py_success) of tol*/
57175 /* End of cleaning variable tol */
57176 /* End of cleaning variable rank_c */
57177 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
57178 } /*if (capi_a_tmp == NULL) ... else of a*/
57179 /* End of cleaning variable a */
57180 } /*CHECKSCALAR(lower==0||lower==1)*/
57181 } /*if (f2py_success) of lower*/
57182 /* End of cleaning variable lower */
57183/*end of cleanupfrompyobj*/
57184 if (capi_buildvalue == NULL((void*)0)) {
57185/*routdebugfailure*/
57186 } else {
57187/*routdebugleave*/
57188 }
57189 CFUNCSMESS("Freeing memory.\n");
57190/*freemem*/
57191#ifdef F2PY_REPORT_ATEXIT
57192f2py_stop_clock();
57193#endif
57194 return capi_buildvalue;
57195}
57196/******************************* end of dpstf2 *******************************/
57197
57198/*********************************** cpstf2 ***********************************/
57199static char doc_f2py_rout__flapack_cpstf2[] = "\
57200c,piv,rank_c,info = cpstf2(a,[tol,lower,overwrite_a])\n\nWrapper for ``cpstf2``.\
57201\n\nParameters\n----------\n"
57202"a : input rank-2 array('F') with bounds (n,n)\n"
57203"\nOther Parameters\n----------------\n"
57204"overwrite_a : input int, optional\n Default: 0\n"
57205"tol : input float, optional\n Default: -1.0\n"
57206"lower : input int, optional\n Default: 0\n"
57207"\nReturns\n-------\n"
57208"c : rank-2 array('F') with bounds (n,n) and a storage\n"
57209"piv : rank-1 array('i') with bounds (n)\n"
57210"rank_c : int\n"
57211"info : int";
57212/* extern void F_FUNC(cpstf2,CPSTF2)(char*,F_INT*,complex_float*,F_INT*,F_INT*,F_INT*,float*,float*,F_INT* ); */
57213static PyObject *f2py_rout__flapack_cpstf2(const PyObject *capi_self,
57214 PyObject *capi_args,
57215 PyObject *capi_keywds,
57216 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint* )) {
57217 PyObject * volatile capi_buildvalue = NULL((void*)0);
57218 volatile int f2py_success = 1;
57219/*decl*/
57220
57221 int n = 0;
57222 complex_float *a = NULL((void*)0);
57223 npy_intp a_Dims[2] = {-1, -1};
57224 const int a_Rank = 2;
57225 PyArrayObject *capi_a_tmp = NULL((void*)0);
57226 int capi_a_intent = 0;
57227 int capi_overwrite_a = 0;
57228 PyObject *a_capi = Py_None(&_Py_NoneStruct);
57229 int lda = 0;
57230 int *piv = NULL((void*)0);
57231 npy_intp piv_Dims[1] = {-1};
57232 const int piv_Rank = 1;
57233 PyArrayObject *capi_piv_tmp = NULL((void*)0);
57234 int capi_piv_intent = 0;
57235 int rank_c = 0;
57236 float tol = 0;
57237 PyObject *tol_capi = Py_None(&_Py_NoneStruct);
57238 float *work = NULL((void*)0);
57239 npy_intp work_Dims[1] = {-1};
57240 const int work_Rank = 1;
57241 PyArrayObject *capi_work_tmp = NULL((void*)0);
57242 int capi_work_intent = 0;
57243 int info = 0;
57244 int lower = 0;
57245 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
57246 static char *capi_kwlist[] = {"a","tol","lower","overwrite_a",NULL((void*)0)};
57247
57248/*routdebugenter*/
57249#ifdef F2PY_REPORT_ATEXIT
57250f2py_start_clock();
57251#endif
57252 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
57253 "O|OOi:_flapack.cpstf2",\
57254 capi_kwlist,&a_capi,&tol_capi,&lower_capi,&capi_overwrite_a))
57255 return NULL((void*)0);
57256/*frompyobj*/
57257 /* Processing variable lower */
57258 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
57259 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpstf2() 2nd keyword (lower) can't be converted to int");
57260 if (f2py_success) {
57261 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","cpstf2:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpstf2:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
57262 /* Processing variable a */
57263 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
57264 ;
57265 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
57266 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
57267 if (capi_a_tmp == NULL((void*)0)) {
57268 if (!PyErr_Occurred())
57269 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cpstf2 to C/Fortran array" );
57270 } else {
57271 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
57272
57273 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
57274 /* Processing variable rank_c */
57275 /* Processing variable tol */
57276 if (tol_capi == Py_None(&_Py_NoneStruct)) tol = -1.0; else
57277 f2py_success = float_from_pyobj(&tol,tol_capi,"_flapack.cpstf2() 1st keyword (tol) can't be converted to float");
57278 if (f2py_success) {
57279 /* Processing variable info */
57280 /* Processing variable n */
57281 n = shape(a,0)a_Dims[0];
57282 /* Processing variable lda */
57283 lda = max(1,shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
57284 /* Processing variable piv */
57285 piv_Dims[0]=n;
57286 capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
57287 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct));
57288 if (capi_piv_tmp == NULL((void*)0)) {
57289 if (!PyErr_Occurred())
57290 PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.cpstf2 to C/Fortran array" );
57291 } else {
57292 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
57293
57294 /* Processing variable work */
57295 work_Dims[0]=2 * n;
57296 capi_work_intent |= F2PY_INTENT_HIDE8;
57297 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
57298 if (capi_work_tmp == NULL((void*)0)) {
57299 if (!PyErr_Occurred())
57300 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cpstf2 to C/Fortran array" );
57301 } else {
57302 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
57303
57304/*end of frompyobj*/
57305#ifdef F2PY_REPORT_ATEXIT
57306f2py_start_call_clock();
57307#endif
57308/*callfortranroutine*/
57309 (*f2py_func)((lower?"L":"U"),&n,a,&lda,piv,&rank_c,&tol,work,&info) ;
57310 /*(*f2py_func)(&n,a,&lda,piv,&rank_c,&tol,work,&info,&lower);*/
57311if (PyErr_Occurred())
57312 f2py_success = 0;
57313#ifdef F2PY_REPORT_ATEXIT
57314f2py_stop_call_clock();
57315#endif
57316/*end of callfortranroutine*/
57317 if (f2py_success) {
57318/*pyobjfrom*/
57319/*end of pyobjfrom*/
57320 CFUNCSMESS("Building return value.\n");
57321 capi_buildvalue = Py_BuildValue("NNii",capi_a_tmp,capi_piv_tmp,rank_c,info);
57322/*closepyobjfrom*/
57323/*end of closepyobjfrom*/
57324 } /*if (f2py_success) after callfortranroutine*/
57325/*cleanupfrompyobj*/
57326 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
57327 } /*if (capi_work_tmp == NULL) ... else of work*/
57328 /* End of cleaning variable work */
57329 } /*if (capi_piv_tmp == NULL) ... else of piv*/
57330 /* End of cleaning variable piv */
57331 /* End of cleaning variable lda */
57332 /* End of cleaning variable n */
57333 /* End of cleaning variable info */
57334 } /*if (f2py_success) of tol*/
57335 /* End of cleaning variable tol */
57336 /* End of cleaning variable rank_c */
57337 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
57338 } /*if (capi_a_tmp == NULL) ... else of a*/
57339 /* End of cleaning variable a */
57340 } /*CHECKSCALAR(lower==0||lower==1)*/
57341 } /*if (f2py_success) of lower*/
57342 /* End of cleaning variable lower */
57343/*end of cleanupfrompyobj*/
57344 if (capi_buildvalue == NULL((void*)0)) {
57345/*routdebugfailure*/
57346 } else {
57347/*routdebugleave*/
57348 }
57349 CFUNCSMESS("Freeing memory.\n");
57350/*freemem*/
57351#ifdef F2PY_REPORT_ATEXIT
57352f2py_stop_clock();
57353#endif
57354 return capi_buildvalue;
57355}
57356/******************************* end of cpstf2 *******************************/
57357
57358/*********************************** zpstf2 ***********************************/
57359static char doc_f2py_rout__flapack_zpstf2[] = "\
57360c,piv,rank_c,info = zpstf2(a,[tol,lower,overwrite_a])\n\nWrapper for ``zpstf2``.\
57361\n\nParameters\n----------\n"
57362"a : input rank-2 array('D') with bounds (n,n)\n"
57363"\nOther Parameters\n----------------\n"
57364"overwrite_a : input int, optional\n Default: 0\n"
57365"tol : input float, optional\n Default: -1.0\n"
57366"lower : input int, optional\n Default: 0\n"
57367"\nReturns\n-------\n"
57368"c : rank-2 array('D') with bounds (n,n) and a storage\n"
57369"piv : rank-1 array('i') with bounds (n)\n"
57370"rank_c : int\n"
57371"info : int";
57372/* extern void F_FUNC(zpstf2,ZPSTF2)(char*,F_INT*,complex_double*,F_INT*,F_INT*,F_INT*,double*,double*,F_INT* ); */
57373static PyObject *f2py_rout__flapack_zpstf2(const PyObject *capi_self,
57374 PyObject *capi_args,
57375 PyObject *capi_keywds,
57376 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint* )) {
57377 PyObject * volatile capi_buildvalue = NULL((void*)0);
57378 volatile int f2py_success = 1;
57379/*decl*/
57380
57381 int n = 0;
57382 complex_double *a = NULL((void*)0);
57383 npy_intp a_Dims[2] = {-1, -1};
57384 const int a_Rank = 2;
57385 PyArrayObject *capi_a_tmp = NULL((void*)0);
57386 int capi_a_intent = 0;
57387 int capi_overwrite_a = 0;
57388 PyObject *a_capi = Py_None(&_Py_NoneStruct);
57389 int lda = 0;
57390 int *piv = NULL((void*)0);
57391 npy_intp piv_Dims[1] = {-1};
57392 const int piv_Rank = 1;
57393 PyArrayObject *capi_piv_tmp = NULL((void*)0);
57394 int capi_piv_intent = 0;
57395 int rank_c = 0;
57396 double tol = 0;
57397 PyObject *tol_capi = Py_None(&_Py_NoneStruct);
57398 double *work = NULL((void*)0);
57399 npy_intp work_Dims[1] = {-1};
57400 const int work_Rank = 1;
57401 PyArrayObject *capi_work_tmp = NULL((void*)0);
57402 int capi_work_intent = 0;
57403 int info = 0;
57404 int lower = 0;
57405 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
57406 static char *capi_kwlist[] = {"a","tol","lower","overwrite_a",NULL((void*)0)};
57407
57408/*routdebugenter*/
57409#ifdef F2PY_REPORT_ATEXIT
57410f2py_start_clock();
57411#endif
57412 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
57413 "O|OOi:_flapack.zpstf2",\
57414 capi_kwlist,&a_capi,&tol_capi,&lower_capi,&capi_overwrite_a))
57415 return NULL((void*)0);
57416/*frompyobj*/
57417 /* Processing variable lower */
57418 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
57419 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpstf2() 2nd keyword (lower) can't be converted to int");
57420 if (f2py_success) {
57421 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","zpstf2:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpstf2:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
57422 /* Processing variable a */
57423 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
57424 ;
57425 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
57426 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
57427 if (capi_a_tmp == NULL((void*)0)) {
57428 if (!PyErr_Occurred())
57429 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zpstf2 to C/Fortran array" );
57430 } else {
57431 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
57432
57433 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
57434 /* Processing variable rank_c */
57435 /* Processing variable tol */
57436 if (tol_capi == Py_None(&_Py_NoneStruct)) tol = -1.0; else
57437 f2py_success = double_from_pyobj(&tol,tol_capi,"_flapack.zpstf2() 1st keyword (tol) can't be converted to double");
57438 if (f2py_success) {
57439 /* Processing variable info */
57440 /* Processing variable n */
57441 n = shape(a,0)a_Dims[0];
57442 /* Processing variable lda */
57443 lda = max(1,shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
57444 /* Processing variable piv */
57445 piv_Dims[0]=n;
57446 capi_piv_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
57447 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,Py_None(&_Py_NoneStruct));
57448 if (capi_piv_tmp == NULL((void*)0)) {
57449 if (!PyErr_Occurred())
57450 PyErr_SetString(_flapack_error,"failed in converting hidden `piv' of _flapack.zpstf2 to C/Fortran array" );
57451 } else {
57452 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
57453
57454 /* Processing variable work */
57455 work_Dims[0]=2 * n;
57456 capi_work_intent |= F2PY_INTENT_HIDE8;
57457 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
57458 if (capi_work_tmp == NULL((void*)0)) {
57459 if (!PyErr_Occurred())
57460 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zpstf2 to C/Fortran array" );
57461 } else {
57462 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
57463
57464/*end of frompyobj*/
57465#ifdef F2PY_REPORT_ATEXIT
57466f2py_start_call_clock();
57467#endif
57468/*callfortranroutine*/
57469 (*f2py_func)((lower?"L":"U"),&n,a,&lda,piv,&rank_c,&tol,work,&info) ;
57470 /*(*f2py_func)(&n,a,&lda,piv,&rank_c,&tol,work,&info,&lower);*/
57471if (PyErr_Occurred())
57472 f2py_success = 0;
57473#ifdef F2PY_REPORT_ATEXIT
57474f2py_stop_call_clock();
57475#endif
57476/*end of callfortranroutine*/
57477 if (f2py_success) {
57478/*pyobjfrom*/
57479/*end of pyobjfrom*/
57480 CFUNCSMESS("Building return value.\n");
57481 capi_buildvalue = Py_BuildValue("NNii",capi_a_tmp,capi_piv_tmp,rank_c,info);
57482/*closepyobjfrom*/
57483/*end of closepyobjfrom*/
57484 } /*if (f2py_success) after callfortranroutine*/
57485/*cleanupfrompyobj*/
57486 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
57487 } /*if (capi_work_tmp == NULL) ... else of work*/
57488 /* End of cleaning variable work */
57489 } /*if (capi_piv_tmp == NULL) ... else of piv*/
57490 /* End of cleaning variable piv */
57491 /* End of cleaning variable lda */
57492 /* End of cleaning variable n */
57493 /* End of cleaning variable info */
57494 } /*if (f2py_success) of tol*/
57495 /* End of cleaning variable tol */
57496 /* End of cleaning variable rank_c */
57497 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
57498 } /*if (capi_a_tmp == NULL) ... else of a*/
57499 /* End of cleaning variable a */
57500 } /*CHECKSCALAR(lower==0||lower==1)*/
57501 } /*if (f2py_success) of lower*/
57502 /* End of cleaning variable lower */
57503/*end of cleanupfrompyobj*/
57504 if (capi_buildvalue == NULL((void*)0)) {
57505/*routdebugfailure*/
57506 } else {
57507/*routdebugleave*/
57508 }
57509 CFUNCSMESS("Freeing memory.\n");
57510/*freemem*/
57511#ifdef F2PY_REPORT_ATEXIT
57512f2py_stop_clock();
57513#endif
57514 return capi_buildvalue;
57515}
57516/******************************* end of zpstf2 *******************************/
57517
57518/*********************************** sposv ***********************************/
57519static char doc_f2py_rout__flapack_sposv[] = "\
57520c,x,info = sposv(a,b,[lower,overwrite_a,overwrite_b])\n\nWrapper for ``sposv``.\
57521\n\nParameters\n----------\n"
57522"a : input rank-2 array('f') with bounds (n,n)\n"
57523"b : input rank-2 array('f') with bounds (n,nrhs)\n"
57524"\nOther Parameters\n----------------\n"
57525"overwrite_a : input int, optional\n Default: 0\n"
57526"overwrite_b : input int, optional\n Default: 0\n"
57527"lower : input int, optional\n Default: 0\n"
57528"\nReturns\n-------\n"
57529"c : rank-2 array('f') with bounds (n,n) and a storage\n"
57530"x : rank-2 array('f') with bounds (n,nrhs) and b storage\n"
57531"info : int";
57532/* extern void F_FUNC(sposv,SPOSV)(char*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */
57533static PyObject *f2py_rout__flapack_sposv(const PyObject *capi_self,
57534 PyObject *capi_args,
57535 PyObject *capi_keywds,
57536 void (*f2py_func)(char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
57537 PyObject * volatile capi_buildvalue = NULL((void*)0);
57538 volatile int f2py_success = 1;
57539/*decl*/
57540
57541 int n = 0;
57542 int nrhs = 0;
57543 float *a = NULL((void*)0);
57544 npy_intp a_Dims[2] = {-1, -1};
57545 const int a_Rank = 2;
57546 PyArrayObject *capi_a_tmp = NULL((void*)0);
57547 int capi_a_intent = 0;
57548 int capi_overwrite_a = 0;
57549 PyObject *a_capi = Py_None(&_Py_NoneStruct);
57550 float *b = NULL((void*)0);
57551 npy_intp b_Dims[2] = {-1, -1};
57552 const int b_Rank = 2;
57553 PyArrayObject *capi_b_tmp = NULL((void*)0);
57554 int capi_b_intent = 0;
57555 int capi_overwrite_b = 0;
57556 PyObject *b_capi = Py_None(&_Py_NoneStruct);
57557 int info = 0;
57558 int lower = 0;
57559 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
57560 static char *capi_kwlist[] = {"a","b","lower","overwrite_a","overwrite_b",NULL((void*)0)};
57561
57562/*routdebugenter*/
57563#ifdef F2PY_REPORT_ATEXIT
57564f2py_start_clock();
57565#endif
57566 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
57567 "OO|Oii:_flapack.sposv",\
57568 capi_kwlist,&a_capi,&b_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b))
57569 return NULL((void*)0);
57570/*frompyobj*/
57571 /* Processing variable lower */
57572 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
57573 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.sposv() 1st keyword (lower) can't be converted to int");
57574 if (f2py_success) {
57575 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","sposv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sposv:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
57576 /* Processing variable a */
57577 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
57578 ;
57579 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
57580 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
57581 if (capi_a_tmp == NULL((void*)0)) {
57582 if (!PyErr_Occurred())
57583 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sposv to C/Fortran array" );
57584 } else {
57585 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
57586
57587 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
57588 /* Processing variable info */
57589 /* Processing variable n */
57590 n = shape(a,0)a_Dims[0];
57591 /* Processing variable b */
57592 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
57593 b_Dims[0]=n;
57594 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
57595 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
57596 if (capi_b_tmp == NULL((void*)0)) {
57597 if (!PyErr_Occurred())
57598 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sposv to C/Fortran array" );
57599 } else {
57600 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
57601
57602 CHECKARRAY(shape(a,0)==shape(b,0),"shape(a,0)==shape(b,0)","2nd argument b")if (!(a_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(b,0)"") failed for ""2nd argument b");
} else
{
57603 /* Processing variable nrhs */
57604 nrhs = shape(b,1)b_Dims[1];
57605/*end of frompyobj*/
57606#ifdef F2PY_REPORT_ATEXIT
57607f2py_start_call_clock();
57608#endif
57609/*callfortranroutine*/
57610 (*f2py_func)((lower?"L":"U"),&n,&nrhs,a,&n,b,&n,&info) ;
57611 /*(*f2py_func)(&n,&nrhs,a,b,&info,&lower);*/
57612if (PyErr_Occurred())
57613 f2py_success = 0;
57614#ifdef F2PY_REPORT_ATEXIT
57615f2py_stop_call_clock();
57616#endif
57617/*end of callfortranroutine*/
57618 if (f2py_success) {
57619/*pyobjfrom*/
57620/*end of pyobjfrom*/
57621 CFUNCSMESS("Building return value.\n");
57622 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info);
57623/*closepyobjfrom*/
57624/*end of closepyobjfrom*/
57625 } /*if (f2py_success) after callfortranroutine*/
57626/*cleanupfrompyobj*/
57627 /* End of cleaning variable nrhs */
57628 } /*CHECKARRAY(shape(a,0)==shape(b,0))*/
57629 } /*if (capi_b_tmp == NULL) ... else of b*/
57630 /* End of cleaning variable b */
57631 /* End of cleaning variable n */
57632 /* End of cleaning variable info */
57633 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
57634 } /*if (capi_a_tmp == NULL) ... else of a*/
57635 /* End of cleaning variable a */
57636 } /*CHECKSCALAR(lower==0||lower==1)*/
57637 } /*if (f2py_success) of lower*/
57638 /* End of cleaning variable lower */
57639/*end of cleanupfrompyobj*/
57640 if (capi_buildvalue == NULL((void*)0)) {
57641/*routdebugfailure*/
57642 } else {
57643/*routdebugleave*/
57644 }
57645 CFUNCSMESS("Freeing memory.\n");
57646/*freemem*/
57647#ifdef F2PY_REPORT_ATEXIT
57648f2py_stop_clock();
57649#endif
57650 return capi_buildvalue;
57651}
57652/******************************** end of sposv ********************************/
57653
57654/*********************************** dposv ***********************************/
57655static char doc_f2py_rout__flapack_dposv[] = "\
57656c,x,info = dposv(a,b,[lower,overwrite_a,overwrite_b])\n\nWrapper for ``dposv``.\
57657\n\nParameters\n----------\n"
57658"a : input rank-2 array('d') with bounds (n,n)\n"
57659"b : input rank-2 array('d') with bounds (n,nrhs)\n"
57660"\nOther Parameters\n----------------\n"
57661"overwrite_a : input int, optional\n Default: 0\n"
57662"overwrite_b : input int, optional\n Default: 0\n"
57663"lower : input int, optional\n Default: 0\n"
57664"\nReturns\n-------\n"
57665"c : rank-2 array('d') with bounds (n,n) and a storage\n"
57666"x : rank-2 array('d') with bounds (n,nrhs) and b storage\n"
57667"info : int";
57668/* extern void F_FUNC(dposv,DPOSV)(char*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */
57669static PyObject *f2py_rout__flapack_dposv(const PyObject *capi_self,
57670 PyObject *capi_args,
57671 PyObject *capi_keywds,
57672 void (*f2py_func)(char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
57673 PyObject * volatile capi_buildvalue = NULL((void*)0);
57674 volatile int f2py_success = 1;
57675/*decl*/
57676
57677 int n = 0;
57678 int nrhs = 0;
57679 double *a = NULL((void*)0);
57680 npy_intp a_Dims[2] = {-1, -1};
57681 const int a_Rank = 2;
57682 PyArrayObject *capi_a_tmp = NULL((void*)0);
57683 int capi_a_intent = 0;
57684 int capi_overwrite_a = 0;
57685 PyObject *a_capi = Py_None(&_Py_NoneStruct);
57686 double *b = NULL((void*)0);
57687 npy_intp b_Dims[2] = {-1, -1};
57688 const int b_Rank = 2;
57689 PyArrayObject *capi_b_tmp = NULL((void*)0);
57690 int capi_b_intent = 0;
57691 int capi_overwrite_b = 0;
57692 PyObject *b_capi = Py_None(&_Py_NoneStruct);
57693 int info = 0;
57694 int lower = 0;
57695 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
57696 static char *capi_kwlist[] = {"a","b","lower","overwrite_a","overwrite_b",NULL((void*)0)};
57697
57698/*routdebugenter*/
57699#ifdef F2PY_REPORT_ATEXIT
57700f2py_start_clock();
57701#endif
57702 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
57703 "OO|Oii:_flapack.dposv",\
57704 capi_kwlist,&a_capi,&b_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b))
57705 return NULL((void*)0);
57706/*frompyobj*/
57707 /* Processing variable lower */
57708 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
57709 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dposv() 1st keyword (lower) can't be converted to int");
57710 if (f2py_success) {
57711 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dposv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dposv:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
57712 /* Processing variable a */
57713 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
57714 ;
57715 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
57716 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
57717 if (capi_a_tmp == NULL((void*)0)) {
57718 if (!PyErr_Occurred())
57719 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dposv to C/Fortran array" );
57720 } else {
57721 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
57722
57723 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
57724 /* Processing variable info */
57725 /* Processing variable n */
57726 n = shape(a,0)a_Dims[0];
57727 /* Processing variable b */
57728 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
57729 b_Dims[0]=n;
57730 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
57731 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
57732 if (capi_b_tmp == NULL((void*)0)) {
57733 if (!PyErr_Occurred())
57734 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dposv to C/Fortran array" );
57735 } else {
57736 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
57737
57738 CHECKARRAY(shape(a,0)==shape(b,0),"shape(a,0)==shape(b,0)","2nd argument b")if (!(a_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(b,0)"") failed for ""2nd argument b");
} else
{
57739 /* Processing variable nrhs */
57740 nrhs = shape(b,1)b_Dims[1];
57741/*end of frompyobj*/
57742#ifdef F2PY_REPORT_ATEXIT
57743f2py_start_call_clock();
57744#endif
57745/*callfortranroutine*/
57746 (*f2py_func)((lower?"L":"U"),&n,&nrhs,a,&n,b,&n,&info) ;
57747 /*(*f2py_func)(&n,&nrhs,a,b,&info,&lower);*/
57748if (PyErr_Occurred())
57749 f2py_success = 0;
57750#ifdef F2PY_REPORT_ATEXIT
57751f2py_stop_call_clock();
57752#endif
57753/*end of callfortranroutine*/
57754 if (f2py_success) {
57755/*pyobjfrom*/
57756/*end of pyobjfrom*/
57757 CFUNCSMESS("Building return value.\n");
57758 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info);
57759/*closepyobjfrom*/
57760/*end of closepyobjfrom*/
57761 } /*if (f2py_success) after callfortranroutine*/
57762/*cleanupfrompyobj*/
57763 /* End of cleaning variable nrhs */
57764 } /*CHECKARRAY(shape(a,0)==shape(b,0))*/
57765 } /*if (capi_b_tmp == NULL) ... else of b*/
57766 /* End of cleaning variable b */
57767 /* End of cleaning variable n */
57768 /* End of cleaning variable info */
57769 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
57770 } /*if (capi_a_tmp == NULL) ... else of a*/
57771 /* End of cleaning variable a */
57772 } /*CHECKSCALAR(lower==0||lower==1)*/
57773 } /*if (f2py_success) of lower*/
57774 /* End of cleaning variable lower */
57775/*end of cleanupfrompyobj*/
57776 if (capi_buildvalue == NULL((void*)0)) {
57777/*routdebugfailure*/
57778 } else {
57779/*routdebugleave*/
57780 }
57781 CFUNCSMESS("Freeing memory.\n");
57782/*freemem*/
57783#ifdef F2PY_REPORT_ATEXIT
57784f2py_stop_clock();
57785#endif
57786 return capi_buildvalue;
57787}
57788/******************************** end of dposv ********************************/
57789
57790/*********************************** cposv ***********************************/
57791static char doc_f2py_rout__flapack_cposv[] = "\
57792c,x,info = cposv(a,b,[lower,overwrite_a,overwrite_b])\n\nWrapper for ``cposv``.\
57793\n\nParameters\n----------\n"
57794"a : input rank-2 array('F') with bounds (n,n)\n"
57795"b : input rank-2 array('F') with bounds (n,nrhs)\n"
57796"\nOther Parameters\n----------------\n"
57797"overwrite_a : input int, optional\n Default: 0\n"
57798"overwrite_b : input int, optional\n Default: 0\n"
57799"lower : input int, optional\n Default: 0\n"
57800"\nReturns\n-------\n"
57801"c : rank-2 array('F') with bounds (n,n) and a storage\n"
57802"x : rank-2 array('F') with bounds (n,nrhs) and b storage\n"
57803"info : int";
57804/* extern void F_FUNC(cposv,CPOSV)(char*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */
57805static PyObject *f2py_rout__flapack_cposv(const PyObject *capi_self,
57806 PyObject *capi_args,
57807 PyObject *capi_keywds,
57808 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
57809 PyObject * volatile capi_buildvalue = NULL((void*)0);
57810 volatile int f2py_success = 1;
57811/*decl*/
57812
57813 int n = 0;
57814 int nrhs = 0;
57815 complex_float *a = NULL((void*)0);
57816 npy_intp a_Dims[2] = {-1, -1};
57817 const int a_Rank = 2;
57818 PyArrayObject *capi_a_tmp = NULL((void*)0);
57819 int capi_a_intent = 0;
57820 int capi_overwrite_a = 0;
57821 PyObject *a_capi = Py_None(&_Py_NoneStruct);
57822 complex_float *b = NULL((void*)0);
57823 npy_intp b_Dims[2] = {-1, -1};
57824 const int b_Rank = 2;
57825 PyArrayObject *capi_b_tmp = NULL((void*)0);
57826 int capi_b_intent = 0;
57827 int capi_overwrite_b = 0;
57828 PyObject *b_capi = Py_None(&_Py_NoneStruct);
57829 int info = 0;
57830 int lower = 0;
57831 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
57832 static char *capi_kwlist[] = {"a","b","lower","overwrite_a","overwrite_b",NULL((void*)0)};
57833
57834/*routdebugenter*/
57835#ifdef F2PY_REPORT_ATEXIT
57836f2py_start_clock();
57837#endif
57838 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
57839 "OO|Oii:_flapack.cposv",\
57840 capi_kwlist,&a_capi,&b_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b))
57841 return NULL((void*)0);
57842/*frompyobj*/
57843 /* Processing variable lower */
57844 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
57845 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cposv() 1st keyword (lower) can't be converted to int");
57846 if (f2py_success) {
57847 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cposv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cposv:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
57848 /* Processing variable a */
57849 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
57850 ;
57851 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
57852 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
57853 if (capi_a_tmp == NULL((void*)0)) {
57854 if (!PyErr_Occurred())
57855 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cposv to C/Fortran array" );
57856 } else {
57857 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
57858
57859 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
57860 /* Processing variable info */
57861 /* Processing variable n */
57862 n = shape(a,0)a_Dims[0];
57863 /* Processing variable b */
57864 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
57865 b_Dims[0]=n;
57866 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
57867 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
57868 if (capi_b_tmp == NULL((void*)0)) {
57869 if (!PyErr_Occurred())
57870 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cposv to C/Fortran array" );
57871 } else {
57872 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
57873
57874 CHECKARRAY(shape(a,0)==shape(b,0),"shape(a,0)==shape(b,0)","2nd argument b")if (!(a_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(b,0)"") failed for ""2nd argument b");
} else
{
57875 /* Processing variable nrhs */
57876 nrhs = shape(b,1)b_Dims[1];
57877/*end of frompyobj*/
57878#ifdef F2PY_REPORT_ATEXIT
57879f2py_start_call_clock();
57880#endif
57881/*callfortranroutine*/
57882 (*f2py_func)((lower?"L":"U"),&n,&nrhs,a,&n,b,&n,&info) ;
57883 /*(*f2py_func)(&n,&nrhs,a,b,&info,&lower);*/
57884if (PyErr_Occurred())
57885 f2py_success = 0;
57886#ifdef F2PY_REPORT_ATEXIT
57887f2py_stop_call_clock();
57888#endif
57889/*end of callfortranroutine*/
57890 if (f2py_success) {
57891/*pyobjfrom*/
57892/*end of pyobjfrom*/
57893 CFUNCSMESS("Building return value.\n");
57894 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info);
57895/*closepyobjfrom*/
57896/*end of closepyobjfrom*/
57897 } /*if (f2py_success) after callfortranroutine*/
57898/*cleanupfrompyobj*/
57899 /* End of cleaning variable nrhs */
57900 } /*CHECKARRAY(shape(a,0)==shape(b,0))*/
57901 } /*if (capi_b_tmp == NULL) ... else of b*/
57902 /* End of cleaning variable b */
57903 /* End of cleaning variable n */
57904 /* End of cleaning variable info */
57905 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
57906 } /*if (capi_a_tmp == NULL) ... else of a*/
57907 /* End of cleaning variable a */
57908 } /*CHECKSCALAR(lower==0||lower==1)*/
57909 } /*if (f2py_success) of lower*/
57910 /* End of cleaning variable lower */
57911/*end of cleanupfrompyobj*/
57912 if (capi_buildvalue == NULL((void*)0)) {
57913/*routdebugfailure*/
57914 } else {
57915/*routdebugleave*/
57916 }
57917 CFUNCSMESS("Freeing memory.\n");
57918/*freemem*/
57919#ifdef F2PY_REPORT_ATEXIT
57920f2py_stop_clock();
57921#endif
57922 return capi_buildvalue;
57923}
57924/******************************** end of cposv ********************************/
57925
57926/*********************************** zposv ***********************************/
57927static char doc_f2py_rout__flapack_zposv[] = "\
57928c,x,info = zposv(a,b,[lower,overwrite_a,overwrite_b])\n\nWrapper for ``zposv``.\
57929\n\nParameters\n----------\n"
57930"a : input rank-2 array('D') with bounds (n,n)\n"
57931"b : input rank-2 array('D') with bounds (n,nrhs)\n"
57932"\nOther Parameters\n----------------\n"
57933"overwrite_a : input int, optional\n Default: 0\n"
57934"overwrite_b : input int, optional\n Default: 0\n"
57935"lower : input int, optional\n Default: 0\n"
57936"\nReturns\n-------\n"
57937"c : rank-2 array('D') with bounds (n,n) and a storage\n"
57938"x : rank-2 array('D') with bounds (n,nrhs) and b storage\n"
57939"info : int";
57940/* extern void F_FUNC(zposv,ZPOSV)(char*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */
57941static PyObject *f2py_rout__flapack_zposv(const PyObject *capi_self,
57942 PyObject *capi_args,
57943 PyObject *capi_keywds,
57944 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
57945 PyObject * volatile capi_buildvalue = NULL((void*)0);
57946 volatile int f2py_success = 1;
57947/*decl*/
57948
57949 int n = 0;
57950 int nrhs = 0;
57951 complex_double *a = NULL((void*)0);
57952 npy_intp a_Dims[2] = {-1, -1};
57953 const int a_Rank = 2;
57954 PyArrayObject *capi_a_tmp = NULL((void*)0);
57955 int capi_a_intent = 0;
57956 int capi_overwrite_a = 0;
57957 PyObject *a_capi = Py_None(&_Py_NoneStruct);
57958 complex_double *b = NULL((void*)0);
57959 npy_intp b_Dims[2] = {-1, -1};
57960 const int b_Rank = 2;
57961 PyArrayObject *capi_b_tmp = NULL((void*)0);
57962 int capi_b_intent = 0;
57963 int capi_overwrite_b = 0;
57964 PyObject *b_capi = Py_None(&_Py_NoneStruct);
57965 int info = 0;
57966 int lower = 0;
57967 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
57968 static char *capi_kwlist[] = {"a","b","lower","overwrite_a","overwrite_b",NULL((void*)0)};
57969
57970/*routdebugenter*/
57971#ifdef F2PY_REPORT_ATEXIT
57972f2py_start_clock();
57973#endif
57974 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
57975 "OO|Oii:_flapack.zposv",\
57976 capi_kwlist,&a_capi,&b_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b))
57977 return NULL((void*)0);
57978/*frompyobj*/
57979 /* Processing variable lower */
57980 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
57981 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zposv() 1st keyword (lower) can't be converted to int");
57982 if (f2py_success) {
57983 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zposv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zposv:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
57984 /* Processing variable a */
57985 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
57986 ;
57987 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
57988 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
57989 if (capi_a_tmp == NULL((void*)0)) {
57990 if (!PyErr_Occurred())
57991 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zposv to C/Fortran array" );
57992 } else {
57993 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
57994
57995 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
57996 /* Processing variable info */
57997 /* Processing variable n */
57998 n = shape(a,0)a_Dims[0];
57999 /* Processing variable b */
58000 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
58001 b_Dims[0]=n;
58002 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
58003 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
58004 if (capi_b_tmp == NULL((void*)0)) {
58005 if (!PyErr_Occurred())
58006 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zposv to C/Fortran array" );
58007 } else {
58008 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
58009
58010 CHECKARRAY(shape(a,0)==shape(b,0),"shape(a,0)==shape(b,0)","2nd argument b")if (!(a_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(b,0)"") failed for ""2nd argument b");
} else
{
58011 /* Processing variable nrhs */
58012 nrhs = shape(b,1)b_Dims[1];
58013/*end of frompyobj*/
58014#ifdef F2PY_REPORT_ATEXIT
58015f2py_start_call_clock();
58016#endif
58017/*callfortranroutine*/
58018 (*f2py_func)((lower?"L":"U"),&n,&nrhs,a,&n,b,&n,&info) ;
58019 /*(*f2py_func)(&n,&nrhs,a,b,&info,&lower);*/
58020if (PyErr_Occurred())
58021 f2py_success = 0;
58022#ifdef F2PY_REPORT_ATEXIT
58023f2py_stop_call_clock();
58024#endif
58025/*end of callfortranroutine*/
58026 if (f2py_success) {
58027/*pyobjfrom*/
58028/*end of pyobjfrom*/
58029 CFUNCSMESS("Building return value.\n");
58030 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info);
58031/*closepyobjfrom*/
58032/*end of closepyobjfrom*/
58033 } /*if (f2py_success) after callfortranroutine*/
58034/*cleanupfrompyobj*/
58035 /* End of cleaning variable nrhs */
58036 } /*CHECKARRAY(shape(a,0)==shape(b,0))*/
58037 } /*if (capi_b_tmp == NULL) ... else of b*/
58038 /* End of cleaning variable b */
58039 /* End of cleaning variable n */
58040 /* End of cleaning variable info */
58041 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
58042 } /*if (capi_a_tmp == NULL) ... else of a*/
58043 /* End of cleaning variable a */
58044 } /*CHECKSCALAR(lower==0||lower==1)*/
58045 } /*if (f2py_success) of lower*/
58046 /* End of cleaning variable lower */
58047/*end of cleanupfrompyobj*/
58048 if (capi_buildvalue == NULL((void*)0)) {
58049/*routdebugfailure*/
58050 } else {
58051/*routdebugleave*/
58052 }
58053 CFUNCSMESS("Freeing memory.\n");
58054/*freemem*/
58055#ifdef F2PY_REPORT_ATEXIT
58056f2py_stop_clock();
58057#endif
58058 return capi_buildvalue;
58059}
58060/******************************** end of zposv ********************************/
58061
58062/*********************************** sposvx ***********************************/
58063static char doc_f2py_rout__flapack_sposvx[] = "\
58064a_s,lu,equed,s,b_s,x,rcond,ferr,berr,info = sposvx(a,b,[fact,af,equed,s,lower,overwrite_a,overwrite_b])\n\nWrapper for ``sposvx``.\
58065\n\nParameters\n----------\n"
58066"a : input rank-2 array('f') with bounds (n,n)\n"
58067"b : input rank-2 array('f') with bounds (n,nrhs)\n"
58068"\nOther Parameters\n----------------\n"
58069"fact : input string(len=1), optional\n Default: 'E'\n"
58070"overwrite_a : input int, optional\n Default: 0\n"
58071"af : input rank-2 array('f') with bounds (n,n)\n"
58072"equed : input string(len=1), optional\n Default: 'Y'\n"
58073"s : input rank-1 array('f') with bounds (n)\n"
58074"overwrite_b : input int, optional\n Default: 0\n"
58075"lower : input int, optional\n Default: 0\n"
58076"\nReturns\n-------\n"
58077"a_s : rank-2 array('f') with bounds (n,n) and a storage\n"
58078"lu : rank-2 array('f') with bounds (n,n) and af storage\n"
58079"equed : string(len=1)\n"
58080"s : rank-1 array('f') with bounds (n)\n"
58081"b_s : rank-2 array('f') with bounds (n,nrhs) and b storage\n"
58082"x : rank-2 array('f') with bounds (n,nrhs)\n"
58083"rcond : float\n"
58084"ferr : rank-1 array('f') with bounds (nrhs)\n"
58085"berr : rank-1 array('f') with bounds (nrhs)\n"
58086"info : int";
58087/* extern void F_FUNC(sposvx,SPOSVX)(char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,char*,float*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT* ); */
58088static PyObject *f2py_rout__flapack_sposvx(const PyObject *capi_self,
58089 PyObject *capi_args,
58090 PyObject *capi_keywds,
58091 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,char*,float*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* )) {
58092 PyObject * volatile capi_buildvalue = NULL((void*)0);
58093 volatile int f2py_success = 1;
58094/*decl*/
58095
58096 string fact = NULL((void*)0);
58097 int slen(fact)capi_fact_len;
58098 PyObject *fact_capi = Py_None(&_Py_NoneStruct);
58099 int n = 0;
58100 int nrhs = 0;
58101 float *a = NULL((void*)0);
58102 npy_intp a_Dims[2] = {-1, -1};
58103 const int a_Rank = 2;
58104 PyArrayObject *capi_a_tmp = NULL((void*)0);
58105 int capi_a_intent = 0;
58106 int capi_overwrite_a = 0;
58107 PyObject *a_capi = Py_None(&_Py_NoneStruct);
58108 int lda = 0;
58109 float *af = NULL((void*)0);
58110 npy_intp af_Dims[2] = {-1, -1};
58111 const int af_Rank = 2;
58112 PyArrayObject *capi_af_tmp = NULL((void*)0);
58113 int capi_af_intent = 0;
58114 PyObject *af_capi = Py_None(&_Py_NoneStruct);
58115 int ldaf = 0;
58116 string equed = NULL((void*)0);
58117 int slen(equed)capi_equed_len;
58118 PyObject *equed_capi = Py_None(&_Py_NoneStruct);
58119 float *s = NULL((void*)0);
58120 npy_intp s_Dims[1] = {-1};
58121 const int s_Rank = 1;
58122 PyArrayObject *capi_s_tmp = NULL((void*)0);
58123 int capi_s_intent = 0;
58124 PyObject *s_capi = Py_None(&_Py_NoneStruct);
58125 float *b = NULL((void*)0);
58126 npy_intp b_Dims[2] = {-1, -1};
58127 const int b_Rank = 2;
58128 PyArrayObject *capi_b_tmp = NULL((void*)0);
58129 int capi_b_intent = 0;
58130 int capi_overwrite_b = 0;
58131 PyObject *b_capi = Py_None(&_Py_NoneStruct);
58132 int ldb = 0;
58133 float *x = NULL((void*)0);
58134 npy_intp x_Dims[2] = {-1, -1};
58135 const int x_Rank = 2;
58136 PyArrayObject *capi_x_tmp = NULL((void*)0);
58137 int capi_x_intent = 0;
58138 int ldx = 0;
58139 float rcond = 0;
58140 float *ferr = NULL((void*)0);
58141 npy_intp ferr_Dims[1] = {-1};
58142 const int ferr_Rank = 1;
58143 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
58144 int capi_ferr_intent = 0;
58145 float *berr = NULL((void*)0);
58146 npy_intp berr_Dims[1] = {-1};
58147 const int berr_Rank = 1;
58148 PyArrayObject *capi_berr_tmp = NULL((void*)0);
58149 int capi_berr_intent = 0;
58150 float *work = NULL((void*)0);
58151 npy_intp work_Dims[1] = {-1};
58152 const int work_Rank = 1;
58153 PyArrayObject *capi_work_tmp = NULL((void*)0);
58154 int capi_work_intent = 0;
58155 int *irwork = NULL((void*)0);
58156 npy_intp irwork_Dims[1] = {-1};
58157 const int irwork_Rank = 1;
58158 PyArrayObject *capi_irwork_tmp = NULL((void*)0);
58159 int capi_irwork_intent = 0;
58160 int info = 0;
58161 int lower = 0;
58162 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
58163 static char *capi_kwlist[] = {"a","b","fact","af","equed","s","lower","overwrite_a","overwrite_b",NULL((void*)0)};
58164
58165/*routdebugenter*/
58166#ifdef F2PY_REPORT_ATEXIT
58167f2py_start_clock();
58168#endif
58169 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
58170 "OO|OOOOOii:_flapack.sposvx",\
58171 capi_kwlist,&a_capi,&b_capi,&fact_capi,&af_capi,&equed_capi,&s_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b))
58172 return NULL((void*)0);
58173/*frompyobj*/
58174 /* Processing variable fact */
58175 slen(fact)capi_fact_len = 1;
58176 f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"E",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.sposvx to C string");
58177 if (f2py_success) {
58178 /* Processing variable lower */
58179 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
58180 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.sposvx() 5th keyword (lower) can't be converted to int");
58181 if (f2py_success) {
58182 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","5th keyword lower","sposvx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sposvx:lower=%d", "(""lower==0||lower==1"") failed for "
"5th keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
58183 /* Processing variable a */
58184 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
58185 ;
58186 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
58187 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
58188 if (capi_a_tmp == NULL((void*)0)) {
58189 if (!PyErr_Occurred())
58190 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sposvx to C/Fortran array" );
58191 } else {
58192 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
58193
58194 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
58195 /* Processing variable equed */
58196 slen(equed)capi_equed_len = 1;
58197 f2py_success = string_from_pyobj(&equed,&slen(equed)capi_equed_len,"Y",equed_capi,"string_from_pyobj failed in converting 3rd keyword `equed' of _flapack.sposvx to C string");
58198 if (f2py_success) {
58199 /* Processing variable rcond */
58200 /* Processing variable info */
58201 /* Processing variable n */
58202 n = shape(a,0)a_Dims[0];
58203 /* Processing variable lda */
58204 lda = shape(a,0)a_Dims[0];
58205 /* Processing variable af */
58206 af_Dims[0]=n,af_Dims[1]=n;
58207 capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
58208 capi_af_tmp = array_from_pyobj(NPY_FLOAT,af_Dims,af_Rank,capi_af_intent,af_capi);
58209 if (capi_af_tmp == NULL((void*)0)) {
58210 if (!PyErr_Occurred())
58211 PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `af' of _flapack.sposvx to C/Fortran array" );
58212 } else {
58213 af = (float *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data));
58214
58215 /* Processing variable ldaf */
58216 ldaf = shape(af,0)af_Dims[0];
58217 /* Processing variable s */
58218 s_Dims[0]=n;
58219 capi_s_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
58220 capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,s_capi);
58221 if (capi_s_tmp == NULL((void*)0)) {
58222 if (!PyErr_Occurred())
58223 PyErr_SetString(_flapack_error,"failed in converting 4th keyword `s' of _flapack.sposvx to C/Fortran array" );
58224 } else {
58225 s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
58226
58227 /* Processing variable b */
58228 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
58229 b_Dims[0]=n;
58230 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
58231 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
58232 if (capi_b_tmp == NULL((void*)0)) {
58233 if (!PyErr_Occurred())
58234 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sposvx to C/Fortran array" );
58235 } else {
58236 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
58237
58238 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
58239 /* Processing variable ldb */
58240 ldb = shape(b,0)b_Dims[0];
58241 /* Processing variable work */
58242 work_Dims[0]=3 * n;
58243 capi_work_intent |= F2PY_INTENT_HIDE8;
58244 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
58245 if (capi_work_tmp == NULL((void*)0)) {
58246 if (!PyErr_Occurred())
58247 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sposvx to C/Fortran array" );
58248 } else {
58249 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
58250
58251 /* Processing variable irwork */
58252 irwork_Dims[0]=n;
58253 capi_irwork_intent |= F2PY_INTENT_HIDE8;
58254 capi_irwork_tmp = array_from_pyobj(NPY_INT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct));
58255 if (capi_irwork_tmp == NULL((void*)0)) {
58256 if (!PyErr_Occurred())
58257 PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.sposvx to C/Fortran array" );
58258 } else {
58259 irwork = (int *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data
)
);
58260
58261 /* Processing variable nrhs */
58262 nrhs = shape(b,1)b_Dims[1];
58263 /* Processing variable x */
58264 x_Dims[0]=n,x_Dims[1]=nrhs;
58265 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
58266 capi_x_tmp = array_from_pyobj(NPY_FLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
58267 if (capi_x_tmp == NULL((void*)0)) {
58268 if (!PyErr_Occurred())
58269 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.sposvx to C/Fortran array" );
58270 } else {
58271 x = (float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
58272
58273 /* Processing variable ldx */
58274 ldx = shape(x,0)x_Dims[0];
58275 /* Processing variable ferr */
58276 ferr_Dims[0]=nrhs;
58277 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
58278 capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
58279 if (capi_ferr_tmp == NULL((void*)0)) {
58280 if (!PyErr_Occurred())
58281 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.sposvx to C/Fortran array" );
58282 } else {
58283 ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
58284
58285 /* Processing variable berr */
58286 berr_Dims[0]=nrhs;
58287 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
58288 capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
58289 if (capi_berr_tmp == NULL((void*)0)) {
58290 if (!PyErr_Occurred())
58291 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.sposvx to C/Fortran array" );
58292 } else {
58293 berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
58294
58295/*end of frompyobj*/
58296#ifdef F2PY_REPORT_ATEXIT
58297f2py_start_call_clock();
58298#endif
58299/*callfortranroutine*/
58300 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
58301 (*f2py_func)(fact,(lower?"L":"U"),&n,&nrhs,a,&lda,af,&ldaf,equed,s,b,&ldb,x,&ldx,&rcond,ferr,berr,work,irwork,&info) ;
58302 /*(*f2py_func)(fact,&n,&nrhs,a,&lda,af,&ldaf,equed,s,b,&ldb,x,&ldx,&rcond,ferr,berr,work,irwork,&info,&lower,slen(fact),slen(equed));*/
58303 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
58304if (PyErr_Occurred())
58305 f2py_success = 0;
58306#ifdef F2PY_REPORT_ATEXIT
58307f2py_stop_call_clock();
58308#endif
58309/*end of callfortranroutine*/
58310 if (f2py_success) {
58311/*pyobjfrom*/
58312/*end of pyobjfrom*/
58313 CFUNCSMESS("Building return value.\n");
58314 capi_buildvalue = Py_BuildValue("NNyNNNfNNi",capi_a_tmp,capi_af_tmp,equed,capi_s_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
58315/*closepyobjfrom*/
58316/*end of closepyobjfrom*/
58317 } /*if (f2py_success) after callfortranroutine*/
58318/*cleanupfrompyobj*/
58319 } /*if (capi_berr_tmp == NULL) ... else of berr*/
58320 /* End of cleaning variable berr */
58321 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
58322 /* End of cleaning variable ferr */
58323 /* End of cleaning variable ldx */
58324 } /*if (capi_x_tmp == NULL) ... else of x*/
58325 /* End of cleaning variable x */
58326 /* End of cleaning variable nrhs */
58327 Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp)));
58328 } /*if (capi_irwork_tmp == NULL) ... else of irwork*/
58329 /* End of cleaning variable irwork */
58330 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
58331 } /*if (capi_work_tmp == NULL) ... else of work*/
58332 /* End of cleaning variable work */
58333 /* End of cleaning variable ldb */
58334 } /*CHECKARRAY(shape(b,0)==n)*/
58335 } /*if (capi_b_tmp == NULL) ... else of b*/
58336 /* End of cleaning variable b */
58337 } /*if (capi_s_tmp == NULL) ... else of s*/
58338 /* End of cleaning variable s */
58339 /* End of cleaning variable ldaf */
58340 } /*if (capi_af_tmp == NULL) ... else of af*/
58341 /* End of cleaning variable af */
58342 /* End of cleaning variable lda */
58343 /* End of cleaning variable n */
58344 /* End of cleaning variable info */
58345 /* End of cleaning variable rcond */
58346 STRINGFREE(equed)do {if (!(equed == ((void*)0))) free(equed);} while (0);
58347 } /*if (f2py_success) of equed*/
58348 /* End of cleaning variable equed */
58349 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
58350 } /*if (capi_a_tmp == NULL) ... else of a*/
58351 /* End of cleaning variable a */
58352 } /*CHECKSCALAR(lower==0||lower==1)*/
58353 } /*if (f2py_success) of lower*/
58354 /* End of cleaning variable lower */
58355 STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0);
58356 } /*if (f2py_success) of fact*/
58357 /* End of cleaning variable fact */
58358/*end of cleanupfrompyobj*/
58359 if (capi_buildvalue == NULL((void*)0)) {
58360/*routdebugfailure*/
58361 } else {
58362/*routdebugleave*/
58363 }
58364 CFUNCSMESS("Freeing memory.\n");
58365/*freemem*/
58366#ifdef F2PY_REPORT_ATEXIT
58367f2py_stop_clock();
58368#endif
58369 return capi_buildvalue;
58370}
58371/******************************* end of sposvx *******************************/
58372
58373/*********************************** dposvx ***********************************/
58374static char doc_f2py_rout__flapack_dposvx[] = "\
58375a_s,lu,equed,s,b_s,x,rcond,ferr,berr,info = dposvx(a,b,[fact,af,equed,s,lower,overwrite_a,overwrite_b])\n\nWrapper for ``dposvx``.\
58376\n\nParameters\n----------\n"
58377"a : input rank-2 array('d') with bounds (n,n)\n"
58378"b : input rank-2 array('d') with bounds (n,nrhs)\n"
58379"\nOther Parameters\n----------------\n"
58380"fact : input string(len=1), optional\n Default: 'E'\n"
58381"overwrite_a : input int, optional\n Default: 0\n"
58382"af : input rank-2 array('d') with bounds (n,n)\n"
58383"equed : input string(len=1), optional\n Default: 'Y'\n"
58384"s : input rank-1 array('d') with bounds (n)\n"
58385"overwrite_b : input int, optional\n Default: 0\n"
58386"lower : input int, optional\n Default: 0\n"
58387"\nReturns\n-------\n"
58388"a_s : rank-2 array('d') with bounds (n,n) and a storage\n"
58389"lu : rank-2 array('d') with bounds (n,n) and af storage\n"
58390"equed : string(len=1)\n"
58391"s : rank-1 array('d') with bounds (n)\n"
58392"b_s : rank-2 array('d') with bounds (n,nrhs) and b storage\n"
58393"x : rank-2 array('d') with bounds (n,nrhs)\n"
58394"rcond : float\n"
58395"ferr : rank-1 array('d') with bounds (nrhs)\n"
58396"berr : rank-1 array('d') with bounds (nrhs)\n"
58397"info : int";
58398/* extern void F_FUNC(dposvx,DPOSVX)(char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,char*,double*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT* ); */
58399static PyObject *f2py_rout__flapack_dposvx(const PyObject *capi_self,
58400 PyObject *capi_args,
58401 PyObject *capi_keywds,
58402 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,char*,double*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* )) {
58403 PyObject * volatile capi_buildvalue = NULL((void*)0);
58404 volatile int f2py_success = 1;
58405/*decl*/
58406
58407 string fact = NULL((void*)0);
58408 int slen(fact)capi_fact_len;
58409 PyObject *fact_capi = Py_None(&_Py_NoneStruct);
58410 int n = 0;
58411 int nrhs = 0;
58412 double *a = NULL((void*)0);
58413 npy_intp a_Dims[2] = {-1, -1};
58414 const int a_Rank = 2;
58415 PyArrayObject *capi_a_tmp = NULL((void*)0);
58416 int capi_a_intent = 0;
58417 int capi_overwrite_a = 0;
58418 PyObject *a_capi = Py_None(&_Py_NoneStruct);
58419 int lda = 0;
58420 double *af = NULL((void*)0);
58421 npy_intp af_Dims[2] = {-1, -1};
58422 const int af_Rank = 2;
58423 PyArrayObject *capi_af_tmp = NULL((void*)0);
58424 int capi_af_intent = 0;
58425 PyObject *af_capi = Py_None(&_Py_NoneStruct);
58426 int ldaf = 0;
58427 string equed = NULL((void*)0);
58428 int slen(equed)capi_equed_len;
58429 PyObject *equed_capi = Py_None(&_Py_NoneStruct);
58430 double *s = NULL((void*)0);
58431 npy_intp s_Dims[1] = {-1};
58432 const int s_Rank = 1;
58433 PyArrayObject *capi_s_tmp = NULL((void*)0);
58434 int capi_s_intent = 0;
58435 PyObject *s_capi = Py_None(&_Py_NoneStruct);
58436 double *b = NULL((void*)0);
58437 npy_intp b_Dims[2] = {-1, -1};
58438 const int b_Rank = 2;
58439 PyArrayObject *capi_b_tmp = NULL((void*)0);
58440 int capi_b_intent = 0;
58441 int capi_overwrite_b = 0;
58442 PyObject *b_capi = Py_None(&_Py_NoneStruct);
58443 int ldb = 0;
58444 double *x = NULL((void*)0);
58445 npy_intp x_Dims[2] = {-1, -1};
58446 const int x_Rank = 2;
58447 PyArrayObject *capi_x_tmp = NULL((void*)0);
58448 int capi_x_intent = 0;
58449 int ldx = 0;
58450 double rcond = 0;
58451 double *ferr = NULL((void*)0);
58452 npy_intp ferr_Dims[1] = {-1};
58453 const int ferr_Rank = 1;
58454 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
58455 int capi_ferr_intent = 0;
58456 double *berr = NULL((void*)0);
58457 npy_intp berr_Dims[1] = {-1};
58458 const int berr_Rank = 1;
58459 PyArrayObject *capi_berr_tmp = NULL((void*)0);
58460 int capi_berr_intent = 0;
58461 double *work = NULL((void*)0);
58462 npy_intp work_Dims[1] = {-1};
58463 const int work_Rank = 1;
58464 PyArrayObject *capi_work_tmp = NULL((void*)0);
58465 int capi_work_intent = 0;
58466 int *irwork = NULL((void*)0);
58467 npy_intp irwork_Dims[1] = {-1};
58468 const int irwork_Rank = 1;
58469 PyArrayObject *capi_irwork_tmp = NULL((void*)0);
58470 int capi_irwork_intent = 0;
58471 int info = 0;
58472 int lower = 0;
58473 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
58474 static char *capi_kwlist[] = {"a","b","fact","af","equed","s","lower","overwrite_a","overwrite_b",NULL((void*)0)};
58475
58476/*routdebugenter*/
58477#ifdef F2PY_REPORT_ATEXIT
58478f2py_start_clock();
58479#endif
58480 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
58481 "OO|OOOOOii:_flapack.dposvx",\
58482 capi_kwlist,&a_capi,&b_capi,&fact_capi,&af_capi,&equed_capi,&s_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b))
58483 return NULL((void*)0);
58484/*frompyobj*/
58485 /* Processing variable fact */
58486 slen(fact)capi_fact_len = 1;
58487 f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"E",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.dposvx to C string");
58488 if (f2py_success) {
58489 /* Processing variable lower */
58490 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
58491 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dposvx() 5th keyword (lower) can't be converted to int");
58492 if (f2py_success) {
58493 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","5th keyword lower","dposvx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dposvx:lower=%d", "(""lower==0||lower==1"") failed for "
"5th keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
58494 /* Processing variable a */
58495 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
58496 ;
58497 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
58498 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
58499 if (capi_a_tmp == NULL((void*)0)) {
58500 if (!PyErr_Occurred())
58501 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dposvx to C/Fortran array" );
58502 } else {
58503 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
58504
58505 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
58506 /* Processing variable equed */
58507 slen(equed)capi_equed_len = 1;
58508 f2py_success = string_from_pyobj(&equed,&slen(equed)capi_equed_len,"Y",equed_capi,"string_from_pyobj failed in converting 3rd keyword `equed' of _flapack.dposvx to C string");
58509 if (f2py_success) {
58510 /* Processing variable rcond */
58511 /* Processing variable info */
58512 /* Processing variable n */
58513 n = shape(a,0)a_Dims[0];
58514 /* Processing variable lda */
58515 lda = shape(a,0)a_Dims[0];
58516 /* Processing variable af */
58517 af_Dims[0]=n,af_Dims[1]=n;
58518 capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
58519 capi_af_tmp = array_from_pyobj(NPY_DOUBLE,af_Dims,af_Rank,capi_af_intent,af_capi);
58520 if (capi_af_tmp == NULL((void*)0)) {
58521 if (!PyErr_Occurred())
58522 PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `af' of _flapack.dposvx to C/Fortran array" );
58523 } else {
58524 af = (double *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data));
58525
58526 /* Processing variable ldaf */
58527 ldaf = shape(af,0)af_Dims[0];
58528 /* Processing variable s */
58529 s_Dims[0]=n;
58530 capi_s_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
58531 capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,s_capi);
58532 if (capi_s_tmp == NULL((void*)0)) {
58533 if (!PyErr_Occurred())
58534 PyErr_SetString(_flapack_error,"failed in converting 4th keyword `s' of _flapack.dposvx to C/Fortran array" );
58535 } else {
58536 s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
58537
58538 /* Processing variable b */
58539 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
58540 b_Dims[0]=n;
58541 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
58542 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
58543 if (capi_b_tmp == NULL((void*)0)) {
58544 if (!PyErr_Occurred())
58545 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dposvx to C/Fortran array" );
58546 } else {
58547 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
58548
58549 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
58550 /* Processing variable ldb */
58551 ldb = shape(b,0)b_Dims[0];
58552 /* Processing variable work */
58553 work_Dims[0]=3 * n;
58554 capi_work_intent |= F2PY_INTENT_HIDE8;
58555 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
58556 if (capi_work_tmp == NULL((void*)0)) {
58557 if (!PyErr_Occurred())
58558 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dposvx to C/Fortran array" );
58559 } else {
58560 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
58561
58562 /* Processing variable irwork */
58563 irwork_Dims[0]=n;
58564 capi_irwork_intent |= F2PY_INTENT_HIDE8;
58565 capi_irwork_tmp = array_from_pyobj(NPY_INT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct));
58566 if (capi_irwork_tmp == NULL((void*)0)) {
58567 if (!PyErr_Occurred())
58568 PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.dposvx to C/Fortran array" );
58569 } else {
58570 irwork = (int *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data
)
);
58571
58572 /* Processing variable nrhs */
58573 nrhs = shape(b,1)b_Dims[1];
58574 /* Processing variable x */
58575 x_Dims[0]=n,x_Dims[1]=nrhs;
58576 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
58577 capi_x_tmp = array_from_pyobj(NPY_DOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
58578 if (capi_x_tmp == NULL((void*)0)) {
58579 if (!PyErr_Occurred())
58580 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.dposvx to C/Fortran array" );
58581 } else {
58582 x = (double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
58583
58584 /* Processing variable ldx */
58585 ldx = shape(x,0)x_Dims[0];
58586 /* Processing variable ferr */
58587 ferr_Dims[0]=nrhs;
58588 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
58589 capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
58590 if (capi_ferr_tmp == NULL((void*)0)) {
58591 if (!PyErr_Occurred())
58592 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.dposvx to C/Fortran array" );
58593 } else {
58594 ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
58595
58596 /* Processing variable berr */
58597 berr_Dims[0]=nrhs;
58598 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
58599 capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
58600 if (capi_berr_tmp == NULL((void*)0)) {
58601 if (!PyErr_Occurred())
58602 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.dposvx to C/Fortran array" );
58603 } else {
58604 berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
58605
58606/*end of frompyobj*/
58607#ifdef F2PY_REPORT_ATEXIT
58608f2py_start_call_clock();
58609#endif
58610/*callfortranroutine*/
58611 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
58612 (*f2py_func)(fact,(lower?"L":"U"),&n,&nrhs,a,&lda,af,&ldaf,equed,s,b,&ldb,x,&ldx,&rcond,ferr,berr,work,irwork,&info) ;
58613 /*(*f2py_func)(fact,&n,&nrhs,a,&lda,af,&ldaf,equed,s,b,&ldb,x,&ldx,&rcond,ferr,berr,work,irwork,&info,&lower,slen(fact),slen(equed));*/
58614 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
58615if (PyErr_Occurred())
58616 f2py_success = 0;
58617#ifdef F2PY_REPORT_ATEXIT
58618f2py_stop_call_clock();
58619#endif
58620/*end of callfortranroutine*/
58621 if (f2py_success) {
58622/*pyobjfrom*/
58623/*end of pyobjfrom*/
58624 CFUNCSMESS("Building return value.\n");
58625 capi_buildvalue = Py_BuildValue("NNyNNNdNNi",capi_a_tmp,capi_af_tmp,equed,capi_s_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
58626/*closepyobjfrom*/
58627/*end of closepyobjfrom*/
58628 } /*if (f2py_success) after callfortranroutine*/
58629/*cleanupfrompyobj*/
58630 } /*if (capi_berr_tmp == NULL) ... else of berr*/
58631 /* End of cleaning variable berr */
58632 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
58633 /* End of cleaning variable ferr */
58634 /* End of cleaning variable ldx */
58635 } /*if (capi_x_tmp == NULL) ... else of x*/
58636 /* End of cleaning variable x */
58637 /* End of cleaning variable nrhs */
58638 Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp)));
58639 } /*if (capi_irwork_tmp == NULL) ... else of irwork*/
58640 /* End of cleaning variable irwork */
58641 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
58642 } /*if (capi_work_tmp == NULL) ... else of work*/
58643 /* End of cleaning variable work */
58644 /* End of cleaning variable ldb */
58645 } /*CHECKARRAY(shape(b,0)==n)*/
58646 } /*if (capi_b_tmp == NULL) ... else of b*/
58647 /* End of cleaning variable b */
58648 } /*if (capi_s_tmp == NULL) ... else of s*/
58649 /* End of cleaning variable s */
58650 /* End of cleaning variable ldaf */
58651 } /*if (capi_af_tmp == NULL) ... else of af*/
58652 /* End of cleaning variable af */
58653 /* End of cleaning variable lda */
58654 /* End of cleaning variable n */
58655 /* End of cleaning variable info */
58656 /* End of cleaning variable rcond */
58657 STRINGFREE(equed)do {if (!(equed == ((void*)0))) free(equed);} while (0);
58658 } /*if (f2py_success) of equed*/
58659 /* End of cleaning variable equed */
58660 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
58661 } /*if (capi_a_tmp == NULL) ... else of a*/
58662 /* End of cleaning variable a */
58663 } /*CHECKSCALAR(lower==0||lower==1)*/
58664 } /*if (f2py_success) of lower*/
58665 /* End of cleaning variable lower */
58666 STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0);
58667 } /*if (f2py_success) of fact*/
58668 /* End of cleaning variable fact */
58669/*end of cleanupfrompyobj*/
58670 if (capi_buildvalue == NULL((void*)0)) {
58671/*routdebugfailure*/
58672 } else {
58673/*routdebugleave*/
58674 }
58675 CFUNCSMESS("Freeing memory.\n");
58676/*freemem*/
58677#ifdef F2PY_REPORT_ATEXIT
58678f2py_stop_clock();
58679#endif
58680 return capi_buildvalue;
58681}
58682/******************************* end of dposvx *******************************/
58683
58684/*********************************** cposvx ***********************************/
58685static char doc_f2py_rout__flapack_cposvx[] = "\
58686a_s,lu,equed,s,b_s,x,rcond,ferr,berr,info = cposvx(a,b,[fact,af,equed,s,lower,overwrite_a,overwrite_b])\n\nWrapper for ``cposvx``.\
58687\n\nParameters\n----------\n"
58688"a : input rank-2 array('F') with bounds (n,n)\n"
58689"b : input rank-2 array('F') with bounds (n,nrhs)\n"
58690"\nOther Parameters\n----------------\n"
58691"fact : input string(len=1), optional\n Default: 'E'\n"
58692"overwrite_a : input int, optional\n Default: 0\n"
58693"af : input rank-2 array('F') with bounds (n,n)\n"
58694"equed : input string(len=1), optional\n Default: 'Y'\n"
58695"s : input rank-1 array('f') with bounds (n)\n"
58696"overwrite_b : input int, optional\n Default: 0\n"
58697"lower : input int, optional\n Default: 0\n"
58698"\nReturns\n-------\n"
58699"a_s : rank-2 array('F') with bounds (n,n) and a storage\n"
58700"lu : rank-2 array('F') with bounds (n,n) and af storage\n"
58701"equed : string(len=1)\n"
58702"s : rank-1 array('f') with bounds (n)\n"
58703"b_s : rank-2 array('F') with bounds (n,nrhs) and b storage\n"
58704"x : rank-2 array('F') with bounds (n,nrhs)\n"
58705"rcond : float\n"
58706"ferr : rank-1 array('f') with bounds (nrhs)\n"
58707"berr : rank-1 array('f') with bounds (nrhs)\n"
58708"info : int";
58709/* extern void F_FUNC(cposvx,CPOSVX)(char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,char*,float*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,float*,complex_float*,float*,F_INT* ); */
58710static PyObject *f2py_rout__flapack_cposvx(const PyObject *capi_self,
58711 PyObject *capi_args,
58712 PyObject *capi_keywds,
58713 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,char*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,float*,complex_float*,float*,F_INTint* )) {
58714 PyObject * volatile capi_buildvalue = NULL((void*)0);
58715 volatile int f2py_success = 1;
58716/*decl*/
58717
58718 string fact = NULL((void*)0);
58719 int slen(fact)capi_fact_len;
58720 PyObject *fact_capi = Py_None(&_Py_NoneStruct);
58721 int n = 0;
58722 int nrhs = 0;
58723 complex_float *a = NULL((void*)0);
58724 npy_intp a_Dims[2] = {-1, -1};
58725 const int a_Rank = 2;
58726 PyArrayObject *capi_a_tmp = NULL((void*)0);
58727 int capi_a_intent = 0;
58728 int capi_overwrite_a = 0;
58729 PyObject *a_capi = Py_None(&_Py_NoneStruct);
58730 int lda = 0;
58731 complex_float *af = NULL((void*)0);
58732 npy_intp af_Dims[2] = {-1, -1};
58733 const int af_Rank = 2;
58734 PyArrayObject *capi_af_tmp = NULL((void*)0);
58735 int capi_af_intent = 0;
58736 PyObject *af_capi = Py_None(&_Py_NoneStruct);
58737 int ldaf = 0;
58738 string equed = NULL((void*)0);
58739 int slen(equed)capi_equed_len;
58740 PyObject *equed_capi = Py_None(&_Py_NoneStruct);
58741 float *s = NULL((void*)0);
58742 npy_intp s_Dims[1] = {-1};
58743 const int s_Rank = 1;
58744 PyArrayObject *capi_s_tmp = NULL((void*)0);
58745 int capi_s_intent = 0;
58746 PyObject *s_capi = Py_None(&_Py_NoneStruct);
58747 complex_float *b = NULL((void*)0);
58748 npy_intp b_Dims[2] = {-1, -1};
58749 const int b_Rank = 2;
58750 PyArrayObject *capi_b_tmp = NULL((void*)0);
58751 int capi_b_intent = 0;
58752 int capi_overwrite_b = 0;
58753 PyObject *b_capi = Py_None(&_Py_NoneStruct);
58754 int ldb = 0;
58755 complex_float *x = NULL((void*)0);
58756 npy_intp x_Dims[2] = {-1, -1};
58757 const int x_Rank = 2;
58758 PyArrayObject *capi_x_tmp = NULL((void*)0);
58759 int capi_x_intent = 0;
58760 int ldx = 0;
58761 float rcond = 0;
58762 float *ferr = NULL((void*)0);
58763 npy_intp ferr_Dims[1] = {-1};
58764 const int ferr_Rank = 1;
58765 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
58766 int capi_ferr_intent = 0;
58767 float *berr = NULL((void*)0);
58768 npy_intp berr_Dims[1] = {-1};
58769 const int berr_Rank = 1;
58770 PyArrayObject *capi_berr_tmp = NULL((void*)0);
58771 int capi_berr_intent = 0;
58772 complex_float *work = NULL((void*)0);
58773 npy_intp work_Dims[1] = {-1};
58774 const int work_Rank = 1;
58775 PyArrayObject *capi_work_tmp = NULL((void*)0);
58776 int capi_work_intent = 0;
58777 float *irwork = NULL((void*)0);
58778 npy_intp irwork_Dims[1] = {-1};
58779 const int irwork_Rank = 1;
58780 PyArrayObject *capi_irwork_tmp = NULL((void*)0);
58781 int capi_irwork_intent = 0;
58782 int info = 0;
58783 int lower = 0;
58784 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
58785 static char *capi_kwlist[] = {"a","b","fact","af","equed","s","lower","overwrite_a","overwrite_b",NULL((void*)0)};
58786
58787/*routdebugenter*/
58788#ifdef F2PY_REPORT_ATEXIT
58789f2py_start_clock();
58790#endif
58791 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
58792 "OO|OOOOOii:_flapack.cposvx",\
58793 capi_kwlist,&a_capi,&b_capi,&fact_capi,&af_capi,&equed_capi,&s_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b))
58794 return NULL((void*)0);
58795/*frompyobj*/
58796 /* Processing variable fact */
58797 slen(fact)capi_fact_len = 1;
58798 f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"E",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.cposvx to C string");
58799 if (f2py_success) {
58800 /* Processing variable lower */
58801 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
58802 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cposvx() 5th keyword (lower) can't be converted to int");
58803 if (f2py_success) {
58804 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","5th keyword lower","cposvx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cposvx:lower=%d", "(""lower==0||lower==1"") failed for "
"5th keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
58805 /* Processing variable a */
58806 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
58807 ;
58808 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
58809 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
58810 if (capi_a_tmp == NULL((void*)0)) {
58811 if (!PyErr_Occurred())
58812 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cposvx to C/Fortran array" );
58813 } else {
58814 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
58815
58816 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
58817 /* Processing variable equed */
58818 slen(equed)capi_equed_len = 1;
58819 f2py_success = string_from_pyobj(&equed,&slen(equed)capi_equed_len,"Y",equed_capi,"string_from_pyobj failed in converting 3rd keyword `equed' of _flapack.cposvx to C string");
58820 if (f2py_success) {
58821 /* Processing variable rcond */
58822 /* Processing variable info */
58823 /* Processing variable n */
58824 n = shape(a,0)a_Dims[0];
58825 /* Processing variable lda */
58826 lda = shape(a,0)a_Dims[0];
58827 /* Processing variable af */
58828 af_Dims[0]=n,af_Dims[1]=n;
58829 capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
58830 capi_af_tmp = array_from_pyobj(NPY_CFLOAT,af_Dims,af_Rank,capi_af_intent,af_capi);
58831 if (capi_af_tmp == NULL((void*)0)) {
58832 if (!PyErr_Occurred())
58833 PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `af' of _flapack.cposvx to C/Fortran array" );
58834 } else {
58835 af = (complex_float *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data));
58836
58837 /* Processing variable ldaf */
58838 ldaf = shape(af,0)af_Dims[0];
58839 /* Processing variable s */
58840 s_Dims[0]=n;
58841 capi_s_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
58842 capi_s_tmp = array_from_pyobj(NPY_FLOAT,s_Dims,s_Rank,capi_s_intent,s_capi);
58843 if (capi_s_tmp == NULL((void*)0)) {
58844 if (!PyErr_Occurred())
58845 PyErr_SetString(_flapack_error,"failed in converting 4th keyword `s' of _flapack.cposvx to C/Fortran array" );
58846 } else {
58847 s = (float *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
58848
58849 /* Processing variable b */
58850 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
58851 b_Dims[0]=n;
58852 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
58853 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
58854 if (capi_b_tmp == NULL((void*)0)) {
58855 if (!PyErr_Occurred())
58856 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cposvx to C/Fortran array" );
58857 } else {
58858 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
58859
58860 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
58861 /* Processing variable ldb */
58862 ldb = shape(b,0)b_Dims[0];
58863 /* Processing variable work */
58864 work_Dims[0]=2 * n;
58865 capi_work_intent |= F2PY_INTENT_HIDE8;
58866 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
58867 if (capi_work_tmp == NULL((void*)0)) {
58868 if (!PyErr_Occurred())
58869 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cposvx to C/Fortran array" );
58870 } else {
58871 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
58872
58873 /* Processing variable irwork */
58874 irwork_Dims[0]=n;
58875 capi_irwork_intent |= F2PY_INTENT_HIDE8;
58876 capi_irwork_tmp = array_from_pyobj(NPY_FLOAT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct));
58877 if (capi_irwork_tmp == NULL((void*)0)) {
58878 if (!PyErr_Occurred())
58879 PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.cposvx to C/Fortran array" );
58880 } else {
58881 irwork = (float *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data
)
);
58882
58883 /* Processing variable nrhs */
58884 nrhs = shape(b,1)b_Dims[1];
58885 /* Processing variable x */
58886 x_Dims[0]=n,x_Dims[1]=nrhs;
58887 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
58888 capi_x_tmp = array_from_pyobj(NPY_CFLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
58889 if (capi_x_tmp == NULL((void*)0)) {
58890 if (!PyErr_Occurred())
58891 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.cposvx to C/Fortran array" );
58892 } else {
58893 x = (complex_float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
58894
58895 /* Processing variable ldx */
58896 ldx = shape(x,0)x_Dims[0];
58897 /* Processing variable ferr */
58898 ferr_Dims[0]=nrhs;
58899 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
58900 capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
58901 if (capi_ferr_tmp == NULL((void*)0)) {
58902 if (!PyErr_Occurred())
58903 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.cposvx to C/Fortran array" );
58904 } else {
58905 ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
58906
58907 /* Processing variable berr */
58908 berr_Dims[0]=nrhs;
58909 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
58910 capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
58911 if (capi_berr_tmp == NULL((void*)0)) {
58912 if (!PyErr_Occurred())
58913 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.cposvx to C/Fortran array" );
58914 } else {
58915 berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
58916
58917/*end of frompyobj*/
58918#ifdef F2PY_REPORT_ATEXIT
58919f2py_start_call_clock();
58920#endif
58921/*callfortranroutine*/
58922 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
58923 (*f2py_func)(fact,(lower?"L":"U"),&n,&nrhs,a,&lda,af,&ldaf,equed,s,b,&ldb,x,&ldx,&rcond,ferr,berr,work,irwork,&info) ;
58924 /*(*f2py_func)(fact,&n,&nrhs,a,&lda,af,&ldaf,equed,s,b,&ldb,x,&ldx,&rcond,ferr,berr,work,irwork,&info,&lower,slen(fact),slen(equed));*/
58925 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
58926if (PyErr_Occurred())
58927 f2py_success = 0;
58928#ifdef F2PY_REPORT_ATEXIT
58929f2py_stop_call_clock();
58930#endif
58931/*end of callfortranroutine*/
58932 if (f2py_success) {
58933/*pyobjfrom*/
58934/*end of pyobjfrom*/
58935 CFUNCSMESS("Building return value.\n");
58936 capi_buildvalue = Py_BuildValue("NNyNNNfNNi",capi_a_tmp,capi_af_tmp,equed,capi_s_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
58937/*closepyobjfrom*/
58938/*end of closepyobjfrom*/
58939 } /*if (f2py_success) after callfortranroutine*/
58940/*cleanupfrompyobj*/
58941 } /*if (capi_berr_tmp == NULL) ... else of berr*/
58942 /* End of cleaning variable berr */
58943 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
58944 /* End of cleaning variable ferr */
58945 /* End of cleaning variable ldx */
58946 } /*if (capi_x_tmp == NULL) ... else of x*/
58947 /* End of cleaning variable x */
58948 /* End of cleaning variable nrhs */
58949 Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp)));
58950 } /*if (capi_irwork_tmp == NULL) ... else of irwork*/
58951 /* End of cleaning variable irwork */
58952 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
58953 } /*if (capi_work_tmp == NULL) ... else of work*/
58954 /* End of cleaning variable work */
58955 /* End of cleaning variable ldb */
58956 } /*CHECKARRAY(shape(b,0)==n)*/
58957 } /*if (capi_b_tmp == NULL) ... else of b*/
58958 /* End of cleaning variable b */
58959 } /*if (capi_s_tmp == NULL) ... else of s*/
58960 /* End of cleaning variable s */
58961 /* End of cleaning variable ldaf */
58962 } /*if (capi_af_tmp == NULL) ... else of af*/
58963 /* End of cleaning variable af */
58964 /* End of cleaning variable lda */
58965 /* End of cleaning variable n */
58966 /* End of cleaning variable info */
58967 /* End of cleaning variable rcond */
58968 STRINGFREE(equed)do {if (!(equed == ((void*)0))) free(equed);} while (0);
58969 } /*if (f2py_success) of equed*/
58970 /* End of cleaning variable equed */
58971 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
58972 } /*if (capi_a_tmp == NULL) ... else of a*/
58973 /* End of cleaning variable a */
58974 } /*CHECKSCALAR(lower==0||lower==1)*/
58975 } /*if (f2py_success) of lower*/
58976 /* End of cleaning variable lower */
58977 STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0);
58978 } /*if (f2py_success) of fact*/
58979 /* End of cleaning variable fact */
58980/*end of cleanupfrompyobj*/
58981 if (capi_buildvalue == NULL((void*)0)) {
58982/*routdebugfailure*/
58983 } else {
58984/*routdebugleave*/
58985 }
58986 CFUNCSMESS("Freeing memory.\n");
58987/*freemem*/
58988#ifdef F2PY_REPORT_ATEXIT
58989f2py_stop_clock();
58990#endif
58991 return capi_buildvalue;
58992}
58993/******************************* end of cposvx *******************************/
58994
58995/*********************************** zposvx ***********************************/
58996static char doc_f2py_rout__flapack_zposvx[] = "\
58997a_s,lu,equed,s,b_s,x,rcond,ferr,berr,info = zposvx(a,b,[fact,af,equed,s,lower,overwrite_a,overwrite_b])\n\nWrapper for ``zposvx``.\
58998\n\nParameters\n----------\n"
58999"a : input rank-2 array('D') with bounds (n,n)\n"
59000"b : input rank-2 array('D') with bounds (n,nrhs)\n"
59001"\nOther Parameters\n----------------\n"
59002"fact : input string(len=1), optional\n Default: 'E'\n"
59003"overwrite_a : input int, optional\n Default: 0\n"
59004"af : input rank-2 array('D') with bounds (n,n)\n"
59005"equed : input string(len=1), optional\n Default: 'Y'\n"
59006"s : input rank-1 array('d') with bounds (n)\n"
59007"overwrite_b : input int, optional\n Default: 0\n"
59008"lower : input int, optional\n Default: 0\n"
59009"\nReturns\n-------\n"
59010"a_s : rank-2 array('D') with bounds (n,n) and a storage\n"
59011"lu : rank-2 array('D') with bounds (n,n) and af storage\n"
59012"equed : string(len=1)\n"
59013"s : rank-1 array('d') with bounds (n)\n"
59014"b_s : rank-2 array('D') with bounds (n,nrhs) and b storage\n"
59015"x : rank-2 array('D') with bounds (n,nrhs)\n"
59016"rcond : float\n"
59017"ferr : rank-1 array('d') with bounds (nrhs)\n"
59018"berr : rank-1 array('d') with bounds (nrhs)\n"
59019"info : int";
59020/* extern void F_FUNC(zposvx,ZPOSVX)(char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,char*,double*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,double*,complex_double*,double*,F_INT* ); */
59021static PyObject *f2py_rout__flapack_zposvx(const PyObject *capi_self,
59022 PyObject *capi_args,
59023 PyObject *capi_keywds,
59024 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,char*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,double*,complex_double*,double*,F_INTint* )) {
59025 PyObject * volatile capi_buildvalue = NULL((void*)0);
59026 volatile int f2py_success = 1;
59027/*decl*/
59028
59029 string fact = NULL((void*)0);
59030 int slen(fact)capi_fact_len;
59031 PyObject *fact_capi = Py_None(&_Py_NoneStruct);
59032 int n = 0;
59033 int nrhs = 0;
59034 complex_double *a = NULL((void*)0);
59035 npy_intp a_Dims[2] = {-1, -1};
59036 const int a_Rank = 2;
59037 PyArrayObject *capi_a_tmp = NULL((void*)0);
59038 int capi_a_intent = 0;
59039 int capi_overwrite_a = 0;
59040 PyObject *a_capi = Py_None(&_Py_NoneStruct);
59041 int lda = 0;
59042 complex_double *af = NULL((void*)0);
59043 npy_intp af_Dims[2] = {-1, -1};
59044 const int af_Rank = 2;
59045 PyArrayObject *capi_af_tmp = NULL((void*)0);
59046 int capi_af_intent = 0;
59047 PyObject *af_capi = Py_None(&_Py_NoneStruct);
59048 int ldaf = 0;
59049 string equed = NULL((void*)0);
59050 int slen(equed)capi_equed_len;
59051 PyObject *equed_capi = Py_None(&_Py_NoneStruct);
59052 double *s = NULL((void*)0);
59053 npy_intp s_Dims[1] = {-1};
59054 const int s_Rank = 1;
59055 PyArrayObject *capi_s_tmp = NULL((void*)0);
59056 int capi_s_intent = 0;
59057 PyObject *s_capi = Py_None(&_Py_NoneStruct);
59058 complex_double *b = NULL((void*)0);
59059 npy_intp b_Dims[2] = {-1, -1};
59060 const int b_Rank = 2;
59061 PyArrayObject *capi_b_tmp = NULL((void*)0);
59062 int capi_b_intent = 0;
59063 int capi_overwrite_b = 0;
59064 PyObject *b_capi = Py_None(&_Py_NoneStruct);
59065 int ldb = 0;
59066 complex_double *x = NULL((void*)0);
59067 npy_intp x_Dims[2] = {-1, -1};
59068 const int x_Rank = 2;
59069 PyArrayObject *capi_x_tmp = NULL((void*)0);
59070 int capi_x_intent = 0;
59071 int ldx = 0;
59072 double rcond = 0;
59073 double *ferr = NULL((void*)0);
59074 npy_intp ferr_Dims[1] = {-1};
59075 const int ferr_Rank = 1;
59076 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
59077 int capi_ferr_intent = 0;
59078 double *berr = NULL((void*)0);
59079 npy_intp berr_Dims[1] = {-1};
59080 const int berr_Rank = 1;
59081 PyArrayObject *capi_berr_tmp = NULL((void*)0);
59082 int capi_berr_intent = 0;
59083 complex_double *work = NULL((void*)0);
59084 npy_intp work_Dims[1] = {-1};
59085 const int work_Rank = 1;
59086 PyArrayObject *capi_work_tmp = NULL((void*)0);
59087 int capi_work_intent = 0;
59088 double *irwork = NULL((void*)0);
59089 npy_intp irwork_Dims[1] = {-1};
59090 const int irwork_Rank = 1;
59091 PyArrayObject *capi_irwork_tmp = NULL((void*)0);
59092 int capi_irwork_intent = 0;
59093 int info = 0;
59094 int lower = 0;
59095 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
59096 static char *capi_kwlist[] = {"a","b","fact","af","equed","s","lower","overwrite_a","overwrite_b",NULL((void*)0)};
59097
59098/*routdebugenter*/
59099#ifdef F2PY_REPORT_ATEXIT
59100f2py_start_clock();
59101#endif
59102 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
59103 "OO|OOOOOii:_flapack.zposvx",\
59104 capi_kwlist,&a_capi,&b_capi,&fact_capi,&af_capi,&equed_capi,&s_capi,&lower_capi,&capi_overwrite_a,&capi_overwrite_b))
59105 return NULL((void*)0);
59106/*frompyobj*/
59107 /* Processing variable fact */
59108 slen(fact)capi_fact_len = 1;
59109 f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"E",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.zposvx to C string");
59110 if (f2py_success) {
59111 /* Processing variable lower */
59112 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
59113 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zposvx() 5th keyword (lower) can't be converted to int");
59114 if (f2py_success) {
59115 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","5th keyword lower","zposvx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zposvx:lower=%d", "(""lower==0||lower==1"") failed for "
"5th keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
59116 /* Processing variable a */
59117 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
59118 ;
59119 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
59120 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
59121 if (capi_a_tmp == NULL((void*)0)) {
59122 if (!PyErr_Occurred())
59123 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zposvx to C/Fortran array" );
59124 } else {
59125 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
59126
59127 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
59128 /* Processing variable equed */
59129 slen(equed)capi_equed_len = 1;
59130 f2py_success = string_from_pyobj(&equed,&slen(equed)capi_equed_len,"Y",equed_capi,"string_from_pyobj failed in converting 3rd keyword `equed' of _flapack.zposvx to C string");
59131 if (f2py_success) {
59132 /* Processing variable rcond */
59133 /* Processing variable info */
59134 /* Processing variable n */
59135 n = shape(a,0)a_Dims[0];
59136 /* Processing variable lda */
59137 lda = shape(a,0)a_Dims[0];
59138 /* Processing variable af */
59139 af_Dims[0]=n,af_Dims[1]=n;
59140 capi_af_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
59141 capi_af_tmp = array_from_pyobj(NPY_CDOUBLE,af_Dims,af_Rank,capi_af_intent,af_capi);
59142 if (capi_af_tmp == NULL((void*)0)) {
59143 if (!PyErr_Occurred())
59144 PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `af' of _flapack.zposvx to C/Fortran array" );
59145 } else {
59146 af = (complex_double *)(PyArray_DATA(capi_af_tmp)((void *)((PyArrayObject_fields *)(capi_af_tmp))->data));
59147
59148 /* Processing variable ldaf */
59149 ldaf = shape(af,0)af_Dims[0];
59150 /* Processing variable s */
59151 s_Dims[0]=n;
59152 capi_s_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
59153 capi_s_tmp = array_from_pyobj(NPY_DOUBLE,s_Dims,s_Rank,capi_s_intent,s_capi);
59154 if (capi_s_tmp == NULL((void*)0)) {
59155 if (!PyErr_Occurred())
59156 PyErr_SetString(_flapack_error,"failed in converting 4th keyword `s' of _flapack.zposvx to C/Fortran array" );
59157 } else {
59158 s = (double *)(PyArray_DATA(capi_s_tmp)((void *)((PyArrayObject_fields *)(capi_s_tmp))->data));
59159
59160 /* Processing variable b */
59161 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
59162 b_Dims[0]=n;
59163 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
59164 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
59165 if (capi_b_tmp == NULL((void*)0)) {
59166 if (!PyErr_Occurred())
59167 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zposvx to C/Fortran array" );
59168 } else {
59169 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
59170
59171 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","2nd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""2nd argument b"); } else
{
59172 /* Processing variable ldb */
59173 ldb = shape(b,0)b_Dims[0];
59174 /* Processing variable work */
59175 work_Dims[0]=2 * n;
59176 capi_work_intent |= F2PY_INTENT_HIDE8;
59177 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
59178 if (capi_work_tmp == NULL((void*)0)) {
59179 if (!PyErr_Occurred())
59180 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zposvx to C/Fortran array" );
59181 } else {
59182 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
59183
59184 /* Processing variable irwork */
59185 irwork_Dims[0]=n;
59186 capi_irwork_intent |= F2PY_INTENT_HIDE8;
59187 capi_irwork_tmp = array_from_pyobj(NPY_DOUBLE,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct));
59188 if (capi_irwork_tmp == NULL((void*)0)) {
59189 if (!PyErr_Occurred())
59190 PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.zposvx to C/Fortran array" );
59191 } else {
59192 irwork = (double *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data
)
);
59193
59194 /* Processing variable nrhs */
59195 nrhs = shape(b,1)b_Dims[1];
59196 /* Processing variable x */
59197 x_Dims[0]=n,x_Dims[1]=nrhs;
59198 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
59199 capi_x_tmp = array_from_pyobj(NPY_CDOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
59200 if (capi_x_tmp == NULL((void*)0)) {
59201 if (!PyErr_Occurred())
59202 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.zposvx to C/Fortran array" );
59203 } else {
59204 x = (complex_double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
59205
59206 /* Processing variable ldx */
59207 ldx = shape(x,0)x_Dims[0];
59208 /* Processing variable ferr */
59209 ferr_Dims[0]=nrhs;
59210 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
59211 capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
59212 if (capi_ferr_tmp == NULL((void*)0)) {
59213 if (!PyErr_Occurred())
59214 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.zposvx to C/Fortran array" );
59215 } else {
59216 ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
59217
59218 /* Processing variable berr */
59219 berr_Dims[0]=nrhs;
59220 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
59221 capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
59222 if (capi_berr_tmp == NULL((void*)0)) {
59223 if (!PyErr_Occurred())
59224 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.zposvx to C/Fortran array" );
59225 } else {
59226 berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
59227
59228/*end of frompyobj*/
59229#ifdef F2PY_REPORT_ATEXIT
59230f2py_start_call_clock();
59231#endif
59232/*callfortranroutine*/
59233 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
59234 (*f2py_func)(fact,(lower?"L":"U"),&n,&nrhs,a,&lda,af,&ldaf,equed,s,b,&ldb,x,&ldx,&rcond,ferr,berr,work,irwork,&info) ;
59235 /*(*f2py_func)(fact,&n,&nrhs,a,&lda,af,&ldaf,equed,s,b,&ldb,x,&ldx,&rcond,ferr,berr,work,irwork,&info,&lower,slen(fact),slen(equed));*/
59236 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
59237if (PyErr_Occurred())
59238 f2py_success = 0;
59239#ifdef F2PY_REPORT_ATEXIT
59240f2py_stop_call_clock();
59241#endif
59242/*end of callfortranroutine*/
59243 if (f2py_success) {
59244/*pyobjfrom*/
59245/*end of pyobjfrom*/
59246 CFUNCSMESS("Building return value.\n");
59247 capi_buildvalue = Py_BuildValue("NNyNNNdNNi",capi_a_tmp,capi_af_tmp,equed,capi_s_tmp,capi_b_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
59248/*closepyobjfrom*/
59249/*end of closepyobjfrom*/
59250 } /*if (f2py_success) after callfortranroutine*/
59251/*cleanupfrompyobj*/
59252 } /*if (capi_berr_tmp == NULL) ... else of berr*/
59253 /* End of cleaning variable berr */
59254 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
59255 /* End of cleaning variable ferr */
59256 /* End of cleaning variable ldx */
59257 } /*if (capi_x_tmp == NULL) ... else of x*/
59258 /* End of cleaning variable x */
59259 /* End of cleaning variable nrhs */
59260 Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp)));
59261 } /*if (capi_irwork_tmp == NULL) ... else of irwork*/
59262 /* End of cleaning variable irwork */
59263 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
59264 } /*if (capi_work_tmp == NULL) ... else of work*/
59265 /* End of cleaning variable work */
59266 /* End of cleaning variable ldb */
59267 } /*CHECKARRAY(shape(b,0)==n)*/
59268 } /*if (capi_b_tmp == NULL) ... else of b*/
59269 /* End of cleaning variable b */
59270 } /*if (capi_s_tmp == NULL) ... else of s*/
59271 /* End of cleaning variable s */
59272 /* End of cleaning variable ldaf */
59273 } /*if (capi_af_tmp == NULL) ... else of af*/
59274 /* End of cleaning variable af */
59275 /* End of cleaning variable lda */
59276 /* End of cleaning variable n */
59277 /* End of cleaning variable info */
59278 /* End of cleaning variable rcond */
59279 STRINGFREE(equed)do {if (!(equed == ((void*)0))) free(equed);} while (0);
59280 } /*if (f2py_success) of equed*/
59281 /* End of cleaning variable equed */
59282 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
59283 } /*if (capi_a_tmp == NULL) ... else of a*/
59284 /* End of cleaning variable a */
59285 } /*CHECKSCALAR(lower==0||lower==1)*/
59286 } /*if (f2py_success) of lower*/
59287 /* End of cleaning variable lower */
59288 STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0);
59289 } /*if (f2py_success) of fact*/
59290 /* End of cleaning variable fact */
59291/*end of cleanupfrompyobj*/
59292 if (capi_buildvalue == NULL((void*)0)) {
59293/*routdebugfailure*/
59294 } else {
59295/*routdebugleave*/
59296 }
59297 CFUNCSMESS("Freeing memory.\n");
59298/*freemem*/
59299#ifdef F2PY_REPORT_ATEXIT
59300f2py_stop_clock();
59301#endif
59302 return capi_buildvalue;
59303}
59304/******************************* end of zposvx *******************************/
59305
59306/*********************************** spocon ***********************************/
59307static char doc_f2py_rout__flapack_spocon[] = "\
59308rcond,info = spocon(a,anorm,[uplo])\n\nWrapper for ``spocon``.\
59309\n\nParameters\n----------\n"
59310"a : input rank-2 array('f') with bounds (n,n)\n"
59311"anorm : input float\n"
59312"\nOther Parameters\n----------------\n"
59313"uplo : input string(len=1), optional\n Default: 'U'\n"
59314"\nReturns\n-------\n"
59315"rcond : float\n"
59316"info : int";
59317/* extern void F_FUNC(spocon,SPOCON)(char*,F_INT*,float*,F_INT*,float*,float*,float*,F_INT*,F_INT* ); */
59318static PyObject *f2py_rout__flapack_spocon(const PyObject *capi_self,
59319 PyObject *capi_args,
59320 PyObject *capi_keywds,
59321 void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,float*,float*,float*,F_INTint*,F_INTint* )) {
59322 PyObject * volatile capi_buildvalue = NULL((void*)0);
59323 volatile int f2py_success = 1;
59324/*decl*/
59325
59326 string uplo = NULL((void*)0);
59327 int slen(uplo)capi_uplo_len;
59328 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
59329 int n = 0;
59330 float *a = NULL((void*)0);
59331 npy_intp a_Dims[2] = {-1, -1};
59332 const int a_Rank = 2;
59333 PyArrayObject *capi_a_tmp = NULL((void*)0);
59334 int capi_a_intent = 0;
59335 PyObject *a_capi = Py_None(&_Py_NoneStruct);
59336 int lda = 0;
59337 float anorm = 0;
59338 PyObject *anorm_capi = Py_None(&_Py_NoneStruct);
59339 float rcond = 0;
59340 float *work = NULL((void*)0);
59341 npy_intp work_Dims[1] = {-1};
59342 const int work_Rank = 1;
59343 PyArrayObject *capi_work_tmp = NULL((void*)0);
59344 int capi_work_intent = 0;
59345 int *irwork = NULL((void*)0);
59346 npy_intp irwork_Dims[1] = {-1};
59347 const int irwork_Rank = 1;
59348 PyArrayObject *capi_irwork_tmp = NULL((void*)0);
59349 int capi_irwork_intent = 0;
59350 int info = 0;
59351 static char *capi_kwlist[] = {"a","anorm","uplo",NULL((void*)0)};
59352
59353/*routdebugenter*/
59354#ifdef F2PY_REPORT_ATEXIT
59355f2py_start_clock();
59356#endif
59357 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
59358 "OO|O:_flapack.spocon",\
59359 capi_kwlist,&a_capi,&anorm_capi,&uplo_capi))
59360 return NULL((void*)0);
59361/*frompyobj*/
59362 /* Processing variable uplo */
59363 slen(uplo)capi_uplo_len = 1;
59364 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.spocon to C string");
59365 if (f2py_success) {
59366 /* Processing variable a */
59367 ;
59368 capi_a_intent |= F2PY_INTENT_IN1;
59369 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
59370 if (capi_a_tmp == NULL((void*)0)) {
59371 if (!PyErr_Occurred())
59372 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.spocon to C/Fortran array" );
59373 } else {
59374 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
59375
59376 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
59377 /* Processing variable anorm */
59378 f2py_success = float_from_pyobj(&anorm,anorm_capi,"_flapack.spocon() 2nd argument (anorm) can't be converted to float");
59379 if (f2py_success) {
59380 /* Processing variable rcond */
59381 /* Processing variable info */
59382 /* Processing variable n */
59383 n = shape(a,0)a_Dims[0];
59384 /* Processing variable lda */
59385 lda = shape(a,0)a_Dims[0];
59386 /* Processing variable work */
59387 work_Dims[0]=3 * n;
59388 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
59389 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
59390 if (capi_work_tmp == NULL((void*)0)) {
59391 if (!PyErr_Occurred())
59392 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.spocon to C/Fortran array" );
59393 } else {
59394 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
59395
59396 /* Processing variable irwork */
59397 irwork_Dims[0]=n;
59398 capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
59399 capi_irwork_tmp = array_from_pyobj(NPY_INT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct));
59400 if (capi_irwork_tmp == NULL((void*)0)) {
59401 if (!PyErr_Occurred())
59402 PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.spocon to C/Fortran array" );
59403 } else {
59404 irwork = (int *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data
)
);
59405
59406/*end of frompyobj*/
59407#ifdef F2PY_REPORT_ATEXIT
59408f2py_start_call_clock();
59409#endif
59410/*callfortranroutine*/
59411 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
59412 (*f2py_func)(uplo,&n,a,&lda,&anorm,&rcond,work,irwork,&info) ;
59413 /*(*f2py_func)(uplo,&n,a,&lda,&anorm,&rcond,work,irwork,&info,slen(uplo));*/
59414 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
59415if (PyErr_Occurred())
59416 f2py_success = 0;
59417#ifdef F2PY_REPORT_ATEXIT
59418f2py_stop_call_clock();
59419#endif
59420/*end of callfortranroutine*/
59421 if (f2py_success) {
59422/*pyobjfrom*/
59423/*end of pyobjfrom*/
59424 CFUNCSMESS("Building return value.\n");
59425 capi_buildvalue = Py_BuildValue("fi",rcond,info);
59426/*closepyobjfrom*/
59427/*end of closepyobjfrom*/
59428 } /*if (f2py_success) after callfortranroutine*/
59429/*cleanupfrompyobj*/
59430 Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp)));
59431 } /*if (capi_irwork_tmp == NULL) ... else of irwork*/
59432 /* End of cleaning variable irwork */
59433 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
59434 } /*if (capi_work_tmp == NULL) ... else of work*/
59435 /* End of cleaning variable work */
59436 /* End of cleaning variable lda */
59437 /* End of cleaning variable n */
59438 /* End of cleaning variable info */
59439 /* End of cleaning variable rcond */
59440 } /*if (f2py_success) of anorm*/
59441 /* End of cleaning variable anorm */
59442 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
59443 if((PyObject *)capi_a_tmp!=a_capi) {
59444 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
59445 } /*if (capi_a_tmp == NULL) ... else of a*/
59446 /* End of cleaning variable a */
59447 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
59448 } /*if (f2py_success) of uplo*/
59449 /* End of cleaning variable uplo */
59450/*end of cleanupfrompyobj*/
59451 if (capi_buildvalue == NULL((void*)0)) {
59452/*routdebugfailure*/
59453 } else {
59454/*routdebugleave*/
59455 }
59456 CFUNCSMESS("Freeing memory.\n");
59457/*freemem*/
59458#ifdef F2PY_REPORT_ATEXIT
59459f2py_stop_clock();
59460#endif
59461 return capi_buildvalue;
59462}
59463/******************************* end of spocon *******************************/
59464
59465/*********************************** dpocon ***********************************/
59466static char doc_f2py_rout__flapack_dpocon[] = "\
59467rcond,info = dpocon(a,anorm,[uplo])\n\nWrapper for ``dpocon``.\
59468\n\nParameters\n----------\n"
59469"a : input rank-2 array('d') with bounds (n,n)\n"
59470"anorm : input float\n"
59471"\nOther Parameters\n----------------\n"
59472"uplo : input string(len=1), optional\n Default: 'U'\n"
59473"\nReturns\n-------\n"
59474"rcond : float\n"
59475"info : int";
59476/* extern void F_FUNC(dpocon,DPOCON)(char*,F_INT*,double*,F_INT*,double*,double*,double*,F_INT*,F_INT* ); */
59477static PyObject *f2py_rout__flapack_dpocon(const PyObject *capi_self,
59478 PyObject *capi_args,
59479 PyObject *capi_keywds,
59480 void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,double*,double*,double*,F_INTint*,F_INTint* )) {
59481 PyObject * volatile capi_buildvalue = NULL((void*)0);
59482 volatile int f2py_success = 1;
59483/*decl*/
59484
59485 string uplo = NULL((void*)0);
59486 int slen(uplo)capi_uplo_len;
59487 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
59488 int n = 0;
59489 double *a = NULL((void*)0);
59490 npy_intp a_Dims[2] = {-1, -1};
59491 const int a_Rank = 2;
59492 PyArrayObject *capi_a_tmp = NULL((void*)0);
59493 int capi_a_intent = 0;
59494 PyObject *a_capi = Py_None(&_Py_NoneStruct);
59495 int lda = 0;
59496 double anorm = 0;
59497 PyObject *anorm_capi = Py_None(&_Py_NoneStruct);
59498 double rcond = 0;
59499 double *work = NULL((void*)0);
59500 npy_intp work_Dims[1] = {-1};
59501 const int work_Rank = 1;
59502 PyArrayObject *capi_work_tmp = NULL((void*)0);
59503 int capi_work_intent = 0;
59504 int *irwork = NULL((void*)0);
59505 npy_intp irwork_Dims[1] = {-1};
59506 const int irwork_Rank = 1;
59507 PyArrayObject *capi_irwork_tmp = NULL((void*)0);
59508 int capi_irwork_intent = 0;
59509 int info = 0;
59510 static char *capi_kwlist[] = {"a","anorm","uplo",NULL((void*)0)};
59511
59512/*routdebugenter*/
59513#ifdef F2PY_REPORT_ATEXIT
59514f2py_start_clock();
59515#endif
59516 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
59517 "OO|O:_flapack.dpocon",\
59518 capi_kwlist,&a_capi,&anorm_capi,&uplo_capi))
59519 return NULL((void*)0);
59520/*frompyobj*/
59521 /* Processing variable uplo */
59522 slen(uplo)capi_uplo_len = 1;
59523 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.dpocon to C string");
59524 if (f2py_success) {
59525 /* Processing variable a */
59526 ;
59527 capi_a_intent |= F2PY_INTENT_IN1;
59528 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
59529 if (capi_a_tmp == NULL((void*)0)) {
59530 if (!PyErr_Occurred())
59531 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dpocon to C/Fortran array" );
59532 } else {
59533 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
59534
59535 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
59536 /* Processing variable anorm */
59537 f2py_success = double_from_pyobj(&anorm,anorm_capi,"_flapack.dpocon() 2nd argument (anorm) can't be converted to double");
59538 if (f2py_success) {
59539 /* Processing variable rcond */
59540 /* Processing variable info */
59541 /* Processing variable n */
59542 n = shape(a,0)a_Dims[0];
59543 /* Processing variable lda */
59544 lda = shape(a,0)a_Dims[0];
59545 /* Processing variable work */
59546 work_Dims[0]=3 * n;
59547 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
59548 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
59549 if (capi_work_tmp == NULL((void*)0)) {
59550 if (!PyErr_Occurred())
59551 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dpocon to C/Fortran array" );
59552 } else {
59553 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
59554
59555 /* Processing variable irwork */
59556 irwork_Dims[0]=n;
59557 capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
59558 capi_irwork_tmp = array_from_pyobj(NPY_INT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct));
59559 if (capi_irwork_tmp == NULL((void*)0)) {
59560 if (!PyErr_Occurred())
59561 PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.dpocon to C/Fortran array" );
59562 } else {
59563 irwork = (int *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data
)
);
59564
59565/*end of frompyobj*/
59566#ifdef F2PY_REPORT_ATEXIT
59567f2py_start_call_clock();
59568#endif
59569/*callfortranroutine*/
59570 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
59571 (*f2py_func)(uplo,&n,a,&lda,&anorm,&rcond,work,irwork,&info) ;
59572 /*(*f2py_func)(uplo,&n,a,&lda,&anorm,&rcond,work,irwork,&info,slen(uplo));*/
59573 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
59574if (PyErr_Occurred())
59575 f2py_success = 0;
59576#ifdef F2PY_REPORT_ATEXIT
59577f2py_stop_call_clock();
59578#endif
59579/*end of callfortranroutine*/
59580 if (f2py_success) {
59581/*pyobjfrom*/
59582/*end of pyobjfrom*/
59583 CFUNCSMESS("Building return value.\n");
59584 capi_buildvalue = Py_BuildValue("di",rcond,info);
59585/*closepyobjfrom*/
59586/*end of closepyobjfrom*/
59587 } /*if (f2py_success) after callfortranroutine*/
59588/*cleanupfrompyobj*/
59589 Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp)));
59590 } /*if (capi_irwork_tmp == NULL) ... else of irwork*/
59591 /* End of cleaning variable irwork */
59592 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
59593 } /*if (capi_work_tmp == NULL) ... else of work*/
59594 /* End of cleaning variable work */
59595 /* End of cleaning variable lda */
59596 /* End of cleaning variable n */
59597 /* End of cleaning variable info */
59598 /* End of cleaning variable rcond */
59599 } /*if (f2py_success) of anorm*/
59600 /* End of cleaning variable anorm */
59601 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
59602 if((PyObject *)capi_a_tmp!=a_capi) {
59603 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
59604 } /*if (capi_a_tmp == NULL) ... else of a*/
59605 /* End of cleaning variable a */
59606 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
59607 } /*if (f2py_success) of uplo*/
59608 /* End of cleaning variable uplo */
59609/*end of cleanupfrompyobj*/
59610 if (capi_buildvalue == NULL((void*)0)) {
59611/*routdebugfailure*/
59612 } else {
59613/*routdebugleave*/
59614 }
59615 CFUNCSMESS("Freeing memory.\n");
59616/*freemem*/
59617#ifdef F2PY_REPORT_ATEXIT
59618f2py_stop_clock();
59619#endif
59620 return capi_buildvalue;
59621}
59622/******************************* end of dpocon *******************************/
59623
59624/*********************************** cpocon ***********************************/
59625static char doc_f2py_rout__flapack_cpocon[] = "\
59626rcond,info = cpocon(a,anorm,[uplo])\n\nWrapper for ``cpocon``.\
59627\n\nParameters\n----------\n"
59628"a : input rank-2 array('F') with bounds (n,n)\n"
59629"anorm : input float\n"
59630"\nOther Parameters\n----------------\n"
59631"uplo : input string(len=1), optional\n Default: 'U'\n"
59632"\nReturns\n-------\n"
59633"rcond : float\n"
59634"info : int";
59635/* extern void F_FUNC(cpocon,CPOCON)(char*,F_INT*,complex_float*,F_INT*,float*,float*,complex_float*,float*,F_INT* ); */
59636static PyObject *f2py_rout__flapack_cpocon(const PyObject *capi_self,
59637 PyObject *capi_args,
59638 PyObject *capi_keywds,
59639 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,float*,float*,complex_float*,float*,F_INTint* )) {
59640 PyObject * volatile capi_buildvalue = NULL((void*)0);
59641 volatile int f2py_success = 1;
59642/*decl*/
59643
59644 string uplo = NULL((void*)0);
59645 int slen(uplo)capi_uplo_len;
59646 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
59647 int n = 0;
59648 complex_float *a = NULL((void*)0);
59649 npy_intp a_Dims[2] = {-1, -1};
59650 const int a_Rank = 2;
59651 PyArrayObject *capi_a_tmp = NULL((void*)0);
59652 int capi_a_intent = 0;
59653 PyObject *a_capi = Py_None(&_Py_NoneStruct);
59654 int lda = 0;
59655 float anorm = 0;
59656 PyObject *anorm_capi = Py_None(&_Py_NoneStruct);
59657 float rcond = 0;
59658 complex_float *work = NULL((void*)0);
59659 npy_intp work_Dims[1] = {-1};
59660 const int work_Rank = 1;
59661 PyArrayObject *capi_work_tmp = NULL((void*)0);
59662 int capi_work_intent = 0;
59663 float *irwork = NULL((void*)0);
59664 npy_intp irwork_Dims[1] = {-1};
59665 const int irwork_Rank = 1;
59666 PyArrayObject *capi_irwork_tmp = NULL((void*)0);
59667 int capi_irwork_intent = 0;
59668 int info = 0;
59669 static char *capi_kwlist[] = {"a","anorm","uplo",NULL((void*)0)};
59670
59671/*routdebugenter*/
59672#ifdef F2PY_REPORT_ATEXIT
59673f2py_start_clock();
59674#endif
59675 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
59676 "OO|O:_flapack.cpocon",\
59677 capi_kwlist,&a_capi,&anorm_capi,&uplo_capi))
59678 return NULL((void*)0);
59679/*frompyobj*/
59680 /* Processing variable uplo */
59681 slen(uplo)capi_uplo_len = 1;
59682 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.cpocon to C string");
59683 if (f2py_success) {
59684 /* Processing variable a */
59685 ;
59686 capi_a_intent |= F2PY_INTENT_IN1;
59687 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
59688 if (capi_a_tmp == NULL((void*)0)) {
59689 if (!PyErr_Occurred())
59690 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cpocon to C/Fortran array" );
59691 } else {
59692 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
59693
59694 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
59695 /* Processing variable anorm */
59696 f2py_success = float_from_pyobj(&anorm,anorm_capi,"_flapack.cpocon() 2nd argument (anorm) can't be converted to float");
59697 if (f2py_success) {
59698 /* Processing variable rcond */
59699 /* Processing variable info */
59700 /* Processing variable n */
59701 n = shape(a,0)a_Dims[0];
59702 /* Processing variable lda */
59703 lda = shape(a,0)a_Dims[0];
59704 /* Processing variable work */
59705 work_Dims[0]=2 * n;
59706 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
59707 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
59708 if (capi_work_tmp == NULL((void*)0)) {
59709 if (!PyErr_Occurred())
59710 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cpocon to C/Fortran array" );
59711 } else {
59712 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
59713
59714 /* Processing variable irwork */
59715 irwork_Dims[0]=n;
59716 capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
59717 capi_irwork_tmp = array_from_pyobj(NPY_FLOAT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct));
59718 if (capi_irwork_tmp == NULL((void*)0)) {
59719 if (!PyErr_Occurred())
59720 PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.cpocon to C/Fortran array" );
59721 } else {
59722 irwork = (float *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data
)
);
59723
59724/*end of frompyobj*/
59725#ifdef F2PY_REPORT_ATEXIT
59726f2py_start_call_clock();
59727#endif
59728/*callfortranroutine*/
59729 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
59730 (*f2py_func)(uplo,&n,a,&lda,&anorm,&rcond,work,irwork,&info) ;
59731 /*(*f2py_func)(uplo,&n,a,&lda,&anorm,&rcond,work,irwork,&info,slen(uplo));*/
59732 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
59733if (PyErr_Occurred())
59734 f2py_success = 0;
59735#ifdef F2PY_REPORT_ATEXIT
59736f2py_stop_call_clock();
59737#endif
59738/*end of callfortranroutine*/
59739 if (f2py_success) {
59740/*pyobjfrom*/
59741/*end of pyobjfrom*/
59742 CFUNCSMESS("Building return value.\n");
59743 capi_buildvalue = Py_BuildValue("fi",rcond,info);
59744/*closepyobjfrom*/
59745/*end of closepyobjfrom*/
59746 } /*if (f2py_success) after callfortranroutine*/
59747/*cleanupfrompyobj*/
59748 Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp)));
59749 } /*if (capi_irwork_tmp == NULL) ... else of irwork*/
59750 /* End of cleaning variable irwork */
59751 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
59752 } /*if (capi_work_tmp == NULL) ... else of work*/
59753 /* End of cleaning variable work */
59754 /* End of cleaning variable lda */
59755 /* End of cleaning variable n */
59756 /* End of cleaning variable info */
59757 /* End of cleaning variable rcond */
59758 } /*if (f2py_success) of anorm*/
59759 /* End of cleaning variable anorm */
59760 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
59761 if((PyObject *)capi_a_tmp!=a_capi) {
59762 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
59763 } /*if (capi_a_tmp == NULL) ... else of a*/
59764 /* End of cleaning variable a */
59765 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
59766 } /*if (f2py_success) of uplo*/
59767 /* End of cleaning variable uplo */
59768/*end of cleanupfrompyobj*/
59769 if (capi_buildvalue == NULL((void*)0)) {
59770/*routdebugfailure*/
59771 } else {
59772/*routdebugleave*/
59773 }
59774 CFUNCSMESS("Freeing memory.\n");
59775/*freemem*/
59776#ifdef F2PY_REPORT_ATEXIT
59777f2py_stop_clock();
59778#endif
59779 return capi_buildvalue;
59780}
59781/******************************* end of cpocon *******************************/
59782
59783/*********************************** zpocon ***********************************/
59784static char doc_f2py_rout__flapack_zpocon[] = "\
59785rcond,info = zpocon(a,anorm,[uplo])\n\nWrapper for ``zpocon``.\
59786\n\nParameters\n----------\n"
59787"a : input rank-2 array('D') with bounds (n,n)\n"
59788"anorm : input float\n"
59789"\nOther Parameters\n----------------\n"
59790"uplo : input string(len=1), optional\n Default: 'U'\n"
59791"\nReturns\n-------\n"
59792"rcond : float\n"
59793"info : int";
59794/* extern void F_FUNC(zpocon,ZPOCON)(char*,F_INT*,complex_double*,F_INT*,double*,double*,complex_double*,double*,F_INT* ); */
59795static PyObject *f2py_rout__flapack_zpocon(const PyObject *capi_self,
59796 PyObject *capi_args,
59797 PyObject *capi_keywds,
59798 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,double*,double*,complex_double*,double*,F_INTint* )) {
59799 PyObject * volatile capi_buildvalue = NULL((void*)0);
59800 volatile int f2py_success = 1;
59801/*decl*/
59802
59803 string uplo = NULL((void*)0);
59804 int slen(uplo)capi_uplo_len;
59805 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
59806 int n = 0;
59807 complex_double *a = NULL((void*)0);
59808 npy_intp a_Dims[2] = {-1, -1};
59809 const int a_Rank = 2;
59810 PyArrayObject *capi_a_tmp = NULL((void*)0);
59811 int capi_a_intent = 0;
59812 PyObject *a_capi = Py_None(&_Py_NoneStruct);
59813 int lda = 0;
59814 double anorm = 0;
59815 PyObject *anorm_capi = Py_None(&_Py_NoneStruct);
59816 double rcond = 0;
59817 complex_double *work = NULL((void*)0);
59818 npy_intp work_Dims[1] = {-1};
59819 const int work_Rank = 1;
59820 PyArrayObject *capi_work_tmp = NULL((void*)0);
59821 int capi_work_intent = 0;
59822 double *irwork = NULL((void*)0);
59823 npy_intp irwork_Dims[1] = {-1};
59824 const int irwork_Rank = 1;
59825 PyArrayObject *capi_irwork_tmp = NULL((void*)0);
59826 int capi_irwork_intent = 0;
59827 int info = 0;
59828 static char *capi_kwlist[] = {"a","anorm","uplo",NULL((void*)0)};
59829
59830/*routdebugenter*/
59831#ifdef F2PY_REPORT_ATEXIT
59832f2py_start_clock();
59833#endif
59834 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
59835 "OO|O:_flapack.zpocon",\
59836 capi_kwlist,&a_capi,&anorm_capi,&uplo_capi))
59837 return NULL((void*)0);
59838/*frompyobj*/
59839 /* Processing variable uplo */
59840 slen(uplo)capi_uplo_len = 1;
59841 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.zpocon to C string");
59842 if (f2py_success) {
59843 /* Processing variable a */
59844 ;
59845 capi_a_intent |= F2PY_INTENT_IN1;
59846 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
59847 if (capi_a_tmp == NULL((void*)0)) {
59848 if (!PyErr_Occurred())
59849 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zpocon to C/Fortran array" );
59850 } else {
59851 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
59852
59853 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
59854 /* Processing variable anorm */
59855 f2py_success = double_from_pyobj(&anorm,anorm_capi,"_flapack.zpocon() 2nd argument (anorm) can't be converted to double");
59856 if (f2py_success) {
59857 /* Processing variable rcond */
59858 /* Processing variable info */
59859 /* Processing variable n */
59860 n = shape(a,0)a_Dims[0];
59861 /* Processing variable lda */
59862 lda = shape(a,0)a_Dims[0];
59863 /* Processing variable work */
59864 work_Dims[0]=2 * n;
59865 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
59866 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
59867 if (capi_work_tmp == NULL((void*)0)) {
59868 if (!PyErr_Occurred())
59869 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zpocon to C/Fortran array" );
59870 } else {
59871 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
59872
59873 /* Processing variable irwork */
59874 irwork_Dims[0]=n;
59875 capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
59876 capi_irwork_tmp = array_from_pyobj(NPY_DOUBLE,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct));
59877 if (capi_irwork_tmp == NULL((void*)0)) {
59878 if (!PyErr_Occurred())
59879 PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.zpocon to C/Fortran array" );
59880 } else {
59881 irwork = (double *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data
)
);
59882
59883/*end of frompyobj*/
59884#ifdef F2PY_REPORT_ATEXIT
59885f2py_start_call_clock();
59886#endif
59887/*callfortranroutine*/
59888 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
59889 (*f2py_func)(uplo,&n,a,&lda,&anorm,&rcond,work,irwork,&info) ;
59890 /*(*f2py_func)(uplo,&n,a,&lda,&anorm,&rcond,work,irwork,&info,slen(uplo));*/
59891 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
59892if (PyErr_Occurred())
59893 f2py_success = 0;
59894#ifdef F2PY_REPORT_ATEXIT
59895f2py_stop_call_clock();
59896#endif
59897/*end of callfortranroutine*/
59898 if (f2py_success) {
59899/*pyobjfrom*/
59900/*end of pyobjfrom*/
59901 CFUNCSMESS("Building return value.\n");
59902 capi_buildvalue = Py_BuildValue("di",rcond,info);
59903/*closepyobjfrom*/
59904/*end of closepyobjfrom*/
59905 } /*if (f2py_success) after callfortranroutine*/
59906/*cleanupfrompyobj*/
59907 Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp)));
59908 } /*if (capi_irwork_tmp == NULL) ... else of irwork*/
59909 /* End of cleaning variable irwork */
59910 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
59911 } /*if (capi_work_tmp == NULL) ... else of work*/
59912 /* End of cleaning variable work */
59913 /* End of cleaning variable lda */
59914 /* End of cleaning variable n */
59915 /* End of cleaning variable info */
59916 /* End of cleaning variable rcond */
59917 } /*if (f2py_success) of anorm*/
59918 /* End of cleaning variable anorm */
59919 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
59920 if((PyObject *)capi_a_tmp!=a_capi) {
59921 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
59922 } /*if (capi_a_tmp == NULL) ... else of a*/
59923 /* End of cleaning variable a */
59924 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
59925 } /*if (f2py_success) of uplo*/
59926 /* End of cleaning variable uplo */
59927/*end of cleanupfrompyobj*/
59928 if (capi_buildvalue == NULL((void*)0)) {
59929/*routdebugfailure*/
59930 } else {
59931/*routdebugleave*/
59932 }
59933 CFUNCSMESS("Freeing memory.\n");
59934/*freemem*/
59935#ifdef F2PY_REPORT_ATEXIT
59936f2py_stop_clock();
59937#endif
59938 return capi_buildvalue;
59939}
59940/******************************* end of zpocon *******************************/
59941
59942/*********************************** spotrf ***********************************/
59943static char doc_f2py_rout__flapack_spotrf[] = "\
59944c,info = spotrf(a,[lower,clean,overwrite_a])\n\nWrapper for ``spotrf``.\
59945\n\nParameters\n----------\n"
59946"a : input rank-2 array('f') with bounds (n,n)\n"
59947"\nOther Parameters\n----------------\n"
59948"overwrite_a : input int, optional\n Default: 0\n"
59949"lower : input int, optional\n Default: 0\n"
59950"clean : input int, optional\n Default: 1\n"
59951"\nReturns\n-------\n"
59952"c : rank-2 array('f') with bounds (n,n) and a storage\n"
59953"info : int";
59954/* extern void F_FUNC(spotrf,SPOTRF)(char*,F_INT*,float*,F_INT*,F_INT* ); */
59955static PyObject *f2py_rout__flapack_spotrf(const PyObject *capi_self,
59956 PyObject *capi_args,
59957 PyObject *capi_keywds,
59958 void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,F_INTint* )) {
59959 PyObject * volatile capi_buildvalue = NULL((void*)0);
59960 volatile int f2py_success = 1;
59961/*decl*/
59962
59963 int n = 0;
59964 float *a = NULL((void*)0);
59965 npy_intp a_Dims[2] = {-1, -1};
59966 const int a_Rank = 2;
59967 PyArrayObject *capi_a_tmp = NULL((void*)0);
59968 int capi_a_intent = 0;
59969 int capi_overwrite_a = 0;
59970 PyObject *a_capi = Py_None(&_Py_NoneStruct);
59971 int lda = 0;
59972 int info = 0;
59973 int lower = 0;
59974 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
59975 int clean = 0;
59976 PyObject *clean_capi = Py_None(&_Py_NoneStruct);
59977 static char *capi_kwlist[] = {"a","lower","clean","overwrite_a",NULL((void*)0)};
59978
59979/*routdebugenter*/
59980#ifdef F2PY_REPORT_ATEXIT
59981f2py_start_clock();
59982#endif
59983 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
59984 "O|OOi:_flapack.spotrf",\
59985 capi_kwlist,&a_capi,&lower_capi,&clean_capi,&capi_overwrite_a))
59986 return NULL((void*)0);
59987/*frompyobj*/
59988 /* Processing variable lower */
59989 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
59990 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spotrf() 1st keyword (lower) can't be converted to int");
59991 if (f2py_success) {
59992 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","spotrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spotrf:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
59993 /* Processing variable clean */
59994 if (clean_capi == Py_None(&_Py_NoneStruct)) clean = 1; else
59995 f2py_success = int_from_pyobj(&clean,clean_capi,"_flapack.spotrf() 2nd keyword (clean) can't be converted to int");
59996 if (f2py_success) {
59997 CHECKSCALAR(clean==0||clean==1,"clean==0||clean==1","2nd keyword clean","spotrf:clean=%d",clean)if (!(clean==0||clean==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spotrf:clean=%d", "(""clean==0||clean==1"") failed for "
"2nd keyword clean", clean); PyErr_SetString(_flapack_error,errstring
); } else
{
59998 /* Processing variable a */
59999 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
60000 ;
60001 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
60002 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
60003 if (capi_a_tmp == NULL((void*)0)) {
60004 if (!PyErr_Occurred())
60005 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.spotrf to C/Fortran array" );
60006 } else {
60007 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
60008
60009 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
60010 /* Processing variable info */
60011 /* Processing variable n */
60012 n = shape(a,0)a_Dims[0];
60013 /* Processing variable lda */
60014 lda = MAX(1,n)((1 > n) ? (1) : (n));
60015/*end of frompyobj*/
60016#ifdef F2PY_REPORT_ATEXIT
60017f2py_start_call_clock();
60018#endif
60019/*callfortranroutine*/
60020 (*f2py_func)((lower?"L":"U"),&n,a,&lda,&info); if(clean){F_INTint i,j;if(lower){for(i=0;i<n;++i) for(j=i+1;j<n;++j) *(a+j*n+i)=0.0;} else {for(i=0;i<n;++i) for(j=i+1;j<n;++j) *(a+i*n+j)=0.0;}} ;
60021 /*(*f2py_func)(&n,a,&lda,&info,&lower,&clean);*/
60022if (PyErr_Occurred())
60023 f2py_success = 0;
60024#ifdef F2PY_REPORT_ATEXIT
60025f2py_stop_call_clock();
60026#endif
60027/*end of callfortranroutine*/
60028 if (f2py_success) {
60029/*pyobjfrom*/
60030/*end of pyobjfrom*/
60031 CFUNCSMESS("Building return value.\n");
60032 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
60033/*closepyobjfrom*/
60034/*end of closepyobjfrom*/
60035 } /*if (f2py_success) after callfortranroutine*/
60036/*cleanupfrompyobj*/
60037 /* End of cleaning variable lda */
60038 /* End of cleaning variable n */
60039 /* End of cleaning variable info */
60040 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
60041 } /*if (capi_a_tmp == NULL) ... else of a*/
60042 /* End of cleaning variable a */
60043 } /*CHECKSCALAR(clean==0||clean==1)*/
60044 } /*if (f2py_success) of clean*/
60045 /* End of cleaning variable clean */
60046 } /*CHECKSCALAR(lower==0||lower==1)*/
60047 } /*if (f2py_success) of lower*/
60048 /* End of cleaning variable lower */
60049/*end of cleanupfrompyobj*/
60050 if (capi_buildvalue == NULL((void*)0)) {
60051/*routdebugfailure*/
60052 } else {
60053/*routdebugleave*/
60054 }
60055 CFUNCSMESS("Freeing memory.\n");
60056/*freemem*/
60057#ifdef F2PY_REPORT_ATEXIT
60058f2py_stop_clock();
60059#endif
60060 return capi_buildvalue;
60061}
60062/******************************* end of spotrf *******************************/
60063
60064/*********************************** dpotrf ***********************************/
60065static char doc_f2py_rout__flapack_dpotrf[] = "\
60066c,info = dpotrf(a,[lower,clean,overwrite_a])\n\nWrapper for ``dpotrf``.\
60067\n\nParameters\n----------\n"
60068"a : input rank-2 array('d') with bounds (n,n)\n"
60069"\nOther Parameters\n----------------\n"
60070"overwrite_a : input int, optional\n Default: 0\n"
60071"lower : input int, optional\n Default: 0\n"
60072"clean : input int, optional\n Default: 1\n"
60073"\nReturns\n-------\n"
60074"c : rank-2 array('d') with bounds (n,n) and a storage\n"
60075"info : int";
60076/* extern void F_FUNC(dpotrf,DPOTRF)(char*,F_INT*,double*,F_INT*,F_INT* ); */
60077static PyObject *f2py_rout__flapack_dpotrf(const PyObject *capi_self,
60078 PyObject *capi_args,
60079 PyObject *capi_keywds,
60080 void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,F_INTint* )) {
60081 PyObject * volatile capi_buildvalue = NULL((void*)0);
60082 volatile int f2py_success = 1;
60083/*decl*/
60084
60085 int n = 0;
60086 double *a = NULL((void*)0);
60087 npy_intp a_Dims[2] = {-1, -1};
60088 const int a_Rank = 2;
60089 PyArrayObject *capi_a_tmp = NULL((void*)0);
60090 int capi_a_intent = 0;
60091 int capi_overwrite_a = 0;
60092 PyObject *a_capi = Py_None(&_Py_NoneStruct);
60093 int lda = 0;
60094 int info = 0;
60095 int lower = 0;
60096 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
60097 int clean = 0;
60098 PyObject *clean_capi = Py_None(&_Py_NoneStruct);
60099 static char *capi_kwlist[] = {"a","lower","clean","overwrite_a",NULL((void*)0)};
60100
60101/*routdebugenter*/
60102#ifdef F2PY_REPORT_ATEXIT
60103f2py_start_clock();
60104#endif
60105 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
60106 "O|OOi:_flapack.dpotrf",\
60107 capi_kwlist,&a_capi,&lower_capi,&clean_capi,&capi_overwrite_a))
60108 return NULL((void*)0);
60109/*frompyobj*/
60110 /* Processing variable lower */
60111 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
60112 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpotrf() 1st keyword (lower) can't be converted to int");
60113 if (f2py_success) {
60114 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dpotrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpotrf:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
60115 /* Processing variable clean */
60116 if (clean_capi == Py_None(&_Py_NoneStruct)) clean = 1; else
60117 f2py_success = int_from_pyobj(&clean,clean_capi,"_flapack.dpotrf() 2nd keyword (clean) can't be converted to int");
60118 if (f2py_success) {
60119 CHECKSCALAR(clean==0||clean==1,"clean==0||clean==1","2nd keyword clean","dpotrf:clean=%d",clean)if (!(clean==0||clean==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpotrf:clean=%d", "(""clean==0||clean==1"") failed for "
"2nd keyword clean", clean); PyErr_SetString(_flapack_error,errstring
); } else
{
60120 /* Processing variable a */
60121 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
60122 ;
60123 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
60124 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
60125 if (capi_a_tmp == NULL((void*)0)) {
60126 if (!PyErr_Occurred())
60127 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dpotrf to C/Fortran array" );
60128 } else {
60129 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
60130
60131 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
60132 /* Processing variable info */
60133 /* Processing variable n */
60134 n = shape(a,0)a_Dims[0];
60135 /* Processing variable lda */
60136 lda = MAX(1,n)((1 > n) ? (1) : (n));
60137/*end of frompyobj*/
60138#ifdef F2PY_REPORT_ATEXIT
60139f2py_start_call_clock();
60140#endif
60141/*callfortranroutine*/
60142 (*f2py_func)((lower?"L":"U"),&n,a,&lda,&info); if(clean){F_INTint i,j;if(lower){for(i=0;i<n;++i) for(j=i+1;j<n;++j) *(a+j*n+i)=0.0;} else {for(i=0;i<n;++i) for(j=i+1;j<n;++j) *(a+i*n+j)=0.0;}} ;
60143 /*(*f2py_func)(&n,a,&lda,&info,&lower,&clean);*/
60144if (PyErr_Occurred())
60145 f2py_success = 0;
60146#ifdef F2PY_REPORT_ATEXIT
60147f2py_stop_call_clock();
60148#endif
60149/*end of callfortranroutine*/
60150 if (f2py_success) {
60151/*pyobjfrom*/
60152/*end of pyobjfrom*/
60153 CFUNCSMESS("Building return value.\n");
60154 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
60155/*closepyobjfrom*/
60156/*end of closepyobjfrom*/
60157 } /*if (f2py_success) after callfortranroutine*/
60158/*cleanupfrompyobj*/
60159 /* End of cleaning variable lda */
60160 /* End of cleaning variable n */
60161 /* End of cleaning variable info */
60162 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
60163 } /*if (capi_a_tmp == NULL) ... else of a*/
60164 /* End of cleaning variable a */
60165 } /*CHECKSCALAR(clean==0||clean==1)*/
60166 } /*if (f2py_success) of clean*/
60167 /* End of cleaning variable clean */
60168 } /*CHECKSCALAR(lower==0||lower==1)*/
60169 } /*if (f2py_success) of lower*/
60170 /* End of cleaning variable lower */
60171/*end of cleanupfrompyobj*/
60172 if (capi_buildvalue == NULL((void*)0)) {
60173/*routdebugfailure*/
60174 } else {
60175/*routdebugleave*/
60176 }
60177 CFUNCSMESS("Freeing memory.\n");
60178/*freemem*/
60179#ifdef F2PY_REPORT_ATEXIT
60180f2py_stop_clock();
60181#endif
60182 return capi_buildvalue;
60183}
60184/******************************* end of dpotrf *******************************/
60185
60186/*********************************** cpotrf ***********************************/
60187static char doc_f2py_rout__flapack_cpotrf[] = "\
60188c,info = cpotrf(a,[lower,clean,overwrite_a])\n\nWrapper for ``cpotrf``.\
60189\n\nParameters\n----------\n"
60190"a : input rank-2 array('F') with bounds (n,n)\n"
60191"\nOther Parameters\n----------------\n"
60192"overwrite_a : input int, optional\n Default: 0\n"
60193"lower : input int, optional\n Default: 0\n"
60194"clean : input int, optional\n Default: 1\n"
60195"\nReturns\n-------\n"
60196"c : rank-2 array('F') with bounds (n,n) and a storage\n"
60197"info : int";
60198/* extern void F_FUNC(cpotrf,CPOTRF)(char*,F_INT*,complex_float*,F_INT*,F_INT* ); */
60199static PyObject *f2py_rout__flapack_cpotrf(const PyObject *capi_self,
60200 PyObject *capi_args,
60201 PyObject *capi_keywds,
60202 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
60203 PyObject * volatile capi_buildvalue = NULL((void*)0);
60204 volatile int f2py_success = 1;
60205/*decl*/
60206
60207 int n = 0;
60208 complex_float *a = NULL((void*)0);
60209 npy_intp a_Dims[2] = {-1, -1};
60210 const int a_Rank = 2;
60211 PyArrayObject *capi_a_tmp = NULL((void*)0);
60212 int capi_a_intent = 0;
60213 int capi_overwrite_a = 0;
60214 PyObject *a_capi = Py_None(&_Py_NoneStruct);
60215 int lda = 0;
60216 int info = 0;
60217 int lower = 0;
60218 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
60219 int clean = 0;
60220 PyObject *clean_capi = Py_None(&_Py_NoneStruct);
60221 static char *capi_kwlist[] = {"a","lower","clean","overwrite_a",NULL((void*)0)};
60222
60223/*routdebugenter*/
60224#ifdef F2PY_REPORT_ATEXIT
60225f2py_start_clock();
60226#endif
60227 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
60228 "O|OOi:_flapack.cpotrf",\
60229 capi_kwlist,&a_capi,&lower_capi,&clean_capi,&capi_overwrite_a))
60230 return NULL((void*)0);
60231/*frompyobj*/
60232 /* Processing variable lower */
60233 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
60234 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpotrf() 1st keyword (lower) can't be converted to int");
60235 if (f2py_success) {
60236 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cpotrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpotrf:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
60237 /* Processing variable clean */
60238 if (clean_capi == Py_None(&_Py_NoneStruct)) clean = 1; else
60239 f2py_success = int_from_pyobj(&clean,clean_capi,"_flapack.cpotrf() 2nd keyword (clean) can't be converted to int");
60240 if (f2py_success) {
60241 CHECKSCALAR(clean==0||clean==1,"clean==0||clean==1","2nd keyword clean","cpotrf:clean=%d",clean)if (!(clean==0||clean==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpotrf:clean=%d", "(""clean==0||clean==1"") failed for "
"2nd keyword clean", clean); PyErr_SetString(_flapack_error,errstring
); } else
{
60242 /* Processing variable a */
60243 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
60244 ;
60245 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
60246 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
60247 if (capi_a_tmp == NULL((void*)0)) {
60248 if (!PyErr_Occurred())
60249 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cpotrf to C/Fortran array" );
60250 } else {
60251 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
60252
60253 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
60254 /* Processing variable info */
60255 /* Processing variable n */
60256 n = shape(a,0)a_Dims[0];
60257 /* Processing variable lda */
60258 lda = MAX(1,n)((1 > n) ? (1) : (n));
60259/*end of frompyobj*/
60260#ifdef F2PY_REPORT_ATEXIT
60261f2py_start_call_clock();
60262#endif
60263/*callfortranroutine*/
60264 (*f2py_func)((lower?"L":"U"),&n,a,&lda,&info); if(clean){F_INTint i,j,k;if(lower){for(i=0;i<n;++i) for(j=i+1;j<n;++j) {k=j*n+i;(a+k)->r=(a+k)->i=0.0;}} else {for(i=0;i<n;++i) for(j=i+1;j<n;++j) {k=i*n+j;(a+k)->r=(a+k)->i=0.0;}}} ;
60265 /*(*f2py_func)(&n,a,&lda,&info,&lower,&clean);*/
60266if (PyErr_Occurred())
60267 f2py_success = 0;
60268#ifdef F2PY_REPORT_ATEXIT
60269f2py_stop_call_clock();
60270#endif
60271/*end of callfortranroutine*/
60272 if (f2py_success) {
60273/*pyobjfrom*/
60274/*end of pyobjfrom*/
60275 CFUNCSMESS("Building return value.\n");
60276 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
60277/*closepyobjfrom*/
60278/*end of closepyobjfrom*/
60279 } /*if (f2py_success) after callfortranroutine*/
60280/*cleanupfrompyobj*/
60281 /* End of cleaning variable lda */
60282 /* End of cleaning variable n */
60283 /* End of cleaning variable info */
60284 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
60285 } /*if (capi_a_tmp == NULL) ... else of a*/
60286 /* End of cleaning variable a */
60287 } /*CHECKSCALAR(clean==0||clean==1)*/
60288 } /*if (f2py_success) of clean*/
60289 /* End of cleaning variable clean */
60290 } /*CHECKSCALAR(lower==0||lower==1)*/
60291 } /*if (f2py_success) of lower*/
60292 /* End of cleaning variable lower */
60293/*end of cleanupfrompyobj*/
60294 if (capi_buildvalue == NULL((void*)0)) {
60295/*routdebugfailure*/
60296 } else {
60297/*routdebugleave*/
60298 }
60299 CFUNCSMESS("Freeing memory.\n");
60300/*freemem*/
60301#ifdef F2PY_REPORT_ATEXIT
60302f2py_stop_clock();
60303#endif
60304 return capi_buildvalue;
60305}
60306/******************************* end of cpotrf *******************************/
60307
60308/*********************************** zpotrf ***********************************/
60309static char doc_f2py_rout__flapack_zpotrf[] = "\
60310c,info = zpotrf(a,[lower,clean,overwrite_a])\n\nWrapper for ``zpotrf``.\
60311\n\nParameters\n----------\n"
60312"a : input rank-2 array('D') with bounds (n,n)\n"
60313"\nOther Parameters\n----------------\n"
60314"overwrite_a : input int, optional\n Default: 0\n"
60315"lower : input int, optional\n Default: 0\n"
60316"clean : input int, optional\n Default: 1\n"
60317"\nReturns\n-------\n"
60318"c : rank-2 array('D') with bounds (n,n) and a storage\n"
60319"info : int";
60320/* extern void F_FUNC(zpotrf,ZPOTRF)(char*,F_INT*,complex_double*,F_INT*,F_INT* ); */
60321static PyObject *f2py_rout__flapack_zpotrf(const PyObject *capi_self,
60322 PyObject *capi_args,
60323 PyObject *capi_keywds,
60324 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
60325 PyObject * volatile capi_buildvalue = NULL((void*)0);
60326 volatile int f2py_success = 1;
60327/*decl*/
60328
60329 int n = 0;
60330 complex_double *a = NULL((void*)0);
60331 npy_intp a_Dims[2] = {-1, -1};
60332 const int a_Rank = 2;
60333 PyArrayObject *capi_a_tmp = NULL((void*)0);
60334 int capi_a_intent = 0;
60335 int capi_overwrite_a = 0;
60336 PyObject *a_capi = Py_None(&_Py_NoneStruct);
60337 int lda = 0;
60338 int info = 0;
60339 int lower = 0;
60340 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
60341 int clean = 0;
60342 PyObject *clean_capi = Py_None(&_Py_NoneStruct);
60343 static char *capi_kwlist[] = {"a","lower","clean","overwrite_a",NULL((void*)0)};
60344
60345/*routdebugenter*/
60346#ifdef F2PY_REPORT_ATEXIT
60347f2py_start_clock();
60348#endif
60349 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
60350 "O|OOi:_flapack.zpotrf",\
60351 capi_kwlist,&a_capi,&lower_capi,&clean_capi,&capi_overwrite_a))
60352 return NULL((void*)0);
60353/*frompyobj*/
60354 /* Processing variable lower */
60355 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
60356 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpotrf() 1st keyword (lower) can't be converted to int");
60357 if (f2py_success) {
60358 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zpotrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpotrf:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
60359 /* Processing variable clean */
60360 if (clean_capi == Py_None(&_Py_NoneStruct)) clean = 1; else
60361 f2py_success = int_from_pyobj(&clean,clean_capi,"_flapack.zpotrf() 2nd keyword (clean) can't be converted to int");
60362 if (f2py_success) {
60363 CHECKSCALAR(clean==0||clean==1,"clean==0||clean==1","2nd keyword clean","zpotrf:clean=%d",clean)if (!(clean==0||clean==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpotrf:clean=%d", "(""clean==0||clean==1"") failed for "
"2nd keyword clean", clean); PyErr_SetString(_flapack_error,errstring
); } else
{
60364 /* Processing variable a */
60365 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
60366 ;
60367 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
60368 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
60369 if (capi_a_tmp == NULL((void*)0)) {
60370 if (!PyErr_Occurred())
60371 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zpotrf to C/Fortran array" );
60372 } else {
60373 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
60374
60375 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
60376 /* Processing variable info */
60377 /* Processing variable n */
60378 n = shape(a,0)a_Dims[0];
60379 /* Processing variable lda */
60380 lda = MAX(1,n)((1 > n) ? (1) : (n));
60381/*end of frompyobj*/
60382#ifdef F2PY_REPORT_ATEXIT
60383f2py_start_call_clock();
60384#endif
60385/*callfortranroutine*/
60386 (*f2py_func)((lower?"L":"U"),&n,a,&lda,&info); if(clean){F_INTint i,j,k;if(lower){for(i=0;i<n;++i) for(j=i+1;j<n;++j) {k=j*n+i;(a+k)->r=(a+k)->i=0.0;}} else {for(i=0;i<n;++i) for(j=i+1;j<n;++j) {k=i*n+j;(a+k)->r=(a+k)->i=0.0;}}} ;
60387 /*(*f2py_func)(&n,a,&lda,&info,&lower,&clean);*/
60388if (PyErr_Occurred())
60389 f2py_success = 0;
60390#ifdef F2PY_REPORT_ATEXIT
60391f2py_stop_call_clock();
60392#endif
60393/*end of callfortranroutine*/
60394 if (f2py_success) {
60395/*pyobjfrom*/
60396/*end of pyobjfrom*/
60397 CFUNCSMESS("Building return value.\n");
60398 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
60399/*closepyobjfrom*/
60400/*end of closepyobjfrom*/
60401 } /*if (f2py_success) after callfortranroutine*/
60402/*cleanupfrompyobj*/
60403 /* End of cleaning variable lda */
60404 /* End of cleaning variable n */
60405 /* End of cleaning variable info */
60406 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
60407 } /*if (capi_a_tmp == NULL) ... else of a*/
60408 /* End of cleaning variable a */
60409 } /*CHECKSCALAR(clean==0||clean==1)*/
60410 } /*if (f2py_success) of clean*/
60411 /* End of cleaning variable clean */
60412 } /*CHECKSCALAR(lower==0||lower==1)*/
60413 } /*if (f2py_success) of lower*/
60414 /* End of cleaning variable lower */
60415/*end of cleanupfrompyobj*/
60416 if (capi_buildvalue == NULL((void*)0)) {
60417/*routdebugfailure*/
60418 } else {
60419/*routdebugleave*/
60420 }
60421 CFUNCSMESS("Freeing memory.\n");
60422/*freemem*/
60423#ifdef F2PY_REPORT_ATEXIT
60424f2py_stop_clock();
60425#endif
60426 return capi_buildvalue;
60427}
60428/******************************* end of zpotrf *******************************/
60429
60430/*********************************** spotrs ***********************************/
60431static char doc_f2py_rout__flapack_spotrs[] = "\
60432x,info = spotrs(c,b,[lower,overwrite_b])\n\nWrapper for ``spotrs``.\
60433\n\nParameters\n----------\n"
60434"c : input rank-2 array('f') with bounds (n,n)\n"
60435"b : input rank-2 array('f') with bounds (n,nrhs)\n"
60436"\nOther Parameters\n----------------\n"
60437"overwrite_b : input int, optional\n Default: 0\n"
60438"lower : input int, optional\n Default: 0\n"
60439"\nReturns\n-------\n"
60440"x : rank-2 array('f') with bounds (n,nrhs) and b storage\n"
60441"info : int";
60442/* extern void F_FUNC(spotrs,SPOTRS)(char*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */
60443static PyObject *f2py_rout__flapack_spotrs(const PyObject *capi_self,
60444 PyObject *capi_args,
60445 PyObject *capi_keywds,
60446 void (*f2py_func)(char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
60447 PyObject * volatile capi_buildvalue = NULL((void*)0);
60448 volatile int f2py_success = 1;
60449/*decl*/
60450
60451 int n = 0;
60452 int nrhs = 0;
60453 float *c = NULL((void*)0);
60454 npy_intp c_Dims[2] = {-1, -1};
60455 const int c_Rank = 2;
60456 PyArrayObject *capi_c_tmp = NULL((void*)0);
60457 int capi_c_intent = 0;
60458 PyObject *c_capi = Py_None(&_Py_NoneStruct);
60459 float *b = NULL((void*)0);
60460 npy_intp b_Dims[2] = {-1, -1};
60461 const int b_Rank = 2;
60462 PyArrayObject *capi_b_tmp = NULL((void*)0);
60463 int capi_b_intent = 0;
60464 int capi_overwrite_b = 0;
60465 PyObject *b_capi = Py_None(&_Py_NoneStruct);
60466 int info = 0;
60467 int lower = 0;
60468 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
60469 static char *capi_kwlist[] = {"c","b","lower","overwrite_b",NULL((void*)0)};
60470
60471/*routdebugenter*/
60472#ifdef F2PY_REPORT_ATEXIT
60473f2py_start_clock();
60474#endif
60475 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
60476 "OO|Oi:_flapack.spotrs",\
60477 capi_kwlist,&c_capi,&b_capi,&lower_capi,&capi_overwrite_b))
60478 return NULL((void*)0);
60479/*frompyobj*/
60480 /* Processing variable lower */
60481 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
60482 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spotrs() 1st keyword (lower) can't be converted to int");
60483 if (f2py_success) {
60484 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","spotrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spotrs:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
60485 /* Processing variable c */
60486 ;
60487 capi_c_intent |= F2PY_INTENT_IN1;
60488 capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
60489 if (capi_c_tmp == NULL((void*)0)) {
60490 if (!PyErr_Occurred())
60491 PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.spotrs to C/Fortran array" );
60492 } else {
60493 c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
60494
60495 CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c");
} else
{
60496 /* Processing variable info */
60497 /* Processing variable n */
60498 n = shape(c,0)c_Dims[0];
60499 /* Processing variable b */
60500 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
60501 b_Dims[0]=n;
60502 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
60503 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
60504 if (capi_b_tmp == NULL((void*)0)) {
60505 if (!PyErr_Occurred())
60506 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.spotrs to C/Fortran array" );
60507 } else {
60508 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
60509
60510 CHECKARRAY(shape(c,0)==shape(b,0),"shape(c,0)==shape(b,0)","2nd argument b")if (!(c_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(c,0)==shape(b,0)"") failed for ""2nd argument b");
} else
{
60511 /* Processing variable nrhs */
60512 nrhs = shape(b,1)b_Dims[1];
60513/*end of frompyobj*/
60514#ifdef F2PY_REPORT_ATEXIT
60515f2py_start_call_clock();
60516#endif
60517/*callfortranroutine*/
60518 (*f2py_func)((lower?"L":"U"),&n,&nrhs,c,&n,b,&n,&info) ;
60519 /*(*f2py_func)(&n,&nrhs,c,b,&info,&lower);*/
60520if (PyErr_Occurred())
60521 f2py_success = 0;
60522#ifdef F2PY_REPORT_ATEXIT
60523f2py_stop_call_clock();
60524#endif
60525/*end of callfortranroutine*/
60526 if (f2py_success) {
60527/*pyobjfrom*/
60528/*end of pyobjfrom*/
60529 CFUNCSMESS("Building return value.\n");
60530 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
60531/*closepyobjfrom*/
60532/*end of closepyobjfrom*/
60533 } /*if (f2py_success) after callfortranroutine*/
60534/*cleanupfrompyobj*/
60535 /* End of cleaning variable nrhs */
60536 } /*CHECKARRAY(shape(c,0)==shape(b,0))*/
60537 } /*if (capi_b_tmp == NULL) ... else of b*/
60538 /* End of cleaning variable b */
60539 /* End of cleaning variable n */
60540 /* End of cleaning variable info */
60541 } /*CHECKARRAY(shape(c,0)==shape(c,1))*/
60542 if((PyObject *)capi_c_tmp!=c_capi) {
60543 Py_XDECREF(capi_c_tmp)_Py_XDECREF(((PyObject*)(capi_c_tmp))); }
60544 } /*if (capi_c_tmp == NULL) ... else of c*/
60545 /* End of cleaning variable c */
60546 } /*CHECKSCALAR(lower==0||lower==1)*/
60547 } /*if (f2py_success) of lower*/
60548 /* End of cleaning variable lower */
60549/*end of cleanupfrompyobj*/
60550 if (capi_buildvalue == NULL((void*)0)) {
60551/*routdebugfailure*/
60552 } else {
60553/*routdebugleave*/
60554 }
60555 CFUNCSMESS("Freeing memory.\n");
60556/*freemem*/
60557#ifdef F2PY_REPORT_ATEXIT
60558f2py_stop_clock();
60559#endif
60560 return capi_buildvalue;
60561}
60562/******************************* end of spotrs *******************************/
60563
60564/*********************************** dpotrs ***********************************/
60565static char doc_f2py_rout__flapack_dpotrs[] = "\
60566x,info = dpotrs(c,b,[lower,overwrite_b])\n\nWrapper for ``dpotrs``.\
60567\n\nParameters\n----------\n"
60568"c : input rank-2 array('d') with bounds (n,n)\n"
60569"b : input rank-2 array('d') with bounds (n,nrhs)\n"
60570"\nOther Parameters\n----------------\n"
60571"overwrite_b : input int, optional\n Default: 0\n"
60572"lower : input int, optional\n Default: 0\n"
60573"\nReturns\n-------\n"
60574"x : rank-2 array('d') with bounds (n,nrhs) and b storage\n"
60575"info : int";
60576/* extern void F_FUNC(dpotrs,DPOTRS)(char*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */
60577static PyObject *f2py_rout__flapack_dpotrs(const PyObject *capi_self,
60578 PyObject *capi_args,
60579 PyObject *capi_keywds,
60580 void (*f2py_func)(char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
60581 PyObject * volatile capi_buildvalue = NULL((void*)0);
60582 volatile int f2py_success = 1;
60583/*decl*/
60584
60585 int n = 0;
60586 int nrhs = 0;
60587 double *c = NULL((void*)0);
60588 npy_intp c_Dims[2] = {-1, -1};
60589 const int c_Rank = 2;
60590 PyArrayObject *capi_c_tmp = NULL((void*)0);
60591 int capi_c_intent = 0;
60592 PyObject *c_capi = Py_None(&_Py_NoneStruct);
60593 double *b = NULL((void*)0);
60594 npy_intp b_Dims[2] = {-1, -1};
60595 const int b_Rank = 2;
60596 PyArrayObject *capi_b_tmp = NULL((void*)0);
60597 int capi_b_intent = 0;
60598 int capi_overwrite_b = 0;
60599 PyObject *b_capi = Py_None(&_Py_NoneStruct);
60600 int info = 0;
60601 int lower = 0;
60602 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
60603 static char *capi_kwlist[] = {"c","b","lower","overwrite_b",NULL((void*)0)};
60604
60605/*routdebugenter*/
60606#ifdef F2PY_REPORT_ATEXIT
60607f2py_start_clock();
60608#endif
60609 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
60610 "OO|Oi:_flapack.dpotrs",\
60611 capi_kwlist,&c_capi,&b_capi,&lower_capi,&capi_overwrite_b))
60612 return NULL((void*)0);
60613/*frompyobj*/
60614 /* Processing variable lower */
60615 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
60616 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpotrs() 1st keyword (lower) can't be converted to int");
60617 if (f2py_success) {
60618 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dpotrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpotrs:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
60619 /* Processing variable c */
60620 ;
60621 capi_c_intent |= F2PY_INTENT_IN1;
60622 capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
60623 if (capi_c_tmp == NULL((void*)0)) {
60624 if (!PyErr_Occurred())
60625 PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.dpotrs to C/Fortran array" );
60626 } else {
60627 c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
60628
60629 CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c");
} else
{
60630 /* Processing variable info */
60631 /* Processing variable n */
60632 n = shape(c,0)c_Dims[0];
60633 /* Processing variable b */
60634 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
60635 b_Dims[0]=n;
60636 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
60637 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
60638 if (capi_b_tmp == NULL((void*)0)) {
60639 if (!PyErr_Occurred())
60640 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dpotrs to C/Fortran array" );
60641 } else {
60642 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
60643
60644 CHECKARRAY(shape(c,0)==shape(b,0),"shape(c,0)==shape(b,0)","2nd argument b")if (!(c_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(c,0)==shape(b,0)"") failed for ""2nd argument b");
} else
{
60645 /* Processing variable nrhs */
60646 nrhs = shape(b,1)b_Dims[1];
60647/*end of frompyobj*/
60648#ifdef F2PY_REPORT_ATEXIT
60649f2py_start_call_clock();
60650#endif
60651/*callfortranroutine*/
60652 (*f2py_func)((lower?"L":"U"),&n,&nrhs,c,&n,b,&n,&info) ;
60653 /*(*f2py_func)(&n,&nrhs,c,b,&info,&lower);*/
60654if (PyErr_Occurred())
60655 f2py_success = 0;
60656#ifdef F2PY_REPORT_ATEXIT
60657f2py_stop_call_clock();
60658#endif
60659/*end of callfortranroutine*/
60660 if (f2py_success) {
60661/*pyobjfrom*/
60662/*end of pyobjfrom*/
60663 CFUNCSMESS("Building return value.\n");
60664 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
60665/*closepyobjfrom*/
60666/*end of closepyobjfrom*/
60667 } /*if (f2py_success) after callfortranroutine*/
60668/*cleanupfrompyobj*/
60669 /* End of cleaning variable nrhs */
60670 } /*CHECKARRAY(shape(c,0)==shape(b,0))*/
60671 } /*if (capi_b_tmp == NULL) ... else of b*/
60672 /* End of cleaning variable b */
60673 /* End of cleaning variable n */
60674 /* End of cleaning variable info */
60675 } /*CHECKARRAY(shape(c,0)==shape(c,1))*/
60676 if((PyObject *)capi_c_tmp!=c_capi) {
60677 Py_XDECREF(capi_c_tmp)_Py_XDECREF(((PyObject*)(capi_c_tmp))); }
60678 } /*if (capi_c_tmp == NULL) ... else of c*/
60679 /* End of cleaning variable c */
60680 } /*CHECKSCALAR(lower==0||lower==1)*/
60681 } /*if (f2py_success) of lower*/
60682 /* End of cleaning variable lower */
60683/*end of cleanupfrompyobj*/
60684 if (capi_buildvalue == NULL((void*)0)) {
60685/*routdebugfailure*/
60686 } else {
60687/*routdebugleave*/
60688 }
60689 CFUNCSMESS("Freeing memory.\n");
60690/*freemem*/
60691#ifdef F2PY_REPORT_ATEXIT
60692f2py_stop_clock();
60693#endif
60694 return capi_buildvalue;
60695}
60696/******************************* end of dpotrs *******************************/
60697
60698/*********************************** cpotrs ***********************************/
60699static char doc_f2py_rout__flapack_cpotrs[] = "\
60700x,info = cpotrs(c,b,[lower,overwrite_b])\n\nWrapper for ``cpotrs``.\
60701\n\nParameters\n----------\n"
60702"c : input rank-2 array('F') with bounds (n,n)\n"
60703"b : input rank-2 array('F') with bounds (n,nrhs)\n"
60704"\nOther Parameters\n----------------\n"
60705"overwrite_b : input int, optional\n Default: 0\n"
60706"lower : input int, optional\n Default: 0\n"
60707"\nReturns\n-------\n"
60708"x : rank-2 array('F') with bounds (n,nrhs) and b storage\n"
60709"info : int";
60710/* extern void F_FUNC(cpotrs,CPOTRS)(char*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */
60711static PyObject *f2py_rout__flapack_cpotrs(const PyObject *capi_self,
60712 PyObject *capi_args,
60713 PyObject *capi_keywds,
60714 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
60715 PyObject * volatile capi_buildvalue = NULL((void*)0);
60716 volatile int f2py_success = 1;
60717/*decl*/
60718
60719 int n = 0;
60720 int nrhs = 0;
60721 complex_float *c = NULL((void*)0);
60722 npy_intp c_Dims[2] = {-1, -1};
60723 const int c_Rank = 2;
60724 PyArrayObject *capi_c_tmp = NULL((void*)0);
60725 int capi_c_intent = 0;
60726 PyObject *c_capi = Py_None(&_Py_NoneStruct);
60727 complex_float *b = NULL((void*)0);
60728 npy_intp b_Dims[2] = {-1, -1};
60729 const int b_Rank = 2;
60730 PyArrayObject *capi_b_tmp = NULL((void*)0);
60731 int capi_b_intent = 0;
60732 int capi_overwrite_b = 0;
60733 PyObject *b_capi = Py_None(&_Py_NoneStruct);
60734 int info = 0;
60735 int lower = 0;
60736 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
60737 static char *capi_kwlist[] = {"c","b","lower","overwrite_b",NULL((void*)0)};
60738
60739/*routdebugenter*/
60740#ifdef F2PY_REPORT_ATEXIT
60741f2py_start_clock();
60742#endif
60743 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
60744 "OO|Oi:_flapack.cpotrs",\
60745 capi_kwlist,&c_capi,&b_capi,&lower_capi,&capi_overwrite_b))
60746 return NULL((void*)0);
60747/*frompyobj*/
60748 /* Processing variable lower */
60749 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
60750 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpotrs() 1st keyword (lower) can't be converted to int");
60751 if (f2py_success) {
60752 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cpotrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpotrs:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
60753 /* Processing variable c */
60754 ;
60755 capi_c_intent |= F2PY_INTENT_IN1;
60756 capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
60757 if (capi_c_tmp == NULL((void*)0)) {
60758 if (!PyErr_Occurred())
60759 PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.cpotrs to C/Fortran array" );
60760 } else {
60761 c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
60762
60763 CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c");
} else
{
60764 /* Processing variable info */
60765 /* Processing variable n */
60766 n = shape(c,0)c_Dims[0];
60767 /* Processing variable b */
60768 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
60769 b_Dims[0]=n;
60770 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
60771 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
60772 if (capi_b_tmp == NULL((void*)0)) {
60773 if (!PyErr_Occurred())
60774 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cpotrs to C/Fortran array" );
60775 } else {
60776 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
60777
60778 CHECKARRAY(shape(c,0)==shape(b,0),"shape(c,0)==shape(b,0)","2nd argument b")if (!(c_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(c,0)==shape(b,0)"") failed for ""2nd argument b");
} else
{
60779 /* Processing variable nrhs */
60780 nrhs = shape(b,1)b_Dims[1];
60781/*end of frompyobj*/
60782#ifdef F2PY_REPORT_ATEXIT
60783f2py_start_call_clock();
60784#endif
60785/*callfortranroutine*/
60786 (*f2py_func)((lower?"L":"U"),&n,&nrhs,c,&n,b,&n,&info) ;
60787 /*(*f2py_func)(&n,&nrhs,c,b,&info,&lower);*/
60788if (PyErr_Occurred())
60789 f2py_success = 0;
60790#ifdef F2PY_REPORT_ATEXIT
60791f2py_stop_call_clock();
60792#endif
60793/*end of callfortranroutine*/
60794 if (f2py_success) {
60795/*pyobjfrom*/
60796/*end of pyobjfrom*/
60797 CFUNCSMESS("Building return value.\n");
60798 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
60799/*closepyobjfrom*/
60800/*end of closepyobjfrom*/
60801 } /*if (f2py_success) after callfortranroutine*/
60802/*cleanupfrompyobj*/
60803 /* End of cleaning variable nrhs */
60804 } /*CHECKARRAY(shape(c,0)==shape(b,0))*/
60805 } /*if (capi_b_tmp == NULL) ... else of b*/
60806 /* End of cleaning variable b */
60807 /* End of cleaning variable n */
60808 /* End of cleaning variable info */
60809 } /*CHECKARRAY(shape(c,0)==shape(c,1))*/
60810 if((PyObject *)capi_c_tmp!=c_capi) {
60811 Py_XDECREF(capi_c_tmp)_Py_XDECREF(((PyObject*)(capi_c_tmp))); }
60812 } /*if (capi_c_tmp == NULL) ... else of c*/
60813 /* End of cleaning variable c */
60814 } /*CHECKSCALAR(lower==0||lower==1)*/
60815 } /*if (f2py_success) of lower*/
60816 /* End of cleaning variable lower */
60817/*end of cleanupfrompyobj*/
60818 if (capi_buildvalue == NULL((void*)0)) {
60819/*routdebugfailure*/
60820 } else {
60821/*routdebugleave*/
60822 }
60823 CFUNCSMESS("Freeing memory.\n");
60824/*freemem*/
60825#ifdef F2PY_REPORT_ATEXIT
60826f2py_stop_clock();
60827#endif
60828 return capi_buildvalue;
60829}
60830/******************************* end of cpotrs *******************************/
60831
60832/*********************************** zpotrs ***********************************/
60833static char doc_f2py_rout__flapack_zpotrs[] = "\
60834x,info = zpotrs(c,b,[lower,overwrite_b])\n\nWrapper for ``zpotrs``.\
60835\n\nParameters\n----------\n"
60836"c : input rank-2 array('D') with bounds (n,n)\n"
60837"b : input rank-2 array('D') with bounds (n,nrhs)\n"
60838"\nOther Parameters\n----------------\n"
60839"overwrite_b : input int, optional\n Default: 0\n"
60840"lower : input int, optional\n Default: 0\n"
60841"\nReturns\n-------\n"
60842"x : rank-2 array('D') with bounds (n,nrhs) and b storage\n"
60843"info : int";
60844/* extern void F_FUNC(zpotrs,ZPOTRS)(char*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */
60845static PyObject *f2py_rout__flapack_zpotrs(const PyObject *capi_self,
60846 PyObject *capi_args,
60847 PyObject *capi_keywds,
60848 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
60849 PyObject * volatile capi_buildvalue = NULL((void*)0);
60850 volatile int f2py_success = 1;
60851/*decl*/
60852
60853 int n = 0;
60854 int nrhs = 0;
60855 complex_double *c = NULL((void*)0);
60856 npy_intp c_Dims[2] = {-1, -1};
60857 const int c_Rank = 2;
60858 PyArrayObject *capi_c_tmp = NULL((void*)0);
60859 int capi_c_intent = 0;
60860 PyObject *c_capi = Py_None(&_Py_NoneStruct);
60861 complex_double *b = NULL((void*)0);
60862 npy_intp b_Dims[2] = {-1, -1};
60863 const int b_Rank = 2;
60864 PyArrayObject *capi_b_tmp = NULL((void*)0);
60865 int capi_b_intent = 0;
60866 int capi_overwrite_b = 0;
60867 PyObject *b_capi = Py_None(&_Py_NoneStruct);
60868 int info = 0;
60869 int lower = 0;
60870 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
60871 static char *capi_kwlist[] = {"c","b","lower","overwrite_b",NULL((void*)0)};
60872
60873/*routdebugenter*/
60874#ifdef F2PY_REPORT_ATEXIT
60875f2py_start_clock();
60876#endif
60877 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
60878 "OO|Oi:_flapack.zpotrs",\
60879 capi_kwlist,&c_capi,&b_capi,&lower_capi,&capi_overwrite_b))
60880 return NULL((void*)0);
60881/*frompyobj*/
60882 /* Processing variable lower */
60883 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
60884 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpotrs() 1st keyword (lower) can't be converted to int");
60885 if (f2py_success) {
60886 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zpotrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpotrs:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
60887 /* Processing variable c */
60888 ;
60889 capi_c_intent |= F2PY_INTENT_IN1;
60890 capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
60891 if (capi_c_tmp == NULL((void*)0)) {
60892 if (!PyErr_Occurred())
60893 PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.zpotrs to C/Fortran array" );
60894 } else {
60895 c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
60896
60897 CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c");
} else
{
60898 /* Processing variable info */
60899 /* Processing variable n */
60900 n = shape(c,0)c_Dims[0];
60901 /* Processing variable b */
60902 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
60903 b_Dims[0]=n;
60904 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
60905 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
60906 if (capi_b_tmp == NULL((void*)0)) {
60907 if (!PyErr_Occurred())
60908 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zpotrs to C/Fortran array" );
60909 } else {
60910 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
60911
60912 CHECKARRAY(shape(c,0)==shape(b,0),"shape(c,0)==shape(b,0)","2nd argument b")if (!(c_Dims[0]==b_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(c,0)==shape(b,0)"") failed for ""2nd argument b");
} else
{
60913 /* Processing variable nrhs */
60914 nrhs = shape(b,1)b_Dims[1];
60915/*end of frompyobj*/
60916#ifdef F2PY_REPORT_ATEXIT
60917f2py_start_call_clock();
60918#endif
60919/*callfortranroutine*/
60920 (*f2py_func)((lower?"L":"U"),&n,&nrhs,c,&n,b,&n,&info) ;
60921 /*(*f2py_func)(&n,&nrhs,c,b,&info,&lower);*/
60922if (PyErr_Occurred())
60923 f2py_success = 0;
60924#ifdef F2PY_REPORT_ATEXIT
60925f2py_stop_call_clock();
60926#endif
60927/*end of callfortranroutine*/
60928 if (f2py_success) {
60929/*pyobjfrom*/
60930/*end of pyobjfrom*/
60931 CFUNCSMESS("Building return value.\n");
60932 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
60933/*closepyobjfrom*/
60934/*end of closepyobjfrom*/
60935 } /*if (f2py_success) after callfortranroutine*/
60936/*cleanupfrompyobj*/
60937 /* End of cleaning variable nrhs */
60938 } /*CHECKARRAY(shape(c,0)==shape(b,0))*/
60939 } /*if (capi_b_tmp == NULL) ... else of b*/
60940 /* End of cleaning variable b */
60941 /* End of cleaning variable n */
60942 /* End of cleaning variable info */
60943 } /*CHECKARRAY(shape(c,0)==shape(c,1))*/
60944 if((PyObject *)capi_c_tmp!=c_capi) {
60945 Py_XDECREF(capi_c_tmp)_Py_XDECREF(((PyObject*)(capi_c_tmp))); }
60946 } /*if (capi_c_tmp == NULL) ... else of c*/
60947 /* End of cleaning variable c */
60948 } /*CHECKSCALAR(lower==0||lower==1)*/
60949 } /*if (f2py_success) of lower*/
60950 /* End of cleaning variable lower */
60951/*end of cleanupfrompyobj*/
60952 if (capi_buildvalue == NULL((void*)0)) {
60953/*routdebugfailure*/
60954 } else {
60955/*routdebugleave*/
60956 }
60957 CFUNCSMESS("Freeing memory.\n");
60958/*freemem*/
60959#ifdef F2PY_REPORT_ATEXIT
60960f2py_stop_clock();
60961#endif
60962 return capi_buildvalue;
60963}
60964/******************************* end of zpotrs *******************************/
60965
60966/*********************************** spotri ***********************************/
60967static char doc_f2py_rout__flapack_spotri[] = "\
60968inv_a,info = spotri(c,[lower,overwrite_c])\n\nWrapper for ``spotri``.\
60969\n\nParameters\n----------\n"
60970"c : input rank-2 array('f') with bounds (n,n)\n"
60971"\nOther Parameters\n----------------\n"
60972"overwrite_c : input int, optional\n Default: 0\n"
60973"lower : input int, optional\n Default: 0\n"
60974"\nReturns\n-------\n"
60975"inv_a : rank-2 array('f') with bounds (n,n) and c storage\n"
60976"info : int";
60977/* extern void F_FUNC(spotri,SPOTRI)(char*,F_INT*,float*,F_INT*,F_INT* ); */
60978static PyObject *f2py_rout__flapack_spotri(const PyObject *capi_self,
60979 PyObject *capi_args,
60980 PyObject *capi_keywds,
60981 void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,F_INTint* )) {
60982 PyObject * volatile capi_buildvalue = NULL((void*)0);
60983 volatile int f2py_success = 1;
60984/*decl*/
60985
60986 int n = 0;
60987 float *c = NULL((void*)0);
60988 npy_intp c_Dims[2] = {-1, -1};
60989 const int c_Rank = 2;
60990 PyArrayObject *capi_c_tmp = NULL((void*)0);
60991 int capi_c_intent = 0;
60992 int capi_overwrite_c = 0;
60993 PyObject *c_capi = Py_None(&_Py_NoneStruct);
60994 int info = 0;
60995 int lower = 0;
60996 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
60997 static char *capi_kwlist[] = {"c","lower","overwrite_c",NULL((void*)0)};
60998
60999/*routdebugenter*/
61000#ifdef F2PY_REPORT_ATEXIT
61001f2py_start_clock();
61002#endif
61003 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
61004 "O|Oi:_flapack.spotri",\
61005 capi_kwlist,&c_capi,&lower_capi,&capi_overwrite_c))
61006 return NULL((void*)0);
61007/*frompyobj*/
61008 /* Processing variable lower */
61009 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
61010 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spotri() 1st keyword (lower) can't be converted to int");
61011 if (f2py_success) {
61012 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","spotri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spotri:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
61013 /* Processing variable c */
61014 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
61015 ;
61016 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
61017 capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
61018 if (capi_c_tmp == NULL((void*)0)) {
61019 if (!PyErr_Occurred())
61020 PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.spotri to C/Fortran array" );
61021 } else {
61022 c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
61023
61024 CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c");
} else
{
61025 /* Processing variable info */
61026 /* Processing variable n */
61027 n = shape(c,0)c_Dims[0];
61028/*end of frompyobj*/
61029#ifdef F2PY_REPORT_ATEXIT
61030f2py_start_call_clock();
61031#endif
61032/*callfortranroutine*/
61033 (*f2py_func)((lower?"L":"U"),&n,c,&n,&info) ;
61034 /*(*f2py_func)(&n,c,&info,&lower);*/
61035if (PyErr_Occurred())
61036 f2py_success = 0;
61037#ifdef F2PY_REPORT_ATEXIT
61038f2py_stop_call_clock();
61039#endif
61040/*end of callfortranroutine*/
61041 if (f2py_success) {
61042/*pyobjfrom*/
61043/*end of pyobjfrom*/
61044 CFUNCSMESS("Building return value.\n");
61045 capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info);
61046/*closepyobjfrom*/
61047/*end of closepyobjfrom*/
61048 } /*if (f2py_success) after callfortranroutine*/
61049/*cleanupfrompyobj*/
61050 /* End of cleaning variable n */
61051 /* End of cleaning variable info */
61052 } /*CHECKARRAY(shape(c,0)==shape(c,1))*/
61053 } /*if (capi_c_tmp == NULL) ... else of c*/
61054 /* End of cleaning variable c */
61055 } /*CHECKSCALAR(lower==0||lower==1)*/
61056 } /*if (f2py_success) of lower*/
61057 /* End of cleaning variable lower */
61058/*end of cleanupfrompyobj*/
61059 if (capi_buildvalue == NULL((void*)0)) {
61060/*routdebugfailure*/
61061 } else {
61062/*routdebugleave*/
61063 }
61064 CFUNCSMESS("Freeing memory.\n");
61065/*freemem*/
61066#ifdef F2PY_REPORT_ATEXIT
61067f2py_stop_clock();
61068#endif
61069 return capi_buildvalue;
61070}
61071/******************************* end of spotri *******************************/
61072
61073/*********************************** dpotri ***********************************/
61074static char doc_f2py_rout__flapack_dpotri[] = "\
61075inv_a,info = dpotri(c,[lower,overwrite_c])\n\nWrapper for ``dpotri``.\
61076\n\nParameters\n----------\n"
61077"c : input rank-2 array('d') with bounds (n,n)\n"
61078"\nOther Parameters\n----------------\n"
61079"overwrite_c : input int, optional\n Default: 0\n"
61080"lower : input int, optional\n Default: 0\n"
61081"\nReturns\n-------\n"
61082"inv_a : rank-2 array('d') with bounds (n,n) and c storage\n"
61083"info : int";
61084/* extern void F_FUNC(dpotri,DPOTRI)(char*,F_INT*,double*,F_INT*,F_INT* ); */
61085static PyObject *f2py_rout__flapack_dpotri(const PyObject *capi_self,
61086 PyObject *capi_args,
61087 PyObject *capi_keywds,
61088 void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,F_INTint* )) {
61089 PyObject * volatile capi_buildvalue = NULL((void*)0);
61090 volatile int f2py_success = 1;
61091/*decl*/
61092
61093 int n = 0;
61094 double *c = NULL((void*)0);
61095 npy_intp c_Dims[2] = {-1, -1};
61096 const int c_Rank = 2;
61097 PyArrayObject *capi_c_tmp = NULL((void*)0);
61098 int capi_c_intent = 0;
61099 int capi_overwrite_c = 0;
61100 PyObject *c_capi = Py_None(&_Py_NoneStruct);
61101 int info = 0;
61102 int lower = 0;
61103 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
61104 static char *capi_kwlist[] = {"c","lower","overwrite_c",NULL((void*)0)};
61105
61106/*routdebugenter*/
61107#ifdef F2PY_REPORT_ATEXIT
61108f2py_start_clock();
61109#endif
61110 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
61111 "O|Oi:_flapack.dpotri",\
61112 capi_kwlist,&c_capi,&lower_capi,&capi_overwrite_c))
61113 return NULL((void*)0);
61114/*frompyobj*/
61115 /* Processing variable lower */
61116 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
61117 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpotri() 1st keyword (lower) can't be converted to int");
61118 if (f2py_success) {
61119 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dpotri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpotri:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
61120 /* Processing variable c */
61121 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
61122 ;
61123 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
61124 capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
61125 if (capi_c_tmp == NULL((void*)0)) {
61126 if (!PyErr_Occurred())
61127 PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.dpotri to C/Fortran array" );
61128 } else {
61129 c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
61130
61131 CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c");
} else
{
61132 /* Processing variable info */
61133 /* Processing variable n */
61134 n = shape(c,0)c_Dims[0];
61135/*end of frompyobj*/
61136#ifdef F2PY_REPORT_ATEXIT
61137f2py_start_call_clock();
61138#endif
61139/*callfortranroutine*/
61140 (*f2py_func)((lower?"L":"U"),&n,c,&n,&info) ;
61141 /*(*f2py_func)(&n,c,&info,&lower);*/
61142if (PyErr_Occurred())
61143 f2py_success = 0;
61144#ifdef F2PY_REPORT_ATEXIT
61145f2py_stop_call_clock();
61146#endif
61147/*end of callfortranroutine*/
61148 if (f2py_success) {
61149/*pyobjfrom*/
61150/*end of pyobjfrom*/
61151 CFUNCSMESS("Building return value.\n");
61152 capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info);
61153/*closepyobjfrom*/
61154/*end of closepyobjfrom*/
61155 } /*if (f2py_success) after callfortranroutine*/
61156/*cleanupfrompyobj*/
61157 /* End of cleaning variable n */
61158 /* End of cleaning variable info */
61159 } /*CHECKARRAY(shape(c,0)==shape(c,1))*/
61160 } /*if (capi_c_tmp == NULL) ... else of c*/
61161 /* End of cleaning variable c */
61162 } /*CHECKSCALAR(lower==0||lower==1)*/
61163 } /*if (f2py_success) of lower*/
61164 /* End of cleaning variable lower */
61165/*end of cleanupfrompyobj*/
61166 if (capi_buildvalue == NULL((void*)0)) {
61167/*routdebugfailure*/
61168 } else {
61169/*routdebugleave*/
61170 }
61171 CFUNCSMESS("Freeing memory.\n");
61172/*freemem*/
61173#ifdef F2PY_REPORT_ATEXIT
61174f2py_stop_clock();
61175#endif
61176 return capi_buildvalue;
61177}
61178/******************************* end of dpotri *******************************/
61179
61180/*********************************** cpotri ***********************************/
61181static char doc_f2py_rout__flapack_cpotri[] = "\
61182inv_a,info = cpotri(c,[lower,overwrite_c])\n\nWrapper for ``cpotri``.\
61183\n\nParameters\n----------\n"
61184"c : input rank-2 array('F') with bounds (n,n)\n"
61185"\nOther Parameters\n----------------\n"
61186"overwrite_c : input int, optional\n Default: 0\n"
61187"lower : input int, optional\n Default: 0\n"
61188"\nReturns\n-------\n"
61189"inv_a : rank-2 array('F') with bounds (n,n) and c storage\n"
61190"info : int";
61191/* extern void F_FUNC(cpotri,CPOTRI)(char*,F_INT*,complex_float*,F_INT*,F_INT* ); */
61192static PyObject *f2py_rout__flapack_cpotri(const PyObject *capi_self,
61193 PyObject *capi_args,
61194 PyObject *capi_keywds,
61195 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
61196 PyObject * volatile capi_buildvalue = NULL((void*)0);
61197 volatile int f2py_success = 1;
61198/*decl*/
61199
61200 int n = 0;
61201 complex_float *c = NULL((void*)0);
61202 npy_intp c_Dims[2] = {-1, -1};
61203 const int c_Rank = 2;
61204 PyArrayObject *capi_c_tmp = NULL((void*)0);
61205 int capi_c_intent = 0;
61206 int capi_overwrite_c = 0;
61207 PyObject *c_capi = Py_None(&_Py_NoneStruct);
61208 int info = 0;
61209 int lower = 0;
61210 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
61211 static char *capi_kwlist[] = {"c","lower","overwrite_c",NULL((void*)0)};
61212
61213/*routdebugenter*/
61214#ifdef F2PY_REPORT_ATEXIT
61215f2py_start_clock();
61216#endif
61217 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
61218 "O|Oi:_flapack.cpotri",\
61219 capi_kwlist,&c_capi,&lower_capi,&capi_overwrite_c))
61220 return NULL((void*)0);
61221/*frompyobj*/
61222 /* Processing variable lower */
61223 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
61224 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpotri() 1st keyword (lower) can't be converted to int");
61225 if (f2py_success) {
61226 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cpotri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpotri:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
61227 /* Processing variable c */
61228 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
61229 ;
61230 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
61231 capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
61232 if (capi_c_tmp == NULL((void*)0)) {
61233 if (!PyErr_Occurred())
61234 PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.cpotri to C/Fortran array" );
61235 } else {
61236 c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
61237
61238 CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c");
} else
{
61239 /* Processing variable info */
61240 /* Processing variable n */
61241 n = shape(c,0)c_Dims[0];
61242/*end of frompyobj*/
61243#ifdef F2PY_REPORT_ATEXIT
61244f2py_start_call_clock();
61245#endif
61246/*callfortranroutine*/
61247 (*f2py_func)((lower?"L":"U"),&n,c,&n,&info) ;
61248 /*(*f2py_func)(&n,c,&info,&lower);*/
61249if (PyErr_Occurred())
61250 f2py_success = 0;
61251#ifdef F2PY_REPORT_ATEXIT
61252f2py_stop_call_clock();
61253#endif
61254/*end of callfortranroutine*/
61255 if (f2py_success) {
61256/*pyobjfrom*/
61257/*end of pyobjfrom*/
61258 CFUNCSMESS("Building return value.\n");
61259 capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info);
61260/*closepyobjfrom*/
61261/*end of closepyobjfrom*/
61262 } /*if (f2py_success) after callfortranroutine*/
61263/*cleanupfrompyobj*/
61264 /* End of cleaning variable n */
61265 /* End of cleaning variable info */
61266 } /*CHECKARRAY(shape(c,0)==shape(c,1))*/
61267 } /*if (capi_c_tmp == NULL) ... else of c*/
61268 /* End of cleaning variable c */
61269 } /*CHECKSCALAR(lower==0||lower==1)*/
61270 } /*if (f2py_success) of lower*/
61271 /* End of cleaning variable lower */
61272/*end of cleanupfrompyobj*/
61273 if (capi_buildvalue == NULL((void*)0)) {
61274/*routdebugfailure*/
61275 } else {
61276/*routdebugleave*/
61277 }
61278 CFUNCSMESS("Freeing memory.\n");
61279/*freemem*/
61280#ifdef F2PY_REPORT_ATEXIT
61281f2py_stop_clock();
61282#endif
61283 return capi_buildvalue;
61284}
61285/******************************* end of cpotri *******************************/
61286
61287/*********************************** zpotri ***********************************/
61288static char doc_f2py_rout__flapack_zpotri[] = "\
61289inv_a,info = zpotri(c,[lower,overwrite_c])\n\nWrapper for ``zpotri``.\
61290\n\nParameters\n----------\n"
61291"c : input rank-2 array('D') with bounds (n,n)\n"
61292"\nOther Parameters\n----------------\n"
61293"overwrite_c : input int, optional\n Default: 0\n"
61294"lower : input int, optional\n Default: 0\n"
61295"\nReturns\n-------\n"
61296"inv_a : rank-2 array('D') with bounds (n,n) and c storage\n"
61297"info : int";
61298/* extern void F_FUNC(zpotri,ZPOTRI)(char*,F_INT*,complex_double*,F_INT*,F_INT* ); */
61299static PyObject *f2py_rout__flapack_zpotri(const PyObject *capi_self,
61300 PyObject *capi_args,
61301 PyObject *capi_keywds,
61302 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
61303 PyObject * volatile capi_buildvalue = NULL((void*)0);
61304 volatile int f2py_success = 1;
61305/*decl*/
61306
61307 int n = 0;
61308 complex_double *c = NULL((void*)0);
61309 npy_intp c_Dims[2] = {-1, -1};
61310 const int c_Rank = 2;
61311 PyArrayObject *capi_c_tmp = NULL((void*)0);
61312 int capi_c_intent = 0;
61313 int capi_overwrite_c = 0;
61314 PyObject *c_capi = Py_None(&_Py_NoneStruct);
61315 int info = 0;
61316 int lower = 0;
61317 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
61318 static char *capi_kwlist[] = {"c","lower","overwrite_c",NULL((void*)0)};
61319
61320/*routdebugenter*/
61321#ifdef F2PY_REPORT_ATEXIT
61322f2py_start_clock();
61323#endif
61324 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
61325 "O|Oi:_flapack.zpotri",\
61326 capi_kwlist,&c_capi,&lower_capi,&capi_overwrite_c))
61327 return NULL((void*)0);
61328/*frompyobj*/
61329 /* Processing variable lower */
61330 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
61331 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpotri() 1st keyword (lower) can't be converted to int");
61332 if (f2py_success) {
61333 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zpotri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpotri:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
61334 /* Processing variable c */
61335 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
61336 ;
61337 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
61338 capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
61339 if (capi_c_tmp == NULL((void*)0)) {
61340 if (!PyErr_Occurred())
61341 PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.zpotri to C/Fortran array" );
61342 } else {
61343 c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
61344
61345 CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c");
} else
{
61346 /* Processing variable info */
61347 /* Processing variable n */
61348 n = shape(c,0)c_Dims[0];
61349/*end of frompyobj*/
61350#ifdef F2PY_REPORT_ATEXIT
61351f2py_start_call_clock();
61352#endif
61353/*callfortranroutine*/
61354 (*f2py_func)((lower?"L":"U"),&n,c,&n,&info) ;
61355 /*(*f2py_func)(&n,c,&info,&lower);*/
61356if (PyErr_Occurred())
61357 f2py_success = 0;
61358#ifdef F2PY_REPORT_ATEXIT
61359f2py_stop_call_clock();
61360#endif
61361/*end of callfortranroutine*/
61362 if (f2py_success) {
61363/*pyobjfrom*/
61364/*end of pyobjfrom*/
61365 CFUNCSMESS("Building return value.\n");
61366 capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info);
61367/*closepyobjfrom*/
61368/*end of closepyobjfrom*/
61369 } /*if (f2py_success) after callfortranroutine*/
61370/*cleanupfrompyobj*/
61371 /* End of cleaning variable n */
61372 /* End of cleaning variable info */
61373 } /*CHECKARRAY(shape(c,0)==shape(c,1))*/
61374 } /*if (capi_c_tmp == NULL) ... else of c*/
61375 /* End of cleaning variable c */
61376 } /*CHECKSCALAR(lower==0||lower==1)*/
61377 } /*if (f2py_success) of lower*/
61378 /* End of cleaning variable lower */
61379/*end of cleanupfrompyobj*/
61380 if (capi_buildvalue == NULL((void*)0)) {
61381/*routdebugfailure*/
61382 } else {
61383/*routdebugleave*/
61384 }
61385 CFUNCSMESS("Freeing memory.\n");
61386/*freemem*/
61387#ifdef F2PY_REPORT_ATEXIT
61388f2py_stop_clock();
61389#endif
61390 return capi_buildvalue;
61391}
61392/******************************* end of zpotri *******************************/
61393
61394/*********************************** sptsv ***********************************/
61395static char doc_f2py_rout__flapack_sptsv[] = "\
61396d,du,x,info = sptsv(d,e,b,[overwrite_d,overwrite_e,overwrite_b])\n\nWrapper for ``sptsv``.\
61397\n\nParameters\n----------\n"
61398"d : input rank-1 array('f') with bounds (n)\n"
61399"e : input rank-1 array('f') with bounds (n - 1)\n"
61400"b : input rank-2 array('f') with bounds (n,nrhs)\n"
61401"\nOther Parameters\n----------------\n"
61402"overwrite_d : input int, optional\n Default: 0\n"
61403"overwrite_e : input int, optional\n Default: 0\n"
61404"overwrite_b : input int, optional\n Default: 0\n"
61405"\nReturns\n-------\n"
61406"d : rank-1 array('f') with bounds (n)\n"
61407"du : rank-1 array('f') with bounds (n - 1) and e storage\n"
61408"x : rank-2 array('f') with bounds (n,nrhs) and b storage\n"
61409"info : int";
61410/* extern void F_FUNC(sptsv,SPTSV)(F_INT*, F_INT*, float*, float*, float*, F_INT*, F_INT* ); */
61411static PyObject *f2py_rout__flapack_sptsv(const PyObject *capi_self,
61412 PyObject *capi_args,
61413 PyObject *capi_keywds,
61414 void (*f2py_func)(F_INTint*, F_INTint*, float*, float*, float*, F_INTint*, F_INTint* )) {
61415 PyObject * volatile capi_buildvalue = NULL((void*)0);
61416 volatile int f2py_success = 1;
61417/*decl*/
61418
61419 int n = 0;
61420 int nrhs = 0;
61421 float *d = NULL((void*)0);
61422 npy_intp d_Dims[1] = {-1};
61423 const int d_Rank = 1;
61424 PyArrayObject *capi_d_tmp = NULL((void*)0);
61425 int capi_d_intent = 0;
61426 int capi_overwrite_d = 0;
61427 PyObject *d_capi = Py_None(&_Py_NoneStruct);
61428 float *e = NULL((void*)0);
61429 npy_intp e_Dims[1] = {-1};
61430 const int e_Rank = 1;
61431 PyArrayObject *capi_e_tmp = NULL((void*)0);
61432 int capi_e_intent = 0;
61433 int capi_overwrite_e = 0;
61434 PyObject *e_capi = Py_None(&_Py_NoneStruct);
61435 float *b = NULL((void*)0);
61436 npy_intp b_Dims[2] = {-1, -1};
61437 const int b_Rank = 2;
61438 PyArrayObject *capi_b_tmp = NULL((void*)0);
61439 int capi_b_intent = 0;
61440 int capi_overwrite_b = 0;
61441 PyObject *b_capi = Py_None(&_Py_NoneStruct);
61442 int info = 0;
61443 static char *capi_kwlist[] = {"d","e","b","overwrite_d","overwrite_e","overwrite_b",NULL((void*)0)};
61444
61445/*routdebugenter*/
61446#ifdef F2PY_REPORT_ATEXIT
61447f2py_start_clock();
61448#endif
61449 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
61450 "OOO|iii:_flapack.sptsv",\
61451 capi_kwlist,&d_capi,&e_capi,&b_capi,&capi_overwrite_d,&capi_overwrite_e,&capi_overwrite_b))
61452 return NULL((void*)0);
61453/*frompyobj*/
61454 /* Processing variable d */
61455 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
61456 ;
61457 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
61458 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
61459 if (capi_d_tmp == NULL((void*)0)) {
61460 if (!PyErr_Occurred())
61461 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.sptsv to C/Fortran array" );
61462 } else {
61463 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
61464
61465 /* Processing variable info */
61466 /* Processing variable n */
61467 n = len(d)d_Dims[0];
61468 /* Processing variable e */
61469 capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32);
61470 e_Dims[0]=n - 1;
61471 capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
61472 capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi);
61473 if (capi_e_tmp == NULL((void*)0)) {
61474 if (!PyErr_Occurred())
61475 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.sptsv to C/Fortran array" );
61476 } else {
61477 e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
61478
61479 /* Processing variable b */
61480 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
61481 b_Dims[0]=n;
61482 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
61483 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
61484 if (capi_b_tmp == NULL((void*)0)) {
61485 if (!PyErr_Occurred())
61486 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.sptsv to C/Fortran array" );
61487 } else {
61488 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
61489
61490 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","3rd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""3rd argument b"); } else
{
61491 /* Processing variable nrhs */
61492 nrhs = shape(b, 1)b_Dims[1];
61493/*end of frompyobj*/
61494#ifdef F2PY_REPORT_ATEXIT
61495f2py_start_call_clock();
61496#endif
61497/*callfortranroutine*/
61498 (*f2py_func)(&n, &nrhs, d, e, b, &n, &info); ;
61499 /*(*f2py_func)(&n,&nrhs,d,e,b,&info);*/
61500if (PyErr_Occurred())
61501 f2py_success = 0;
61502#ifdef F2PY_REPORT_ATEXIT
61503f2py_stop_call_clock();
61504#endif
61505/*end of callfortranroutine*/
61506 if (f2py_success) {
61507/*pyobjfrom*/
61508/*end of pyobjfrom*/
61509 CFUNCSMESS("Building return value.\n");
61510 capi_buildvalue = Py_BuildValue("NNNi",capi_d_tmp,capi_e_tmp,capi_b_tmp,info);
61511/*closepyobjfrom*/
61512/*end of closepyobjfrom*/
61513 } /*if (f2py_success) after callfortranroutine*/
61514/*cleanupfrompyobj*/
61515 /* End of cleaning variable nrhs */
61516 } /*CHECKARRAY(shape(b,0)==n)*/
61517 } /*if (capi_b_tmp == NULL) ... else of b*/
61518 /* End of cleaning variable b */
61519 } /*if (capi_e_tmp == NULL) ... else of e*/
61520 /* End of cleaning variable e */
61521 /* End of cleaning variable n */
61522 /* End of cleaning variable info */
61523 } /*if (capi_d_tmp == NULL) ... else of d*/
61524 /* End of cleaning variable d */
61525/*end of cleanupfrompyobj*/
61526 if (capi_buildvalue == NULL((void*)0)) {
61527/*routdebugfailure*/
61528 } else {
61529/*routdebugleave*/
61530 }
61531 CFUNCSMESS("Freeing memory.\n");
61532/*freemem*/
61533#ifdef F2PY_REPORT_ATEXIT
61534f2py_stop_clock();
61535#endif
61536 return capi_buildvalue;
61537}
61538/******************************** end of sptsv ********************************/
61539
61540/*********************************** dptsv ***********************************/
61541static char doc_f2py_rout__flapack_dptsv[] = "\
61542d,du,x,info = dptsv(d,e,b,[overwrite_d,overwrite_e,overwrite_b])\n\nWrapper for ``dptsv``.\
61543\n\nParameters\n----------\n"
61544"d : input rank-1 array('d') with bounds (n)\n"
61545"e : input rank-1 array('d') with bounds (n - 1)\n"
61546"b : input rank-2 array('d') with bounds (n,nrhs)\n"
61547"\nOther Parameters\n----------------\n"
61548"overwrite_d : input int, optional\n Default: 0\n"
61549"overwrite_e : input int, optional\n Default: 0\n"
61550"overwrite_b : input int, optional\n Default: 0\n"
61551"\nReturns\n-------\n"
61552"d : rank-1 array('d') with bounds (n)\n"
61553"du : rank-1 array('d') with bounds (n - 1) and e storage\n"
61554"x : rank-2 array('d') with bounds (n,nrhs) and b storage\n"
61555"info : int";
61556/* extern void F_FUNC(dptsv,DPTSV)(F_INT*, F_INT*, double*, double*, double*, F_INT*, F_INT* ); */
61557static PyObject *f2py_rout__flapack_dptsv(const PyObject *capi_self,
61558 PyObject *capi_args,
61559 PyObject *capi_keywds,
61560 void (*f2py_func)(F_INTint*, F_INTint*, double*, double*, double*, F_INTint*, F_INTint* )) {
61561 PyObject * volatile capi_buildvalue = NULL((void*)0);
61562 volatile int f2py_success = 1;
61563/*decl*/
61564
61565 int n = 0;
61566 int nrhs = 0;
61567 double *d = NULL((void*)0);
61568 npy_intp d_Dims[1] = {-1};
61569 const int d_Rank = 1;
61570 PyArrayObject *capi_d_tmp = NULL((void*)0);
61571 int capi_d_intent = 0;
61572 int capi_overwrite_d = 0;
61573 PyObject *d_capi = Py_None(&_Py_NoneStruct);
61574 double *e = NULL((void*)0);
61575 npy_intp e_Dims[1] = {-1};
61576 const int e_Rank = 1;
61577 PyArrayObject *capi_e_tmp = NULL((void*)0);
61578 int capi_e_intent = 0;
61579 int capi_overwrite_e = 0;
61580 PyObject *e_capi = Py_None(&_Py_NoneStruct);
61581 double *b = NULL((void*)0);
61582 npy_intp b_Dims[2] = {-1, -1};
61583 const int b_Rank = 2;
61584 PyArrayObject *capi_b_tmp = NULL((void*)0);
61585 int capi_b_intent = 0;
61586 int capi_overwrite_b = 0;
61587 PyObject *b_capi = Py_None(&_Py_NoneStruct);
61588 int info = 0;
61589 static char *capi_kwlist[] = {"d","e","b","overwrite_d","overwrite_e","overwrite_b",NULL((void*)0)};
61590
61591/*routdebugenter*/
61592#ifdef F2PY_REPORT_ATEXIT
61593f2py_start_clock();
61594#endif
61595 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
61596 "OOO|iii:_flapack.dptsv",\
61597 capi_kwlist,&d_capi,&e_capi,&b_capi,&capi_overwrite_d,&capi_overwrite_e,&capi_overwrite_b))
61598 return NULL((void*)0);
61599/*frompyobj*/
61600 /* Processing variable d */
61601 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
61602 ;
61603 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
61604 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
61605 if (capi_d_tmp == NULL((void*)0)) {
61606 if (!PyErr_Occurred())
61607 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dptsv to C/Fortran array" );
61608 } else {
61609 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
61610
61611 /* Processing variable info */
61612 /* Processing variable n */
61613 n = len(d)d_Dims[0];
61614 /* Processing variable e */
61615 capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32);
61616 e_Dims[0]=n - 1;
61617 capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
61618 capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi);
61619 if (capi_e_tmp == NULL((void*)0)) {
61620 if (!PyErr_Occurred())
61621 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dptsv to C/Fortran array" );
61622 } else {
61623 e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
61624
61625 /* Processing variable b */
61626 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
61627 b_Dims[0]=n;
61628 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
61629 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
61630 if (capi_b_tmp == NULL((void*)0)) {
61631 if (!PyErr_Occurred())
61632 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.dptsv to C/Fortran array" );
61633 } else {
61634 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
61635
61636 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","3rd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""3rd argument b"); } else
{
61637 /* Processing variable nrhs */
61638 nrhs = shape(b, 1)b_Dims[1];
61639/*end of frompyobj*/
61640#ifdef F2PY_REPORT_ATEXIT
61641f2py_start_call_clock();
61642#endif
61643/*callfortranroutine*/
61644 (*f2py_func)(&n, &nrhs, d, e, b, &n, &info); ;
61645 /*(*f2py_func)(&n,&nrhs,d,e,b,&info);*/
61646if (PyErr_Occurred())
61647 f2py_success = 0;
61648#ifdef F2PY_REPORT_ATEXIT
61649f2py_stop_call_clock();
61650#endif
61651/*end of callfortranroutine*/
61652 if (f2py_success) {
61653/*pyobjfrom*/
61654/*end of pyobjfrom*/
61655 CFUNCSMESS("Building return value.\n");
61656 capi_buildvalue = Py_BuildValue("NNNi",capi_d_tmp,capi_e_tmp,capi_b_tmp,info);
61657/*closepyobjfrom*/
61658/*end of closepyobjfrom*/
61659 } /*if (f2py_success) after callfortranroutine*/
61660/*cleanupfrompyobj*/
61661 /* End of cleaning variable nrhs */
61662 } /*CHECKARRAY(shape(b,0)==n)*/
61663 } /*if (capi_b_tmp == NULL) ... else of b*/
61664 /* End of cleaning variable b */
61665 } /*if (capi_e_tmp == NULL) ... else of e*/
61666 /* End of cleaning variable e */
61667 /* End of cleaning variable n */
61668 /* End of cleaning variable info */
61669 } /*if (capi_d_tmp == NULL) ... else of d*/
61670 /* End of cleaning variable d */
61671/*end of cleanupfrompyobj*/
61672 if (capi_buildvalue == NULL((void*)0)) {
61673/*routdebugfailure*/
61674 } else {
61675/*routdebugleave*/
61676 }
61677 CFUNCSMESS("Freeing memory.\n");
61678/*freemem*/
61679#ifdef F2PY_REPORT_ATEXIT
61680f2py_stop_clock();
61681#endif
61682 return capi_buildvalue;
61683}
61684/******************************** end of dptsv ********************************/
61685
61686/*********************************** cptsv ***********************************/
61687static char doc_f2py_rout__flapack_cptsv[] = "\
61688d,du,x,info = cptsv(d,e,b,[overwrite_d,overwrite_e,overwrite_b])\n\nWrapper for ``cptsv``.\
61689\n\nParameters\n----------\n"
61690"d : input rank-1 array('f') with bounds (n)\n"
61691"e : input rank-1 array('F') with bounds (n - 1)\n"
61692"b : input rank-2 array('F') with bounds (n,nrhs)\n"
61693"\nOther Parameters\n----------------\n"
61694"overwrite_d : input int, optional\n Default: 0\n"
61695"overwrite_e : input int, optional\n Default: 0\n"
61696"overwrite_b : input int, optional\n Default: 0\n"
61697"\nReturns\n-------\n"
61698"d : rank-1 array('f') with bounds (n)\n"
61699"du : rank-1 array('F') with bounds (n - 1) and e storage\n"
61700"x : rank-2 array('F') with bounds (n,nrhs) and b storage\n"
61701"info : int";
61702/* extern void F_FUNC(cptsv,CPTSV)(F_INT*, F_INT*, float*, complex_float*, complex_float*, F_INT*, F_INT* ); */
61703static PyObject *f2py_rout__flapack_cptsv(const PyObject *capi_self,
61704 PyObject *capi_args,
61705 PyObject *capi_keywds,
61706 void (*f2py_func)(F_INTint*, F_INTint*, float*, complex_float*, complex_float*, F_INTint*, F_INTint* )) {
61707 PyObject * volatile capi_buildvalue = NULL((void*)0);
61708 volatile int f2py_success = 1;
61709/*decl*/
61710
61711 int n = 0;
61712 int nrhs = 0;
61713 float *d = NULL((void*)0);
61714 npy_intp d_Dims[1] = {-1};
61715 const int d_Rank = 1;
61716 PyArrayObject *capi_d_tmp = NULL((void*)0);
61717 int capi_d_intent = 0;
61718 int capi_overwrite_d = 0;
61719 PyObject *d_capi = Py_None(&_Py_NoneStruct);
61720 complex_float *e = NULL((void*)0);
61721 npy_intp e_Dims[1] = {-1};
61722 const int e_Rank = 1;
61723 PyArrayObject *capi_e_tmp = NULL((void*)0);
61724 int capi_e_intent = 0;
61725 int capi_overwrite_e = 0;
61726 PyObject *e_capi = Py_None(&_Py_NoneStruct);
61727 complex_float *b = NULL((void*)0);
61728 npy_intp b_Dims[2] = {-1, -1};
61729 const int b_Rank = 2;
61730 PyArrayObject *capi_b_tmp = NULL((void*)0);
61731 int capi_b_intent = 0;
61732 int capi_overwrite_b = 0;
61733 PyObject *b_capi = Py_None(&_Py_NoneStruct);
61734 int info = 0;
61735 static char *capi_kwlist[] = {"d","e","b","overwrite_d","overwrite_e","overwrite_b",NULL((void*)0)};
61736
61737/*routdebugenter*/
61738#ifdef F2PY_REPORT_ATEXIT
61739f2py_start_clock();
61740#endif
61741 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
61742 "OOO|iii:_flapack.cptsv",\
61743 capi_kwlist,&d_capi,&e_capi,&b_capi,&capi_overwrite_d,&capi_overwrite_e,&capi_overwrite_b))
61744 return NULL((void*)0);
61745/*frompyobj*/
61746 /* Processing variable d */
61747 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
61748 ;
61749 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
61750 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
61751 if (capi_d_tmp == NULL((void*)0)) {
61752 if (!PyErr_Occurred())
61753 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.cptsv to C/Fortran array" );
61754 } else {
61755 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
61756
61757 /* Processing variable info */
61758 /* Processing variable n */
61759 n = len(d)d_Dims[0];
61760 /* Processing variable e */
61761 capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32);
61762 e_Dims[0]=n - 1;
61763 capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
61764 capi_e_tmp = array_from_pyobj(NPY_CFLOAT,e_Dims,e_Rank,capi_e_intent,e_capi);
61765 if (capi_e_tmp == NULL((void*)0)) {
61766 if (!PyErr_Occurred())
61767 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.cptsv to C/Fortran array" );
61768 } else {
61769 e = (complex_float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
61770
61771 /* Processing variable b */
61772 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
61773 b_Dims[0]=n;
61774 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
61775 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
61776 if (capi_b_tmp == NULL((void*)0)) {
61777 if (!PyErr_Occurred())
61778 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.cptsv to C/Fortran array" );
61779 } else {
61780 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
61781
61782 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","3rd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""3rd argument b"); } else
{
61783 /* Processing variable nrhs */
61784 nrhs = shape(b, 1)b_Dims[1];
61785/*end of frompyobj*/
61786#ifdef F2PY_REPORT_ATEXIT
61787f2py_start_call_clock();
61788#endif
61789/*callfortranroutine*/
61790 (*f2py_func)(&n, &nrhs, d, e, b, &n, &info); ;
61791 /*(*f2py_func)(&n,&nrhs,d,e,b,&info);*/
61792if (PyErr_Occurred())
61793 f2py_success = 0;
61794#ifdef F2PY_REPORT_ATEXIT
61795f2py_stop_call_clock();
61796#endif
61797/*end of callfortranroutine*/
61798 if (f2py_success) {
61799/*pyobjfrom*/
61800/*end of pyobjfrom*/
61801 CFUNCSMESS("Building return value.\n");
61802 capi_buildvalue = Py_BuildValue("NNNi",capi_d_tmp,capi_e_tmp,capi_b_tmp,info);
61803/*closepyobjfrom*/
61804/*end of closepyobjfrom*/
61805 } /*if (f2py_success) after callfortranroutine*/
61806/*cleanupfrompyobj*/
61807 /* End of cleaning variable nrhs */
61808 } /*CHECKARRAY(shape(b,0)==n)*/
61809 } /*if (capi_b_tmp == NULL) ... else of b*/
61810 /* End of cleaning variable b */
61811 } /*if (capi_e_tmp == NULL) ... else of e*/
61812 /* End of cleaning variable e */
61813 /* End of cleaning variable n */
61814 /* End of cleaning variable info */
61815 } /*if (capi_d_tmp == NULL) ... else of d*/
61816 /* End of cleaning variable d */
61817/*end of cleanupfrompyobj*/
61818 if (capi_buildvalue == NULL((void*)0)) {
61819/*routdebugfailure*/
61820 } else {
61821/*routdebugleave*/
61822 }
61823 CFUNCSMESS("Freeing memory.\n");
61824/*freemem*/
61825#ifdef F2PY_REPORT_ATEXIT
61826f2py_stop_clock();
61827#endif
61828 return capi_buildvalue;
61829}
61830/******************************** end of cptsv ********************************/
61831
61832/*********************************** zptsv ***********************************/
61833static char doc_f2py_rout__flapack_zptsv[] = "\
61834d,du,x,info = zptsv(d,e,b,[overwrite_d,overwrite_e,overwrite_b])\n\nWrapper for ``zptsv``.\
61835\n\nParameters\n----------\n"
61836"d : input rank-1 array('d') with bounds (n)\n"
61837"e : input rank-1 array('D') with bounds (n - 1)\n"
61838"b : input rank-2 array('D') with bounds (n,nrhs)\n"
61839"\nOther Parameters\n----------------\n"
61840"overwrite_d : input int, optional\n Default: 0\n"
61841"overwrite_e : input int, optional\n Default: 0\n"
61842"overwrite_b : input int, optional\n Default: 0\n"
61843"\nReturns\n-------\n"
61844"d : rank-1 array('d') with bounds (n)\n"
61845"du : rank-1 array('D') with bounds (n - 1) and e storage\n"
61846"x : rank-2 array('D') with bounds (n,nrhs) and b storage\n"
61847"info : int";
61848/* extern void F_FUNC(zptsv,ZPTSV)(F_INT*, F_INT*, double*, complex_double*, complex_double*, F_INT*, F_INT* ); */
61849static PyObject *f2py_rout__flapack_zptsv(const PyObject *capi_self,
61850 PyObject *capi_args,
61851 PyObject *capi_keywds,
61852 void (*f2py_func)(F_INTint*, F_INTint*, double*, complex_double*, complex_double*, F_INTint*, F_INTint* )) {
61853 PyObject * volatile capi_buildvalue = NULL((void*)0);
61854 volatile int f2py_success = 1;
61855/*decl*/
61856
61857 int n = 0;
61858 int nrhs = 0;
61859 double *d = NULL((void*)0);
61860 npy_intp d_Dims[1] = {-1};
61861 const int d_Rank = 1;
61862 PyArrayObject *capi_d_tmp = NULL((void*)0);
61863 int capi_d_intent = 0;
61864 int capi_overwrite_d = 0;
61865 PyObject *d_capi = Py_None(&_Py_NoneStruct);
61866 complex_double *e = NULL((void*)0);
61867 npy_intp e_Dims[1] = {-1};
61868 const int e_Rank = 1;
61869 PyArrayObject *capi_e_tmp = NULL((void*)0);
61870 int capi_e_intent = 0;
61871 int capi_overwrite_e = 0;
61872 PyObject *e_capi = Py_None(&_Py_NoneStruct);
61873 complex_double *b = NULL((void*)0);
61874 npy_intp b_Dims[2] = {-1, -1};
61875 const int b_Rank = 2;
61876 PyArrayObject *capi_b_tmp = NULL((void*)0);
61877 int capi_b_intent = 0;
61878 int capi_overwrite_b = 0;
61879 PyObject *b_capi = Py_None(&_Py_NoneStruct);
61880 int info = 0;
61881 static char *capi_kwlist[] = {"d","e","b","overwrite_d","overwrite_e","overwrite_b",NULL((void*)0)};
61882
61883/*routdebugenter*/
61884#ifdef F2PY_REPORT_ATEXIT
61885f2py_start_clock();
61886#endif
61887 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
61888 "OOO|iii:_flapack.zptsv",\
61889 capi_kwlist,&d_capi,&e_capi,&b_capi,&capi_overwrite_d,&capi_overwrite_e,&capi_overwrite_b))
61890 return NULL((void*)0);
61891/*frompyobj*/
61892 /* Processing variable d */
61893 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
61894 ;
61895 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
61896 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
61897 if (capi_d_tmp == NULL((void*)0)) {
61898 if (!PyErr_Occurred())
61899 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.zptsv to C/Fortran array" );
61900 } else {
61901 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
61902
61903 /* Processing variable info */
61904 /* Processing variable n */
61905 n = len(d)d_Dims[0];
61906 /* Processing variable e */
61907 capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32);
61908 e_Dims[0]=n - 1;
61909 capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
61910 capi_e_tmp = array_from_pyobj(NPY_CDOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi);
61911 if (capi_e_tmp == NULL((void*)0)) {
61912 if (!PyErr_Occurred())
61913 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.zptsv to C/Fortran array" );
61914 } else {
61915 e = (complex_double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
61916
61917 /* Processing variable b */
61918 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
61919 b_Dims[0]=n;
61920 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
61921 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
61922 if (capi_b_tmp == NULL((void*)0)) {
61923 if (!PyErr_Occurred())
61924 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.zptsv to C/Fortran array" );
61925 } else {
61926 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
61927
61928 CHECKARRAY(shape(b,0)==n,"shape(b,0)==n","3rd argument b")if (!(b_Dims[0]==n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)==n"
") failed for ""3rd argument b"); } else
{
61929 /* Processing variable nrhs */
61930 nrhs = shape(b, 1)b_Dims[1];
61931/*end of frompyobj*/
61932#ifdef F2PY_REPORT_ATEXIT
61933f2py_start_call_clock();
61934#endif
61935/*callfortranroutine*/
61936 (*f2py_func)(&n, &nrhs, d, e, b, &n, &info); ;
61937 /*(*f2py_func)(&n,&nrhs,d,e,b,&info);*/
61938if (PyErr_Occurred())
61939 f2py_success = 0;
61940#ifdef F2PY_REPORT_ATEXIT
61941f2py_stop_call_clock();
61942#endif
61943/*end of callfortranroutine*/
61944 if (f2py_success) {
61945/*pyobjfrom*/
61946/*end of pyobjfrom*/
61947 CFUNCSMESS("Building return value.\n");
61948 capi_buildvalue = Py_BuildValue("NNNi",capi_d_tmp,capi_e_tmp,capi_b_tmp,info);
61949/*closepyobjfrom*/
61950/*end of closepyobjfrom*/
61951 } /*if (f2py_success) after callfortranroutine*/
61952/*cleanupfrompyobj*/
61953 /* End of cleaning variable nrhs */
61954 } /*CHECKARRAY(shape(b,0)==n)*/
61955 } /*if (capi_b_tmp == NULL) ... else of b*/
61956 /* End of cleaning variable b */
61957 } /*if (capi_e_tmp == NULL) ... else of e*/
61958 /* End of cleaning variable e */
61959 /* End of cleaning variable n */
61960 /* End of cleaning variable info */
61961 } /*if (capi_d_tmp == NULL) ... else of d*/
61962 /* End of cleaning variable d */
61963/*end of cleanupfrompyobj*/
61964 if (capi_buildvalue == NULL((void*)0)) {
61965/*routdebugfailure*/
61966 } else {
61967/*routdebugleave*/
61968 }
61969 CFUNCSMESS("Freeing memory.\n");
61970/*freemem*/
61971#ifdef F2PY_REPORT_ATEXIT
61972f2py_stop_clock();
61973#endif
61974 return capi_buildvalue;
61975}
61976/******************************** end of zptsv ********************************/
61977
61978/*********************************** spttrf ***********************************/
61979static char doc_f2py_rout__flapack_spttrf[] = "\
61980d,e,info = spttrf(d,e,[overwrite_d,overwrite_e])\n\nWrapper for ``spttrf``.\
61981\n\nParameters\n----------\n"
61982"d : input rank-1 array('f') with bounds (n)\n"
61983"e : input rank-1 array('f') with bounds ((n>0?n-1:0))\n"
61984"\nOther Parameters\n----------------\n"
61985"overwrite_d : input int, optional\n Default: 0\n"
61986"overwrite_e : input int, optional\n Default: 0\n"
61987"\nReturns\n-------\n"
61988"d : rank-1 array('f') with bounds (n)\n"
61989"e : rank-1 array('f') with bounds ((n>0?n-1:0))\n"
61990"info : int";
61991/* extern void F_FUNC(spttrf,SPTTRF)(F_INT*, float*, float*, F_INT* ); */
61992static PyObject *f2py_rout__flapack_spttrf(const PyObject *capi_self,
61993 PyObject *capi_args,
61994 PyObject *capi_keywds,
61995 void (*f2py_func)(F_INTint*, float*, float*, F_INTint* )) {
61996 PyObject * volatile capi_buildvalue = NULL((void*)0);
61997 volatile int f2py_success = 1;
61998/*decl*/
61999
62000 int n = 0;
62001 float *d = NULL((void*)0);
62002 npy_intp d_Dims[1] = {-1};
62003 const int d_Rank = 1;
62004 PyArrayObject *capi_d_tmp = NULL((void*)0);
62005 int capi_d_intent = 0;
62006 int capi_overwrite_d = 0;
62007 PyObject *d_capi = Py_None(&_Py_NoneStruct);
62008 float *e = NULL((void*)0);
62009 npy_intp e_Dims[1] = {-1};
62010 const int e_Rank = 1;
62011 PyArrayObject *capi_e_tmp = NULL((void*)0);
62012 int capi_e_intent = 0;
62013 int capi_overwrite_e = 0;
62014 PyObject *e_capi = Py_None(&_Py_NoneStruct);
62015 int info = 0;
62016 static char *capi_kwlist[] = {"d","e","overwrite_d","overwrite_e",NULL((void*)0)};
62017
62018/*routdebugenter*/
62019#ifdef F2PY_REPORT_ATEXIT
62020f2py_start_clock();
62021#endif
62022 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
62023 "OO|ii:_flapack.spttrf",\
62024 capi_kwlist,&d_capi,&e_capi,&capi_overwrite_d,&capi_overwrite_e))
62025 return NULL((void*)0);
62026/*frompyobj*/
62027 /* Processing variable d */
62028 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
62029 ;
62030 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
62031 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
62032 if (capi_d_tmp == NULL((void*)0)) {
62033 if (!PyErr_Occurred())
62034 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.spttrf to C/Fortran array" );
62035 } else {
62036 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
62037
62038 /* Processing variable info */
62039 /* Processing variable n */
62040 n = len(d)d_Dims[0];
62041 /* Processing variable e */
62042 capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32);
62043 e_Dims[0]=(n>0?n-1:0);
62044 capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
62045 capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi);
62046 if (capi_e_tmp == NULL((void*)0)) {
62047 if (!PyErr_Occurred())
62048 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.spttrf to C/Fortran array" );
62049 } else {
62050 e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
62051
62052/*end of frompyobj*/
62053#ifdef F2PY_REPORT_ATEXIT
62054f2py_start_call_clock();
62055#endif
62056/*callfortranroutine*/
62057 (*f2py_func)(&n, d, e, &info) ;
62058 /*(*f2py_func)(&n,d,e,&info);*/
62059if (PyErr_Occurred())
62060 f2py_success = 0;
62061#ifdef F2PY_REPORT_ATEXIT
62062f2py_stop_call_clock();
62063#endif
62064/*end of callfortranroutine*/
62065 if (f2py_success) {
62066/*pyobjfrom*/
62067/*end of pyobjfrom*/
62068 CFUNCSMESS("Building return value.\n");
62069 capi_buildvalue = Py_BuildValue("NNi",capi_d_tmp,capi_e_tmp,info);
62070/*closepyobjfrom*/
62071/*end of closepyobjfrom*/
62072 } /*if (f2py_success) after callfortranroutine*/
62073/*cleanupfrompyobj*/
62074 } /*if (capi_e_tmp == NULL) ... else of e*/
62075 /* End of cleaning variable e */
62076 /* End of cleaning variable n */
62077 /* End of cleaning variable info */
62078 } /*if (capi_d_tmp == NULL) ... else of d*/
62079 /* End of cleaning variable d */
62080/*end of cleanupfrompyobj*/
62081 if (capi_buildvalue == NULL((void*)0)) {
62082/*routdebugfailure*/
62083 } else {
62084/*routdebugleave*/
62085 }
62086 CFUNCSMESS("Freeing memory.\n");
62087/*freemem*/
62088#ifdef F2PY_REPORT_ATEXIT
62089f2py_stop_clock();
62090#endif
62091 return capi_buildvalue;
62092}
62093/******************************* end of spttrf *******************************/
62094
62095/*********************************** dpttrf ***********************************/
62096static char doc_f2py_rout__flapack_dpttrf[] = "\
62097d,e,info = dpttrf(d,e,[overwrite_d,overwrite_e])\n\nWrapper for ``dpttrf``.\
62098\n\nParameters\n----------\n"
62099"d : input rank-1 array('d') with bounds (n)\n"
62100"e : input rank-1 array('d') with bounds ((n>0?n-1:0))\n"
62101"\nOther Parameters\n----------------\n"
62102"overwrite_d : input int, optional\n Default: 0\n"
62103"overwrite_e : input int, optional\n Default: 0\n"
62104"\nReturns\n-------\n"
62105"d : rank-1 array('d') with bounds (n)\n"
62106"e : rank-1 array('d') with bounds ((n>0?n-1:0))\n"
62107"info : int";
62108/* extern void F_FUNC(dpttrf,DPTTRF)(F_INT*, double*, double*, F_INT* ); */
62109static PyObject *f2py_rout__flapack_dpttrf(const PyObject *capi_self,
62110 PyObject *capi_args,
62111 PyObject *capi_keywds,
62112 void (*f2py_func)(F_INTint*, double*, double*, F_INTint* )) {
62113 PyObject * volatile capi_buildvalue = NULL((void*)0);
62114 volatile int f2py_success = 1;
62115/*decl*/
62116
62117 int n = 0;
62118 double *d = NULL((void*)0);
62119 npy_intp d_Dims[1] = {-1};
62120 const int d_Rank = 1;
62121 PyArrayObject *capi_d_tmp = NULL((void*)0);
62122 int capi_d_intent = 0;
62123 int capi_overwrite_d = 0;
62124 PyObject *d_capi = Py_None(&_Py_NoneStruct);
62125 double *e = NULL((void*)0);
62126 npy_intp e_Dims[1] = {-1};
62127 const int e_Rank = 1;
62128 PyArrayObject *capi_e_tmp = NULL((void*)0);
62129 int capi_e_intent = 0;
62130 int capi_overwrite_e = 0;
62131 PyObject *e_capi = Py_None(&_Py_NoneStruct);
62132 int info = 0;
62133 static char *capi_kwlist[] = {"d","e","overwrite_d","overwrite_e",NULL((void*)0)};
62134
62135/*routdebugenter*/
62136#ifdef F2PY_REPORT_ATEXIT
62137f2py_start_clock();
62138#endif
62139 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
62140 "OO|ii:_flapack.dpttrf",\
62141 capi_kwlist,&d_capi,&e_capi,&capi_overwrite_d,&capi_overwrite_e))
62142 return NULL((void*)0);
62143/*frompyobj*/
62144 /* Processing variable d */
62145 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
62146 ;
62147 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
62148 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
62149 if (capi_d_tmp == NULL((void*)0)) {
62150 if (!PyErr_Occurred())
62151 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dpttrf to C/Fortran array" );
62152 } else {
62153 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
62154
62155 /* Processing variable info */
62156 /* Processing variable n */
62157 n = len(d)d_Dims[0];
62158 /* Processing variable e */
62159 capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32);
62160 e_Dims[0]=(n>0?n-1:0);
62161 capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
62162 capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi);
62163 if (capi_e_tmp == NULL((void*)0)) {
62164 if (!PyErr_Occurred())
62165 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dpttrf to C/Fortran array" );
62166 } else {
62167 e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
62168
62169/*end of frompyobj*/
62170#ifdef F2PY_REPORT_ATEXIT
62171f2py_start_call_clock();
62172#endif
62173/*callfortranroutine*/
62174 (*f2py_func)(&n, d, e, &info) ;
62175 /*(*f2py_func)(&n,d,e,&info);*/
62176if (PyErr_Occurred())
62177 f2py_success = 0;
62178#ifdef F2PY_REPORT_ATEXIT
62179f2py_stop_call_clock();
62180#endif
62181/*end of callfortranroutine*/
62182 if (f2py_success) {
62183/*pyobjfrom*/
62184/*end of pyobjfrom*/
62185 CFUNCSMESS("Building return value.\n");
62186 capi_buildvalue = Py_BuildValue("NNi",capi_d_tmp,capi_e_tmp,info);
62187/*closepyobjfrom*/
62188/*end of closepyobjfrom*/
62189 } /*if (f2py_success) after callfortranroutine*/
62190/*cleanupfrompyobj*/
62191 } /*if (capi_e_tmp == NULL) ... else of e*/
62192 /* End of cleaning variable e */
62193 /* End of cleaning variable n */
62194 /* End of cleaning variable info */
62195 } /*if (capi_d_tmp == NULL) ... else of d*/
62196 /* End of cleaning variable d */
62197/*end of cleanupfrompyobj*/
62198 if (capi_buildvalue == NULL((void*)0)) {
62199/*routdebugfailure*/
62200 } else {
62201/*routdebugleave*/
62202 }
62203 CFUNCSMESS("Freeing memory.\n");
62204/*freemem*/
62205#ifdef F2PY_REPORT_ATEXIT
62206f2py_stop_clock();
62207#endif
62208 return capi_buildvalue;
62209}
62210/******************************* end of dpttrf *******************************/
62211
62212/*********************************** cpttrf ***********************************/
62213static char doc_f2py_rout__flapack_cpttrf[] = "\
62214d,e,info = cpttrf(d,e,[overwrite_d,overwrite_e])\n\nWrapper for ``cpttrf``.\
62215\n\nParameters\n----------\n"
62216"d : input rank-1 array('f') with bounds (n)\n"
62217"e : input rank-1 array('F') with bounds ((n>0?n-1:0))\n"
62218"\nOther Parameters\n----------------\n"
62219"overwrite_d : input int, optional\n Default: 0\n"
62220"overwrite_e : input int, optional\n Default: 0\n"
62221"\nReturns\n-------\n"
62222"d : rank-1 array('f') with bounds (n)\n"
62223"e : rank-1 array('F') with bounds ((n>0?n-1:0))\n"
62224"info : int";
62225/* extern void F_FUNC(cpttrf,CPTTRF)(F_INT*, float*, complex_float*, F_INT* ); */
62226static PyObject *f2py_rout__flapack_cpttrf(const PyObject *capi_self,
62227 PyObject *capi_args,
62228 PyObject *capi_keywds,
62229 void (*f2py_func)(F_INTint*, float*, complex_float*, F_INTint* )) {
62230 PyObject * volatile capi_buildvalue = NULL((void*)0);
62231 volatile int f2py_success = 1;
62232/*decl*/
62233
62234 int n = 0;
62235 float *d = NULL((void*)0);
62236 npy_intp d_Dims[1] = {-1};
62237 const int d_Rank = 1;
62238 PyArrayObject *capi_d_tmp = NULL((void*)0);
62239 int capi_d_intent = 0;
62240 int capi_overwrite_d = 0;
62241 PyObject *d_capi = Py_None(&_Py_NoneStruct);
62242 complex_float *e = NULL((void*)0);
62243 npy_intp e_Dims[1] = {-1};
62244 const int e_Rank = 1;
62245 PyArrayObject *capi_e_tmp = NULL((void*)0);
62246 int capi_e_intent = 0;
62247 int capi_overwrite_e = 0;
62248 PyObject *e_capi = Py_None(&_Py_NoneStruct);
62249 int info = 0;
62250 static char *capi_kwlist[] = {"d","e","overwrite_d","overwrite_e",NULL((void*)0)};
62251
62252/*routdebugenter*/
62253#ifdef F2PY_REPORT_ATEXIT
62254f2py_start_clock();
62255#endif
62256 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
62257 "OO|ii:_flapack.cpttrf",\
62258 capi_kwlist,&d_capi,&e_capi,&capi_overwrite_d,&capi_overwrite_e))
62259 return NULL((void*)0);
62260/*frompyobj*/
62261 /* Processing variable d */
62262 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
62263 ;
62264 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
62265 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
62266 if (capi_d_tmp == NULL((void*)0)) {
62267 if (!PyErr_Occurred())
62268 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.cpttrf to C/Fortran array" );
62269 } else {
62270 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
62271
62272 /* Processing variable info */
62273 /* Processing variable n */
62274 n = len(d)d_Dims[0];
62275 /* Processing variable e */
62276 capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32);
62277 e_Dims[0]=(n>0?n-1:0);
62278 capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
62279 capi_e_tmp = array_from_pyobj(NPY_CFLOAT,e_Dims,e_Rank,capi_e_intent,e_capi);
62280 if (capi_e_tmp == NULL((void*)0)) {
62281 if (!PyErr_Occurred())
62282 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.cpttrf to C/Fortran array" );
62283 } else {
62284 e = (complex_float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
62285
62286/*end of frompyobj*/
62287#ifdef F2PY_REPORT_ATEXIT
62288f2py_start_call_clock();
62289#endif
62290/*callfortranroutine*/
62291 (*f2py_func)(&n, d, e, &info) ;
62292 /*(*f2py_func)(&n,d,e,&info);*/
62293if (PyErr_Occurred())
62294 f2py_success = 0;
62295#ifdef F2PY_REPORT_ATEXIT
62296f2py_stop_call_clock();
62297#endif
62298/*end of callfortranroutine*/
62299 if (f2py_success) {
62300/*pyobjfrom*/
62301/*end of pyobjfrom*/
62302 CFUNCSMESS("Building return value.\n");
62303 capi_buildvalue = Py_BuildValue("NNi",capi_d_tmp,capi_e_tmp,info);
62304/*closepyobjfrom*/
62305/*end of closepyobjfrom*/
62306 } /*if (f2py_success) after callfortranroutine*/
62307/*cleanupfrompyobj*/
62308 } /*if (capi_e_tmp == NULL) ... else of e*/
62309 /* End of cleaning variable e */
62310 /* End of cleaning variable n */
62311 /* End of cleaning variable info */
62312 } /*if (capi_d_tmp == NULL) ... else of d*/
62313 /* End of cleaning variable d */
62314/*end of cleanupfrompyobj*/
62315 if (capi_buildvalue == NULL((void*)0)) {
62316/*routdebugfailure*/
62317 } else {
62318/*routdebugleave*/
62319 }
62320 CFUNCSMESS("Freeing memory.\n");
62321/*freemem*/
62322#ifdef F2PY_REPORT_ATEXIT
62323f2py_stop_clock();
62324#endif
62325 return capi_buildvalue;
62326}
62327/******************************* end of cpttrf *******************************/
62328
62329/*********************************** zpttrf ***********************************/
62330static char doc_f2py_rout__flapack_zpttrf[] = "\
62331d,e,info = zpttrf(d,e,[overwrite_d,overwrite_e])\n\nWrapper for ``zpttrf``.\
62332\n\nParameters\n----------\n"
62333"d : input rank-1 array('d') with bounds (n)\n"
62334"e : input rank-1 array('D') with bounds ((n>0?n-1:0))\n"
62335"\nOther Parameters\n----------------\n"
62336"overwrite_d : input int, optional\n Default: 0\n"
62337"overwrite_e : input int, optional\n Default: 0\n"
62338"\nReturns\n-------\n"
62339"d : rank-1 array('d') with bounds (n)\n"
62340"e : rank-1 array('D') with bounds ((n>0?n-1:0))\n"
62341"info : int";
62342/* extern void F_FUNC(zpttrf,ZPTTRF)(F_INT*, double*, complex_double*, F_INT* ); */
62343static PyObject *f2py_rout__flapack_zpttrf(const PyObject *capi_self,
62344 PyObject *capi_args,
62345 PyObject *capi_keywds,
62346 void (*f2py_func)(F_INTint*, double*, complex_double*, F_INTint* )) {
62347 PyObject * volatile capi_buildvalue = NULL((void*)0);
62348 volatile int f2py_success = 1;
62349/*decl*/
62350
62351 int n = 0;
62352 double *d = NULL((void*)0);
62353 npy_intp d_Dims[1] = {-1};
62354 const int d_Rank = 1;
62355 PyArrayObject *capi_d_tmp = NULL((void*)0);
62356 int capi_d_intent = 0;
62357 int capi_overwrite_d = 0;
62358 PyObject *d_capi = Py_None(&_Py_NoneStruct);
62359 complex_double *e = NULL((void*)0);
62360 npy_intp e_Dims[1] = {-1};
62361 const int e_Rank = 1;
62362 PyArrayObject *capi_e_tmp = NULL((void*)0);
62363 int capi_e_intent = 0;
62364 int capi_overwrite_e = 0;
62365 PyObject *e_capi = Py_None(&_Py_NoneStruct);
62366 int info = 0;
62367 static char *capi_kwlist[] = {"d","e","overwrite_d","overwrite_e",NULL((void*)0)};
62368
62369/*routdebugenter*/
62370#ifdef F2PY_REPORT_ATEXIT
62371f2py_start_clock();
62372#endif
62373 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
62374 "OO|ii:_flapack.zpttrf",\
62375 capi_kwlist,&d_capi,&e_capi,&capi_overwrite_d,&capi_overwrite_e))
62376 return NULL((void*)0);
62377/*frompyobj*/
62378 /* Processing variable d */
62379 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
62380 ;
62381 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
62382 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
62383 if (capi_d_tmp == NULL((void*)0)) {
62384 if (!PyErr_Occurred())
62385 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.zpttrf to C/Fortran array" );
62386 } else {
62387 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
62388
62389 /* Processing variable info */
62390 /* Processing variable n */
62391 n = len(d)d_Dims[0];
62392 /* Processing variable e */
62393 capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32);
62394 e_Dims[0]=(n>0?n-1:0);
62395 capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
62396 capi_e_tmp = array_from_pyobj(NPY_CDOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi);
62397 if (capi_e_tmp == NULL((void*)0)) {
62398 if (!PyErr_Occurred())
62399 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.zpttrf to C/Fortran array" );
62400 } else {
62401 e = (complex_double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
62402
62403/*end of frompyobj*/
62404#ifdef F2PY_REPORT_ATEXIT
62405f2py_start_call_clock();
62406#endif
62407/*callfortranroutine*/
62408 (*f2py_func)(&n, d, e, &info) ;
62409 /*(*f2py_func)(&n,d,e,&info);*/
62410if (PyErr_Occurred())
62411 f2py_success = 0;
62412#ifdef F2PY_REPORT_ATEXIT
62413f2py_stop_call_clock();
62414#endif
62415/*end of callfortranroutine*/
62416 if (f2py_success) {
62417/*pyobjfrom*/
62418/*end of pyobjfrom*/
62419 CFUNCSMESS("Building return value.\n");
62420 capi_buildvalue = Py_BuildValue("NNi",capi_d_tmp,capi_e_tmp,info);
62421/*closepyobjfrom*/
62422/*end of closepyobjfrom*/
62423 } /*if (f2py_success) after callfortranroutine*/
62424/*cleanupfrompyobj*/
62425 } /*if (capi_e_tmp == NULL) ... else of e*/
62426 /* End of cleaning variable e */
62427 /* End of cleaning variable n */
62428 /* End of cleaning variable info */
62429 } /*if (capi_d_tmp == NULL) ... else of d*/
62430 /* End of cleaning variable d */
62431/*end of cleanupfrompyobj*/
62432 if (capi_buildvalue == NULL((void*)0)) {
62433/*routdebugfailure*/
62434 } else {
62435/*routdebugleave*/
62436 }
62437 CFUNCSMESS("Freeing memory.\n");
62438/*freemem*/
62439#ifdef F2PY_REPORT_ATEXIT
62440f2py_stop_clock();
62441#endif
62442 return capi_buildvalue;
62443}
62444/******************************* end of zpttrf *******************************/
62445
62446/*********************************** spttrs ***********************************/
62447static char doc_f2py_rout__flapack_spttrs[] = "\
62448x,info = spttrs(d,e,b,[overwrite_b])\n\nWrapper for ``spttrs``.\
62449\n\nParameters\n----------\n"
62450"d : input rank-1 array('f') with bounds (n)\n"
62451"e : input rank-1 array('f') with bounds ((n>0?n-1:0))\n"
62452"b : input rank-2 array('f') with bounds (ldb,nrhs)\n"
62453"\nOther Parameters\n----------------\n"
62454"overwrite_b : input int, optional\n Default: 0\n"
62455"\nReturns\n-------\n"
62456"x : rank-2 array('f') with bounds (ldb,nrhs) and b storage\n"
62457"info : int";
62458/* extern void F_FUNC(spttrs,SPTTRS)(F_INT*, F_INT*, float*, float*, float*, F_INT*, F_INT* ); */
62459static PyObject *f2py_rout__flapack_spttrs(const PyObject *capi_self,
62460 PyObject *capi_args,
62461 PyObject *capi_keywds,
62462 void (*f2py_func)(F_INTint*, F_INTint*, float*, float*, float*, F_INTint*, F_INTint* )) {
62463 PyObject * volatile capi_buildvalue = NULL((void*)0);
62464 volatile int f2py_success = 1;
62465/*decl*/
62466
62467 int n = 0;
62468 int nrhs = 0;
62469 float *d = NULL((void*)0);
62470 npy_intp d_Dims[1] = {-1};
62471 const int d_Rank = 1;
62472 PyArrayObject *capi_d_tmp = NULL((void*)0);
62473 int capi_d_intent = 0;
62474 PyObject *d_capi = Py_None(&_Py_NoneStruct);
62475 float *e = NULL((void*)0);
62476 npy_intp e_Dims[1] = {-1};
62477 const int e_Rank = 1;
62478 PyArrayObject *capi_e_tmp = NULL((void*)0);
62479 int capi_e_intent = 0;
62480 PyObject *e_capi = Py_None(&_Py_NoneStruct);
62481 float *b = NULL((void*)0);
62482 npy_intp b_Dims[2] = {-1, -1};
62483 const int b_Rank = 2;
62484 PyArrayObject *capi_b_tmp = NULL((void*)0);
62485 int capi_b_intent = 0;
62486 int capi_overwrite_b = 0;
62487 PyObject *b_capi = Py_None(&_Py_NoneStruct);
62488 int ldb = 0;
62489 int info = 0;
62490 static char *capi_kwlist[] = {"d","e","b","overwrite_b",NULL((void*)0)};
62491
62492/*routdebugenter*/
62493#ifdef F2PY_REPORT_ATEXIT
62494f2py_start_clock();
62495#endif
62496 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
62497 "OOO|i:_flapack.spttrs",\
62498 capi_kwlist,&d_capi,&e_capi,&b_capi,&capi_overwrite_b))
62499 return NULL((void*)0);
62500/*frompyobj*/
62501 /* Processing variable d */
62502 ;
62503 capi_d_intent |= F2PY_INTENT_IN1;
62504 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
62505 if (capi_d_tmp == NULL((void*)0)) {
62506 if (!PyErr_Occurred())
62507 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.spttrs to C/Fortran array" );
62508 } else {
62509 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
62510
62511 /* Processing variable b */
62512 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
62513 ;
62514 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
62515 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
62516 if (capi_b_tmp == NULL((void*)0)) {
62517 if (!PyErr_Occurred())
62518 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.spttrs to C/Fortran array" );
62519 } else {
62520 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
62521
62522 /* Processing variable info */
62523 /* Processing variable n */
62524 n = len(d)d_Dims[0];
62525 /* Processing variable e */
62526 e_Dims[0]=(n>0?n-1:0);
62527 capi_e_intent |= F2PY_INTENT_IN1;
62528 capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi);
62529 if (capi_e_tmp == NULL((void*)0)) {
62530 if (!PyErr_Occurred())
62531 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.spttrs to C/Fortran array" );
62532 } else {
62533 e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
62534
62535 /* Processing variable ldb */
62536 ldb = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
62537 /* Processing variable nrhs */
62538 nrhs = shape(b, 1)b_Dims[1];
62539/*end of frompyobj*/
62540#ifdef F2PY_REPORT_ATEXIT
62541f2py_start_call_clock();
62542#endif
62543/*callfortranroutine*/
62544 (*f2py_func)(&n, &nrhs, d, e, b, &ldb, &info) ;
62545 /*(*f2py_func)(&n,&nrhs,d,e,b,&ldb,&info);*/
62546if (PyErr_Occurred())
62547 f2py_success = 0;
62548#ifdef F2PY_REPORT_ATEXIT
62549f2py_stop_call_clock();
62550#endif
62551/*end of callfortranroutine*/
62552 if (f2py_success) {
62553/*pyobjfrom*/
62554/*end of pyobjfrom*/
62555 CFUNCSMESS("Building return value.\n");
62556 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
62557/*closepyobjfrom*/
62558/*end of closepyobjfrom*/
62559 } /*if (f2py_success) after callfortranroutine*/
62560/*cleanupfrompyobj*/
62561 /* End of cleaning variable nrhs */
62562 /* End of cleaning variable ldb */
62563 if((PyObject *)capi_e_tmp!=e_capi) {
62564 Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); }
62565 } /*if (capi_e_tmp == NULL) ... else of e*/
62566 /* End of cleaning variable e */
62567 /* End of cleaning variable n */
62568 /* End of cleaning variable info */
62569 } /*if (capi_b_tmp == NULL) ... else of b*/
62570 /* End of cleaning variable b */
62571 if((PyObject *)capi_d_tmp!=d_capi) {
62572 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
62573 } /*if (capi_d_tmp == NULL) ... else of d*/
62574 /* End of cleaning variable d */
62575/*end of cleanupfrompyobj*/
62576 if (capi_buildvalue == NULL((void*)0)) {
62577/*routdebugfailure*/
62578 } else {
62579/*routdebugleave*/
62580 }
62581 CFUNCSMESS("Freeing memory.\n");
62582/*freemem*/
62583#ifdef F2PY_REPORT_ATEXIT
62584f2py_stop_clock();
62585#endif
62586 return capi_buildvalue;
62587}
62588/******************************* end of spttrs *******************************/
62589
62590/*********************************** dpttrs ***********************************/
62591static char doc_f2py_rout__flapack_dpttrs[] = "\
62592x,info = dpttrs(d,e,b,[overwrite_b])\n\nWrapper for ``dpttrs``.\
62593\n\nParameters\n----------\n"
62594"d : input rank-1 array('d') with bounds (n)\n"
62595"e : input rank-1 array('d') with bounds ((n>0?n-1:0))\n"
62596"b : input rank-2 array('d') with bounds (ldb,nrhs)\n"
62597"\nOther Parameters\n----------------\n"
62598"overwrite_b : input int, optional\n Default: 0\n"
62599"\nReturns\n-------\n"
62600"x : rank-2 array('d') with bounds (ldb,nrhs) and b storage\n"
62601"info : int";
62602/* extern void F_FUNC(dpttrs,DPTTRS)(F_INT*, F_INT*, double*, double*, double*, F_INT*, F_INT* ); */
62603static PyObject *f2py_rout__flapack_dpttrs(const PyObject *capi_self,
62604 PyObject *capi_args,
62605 PyObject *capi_keywds,
62606 void (*f2py_func)(F_INTint*, F_INTint*, double*, double*, double*, F_INTint*, F_INTint* )) {
62607 PyObject * volatile capi_buildvalue = NULL((void*)0);
62608 volatile int f2py_success = 1;
62609/*decl*/
62610
62611 int n = 0;
62612 int nrhs = 0;
62613 double *d = NULL((void*)0);
62614 npy_intp d_Dims[1] = {-1};
62615 const int d_Rank = 1;
62616 PyArrayObject *capi_d_tmp = NULL((void*)0);
62617 int capi_d_intent = 0;
62618 PyObject *d_capi = Py_None(&_Py_NoneStruct);
62619 double *e = NULL((void*)0);
62620 npy_intp e_Dims[1] = {-1};
62621 const int e_Rank = 1;
62622 PyArrayObject *capi_e_tmp = NULL((void*)0);
62623 int capi_e_intent = 0;
62624 PyObject *e_capi = Py_None(&_Py_NoneStruct);
62625 double *b = NULL((void*)0);
62626 npy_intp b_Dims[2] = {-1, -1};
62627 const int b_Rank = 2;
62628 PyArrayObject *capi_b_tmp = NULL((void*)0);
62629 int capi_b_intent = 0;
62630 int capi_overwrite_b = 0;
62631 PyObject *b_capi = Py_None(&_Py_NoneStruct);
62632 int ldb = 0;
62633 int info = 0;
62634 static char *capi_kwlist[] = {"d","e","b","overwrite_b",NULL((void*)0)};
62635
62636/*routdebugenter*/
62637#ifdef F2PY_REPORT_ATEXIT
62638f2py_start_clock();
62639#endif
62640 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
62641 "OOO|i:_flapack.dpttrs",\
62642 capi_kwlist,&d_capi,&e_capi,&b_capi,&capi_overwrite_b))
62643 return NULL((void*)0);
62644/*frompyobj*/
62645 /* Processing variable d */
62646 ;
62647 capi_d_intent |= F2PY_INTENT_IN1;
62648 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
62649 if (capi_d_tmp == NULL((void*)0)) {
62650 if (!PyErr_Occurred())
62651 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dpttrs to C/Fortran array" );
62652 } else {
62653 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
62654
62655 /* Processing variable b */
62656 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
62657 ;
62658 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
62659 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
62660 if (capi_b_tmp == NULL((void*)0)) {
62661 if (!PyErr_Occurred())
62662 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.dpttrs to C/Fortran array" );
62663 } else {
62664 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
62665
62666 /* Processing variable info */
62667 /* Processing variable n */
62668 n = len(d)d_Dims[0];
62669 /* Processing variable e */
62670 e_Dims[0]=(n>0?n-1:0);
62671 capi_e_intent |= F2PY_INTENT_IN1;
62672 capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi);
62673 if (capi_e_tmp == NULL((void*)0)) {
62674 if (!PyErr_Occurred())
62675 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dpttrs to C/Fortran array" );
62676 } else {
62677 e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
62678
62679 /* Processing variable ldb */
62680 ldb = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
62681 /* Processing variable nrhs */
62682 nrhs = shape(b, 1)b_Dims[1];
62683/*end of frompyobj*/
62684#ifdef F2PY_REPORT_ATEXIT
62685f2py_start_call_clock();
62686#endif
62687/*callfortranroutine*/
62688 (*f2py_func)(&n, &nrhs, d, e, b, &ldb, &info) ;
62689 /*(*f2py_func)(&n,&nrhs,d,e,b,&ldb,&info);*/
62690if (PyErr_Occurred())
62691 f2py_success = 0;
62692#ifdef F2PY_REPORT_ATEXIT
62693f2py_stop_call_clock();
62694#endif
62695/*end of callfortranroutine*/
62696 if (f2py_success) {
62697/*pyobjfrom*/
62698/*end of pyobjfrom*/
62699 CFUNCSMESS("Building return value.\n");
62700 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
62701/*closepyobjfrom*/
62702/*end of closepyobjfrom*/
62703 } /*if (f2py_success) after callfortranroutine*/
62704/*cleanupfrompyobj*/
62705 /* End of cleaning variable nrhs */
62706 /* End of cleaning variable ldb */
62707 if((PyObject *)capi_e_tmp!=e_capi) {
62708 Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); }
62709 } /*if (capi_e_tmp == NULL) ... else of e*/
62710 /* End of cleaning variable e */
62711 /* End of cleaning variable n */
62712 /* End of cleaning variable info */
62713 } /*if (capi_b_tmp == NULL) ... else of b*/
62714 /* End of cleaning variable b */
62715 if((PyObject *)capi_d_tmp!=d_capi) {
62716 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
62717 } /*if (capi_d_tmp == NULL) ... else of d*/
62718 /* End of cleaning variable d */
62719/*end of cleanupfrompyobj*/
62720 if (capi_buildvalue == NULL((void*)0)) {
62721/*routdebugfailure*/
62722 } else {
62723/*routdebugleave*/
62724 }
62725 CFUNCSMESS("Freeing memory.\n");
62726/*freemem*/
62727#ifdef F2PY_REPORT_ATEXIT
62728f2py_stop_clock();
62729#endif
62730 return capi_buildvalue;
62731}
62732/******************************* end of dpttrs *******************************/
62733
62734/*********************************** cpttrs ***********************************/
62735static char doc_f2py_rout__flapack_cpttrs[] = "\
62736x,info = cpttrs(d,e,b,[lower,overwrite_b])\n\nWrapper for ``cpttrs``.\
62737\n\nParameters\n----------\n"
62738"d : input rank-1 array('f') with bounds (n)\n"
62739"e : input rank-1 array('F') with bounds ((n>0?n-1:0))\n"
62740"b : input rank-2 array('F') with bounds (ldb,nrhs)\n"
62741"\nOther Parameters\n----------------\n"
62742"lower : input int, optional\n Default: 0\n"
62743"overwrite_b : input int, optional\n Default: 0\n"
62744"\nReturns\n-------\n"
62745"x : rank-2 array('F') with bounds (ldb,nrhs) and b storage\n"
62746"info : int";
62747/* extern void F_FUNC(cpttrs,CPTTRS)(char*, F_INT*, F_INT*, float*, complex_float*, complex_float*, F_INT*, F_INT* ); */
62748static PyObject *f2py_rout__flapack_cpttrs(const PyObject *capi_self,
62749 PyObject *capi_args,
62750 PyObject *capi_keywds,
62751 void (*f2py_func)(char*, F_INTint*, F_INTint*, float*, complex_float*, complex_float*, F_INTint*, F_INTint* )) {
62752 PyObject * volatile capi_buildvalue = NULL((void*)0);
62753 volatile int f2py_success = 1;
62754/*decl*/
62755
62756 int lower = 0;
62757 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
62758 int n = 0;
62759 int nrhs = 0;
62760 float *d = NULL((void*)0);
62761 npy_intp d_Dims[1] = {-1};
62762 const int d_Rank = 1;
62763 PyArrayObject *capi_d_tmp = NULL((void*)0);
62764 int capi_d_intent = 0;
62765 PyObject *d_capi = Py_None(&_Py_NoneStruct);
62766 complex_float *e = NULL((void*)0);
62767 npy_intp e_Dims[1] = {-1};
62768 const int e_Rank = 1;
62769 PyArrayObject *capi_e_tmp = NULL((void*)0);
62770 int capi_e_intent = 0;
62771 PyObject *e_capi = Py_None(&_Py_NoneStruct);
62772 complex_float *b = NULL((void*)0);
62773 npy_intp b_Dims[2] = {-1, -1};
62774 const int b_Rank = 2;
62775 PyArrayObject *capi_b_tmp = NULL((void*)0);
62776 int capi_b_intent = 0;
62777 int capi_overwrite_b = 0;
62778 PyObject *b_capi = Py_None(&_Py_NoneStruct);
62779 int ldb = 0;
62780 int info = 0;
62781 static char *capi_kwlist[] = {"d","e","b","lower","overwrite_b",NULL((void*)0)};
62782
62783/*routdebugenter*/
62784#ifdef F2PY_REPORT_ATEXIT
62785f2py_start_clock();
62786#endif
62787 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
62788 "OOO|Oi:_flapack.cpttrs",\
62789 capi_kwlist,&d_capi,&e_capi,&b_capi,&lower_capi,&capi_overwrite_b))
62790 return NULL((void*)0);
62791/*frompyobj*/
62792 /* Processing variable lower */
62793 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
62794 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpttrs() 1st keyword (lower) can't be converted to int");
62795 if (f2py_success) {
62796 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cpttrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpttrs:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
62797 /* Processing variable d */
62798 ;
62799 capi_d_intent |= F2PY_INTENT_IN1;
62800 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
62801 if (capi_d_tmp == NULL((void*)0)) {
62802 if (!PyErr_Occurred())
62803 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.cpttrs to C/Fortran array" );
62804 } else {
62805 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
62806
62807 /* Processing variable b */
62808 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
62809 ;
62810 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
62811 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
62812 if (capi_b_tmp == NULL((void*)0)) {
62813 if (!PyErr_Occurred())
62814 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.cpttrs to C/Fortran array" );
62815 } else {
62816 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
62817
62818 /* Processing variable info */
62819 /* Processing variable n */
62820 n = len(d)d_Dims[0];
62821 /* Processing variable e */
62822 e_Dims[0]=(n>0?n-1:0);
62823 capi_e_intent |= F2PY_INTENT_IN1;
62824 capi_e_tmp = array_from_pyobj(NPY_CFLOAT,e_Dims,e_Rank,capi_e_intent,e_capi);
62825 if (capi_e_tmp == NULL((void*)0)) {
62826 if (!PyErr_Occurred())
62827 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.cpttrs to C/Fortran array" );
62828 } else {
62829 e = (complex_float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
62830
62831 /* Processing variable ldb */
62832 ldb = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
62833 /* Processing variable nrhs */
62834 nrhs = shape(b, 1)b_Dims[1];
62835/*end of frompyobj*/
62836#ifdef F2PY_REPORT_ATEXIT
62837f2py_start_call_clock();
62838#endif
62839/*callfortranroutine*/
62840 (*f2py_func)((lower?"L":"U"), &n, &nrhs, d, e, b, &ldb, &info) ;
62841 /*(*f2py_func)(&lower,&n,&nrhs,d,e,b,&ldb,&info);*/
62842if (PyErr_Occurred())
62843 f2py_success = 0;
62844#ifdef F2PY_REPORT_ATEXIT
62845f2py_stop_call_clock();
62846#endif
62847/*end of callfortranroutine*/
62848 if (f2py_success) {
62849/*pyobjfrom*/
62850/*end of pyobjfrom*/
62851 CFUNCSMESS("Building return value.\n");
62852 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
62853/*closepyobjfrom*/
62854/*end of closepyobjfrom*/
62855 } /*if (f2py_success) after callfortranroutine*/
62856/*cleanupfrompyobj*/
62857 /* End of cleaning variable nrhs */
62858 /* End of cleaning variable ldb */
62859 if((PyObject *)capi_e_tmp!=e_capi) {
62860 Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); }
62861 } /*if (capi_e_tmp == NULL) ... else of e*/
62862 /* End of cleaning variable e */
62863 /* End of cleaning variable n */
62864 /* End of cleaning variable info */
62865 } /*if (capi_b_tmp == NULL) ... else of b*/
62866 /* End of cleaning variable b */
62867 if((PyObject *)capi_d_tmp!=d_capi) {
62868 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
62869 } /*if (capi_d_tmp == NULL) ... else of d*/
62870 /* End of cleaning variable d */
62871 } /*CHECKSCALAR(lower==0||lower==1)*/
62872 } /*if (f2py_success) of lower*/
62873 /* End of cleaning variable lower */
62874/*end of cleanupfrompyobj*/
62875 if (capi_buildvalue == NULL((void*)0)) {
62876/*routdebugfailure*/
62877 } else {
62878/*routdebugleave*/
62879 }
62880 CFUNCSMESS("Freeing memory.\n");
62881/*freemem*/
62882#ifdef F2PY_REPORT_ATEXIT
62883f2py_stop_clock();
62884#endif
62885 return capi_buildvalue;
62886}
62887/******************************* end of cpttrs *******************************/
62888
62889/*********************************** zpttrs ***********************************/
62890static char doc_f2py_rout__flapack_zpttrs[] = "\
62891x,info = zpttrs(d,e,b,[lower,overwrite_b])\n\nWrapper for ``zpttrs``.\
62892\n\nParameters\n----------\n"
62893"d : input rank-1 array('d') with bounds (n)\n"
62894"e : input rank-1 array('D') with bounds ((n>0?n-1:0))\n"
62895"b : input rank-2 array('D') with bounds (ldb,nrhs)\n"
62896"\nOther Parameters\n----------------\n"
62897"lower : input int, optional\n Default: 0\n"
62898"overwrite_b : input int, optional\n Default: 0\n"
62899"\nReturns\n-------\n"
62900"x : rank-2 array('D') with bounds (ldb,nrhs) and b storage\n"
62901"info : int";
62902/* extern void F_FUNC(zpttrs,ZPTTRS)(char*, F_INT*, F_INT*, double*, complex_double*, complex_double*, F_INT*, F_INT* ); */
62903static PyObject *f2py_rout__flapack_zpttrs(const PyObject *capi_self,
62904 PyObject *capi_args,
62905 PyObject *capi_keywds,
62906 void (*f2py_func)(char*, F_INTint*, F_INTint*, double*, complex_double*, complex_double*, F_INTint*, F_INTint* )) {
62907 PyObject * volatile capi_buildvalue = NULL((void*)0);
62908 volatile int f2py_success = 1;
62909/*decl*/
62910
62911 int lower = 0;
62912 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
62913 int n = 0;
62914 int nrhs = 0;
62915 double *d = NULL((void*)0);
62916 npy_intp d_Dims[1] = {-1};
62917 const int d_Rank = 1;
62918 PyArrayObject *capi_d_tmp = NULL((void*)0);
62919 int capi_d_intent = 0;
62920 PyObject *d_capi = Py_None(&_Py_NoneStruct);
62921 complex_double *e = NULL((void*)0);
62922 npy_intp e_Dims[1] = {-1};
62923 const int e_Rank = 1;
62924 PyArrayObject *capi_e_tmp = NULL((void*)0);
62925 int capi_e_intent = 0;
62926 PyObject *e_capi = Py_None(&_Py_NoneStruct);
62927 complex_double *b = NULL((void*)0);
62928 npy_intp b_Dims[2] = {-1, -1};
62929 const int b_Rank = 2;
62930 PyArrayObject *capi_b_tmp = NULL((void*)0);
62931 int capi_b_intent = 0;
62932 int capi_overwrite_b = 0;
62933 PyObject *b_capi = Py_None(&_Py_NoneStruct);
62934 int ldb = 0;
62935 int info = 0;
62936 static char *capi_kwlist[] = {"d","e","b","lower","overwrite_b",NULL((void*)0)};
62937
62938/*routdebugenter*/
62939#ifdef F2PY_REPORT_ATEXIT
62940f2py_start_clock();
62941#endif
62942 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
62943 "OOO|Oi:_flapack.zpttrs",\
62944 capi_kwlist,&d_capi,&e_capi,&b_capi,&lower_capi,&capi_overwrite_b))
62945 return NULL((void*)0);
62946/*frompyobj*/
62947 /* Processing variable lower */
62948 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
62949 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpttrs() 1st keyword (lower) can't be converted to int");
62950 if (f2py_success) {
62951 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zpttrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpttrs:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
62952 /* Processing variable d */
62953 ;
62954 capi_d_intent |= F2PY_INTENT_IN1;
62955 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
62956 if (capi_d_tmp == NULL((void*)0)) {
62957 if (!PyErr_Occurred())
62958 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.zpttrs to C/Fortran array" );
62959 } else {
62960 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
62961
62962 /* Processing variable b */
62963 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
62964 ;
62965 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
62966 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
62967 if (capi_b_tmp == NULL((void*)0)) {
62968 if (!PyErr_Occurred())
62969 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.zpttrs to C/Fortran array" );
62970 } else {
62971 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
62972
62973 /* Processing variable info */
62974 /* Processing variable n */
62975 n = len(d)d_Dims[0];
62976 /* Processing variable e */
62977 e_Dims[0]=(n>0?n-1:0);
62978 capi_e_intent |= F2PY_INTENT_IN1;
62979 capi_e_tmp = array_from_pyobj(NPY_CDOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi);
62980 if (capi_e_tmp == NULL((void*)0)) {
62981 if (!PyErr_Occurred())
62982 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.zpttrs to C/Fortran array" );
62983 } else {
62984 e = (complex_double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
62985
62986 /* Processing variable ldb */
62987 ldb = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
62988 /* Processing variable nrhs */
62989 nrhs = shape(b, 1)b_Dims[1];
62990/*end of frompyobj*/
62991#ifdef F2PY_REPORT_ATEXIT
62992f2py_start_call_clock();
62993#endif
62994/*callfortranroutine*/
62995 (*f2py_func)((lower?"L":"U"), &n, &nrhs, d, e, b, &ldb, &info) ;
62996 /*(*f2py_func)(&lower,&n,&nrhs,d,e,b,&ldb,&info);*/
62997if (PyErr_Occurred())
62998 f2py_success = 0;
62999#ifdef F2PY_REPORT_ATEXIT
63000f2py_stop_call_clock();
63001#endif
63002/*end of callfortranroutine*/
63003 if (f2py_success) {
63004/*pyobjfrom*/
63005/*end of pyobjfrom*/
63006 CFUNCSMESS("Building return value.\n");
63007 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
63008/*closepyobjfrom*/
63009/*end of closepyobjfrom*/
63010 } /*if (f2py_success) after callfortranroutine*/
63011/*cleanupfrompyobj*/
63012 /* End of cleaning variable nrhs */
63013 /* End of cleaning variable ldb */
63014 if((PyObject *)capi_e_tmp!=e_capi) {
63015 Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); }
63016 } /*if (capi_e_tmp == NULL) ... else of e*/
63017 /* End of cleaning variable e */
63018 /* End of cleaning variable n */
63019 /* End of cleaning variable info */
63020 } /*if (capi_b_tmp == NULL) ... else of b*/
63021 /* End of cleaning variable b */
63022 if((PyObject *)capi_d_tmp!=d_capi) {
63023 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
63024 } /*if (capi_d_tmp == NULL) ... else of d*/
63025 /* End of cleaning variable d */
63026 } /*CHECKSCALAR(lower==0||lower==1)*/
63027 } /*if (f2py_success) of lower*/
63028 /* End of cleaning variable lower */
63029/*end of cleanupfrompyobj*/
63030 if (capi_buildvalue == NULL((void*)0)) {
63031/*routdebugfailure*/
63032 } else {
63033/*routdebugleave*/
63034 }
63035 CFUNCSMESS("Freeing memory.\n");
63036/*freemem*/
63037#ifdef F2PY_REPORT_ATEXIT
63038f2py_stop_clock();
63039#endif
63040 return capi_buildvalue;
63041}
63042/******************************* end of zpttrs *******************************/
63043
63044/*********************************** spteqr ***********************************/
63045static char doc_f2py_rout__flapack_spteqr[] = "\
63046d,e,z,info = spteqr(d,e,z,[compute_z,overwrite_d,overwrite_e,overwrite_z])\n\nWrapper for ``spteqr``.\
63047\n\nParameters\n----------\n"
63048"d : input rank-1 array('f') with bounds (n)\n"
63049"e : input rank-1 array('f') with bounds ((n>0?n-1:0))\n"
63050"z : input rank-2 array('f') with bounds ((compute_z==0?shape(z, 0):max(1,n)),(compute_z==0?shape(z, 1):n))\n"
63051"\nOther Parameters\n----------------\n"
63052"compute_z : input int, optional\n Default: 0\n"
63053"overwrite_d : input int, optional\n Default: 0\n"
63054"overwrite_e : input int, optional\n Default: 0\n"
63055"overwrite_z : input int, optional\n Default: 0\n"
63056"\nReturns\n-------\n"
63057"d : rank-1 array('f') with bounds (n)\n"
63058"e : rank-1 array('f') with bounds ((n>0?n-1:0))\n"
63059"z : rank-2 array('f') with bounds ((compute_z==0?shape(z, 0):max(1,n)),(compute_z==0?shape(z, 1):n))\n"
63060"info : int";
63061/* extern void F_FUNC(spteqr,SPTEQR)(char*, F_INT*, float*, float*, float*, F_INT*, float*, F_INT* ); */
63062static PyObject *f2py_rout__flapack_spteqr(const PyObject *capi_self,
63063 PyObject *capi_args,
63064 PyObject *capi_keywds,
63065 void (*f2py_func)(char*, F_INTint*, float*, float*, float*, F_INTint*, float*, F_INTint* )) {
63066 PyObject * volatile capi_buildvalue = NULL((void*)0);
63067 volatile int f2py_success = 1;
63068/*decl*/
63069
63070 int compute_z = 0;
63071 PyObject *compute_z_capi = Py_None(&_Py_NoneStruct);
63072 int n = 0;
63073 float *d = NULL((void*)0);
63074 npy_intp d_Dims[1] = {-1};
63075 const int d_Rank = 1;
63076 PyArrayObject *capi_d_tmp = NULL((void*)0);
63077 int capi_d_intent = 0;
63078 int capi_overwrite_d = 0;
63079 PyObject *d_capi = Py_None(&_Py_NoneStruct);
63080 float *e = NULL((void*)0);
63081 npy_intp e_Dims[1] = {-1};
63082 const int e_Rank = 1;
63083 PyArrayObject *capi_e_tmp = NULL((void*)0);
63084 int capi_e_intent = 0;
63085 int capi_overwrite_e = 0;
63086 PyObject *e_capi = Py_None(&_Py_NoneStruct);
63087 float *z = NULL((void*)0);
63088 npy_intp z_Dims[2] = {-1, -1};
63089 const int z_Rank = 2;
63090 PyArrayObject *capi_z_tmp = NULL((void*)0);
63091 int capi_z_intent = 0;
63092 int capi_overwrite_z = 0;
63093 PyObject *z_capi = Py_None(&_Py_NoneStruct);
63094 int ldz = 0;
63095 float *work = NULL((void*)0);
63096 npy_intp work_Dims[1] = {-1};
63097 const int work_Rank = 1;
63098 PyArrayObject *capi_work_tmp = NULL((void*)0);
63099 int capi_work_intent = 0;
63100 int info = 0;
63101 static char *capi_kwlist[] = {"d","e","z","compute_z","overwrite_d","overwrite_e","overwrite_z",NULL((void*)0)};
63102
63103/*routdebugenter*/
63104#ifdef F2PY_REPORT_ATEXIT
63105f2py_start_clock();
63106#endif
63107 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
63108 "OOO|Oiii:_flapack.spteqr",\
63109 capi_kwlist,&d_capi,&e_capi,&z_capi,&compute_z_capi,&capi_overwrite_d,&capi_overwrite_e,&capi_overwrite_z))
63110 return NULL((void*)0);
63111/*frompyobj*/
63112 /* Processing variable compute_z */
63113 if (compute_z_capi == Py_None(&_Py_NoneStruct)) compute_z = 0; else
63114 f2py_success = int_from_pyobj(&compute_z,compute_z_capi,"_flapack.spteqr() 1st keyword (compute_z) can't be converted to int");
63115 if (f2py_success) {
63116 CHECKSCALAR((compute_z>=0) && (compute_z<=2),"(compute_z>=0) && (compute_z<=2)","1st keyword compute_z","spteqr:compute_z=%d",compute_z)if (!((compute_z>=0) && (compute_z<=2))) { char
errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""spteqr:compute_z=%d", "(""(compute_z>=0) && (compute_z<=2)"
") failed for ""1st keyword compute_z", compute_z); PyErr_SetString
(_flapack_error,errstring); } else
{
63117 /* Processing variable d */
63118 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
63119 ;
63120 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
63121 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
63122 if (capi_d_tmp == NULL((void*)0)) {
63123 if (!PyErr_Occurred())
63124 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.spteqr to C/Fortran array" );
63125 } else {
63126 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
63127
63128 /* Processing variable info */
63129 /* Processing variable n */
63130 n = len(d)d_Dims[0];
63131 /* Processing variable e */
63132 capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32);
63133 e_Dims[0]=(n>0?n-1:0);
63134 capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
63135 capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi);
63136 if (capi_e_tmp == NULL((void*)0)) {
63137 if (!PyErr_Occurred())
63138 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.spteqr to C/Fortran array" );
63139 } else {
63140 e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
63141
63142 /* Processing variable z */
63143 capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32);
63144 z_Dims[0]=(compute_z==0?shape(z, 0)z_Dims[0]:max(1,n)((1 > n) ? (1) : (n))),z_Dims[1]=(compute_z==0?shape(z, 1)z_Dims[1]:n);
63145 capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
63146 capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,z_capi);
63147 if (capi_z_tmp == NULL((void*)0)) {
63148 if (!PyErr_Occurred())
63149 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `z' of _flapack.spteqr to C/Fortran array" );
63150 } else {
63151 z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
63152
63153 /* Processing variable ldz */
63154 ldz = (compute_z==0)?1:max(1, shape(z, 0))((1 > z_Dims[0]) ? (1) : (z_Dims[0]));
63155 /* Processing variable work */
63156 work_Dims[0]=4 * n;
63157 capi_work_intent |= F2PY_INTENT_HIDE8;
63158 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
63159 if (capi_work_tmp == NULL((void*)0)) {
63160 if (!PyErr_Occurred())
63161 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.spteqr to C/Fortran array" );
63162 } else {
63163 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
63164
63165/*end of frompyobj*/
63166#ifdef F2PY_REPORT_ATEXIT
63167f2py_start_call_clock();
63168#endif
63169/*callfortranroutine*/
63170 (*f2py_func)((compute_z?(compute_z==2?"I":"V"):"N"), &n, d, e, z, &ldz, work, &info) ;
63171 /*(*f2py_func)(&compute_z,&n,d,e,z,&ldz,work,&info);*/
63172if (PyErr_Occurred())
63173 f2py_success = 0;
63174#ifdef F2PY_REPORT_ATEXIT
63175f2py_stop_call_clock();
63176#endif
63177/*end of callfortranroutine*/
63178 if (f2py_success) {
63179/*pyobjfrom*/
63180/*end of pyobjfrom*/
63181 CFUNCSMESS("Building return value.\n");
63182 capi_buildvalue = Py_BuildValue("NNNi",capi_d_tmp,capi_e_tmp,capi_z_tmp,info);
63183/*closepyobjfrom*/
63184/*end of closepyobjfrom*/
63185 } /*if (f2py_success) after callfortranroutine*/
63186/*cleanupfrompyobj*/
63187 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
63188 } /*if (capi_work_tmp == NULL) ... else of work*/
63189 /* End of cleaning variable work */
63190 /* End of cleaning variable ldz */
63191 } /*if (capi_z_tmp == NULL) ... else of z*/
63192 /* End of cleaning variable z */
63193 } /*if (capi_e_tmp == NULL) ... else of e*/
63194 /* End of cleaning variable e */
63195 /* End of cleaning variable n */
63196 /* End of cleaning variable info */
63197 } /*if (capi_d_tmp == NULL) ... else of d*/
63198 /* End of cleaning variable d */
63199 } /*CHECKSCALAR((compute_z>=0) && (compute_z<=2))*/
63200 } /*if (f2py_success) of compute_z*/
63201 /* End of cleaning variable compute_z */
63202/*end of cleanupfrompyobj*/
63203 if (capi_buildvalue == NULL((void*)0)) {
63204/*routdebugfailure*/
63205 } else {
63206/*routdebugleave*/
63207 }
63208 CFUNCSMESS("Freeing memory.\n");
63209/*freemem*/
63210#ifdef F2PY_REPORT_ATEXIT
63211f2py_stop_clock();
63212#endif
63213 return capi_buildvalue;
63214}
63215/******************************* end of spteqr *******************************/
63216
63217/*********************************** dpteqr ***********************************/
63218static char doc_f2py_rout__flapack_dpteqr[] = "\
63219d,e,z,info = dpteqr(d,e,z,[compute_z,overwrite_d,overwrite_e,overwrite_z])\n\nWrapper for ``dpteqr``.\
63220\n\nParameters\n----------\n"
63221"d : input rank-1 array('d') with bounds (n)\n"
63222"e : input rank-1 array('d') with bounds ((n>0?n-1:0))\n"
63223"z : input rank-2 array('d') with bounds ((compute_z==0?shape(z, 0):max(1,n)),(compute_z==0?shape(z, 1):n))\n"
63224"\nOther Parameters\n----------------\n"
63225"compute_z : input int, optional\n Default: 0\n"
63226"overwrite_d : input int, optional\n Default: 0\n"
63227"overwrite_e : input int, optional\n Default: 0\n"
63228"overwrite_z : input int, optional\n Default: 0\n"
63229"\nReturns\n-------\n"
63230"d : rank-1 array('d') with bounds (n)\n"
63231"e : rank-1 array('d') with bounds ((n>0?n-1:0))\n"
63232"z : rank-2 array('d') with bounds ((compute_z==0?shape(z, 0):max(1,n)),(compute_z==0?shape(z, 1):n))\n"
63233"info : int";
63234/* extern void F_FUNC(dpteqr,DPTEQR)(char*, F_INT*, double*, double*, double*, F_INT*, double*, F_INT* ); */
63235static PyObject *f2py_rout__flapack_dpteqr(const PyObject *capi_self,
63236 PyObject *capi_args,
63237 PyObject *capi_keywds,
63238 void (*f2py_func)(char*, F_INTint*, double*, double*, double*, F_INTint*, double*, F_INTint* )) {
63239 PyObject * volatile capi_buildvalue = NULL((void*)0);
63240 volatile int f2py_success = 1;
63241/*decl*/
63242
63243 int compute_z = 0;
63244 PyObject *compute_z_capi = Py_None(&_Py_NoneStruct);
63245 int n = 0;
63246 double *d = NULL((void*)0);
63247 npy_intp d_Dims[1] = {-1};
63248 const int d_Rank = 1;
63249 PyArrayObject *capi_d_tmp = NULL((void*)0);
63250 int capi_d_intent = 0;
63251 int capi_overwrite_d = 0;
63252 PyObject *d_capi = Py_None(&_Py_NoneStruct);
63253 double *e = NULL((void*)0);
63254 npy_intp e_Dims[1] = {-1};
63255 const int e_Rank = 1;
63256 PyArrayObject *capi_e_tmp = NULL((void*)0);
63257 int capi_e_intent = 0;
63258 int capi_overwrite_e = 0;
63259 PyObject *e_capi = Py_None(&_Py_NoneStruct);
63260 double *z = NULL((void*)0);
63261 npy_intp z_Dims[2] = {-1, -1};
63262 const int z_Rank = 2;
63263 PyArrayObject *capi_z_tmp = NULL((void*)0);
63264 int capi_z_intent = 0;
63265 int capi_overwrite_z = 0;
63266 PyObject *z_capi = Py_None(&_Py_NoneStruct);
63267 int ldz = 0;
63268 double *work = NULL((void*)0);
63269 npy_intp work_Dims[1] = {-1};
63270 const int work_Rank = 1;
63271 PyArrayObject *capi_work_tmp = NULL((void*)0);
63272 int capi_work_intent = 0;
63273 int info = 0;
63274 static char *capi_kwlist[] = {"d","e","z","compute_z","overwrite_d","overwrite_e","overwrite_z",NULL((void*)0)};
63275
63276/*routdebugenter*/
63277#ifdef F2PY_REPORT_ATEXIT
63278f2py_start_clock();
63279#endif
63280 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
63281 "OOO|Oiii:_flapack.dpteqr",\
63282 capi_kwlist,&d_capi,&e_capi,&z_capi,&compute_z_capi,&capi_overwrite_d,&capi_overwrite_e,&capi_overwrite_z))
63283 return NULL((void*)0);
63284/*frompyobj*/
63285 /* Processing variable compute_z */
63286 if (compute_z_capi == Py_None(&_Py_NoneStruct)) compute_z = 0; else
63287 f2py_success = int_from_pyobj(&compute_z,compute_z_capi,"_flapack.dpteqr() 1st keyword (compute_z) can't be converted to int");
63288 if (f2py_success) {
63289 CHECKSCALAR((compute_z>=0) && (compute_z<=2),"(compute_z>=0) && (compute_z<=2)","1st keyword compute_z","dpteqr:compute_z=%d",compute_z)if (!((compute_z>=0) && (compute_z<=2))) { char
errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dpteqr:compute_z=%d", "(""(compute_z>=0) && (compute_z<=2)"
") failed for ""1st keyword compute_z", compute_z); PyErr_SetString
(_flapack_error,errstring); } else
{
63290 /* Processing variable d */
63291 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
63292 ;
63293 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
63294 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
63295 if (capi_d_tmp == NULL((void*)0)) {
63296 if (!PyErr_Occurred())
63297 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dpteqr to C/Fortran array" );
63298 } else {
63299 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
63300
63301 /* Processing variable info */
63302 /* Processing variable n */
63303 n = len(d)d_Dims[0];
63304 /* Processing variable e */
63305 capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32);
63306 e_Dims[0]=(n>0?n-1:0);
63307 capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
63308 capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi);
63309 if (capi_e_tmp == NULL((void*)0)) {
63310 if (!PyErr_Occurred())
63311 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dpteqr to C/Fortran array" );
63312 } else {
63313 e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
63314
63315 /* Processing variable z */
63316 capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32);
63317 z_Dims[0]=(compute_z==0?shape(z, 0)z_Dims[0]:max(1,n)((1 > n) ? (1) : (n))),z_Dims[1]=(compute_z==0?shape(z, 1)z_Dims[1]:n);
63318 capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
63319 capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,z_capi);
63320 if (capi_z_tmp == NULL((void*)0)) {
63321 if (!PyErr_Occurred())
63322 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `z' of _flapack.dpteqr to C/Fortran array" );
63323 } else {
63324 z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
63325
63326 /* Processing variable ldz */
63327 ldz = (compute_z==0)?1:max(1, shape(z, 0))((1 > z_Dims[0]) ? (1) : (z_Dims[0]));
63328 /* Processing variable work */
63329 work_Dims[0]=4 * n;
63330 capi_work_intent |= F2PY_INTENT_HIDE8;
63331 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
63332 if (capi_work_tmp == NULL((void*)0)) {
63333 if (!PyErr_Occurred())
63334 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dpteqr to C/Fortran array" );
63335 } else {
63336 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
63337
63338/*end of frompyobj*/
63339#ifdef F2PY_REPORT_ATEXIT
63340f2py_start_call_clock();
63341#endif
63342/*callfortranroutine*/
63343 (*f2py_func)((compute_z?(compute_z==2?"I":"V"):"N"), &n, d, e, z, &ldz, work, &info) ;
63344 /*(*f2py_func)(&compute_z,&n,d,e,z,&ldz,work,&info);*/
63345if (PyErr_Occurred())
63346 f2py_success = 0;
63347#ifdef F2PY_REPORT_ATEXIT
63348f2py_stop_call_clock();
63349#endif
63350/*end of callfortranroutine*/
63351 if (f2py_success) {
63352/*pyobjfrom*/
63353/*end of pyobjfrom*/
63354 CFUNCSMESS("Building return value.\n");
63355 capi_buildvalue = Py_BuildValue("NNNi",capi_d_tmp,capi_e_tmp,capi_z_tmp,info);
63356/*closepyobjfrom*/
63357/*end of closepyobjfrom*/
63358 } /*if (f2py_success) after callfortranroutine*/
63359/*cleanupfrompyobj*/
63360 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
63361 } /*if (capi_work_tmp == NULL) ... else of work*/
63362 /* End of cleaning variable work */
63363 /* End of cleaning variable ldz */
63364 } /*if (capi_z_tmp == NULL) ... else of z*/
63365 /* End of cleaning variable z */
63366 } /*if (capi_e_tmp == NULL) ... else of e*/
63367 /* End of cleaning variable e */
63368 /* End of cleaning variable n */
63369 /* End of cleaning variable info */
63370 } /*if (capi_d_tmp == NULL) ... else of d*/
63371 /* End of cleaning variable d */
63372 } /*CHECKSCALAR((compute_z>=0) && (compute_z<=2))*/
63373 } /*if (f2py_success) of compute_z*/
63374 /* End of cleaning variable compute_z */
63375/*end of cleanupfrompyobj*/
63376 if (capi_buildvalue == NULL((void*)0)) {
63377/*routdebugfailure*/
63378 } else {
63379/*routdebugleave*/
63380 }
63381 CFUNCSMESS("Freeing memory.\n");
63382/*freemem*/
63383#ifdef F2PY_REPORT_ATEXIT
63384f2py_stop_clock();
63385#endif
63386 return capi_buildvalue;
63387}
63388/******************************* end of dpteqr *******************************/
63389
63390/*********************************** cpteqr ***********************************/
63391static char doc_f2py_rout__flapack_cpteqr[] = "\
63392d,e,z,info = cpteqr(d,e,z,[compute_z,overwrite_d,overwrite_e,overwrite_z])\n\nWrapper for ``cpteqr``.\
63393\n\nParameters\n----------\n"
63394"d : input rank-1 array('f') with bounds (n)\n"
63395"e : input rank-1 array('f') with bounds ((n>0?n-1:0))\n"
63396"z : input rank-2 array('F') with bounds ((compute_z==0?shape(z, 0):max(1,n)),(compute_z==0?shape(z, 1):n))\n"
63397"\nOther Parameters\n----------------\n"
63398"compute_z : input int, optional\n Default: 0\n"
63399"overwrite_d : input int, optional\n Default: 0\n"
63400"overwrite_e : input int, optional\n Default: 0\n"
63401"overwrite_z : input int, optional\n Default: 0\n"
63402"\nReturns\n-------\n"
63403"d : rank-1 array('f') with bounds (n)\n"
63404"e : rank-1 array('f') with bounds ((n>0?n-1:0))\n"
63405"z : rank-2 array('F') with bounds ((compute_z==0?shape(z, 0):max(1,n)),(compute_z==0?shape(z, 1):n))\n"
63406"info : int";
63407/* extern void F_FUNC(cpteqr,CPTEQR)(char*, F_INT*, float*, float*, complex_float*, F_INT*, float*, F_INT* ); */
63408static PyObject *f2py_rout__flapack_cpteqr(const PyObject *capi_self,
63409 PyObject *capi_args,
63410 PyObject *capi_keywds,
63411 void (*f2py_func)(char*, F_INTint*, float*, float*, complex_float*, F_INTint*, float*, F_INTint* )) {
63412 PyObject * volatile capi_buildvalue = NULL((void*)0);
63413 volatile int f2py_success = 1;
63414/*decl*/
63415
63416 int compute_z = 0;
63417 PyObject *compute_z_capi = Py_None(&_Py_NoneStruct);
63418 int n = 0;
63419 float *d = NULL((void*)0);
63420 npy_intp d_Dims[1] = {-1};
63421 const int d_Rank = 1;
63422 PyArrayObject *capi_d_tmp = NULL((void*)0);
63423 int capi_d_intent = 0;
63424 int capi_overwrite_d = 0;
63425 PyObject *d_capi = Py_None(&_Py_NoneStruct);
63426 float *e = NULL((void*)0);
63427 npy_intp e_Dims[1] = {-1};
63428 const int e_Rank = 1;
63429 PyArrayObject *capi_e_tmp = NULL((void*)0);
63430 int capi_e_intent = 0;
63431 int capi_overwrite_e = 0;
63432 PyObject *e_capi = Py_None(&_Py_NoneStruct);
63433 complex_float *z = NULL((void*)0);
63434 npy_intp z_Dims[2] = {-1, -1};
63435 const int z_Rank = 2;
63436 PyArrayObject *capi_z_tmp = NULL((void*)0);
63437 int capi_z_intent = 0;
63438 int capi_overwrite_z = 0;
63439 PyObject *z_capi = Py_None(&_Py_NoneStruct);
63440 int ldz = 0;
63441 float *work = NULL((void*)0);
63442 npy_intp work_Dims[1] = {-1};
63443 const int work_Rank = 1;
63444 PyArrayObject *capi_work_tmp = NULL((void*)0);
63445 int capi_work_intent = 0;
63446 int info = 0;
63447 static char *capi_kwlist[] = {"d","e","z","compute_z","overwrite_d","overwrite_e","overwrite_z",NULL((void*)0)};
63448
63449/*routdebugenter*/
63450#ifdef F2PY_REPORT_ATEXIT
63451f2py_start_clock();
63452#endif
63453 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
63454 "OOO|Oiii:_flapack.cpteqr",\
63455 capi_kwlist,&d_capi,&e_capi,&z_capi,&compute_z_capi,&capi_overwrite_d,&capi_overwrite_e,&capi_overwrite_z))
63456 return NULL((void*)0);
63457/*frompyobj*/
63458 /* Processing variable compute_z */
63459 if (compute_z_capi == Py_None(&_Py_NoneStruct)) compute_z = 0; else
63460 f2py_success = int_from_pyobj(&compute_z,compute_z_capi,"_flapack.cpteqr() 1st keyword (compute_z) can't be converted to int");
63461 if (f2py_success) {
63462 CHECKSCALAR((compute_z>=0) && (compute_z<=2),"(compute_z>=0) && (compute_z<=2)","1st keyword compute_z","cpteqr:compute_z=%d",compute_z)if (!((compute_z>=0) && (compute_z<=2))) { char
errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""cpteqr:compute_z=%d", "(""(compute_z>=0) && (compute_z<=2)"
") failed for ""1st keyword compute_z", compute_z); PyErr_SetString
(_flapack_error,errstring); } else
{
63463 /* Processing variable d */
63464 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
63465 ;
63466 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
63467 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
63468 if (capi_d_tmp == NULL((void*)0)) {
63469 if (!PyErr_Occurred())
63470 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.cpteqr to C/Fortran array" );
63471 } else {
63472 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
63473
63474 /* Processing variable info */
63475 /* Processing variable n */
63476 n = len(d)d_Dims[0];
63477 /* Processing variable e */
63478 capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32);
63479 e_Dims[0]=(n>0?n-1:0);
63480 capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
63481 capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi);
63482 if (capi_e_tmp == NULL((void*)0)) {
63483 if (!PyErr_Occurred())
63484 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.cpteqr to C/Fortran array" );
63485 } else {
63486 e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
63487
63488 /* Processing variable z */
63489 capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32);
63490 z_Dims[0]=(compute_z==0?shape(z, 0)z_Dims[0]:max(1,n)((1 > n) ? (1) : (n))),z_Dims[1]=(compute_z==0?shape(z, 1)z_Dims[1]:n);
63491 capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
63492 capi_z_tmp = array_from_pyobj(NPY_CFLOAT,z_Dims,z_Rank,capi_z_intent,z_capi);
63493 if (capi_z_tmp == NULL((void*)0)) {
63494 if (!PyErr_Occurred())
63495 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `z' of _flapack.cpteqr to C/Fortran array" );
63496 } else {
63497 z = (complex_float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
63498
63499 /* Processing variable ldz */
63500 ldz = (compute_z==0)?1:max(1, shape(z, 0))((1 > z_Dims[0]) ? (1) : (z_Dims[0]));
63501 /* Processing variable work */
63502 work_Dims[0]=4 * n;
63503 capi_work_intent |= F2PY_INTENT_HIDE8;
63504 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
63505 if (capi_work_tmp == NULL((void*)0)) {
63506 if (!PyErr_Occurred())
63507 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cpteqr to C/Fortran array" );
63508 } else {
63509 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
63510
63511/*end of frompyobj*/
63512#ifdef F2PY_REPORT_ATEXIT
63513f2py_start_call_clock();
63514#endif
63515/*callfortranroutine*/
63516 (*f2py_func)((compute_z?(compute_z==2?"I":"V"):"N"), &n, d, e, z, &ldz, work, &info) ;
63517 /*(*f2py_func)(&compute_z,&n,d,e,z,&ldz,work,&info);*/
63518if (PyErr_Occurred())
63519 f2py_success = 0;
63520#ifdef F2PY_REPORT_ATEXIT
63521f2py_stop_call_clock();
63522#endif
63523/*end of callfortranroutine*/
63524 if (f2py_success) {
63525/*pyobjfrom*/
63526/*end of pyobjfrom*/
63527 CFUNCSMESS("Building return value.\n");
63528 capi_buildvalue = Py_BuildValue("NNNi",capi_d_tmp,capi_e_tmp,capi_z_tmp,info);
63529/*closepyobjfrom*/
63530/*end of closepyobjfrom*/
63531 } /*if (f2py_success) after callfortranroutine*/
63532/*cleanupfrompyobj*/
63533 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
63534 } /*if (capi_work_tmp == NULL) ... else of work*/
63535 /* End of cleaning variable work */
63536 /* End of cleaning variable ldz */
63537 } /*if (capi_z_tmp == NULL) ... else of z*/
63538 /* End of cleaning variable z */
63539 } /*if (capi_e_tmp == NULL) ... else of e*/
63540 /* End of cleaning variable e */
63541 /* End of cleaning variable n */
63542 /* End of cleaning variable info */
63543 } /*if (capi_d_tmp == NULL) ... else of d*/
63544 /* End of cleaning variable d */
63545 } /*CHECKSCALAR((compute_z>=0) && (compute_z<=2))*/
63546 } /*if (f2py_success) of compute_z*/
63547 /* End of cleaning variable compute_z */
63548/*end of cleanupfrompyobj*/
63549 if (capi_buildvalue == NULL((void*)0)) {
63550/*routdebugfailure*/
63551 } else {
63552/*routdebugleave*/
63553 }
63554 CFUNCSMESS("Freeing memory.\n");
63555/*freemem*/
63556#ifdef F2PY_REPORT_ATEXIT
63557f2py_stop_clock();
63558#endif
63559 return capi_buildvalue;
63560}
63561/******************************* end of cpteqr *******************************/
63562
63563/*********************************** zpteqr ***********************************/
63564static char doc_f2py_rout__flapack_zpteqr[] = "\
63565d,e,z,info = zpteqr(d,e,z,[compute_z,overwrite_d,overwrite_e,overwrite_z])\n\nWrapper for ``zpteqr``.\
63566\n\nParameters\n----------\n"
63567"d : input rank-1 array('d') with bounds (n)\n"
63568"e : input rank-1 array('d') with bounds ((n>0?n-1:0))\n"
63569"z : input rank-2 array('D') with bounds ((compute_z==0?shape(z, 0):max(1,n)),(compute_z==0?shape(z, 1):n))\n"
63570"\nOther Parameters\n----------------\n"
63571"compute_z : input int, optional\n Default: 0\n"
63572"overwrite_d : input int, optional\n Default: 0\n"
63573"overwrite_e : input int, optional\n Default: 0\n"
63574"overwrite_z : input int, optional\n Default: 0\n"
63575"\nReturns\n-------\n"
63576"d : rank-1 array('d') with bounds (n)\n"
63577"e : rank-1 array('d') with bounds ((n>0?n-1:0))\n"
63578"z : rank-2 array('D') with bounds ((compute_z==0?shape(z, 0):max(1,n)),(compute_z==0?shape(z, 1):n))\n"
63579"info : int";
63580/* extern void F_FUNC(zpteqr,ZPTEQR)(char*, F_INT*, double*, double*, complex_double*, F_INT*, double*, F_INT* ); */
63581static PyObject *f2py_rout__flapack_zpteqr(const PyObject *capi_self,
63582 PyObject *capi_args,
63583 PyObject *capi_keywds,
63584 void (*f2py_func)(char*, F_INTint*, double*, double*, complex_double*, F_INTint*, double*, F_INTint* )) {
63585 PyObject * volatile capi_buildvalue = NULL((void*)0);
63586 volatile int f2py_success = 1;
63587/*decl*/
63588
63589 int compute_z = 0;
63590 PyObject *compute_z_capi = Py_None(&_Py_NoneStruct);
63591 int n = 0;
63592 double *d = NULL((void*)0);
63593 npy_intp d_Dims[1] = {-1};
63594 const int d_Rank = 1;
63595 PyArrayObject *capi_d_tmp = NULL((void*)0);
63596 int capi_d_intent = 0;
63597 int capi_overwrite_d = 0;
63598 PyObject *d_capi = Py_None(&_Py_NoneStruct);
63599 double *e = NULL((void*)0);
63600 npy_intp e_Dims[1] = {-1};
63601 const int e_Rank = 1;
63602 PyArrayObject *capi_e_tmp = NULL((void*)0);
63603 int capi_e_intent = 0;
63604 int capi_overwrite_e = 0;
63605 PyObject *e_capi = Py_None(&_Py_NoneStruct);
63606 complex_double *z = NULL((void*)0);
63607 npy_intp z_Dims[2] = {-1, -1};
63608 const int z_Rank = 2;
63609 PyArrayObject *capi_z_tmp = NULL((void*)0);
63610 int capi_z_intent = 0;
63611 int capi_overwrite_z = 0;
63612 PyObject *z_capi = Py_None(&_Py_NoneStruct);
63613 int ldz = 0;
63614 double *work = NULL((void*)0);
63615 npy_intp work_Dims[1] = {-1};
63616 const int work_Rank = 1;
63617 PyArrayObject *capi_work_tmp = NULL((void*)0);
63618 int capi_work_intent = 0;
63619 int info = 0;
63620 static char *capi_kwlist[] = {"d","e","z","compute_z","overwrite_d","overwrite_e","overwrite_z",NULL((void*)0)};
63621
63622/*routdebugenter*/
63623#ifdef F2PY_REPORT_ATEXIT
63624f2py_start_clock();
63625#endif
63626 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
63627 "OOO|Oiii:_flapack.zpteqr",\
63628 capi_kwlist,&d_capi,&e_capi,&z_capi,&compute_z_capi,&capi_overwrite_d,&capi_overwrite_e,&capi_overwrite_z))
63629 return NULL((void*)0);
63630/*frompyobj*/
63631 /* Processing variable compute_z */
63632 if (compute_z_capi == Py_None(&_Py_NoneStruct)) compute_z = 0; else
63633 f2py_success = int_from_pyobj(&compute_z,compute_z_capi,"_flapack.zpteqr() 1st keyword (compute_z) can't be converted to int");
63634 if (f2py_success) {
63635 CHECKSCALAR((compute_z>=0) && (compute_z<=2),"(compute_z>=0) && (compute_z<=2)","1st keyword compute_z","zpteqr:compute_z=%d",compute_z)if (!((compute_z>=0) && (compute_z<=2))) { char
errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zpteqr:compute_z=%d", "(""(compute_z>=0) && (compute_z<=2)"
") failed for ""1st keyword compute_z", compute_z); PyErr_SetString
(_flapack_error,errstring); } else
{
63636 /* Processing variable d */
63637 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
63638 ;
63639 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
63640 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
63641 if (capi_d_tmp == NULL((void*)0)) {
63642 if (!PyErr_Occurred())
63643 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.zpteqr to C/Fortran array" );
63644 } else {
63645 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
63646
63647 /* Processing variable info */
63648 /* Processing variable n */
63649 n = len(d)d_Dims[0];
63650 /* Processing variable e */
63651 capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32);
63652 e_Dims[0]=(n>0?n-1:0);
63653 capi_e_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
63654 capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi);
63655 if (capi_e_tmp == NULL((void*)0)) {
63656 if (!PyErr_Occurred())
63657 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.zpteqr to C/Fortran array" );
63658 } else {
63659 e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
63660
63661 /* Processing variable z */
63662 capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32);
63663 z_Dims[0]=(compute_z==0?shape(z, 0)z_Dims[0]:max(1,n)((1 > n) ? (1) : (n))),z_Dims[1]=(compute_z==0?shape(z, 1)z_Dims[1]:n);
63664 capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
63665 capi_z_tmp = array_from_pyobj(NPY_CDOUBLE,z_Dims,z_Rank,capi_z_intent,z_capi);
63666 if (capi_z_tmp == NULL((void*)0)) {
63667 if (!PyErr_Occurred())
63668 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `z' of _flapack.zpteqr to C/Fortran array" );
63669 } else {
63670 z = (complex_double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
63671
63672 /* Processing variable ldz */
63673 ldz = (compute_z==0)?1:max(1, shape(z, 0))((1 > z_Dims[0]) ? (1) : (z_Dims[0]));
63674 /* Processing variable work */
63675 work_Dims[0]=4 * n;
63676 capi_work_intent |= F2PY_INTENT_HIDE8;
63677 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
63678 if (capi_work_tmp == NULL((void*)0)) {
63679 if (!PyErr_Occurred())
63680 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zpteqr to C/Fortran array" );
63681 } else {
63682 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
63683
63684/*end of frompyobj*/
63685#ifdef F2PY_REPORT_ATEXIT
63686f2py_start_call_clock();
63687#endif
63688/*callfortranroutine*/
63689 (*f2py_func)((compute_z?(compute_z==2?"I":"V"):"N"), &n, d, e, z, &ldz, work, &info) ;
63690 /*(*f2py_func)(&compute_z,&n,d,e,z,&ldz,work,&info);*/
63691if (PyErr_Occurred())
63692 f2py_success = 0;
63693#ifdef F2PY_REPORT_ATEXIT
63694f2py_stop_call_clock();
63695#endif
63696/*end of callfortranroutine*/
63697 if (f2py_success) {
63698/*pyobjfrom*/
63699/*end of pyobjfrom*/
63700 CFUNCSMESS("Building return value.\n");
63701 capi_buildvalue = Py_BuildValue("NNNi",capi_d_tmp,capi_e_tmp,capi_z_tmp,info);
63702/*closepyobjfrom*/
63703/*end of closepyobjfrom*/
63704 } /*if (f2py_success) after callfortranroutine*/
63705/*cleanupfrompyobj*/
63706 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
63707 } /*if (capi_work_tmp == NULL) ... else of work*/
63708 /* End of cleaning variable work */
63709 /* End of cleaning variable ldz */
63710 } /*if (capi_z_tmp == NULL) ... else of z*/
63711 /* End of cleaning variable z */
63712 } /*if (capi_e_tmp == NULL) ... else of e*/
63713 /* End of cleaning variable e */
63714 /* End of cleaning variable n */
63715 /* End of cleaning variable info */
63716 } /*if (capi_d_tmp == NULL) ... else of d*/
63717 /* End of cleaning variable d */
63718 } /*CHECKSCALAR((compute_z>=0) && (compute_z<=2))*/
63719 } /*if (f2py_success) of compute_z*/
63720 /* End of cleaning variable compute_z */
63721/*end of cleanupfrompyobj*/
63722 if (capi_buildvalue == NULL((void*)0)) {
63723/*routdebugfailure*/
63724 } else {
63725/*routdebugleave*/
63726 }
63727 CFUNCSMESS("Freeing memory.\n");
63728/*freemem*/
63729#ifdef F2PY_REPORT_ATEXIT
63730f2py_stop_clock();
63731#endif
63732 return capi_buildvalue;
63733}
63734/******************************* end of zpteqr *******************************/
63735
63736/*********************************** sptsvx ***********************************/
63737static char doc_f2py_rout__flapack_sptsvx[] = "\
63738df,ef,x,rcond,ferr,berr,info = sptsvx(d,e,b,[fact,df,ef])\n\nWrapper for ``sptsvx``.\
63739\n\nParameters\n----------\n"
63740"d : input rank-1 array('f') with bounds (n)\n"
63741"e : input rank-1 array('f') with bounds (max(0, n-1))\n"
63742"b : input rank-2 array('f') with bounds (ldb,nrhs)\n"
63743"\nOther Parameters\n----------------\n"
63744"fact : input string(len=1), optional\n Default: 'N'\n"
63745"df : input rank-1 array('f') with bounds (n)\n"
63746"ef : input rank-1 array('f') with bounds (max(0, n-1))\n"
63747"\nReturns\n-------\n"
63748"df : rank-1 array('f') with bounds (n)\n"
63749"ef : rank-1 array('f') with bounds (max(0, n-1))\n"
63750"x : rank-2 array('f') with bounds (ldx,nrhs)\n"
63751"rcond : float\n"
63752"ferr : rank-1 array('f') with bounds (nrhs)\n"
63753"berr : rank-1 array('f') with bounds (nrhs)\n"
63754"info : int";
63755/* extern void F_FUNC(sptsvx,SPTSVX)(char*, F_INT*, F_INT*, float*, float*, float*, float*, float*, F_INT*, float*, F_INT*, float*, float*, float*, float*, F_INT* ); */
63756static PyObject *f2py_rout__flapack_sptsvx(const PyObject *capi_self,
63757 PyObject *capi_args,
63758 PyObject *capi_keywds,
63759 void (*f2py_func)(char*, F_INTint*, F_INTint*, float*, float*, float*, float*, float*, F_INTint*, float*, F_INTint*, float*, float*, float*, float*, F_INTint* )) {
63760 PyObject * volatile capi_buildvalue = NULL((void*)0);
63761 volatile int f2py_success = 1;
63762/*decl*/
63763
63764 string fact = NULL((void*)0);
63765 int slen(fact)capi_fact_len;
63766 PyObject *fact_capi = Py_None(&_Py_NoneStruct);
63767 int n = 0;
63768 int nrhs = 0;
63769 float *d = NULL((void*)0);
63770 npy_intp d_Dims[1] = {-1};
63771 const int d_Rank = 1;
63772 PyArrayObject *capi_d_tmp = NULL((void*)0);
63773 int capi_d_intent = 0;
63774 PyObject *d_capi = Py_None(&_Py_NoneStruct);
63775 float *e = NULL((void*)0);
63776 npy_intp e_Dims[1] = {-1};
63777 const int e_Rank = 1;
63778 PyArrayObject *capi_e_tmp = NULL((void*)0);
63779 int capi_e_intent = 0;
63780 PyObject *e_capi = Py_None(&_Py_NoneStruct);
63781 float *df = NULL((void*)0);
63782 npy_intp df_Dims[1] = {-1};
63783 const int df_Rank = 1;
63784 PyArrayObject *capi_df_tmp = NULL((void*)0);
63785 int capi_df_intent = 0;
63786 PyObject *df_capi = Py_None(&_Py_NoneStruct);
63787 float *ef = NULL((void*)0);
63788 npy_intp ef_Dims[1] = {-1};
63789 const int ef_Rank = 1;
63790 PyArrayObject *capi_ef_tmp = NULL((void*)0);
63791 int capi_ef_intent = 0;
63792 PyObject *ef_capi = Py_None(&_Py_NoneStruct);
63793 float *b = NULL((void*)0);
63794 npy_intp b_Dims[2] = {-1, -1};
63795 const int b_Rank = 2;
63796 PyArrayObject *capi_b_tmp = NULL((void*)0);
63797 int capi_b_intent = 0;
63798 PyObject *b_capi = Py_None(&_Py_NoneStruct);
63799 int ldb = 0;
63800 float *x = NULL((void*)0);
63801 npy_intp x_Dims[2] = {-1, -1};
63802 const int x_Rank = 2;
63803 PyArrayObject *capi_x_tmp = NULL((void*)0);
63804 int capi_x_intent = 0;
63805 int ldx = 0;
63806 float rcond = 0;
63807 float *ferr = NULL((void*)0);
63808 npy_intp ferr_Dims[1] = {-1};
63809 const int ferr_Rank = 1;
63810 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
63811 int capi_ferr_intent = 0;
63812 float *berr = NULL((void*)0);
63813 npy_intp berr_Dims[1] = {-1};
63814 const int berr_Rank = 1;
63815 PyArrayObject *capi_berr_tmp = NULL((void*)0);
63816 int capi_berr_intent = 0;
63817 float *work = NULL((void*)0);
63818 npy_intp work_Dims[1] = {-1};
63819 const int work_Rank = 1;
63820 PyArrayObject *capi_work_tmp = NULL((void*)0);
63821 int capi_work_intent = 0;
63822 int info = 0;
63823 static char *capi_kwlist[] = {"d","e","b","fact","df","ef",NULL((void*)0)};
63824
63825/*routdebugenter*/
63826#ifdef F2PY_REPORT_ATEXIT
63827f2py_start_clock();
63828#endif
63829 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
63830 "OOO|OOO:_flapack.sptsvx",\
63831 capi_kwlist,&d_capi,&e_capi,&b_capi,&fact_capi,&df_capi,&ef_capi))
63832 return NULL((void*)0);
63833/*frompyobj*/
63834 /* Processing variable d */
63835 ;
63836 capi_d_intent |= F2PY_INTENT_IN1;
63837 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
63838 if (capi_d_tmp == NULL((void*)0)) {
63839 if (!PyErr_Occurred())
63840 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.sptsvx to C/Fortran array" );
63841 } else {
63842 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
63843
63844 /* Processing variable rcond */
63845 /* Processing variable info */
63846 /* Processing variable n */
63847 n = len(d)d_Dims[0];
63848 /* Processing variable e */
63849 e_Dims[0]=max(0, n-1)((0 > n-1) ? (0) : (n-1));
63850 capi_e_intent |= F2PY_INTENT_IN1;
63851 capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi);
63852 if (capi_e_tmp == NULL((void*)0)) {
63853 if (!PyErr_Occurred())
63854 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.sptsvx to C/Fortran array" );
63855 } else {
63856 e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
63857
63858 /* Processing variable df */
63859 df_Dims[0]=n;
63860 capi_df_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
63861 capi_df_tmp = array_from_pyobj(NPY_FLOAT,df_Dims,df_Rank,capi_df_intent,df_capi);
63862 if (capi_df_tmp == NULL((void*)0)) {
63863 if (!PyErr_Occurred())
63864 PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `df' of _flapack.sptsvx to C/Fortran array" );
63865 } else {
63866 df = (float *)(PyArray_DATA(capi_df_tmp)((void *)((PyArrayObject_fields *)(capi_df_tmp))->data));
63867
63868 /* Processing variable ef */
63869 ef_Dims[0]=max(0, n-1)((0 > n-1) ? (0) : (n-1));
63870 capi_ef_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
63871 capi_ef_tmp = array_from_pyobj(NPY_FLOAT,ef_Dims,ef_Rank,capi_ef_intent,ef_capi);
63872 if (capi_ef_tmp == NULL((void*)0)) {
63873 if (!PyErr_Occurred())
63874 PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `ef' of _flapack.sptsvx to C/Fortran array" );
63875 } else {
63876 ef = (float *)(PyArray_DATA(capi_ef_tmp)((void *)((PyArrayObject_fields *)(capi_ef_tmp))->data));
63877
63878 /* Processing variable b */
63879 ;
63880 capi_b_intent |= F2PY_INTENT_IN1;
63881 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
63882 if (capi_b_tmp == NULL((void*)0)) {
63883 if (!PyErr_Occurred())
63884 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.sptsvx to C/Fortran array" );
63885 } else {
63886 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
63887
63888 CHECKARRAY(shape(b, 0) >= n,"shape(b, 0) >= n","3rd argument b")if (!(b_Dims[0] >= n)) { PyErr_SetString(_flapack_error,"("
"shape(b, 0) >= n"") failed for ""3rd argument b"); } else
{
63889 /* Processing variable ldb */
63890 ldb = max(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
63891 /* Processing variable ldx */
63892 ldx = n;
63893 /* Processing variable work */
63894 work_Dims[0]=2 * n;
63895 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
63896 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
63897 if (capi_work_tmp == NULL((void*)0)) {
63898 if (!PyErr_Occurred())
63899 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sptsvx to C/Fortran array" );
63900 } else {
63901 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
63902
63903 /* Processing variable fact */
63904 slen(fact)capi_fact_len = 1;
63905 f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"N",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.sptsvx to C string");
63906 if (f2py_success) {
63907 /* Processing variable nrhs */
63908 nrhs = shape(b, 1)b_Dims[1];
63909 /* Processing variable x */
63910 x_Dims[0]=ldx,x_Dims[1]=nrhs;
63911 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
63912 capi_x_tmp = array_from_pyobj(NPY_FLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
63913 if (capi_x_tmp == NULL((void*)0)) {
63914 if (!PyErr_Occurred())
63915 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.sptsvx to C/Fortran array" );
63916 } else {
63917 x = (float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
63918
63919 /* Processing variable ferr */
63920 ferr_Dims[0]=nrhs;
63921 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
63922 capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
63923 if (capi_ferr_tmp == NULL((void*)0)) {
63924 if (!PyErr_Occurred())
63925 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.sptsvx to C/Fortran array" );
63926 } else {
63927 ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
63928
63929 /* Processing variable berr */
63930 berr_Dims[0]=nrhs;
63931 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
63932 capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
63933 if (capi_berr_tmp == NULL((void*)0)) {
63934 if (!PyErr_Occurred())
63935 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.sptsvx to C/Fortran array" );
63936 } else {
63937 berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
63938
63939/*end of frompyobj*/
63940#ifdef F2PY_REPORT_ATEXIT
63941f2py_start_call_clock();
63942#endif
63943/*callfortranroutine*/
63944 (*f2py_func)(fact, &n, &nrhs, d, e, df, ef, b, &ldb, x, &ldx, &rcond, ferr, berr, work, &info) ;
63945 /*(*f2py_func)(fact,&n,&nrhs,d,e,df,ef,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&info,slen(fact));*/
63946if (PyErr_Occurred())
63947 f2py_success = 0;
63948#ifdef F2PY_REPORT_ATEXIT
63949f2py_stop_call_clock();
63950#endif
63951/*end of callfortranroutine*/
63952 if (f2py_success) {
63953/*pyobjfrom*/
63954/*end of pyobjfrom*/
63955 CFUNCSMESS("Building return value.\n");
63956 capi_buildvalue = Py_BuildValue("NNNfNNi",capi_df_tmp,capi_ef_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
63957/*closepyobjfrom*/
63958/*end of closepyobjfrom*/
63959 } /*if (f2py_success) after callfortranroutine*/
63960/*cleanupfrompyobj*/
63961 } /*if (capi_berr_tmp == NULL) ... else of berr*/
63962 /* End of cleaning variable berr */
63963 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
63964 /* End of cleaning variable ferr */
63965 } /*if (capi_x_tmp == NULL) ... else of x*/
63966 /* End of cleaning variable x */
63967 /* End of cleaning variable nrhs */
63968 STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0);
63969 } /*if (f2py_success) of fact*/
63970 /* End of cleaning variable fact */
63971 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
63972 } /*if (capi_work_tmp == NULL) ... else of work*/
63973 /* End of cleaning variable work */
63974 /* End of cleaning variable ldx */
63975 /* End of cleaning variable ldb */
63976 } /*CHECKARRAY(shape(b, 0) >= n)*/
63977 if((PyObject *)capi_b_tmp!=b_capi) {
63978 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
63979 } /*if (capi_b_tmp == NULL) ... else of b*/
63980 /* End of cleaning variable b */
63981 } /*if (capi_ef_tmp == NULL) ... else of ef*/
63982 /* End of cleaning variable ef */
63983 } /*if (capi_df_tmp == NULL) ... else of df*/
63984 /* End of cleaning variable df */
63985 if((PyObject *)capi_e_tmp!=e_capi) {
63986 Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); }
63987 } /*if (capi_e_tmp == NULL) ... else of e*/
63988 /* End of cleaning variable e */
63989 /* End of cleaning variable n */
63990 /* End of cleaning variable info */
63991 /* End of cleaning variable rcond */
63992 if((PyObject *)capi_d_tmp!=d_capi) {
63993 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
63994 } /*if (capi_d_tmp == NULL) ... else of d*/
63995 /* End of cleaning variable d */
63996/*end of cleanupfrompyobj*/
63997 if (capi_buildvalue == NULL((void*)0)) {
63998/*routdebugfailure*/
63999 } else {
64000/*routdebugleave*/
64001 }
64002 CFUNCSMESS("Freeing memory.\n");
64003/*freemem*/
64004#ifdef F2PY_REPORT_ATEXIT
64005f2py_stop_clock();
64006#endif
64007 return capi_buildvalue;
64008}
64009/******************************* end of sptsvx *******************************/
64010
64011/*********************************** dptsvx ***********************************/
64012static char doc_f2py_rout__flapack_dptsvx[] = "\
64013df,ef,x,rcond,ferr,berr,info = dptsvx(d,e,b,[fact,df,ef])\n\nWrapper for ``dptsvx``.\
64014\n\nParameters\n----------\n"
64015"d : input rank-1 array('d') with bounds (n)\n"
64016"e : input rank-1 array('d') with bounds (max(0, n-1))\n"
64017"b : input rank-2 array('d') with bounds (ldb,nrhs)\n"
64018"\nOther Parameters\n----------------\n"
64019"fact : input string(len=1), optional\n Default: 'N'\n"
64020"df : input rank-1 array('d') with bounds (n)\n"
64021"ef : input rank-1 array('d') with bounds (max(0, n-1))\n"
64022"\nReturns\n-------\n"
64023"df : rank-1 array('d') with bounds (n)\n"
64024"ef : rank-1 array('d') with bounds (max(0, n-1))\n"
64025"x : rank-2 array('d') with bounds (ldx,nrhs)\n"
64026"rcond : float\n"
64027"ferr : rank-1 array('d') with bounds (nrhs)\n"
64028"berr : rank-1 array('d') with bounds (nrhs)\n"
64029"info : int";
64030/* extern void F_FUNC(dptsvx,DPTSVX)(char*, F_INT*, F_INT*, double*, double*, double*, double*, double*, F_INT*, double*, F_INT*, double*, double*, double*, double*, F_INT* ); */
64031static PyObject *f2py_rout__flapack_dptsvx(const PyObject *capi_self,
64032 PyObject *capi_args,
64033 PyObject *capi_keywds,
64034 void (*f2py_func)(char*, F_INTint*, F_INTint*, double*, double*, double*, double*, double*, F_INTint*, double*, F_INTint*, double*, double*, double*, double*, F_INTint* )) {
64035 PyObject * volatile capi_buildvalue = NULL((void*)0);
64036 volatile int f2py_success = 1;
64037/*decl*/
64038
64039 string fact = NULL((void*)0);
64040 int slen(fact)capi_fact_len;
64041 PyObject *fact_capi = Py_None(&_Py_NoneStruct);
64042 int n = 0;
64043 int nrhs = 0;
64044 double *d = NULL((void*)0);
64045 npy_intp d_Dims[1] = {-1};
64046 const int d_Rank = 1;
64047 PyArrayObject *capi_d_tmp = NULL((void*)0);
64048 int capi_d_intent = 0;
64049 PyObject *d_capi = Py_None(&_Py_NoneStruct);
64050 double *e = NULL((void*)0);
64051 npy_intp e_Dims[1] = {-1};
64052 const int e_Rank = 1;
64053 PyArrayObject *capi_e_tmp = NULL((void*)0);
64054 int capi_e_intent = 0;
64055 PyObject *e_capi = Py_None(&_Py_NoneStruct);
64056 double *df = NULL((void*)0);
64057 npy_intp df_Dims[1] = {-1};
64058 const int df_Rank = 1;
64059 PyArrayObject *capi_df_tmp = NULL((void*)0);
64060 int capi_df_intent = 0;
64061 PyObject *df_capi = Py_None(&_Py_NoneStruct);
64062 double *ef = NULL((void*)0);
64063 npy_intp ef_Dims[1] = {-1};
64064 const int ef_Rank = 1;
64065 PyArrayObject *capi_ef_tmp = NULL((void*)0);
64066 int capi_ef_intent = 0;
64067 PyObject *ef_capi = Py_None(&_Py_NoneStruct);
64068 double *b = NULL((void*)0);
64069 npy_intp b_Dims[2] = {-1, -1};
64070 const int b_Rank = 2;
64071 PyArrayObject *capi_b_tmp = NULL((void*)0);
64072 int capi_b_intent = 0;
64073 PyObject *b_capi = Py_None(&_Py_NoneStruct);
64074 int ldb = 0;
64075 double *x = NULL((void*)0);
64076 npy_intp x_Dims[2] = {-1, -1};
64077 const int x_Rank = 2;
64078 PyArrayObject *capi_x_tmp = NULL((void*)0);
64079 int capi_x_intent = 0;
64080 int ldx = 0;
64081 double rcond = 0;
64082 double *ferr = NULL((void*)0);
64083 npy_intp ferr_Dims[1] = {-1};
64084 const int ferr_Rank = 1;
64085 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
64086 int capi_ferr_intent = 0;
64087 double *berr = NULL((void*)0);
64088 npy_intp berr_Dims[1] = {-1};
64089 const int berr_Rank = 1;
64090 PyArrayObject *capi_berr_tmp = NULL((void*)0);
64091 int capi_berr_intent = 0;
64092 double *work = NULL((void*)0);
64093 npy_intp work_Dims[1] = {-1};
64094 const int work_Rank = 1;
64095 PyArrayObject *capi_work_tmp = NULL((void*)0);
64096 int capi_work_intent = 0;
64097 int info = 0;
64098 static char *capi_kwlist[] = {"d","e","b","fact","df","ef",NULL((void*)0)};
64099
64100/*routdebugenter*/
64101#ifdef F2PY_REPORT_ATEXIT
64102f2py_start_clock();
64103#endif
64104 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
64105 "OOO|OOO:_flapack.dptsvx",\
64106 capi_kwlist,&d_capi,&e_capi,&b_capi,&fact_capi,&df_capi,&ef_capi))
64107 return NULL((void*)0);
64108/*frompyobj*/
64109 /* Processing variable d */
64110 ;
64111 capi_d_intent |= F2PY_INTENT_IN1;
64112 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
64113 if (capi_d_tmp == NULL((void*)0)) {
64114 if (!PyErr_Occurred())
64115 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dptsvx to C/Fortran array" );
64116 } else {
64117 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
64118
64119 /* Processing variable rcond */
64120 /* Processing variable info */
64121 /* Processing variable n */
64122 n = len(d)d_Dims[0];
64123 /* Processing variable e */
64124 e_Dims[0]=max(0, n-1)((0 > n-1) ? (0) : (n-1));
64125 capi_e_intent |= F2PY_INTENT_IN1;
64126 capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi);
64127 if (capi_e_tmp == NULL((void*)0)) {
64128 if (!PyErr_Occurred())
64129 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dptsvx to C/Fortran array" );
64130 } else {
64131 e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
64132
64133 /* Processing variable df */
64134 df_Dims[0]=n;
64135 capi_df_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
64136 capi_df_tmp = array_from_pyobj(NPY_DOUBLE,df_Dims,df_Rank,capi_df_intent,df_capi);
64137 if (capi_df_tmp == NULL((void*)0)) {
64138 if (!PyErr_Occurred())
64139 PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `df' of _flapack.dptsvx to C/Fortran array" );
64140 } else {
64141 df = (double *)(PyArray_DATA(capi_df_tmp)((void *)((PyArrayObject_fields *)(capi_df_tmp))->data));
64142
64143 /* Processing variable ef */
64144 ef_Dims[0]=max(0, n-1)((0 > n-1) ? (0) : (n-1));
64145 capi_ef_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
64146 capi_ef_tmp = array_from_pyobj(NPY_DOUBLE,ef_Dims,ef_Rank,capi_ef_intent,ef_capi);
64147 if (capi_ef_tmp == NULL((void*)0)) {
64148 if (!PyErr_Occurred())
64149 PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `ef' of _flapack.dptsvx to C/Fortran array" );
64150 } else {
64151 ef = (double *)(PyArray_DATA(capi_ef_tmp)((void *)((PyArrayObject_fields *)(capi_ef_tmp))->data));
64152
64153 /* Processing variable b */
64154 ;
64155 capi_b_intent |= F2PY_INTENT_IN1;
64156 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
64157 if (capi_b_tmp == NULL((void*)0)) {
64158 if (!PyErr_Occurred())
64159 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.dptsvx to C/Fortran array" );
64160 } else {
64161 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
64162
64163 CHECKARRAY(shape(b, 0) >= n,"shape(b, 0) >= n","3rd argument b")if (!(b_Dims[0] >= n)) { PyErr_SetString(_flapack_error,"("
"shape(b, 0) >= n"") failed for ""3rd argument b"); } else
{
64164 /* Processing variable ldb */
64165 ldb = max(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
64166 /* Processing variable ldx */
64167 ldx = n;
64168 /* Processing variable work */
64169 work_Dims[0]=2 * n;
64170 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
64171 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
64172 if (capi_work_tmp == NULL((void*)0)) {
64173 if (!PyErr_Occurred())
64174 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dptsvx to C/Fortran array" );
64175 } else {
64176 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
64177
64178 /* Processing variable fact */
64179 slen(fact)capi_fact_len = 1;
64180 f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"N",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.dptsvx to C string");
64181 if (f2py_success) {
64182 /* Processing variable nrhs */
64183 nrhs = shape(b, 1)b_Dims[1];
64184 /* Processing variable x */
64185 x_Dims[0]=ldx,x_Dims[1]=nrhs;
64186 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
64187 capi_x_tmp = array_from_pyobj(NPY_DOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
64188 if (capi_x_tmp == NULL((void*)0)) {
64189 if (!PyErr_Occurred())
64190 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.dptsvx to C/Fortran array" );
64191 } else {
64192 x = (double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
64193
64194 /* Processing variable ferr */
64195 ferr_Dims[0]=nrhs;
64196 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
64197 capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
64198 if (capi_ferr_tmp == NULL((void*)0)) {
64199 if (!PyErr_Occurred())
64200 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.dptsvx to C/Fortran array" );
64201 } else {
64202 ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
64203
64204 /* Processing variable berr */
64205 berr_Dims[0]=nrhs;
64206 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
64207 capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
64208 if (capi_berr_tmp == NULL((void*)0)) {
64209 if (!PyErr_Occurred())
64210 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.dptsvx to C/Fortran array" );
64211 } else {
64212 berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
64213
64214/*end of frompyobj*/
64215#ifdef F2PY_REPORT_ATEXIT
64216f2py_start_call_clock();
64217#endif
64218/*callfortranroutine*/
64219 (*f2py_func)(fact, &n, &nrhs, d, e, df, ef, b, &ldb, x, &ldx, &rcond, ferr, berr, work, &info) ;
64220 /*(*f2py_func)(fact,&n,&nrhs,d,e,df,ef,b,&ldb,x,&ldx,&rcond,ferr,berr,work,&info,slen(fact));*/
64221if (PyErr_Occurred())
64222 f2py_success = 0;
64223#ifdef F2PY_REPORT_ATEXIT
64224f2py_stop_call_clock();
64225#endif
64226/*end of callfortranroutine*/
64227 if (f2py_success) {
64228/*pyobjfrom*/
64229/*end of pyobjfrom*/
64230 CFUNCSMESS("Building return value.\n");
64231 capi_buildvalue = Py_BuildValue("NNNdNNi",capi_df_tmp,capi_ef_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
64232/*closepyobjfrom*/
64233/*end of closepyobjfrom*/
64234 } /*if (f2py_success) after callfortranroutine*/
64235/*cleanupfrompyobj*/
64236 } /*if (capi_berr_tmp == NULL) ... else of berr*/
64237 /* End of cleaning variable berr */
64238 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
64239 /* End of cleaning variable ferr */
64240 } /*if (capi_x_tmp == NULL) ... else of x*/
64241 /* End of cleaning variable x */
64242 /* End of cleaning variable nrhs */
64243 STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0);
64244 } /*if (f2py_success) of fact*/
64245 /* End of cleaning variable fact */
64246 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
64247 } /*if (capi_work_tmp == NULL) ... else of work*/
64248 /* End of cleaning variable work */
64249 /* End of cleaning variable ldx */
64250 /* End of cleaning variable ldb */
64251 } /*CHECKARRAY(shape(b, 0) >= n)*/
64252 if((PyObject *)capi_b_tmp!=b_capi) {
64253 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
64254 } /*if (capi_b_tmp == NULL) ... else of b*/
64255 /* End of cleaning variable b */
64256 } /*if (capi_ef_tmp == NULL) ... else of ef*/
64257 /* End of cleaning variable ef */
64258 } /*if (capi_df_tmp == NULL) ... else of df*/
64259 /* End of cleaning variable df */
64260 if((PyObject *)capi_e_tmp!=e_capi) {
64261 Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); }
64262 } /*if (capi_e_tmp == NULL) ... else of e*/
64263 /* End of cleaning variable e */
64264 /* End of cleaning variable n */
64265 /* End of cleaning variable info */
64266 /* End of cleaning variable rcond */
64267 if((PyObject *)capi_d_tmp!=d_capi) {
64268 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
64269 } /*if (capi_d_tmp == NULL) ... else of d*/
64270 /* End of cleaning variable d */
64271/*end of cleanupfrompyobj*/
64272 if (capi_buildvalue == NULL((void*)0)) {
64273/*routdebugfailure*/
64274 } else {
64275/*routdebugleave*/
64276 }
64277 CFUNCSMESS("Freeing memory.\n");
64278/*freemem*/
64279#ifdef F2PY_REPORT_ATEXIT
64280f2py_stop_clock();
64281#endif
64282 return capi_buildvalue;
64283}
64284/******************************* end of dptsvx *******************************/
64285
64286/*********************************** cptsvx ***********************************/
64287static char doc_f2py_rout__flapack_cptsvx[] = "\
64288df,ef,x,rcond,ferr,berr,info = cptsvx(d,e,b,[fact,df,ef])\n\nWrapper for ``cptsvx``.\
64289\n\nParameters\n----------\n"
64290"d : input rank-1 array('f') with bounds (n)\n"
64291"e : input rank-1 array('F') with bounds (max(0, n-1))\n"
64292"b : input rank-2 array('F') with bounds (ldb,nrhs)\n"
64293"\nOther Parameters\n----------------\n"
64294"fact : input string(len=1), optional\n Default: 'N'\n"
64295"df : input rank-1 array('f') with bounds (n)\n"
64296"ef : input rank-1 array('F') with bounds (max(0, n-1))\n"
64297"\nReturns\n-------\n"
64298"df : rank-1 array('f') with bounds (n)\n"
64299"ef : rank-1 array('F') with bounds (max(0, n-1))\n"
64300"x : rank-2 array('F') with bounds (ldx,nrhs)\n"
64301"rcond : float\n"
64302"ferr : rank-1 array('f') with bounds (nrhs)\n"
64303"berr : rank-1 array('f') with bounds (nrhs)\n"
64304"info : int";
64305/* extern void F_FUNC(cptsvx,CPTSVX)(char*, F_INT*, F_INT*, float*, complex_float*, float*, complex_float*, complex_float*, F_INT*, complex_float*, F_INT*, float*, float*, float*, complex_float*, float*, F_INT* ); */
64306static PyObject *f2py_rout__flapack_cptsvx(const PyObject *capi_self,
64307 PyObject *capi_args,
64308 PyObject *capi_keywds,
64309 void (*f2py_func)(char*, F_INTint*, F_INTint*, float*, complex_float*, float*, complex_float*, complex_float*, F_INTint*, complex_float*, F_INTint*, float*, float*, float*, complex_float*, float*, F_INTint* )) {
64310 PyObject * volatile capi_buildvalue = NULL((void*)0);
64311 volatile int f2py_success = 1;
64312/*decl*/
64313
64314 string fact = NULL((void*)0);
64315 int slen(fact)capi_fact_len;
64316 PyObject *fact_capi = Py_None(&_Py_NoneStruct);
64317 int n = 0;
64318 int nrhs = 0;
64319 float *d = NULL((void*)0);
64320 npy_intp d_Dims[1] = {-1};
64321 const int d_Rank = 1;
64322 PyArrayObject *capi_d_tmp = NULL((void*)0);
64323 int capi_d_intent = 0;
64324 PyObject *d_capi = Py_None(&_Py_NoneStruct);
64325 complex_float *e = NULL((void*)0);
64326 npy_intp e_Dims[1] = {-1};
64327 const int e_Rank = 1;
64328 PyArrayObject *capi_e_tmp = NULL((void*)0);
64329 int capi_e_intent = 0;
64330 PyObject *e_capi = Py_None(&_Py_NoneStruct);
64331 float *df = NULL((void*)0);
64332 npy_intp df_Dims[1] = {-1};
64333 const int df_Rank = 1;
64334 PyArrayObject *capi_df_tmp = NULL((void*)0);
64335 int capi_df_intent = 0;
64336 PyObject *df_capi = Py_None(&_Py_NoneStruct);
64337 complex_float *ef = NULL((void*)0);
64338 npy_intp ef_Dims[1] = {-1};
64339 const int ef_Rank = 1;
64340 PyArrayObject *capi_ef_tmp = NULL((void*)0);
64341 int capi_ef_intent = 0;
64342 PyObject *ef_capi = Py_None(&_Py_NoneStruct);
64343 complex_float *b = NULL((void*)0);
64344 npy_intp b_Dims[2] = {-1, -1};
64345 const int b_Rank = 2;
64346 PyArrayObject *capi_b_tmp = NULL((void*)0);
64347 int capi_b_intent = 0;
64348 PyObject *b_capi = Py_None(&_Py_NoneStruct);
64349 int ldb = 0;
64350 complex_float *x = NULL((void*)0);
64351 npy_intp x_Dims[2] = {-1, -1};
64352 const int x_Rank = 2;
64353 PyArrayObject *capi_x_tmp = NULL((void*)0);
64354 int capi_x_intent = 0;
64355 int ldx = 0;
64356 float rcond = 0;
64357 float *ferr = NULL((void*)0);
64358 npy_intp ferr_Dims[1] = {-1};
64359 const int ferr_Rank = 1;
64360 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
64361 int capi_ferr_intent = 0;
64362 float *berr = NULL((void*)0);
64363 npy_intp berr_Dims[1] = {-1};
64364 const int berr_Rank = 1;
64365 PyArrayObject *capi_berr_tmp = NULL((void*)0);
64366 int capi_berr_intent = 0;
64367 complex_float *work = NULL((void*)0);
64368 npy_intp work_Dims[1] = {-1};
64369 const int work_Rank = 1;
64370 PyArrayObject *capi_work_tmp = NULL((void*)0);
64371 int capi_work_intent = 0;
64372 float *rwork = NULL((void*)0);
64373 npy_intp rwork_Dims[1] = {-1};
64374 const int rwork_Rank = 1;
64375 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
64376 int capi_rwork_intent = 0;
64377 int info = 0;
64378 static char *capi_kwlist[] = {"d","e","b","fact","df","ef",NULL((void*)0)};
64379
64380/*routdebugenter*/
64381#ifdef F2PY_REPORT_ATEXIT
64382f2py_start_clock();
64383#endif
64384 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
64385 "OOO|OOO:_flapack.cptsvx",\
64386 capi_kwlist,&d_capi,&e_capi,&b_capi,&fact_capi,&df_capi,&ef_capi))
64387 return NULL((void*)0);
64388/*frompyobj*/
64389 /* Processing variable d */
64390 ;
64391 capi_d_intent |= F2PY_INTENT_IN1;
64392 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
64393 if (capi_d_tmp == NULL((void*)0)) {
64394 if (!PyErr_Occurred())
64395 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.cptsvx to C/Fortran array" );
64396 } else {
64397 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
64398
64399 /* Processing variable rcond */
64400 /* Processing variable info */
64401 /* Processing variable n */
64402 n = len(d)d_Dims[0];
64403 /* Processing variable e */
64404 e_Dims[0]=max(0, n-1)((0 > n-1) ? (0) : (n-1));
64405 capi_e_intent |= F2PY_INTENT_IN1;
64406 capi_e_tmp = array_from_pyobj(NPY_CFLOAT,e_Dims,e_Rank,capi_e_intent,e_capi);
64407 if (capi_e_tmp == NULL((void*)0)) {
64408 if (!PyErr_Occurred())
64409 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.cptsvx to C/Fortran array" );
64410 } else {
64411 e = (complex_float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
64412
64413 /* Processing variable df */
64414 df_Dims[0]=n;
64415 capi_df_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
64416 capi_df_tmp = array_from_pyobj(NPY_FLOAT,df_Dims,df_Rank,capi_df_intent,df_capi);
64417 if (capi_df_tmp == NULL((void*)0)) {
64418 if (!PyErr_Occurred())
64419 PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `df' of _flapack.cptsvx to C/Fortran array" );
64420 } else {
64421 df = (float *)(PyArray_DATA(capi_df_tmp)((void *)((PyArrayObject_fields *)(capi_df_tmp))->data));
64422
64423 /* Processing variable ef */
64424 ef_Dims[0]=max(0, n-1)((0 > n-1) ? (0) : (n-1));
64425 capi_ef_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
64426 capi_ef_tmp = array_from_pyobj(NPY_CFLOAT,ef_Dims,ef_Rank,capi_ef_intent,ef_capi);
64427 if (capi_ef_tmp == NULL((void*)0)) {
64428 if (!PyErr_Occurred())
64429 PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `ef' of _flapack.cptsvx to C/Fortran array" );
64430 } else {
64431 ef = (complex_float *)(PyArray_DATA(capi_ef_tmp)((void *)((PyArrayObject_fields *)(capi_ef_tmp))->data));
64432
64433 /* Processing variable b */
64434 ;
64435 capi_b_intent |= F2PY_INTENT_IN1;
64436 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
64437 if (capi_b_tmp == NULL((void*)0)) {
64438 if (!PyErr_Occurred())
64439 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.cptsvx to C/Fortran array" );
64440 } else {
64441 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
64442
64443 CHECKARRAY(shape(b,0) >= n,"shape(b,0) >= n","3rd argument b")if (!(b_Dims[0] >= n)) { PyErr_SetString(_flapack_error,"("
"shape(b,0) >= n"") failed for ""3rd argument b"); } else
{
64444 /* Processing variable ldb */
64445 ldb = max(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
64446 /* Processing variable ldx */
64447 ldx = n;
64448 /* Processing variable work */
64449 work_Dims[0]=n;
64450 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
64451 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
64452 if (capi_work_tmp == NULL((void*)0)) {
64453 if (!PyErr_Occurred())
64454 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cptsvx to C/Fortran array" );
64455 } else {
64456 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
64457
64458 /* Processing variable rwork */
64459 rwork_Dims[0]=n;
64460 capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
64461 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
64462 if (capi_rwork_tmp == NULL((void*)0)) {
64463 if (!PyErr_Occurred())
64464 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cptsvx to C/Fortran array" );
64465 } else {
64466 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
64467
64468 /* Processing variable fact */
64469 slen(fact)capi_fact_len = 1;
64470 f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"N",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.cptsvx to C string");
64471 if (f2py_success) {
64472 /* Processing variable nrhs */
64473 nrhs = shape(b, 1)b_Dims[1];
64474 /* Processing variable x */
64475 x_Dims[0]=ldx,x_Dims[1]=nrhs;
64476 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
64477 capi_x_tmp = array_from_pyobj(NPY_CFLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
64478 if (capi_x_tmp == NULL((void*)0)) {
64479 if (!PyErr_Occurred())
64480 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.cptsvx to C/Fortran array" );
64481 } else {
64482 x = (complex_float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
64483
64484 /* Processing variable ferr */
64485 ferr_Dims[0]=nrhs;
64486 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
64487 capi_ferr_tmp = array_from_pyobj(NPY_FLOAT,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
64488 if (capi_ferr_tmp == NULL((void*)0)) {
64489 if (!PyErr_Occurred())
64490 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.cptsvx to C/Fortran array" );
64491 } else {
64492 ferr = (float *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
64493
64494 /* Processing variable berr */
64495 berr_Dims[0]=nrhs;
64496 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
64497 capi_berr_tmp = array_from_pyobj(NPY_FLOAT,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
64498 if (capi_berr_tmp == NULL((void*)0)) {
64499 if (!PyErr_Occurred())
64500 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.cptsvx to C/Fortran array" );
64501 } else {
64502 berr = (float *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
64503
64504/*end of frompyobj*/
64505#ifdef F2PY_REPORT_ATEXIT
64506f2py_start_call_clock();
64507#endif
64508/*callfortranroutine*/
64509 (*f2py_func)(fact, &n, &nrhs, d, e, df, ef, b, &ldb, x, &ldx, &rcond, ferr, berr, work, rwork, &info) ;
64510 /*(*f2py_func)(fact,&n,&nrhs,d,e,df,ef,b,&ldb,x,&ldx,&rcond,ferr,berr,work,rwork,&info,slen(fact));*/
64511if (PyErr_Occurred())
64512 f2py_success = 0;
64513#ifdef F2PY_REPORT_ATEXIT
64514f2py_stop_call_clock();
64515#endif
64516/*end of callfortranroutine*/
64517 if (f2py_success) {
64518/*pyobjfrom*/
64519/*end of pyobjfrom*/
64520 CFUNCSMESS("Building return value.\n");
64521 capi_buildvalue = Py_BuildValue("NNNfNNi",capi_df_tmp,capi_ef_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
64522/*closepyobjfrom*/
64523/*end of closepyobjfrom*/
64524 } /*if (f2py_success) after callfortranroutine*/
64525/*cleanupfrompyobj*/
64526 } /*if (capi_berr_tmp == NULL) ... else of berr*/
64527 /* End of cleaning variable berr */
64528 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
64529 /* End of cleaning variable ferr */
64530 } /*if (capi_x_tmp == NULL) ... else of x*/
64531 /* End of cleaning variable x */
64532 /* End of cleaning variable nrhs */
64533 STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0);
64534 } /*if (f2py_success) of fact*/
64535 /* End of cleaning variable fact */
64536 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
64537 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
64538 /* End of cleaning variable rwork */
64539 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
64540 } /*if (capi_work_tmp == NULL) ... else of work*/
64541 /* End of cleaning variable work */
64542 /* End of cleaning variable ldx */
64543 /* End of cleaning variable ldb */
64544 } /*CHECKARRAY(shape(b,0) >= n)*/
64545 if((PyObject *)capi_b_tmp!=b_capi) {
64546 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
64547 } /*if (capi_b_tmp == NULL) ... else of b*/
64548 /* End of cleaning variable b */
64549 } /*if (capi_ef_tmp == NULL) ... else of ef*/
64550 /* End of cleaning variable ef */
64551 } /*if (capi_df_tmp == NULL) ... else of df*/
64552 /* End of cleaning variable df */
64553 if((PyObject *)capi_e_tmp!=e_capi) {
64554 Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); }
64555 } /*if (capi_e_tmp == NULL) ... else of e*/
64556 /* End of cleaning variable e */
64557 /* End of cleaning variable n */
64558 /* End of cleaning variable info */
64559 /* End of cleaning variable rcond */
64560 if((PyObject *)capi_d_tmp!=d_capi) {
64561 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
64562 } /*if (capi_d_tmp == NULL) ... else of d*/
64563 /* End of cleaning variable d */
64564/*end of cleanupfrompyobj*/
64565 if (capi_buildvalue == NULL((void*)0)) {
64566/*routdebugfailure*/
64567 } else {
64568/*routdebugleave*/
64569 }
64570 CFUNCSMESS("Freeing memory.\n");
64571/*freemem*/
64572#ifdef F2PY_REPORT_ATEXIT
64573f2py_stop_clock();
64574#endif
64575 return capi_buildvalue;
64576}
64577/******************************* end of cptsvx *******************************/
64578
64579/*********************************** zptsvx ***********************************/
64580static char doc_f2py_rout__flapack_zptsvx[] = "\
64581df,ef,x,rcond,ferr,berr,info = zptsvx(d,e,b,[fact,df,ef])\n\nWrapper for ``zptsvx``.\
64582\n\nParameters\n----------\n"
64583"d : input rank-1 array('d') with bounds (n)\n"
64584"e : input rank-1 array('D') with bounds (max(0, n-1))\n"
64585"b : input rank-2 array('D') with bounds (ldb,nrhs)\n"
64586"\nOther Parameters\n----------------\n"
64587"fact : input string(len=1), optional\n Default: 'N'\n"
64588"df : input rank-1 array('d') with bounds (n)\n"
64589"ef : input rank-1 array('D') with bounds (max(0, n-1))\n"
64590"\nReturns\n-------\n"
64591"df : rank-1 array('d') with bounds (n)\n"
64592"ef : rank-1 array('D') with bounds (max(0, n-1))\n"
64593"x : rank-2 array('D') with bounds (ldx,nrhs)\n"
64594"rcond : float\n"
64595"ferr : rank-1 array('d') with bounds (nrhs)\n"
64596"berr : rank-1 array('d') with bounds (nrhs)\n"
64597"info : int";
64598/* extern void F_FUNC(zptsvx,ZPTSVX)(char*, F_INT*, F_INT*, double*, complex_double*, double*, complex_double*, complex_double*, F_INT*, complex_double*, F_INT*, double*, double*, double*, complex_double*, double*, F_INT* ); */
64599static PyObject *f2py_rout__flapack_zptsvx(const PyObject *capi_self,
64600 PyObject *capi_args,
64601 PyObject *capi_keywds,
64602 void (*f2py_func)(char*, F_INTint*, F_INTint*, double*, complex_double*, double*, complex_double*, complex_double*, F_INTint*, complex_double*, F_INTint*, double*, double*, double*, complex_double*, double*, F_INTint* )) {
64603 PyObject * volatile capi_buildvalue = NULL((void*)0);
64604 volatile int f2py_success = 1;
64605/*decl*/
64606
64607 string fact = NULL((void*)0);
64608 int slen(fact)capi_fact_len;
64609 PyObject *fact_capi = Py_None(&_Py_NoneStruct);
64610 int n = 0;
64611 int nrhs = 0;
64612 double *d = NULL((void*)0);
64613 npy_intp d_Dims[1] = {-1};
64614 const int d_Rank = 1;
64615 PyArrayObject *capi_d_tmp = NULL((void*)0);
64616 int capi_d_intent = 0;
64617 PyObject *d_capi = Py_None(&_Py_NoneStruct);
64618 complex_double *e = NULL((void*)0);
64619 npy_intp e_Dims[1] = {-1};
64620 const int e_Rank = 1;
64621 PyArrayObject *capi_e_tmp = NULL((void*)0);
64622 int capi_e_intent = 0;
64623 PyObject *e_capi = Py_None(&_Py_NoneStruct);
64624 double *df = NULL((void*)0);
64625 npy_intp df_Dims[1] = {-1};
64626 const int df_Rank = 1;
64627 PyArrayObject *capi_df_tmp = NULL((void*)0);
64628 int capi_df_intent = 0;
64629 PyObject *df_capi = Py_None(&_Py_NoneStruct);
64630 complex_double *ef = NULL((void*)0);
64631 npy_intp ef_Dims[1] = {-1};
64632 const int ef_Rank = 1;
64633 PyArrayObject *capi_ef_tmp = NULL((void*)0);
64634 int capi_ef_intent = 0;
64635 PyObject *ef_capi = Py_None(&_Py_NoneStruct);
64636 complex_double *b = NULL((void*)0);
64637 npy_intp b_Dims[2] = {-1, -1};
64638 const int b_Rank = 2;
64639 PyArrayObject *capi_b_tmp = NULL((void*)0);
64640 int capi_b_intent = 0;
64641 PyObject *b_capi = Py_None(&_Py_NoneStruct);
64642 int ldb = 0;
64643 complex_double *x = NULL((void*)0);
64644 npy_intp x_Dims[2] = {-1, -1};
64645 const int x_Rank = 2;
64646 PyArrayObject *capi_x_tmp = NULL((void*)0);
64647 int capi_x_intent = 0;
64648 int ldx = 0;
64649 double rcond = 0;
64650 double *ferr = NULL((void*)0);
64651 npy_intp ferr_Dims[1] = {-1};
64652 const int ferr_Rank = 1;
64653 PyArrayObject *capi_ferr_tmp = NULL((void*)0);
64654 int capi_ferr_intent = 0;
64655 double *berr = NULL((void*)0);
64656 npy_intp berr_Dims[1] = {-1};
64657 const int berr_Rank = 1;
64658 PyArrayObject *capi_berr_tmp = NULL((void*)0);
64659 int capi_berr_intent = 0;
64660 complex_double *work = NULL((void*)0);
64661 npy_intp work_Dims[1] = {-1};
64662 const int work_Rank = 1;
64663 PyArrayObject *capi_work_tmp = NULL((void*)0);
64664 int capi_work_intent = 0;
64665 double *rwork = NULL((void*)0);
64666 npy_intp rwork_Dims[1] = {-1};
64667 const int rwork_Rank = 1;
64668 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
64669 int capi_rwork_intent = 0;
64670 int info = 0;
64671 static char *capi_kwlist[] = {"d","e","b","fact","df","ef",NULL((void*)0)};
64672
64673/*routdebugenter*/
64674#ifdef F2PY_REPORT_ATEXIT
64675f2py_start_clock();
64676#endif
64677 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
64678 "OOO|OOO:_flapack.zptsvx",\
64679 capi_kwlist,&d_capi,&e_capi,&b_capi,&fact_capi,&df_capi,&ef_capi))
64680 return NULL((void*)0);
64681/*frompyobj*/
64682 /* Processing variable d */
64683 ;
64684 capi_d_intent |= F2PY_INTENT_IN1;
64685 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
64686 if (capi_d_tmp == NULL((void*)0)) {
64687 if (!PyErr_Occurred())
64688 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.zptsvx to C/Fortran array" );
64689 } else {
64690 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
64691
64692 /* Processing variable rcond */
64693 /* Processing variable info */
64694 /* Processing variable n */
64695 n = len(d)d_Dims[0];
64696 /* Processing variable e */
64697 e_Dims[0]=max(0, n-1)((0 > n-1) ? (0) : (n-1));
64698 capi_e_intent |= F2PY_INTENT_IN1;
64699 capi_e_tmp = array_from_pyobj(NPY_CDOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi);
64700 if (capi_e_tmp == NULL((void*)0)) {
64701 if (!PyErr_Occurred())
64702 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.zptsvx to C/Fortran array" );
64703 } else {
64704 e = (complex_double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
64705
64706 /* Processing variable df */
64707 df_Dims[0]=n;
64708 capi_df_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
64709 capi_df_tmp = array_from_pyobj(NPY_DOUBLE,df_Dims,df_Rank,capi_df_intent,df_capi);
64710 if (capi_df_tmp == NULL((void*)0)) {
64711 if (!PyErr_Occurred())
64712 PyErr_SetString(_flapack_error,"failed in converting 2nd keyword `df' of _flapack.zptsvx to C/Fortran array" );
64713 } else {
64714 df = (double *)(PyArray_DATA(capi_df_tmp)((void *)((PyArrayObject_fields *)(capi_df_tmp))->data));
64715
64716 /* Processing variable ef */
64717 ef_Dims[0]=max(0, n-1)((0 > n-1) ? (0) : (n-1));
64718 capi_ef_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_OPTIONAL128;
64719 capi_ef_tmp = array_from_pyobj(NPY_CDOUBLE,ef_Dims,ef_Rank,capi_ef_intent,ef_capi);
64720 if (capi_ef_tmp == NULL((void*)0)) {
64721 if (!PyErr_Occurred())
64722 PyErr_SetString(_flapack_error,"failed in converting 3rd keyword `ef' of _flapack.zptsvx to C/Fortran array" );
64723 } else {
64724 ef = (complex_double *)(PyArray_DATA(capi_ef_tmp)((void *)((PyArrayObject_fields *)(capi_ef_tmp))->data));
64725
64726 /* Processing variable b */
64727 ;
64728 capi_b_intent |= F2PY_INTENT_IN1;
64729 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
64730 if (capi_b_tmp == NULL((void*)0)) {
64731 if (!PyErr_Occurred())
64732 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.zptsvx to C/Fortran array" );
64733 } else {
64734 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
64735
64736 CHECKARRAY(shape(b,0) >= n,"shape(b,0) >= n","3rd argument b")if (!(b_Dims[0] >= n)) { PyErr_SetString(_flapack_error,"("
"shape(b,0) >= n"") failed for ""3rd argument b"); } else
{
64737 /* Processing variable ldb */
64738 ldb = max(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
64739 /* Processing variable ldx */
64740 ldx = n;
64741 /* Processing variable work */
64742 work_Dims[0]=n;
64743 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
64744 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
64745 if (capi_work_tmp == NULL((void*)0)) {
64746 if (!PyErr_Occurred())
64747 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zptsvx to C/Fortran array" );
64748 } else {
64749 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
64750
64751 /* Processing variable rwork */
64752 rwork_Dims[0]=n;
64753 capi_rwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
64754 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
64755 if (capi_rwork_tmp == NULL((void*)0)) {
64756 if (!PyErr_Occurred())
64757 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zptsvx to C/Fortran array" );
64758 } else {
64759 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
64760
64761 /* Processing variable fact */
64762 slen(fact)capi_fact_len = 1;
64763 f2py_success = string_from_pyobj(&fact,&slen(fact)capi_fact_len,"N",fact_capi,"string_from_pyobj failed in converting 1st keyword `fact' of _flapack.zptsvx to C string");
64764 if (f2py_success) {
64765 /* Processing variable nrhs */
64766 nrhs = shape(b, 1)b_Dims[1];
64767 /* Processing variable x */
64768 x_Dims[0]=ldx,x_Dims[1]=nrhs;
64769 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
64770 capi_x_tmp = array_from_pyobj(NPY_CDOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
64771 if (capi_x_tmp == NULL((void*)0)) {
64772 if (!PyErr_Occurred())
64773 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.zptsvx to C/Fortran array" );
64774 } else {
64775 x = (complex_double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
64776
64777 /* Processing variable ferr */
64778 ferr_Dims[0]=nrhs;
64779 capi_ferr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
64780 capi_ferr_tmp = array_from_pyobj(NPY_DOUBLE,ferr_Dims,ferr_Rank,capi_ferr_intent,Py_None(&_Py_NoneStruct));
64781 if (capi_ferr_tmp == NULL((void*)0)) {
64782 if (!PyErr_Occurred())
64783 PyErr_SetString(_flapack_error,"failed in converting hidden `ferr' of _flapack.zptsvx to C/Fortran array" );
64784 } else {
64785 ferr = (double *)(PyArray_DATA(capi_ferr_tmp)((void *)((PyArrayObject_fields *)(capi_ferr_tmp))->data));
64786
64787 /* Processing variable berr */
64788 berr_Dims[0]=nrhs;
64789 capi_berr_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
64790 capi_berr_tmp = array_from_pyobj(NPY_DOUBLE,berr_Dims,berr_Rank,capi_berr_intent,Py_None(&_Py_NoneStruct));
64791 if (capi_berr_tmp == NULL((void*)0)) {
64792 if (!PyErr_Occurred())
64793 PyErr_SetString(_flapack_error,"failed in converting hidden `berr' of _flapack.zptsvx to C/Fortran array" );
64794 } else {
64795 berr = (double *)(PyArray_DATA(capi_berr_tmp)((void *)((PyArrayObject_fields *)(capi_berr_tmp))->data));
64796
64797/*end of frompyobj*/
64798#ifdef F2PY_REPORT_ATEXIT
64799f2py_start_call_clock();
64800#endif
64801/*callfortranroutine*/
64802 (*f2py_func)(fact, &n, &nrhs, d, e, df, ef, b, &ldb, x, &ldx, &rcond, ferr, berr, work, rwork, &info) ;
64803 /*(*f2py_func)(fact,&n,&nrhs,d,e,df,ef,b,&ldb,x,&ldx,&rcond,ferr,berr,work,rwork,&info,slen(fact));*/
64804if (PyErr_Occurred())
64805 f2py_success = 0;
64806#ifdef F2PY_REPORT_ATEXIT
64807f2py_stop_call_clock();
64808#endif
64809/*end of callfortranroutine*/
64810 if (f2py_success) {
64811/*pyobjfrom*/
64812/*end of pyobjfrom*/
64813 CFUNCSMESS("Building return value.\n");
64814 capi_buildvalue = Py_BuildValue("NNNdNNi",capi_df_tmp,capi_ef_tmp,capi_x_tmp,rcond,capi_ferr_tmp,capi_berr_tmp,info);
64815/*closepyobjfrom*/
64816/*end of closepyobjfrom*/
64817 } /*if (f2py_success) after callfortranroutine*/
64818/*cleanupfrompyobj*/
64819 } /*if (capi_berr_tmp == NULL) ... else of berr*/
64820 /* End of cleaning variable berr */
64821 } /*if (capi_ferr_tmp == NULL) ... else of ferr*/
64822 /* End of cleaning variable ferr */
64823 } /*if (capi_x_tmp == NULL) ... else of x*/
64824 /* End of cleaning variable x */
64825 /* End of cleaning variable nrhs */
64826 STRINGFREE(fact)do {if (!(fact == ((void*)0))) free(fact);} while (0);
64827 } /*if (f2py_success) of fact*/
64828 /* End of cleaning variable fact */
64829 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
64830 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
64831 /* End of cleaning variable rwork */
64832 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
64833 } /*if (capi_work_tmp == NULL) ... else of work*/
64834 /* End of cleaning variable work */
64835 /* End of cleaning variable ldx */
64836 /* End of cleaning variable ldb */
64837 } /*CHECKARRAY(shape(b,0) >= n)*/
64838 if((PyObject *)capi_b_tmp!=b_capi) {
64839 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
64840 } /*if (capi_b_tmp == NULL) ... else of b*/
64841 /* End of cleaning variable b */
64842 } /*if (capi_ef_tmp == NULL) ... else of ef*/
64843 /* End of cleaning variable ef */
64844 } /*if (capi_df_tmp == NULL) ... else of df*/
64845 /* End of cleaning variable df */
64846 if((PyObject *)capi_e_tmp!=e_capi) {
64847 Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); }
64848 } /*if (capi_e_tmp == NULL) ... else of e*/
64849 /* End of cleaning variable e */
64850 /* End of cleaning variable n */
64851 /* End of cleaning variable info */
64852 /* End of cleaning variable rcond */
64853 if((PyObject *)capi_d_tmp!=d_capi) {
64854 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
64855 } /*if (capi_d_tmp == NULL) ... else of d*/
64856 /* End of cleaning variable d */
64857/*end of cleanupfrompyobj*/
64858 if (capi_buildvalue == NULL((void*)0)) {
64859/*routdebugfailure*/
64860 } else {
64861/*routdebugleave*/
64862 }
64863 CFUNCSMESS("Freeing memory.\n");
64864/*freemem*/
64865#ifdef F2PY_REPORT_ATEXIT
64866f2py_stop_clock();
64867#endif
64868 return capi_buildvalue;
64869}
64870/******************************* end of zptsvx *******************************/
64871
64872/*********************************** sgejsv ***********************************/
64873static char doc_f2py_rout__flapack_sgejsv[] = "\
64874sva,u,v,workout,iworkout,info = sgejsv(a,[joba,jobu,jobv,jobr,jobt,jobp,lwork,overwrite_a])\n\nWrapper for ``sgejsv``.\
64875\n\nParameters\n----------\n"
64876"a : input rank-2 array('f') with bounds (lda,n)\n"
64877"\nOther Parameters\n----------------\n"
64878"joba : input int, optional\n Default: 4\n"
64879"jobu : input int, optional\n Default: 0\n"
64880"jobv : input int, optional\n Default: 0\n"
64881"jobr : input int, optional\n Default: 1\n"
64882"jobt : input int, optional\n Default: 0\n"
64883"jobp : input int, optional\n Default: 1\n"
64884"overwrite_a : input int, optional\n Default: 0\n"
64885"lwork : input int, optional\n Default: max(6*n+2*n*n, max(2*m+n, max(4*n+n*n, max(2*n+n*n+6, 7))))\n"
64886"\nReturns\n-------\n"
64887"sva : rank-1 array('f') with bounds (n)\n"
64888"u : rank-2 array('f') with bounds (((jobt == 0)&&(jobu == 3)?0:m),((jobt == 0)&&(jobu == 3)?0:(jobu == 1?m:n)))\n"
64889"v : rank-2 array('f') with bounds (((jobt == 0)&&(jobv == 3)?0:ldv),((jobt == 0)&&(jobv == 3)?0:n))\n"
64890"workout : rank-1 array('f') with bounds (7)\n"
64891"iworkout : rank-1 array('i') with bounds (3)\n"
64892"info : int";
64893/* extern void F_FUNC(sgejsv,SGEJSV)(char*,char*,char*,char*,char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */
64894static PyObject *f2py_rout__flapack_sgejsv(const PyObject *capi_self,
64895 PyObject *capi_args,
64896 PyObject *capi_keywds,
64897 void (*f2py_func)(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) {
64898 PyObject * volatile capi_buildvalue = NULL((void*)0);
64899 volatile int f2py_success = 1;
64900/*decl*/
64901
64902 int joba = 0;
64903 PyObject *joba_capi = Py_None(&_Py_NoneStruct);
64904 int jobu = 0;
64905 PyObject *jobu_capi = Py_None(&_Py_NoneStruct);
64906 int jobv = 0;
64907 PyObject *jobv_capi = Py_None(&_Py_NoneStruct);
64908 int jobr = 0;
64909 PyObject *jobr_capi = Py_None(&_Py_NoneStruct);
64910 int jobt = 0;
64911 PyObject *jobt_capi = Py_None(&_Py_NoneStruct);
64912 int jobp = 0;
64913 PyObject *jobp_capi = Py_None(&_Py_NoneStruct);
64914 int m = 0;
64915 int n = 0;
64916 float *a = NULL((void*)0);
64917 npy_intp a_Dims[2] = {-1, -1};
64918 const int a_Rank = 2;
64919 PyArrayObject *capi_a_tmp = NULL((void*)0);
64920 int capi_a_intent = 0;
64921 int capi_overwrite_a = 0;
64922 PyObject *a_capi = Py_None(&_Py_NoneStruct);
64923 int lda = 0;
64924 float *sva = NULL((void*)0);
64925 npy_intp sva_Dims[1] = {-1};
64926 const int sva_Rank = 1;
64927 PyArrayObject *capi_sva_tmp = NULL((void*)0);
64928 int capi_sva_intent = 0;
64929 float *u = NULL((void*)0);
64930 npy_intp u_Dims[2] = {-1, -1};
64931 const int u_Rank = 2;
64932 PyArrayObject *capi_u_tmp = NULL((void*)0);
64933 int capi_u_intent = 0;
64934 int ldu = 0;
64935 float *v = NULL((void*)0);
64936 npy_intp v_Dims[2] = {-1, -1};
64937 const int v_Rank = 2;
64938 PyArrayObject *capi_v_tmp = NULL((void*)0);
64939 int capi_v_intent = 0;
64940 int ldv = 0;
64941 float *work = NULL((void*)0);
64942 npy_intp work_Dims[1] = {-1};
64943 const int work_Rank = 1;
64944 PyArrayObject *capi_work_tmp = NULL((void*)0);
64945 int capi_work_intent = 0;
64946 float *workout = NULL((void*)0);
64947 npy_intp workout_Dims[1] = {-1};
64948 const int workout_Rank = 1;
64949 PyArrayObject *capi_workout_tmp = NULL((void*)0);
64950 int capi_workout_intent = 0;
64951 int lwork = 0;
64952 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
64953 int *iwork = NULL((void*)0);
64954 npy_intp iwork_Dims[1] = {-1};
64955 const int iwork_Rank = 1;
64956 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
64957 int capi_iwork_intent = 0;
64958 int *iworkout = NULL((void*)0);
64959 npy_intp iworkout_Dims[1] = {-1};
64960 const int iworkout_Rank = 1;
64961 PyArrayObject *capi_iworkout_tmp = NULL((void*)0);
64962 int capi_iworkout_intent = 0;
64963 int info = 0;
64964 static char *capi_kwlist[] = {"a","joba","jobu","jobv","jobr","jobt","jobp","lwork","overwrite_a",NULL((void*)0)};
64965
64966/*routdebugenter*/
64967#ifdef F2PY_REPORT_ATEXIT
64968f2py_start_clock();
64969#endif
64970 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
64971 "O|OOOOOOOi:_flapack.sgejsv",\
64972 capi_kwlist,&a_capi,&joba_capi,&jobu_capi,&jobv_capi,&jobr_capi,&jobt_capi,&jobp_capi,&lwork_capi,&capi_overwrite_a))
64973 return NULL((void*)0);
64974/*frompyobj*/
64975 /* Processing variable joba */
64976 if (joba_capi == Py_None(&_Py_NoneStruct)) joba = 4; else
64977 f2py_success = int_from_pyobj(&joba,joba_capi,"_flapack.sgejsv() 1st keyword (joba) can't be converted to int");
64978 if (f2py_success) {
64979 CHECKSCALAR((0 <= joba) && (joba < 6),"(0 <= joba) && (joba < 6)","1st keyword joba","sgejsv:joba=%d",joba)if (!((0 <= joba) && (joba < 6))) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""sgejsv:joba=%d", "(""(0 <= joba) && (joba < 6)"
") failed for ""1st keyword joba", joba); PyErr_SetString(_flapack_error
,errstring); } else
{
64980 /* Processing variable jobu */
64981 if (jobu_capi == Py_None(&_Py_NoneStruct)) jobu = 0; else
64982 f2py_success = int_from_pyobj(&jobu,jobu_capi,"_flapack.sgejsv() 2nd keyword (jobu) can't be converted to int");
64983 if (f2py_success) {
64984 CHECKSCALAR((0 <= jobu) && (jobu < 4),"(0 <= jobu) && (jobu < 4)","2nd keyword jobu","sgejsv:jobu=%d",jobu)if (!((0 <= jobu) && (jobu < 4))) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""sgejsv:jobu=%d", "(""(0 <= jobu) && (jobu < 4)"
") failed for ""2nd keyword jobu", jobu); PyErr_SetString(_flapack_error
,errstring); } else
{
64985 /* Processing variable jobr */
64986 if (jobr_capi == Py_None(&_Py_NoneStruct)) jobr = 1; else
64987 f2py_success = int_from_pyobj(&jobr,jobr_capi,"_flapack.sgejsv() 4th keyword (jobr) can't be converted to int");
64988 if (f2py_success) {
64989 CHECKSCALAR((jobr == 0) || (jobr == 1),"(jobr == 0) || (jobr == 1)","4th keyword jobr","sgejsv:jobr=%d",jobr)if (!((jobr == 0) || (jobr == 1))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgejsv:jobr=%d", "(""(jobr == 0) || (jobr == 1)"") failed for "
"4th keyword jobr", jobr); PyErr_SetString(_flapack_error,errstring
); } else
{
64990 /* Processing variable jobt */
64991 if (jobt_capi == Py_None(&_Py_NoneStruct)) jobt = 0; else
64992 f2py_success = int_from_pyobj(&jobt,jobt_capi,"_flapack.sgejsv() 5th keyword (jobt) can't be converted to int");
64993 if (f2py_success) {
64994 CHECKSCALAR((jobt == 0) || (jobt == 1),"(jobt == 0) || (jobt == 1)","5th keyword jobt","sgejsv:jobt=%d",jobt)if (!((jobt == 0) || (jobt == 1))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgejsv:jobt=%d", "(""(jobt == 0) || (jobt == 1)"") failed for "
"5th keyword jobt", jobt); PyErr_SetString(_flapack_error,errstring
); } else
{
64995 /* Processing variable jobp */
64996 if (jobp_capi == Py_None(&_Py_NoneStruct)) jobp = 1; else
64997 f2py_success = int_from_pyobj(&jobp,jobp_capi,"_flapack.sgejsv() 6th keyword (jobp) can't be converted to int");
64998 if (f2py_success) {
64999 CHECKSCALAR((jobp == 0) || (jobp == 1),"(jobp == 0) || (jobp == 1)","6th keyword jobp","sgejsv:jobp=%d",jobp)if (!((jobp == 0) || (jobp == 1))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgejsv:jobp=%d", "(""(jobp == 0) || (jobp == 1)"") failed for "
"6th keyword jobp", jobp); PyErr_SetString(_flapack_error,errstring
); } else
{
65000 /* Processing variable a */
65001 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
65002 ;
65003 capi_a_intent |= F2PY_INTENT_IN1;
65004 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
65005 if (capi_a_tmp == NULL((void*)0)) {
65006 if (!PyErr_Occurred())
65007 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgejsv to C/Fortran array" );
65008 } else {
65009 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
65010
65011 /* Processing variable workout */
65012 workout_Dims[0]=7;
65013 capi_workout_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
65014 capi_workout_tmp = array_from_pyobj(NPY_FLOAT,workout_Dims,workout_Rank,capi_workout_intent,Py_None(&_Py_NoneStruct));
65015 if (capi_workout_tmp == NULL((void*)0)) {
65016 if (!PyErr_Occurred())
65017 PyErr_SetString(_flapack_error,"failed in converting hidden `workout' of _flapack.sgejsv to C/Fortran array" );
65018 } else {
65019 workout = (float *)(PyArray_DATA(capi_workout_tmp)((void *)((PyArrayObject_fields *)(capi_workout_tmp))->data
)
);
65020
65021 /* Processing variable iworkout */
65022 iworkout_Dims[0]=3;
65023 capi_iworkout_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
65024 capi_iworkout_tmp = array_from_pyobj(NPY_INT,iworkout_Dims,iworkout_Rank,capi_iworkout_intent,Py_None(&_Py_NoneStruct));
65025 if (capi_iworkout_tmp == NULL((void*)0)) {
65026 if (!PyErr_Occurred())
65027 PyErr_SetString(_flapack_error,"failed in converting hidden `iworkout' of _flapack.sgejsv to C/Fortran array" );
65028 } else {
65029 iworkout = (int *)(PyArray_DATA(capi_iworkout_tmp)((void *)((PyArrayObject_fields *)(capi_iworkout_tmp))->data
)
);
65030
65031 /* Processing variable info */
65032 /* Processing variable jobv */
65033 if (jobv_capi == Py_None(&_Py_NoneStruct)) jobv = 0; else
65034 f2py_success = int_from_pyobj(&jobv,jobv_capi,"_flapack.sgejsv() 3rd keyword (jobv) can't be converted to int");
65035 if (f2py_success) {
65036 CHECKSCALAR((0 <= jobv) && (jobv < 4) && ((jobv < 1) || (1 < jobv) || ((jobv == 1) && (jobu < 2))),"(0 <= jobv) && (jobv < 4) && ((jobv < 1) || (1 < jobv) || ((jobv == 1) && (jobu < 2)))","3rd keyword jobv","sgejsv:jobv=%d",jobv)if (!((0 <= jobv) && (jobv < 4) && ((jobv
< 1) || (1 < jobv) || ((jobv == 1) && (jobu <
2))))) { char errstring[256]; __builtin___sprintf_chk (errstring
, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""sgejsv:jobv=%d"
, "(""(0 <= jobv) && (jobv < 4) && ((jobv < 1) || (1 < jobv) || ((jobv == 1) && (jobu < 2)))"
") failed for ""3rd keyword jobv", jobv); PyErr_SetString(_flapack_error
,errstring); } else
{
65037 /* Processing variable n */
65038 n = shape(a, 1)a_Dims[1];
65039 /* Processing variable lda */
65040 lda = max(1, shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
65041 /* Processing variable sva */
65042 sva_Dims[0]=n;
65043 capi_sva_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
65044 capi_sva_tmp = array_from_pyobj(NPY_FLOAT,sva_Dims,sva_Rank,capi_sva_intent,Py_None(&_Py_NoneStruct));
65045 if (capi_sva_tmp == NULL((void*)0)) {
65046 if (!PyErr_Occurred())
65047 PyErr_SetString(_flapack_error,"failed in converting hidden `sva' of _flapack.sgejsv to C/Fortran array" );
65048 } else {
65049 sva = (float *)(PyArray_DATA(capi_sva_tmp)((void *)((PyArrayObject_fields *)(capi_sva_tmp))->data));
65050
65051 /* Processing variable ldv */
65052 ldv = max(1,(jobv < 3?n:1))((1 > (jobv < 3?n:1)) ? (1) : ((jobv < 3?n:1)));
65053 /* Processing variable m */
65054 m = shape(a, 0)a_Dims[0];
65055 CHECKSCALAR(m>=n,"m>=n","hidden m","sgejsv:m=%d",m)if (!(m>=n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgejsv:m=%d", "(""m>=n"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
65056 /* Processing variable ldu */
65057 ldu = max(1,(jobu < 3?m:1))((1 > (jobu < 3?m:1)) ? (1) : ((jobu < 3?m:1)));
65058 /* Processing variable v */
65059 v_Dims[0]=((jobt == 0)&&(jobv == 3)?0:ldv),v_Dims[1]=((jobt == 0)&&(jobv == 3)?0:n);
65060 capi_v_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
65061 capi_v_tmp = array_from_pyobj(NPY_FLOAT,v_Dims,v_Rank,capi_v_intent,Py_None(&_Py_NoneStruct));
65062 if (capi_v_tmp == NULL((void*)0)) {
65063 if (!PyErr_Occurred())
65064 PyErr_SetString(_flapack_error,"failed in converting hidden `v' of _flapack.sgejsv to C/Fortran array" );
65065 } else {
65066 v = (float *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data));
65067
65068 /* Processing variable lwork */
65069 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(6*n+2*n*n, max(2*m+n, max(4*n+n*n, max(2*n+n*n+6, 7))))((6*n+2*n*n > ((2*m+n > ((4*n+n*n > ((2*n+n*n+6 >
7) ? (2*n+n*n+6) : (7))) ? (4*n+n*n) : (((2*n+n*n+6 > 7) ?
(2*n+n*n+6) : (7))))) ? (2*m+n) : (((4*n+n*n > ((2*n+n*n+
6 > 7) ? (2*n+n*n+6) : (7))) ? (4*n+n*n) : (((2*n+n*n+6 >
7) ? (2*n+n*n+6) : (7))))))) ? (6*n+2*n*n) : (((2*m+n > (
(4*n+n*n > ((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7))) ? (4*
n+n*n) : (((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7))))) ? (2*m+
n) : (((4*n+n*n > ((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7))
) ? (4*n+n*n) : (((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7))))))
))
; else
65070 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgejsv() 7th keyword (lwork) can't be converted to int");
65071 if (f2py_success) {
65072 CHECKSCALAR(lwork>=7,"lwork>=7","7th keyword lwork","sgejsv:lwork=%d",lwork)if (!(lwork>=7)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgejsv:lwork=%d", "(""lwork>=7"") failed for ""7th keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
65073 /* Processing variable iwork */
65074 iwork_Dims[0]=MAX(3, m+3*n)((3 > m+3*n) ? (3) : (m+3*n));
65075 capi_iwork_intent |= F2PY_INTENT_HIDE8;
65076 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
65077 if (capi_iwork_tmp == NULL((void*)0)) {
65078 if (!PyErr_Occurred())
65079 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.sgejsv to C/Fortran array" );
65080 } else {
65081 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
65082
65083 /* Processing variable u */
65084 u_Dims[0]=((jobt == 0)&&(jobu == 3)?0:m),u_Dims[1]=((jobt == 0)&&(jobu == 3)?0:(jobu == 1?m:n));
65085 capi_u_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
65086 capi_u_tmp = array_from_pyobj(NPY_FLOAT,u_Dims,u_Rank,capi_u_intent,Py_None(&_Py_NoneStruct));
65087 if (capi_u_tmp == NULL((void*)0)) {
65088 if (!PyErr_Occurred())
65089 PyErr_SetString(_flapack_error,"failed in converting hidden `u' of _flapack.sgejsv to C/Fortran array" );
65090 } else {
65091 u = (float *)(PyArray_DATA(capi_u_tmp)((void *)((PyArrayObject_fields *)(capi_u_tmp))->data));
65092
65093 /* Processing variable work */
65094 work_Dims[0]=lwork;
65095 capi_work_intent |= F2PY_INTENT_HIDE8;
65096 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
65097 if (capi_work_tmp == NULL((void*)0)) {
65098 if (!PyErr_Occurred())
65099 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgejsv to C/Fortran array" );
65100 } else {
65101 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
65102
65103/*end of frompyobj*/
65104#ifdef F2PY_REPORT_ATEXIT
65105f2py_start_call_clock();
65106#endif
65107/*callfortranroutine*/
65108 {F_INTint i;(*f2py_func)(&"CEFGAR"[joba],&"UFWN"[jobu],&"VJWN"[jobv],(jobr?"R":"N"),(jobt?"T":"N"),(jobp?"P":"N"),&m,&n,a,&lda,sva,u,&ldu,v,&ldv,work,&lwork,iwork,&info);for(i=0;i<7;i++){workout[i] = work[i];}for(i=0;i<3;i++){iworkout[i] = iwork[i];}} ;
65109 /*(*f2py_func)(&joba,&jobu,&jobv,&jobr,&jobt,&jobp,&m,&n,a,&lda,sva,u,&ldu,v,&ldv,work,workout,&lwork,iwork,iworkout,&info);*/
65110if (PyErr_Occurred())
65111 f2py_success = 0;
65112#ifdef F2PY_REPORT_ATEXIT
65113f2py_stop_call_clock();
65114#endif
65115/*end of callfortranroutine*/
65116 if (f2py_success) {
65117/*pyobjfrom*/
65118/*end of pyobjfrom*/
65119 CFUNCSMESS("Building return value.\n");
65120 capi_buildvalue = Py_BuildValue("NNNNNi",capi_sva_tmp,capi_u_tmp,capi_v_tmp,capi_workout_tmp,capi_iworkout_tmp,info);
65121/*closepyobjfrom*/
65122/*end of closepyobjfrom*/
65123 } /*if (f2py_success) after callfortranroutine*/
65124/*cleanupfrompyobj*/
65125 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
65126 } /*if (capi_work_tmp == NULL) ... else of work*/
65127 /* End of cleaning variable work */
65128 } /*if (capi_u_tmp == NULL) ... else of u*/
65129 /* End of cleaning variable u */
65130 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
65131 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
65132 /* End of cleaning variable iwork */
65133 } /*CHECKSCALAR(lwork>=7)*/
65134 } /*if (f2py_success) of lwork*/
65135 /* End of cleaning variable lwork */
65136 } /*if (capi_v_tmp == NULL) ... else of v*/
65137 /* End of cleaning variable v */
65138 /* End of cleaning variable ldu */
65139 } /*CHECKSCALAR(m>=n)*/
65140 /* End of cleaning variable m */
65141 /* End of cleaning variable ldv */
65142 } /*if (capi_sva_tmp == NULL) ... else of sva*/
65143 /* End of cleaning variable sva */
65144 /* End of cleaning variable lda */
65145 /* End of cleaning variable n */
65146 } /*CHECKSCALAR((0 <= jobv) && (jobv < 4) && ((jobv < 1) || (1 < jobv) || ((jobv == 1) && (jobu < 2))))*/
65147 } /*if (f2py_success) of jobv*/
65148 /* End of cleaning variable jobv */
65149 /* End of cleaning variable info */
65150 } /*if (capi_iworkout_tmp == NULL) ... else of iworkout*/
65151 /* End of cleaning variable iworkout */
65152 } /*if (capi_workout_tmp == NULL) ... else of workout*/
65153 /* End of cleaning variable workout */
65154 if((PyObject *)capi_a_tmp!=a_capi) {
65155 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
65156 } /*if (capi_a_tmp == NULL) ... else of a*/
65157 /* End of cleaning variable a */
65158 } /*CHECKSCALAR((jobp == 0) || (jobp == 1))*/
65159 } /*if (f2py_success) of jobp*/
65160 /* End of cleaning variable jobp */
65161 } /*CHECKSCALAR((jobt == 0) || (jobt == 1))*/
65162 } /*if (f2py_success) of jobt*/
65163 /* End of cleaning variable jobt */
65164 } /*CHECKSCALAR((jobr == 0) || (jobr == 1))*/
65165 } /*if (f2py_success) of jobr*/
65166 /* End of cleaning variable jobr */
65167 } /*CHECKSCALAR((0 <= jobu) && (jobu < 4))*/
65168 } /*if (f2py_success) of jobu*/
65169 /* End of cleaning variable jobu */
65170 } /*CHECKSCALAR((0 <= joba) && (joba < 6))*/
65171 } /*if (f2py_success) of joba*/
65172 /* End of cleaning variable joba */
65173/*end of cleanupfrompyobj*/
65174 if (capi_buildvalue == NULL((void*)0)) {
65175/*routdebugfailure*/
65176 } else {
65177/*routdebugleave*/
65178 }
65179 CFUNCSMESS("Freeing memory.\n");
65180/*freemem*/
65181#ifdef F2PY_REPORT_ATEXIT
65182f2py_stop_clock();
65183#endif
65184 return capi_buildvalue;
65185}
65186/******************************* end of sgejsv *******************************/
65187
65188/*********************************** dgejsv ***********************************/
65189static char doc_f2py_rout__flapack_dgejsv[] = "\
65190sva,u,v,workout,iworkout,info = dgejsv(a,[joba,jobu,jobv,jobr,jobt,jobp,lwork,overwrite_a])\n\nWrapper for ``dgejsv``.\
65191\n\nParameters\n----------\n"
65192"a : input rank-2 array('d') with bounds (lda,n)\n"
65193"\nOther Parameters\n----------------\n"
65194"joba : input int, optional\n Default: 4\n"
65195"jobu : input int, optional\n Default: 0\n"
65196"jobv : input int, optional\n Default: 0\n"
65197"jobr : input int, optional\n Default: 1\n"
65198"jobt : input int, optional\n Default: 0\n"
65199"jobp : input int, optional\n Default: 1\n"
65200"overwrite_a : input int, optional\n Default: 0\n"
65201"lwork : input int, optional\n Default: max(6*n+2*n*n, max(2*m+n, max(4*n+n*n, max(2*n+n*n+6, 7))))\n"
65202"\nReturns\n-------\n"
65203"sva : rank-1 array('d') with bounds (n)\n"
65204"u : rank-2 array('d') with bounds (((jobt == 0)&&(jobu == 3)?0:m),((jobt == 0)&&(jobu == 3)?0:(jobu == 1?m:n)))\n"
65205"v : rank-2 array('d') with bounds (((jobt == 0)&&(jobv == 3)?0:ldv),((jobt == 0)&&(jobv == 3)?0:n))\n"
65206"workout : rank-1 array('d') with bounds (7)\n"
65207"iworkout : rank-1 array('i') with bounds (3)\n"
65208"info : int";
65209/* extern void F_FUNC(dgejsv,DGEJSV)(char*,char*,char*,char*,char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */
65210static PyObject *f2py_rout__flapack_dgejsv(const PyObject *capi_self,
65211 PyObject *capi_args,
65212 PyObject *capi_keywds,
65213 void (*f2py_func)(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) {
65214 PyObject * volatile capi_buildvalue = NULL((void*)0);
65215 volatile int f2py_success = 1;
65216/*decl*/
65217
65218 int joba = 0;
65219 PyObject *joba_capi = Py_None(&_Py_NoneStruct);
65220 int jobu = 0;
65221 PyObject *jobu_capi = Py_None(&_Py_NoneStruct);
65222 int jobv = 0;
65223 PyObject *jobv_capi = Py_None(&_Py_NoneStruct);
65224 int jobr = 0;
65225 PyObject *jobr_capi = Py_None(&_Py_NoneStruct);
65226 int jobt = 0;
65227 PyObject *jobt_capi = Py_None(&_Py_NoneStruct);
65228 int jobp = 0;
65229 PyObject *jobp_capi = Py_None(&_Py_NoneStruct);
65230 int m = 0;
65231 int n = 0;
65232 double *a = NULL((void*)0);
65233 npy_intp a_Dims[2] = {-1, -1};
65234 const int a_Rank = 2;
65235 PyArrayObject *capi_a_tmp = NULL((void*)0);
65236 int capi_a_intent = 0;
65237 int capi_overwrite_a = 0;
65238 PyObject *a_capi = Py_None(&_Py_NoneStruct);
65239 int lda = 0;
65240 double *sva = NULL((void*)0);
65241 npy_intp sva_Dims[1] = {-1};
65242 const int sva_Rank = 1;
65243 PyArrayObject *capi_sva_tmp = NULL((void*)0);
65244 int capi_sva_intent = 0;
65245 double *u = NULL((void*)0);
65246 npy_intp u_Dims[2] = {-1, -1};
65247 const int u_Rank = 2;
65248 PyArrayObject *capi_u_tmp = NULL((void*)0);
65249 int capi_u_intent = 0;
65250 int ldu = 0;
65251 double *v = NULL((void*)0);
65252 npy_intp v_Dims[2] = {-1, -1};
65253 const int v_Rank = 2;
65254 PyArrayObject *capi_v_tmp = NULL((void*)0);
65255 int capi_v_intent = 0;
65256 int ldv = 0;
65257 double *work = NULL((void*)0);
65258 npy_intp work_Dims[1] = {-1};
65259 const int work_Rank = 1;
65260 PyArrayObject *capi_work_tmp = NULL((void*)0);
65261 int capi_work_intent = 0;
65262 double *workout = NULL((void*)0);
65263 npy_intp workout_Dims[1] = {-1};
65264 const int workout_Rank = 1;
65265 PyArrayObject *capi_workout_tmp = NULL((void*)0);
65266 int capi_workout_intent = 0;
65267 int lwork = 0;
65268 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
65269 int *iwork = NULL((void*)0);
65270 npy_intp iwork_Dims[1] = {-1};
65271 const int iwork_Rank = 1;
65272 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
65273 int capi_iwork_intent = 0;
65274 int *iworkout = NULL((void*)0);
65275 npy_intp iworkout_Dims[1] = {-1};
65276 const int iworkout_Rank = 1;
65277 PyArrayObject *capi_iworkout_tmp = NULL((void*)0);
65278 int capi_iworkout_intent = 0;
65279 int info = 0;
65280 static char *capi_kwlist[] = {"a","joba","jobu","jobv","jobr","jobt","jobp","lwork","overwrite_a",NULL((void*)0)};
65281
65282/*routdebugenter*/
65283#ifdef F2PY_REPORT_ATEXIT
65284f2py_start_clock();
65285#endif
65286 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
65287 "O|OOOOOOOi:_flapack.dgejsv",\
65288 capi_kwlist,&a_capi,&joba_capi,&jobu_capi,&jobv_capi,&jobr_capi,&jobt_capi,&jobp_capi,&lwork_capi,&capi_overwrite_a))
65289 return NULL((void*)0);
65290/*frompyobj*/
65291 /* Processing variable joba */
65292 if (joba_capi == Py_None(&_Py_NoneStruct)) joba = 4; else
65293 f2py_success = int_from_pyobj(&joba,joba_capi,"_flapack.dgejsv() 1st keyword (joba) can't be converted to int");
65294 if (f2py_success) {
65295 CHECKSCALAR((0 <= joba) && (joba < 6),"(0 <= joba) && (joba < 6)","1st keyword joba","dgejsv:joba=%d",joba)if (!((0 <= joba) && (joba < 6))) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dgejsv:joba=%d", "(""(0 <= joba) && (joba < 6)"
") failed for ""1st keyword joba", joba); PyErr_SetString(_flapack_error
,errstring); } else
{
65296 /* Processing variable jobu */
65297 if (jobu_capi == Py_None(&_Py_NoneStruct)) jobu = 0; else
65298 f2py_success = int_from_pyobj(&jobu,jobu_capi,"_flapack.dgejsv() 2nd keyword (jobu) can't be converted to int");
65299 if (f2py_success) {
65300 CHECKSCALAR((0 <= jobu) && (jobu < 4),"(0 <= jobu) && (jobu < 4)","2nd keyword jobu","dgejsv:jobu=%d",jobu)if (!((0 <= jobu) && (jobu < 4))) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dgejsv:jobu=%d", "(""(0 <= jobu) && (jobu < 4)"
") failed for ""2nd keyword jobu", jobu); PyErr_SetString(_flapack_error
,errstring); } else
{
65301 /* Processing variable jobr */
65302 if (jobr_capi == Py_None(&_Py_NoneStruct)) jobr = 1; else
65303 f2py_success = int_from_pyobj(&jobr,jobr_capi,"_flapack.dgejsv() 4th keyword (jobr) can't be converted to int");
65304 if (f2py_success) {
65305 CHECKSCALAR((jobr == 0) || (jobr == 1),"(jobr == 0) || (jobr == 1)","4th keyword jobr","dgejsv:jobr=%d",jobr)if (!((jobr == 0) || (jobr == 1))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgejsv:jobr=%d", "(""(jobr == 0) || (jobr == 1)"") failed for "
"4th keyword jobr", jobr); PyErr_SetString(_flapack_error,errstring
); } else
{
65306 /* Processing variable jobt */
65307 if (jobt_capi == Py_None(&_Py_NoneStruct)) jobt = 0; else
65308 f2py_success = int_from_pyobj(&jobt,jobt_capi,"_flapack.dgejsv() 5th keyword (jobt) can't be converted to int");
65309 if (f2py_success) {
65310 CHECKSCALAR((jobt == 0) || (jobt == 1),"(jobt == 0) || (jobt == 1)","5th keyword jobt","dgejsv:jobt=%d",jobt)if (!((jobt == 0) || (jobt == 1))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgejsv:jobt=%d", "(""(jobt == 0) || (jobt == 1)"") failed for "
"5th keyword jobt", jobt); PyErr_SetString(_flapack_error,errstring
); } else
{
65311 /* Processing variable jobp */
65312 if (jobp_capi == Py_None(&_Py_NoneStruct)) jobp = 1; else
65313 f2py_success = int_from_pyobj(&jobp,jobp_capi,"_flapack.dgejsv() 6th keyword (jobp) can't be converted to int");
65314 if (f2py_success) {
65315 CHECKSCALAR((jobp == 0) || (jobp == 1),"(jobp == 0) || (jobp == 1)","6th keyword jobp","dgejsv:jobp=%d",jobp)if (!((jobp == 0) || (jobp == 1))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgejsv:jobp=%d", "(""(jobp == 0) || (jobp == 1)"") failed for "
"6th keyword jobp", jobp); PyErr_SetString(_flapack_error,errstring
); } else
{
65316 /* Processing variable a */
65317 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
65318 ;
65319 capi_a_intent |= F2PY_INTENT_IN1;
65320 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
65321 if (capi_a_tmp == NULL((void*)0)) {
65322 if (!PyErr_Occurred())
65323 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgejsv to C/Fortran array" );
65324 } else {
65325 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
65326
65327 /* Processing variable workout */
65328 workout_Dims[0]=7;
65329 capi_workout_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
65330 capi_workout_tmp = array_from_pyobj(NPY_DOUBLE,workout_Dims,workout_Rank,capi_workout_intent,Py_None(&_Py_NoneStruct));
65331 if (capi_workout_tmp == NULL((void*)0)) {
65332 if (!PyErr_Occurred())
65333 PyErr_SetString(_flapack_error,"failed in converting hidden `workout' of _flapack.dgejsv to C/Fortran array" );
65334 } else {
65335 workout = (double *)(PyArray_DATA(capi_workout_tmp)((void *)((PyArrayObject_fields *)(capi_workout_tmp))->data
)
);
65336
65337 /* Processing variable iworkout */
65338 iworkout_Dims[0]=3;
65339 capi_iworkout_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
65340 capi_iworkout_tmp = array_from_pyobj(NPY_INT,iworkout_Dims,iworkout_Rank,capi_iworkout_intent,Py_None(&_Py_NoneStruct));
65341 if (capi_iworkout_tmp == NULL((void*)0)) {
65342 if (!PyErr_Occurred())
65343 PyErr_SetString(_flapack_error,"failed in converting hidden `iworkout' of _flapack.dgejsv to C/Fortran array" );
65344 } else {
65345 iworkout = (int *)(PyArray_DATA(capi_iworkout_tmp)((void *)((PyArrayObject_fields *)(capi_iworkout_tmp))->data
)
);
65346
65347 /* Processing variable info */
65348 /* Processing variable jobv */
65349 if (jobv_capi == Py_None(&_Py_NoneStruct)) jobv = 0; else
65350 f2py_success = int_from_pyobj(&jobv,jobv_capi,"_flapack.dgejsv() 3rd keyword (jobv) can't be converted to int");
65351 if (f2py_success) {
65352 CHECKSCALAR((0 <= jobv) && (jobv < 4) && ((jobv < 1) || (1 < jobv) || ((jobv == 1) && (jobu < 2))),"(0 <= jobv) && (jobv < 4) && ((jobv < 1) || (1 < jobv) || ((jobv == 1) && (jobu < 2)))","3rd keyword jobv","dgejsv:jobv=%d",jobv)if (!((0 <= jobv) && (jobv < 4) && ((jobv
< 1) || (1 < jobv) || ((jobv == 1) && (jobu <
2))))) { char errstring[256]; __builtin___sprintf_chk (errstring
, 2 - 1, __builtin_object_size (errstring, 2 > 1), "%s: ""dgejsv:jobv=%d"
, "(""(0 <= jobv) && (jobv < 4) && ((jobv < 1) || (1 < jobv) || ((jobv == 1) && (jobu < 2)))"
") failed for ""3rd keyword jobv", jobv); PyErr_SetString(_flapack_error
,errstring); } else
{
65353 /* Processing variable n */
65354 n = shape(a, 1)a_Dims[1];
65355 /* Processing variable lda */
65356 lda = max(1, shape(a, 0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
65357 /* Processing variable sva */
65358 sva_Dims[0]=n;
65359 capi_sva_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
65360 capi_sva_tmp = array_from_pyobj(NPY_DOUBLE,sva_Dims,sva_Rank,capi_sva_intent,Py_None(&_Py_NoneStruct));
65361 if (capi_sva_tmp == NULL((void*)0)) {
65362 if (!PyErr_Occurred())
65363 PyErr_SetString(_flapack_error,"failed in converting hidden `sva' of _flapack.dgejsv to C/Fortran array" );
65364 } else {
65365 sva = (double *)(PyArray_DATA(capi_sva_tmp)((void *)((PyArrayObject_fields *)(capi_sva_tmp))->data));
65366
65367 /* Processing variable ldv */
65368 ldv = max(1,(jobv < 3?n:1))((1 > (jobv < 3?n:1)) ? (1) : ((jobv < 3?n:1)));
65369 /* Processing variable m */
65370 m = shape(a, 0)a_Dims[0];
65371 CHECKSCALAR(m>=n,"m>=n","hidden m","dgejsv:m=%d",m)if (!(m>=n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgejsv:m=%d", "(""m>=n"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
65372 /* Processing variable ldu */
65373 ldu = max(1,(jobu < 3?m:1))((1 > (jobu < 3?m:1)) ? (1) : ((jobu < 3?m:1)));
65374 /* Processing variable v */
65375 v_Dims[0]=((jobt == 0)&&(jobv == 3)?0:ldv),v_Dims[1]=((jobt == 0)&&(jobv == 3)?0:n);
65376 capi_v_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
65377 capi_v_tmp = array_from_pyobj(NPY_DOUBLE,v_Dims,v_Rank,capi_v_intent,Py_None(&_Py_NoneStruct));
65378 if (capi_v_tmp == NULL((void*)0)) {
65379 if (!PyErr_Occurred())
65380 PyErr_SetString(_flapack_error,"failed in converting hidden `v' of _flapack.dgejsv to C/Fortran array" );
65381 } else {
65382 v = (double *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data));
65383
65384 /* Processing variable lwork */
65385 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(6*n+2*n*n, max(2*m+n, max(4*n+n*n, max(2*n+n*n+6, 7))))((6*n+2*n*n > ((2*m+n > ((4*n+n*n > ((2*n+n*n+6 >
7) ? (2*n+n*n+6) : (7))) ? (4*n+n*n) : (((2*n+n*n+6 > 7) ?
(2*n+n*n+6) : (7))))) ? (2*m+n) : (((4*n+n*n > ((2*n+n*n+
6 > 7) ? (2*n+n*n+6) : (7))) ? (4*n+n*n) : (((2*n+n*n+6 >
7) ? (2*n+n*n+6) : (7))))))) ? (6*n+2*n*n) : (((2*m+n > (
(4*n+n*n > ((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7))) ? (4*
n+n*n) : (((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7))))) ? (2*m+
n) : (((4*n+n*n > ((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7))
) ? (4*n+n*n) : (((2*n+n*n+6 > 7) ? (2*n+n*n+6) : (7))))))
))
; else
65386 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgejsv() 7th keyword (lwork) can't be converted to int");
65387 if (f2py_success) {
65388 CHECKSCALAR(lwork>=7,"lwork>=7","7th keyword lwork","dgejsv:lwork=%d",lwork)if (!(lwork>=7)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgejsv:lwork=%d", "(""lwork>=7"") failed for ""7th keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
65389 /* Processing variable iwork */
65390 iwork_Dims[0]=MAX(3, m+3*n)((3 > m+3*n) ? (3) : (m+3*n));
65391 capi_iwork_intent |= F2PY_INTENT_HIDE8;
65392 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
65393 if (capi_iwork_tmp == NULL((void*)0)) {
65394 if (!PyErr_Occurred())
65395 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dgejsv to C/Fortran array" );
65396 } else {
65397 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
65398
65399 /* Processing variable u */
65400 u_Dims[0]=((jobt == 0)&&(jobu == 3)?0:m),u_Dims[1]=((jobt == 0)&&(jobu == 3)?0:(jobu == 1?m:n));
65401 capi_u_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
65402 capi_u_tmp = array_from_pyobj(NPY_DOUBLE,u_Dims,u_Rank,capi_u_intent,Py_None(&_Py_NoneStruct));
65403 if (capi_u_tmp == NULL((void*)0)) {
65404 if (!PyErr_Occurred())
65405 PyErr_SetString(_flapack_error,"failed in converting hidden `u' of _flapack.dgejsv to C/Fortran array" );
65406 } else {
65407 u = (double *)(PyArray_DATA(capi_u_tmp)((void *)((PyArrayObject_fields *)(capi_u_tmp))->data));
65408
65409 /* Processing variable work */
65410 work_Dims[0]=lwork;
65411 capi_work_intent |= F2PY_INTENT_HIDE8;
65412 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
65413 if (capi_work_tmp == NULL((void*)0)) {
65414 if (!PyErr_Occurred())
65415 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgejsv to C/Fortran array" );
65416 } else {
65417 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
65418
65419/*end of frompyobj*/
65420#ifdef F2PY_REPORT_ATEXIT
65421f2py_start_call_clock();
65422#endif
65423/*callfortranroutine*/
65424 {F_INTint i;(*f2py_func)(&"CEFGAR"[joba],&"UFWN"[jobu],&"VJWN"[jobv],(jobr?"R":"N"),(jobt?"T":"N"),(jobp?"P":"N"),&m,&n,a,&lda,sva,u,&ldu,v,&ldv,work,&lwork,iwork,&info);for(i=0;i<7;i++){workout[i] = work[i];}for(i=0;i<3;i++){iworkout[i] = iwork[i];}} ;
65425 /*(*f2py_func)(&joba,&jobu,&jobv,&jobr,&jobt,&jobp,&m,&n,a,&lda,sva,u,&ldu,v,&ldv,work,workout,&lwork,iwork,iworkout,&info);*/
65426if (PyErr_Occurred())
65427 f2py_success = 0;
65428#ifdef F2PY_REPORT_ATEXIT
65429f2py_stop_call_clock();
65430#endif
65431/*end of callfortranroutine*/
65432 if (f2py_success) {
65433/*pyobjfrom*/
65434/*end of pyobjfrom*/
65435 CFUNCSMESS("Building return value.\n");
65436 capi_buildvalue = Py_BuildValue("NNNNNi",capi_sva_tmp,capi_u_tmp,capi_v_tmp,capi_workout_tmp,capi_iworkout_tmp,info);
65437/*closepyobjfrom*/
65438/*end of closepyobjfrom*/
65439 } /*if (f2py_success) after callfortranroutine*/
65440/*cleanupfrompyobj*/
65441 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
65442 } /*if (capi_work_tmp == NULL) ... else of work*/
65443 /* End of cleaning variable work */
65444 } /*if (capi_u_tmp == NULL) ... else of u*/
65445 /* End of cleaning variable u */
65446 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
65447 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
65448 /* End of cleaning variable iwork */
65449 } /*CHECKSCALAR(lwork>=7)*/
65450 } /*if (f2py_success) of lwork*/
65451 /* End of cleaning variable lwork */
65452 } /*if (capi_v_tmp == NULL) ... else of v*/
65453 /* End of cleaning variable v */
65454 /* End of cleaning variable ldu */
65455 } /*CHECKSCALAR(m>=n)*/
65456 /* End of cleaning variable m */
65457 /* End of cleaning variable ldv */
65458 } /*if (capi_sva_tmp == NULL) ... else of sva*/
65459 /* End of cleaning variable sva */
65460 /* End of cleaning variable lda */
65461 /* End of cleaning variable n */
65462 } /*CHECKSCALAR((0 <= jobv) && (jobv < 4) && ((jobv < 1) || (1 < jobv) || ((jobv == 1) && (jobu < 2))))*/
65463 } /*if (f2py_success) of jobv*/
65464 /* End of cleaning variable jobv */
65465 /* End of cleaning variable info */
65466 } /*if (capi_iworkout_tmp == NULL) ... else of iworkout*/
65467 /* End of cleaning variable iworkout */
65468 } /*if (capi_workout_tmp == NULL) ... else of workout*/
65469 /* End of cleaning variable workout */
65470 if((PyObject *)capi_a_tmp!=a_capi) {
65471 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
65472 } /*if (capi_a_tmp == NULL) ... else of a*/
65473 /* End of cleaning variable a */
65474 } /*CHECKSCALAR((jobp == 0) || (jobp == 1))*/
65475 } /*if (f2py_success) of jobp*/
65476 /* End of cleaning variable jobp */
65477 } /*CHECKSCALAR((jobt == 0) || (jobt == 1))*/
65478 } /*if (f2py_success) of jobt*/
65479 /* End of cleaning variable jobt */
65480 } /*CHECKSCALAR((jobr == 0) || (jobr == 1))*/
65481 } /*if (f2py_success) of jobr*/
65482 /* End of cleaning variable jobr */
65483 } /*CHECKSCALAR((0 <= jobu) && (jobu < 4))*/
65484 } /*if (f2py_success) of jobu*/
65485 /* End of cleaning variable jobu */
65486 } /*CHECKSCALAR((0 <= joba) && (joba < 6))*/
65487 } /*if (f2py_success) of joba*/
65488 /* End of cleaning variable joba */
65489/*end of cleanupfrompyobj*/
65490 if (capi_buildvalue == NULL((void*)0)) {
65491/*routdebugfailure*/
65492 } else {
65493/*routdebugleave*/
65494 }
65495 CFUNCSMESS("Freeing memory.\n");
65496/*freemem*/
65497#ifdef F2PY_REPORT_ATEXIT
65498f2py_stop_clock();
65499#endif
65500 return capi_buildvalue;
65501}
65502/******************************* end of dgejsv *******************************/
65503
65504/*********************************** stgexc ***********************************/
65505static char doc_f2py_rout__flapack_stgexc[] = "\
65506a,b,q,z,work,info = stgexc(a,b,q,z,ifst,ilst,[lwork,overwrite_a,overwrite_b,overwrite_q,overwrite_z])\n\nWrapper for ``stgexc``.\
65507\n\nParameters\n----------\n"
65508"a : input rank-2 array('f') with bounds (lda,n)\n"
65509"b : input rank-2 array('f') with bounds (ldb,n)\n"
65510"q : input rank-2 array('f') with bounds (ldq,n)\n"
65511"z : input rank-2 array('f') with bounds (ldz,n)\n"
65512"ifst : input int\n"
65513"ilst : input int\n"
65514"\nOther Parameters\n----------------\n"
65515"overwrite_a : input int, optional\n Default: 0\n"
65516"overwrite_b : input int, optional\n Default: 0\n"
65517"overwrite_q : input int, optional\n Default: 0\n"
65518"overwrite_z : input int, optional\n Default: 0\n"
65519"lwork : input int, optional\n Default: max(4*n+16,1)\n"
65520"\nReturns\n-------\n"
65521"a : rank-2 array('f') with bounds (lda,n)\n"
65522"b : rank-2 array('f') with bounds (ldb,n)\n"
65523"q : rank-2 array('f') with bounds (ldq,n)\n"
65524"z : rank-2 array('f') with bounds (ldz,n)\n"
65525"work : rank-1 array('f') with bounds (MAX(lwork,1))\n"
65526"info : int";
65527/* extern void F_FUNC(stgexc,STGEXC)(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */
65528static PyObject *f2py_rout__flapack_stgexc(const PyObject *capi_self,
65529 PyObject *capi_args,
65530 PyObject *capi_keywds,
65531 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) {
65532 PyObject * volatile capi_buildvalue = NULL((void*)0);
65533 volatile int f2py_success = 1;
65534/*decl*/
65535
65536 int wantq = 0;
65537 int wantz = 0;
65538 int n = 0;
65539 float *a = NULL((void*)0);
65540 npy_intp a_Dims[2] = {-1, -1};
65541 const int a_Rank = 2;
65542 PyArrayObject *capi_a_tmp = NULL((void*)0);
65543 int capi_a_intent = 0;
65544 int capi_overwrite_a = 0;
65545 PyObject *a_capi = Py_None(&_Py_NoneStruct);
65546 int lda = 0;
65547 float *b = NULL((void*)0);
65548 npy_intp b_Dims[2] = {-1, -1};
65549 const int b_Rank = 2;
65550 PyArrayObject *capi_b_tmp = NULL((void*)0);
65551 int capi_b_intent = 0;
65552 int capi_overwrite_b = 0;
65553 PyObject *b_capi = Py_None(&_Py_NoneStruct);
65554 int ldb = 0;
65555 float *q = NULL((void*)0);
65556 npy_intp q_Dims[2] = {-1, -1};
65557 const int q_Rank = 2;
65558 PyArrayObject *capi_q_tmp = NULL((void*)0);
65559 int capi_q_intent = 0;
65560 int capi_overwrite_q = 0;
65561 PyObject *q_capi = Py_None(&_Py_NoneStruct);
65562 int ldq = 0;
65563 float *z = NULL((void*)0);
65564 npy_intp z_Dims[2] = {-1, -1};
65565 const int z_Rank = 2;
65566 PyArrayObject *capi_z_tmp = NULL((void*)0);
65567 int capi_z_intent = 0;
65568 int capi_overwrite_z = 0;
65569 PyObject *z_capi = Py_None(&_Py_NoneStruct);
65570 int ldz = 0;
65571 int ifst = 0;
65572 PyObject *ifst_capi = Py_None(&_Py_NoneStruct);
65573 int ilst = 0;
65574 PyObject *ilst_capi = Py_None(&_Py_NoneStruct);
65575 float *work = NULL((void*)0);
65576 npy_intp work_Dims[1] = {-1};
65577 const int work_Rank = 1;
65578 PyArrayObject *capi_work_tmp = NULL((void*)0);
65579 int capi_work_intent = 0;
65580 int lwork = 0;
65581 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
65582 int info = 0;
65583 static char *capi_kwlist[] = {"a","b","q","z","ifst","ilst","lwork","overwrite_a","overwrite_b","overwrite_q","overwrite_z",NULL((void*)0)};
65584
65585/*routdebugenter*/
65586#ifdef F2PY_REPORT_ATEXIT
65587f2py_start_clock();
65588#endif
65589 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
65590 "OOOOOO|Oiiii:_flapack.stgexc",\
65591 capi_kwlist,&a_capi,&b_capi,&q_capi,&z_capi,&ifst_capi,&ilst_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_q,&capi_overwrite_z))
65592 return NULL((void*)0);
65593/*frompyobj*/
65594 /* Processing variable wantq */
65595 wantq = 1;
65596 CHECKSCALAR(wantq==0||wantq==1,"wantq==0||wantq==1","hidden wantq","stgexc:wantq=%d",wantq)if (!(wantq==0||wantq==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stgexc:wantq=%d", "(""wantq==0||wantq==1"") failed for "
"hidden wantq", wantq); PyErr_SetString(_flapack_error,errstring
); } else
{
65597 /* Processing variable wantz */
65598 wantz = 1;
65599 CHECKSCALAR(wantz==0||wantz==1,"wantz==0||wantz==1","hidden wantz","stgexc:wantz=%d",wantz)if (!(wantz==0||wantz==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stgexc:wantz=%d", "(""wantz==0||wantz==1"") failed for "
"hidden wantz", wantz); PyErr_SetString(_flapack_error,errstring
); } else
{
65600 /* Processing variable a */
65601 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
65602 ;
65603 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
65604 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
65605 if (capi_a_tmp == NULL((void*)0)) {
65606 if (!PyErr_Occurred())
65607 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.stgexc to C/Fortran array" );
65608 } else {
65609 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
65610
65611 /* Processing variable ifst */
65612 f2py_success = int_from_pyobj(&ifst,ifst_capi,"_flapack.stgexc() 5th argument (ifst) can't be converted to int");
65613 if (f2py_success) {
65614 /* Processing variable ilst */
65615 f2py_success = int_from_pyobj(&ilst,ilst_capi,"_flapack.stgexc() 6th argument (ilst) can't be converted to int");
65616 if (f2py_success) {
65617 /* Processing variable info */
65618 /* Processing variable n */
65619 n = shape(a,1)a_Dims[1];
65620 /* Processing variable lda */
65621 lda = shape(a,0)a_Dims[0];
65622 /* Processing variable b */
65623 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
65624 b_Dims[1]=n;
65625 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
65626 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
65627 if (capi_b_tmp == NULL((void*)0)) {
65628 if (!PyErr_Occurred())
65629 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.stgexc to C/Fortran array" );
65630 } else {
65631 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
65632
65633 /* Processing variable ldb */
65634 ldb = shape(b,0)b_Dims[0];
65635 /* Processing variable q */
65636 capi_q_intent |= (capi_overwrite_q?0:F2PY_INTENT_COPY32);
65637 q_Dims[1]=n;
65638 capi_q_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
65639 capi_q_tmp = array_from_pyobj(NPY_FLOAT,q_Dims,q_Rank,capi_q_intent,q_capi);
65640 if (capi_q_tmp == NULL((void*)0)) {
65641 if (!PyErr_Occurred())
65642 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `q' of _flapack.stgexc to C/Fortran array" );
65643 } else {
65644 q = (float *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data));
65645
65646 /* Processing variable ldq */
65647 ldq = shape(q,0)q_Dims[0];
65648 /* Processing variable z */
65649 capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32);
65650 z_Dims[1]=n;
65651 capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
65652 capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,z_capi);
65653 if (capi_z_tmp == NULL((void*)0)) {
65654 if (!PyErr_Occurred())
65655 PyErr_SetString(_flapack_error,"failed in converting 4th argument `z' of _flapack.stgexc to C/Fortran array" );
65656 } else {
65657 z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
65658
65659 /* Processing variable ldz */
65660 ldz = shape(z,0)z_Dims[0];
65661 /* Processing variable lwork */
65662 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(4*n+16,1)((4*n+16 > 1) ? (4*n+16) : (1)); else
65663 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.stgexc() 1st keyword (lwork) can't be converted to int");
65664 if (f2py_success) {
65665 CHECKSCALAR(lwork == -1 || lwork >= 4*n+16,"lwork == -1 || lwork >= 4*n+16","1st keyword lwork","stgexc:lwork=%d",lwork)if (!(lwork == -1 || lwork >= 4*n+16)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""stgexc:lwork=%d", "(""lwork == -1 || lwork >= 4*n+16"
") failed for ""1st keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
65666 /* Processing variable work */
65667 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
65668 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
65669 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
65670 if (capi_work_tmp == NULL((void*)0)) {
65671 if (!PyErr_Occurred())
65672 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.stgexc to C/Fortran array" );
65673 } else {
65674 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
65675
65676/*end of frompyobj*/
65677#ifdef F2PY_REPORT_ATEXIT
65678f2py_start_call_clock();
65679#endif
65680/*callfortranroutine*/
65681 { ifst++; ilst++; (*f2py_func)(&wantq,&wantz,&n,a,&lda,b,&ldb,q,&ldq,z,&ldz,&ifst,&ilst,work,&lwork,&info); } ;
65682 /*(*f2py_func)(&wantq,&wantz,&n,a,&lda,b,&ldb,q,&ldq,z,&ldz,&ifst,&ilst,work,&lwork,&info);*/
65683if (PyErr_Occurred())
65684 f2py_success = 0;
65685#ifdef F2PY_REPORT_ATEXIT
65686f2py_stop_call_clock();
65687#endif
65688/*end of callfortranroutine*/
65689 if (f2py_success) {
65690/*pyobjfrom*/
65691/*end of pyobjfrom*/
65692 CFUNCSMESS("Building return value.\n");
65693 capi_buildvalue = Py_BuildValue("NNNNNi",capi_a_tmp,capi_b_tmp,capi_q_tmp,capi_z_tmp,capi_work_tmp,info);
65694/*closepyobjfrom*/
65695/*end of closepyobjfrom*/
65696 } /*if (f2py_success) after callfortranroutine*/
65697/*cleanupfrompyobj*/
65698 } /*if (capi_work_tmp == NULL) ... else of work*/
65699 /* End of cleaning variable work */
65700 } /*CHECKSCALAR(lwork == -1 || lwork >= 4*n+16)*/
65701 } /*if (f2py_success) of lwork*/
65702 /* End of cleaning variable lwork */
65703 /* End of cleaning variable ldz */
65704 } /*if (capi_z_tmp == NULL) ... else of z*/
65705 /* End of cleaning variable z */
65706 /* End of cleaning variable ldq */
65707 } /*if (capi_q_tmp == NULL) ... else of q*/
65708 /* End of cleaning variable q */
65709 /* End of cleaning variable ldb */
65710 } /*if (capi_b_tmp == NULL) ... else of b*/
65711 /* End of cleaning variable b */
65712 /* End of cleaning variable lda */
65713 /* End of cleaning variable n */
65714 /* End of cleaning variable info */
65715 } /*if (f2py_success) of ilst*/
65716 /* End of cleaning variable ilst */
65717 } /*if (f2py_success) of ifst*/
65718 /* End of cleaning variable ifst */
65719 } /*if (capi_a_tmp == NULL) ... else of a*/
65720 /* End of cleaning variable a */
65721 } /*CHECKSCALAR(wantz==0||wantz==1)*/
65722 /* End of cleaning variable wantz */
65723 } /*CHECKSCALAR(wantq==0||wantq==1)*/
65724 /* End of cleaning variable wantq */
65725/*end of cleanupfrompyobj*/
65726 if (capi_buildvalue == NULL((void*)0)) {
65727/*routdebugfailure*/
65728 } else {
65729/*routdebugleave*/
65730 }
65731 CFUNCSMESS("Freeing memory.\n");
65732/*freemem*/
65733#ifdef F2PY_REPORT_ATEXIT
65734f2py_stop_clock();
65735#endif
65736 return capi_buildvalue;
65737}
65738/******************************* end of stgexc *******************************/
65739
65740/*********************************** dtgexc ***********************************/
65741static char doc_f2py_rout__flapack_dtgexc[] = "\
65742a,b,q,z,work,info = dtgexc(a,b,q,z,ifst,ilst,[lwork,overwrite_a,overwrite_b,overwrite_q,overwrite_z])\n\nWrapper for ``dtgexc``.\
65743\n\nParameters\n----------\n"
65744"a : input rank-2 array('d') with bounds (lda,n)\n"
65745"b : input rank-2 array('d') with bounds (ldb,n)\n"
65746"q : input rank-2 array('d') with bounds (ldq,n)\n"
65747"z : input rank-2 array('d') with bounds (ldz,n)\n"
65748"ifst : input int\n"
65749"ilst : input int\n"
65750"\nOther Parameters\n----------------\n"
65751"overwrite_a : input int, optional\n Default: 0\n"
65752"overwrite_b : input int, optional\n Default: 0\n"
65753"overwrite_q : input int, optional\n Default: 0\n"
65754"overwrite_z : input int, optional\n Default: 0\n"
65755"lwork : input int, optional\n Default: max(4*n+16,1)\n"
65756"\nReturns\n-------\n"
65757"a : rank-2 array('d') with bounds (lda,n)\n"
65758"b : rank-2 array('d') with bounds (ldb,n)\n"
65759"q : rank-2 array('d') with bounds (ldq,n)\n"
65760"z : rank-2 array('d') with bounds (ldz,n)\n"
65761"work : rank-1 array('d') with bounds (MAX(lwork,1))\n"
65762"info : int";
65763/* extern void F_FUNC(dtgexc,DTGEXC)(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */
65764static PyObject *f2py_rout__flapack_dtgexc(const PyObject *capi_self,
65765 PyObject *capi_args,
65766 PyObject *capi_keywds,
65767 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) {
65768 PyObject * volatile capi_buildvalue = NULL((void*)0);
65769 volatile int f2py_success = 1;
65770/*decl*/
65771
65772 int wantq = 0;
65773 int wantz = 0;
65774 int n = 0;
65775 double *a = NULL((void*)0);
65776 npy_intp a_Dims[2] = {-1, -1};
65777 const int a_Rank = 2;
65778 PyArrayObject *capi_a_tmp = NULL((void*)0);
65779 int capi_a_intent = 0;
65780 int capi_overwrite_a = 0;
65781 PyObject *a_capi = Py_None(&_Py_NoneStruct);
65782 int lda = 0;
65783 double *b = NULL((void*)0);
65784 npy_intp b_Dims[2] = {-1, -1};
65785 const int b_Rank = 2;
65786 PyArrayObject *capi_b_tmp = NULL((void*)0);
65787 int capi_b_intent = 0;
65788 int capi_overwrite_b = 0;
65789 PyObject *b_capi = Py_None(&_Py_NoneStruct);
65790 int ldb = 0;
65791 double *q = NULL((void*)0);
65792 npy_intp q_Dims[2] = {-1, -1};
65793 const int q_Rank = 2;
65794 PyArrayObject *capi_q_tmp = NULL((void*)0);
65795 int capi_q_intent = 0;
65796 int capi_overwrite_q = 0;
65797 PyObject *q_capi = Py_None(&_Py_NoneStruct);
65798 int ldq = 0;
65799 double *z = NULL((void*)0);
65800 npy_intp z_Dims[2] = {-1, -1};
65801 const int z_Rank = 2;
65802 PyArrayObject *capi_z_tmp = NULL((void*)0);
65803 int capi_z_intent = 0;
65804 int capi_overwrite_z = 0;
65805 PyObject *z_capi = Py_None(&_Py_NoneStruct);
65806 int ldz = 0;
65807 int ifst = 0;
65808 PyObject *ifst_capi = Py_None(&_Py_NoneStruct);
65809 int ilst = 0;
65810 PyObject *ilst_capi = Py_None(&_Py_NoneStruct);
65811 double *work = NULL((void*)0);
65812 npy_intp work_Dims[1] = {-1};
65813 const int work_Rank = 1;
65814 PyArrayObject *capi_work_tmp = NULL((void*)0);
65815 int capi_work_intent = 0;
65816 int lwork = 0;
65817 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
65818 int info = 0;
65819 static char *capi_kwlist[] = {"a","b","q","z","ifst","ilst","lwork","overwrite_a","overwrite_b","overwrite_q","overwrite_z",NULL((void*)0)};
65820
65821/*routdebugenter*/
65822#ifdef F2PY_REPORT_ATEXIT
65823f2py_start_clock();
65824#endif
65825 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
65826 "OOOOOO|Oiiii:_flapack.dtgexc",\
65827 capi_kwlist,&a_capi,&b_capi,&q_capi,&z_capi,&ifst_capi,&ilst_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_q,&capi_overwrite_z))
65828 return NULL((void*)0);
65829/*frompyobj*/
65830 /* Processing variable wantq */
65831 wantq = 1;
65832 CHECKSCALAR(wantq==0||wantq==1,"wantq==0||wantq==1","hidden wantq","dtgexc:wantq=%d",wantq)if (!(wantq==0||wantq==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtgexc:wantq=%d", "(""wantq==0||wantq==1"") failed for "
"hidden wantq", wantq); PyErr_SetString(_flapack_error,errstring
); } else
{
65833 /* Processing variable wantz */
65834 wantz = 1;
65835 CHECKSCALAR(wantz==0||wantz==1,"wantz==0||wantz==1","hidden wantz","dtgexc:wantz=%d",wantz)if (!(wantz==0||wantz==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtgexc:wantz=%d", "(""wantz==0||wantz==1"") failed for "
"hidden wantz", wantz); PyErr_SetString(_flapack_error,errstring
); } else
{
65836 /* Processing variable a */
65837 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
65838 ;
65839 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
65840 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
65841 if (capi_a_tmp == NULL((void*)0)) {
65842 if (!PyErr_Occurred())
65843 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dtgexc to C/Fortran array" );
65844 } else {
65845 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
65846
65847 /* Processing variable ifst */
65848 f2py_success = int_from_pyobj(&ifst,ifst_capi,"_flapack.dtgexc() 5th argument (ifst) can't be converted to int");
65849 if (f2py_success) {
65850 /* Processing variable ilst */
65851 f2py_success = int_from_pyobj(&ilst,ilst_capi,"_flapack.dtgexc() 6th argument (ilst) can't be converted to int");
65852 if (f2py_success) {
65853 /* Processing variable info */
65854 /* Processing variable n */
65855 n = shape(a,1)a_Dims[1];
65856 /* Processing variable lda */
65857 lda = shape(a,0)a_Dims[0];
65858 /* Processing variable b */
65859 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
65860 b_Dims[1]=n;
65861 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
65862 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
65863 if (capi_b_tmp == NULL((void*)0)) {
65864 if (!PyErr_Occurred())
65865 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dtgexc to C/Fortran array" );
65866 } else {
65867 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
65868
65869 /* Processing variable ldb */
65870 ldb = shape(b,0)b_Dims[0];
65871 /* Processing variable q */
65872 capi_q_intent |= (capi_overwrite_q?0:F2PY_INTENT_COPY32);
65873 q_Dims[1]=n;
65874 capi_q_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
65875 capi_q_tmp = array_from_pyobj(NPY_DOUBLE,q_Dims,q_Rank,capi_q_intent,q_capi);
65876 if (capi_q_tmp == NULL((void*)0)) {
65877 if (!PyErr_Occurred())
65878 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `q' of _flapack.dtgexc to C/Fortran array" );
65879 } else {
65880 q = (double *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data));
65881
65882 /* Processing variable ldq */
65883 ldq = shape(q,0)q_Dims[0];
65884 /* Processing variable z */
65885 capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32);
65886 z_Dims[1]=n;
65887 capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
65888 capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,z_capi);
65889 if (capi_z_tmp == NULL((void*)0)) {
65890 if (!PyErr_Occurred())
65891 PyErr_SetString(_flapack_error,"failed in converting 4th argument `z' of _flapack.dtgexc to C/Fortran array" );
65892 } else {
65893 z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
65894
65895 /* Processing variable ldz */
65896 ldz = shape(z,0)z_Dims[0];
65897 /* Processing variable lwork */
65898 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(4*n+16,1)((4*n+16 > 1) ? (4*n+16) : (1)); else
65899 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dtgexc() 1st keyword (lwork) can't be converted to int");
65900 if (f2py_success) {
65901 CHECKSCALAR(lwork == -1 || lwork >= 4*n+16,"lwork == -1 || lwork >= 4*n+16","1st keyword lwork","dtgexc:lwork=%d",lwork)if (!(lwork == -1 || lwork >= 4*n+16)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dtgexc:lwork=%d", "(""lwork == -1 || lwork >= 4*n+16"
") failed for ""1st keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
65902 /* Processing variable work */
65903 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
65904 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
65905 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
65906 if (capi_work_tmp == NULL((void*)0)) {
65907 if (!PyErr_Occurred())
65908 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dtgexc to C/Fortran array" );
65909 } else {
65910 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
65911
65912/*end of frompyobj*/
65913#ifdef F2PY_REPORT_ATEXIT
65914f2py_start_call_clock();
65915#endif
65916/*callfortranroutine*/
65917 { ifst++; ilst++; (*f2py_func)(&wantq,&wantz,&n,a,&lda,b,&ldb,q,&ldq,z,&ldz,&ifst,&ilst,work,&lwork,&info); } ;
65918 /*(*f2py_func)(&wantq,&wantz,&n,a,&lda,b,&ldb,q,&ldq,z,&ldz,&ifst,&ilst,work,&lwork,&info);*/
65919if (PyErr_Occurred())
65920 f2py_success = 0;
65921#ifdef F2PY_REPORT_ATEXIT
65922f2py_stop_call_clock();
65923#endif
65924/*end of callfortranroutine*/
65925 if (f2py_success) {
65926/*pyobjfrom*/
65927/*end of pyobjfrom*/
65928 CFUNCSMESS("Building return value.\n");
65929 capi_buildvalue = Py_BuildValue("NNNNNi",capi_a_tmp,capi_b_tmp,capi_q_tmp,capi_z_tmp,capi_work_tmp,info);
65930/*closepyobjfrom*/
65931/*end of closepyobjfrom*/
65932 } /*if (f2py_success) after callfortranroutine*/
65933/*cleanupfrompyobj*/
65934 } /*if (capi_work_tmp == NULL) ... else of work*/
65935 /* End of cleaning variable work */
65936 } /*CHECKSCALAR(lwork == -1 || lwork >= 4*n+16)*/
65937 } /*if (f2py_success) of lwork*/
65938 /* End of cleaning variable lwork */
65939 /* End of cleaning variable ldz */
65940 } /*if (capi_z_tmp == NULL) ... else of z*/
65941 /* End of cleaning variable z */
65942 /* End of cleaning variable ldq */
65943 } /*if (capi_q_tmp == NULL) ... else of q*/
65944 /* End of cleaning variable q */
65945 /* End of cleaning variable ldb */
65946 } /*if (capi_b_tmp == NULL) ... else of b*/
65947 /* End of cleaning variable b */
65948 /* End of cleaning variable lda */
65949 /* End of cleaning variable n */
65950 /* End of cleaning variable info */
65951 } /*if (f2py_success) of ilst*/
65952 /* End of cleaning variable ilst */
65953 } /*if (f2py_success) of ifst*/
65954 /* End of cleaning variable ifst */
65955 } /*if (capi_a_tmp == NULL) ... else of a*/
65956 /* End of cleaning variable a */
65957 } /*CHECKSCALAR(wantz==0||wantz==1)*/
65958 /* End of cleaning variable wantz */
65959 } /*CHECKSCALAR(wantq==0||wantq==1)*/
65960 /* End of cleaning variable wantq */
65961/*end of cleanupfrompyobj*/
65962 if (capi_buildvalue == NULL((void*)0)) {
65963/*routdebugfailure*/
65964 } else {
65965/*routdebugleave*/
65966 }
65967 CFUNCSMESS("Freeing memory.\n");
65968/*freemem*/
65969#ifdef F2PY_REPORT_ATEXIT
65970f2py_stop_clock();
65971#endif
65972 return capi_buildvalue;
65973}
65974/******************************* end of dtgexc *******************************/
65975
65976/*********************************** ctgexc ***********************************/
65977static char doc_f2py_rout__flapack_ctgexc[] = "\
65978a,b,q,z,info = ctgexc(a,b,q,z,ifst,ilst,[overwrite_a,overwrite_b,overwrite_q,overwrite_z])\n\nWrapper for ``ctgexc``.\
65979\n\nParameters\n----------\n"
65980"a : input rank-2 array('F') with bounds (lda,n)\n"
65981"b : input rank-2 array('F') with bounds (ldb,n)\n"
65982"q : input rank-2 array('F') with bounds (ldq,n)\n"
65983"z : input rank-2 array('F') with bounds (ldz,n)\n"
65984"ifst : input int\n"
65985"ilst : input int\n"
65986"\nOther Parameters\n----------------\n"
65987"overwrite_a : input int, optional\n Default: 0\n"
65988"overwrite_b : input int, optional\n Default: 0\n"
65989"overwrite_q : input int, optional\n Default: 0\n"
65990"overwrite_z : input int, optional\n Default: 0\n"
65991"\nReturns\n-------\n"
65992"a : rank-2 array('F') with bounds (lda,n)\n"
65993"b : rank-2 array('F') with bounds (ldb,n)\n"
65994"q : rank-2 array('F') with bounds (ldq,n)\n"
65995"z : rank-2 array('F') with bounds (ldz,n)\n"
65996"info : int";
65997/* extern void F_FUNC(ctgexc,CTGEXC)(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
65998static PyObject *f2py_rout__flapack_ctgexc(const PyObject *capi_self,
65999 PyObject *capi_args,
66000 PyObject *capi_keywds,
66001 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
66002 PyObject * volatile capi_buildvalue = NULL((void*)0);
66003 volatile int f2py_success = 1;
66004/*decl*/
66005
66006 int wantq = 0;
66007 int wantz = 0;
66008 int n = 0;
66009 complex_float *a = NULL((void*)0);
66010 npy_intp a_Dims[2] = {-1, -1};
66011 const int a_Rank = 2;
66012 PyArrayObject *capi_a_tmp = NULL((void*)0);
66013 int capi_a_intent = 0;
66014 int capi_overwrite_a = 0;
66015 PyObject *a_capi = Py_None(&_Py_NoneStruct);
66016 int lda = 0;
66017 complex_float *b = NULL((void*)0);
66018 npy_intp b_Dims[2] = {-1, -1};
66019 const int b_Rank = 2;
66020 PyArrayObject *capi_b_tmp = NULL((void*)0);
66021 int capi_b_intent = 0;
66022 int capi_overwrite_b = 0;
66023 PyObject *b_capi = Py_None(&_Py_NoneStruct);
66024 int ldb = 0;
66025 complex_float *q = NULL((void*)0);
66026 npy_intp q_Dims[2] = {-1, -1};
66027 const int q_Rank = 2;
66028 PyArrayObject *capi_q_tmp = NULL((void*)0);
66029 int capi_q_intent = 0;
66030 int capi_overwrite_q = 0;
66031 PyObject *q_capi = Py_None(&_Py_NoneStruct);
66032 int ldq = 0;
66033 complex_float *z = NULL((void*)0);
66034 npy_intp z_Dims[2] = {-1, -1};
66035 const int z_Rank = 2;
66036 PyArrayObject *capi_z_tmp = NULL((void*)0);
66037 int capi_z_intent = 0;
66038 int capi_overwrite_z = 0;
66039 PyObject *z_capi = Py_None(&_Py_NoneStruct);
66040 int ldz = 0;
66041 int ifst = 0;
66042 PyObject *ifst_capi = Py_None(&_Py_NoneStruct);
66043 int ilst = 0;
66044 PyObject *ilst_capi = Py_None(&_Py_NoneStruct);
66045 int info = 0;
66046 static char *capi_kwlist[] = {"a","b","q","z","ifst","ilst","overwrite_a","overwrite_b","overwrite_q","overwrite_z",NULL((void*)0)};
66047
66048/*routdebugenter*/
66049#ifdef F2PY_REPORT_ATEXIT
66050f2py_start_clock();
66051#endif
66052 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
66053 "OOOOOO|iiii:_flapack.ctgexc",\
66054 capi_kwlist,&a_capi,&b_capi,&q_capi,&z_capi,&ifst_capi,&ilst_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_q,&capi_overwrite_z))
66055 return NULL((void*)0);
66056/*frompyobj*/
66057 /* Processing variable wantq */
66058 wantq = 1;
66059 CHECKSCALAR(wantq==0||wantq==1,"wantq==0||wantq==1","hidden wantq","ctgexc:wantq=%d",wantq)if (!(wantq==0||wantq==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctgexc:wantq=%d", "(""wantq==0||wantq==1"") failed for "
"hidden wantq", wantq); PyErr_SetString(_flapack_error,errstring
); } else
{
66060 /* Processing variable wantz */
66061 wantz = 1;
66062 CHECKSCALAR(wantz==0||wantz==1,"wantz==0||wantz==1","hidden wantz","ctgexc:wantz=%d",wantz)if (!(wantz==0||wantz==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctgexc:wantz=%d", "(""wantz==0||wantz==1"") failed for "
"hidden wantz", wantz); PyErr_SetString(_flapack_error,errstring
); } else
{
66063 /* Processing variable a */
66064 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
66065 ;
66066 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
66067 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
66068 if (capi_a_tmp == NULL((void*)0)) {
66069 if (!PyErr_Occurred())
66070 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ctgexc to C/Fortran array" );
66071 } else {
66072 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
66073
66074 /* Processing variable ifst */
66075 f2py_success = int_from_pyobj(&ifst,ifst_capi,"_flapack.ctgexc() 5th argument (ifst) can't be converted to int");
66076 if (f2py_success) {
66077 /* Processing variable ilst */
66078 f2py_success = int_from_pyobj(&ilst,ilst_capi,"_flapack.ctgexc() 6th argument (ilst) can't be converted to int");
66079 if (f2py_success) {
66080 /* Processing variable info */
66081 /* Processing variable n */
66082 n = shape(a,1)a_Dims[1];
66083 /* Processing variable lda */
66084 lda = shape(a,0)a_Dims[0];
66085 /* Processing variable b */
66086 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
66087 b_Dims[1]=n;
66088 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
66089 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
66090 if (capi_b_tmp == NULL((void*)0)) {
66091 if (!PyErr_Occurred())
66092 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ctgexc to C/Fortran array" );
66093 } else {
66094 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
66095
66096 /* Processing variable ldb */
66097 ldb = shape(b,0)b_Dims[0];
66098 /* Processing variable q */
66099 capi_q_intent |= (capi_overwrite_q?0:F2PY_INTENT_COPY32);
66100 q_Dims[1]=n;
66101 capi_q_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
66102 capi_q_tmp = array_from_pyobj(NPY_CFLOAT,q_Dims,q_Rank,capi_q_intent,q_capi);
66103 if (capi_q_tmp == NULL((void*)0)) {
66104 if (!PyErr_Occurred())
66105 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `q' of _flapack.ctgexc to C/Fortran array" );
66106 } else {
66107 q = (complex_float *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data));
66108
66109 /* Processing variable ldq */
66110 ldq = shape(q,0)q_Dims[0];
66111 /* Processing variable z */
66112 capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32);
66113 z_Dims[1]=n;
66114 capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
66115 capi_z_tmp = array_from_pyobj(NPY_CFLOAT,z_Dims,z_Rank,capi_z_intent,z_capi);
66116 if (capi_z_tmp == NULL((void*)0)) {
66117 if (!PyErr_Occurred())
66118 PyErr_SetString(_flapack_error,"failed in converting 4th argument `z' of _flapack.ctgexc to C/Fortran array" );
66119 } else {
66120 z = (complex_float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
66121
66122 /* Processing variable ldz */
66123 ldz = shape(z,0)z_Dims[0];
66124/*end of frompyobj*/
66125#ifdef F2PY_REPORT_ATEXIT
66126f2py_start_call_clock();
66127#endif
66128/*callfortranroutine*/
66129 { ifst++; ilst++; (*f2py_func)(&wantq,&wantz,&n,a,&lda,b,&ldb,q,&ldq,z,&ldz,&ifst,&ilst,&info); } ;
66130 /*(*f2py_func)(&wantq,&wantz,&n,a,&lda,b,&ldb,q,&ldq,z,&ldz,&ifst,&ilst,&info);*/
66131if (PyErr_Occurred())
66132 f2py_success = 0;
66133#ifdef F2PY_REPORT_ATEXIT
66134f2py_stop_call_clock();
66135#endif
66136/*end of callfortranroutine*/
66137 if (f2py_success) {
66138/*pyobjfrom*/
66139/*end of pyobjfrom*/
66140 CFUNCSMESS("Building return value.\n");
66141 capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_b_tmp,capi_q_tmp,capi_z_tmp,info);
66142/*closepyobjfrom*/
66143/*end of closepyobjfrom*/
66144 } /*if (f2py_success) after callfortranroutine*/
66145/*cleanupfrompyobj*/
66146 /* End of cleaning variable ldz */
66147 } /*if (capi_z_tmp == NULL) ... else of z*/
66148 /* End of cleaning variable z */
66149 /* End of cleaning variable ldq */
66150 } /*if (capi_q_tmp == NULL) ... else of q*/
66151 /* End of cleaning variable q */
66152 /* End of cleaning variable ldb */
66153 } /*if (capi_b_tmp == NULL) ... else of b*/
66154 /* End of cleaning variable b */
66155 /* End of cleaning variable lda */
66156 /* End of cleaning variable n */
66157 /* End of cleaning variable info */
66158 } /*if (f2py_success) of ilst*/
66159 /* End of cleaning variable ilst */
66160 } /*if (f2py_success) of ifst*/
66161 /* End of cleaning variable ifst */
66162 } /*if (capi_a_tmp == NULL) ... else of a*/
66163 /* End of cleaning variable a */
66164 } /*CHECKSCALAR(wantz==0||wantz==1)*/
66165 /* End of cleaning variable wantz */
66166 } /*CHECKSCALAR(wantq==0||wantq==1)*/
66167 /* End of cleaning variable wantq */
66168/*end of cleanupfrompyobj*/
66169 if (capi_buildvalue == NULL((void*)0)) {
66170/*routdebugfailure*/
66171 } else {
66172/*routdebugleave*/
66173 }
66174 CFUNCSMESS("Freeing memory.\n");
66175/*freemem*/
66176#ifdef F2PY_REPORT_ATEXIT
66177f2py_stop_clock();
66178#endif
66179 return capi_buildvalue;
66180}
66181/******************************* end of ctgexc *******************************/
66182
66183/*********************************** ztgexc ***********************************/
66184static char doc_f2py_rout__flapack_ztgexc[] = "\
66185a,b,q,z,info = ztgexc(a,b,q,z,ifst,ilst,[overwrite_a,overwrite_b,overwrite_q,overwrite_z])\n\nWrapper for ``ztgexc``.\
66186\n\nParameters\n----------\n"
66187"a : input rank-2 array('D') with bounds (lda,n)\n"
66188"b : input rank-2 array('D') with bounds (ldb,n)\n"
66189"q : input rank-2 array('D') with bounds (ldq,n)\n"
66190"z : input rank-2 array('D') with bounds (ldz,n)\n"
66191"ifst : input int\n"
66192"ilst : input int\n"
66193"\nOther Parameters\n----------------\n"
66194"overwrite_a : input int, optional\n Default: 0\n"
66195"overwrite_b : input int, optional\n Default: 0\n"
66196"overwrite_q : input int, optional\n Default: 0\n"
66197"overwrite_z : input int, optional\n Default: 0\n"
66198"\nReturns\n-------\n"
66199"a : rank-2 array('D') with bounds (lda,n)\n"
66200"b : rank-2 array('D') with bounds (ldb,n)\n"
66201"q : rank-2 array('D') with bounds (ldq,n)\n"
66202"z : rank-2 array('D') with bounds (ldz,n)\n"
66203"info : int";
66204/* extern void F_FUNC(ztgexc,ZTGEXC)(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
66205static PyObject *f2py_rout__flapack_ztgexc(const PyObject *capi_self,
66206 PyObject *capi_args,
66207 PyObject *capi_keywds,
66208 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
66209 PyObject * volatile capi_buildvalue = NULL((void*)0);
66210 volatile int f2py_success = 1;
66211/*decl*/
66212
66213 int wantq = 0;
66214 int wantz = 0;
66215 int n = 0;
66216 complex_double *a = NULL((void*)0);
66217 npy_intp a_Dims[2] = {-1, -1};
66218 const int a_Rank = 2;
66219 PyArrayObject *capi_a_tmp = NULL((void*)0);
66220 int capi_a_intent = 0;
66221 int capi_overwrite_a = 0;
66222 PyObject *a_capi = Py_None(&_Py_NoneStruct);
66223 int lda = 0;
66224 complex_double *b = NULL((void*)0);
66225 npy_intp b_Dims[2] = {-1, -1};
66226 const int b_Rank = 2;
66227 PyArrayObject *capi_b_tmp = NULL((void*)0);
66228 int capi_b_intent = 0;
66229 int capi_overwrite_b = 0;
66230 PyObject *b_capi = Py_None(&_Py_NoneStruct);
66231 int ldb = 0;
66232 complex_double *q = NULL((void*)0);
66233 npy_intp q_Dims[2] = {-1, -1};
66234 const int q_Rank = 2;
66235 PyArrayObject *capi_q_tmp = NULL((void*)0);
66236 int capi_q_intent = 0;
66237 int capi_overwrite_q = 0;
66238 PyObject *q_capi = Py_None(&_Py_NoneStruct);
66239 int ldq = 0;
66240 complex_double *z = NULL((void*)0);
66241 npy_intp z_Dims[2] = {-1, -1};
66242 const int z_Rank = 2;
66243 PyArrayObject *capi_z_tmp = NULL((void*)0);
66244 int capi_z_intent = 0;
66245 int capi_overwrite_z = 0;
66246 PyObject *z_capi = Py_None(&_Py_NoneStruct);
66247 int ldz = 0;
66248 int ifst = 0;
66249 PyObject *ifst_capi = Py_None(&_Py_NoneStruct);
66250 int ilst = 0;
66251 PyObject *ilst_capi = Py_None(&_Py_NoneStruct);
66252 int info = 0;
66253 static char *capi_kwlist[] = {"a","b","q","z","ifst","ilst","overwrite_a","overwrite_b","overwrite_q","overwrite_z",NULL((void*)0)};
66254
66255/*routdebugenter*/
66256#ifdef F2PY_REPORT_ATEXIT
66257f2py_start_clock();
66258#endif
66259 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
66260 "OOOOOO|iiii:_flapack.ztgexc",\
66261 capi_kwlist,&a_capi,&b_capi,&q_capi,&z_capi,&ifst_capi,&ilst_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_q,&capi_overwrite_z))
66262 return NULL((void*)0);
66263/*frompyobj*/
66264 /* Processing variable wantq */
66265 wantq = 1;
66266 CHECKSCALAR(wantq==0||wantq==1,"wantq==0||wantq==1","hidden wantq","ztgexc:wantq=%d",wantq)if (!(wantq==0||wantq==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztgexc:wantq=%d", "(""wantq==0||wantq==1"") failed for "
"hidden wantq", wantq); PyErr_SetString(_flapack_error,errstring
); } else
{
66267 /* Processing variable wantz */
66268 wantz = 1;
66269 CHECKSCALAR(wantz==0||wantz==1,"wantz==0||wantz==1","hidden wantz","ztgexc:wantz=%d",wantz)if (!(wantz==0||wantz==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztgexc:wantz=%d", "(""wantz==0||wantz==1"") failed for "
"hidden wantz", wantz); PyErr_SetString(_flapack_error,errstring
); } else
{
66270 /* Processing variable a */
66271 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
66272 ;
66273 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
66274 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
66275 if (capi_a_tmp == NULL((void*)0)) {
66276 if (!PyErr_Occurred())
66277 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ztgexc to C/Fortran array" );
66278 } else {
66279 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
66280
66281 /* Processing variable ifst */
66282 f2py_success = int_from_pyobj(&ifst,ifst_capi,"_flapack.ztgexc() 5th argument (ifst) can't be converted to int");
66283 if (f2py_success) {
66284 /* Processing variable ilst */
66285 f2py_success = int_from_pyobj(&ilst,ilst_capi,"_flapack.ztgexc() 6th argument (ilst) can't be converted to int");
66286 if (f2py_success) {
66287 /* Processing variable info */
66288 /* Processing variable n */
66289 n = shape(a,1)a_Dims[1];
66290 /* Processing variable lda */
66291 lda = shape(a,0)a_Dims[0];
66292 /* Processing variable b */
66293 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
66294 b_Dims[1]=n;
66295 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
66296 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
66297 if (capi_b_tmp == NULL((void*)0)) {
66298 if (!PyErr_Occurred())
66299 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ztgexc to C/Fortran array" );
66300 } else {
66301 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
66302
66303 /* Processing variable ldb */
66304 ldb = shape(b,0)b_Dims[0];
66305 /* Processing variable q */
66306 capi_q_intent |= (capi_overwrite_q?0:F2PY_INTENT_COPY32);
66307 q_Dims[1]=n;
66308 capi_q_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
66309 capi_q_tmp = array_from_pyobj(NPY_CDOUBLE,q_Dims,q_Rank,capi_q_intent,q_capi);
66310 if (capi_q_tmp == NULL((void*)0)) {
66311 if (!PyErr_Occurred())
66312 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `q' of _flapack.ztgexc to C/Fortran array" );
66313 } else {
66314 q = (complex_double *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data));
66315
66316 /* Processing variable ldq */
66317 ldq = shape(q,0)q_Dims[0];
66318 /* Processing variable z */
66319 capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32);
66320 z_Dims[1]=n;
66321 capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
66322 capi_z_tmp = array_from_pyobj(NPY_CDOUBLE,z_Dims,z_Rank,capi_z_intent,z_capi);
66323 if (capi_z_tmp == NULL((void*)0)) {
66324 if (!PyErr_Occurred())
66325 PyErr_SetString(_flapack_error,"failed in converting 4th argument `z' of _flapack.ztgexc to C/Fortran array" );
66326 } else {
66327 z = (complex_double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
66328
66329 /* Processing variable ldz */
66330 ldz = shape(z,0)z_Dims[0];
66331/*end of frompyobj*/
66332#ifdef F2PY_REPORT_ATEXIT
66333f2py_start_call_clock();
66334#endif
66335/*callfortranroutine*/
66336 { ifst++; ilst++; (*f2py_func)(&wantq,&wantz,&n,a,&lda,b,&ldb,q,&ldq,z,&ldz,&ifst,&ilst,&info); } ;
66337 /*(*f2py_func)(&wantq,&wantz,&n,a,&lda,b,&ldb,q,&ldq,z,&ldz,&ifst,&ilst,&info);*/
66338if (PyErr_Occurred())
66339 f2py_success = 0;
66340#ifdef F2PY_REPORT_ATEXIT
66341f2py_stop_call_clock();
66342#endif
66343/*end of callfortranroutine*/
66344 if (f2py_success) {
66345/*pyobjfrom*/
66346/*end of pyobjfrom*/
66347 CFUNCSMESS("Building return value.\n");
66348 capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_b_tmp,capi_q_tmp,capi_z_tmp,info);
66349/*closepyobjfrom*/
66350/*end of closepyobjfrom*/
66351 } /*if (f2py_success) after callfortranroutine*/
66352/*cleanupfrompyobj*/
66353 /* End of cleaning variable ldz */
66354 } /*if (capi_z_tmp == NULL) ... else of z*/
66355 /* End of cleaning variable z */
66356 /* End of cleaning variable ldq */
66357 } /*if (capi_q_tmp == NULL) ... else of q*/
66358 /* End of cleaning variable q */
66359 /* End of cleaning variable ldb */
66360 } /*if (capi_b_tmp == NULL) ... else of b*/
66361 /* End of cleaning variable b */
66362 /* End of cleaning variable lda */
66363 /* End of cleaning variable n */
66364 /* End of cleaning variable info */
66365 } /*if (f2py_success) of ilst*/
66366 /* End of cleaning variable ilst */
66367 } /*if (f2py_success) of ifst*/
66368 /* End of cleaning variable ifst */
66369 } /*if (capi_a_tmp == NULL) ... else of a*/
66370 /* End of cleaning variable a */
66371 } /*CHECKSCALAR(wantz==0||wantz==1)*/
66372 /* End of cleaning variable wantz */
66373 } /*CHECKSCALAR(wantq==0||wantq==1)*/
66374 /* End of cleaning variable wantq */
66375/*end of cleanupfrompyobj*/
66376 if (capi_buildvalue == NULL((void*)0)) {
66377/*routdebugfailure*/
66378 } else {
66379/*routdebugleave*/
66380 }
66381 CFUNCSMESS("Freeing memory.\n");
66382/*freemem*/
66383#ifdef F2PY_REPORT_ATEXIT
66384f2py_stop_clock();
66385#endif
66386 return capi_buildvalue;
66387}
66388/******************************* end of ztgexc *******************************/
66389
66390/*********************************** stgsen ***********************************/
66391static char doc_f2py_rout__flapack_stgsen[] = "\
66392as,bs,alphar,alphai,beta,qs,zs,m,pl,pr,dif,info = stgsen(select,a,b,q,z,[ijob,wantq,wantz,lwork,liwork,overwrite_a,overwrite_b,overwrite_q,overwrite_z])\n\nWrapper for ``stgsen``.\
66393\n\nParameters\n----------\n"
66394"select : input rank-1 array('i') with bounds (n)\n"
66395"a : input rank-2 array('f') with bounds (n,n)\n"
66396"b : input rank-2 array('f') with bounds (n,n)\n"
66397"q : input rank-2 array('f') with bounds (n,n)\n"
66398"z : input rank-2 array('f') with bounds (n,n)\n"
66399"\nOther Parameters\n----------------\n"
66400"ijob : input int, optional\n Default: 4\n"
66401"wantq : input int, optional\n Default: 1\n"
66402"wantz : input int, optional\n Default: 1\n"
66403"overwrite_a : input int, optional\n Default: 0\n"
66404"overwrite_b : input int, optional\n Default: 0\n"
66405"overwrite_q : input int, optional\n Default: 0\n"
66406"overwrite_z : input int, optional\n Default: 0\n"
66407"lwork : input int, optional\n Default: 4*n+16\n"
66408"liwork : input int, optional\n Default: n+6\n"
66409"\nReturns\n-------\n"
66410"as : rank-2 array('f') with bounds (n,n) and a storage\n"
66411"bs : rank-2 array('f') with bounds (n,n) and b storage\n"
66412"alphar : rank-1 array('f') with bounds (n)\n"
66413"alphai : rank-1 array('f') with bounds (n)\n"
66414"beta : rank-1 array('f') with bounds (n)\n"
66415"qs : rank-2 array('f') with bounds (n,n) and q storage\n"
66416"zs : rank-2 array('f') with bounds (n,n) and z storage\n"
66417"m : int\n"
66418"pl : float\n"
66419"pr : float\n"
66420"dif : rank-1 array('f') with bounds (2)\n"
66421"info : int";
66422/* extern void F_FUNC(stgsen,STGSEN)(F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,float*,F_INT*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
66423static PyObject *f2py_rout__flapack_stgsen(const PyObject *capi_self,
66424 PyObject *capi_args,
66425 PyObject *capi_keywds,
66426 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
66427 PyObject * volatile capi_buildvalue = NULL((void*)0);
66428 volatile int f2py_success = 1;
66429/*decl*/
66430
66431 int ijob = 0;
66432 PyObject *ijob_capi = Py_None(&_Py_NoneStruct);
66433 int wantq = 0;
66434 PyObject *wantq_capi = Py_None(&_Py_NoneStruct);
66435 int wantz = 0;
66436 PyObject *wantz_capi = Py_None(&_Py_NoneStruct);
66437 int *select = NULL((void*)0);
66438 npy_intp select_Dims[1] = {-1};
66439 const int select_Rank = 1;
66440 PyArrayObject *capi_select_tmp = NULL((void*)0);
66441 int capi_select_intent = 0;
66442 PyObject *select_capi = Py_None(&_Py_NoneStruct);
66443 int n = 0;
66444 float *a = NULL((void*)0);
66445 npy_intp a_Dims[2] = {-1, -1};
66446 const int a_Rank = 2;
66447 PyArrayObject *capi_a_tmp = NULL((void*)0);
66448 int capi_a_intent = 0;
66449 int capi_overwrite_a = 0;
66450 PyObject *a_capi = Py_None(&_Py_NoneStruct);
66451 int lda = 0;
66452 float *b = NULL((void*)0);
66453 npy_intp b_Dims[2] = {-1, -1};
66454 const int b_Rank = 2;
66455 PyArrayObject *capi_b_tmp = NULL((void*)0);
66456 int capi_b_intent = 0;
66457 int capi_overwrite_b = 0;
66458 PyObject *b_capi = Py_None(&_Py_NoneStruct);
66459 int ldb = 0;
66460 float *alphar = NULL((void*)0);
66461 npy_intp alphar_Dims[1] = {-1};
66462 const int alphar_Rank = 1;
66463 PyArrayObject *capi_alphar_tmp = NULL((void*)0);
66464 int capi_alphar_intent = 0;
66465 float *alphai = NULL((void*)0);
66466 npy_intp alphai_Dims[1] = {-1};
66467 const int alphai_Rank = 1;
66468 PyArrayObject *capi_alphai_tmp = NULL((void*)0);
66469 int capi_alphai_intent = 0;
66470 float *beta = NULL((void*)0);
66471 npy_intp beta_Dims[1] = {-1};
66472 const int beta_Rank = 1;
66473 PyArrayObject *capi_beta_tmp = NULL((void*)0);
66474 int capi_beta_intent = 0;
66475 float *q = NULL((void*)0);
66476 npy_intp q_Dims[2] = {-1, -1};
66477 const int q_Rank = 2;
66478 PyArrayObject *capi_q_tmp = NULL((void*)0);
66479 int capi_q_intent = 0;
66480 int capi_overwrite_q = 0;
66481 PyObject *q_capi = Py_None(&_Py_NoneStruct);
66482 int ldq = 0;
66483 float *z = NULL((void*)0);
66484 npy_intp z_Dims[2] = {-1, -1};
66485 const int z_Rank = 2;
66486 PyArrayObject *capi_z_tmp = NULL((void*)0);
66487 int capi_z_intent = 0;
66488 int capi_overwrite_z = 0;
66489 PyObject *z_capi = Py_None(&_Py_NoneStruct);
66490 int ldz = 0;
66491 int m = 0;
66492 float pl = 0;
66493 float pr = 0;
66494 float *dif = NULL((void*)0);
66495 npy_intp dif_Dims[1] = {-1};
66496 const int dif_Rank = 1;
66497 PyArrayObject *capi_dif_tmp = NULL((void*)0);
66498 int capi_dif_intent = 0;
66499 float *work = NULL((void*)0);
66500 npy_intp work_Dims[1] = {-1};
66501 const int work_Rank = 1;
66502 PyArrayObject *capi_work_tmp = NULL((void*)0);
66503 int capi_work_intent = 0;
66504 int lwork = 0;
66505 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
66506 int *iwork = NULL((void*)0);
66507 npy_intp iwork_Dims[1] = {-1};
66508 const int iwork_Rank = 1;
66509 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
66510 int capi_iwork_intent = 0;
66511 int liwork = 0;
66512 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
66513 int info = 0;
66514 static char *capi_kwlist[] = {"select","a","b","q","z","ijob","wantq","wantz","lwork","liwork","overwrite_a","overwrite_b","overwrite_q","overwrite_z",NULL((void*)0)};
66515
66516/*routdebugenter*/
66517#ifdef F2PY_REPORT_ATEXIT
66518f2py_start_clock();
66519#endif
66520 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
66521 "OOOOO|OOOOOiiii:_flapack.stgsen",\
66522 capi_kwlist,&select_capi,&a_capi,&b_capi,&q_capi,&z_capi,&ijob_capi,&wantq_capi,&wantz_capi,&lwork_capi,&liwork_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_q,&capi_overwrite_z))
66523 return NULL((void*)0);
66524/*frompyobj*/
66525 /* Processing variable ijob */
66526 if (ijob_capi == Py_None(&_Py_NoneStruct)) ijob = 4; else
66527 f2py_success = int_from_pyobj(&ijob,ijob_capi,"_flapack.stgsen() 1st keyword (ijob) can't be converted to int");
66528 if (f2py_success) {
66529 CHECKSCALAR(ijob>=0&&ijob<=5,"ijob>=0&&ijob<=5","1st keyword ijob","stgsen:ijob=%d",ijob)if (!(ijob>=0&&ijob<=5)) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""stgsen:ijob=%d", "(""ijob>=0&&ijob<=5"
") failed for ""1st keyword ijob", ijob); PyErr_SetString(_flapack_error
,errstring); } else
{
66530 /* Processing variable wantq */
66531 if (wantq_capi == Py_None(&_Py_NoneStruct)) wantq = 1; else
66532 wantq = (int)PyObject_IsTrue(wantq_capi);
66533 f2py_success = 1;
66534 if (f2py_success) {
66535 CHECKSCALAR(wantq==0||wantq==1,"wantq==0||wantq==1","2nd keyword wantq","stgsen:wantq=%d",wantq)if (!(wantq==0||wantq==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stgsen:wantq=%d", "(""wantq==0||wantq==1"") failed for "
"2nd keyword wantq", wantq); PyErr_SetString(_flapack_error,errstring
); } else
{
66536 /* Processing variable wantz */
66537 if (wantz_capi == Py_None(&_Py_NoneStruct)) wantz = 1; else
66538 wantz = (int)PyObject_IsTrue(wantz_capi);
66539 f2py_success = 1;
66540 if (f2py_success) {
66541 CHECKSCALAR(wantz==0||wantz==1,"wantz==0||wantz==1","3rd keyword wantz","stgsen:wantz=%d",wantz)if (!(wantz==0||wantz==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stgsen:wantz=%d", "(""wantz==0||wantz==1"") failed for "
"3rd keyword wantz", wantz); PyErr_SetString(_flapack_error,errstring
); } else
{
66542 /* Processing variable a */
66543 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
66544 ;
66545 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
66546 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
66547 if (capi_a_tmp == NULL((void*)0)) {
66548 if (!PyErr_Occurred())
66549 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.stgsen to C/Fortran array" );
66550 } else {
66551 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
66552
66553 /* Processing variable m */
66554 /* Processing variable pl */
66555 /* Processing variable pr */
66556 /* Processing variable dif */
66557 dif_Dims[0]=2;
66558 capi_dif_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
66559 capi_dif_tmp = array_from_pyobj(NPY_FLOAT,dif_Dims,dif_Rank,capi_dif_intent,Py_None(&_Py_NoneStruct));
66560 if (capi_dif_tmp == NULL((void*)0)) {
66561 if (!PyErr_Occurred())
66562 PyErr_SetString(_flapack_error,"failed in converting hidden `dif' of _flapack.stgsen to C/Fortran array" );
66563 } else {
66564 dif = (float *)(PyArray_DATA(capi_dif_tmp)((void *)((PyArrayObject_fields *)(capi_dif_tmp))->data));
66565
66566 /* Processing variable info */
66567 /* Processing variable n */
66568 n = shape(a,0)a_Dims[0];
66569 /* Processing variable lda */
66570 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
66571 /* Processing variable b */
66572 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
66573 b_Dims[0]=n,b_Dims[1]=n;
66574 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
66575 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
66576 if (capi_b_tmp == NULL((void*)0)) {
66577 if (!PyErr_Occurred())
66578 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.stgsen to C/Fortran array" );
66579 } else {
66580 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
66581
66582 /* Processing variable ldb */
66583 ldb = MAX(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
66584 /* Processing variable alphar */
66585 alphar_Dims[0]=n;
66586 capi_alphar_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
66587 capi_alphar_tmp = array_from_pyobj(NPY_FLOAT,alphar_Dims,alphar_Rank,capi_alphar_intent,Py_None(&_Py_NoneStruct));
66588 if (capi_alphar_tmp == NULL((void*)0)) {
66589 if (!PyErr_Occurred())
66590 PyErr_SetString(_flapack_error,"failed in converting hidden `alphar' of _flapack.stgsen to C/Fortran array" );
66591 } else {
66592 alphar = (float *)(PyArray_DATA(capi_alphar_tmp)((void *)((PyArrayObject_fields *)(capi_alphar_tmp))->data
)
);
66593
66594 /* Processing variable alphai */
66595 alphai_Dims[0]=n;
66596 capi_alphai_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
66597 capi_alphai_tmp = array_from_pyobj(NPY_FLOAT,alphai_Dims,alphai_Rank,capi_alphai_intent,Py_None(&_Py_NoneStruct));
66598 if (capi_alphai_tmp == NULL((void*)0)) {
66599 if (!PyErr_Occurred())
66600 PyErr_SetString(_flapack_error,"failed in converting hidden `alphai' of _flapack.stgsen to C/Fortran array" );
66601 } else {
66602 alphai = (float *)(PyArray_DATA(capi_alphai_tmp)((void *)((PyArrayObject_fields *)(capi_alphai_tmp))->data
)
);
66603
66604 /* Processing variable beta */
66605 beta_Dims[0]=n;
66606 capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
66607 capi_beta_tmp = array_from_pyobj(NPY_FLOAT,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct));
66608 if (capi_beta_tmp == NULL((void*)0)) {
66609 if (!PyErr_Occurred())
66610 PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.stgsen to C/Fortran array" );
66611 } else {
66612 beta = (float *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data));
66613
66614 /* Processing variable q */
66615 capi_q_intent |= (capi_overwrite_q?0:F2PY_INTENT_COPY32);
66616 q_Dims[0]=n,q_Dims[1]=n;
66617 capi_q_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
66618 capi_q_tmp = array_from_pyobj(NPY_FLOAT,q_Dims,q_Rank,capi_q_intent,q_capi);
66619 if (capi_q_tmp == NULL((void*)0)) {
66620 if (!PyErr_Occurred())
66621 PyErr_SetString(_flapack_error,"failed in converting 4th argument `q' of _flapack.stgsen to C/Fortran array" );
66622 } else {
66623 q = (float *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data));
66624
66625 /* Processing variable ldq */
66626 ldq = MAX(1,shape(q,0))((1 > q_Dims[0]) ? (1) : (q_Dims[0]));
66627 /* Processing variable z */
66628 capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32);
66629 z_Dims[0]=n,z_Dims[1]=n;
66630 capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
66631 capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,z_capi);
66632 if (capi_z_tmp == NULL((void*)0)) {
66633 if (!PyErr_Occurred())
66634 PyErr_SetString(_flapack_error,"failed in converting 5th argument `z' of _flapack.stgsen to C/Fortran array" );
66635 } else {
66636 z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
66637
66638 /* Processing variable ldz */
66639 ldz = MAX(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0]));
66640 /* Processing variable lwork */
66641 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = 4*n+16; else
66642 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.stgsen() 4th keyword (lwork) can't be converted to int");
66643 if (f2py_success) {
66644 CHECKSCALAR(lwork == -1 || lwork >= 1,"lwork == -1 || lwork >= 1","4th keyword lwork","stgsen:lwork=%d",lwork)if (!(lwork == -1 || lwork >= 1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stgsen:lwork=%d", "(""lwork == -1 || lwork >= 1"
") failed for ""4th keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
66645 /* Processing variable liwork */
66646 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = n+6; else
66647 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.stgsen() 5th keyword (liwork) can't be converted to int");
66648 if (f2py_success) {
66649 CHECKSCALAR(liwork == -1 || liwork >= 1,"liwork == -1 || liwork >= 1","5th keyword liwork","stgsen:liwork=%d",liwork)if (!(liwork == -1 || liwork >= 1)) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""stgsen:liwork=%d", "(""liwork == -1 || liwork >= 1"
") failed for ""5th keyword liwork", liwork); PyErr_SetString
(_flapack_error,errstring); } else
{
66650 /* Processing variable select */
66651 select_Dims[0]=n;
66652 capi_select_intent |= F2PY_INTENT_IN1;
66653 capi_select_tmp = array_from_pyobj(NPY_INT,select_Dims,select_Rank,capi_select_intent,select_capi);
66654 if (capi_select_tmp == NULL((void*)0)) {
66655 if (!PyErr_Occurred())
66656 PyErr_SetString(_flapack_error,"failed in converting 1st argument `select' of _flapack.stgsen to C/Fortran array" );
66657 } else {
66658 select = (int *)(PyArray_DATA(capi_select_tmp)((void *)((PyArrayObject_fields *)(capi_select_tmp))->data
)
);
66659
66660 /* Processing variable work */
66661 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
66662 capi_work_intent |= F2PY_INTENT_HIDE8;
66663 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
66664 if (capi_work_tmp == NULL((void*)0)) {
66665 if (!PyErr_Occurred())
66666 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.stgsen to C/Fortran array" );
66667 } else {
66668 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
66669
66670 /* Processing variable iwork */
66671 iwork_Dims[0]=MAX(1,liwork)((1 > liwork) ? (1) : (liwork));
66672 capi_iwork_intent |= F2PY_INTENT_HIDE8;
66673 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
66674 if (capi_iwork_tmp == NULL((void*)0)) {
66675 if (!PyErr_Occurred())
66676 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.stgsen to C/Fortran array" );
66677 } else {
66678 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
66679
66680/*end of frompyobj*/
66681#ifdef F2PY_REPORT_ATEXIT
66682f2py_start_call_clock();
66683#endif
66684/*callfortranroutine*/
66685 (*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alphar,alphai,beta,q,&ldq,z,&ldz,&m,&pl,&pr,dif,work,&lwork,iwork,&liwork,&info) ;
66686 /*(*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alphar,alphai,beta,q,&ldq,z,&ldz,&m,&pl,&pr,dif,work,&lwork,iwork,&liwork,&info);*/
66687if (PyErr_Occurred())
66688 f2py_success = 0;
66689#ifdef F2PY_REPORT_ATEXIT
66690f2py_stop_call_clock();
66691#endif
66692/*end of callfortranroutine*/
66693 if (f2py_success) {
66694/*pyobjfrom*/
66695/*end of pyobjfrom*/
66696 CFUNCSMESS("Building return value.\n");
66697 capi_buildvalue = Py_BuildValue("NNNNNNNiffNi",capi_a_tmp,capi_b_tmp,capi_alphar_tmp,capi_alphai_tmp,capi_beta_tmp,capi_q_tmp,capi_z_tmp,m,pl,pr,capi_dif_tmp,info);
66698/*closepyobjfrom*/
66699/*end of closepyobjfrom*/
66700 } /*if (f2py_success) after callfortranroutine*/
66701/*cleanupfrompyobj*/
66702 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
66703 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
66704 /* End of cleaning variable iwork */
66705 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
66706 } /*if (capi_work_tmp == NULL) ... else of work*/
66707 /* End of cleaning variable work */
66708 if((PyObject *)capi_select_tmp!=select_capi) {
66709 Py_XDECREF(capi_select_tmp)_Py_XDECREF(((PyObject*)(capi_select_tmp))); }
66710 } /*if (capi_select_tmp == NULL) ... else of select*/
66711 /* End of cleaning variable select */
66712 } /*CHECKSCALAR(liwork == -1 || liwork >= 1)*/
66713 } /*if (f2py_success) of liwork*/
66714 /* End of cleaning variable liwork */
66715 } /*CHECKSCALAR(lwork == -1 || lwork >= 1)*/
66716 } /*if (f2py_success) of lwork*/
66717 /* End of cleaning variable lwork */
66718 /* End of cleaning variable ldz */
66719 } /*if (capi_z_tmp == NULL) ... else of z*/
66720 /* End of cleaning variable z */
66721 /* End of cleaning variable ldq */
66722 } /*if (capi_q_tmp == NULL) ... else of q*/
66723 /* End of cleaning variable q */
66724 } /*if (capi_beta_tmp == NULL) ... else of beta*/
66725 /* End of cleaning variable beta */
66726 } /*if (capi_alphai_tmp == NULL) ... else of alphai*/
66727 /* End of cleaning variable alphai */
66728 } /*if (capi_alphar_tmp == NULL) ... else of alphar*/
66729 /* End of cleaning variable alphar */
66730 /* End of cleaning variable ldb */
66731 } /*if (capi_b_tmp == NULL) ... else of b*/
66732 /* End of cleaning variable b */
66733 /* End of cleaning variable lda */
66734 /* End of cleaning variable n */
66735 /* End of cleaning variable info */
66736 } /*if (capi_dif_tmp == NULL) ... else of dif*/
66737 /* End of cleaning variable dif */
66738 /* End of cleaning variable pr */
66739 /* End of cleaning variable pl */
66740 /* End of cleaning variable m */
66741 } /*if (capi_a_tmp == NULL) ... else of a*/
66742 /* End of cleaning variable a */
66743 } /*CHECKSCALAR(wantz==0||wantz==1)*/
66744 } /*if (f2py_success) of wantz*/
66745 /* End of cleaning variable wantz */
66746 } /*CHECKSCALAR(wantq==0||wantq==1)*/
66747 } /*if (f2py_success) of wantq*/
66748 /* End of cleaning variable wantq */
66749 } /*CHECKSCALAR(ijob>=0&&ijob<=5)*/
66750 } /*if (f2py_success) of ijob*/
66751 /* End of cleaning variable ijob */
66752/*end of cleanupfrompyobj*/
66753 if (capi_buildvalue == NULL((void*)0)) {
66754/*routdebugfailure*/
66755 } else {
66756/*routdebugleave*/
66757 }
66758 CFUNCSMESS("Freeing memory.\n");
66759/*freemem*/
66760#ifdef F2PY_REPORT_ATEXIT
66761f2py_stop_clock();
66762#endif
66763 return capi_buildvalue;
66764}
66765/******************************* end of stgsen *******************************/
66766
66767/*********************************** dtgsen ***********************************/
66768static char doc_f2py_rout__flapack_dtgsen[] = "\
66769as,bs,alphar,alphai,beta,qs,zs,m,pl,pr,dif,info = dtgsen(select,a,b,q,z,[ijob,wantq,wantz,lwork,liwork,overwrite_a,overwrite_b,overwrite_q,overwrite_z])\n\nWrapper for ``dtgsen``.\
66770\n\nParameters\n----------\n"
66771"select : input rank-1 array('i') with bounds (n)\n"
66772"a : input rank-2 array('d') with bounds (n,n)\n"
66773"b : input rank-2 array('d') with bounds (n,n)\n"
66774"q : input rank-2 array('d') with bounds (n,n)\n"
66775"z : input rank-2 array('d') with bounds (n,n)\n"
66776"\nOther Parameters\n----------------\n"
66777"ijob : input int, optional\n Default: 4\n"
66778"wantq : input int, optional\n Default: 1\n"
66779"wantz : input int, optional\n Default: 1\n"
66780"overwrite_a : input int, optional\n Default: 0\n"
66781"overwrite_b : input int, optional\n Default: 0\n"
66782"overwrite_q : input int, optional\n Default: 0\n"
66783"overwrite_z : input int, optional\n Default: 0\n"
66784"lwork : input int, optional\n Default: 4*n+16\n"
66785"liwork : input int, optional\n Default: n+6\n"
66786"\nReturns\n-------\n"
66787"as : rank-2 array('d') with bounds (n,n) and a storage\n"
66788"bs : rank-2 array('d') with bounds (n,n) and b storage\n"
66789"alphar : rank-1 array('d') with bounds (n)\n"
66790"alphai : rank-1 array('d') with bounds (n)\n"
66791"beta : rank-1 array('d') with bounds (n)\n"
66792"qs : rank-2 array('d') with bounds (n,n) and q storage\n"
66793"zs : rank-2 array('d') with bounds (n,n) and z storage\n"
66794"m : int\n"
66795"pl : float\n"
66796"pr : float\n"
66797"dif : rank-1 array('d') with bounds (2)\n"
66798"info : int";
66799/* extern void F_FUNC(dtgsen,DTGSEN)(F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,double*,F_INT*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
66800static PyObject *f2py_rout__flapack_dtgsen(const PyObject *capi_self,
66801 PyObject *capi_args,
66802 PyObject *capi_keywds,
66803 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
66804 PyObject * volatile capi_buildvalue = NULL((void*)0);
66805 volatile int f2py_success = 1;
66806/*decl*/
66807
66808 int ijob = 0;
66809 PyObject *ijob_capi = Py_None(&_Py_NoneStruct);
66810 int wantq = 0;
66811 PyObject *wantq_capi = Py_None(&_Py_NoneStruct);
66812 int wantz = 0;
66813 PyObject *wantz_capi = Py_None(&_Py_NoneStruct);
66814 int *select = NULL((void*)0);
66815 npy_intp select_Dims[1] = {-1};
66816 const int select_Rank = 1;
66817 PyArrayObject *capi_select_tmp = NULL((void*)0);
66818 int capi_select_intent = 0;
66819 PyObject *select_capi = Py_None(&_Py_NoneStruct);
66820 int n = 0;
66821 double *a = NULL((void*)0);
66822 npy_intp a_Dims[2] = {-1, -1};
66823 const int a_Rank = 2;
66824 PyArrayObject *capi_a_tmp = NULL((void*)0);
66825 int capi_a_intent = 0;
66826 int capi_overwrite_a = 0;
66827 PyObject *a_capi = Py_None(&_Py_NoneStruct);
66828 int lda = 0;
66829 double *b = NULL((void*)0);
66830 npy_intp b_Dims[2] = {-1, -1};
66831 const int b_Rank = 2;
66832 PyArrayObject *capi_b_tmp = NULL((void*)0);
66833 int capi_b_intent = 0;
66834 int capi_overwrite_b = 0;
66835 PyObject *b_capi = Py_None(&_Py_NoneStruct);
66836 int ldb = 0;
66837 double *alphar = NULL((void*)0);
66838 npy_intp alphar_Dims[1] = {-1};
66839 const int alphar_Rank = 1;
66840 PyArrayObject *capi_alphar_tmp = NULL((void*)0);
66841 int capi_alphar_intent = 0;
66842 double *alphai = NULL((void*)0);
66843 npy_intp alphai_Dims[1] = {-1};
66844 const int alphai_Rank = 1;
66845 PyArrayObject *capi_alphai_tmp = NULL((void*)0);
66846 int capi_alphai_intent = 0;
66847 double *beta = NULL((void*)0);
66848 npy_intp beta_Dims[1] = {-1};
66849 const int beta_Rank = 1;
66850 PyArrayObject *capi_beta_tmp = NULL((void*)0);
66851 int capi_beta_intent = 0;
66852 double *q = NULL((void*)0);
66853 npy_intp q_Dims[2] = {-1, -1};
66854 const int q_Rank = 2;
66855 PyArrayObject *capi_q_tmp = NULL((void*)0);
66856 int capi_q_intent = 0;
66857 int capi_overwrite_q = 0;
66858 PyObject *q_capi = Py_None(&_Py_NoneStruct);
66859 int ldq = 0;
66860 double *z = NULL((void*)0);
66861 npy_intp z_Dims[2] = {-1, -1};
66862 const int z_Rank = 2;
66863 PyArrayObject *capi_z_tmp = NULL((void*)0);
66864 int capi_z_intent = 0;
66865 int capi_overwrite_z = 0;
66866 PyObject *z_capi = Py_None(&_Py_NoneStruct);
66867 int ldz = 0;
66868 int m = 0;
66869 double pl = 0;
66870 double pr = 0;
66871 double *dif = NULL((void*)0);
66872 npy_intp dif_Dims[1] = {-1};
66873 const int dif_Rank = 1;
66874 PyArrayObject *capi_dif_tmp = NULL((void*)0);
66875 int capi_dif_intent = 0;
66876 double *work = NULL((void*)0);
66877 npy_intp work_Dims[1] = {-1};
66878 const int work_Rank = 1;
66879 PyArrayObject *capi_work_tmp = NULL((void*)0);
66880 int capi_work_intent = 0;
66881 int lwork = 0;
66882 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
66883 int *iwork = NULL((void*)0);
66884 npy_intp iwork_Dims[1] = {-1};
66885 const int iwork_Rank = 1;
66886 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
66887 int capi_iwork_intent = 0;
66888 int liwork = 0;
66889 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
66890 int info = 0;
66891 static char *capi_kwlist[] = {"select","a","b","q","z","ijob","wantq","wantz","lwork","liwork","overwrite_a","overwrite_b","overwrite_q","overwrite_z",NULL((void*)0)};
66892
66893/*routdebugenter*/
66894#ifdef F2PY_REPORT_ATEXIT
66895f2py_start_clock();
66896#endif
66897 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
66898 "OOOOO|OOOOOiiii:_flapack.dtgsen",\
66899 capi_kwlist,&select_capi,&a_capi,&b_capi,&q_capi,&z_capi,&ijob_capi,&wantq_capi,&wantz_capi,&lwork_capi,&liwork_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_q,&capi_overwrite_z))
66900 return NULL((void*)0);
66901/*frompyobj*/
66902 /* Processing variable ijob */
66903 if (ijob_capi == Py_None(&_Py_NoneStruct)) ijob = 4; else
66904 f2py_success = int_from_pyobj(&ijob,ijob_capi,"_flapack.dtgsen() 1st keyword (ijob) can't be converted to int");
66905 if (f2py_success) {
66906 CHECKSCALAR(ijob>=0&&ijob<=5,"ijob>=0&&ijob<=5","1st keyword ijob","dtgsen:ijob=%d",ijob)if (!(ijob>=0&&ijob<=5)) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dtgsen:ijob=%d", "(""ijob>=0&&ijob<=5"
") failed for ""1st keyword ijob", ijob); PyErr_SetString(_flapack_error
,errstring); } else
{
66907 /* Processing variable wantq */
66908 if (wantq_capi == Py_None(&_Py_NoneStruct)) wantq = 1; else
66909 wantq = (int)PyObject_IsTrue(wantq_capi);
66910 f2py_success = 1;
66911 if (f2py_success) {
66912 CHECKSCALAR(wantq==0||wantq==1,"wantq==0||wantq==1","2nd keyword wantq","dtgsen:wantq=%d",wantq)if (!(wantq==0||wantq==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtgsen:wantq=%d", "(""wantq==0||wantq==1"") failed for "
"2nd keyword wantq", wantq); PyErr_SetString(_flapack_error,errstring
); } else
{
66913 /* Processing variable wantz */
66914 if (wantz_capi == Py_None(&_Py_NoneStruct)) wantz = 1; else
66915 wantz = (int)PyObject_IsTrue(wantz_capi);
66916 f2py_success = 1;
66917 if (f2py_success) {
66918 CHECKSCALAR(wantz==0||wantz==1,"wantz==0||wantz==1","3rd keyword wantz","dtgsen:wantz=%d",wantz)if (!(wantz==0||wantz==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtgsen:wantz=%d", "(""wantz==0||wantz==1"") failed for "
"3rd keyword wantz", wantz); PyErr_SetString(_flapack_error,errstring
); } else
{
66919 /* Processing variable a */
66920 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
66921 ;
66922 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
66923 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
66924 if (capi_a_tmp == NULL((void*)0)) {
66925 if (!PyErr_Occurred())
66926 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.dtgsen to C/Fortran array" );
66927 } else {
66928 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
66929
66930 /* Processing variable m */
66931 /* Processing variable pl */
66932 /* Processing variable pr */
66933 /* Processing variable dif */
66934 dif_Dims[0]=2;
66935 capi_dif_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
66936 capi_dif_tmp = array_from_pyobj(NPY_DOUBLE,dif_Dims,dif_Rank,capi_dif_intent,Py_None(&_Py_NoneStruct));
66937 if (capi_dif_tmp == NULL((void*)0)) {
66938 if (!PyErr_Occurred())
66939 PyErr_SetString(_flapack_error,"failed in converting hidden `dif' of _flapack.dtgsen to C/Fortran array" );
66940 } else {
66941 dif = (double *)(PyArray_DATA(capi_dif_tmp)((void *)((PyArrayObject_fields *)(capi_dif_tmp))->data));
66942
66943 /* Processing variable info */
66944 /* Processing variable n */
66945 n = shape(a,0)a_Dims[0];
66946 /* Processing variable lda */
66947 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
66948 /* Processing variable b */
66949 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
66950 b_Dims[0]=n,b_Dims[1]=n;
66951 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
66952 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
66953 if (capi_b_tmp == NULL((void*)0)) {
66954 if (!PyErr_Occurred())
66955 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.dtgsen to C/Fortran array" );
66956 } else {
66957 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
66958
66959 /* Processing variable ldb */
66960 ldb = MAX(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
66961 /* Processing variable alphar */
66962 alphar_Dims[0]=n;
66963 capi_alphar_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
66964 capi_alphar_tmp = array_from_pyobj(NPY_DOUBLE,alphar_Dims,alphar_Rank,capi_alphar_intent,Py_None(&_Py_NoneStruct));
66965 if (capi_alphar_tmp == NULL((void*)0)) {
66966 if (!PyErr_Occurred())
66967 PyErr_SetString(_flapack_error,"failed in converting hidden `alphar' of _flapack.dtgsen to C/Fortran array" );
66968 } else {
66969 alphar = (double *)(PyArray_DATA(capi_alphar_tmp)((void *)((PyArrayObject_fields *)(capi_alphar_tmp))->data
)
);
66970
66971 /* Processing variable alphai */
66972 alphai_Dims[0]=n;
66973 capi_alphai_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
66974 capi_alphai_tmp = array_from_pyobj(NPY_DOUBLE,alphai_Dims,alphai_Rank,capi_alphai_intent,Py_None(&_Py_NoneStruct));
66975 if (capi_alphai_tmp == NULL((void*)0)) {
66976 if (!PyErr_Occurred())
66977 PyErr_SetString(_flapack_error,"failed in converting hidden `alphai' of _flapack.dtgsen to C/Fortran array" );
66978 } else {
66979 alphai = (double *)(PyArray_DATA(capi_alphai_tmp)((void *)((PyArrayObject_fields *)(capi_alphai_tmp))->data
)
);
66980
66981 /* Processing variable beta */
66982 beta_Dims[0]=n;
66983 capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
66984 capi_beta_tmp = array_from_pyobj(NPY_DOUBLE,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct));
66985 if (capi_beta_tmp == NULL((void*)0)) {
66986 if (!PyErr_Occurred())
66987 PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.dtgsen to C/Fortran array" );
66988 } else {
66989 beta = (double *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data));
66990
66991 /* Processing variable q */
66992 capi_q_intent |= (capi_overwrite_q?0:F2PY_INTENT_COPY32);
66993 q_Dims[0]=n,q_Dims[1]=n;
66994 capi_q_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
66995 capi_q_tmp = array_from_pyobj(NPY_DOUBLE,q_Dims,q_Rank,capi_q_intent,q_capi);
66996 if (capi_q_tmp == NULL((void*)0)) {
66997 if (!PyErr_Occurred())
66998 PyErr_SetString(_flapack_error,"failed in converting 4th argument `q' of _flapack.dtgsen to C/Fortran array" );
66999 } else {
67000 q = (double *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data));
67001
67002 /* Processing variable ldq */
67003 ldq = MAX(1,shape(q,0))((1 > q_Dims[0]) ? (1) : (q_Dims[0]));
67004 /* Processing variable z */
67005 capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32);
67006 z_Dims[0]=n,z_Dims[1]=n;
67007 capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
67008 capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,z_capi);
67009 if (capi_z_tmp == NULL((void*)0)) {
67010 if (!PyErr_Occurred())
67011 PyErr_SetString(_flapack_error,"failed in converting 5th argument `z' of _flapack.dtgsen to C/Fortran array" );
67012 } else {
67013 z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
67014
67015 /* Processing variable ldz */
67016 ldz = MAX(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0]));
67017 /* Processing variable lwork */
67018 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = 4*n+16; else
67019 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dtgsen() 4th keyword (lwork) can't be converted to int");
67020 if (f2py_success) {
67021 CHECKSCALAR(lwork == -1 || lwork >= 1,"lwork == -1 || lwork >= 1","4th keyword lwork","dtgsen:lwork=%d",lwork)if (!(lwork == -1 || lwork >= 1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtgsen:lwork=%d", "(""lwork == -1 || lwork >= 1"
") failed for ""4th keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
67022 /* Processing variable liwork */
67023 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = n+6; else
67024 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.dtgsen() 5th keyword (liwork) can't be converted to int");
67025 if (f2py_success) {
67026 CHECKSCALAR(liwork == -1 || liwork >= 1,"liwork == -1 || liwork >= 1","5th keyword liwork","dtgsen:liwork=%d",liwork)if (!(liwork == -1 || liwork >= 1)) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dtgsen:liwork=%d", "(""liwork == -1 || liwork >= 1"
") failed for ""5th keyword liwork", liwork); PyErr_SetString
(_flapack_error,errstring); } else
{
67027 /* Processing variable select */
67028 select_Dims[0]=n;
67029 capi_select_intent |= F2PY_INTENT_IN1;
67030 capi_select_tmp = array_from_pyobj(NPY_INT,select_Dims,select_Rank,capi_select_intent,select_capi);
67031 if (capi_select_tmp == NULL((void*)0)) {
67032 if (!PyErr_Occurred())
67033 PyErr_SetString(_flapack_error,"failed in converting 1st argument `select' of _flapack.dtgsen to C/Fortran array" );
67034 } else {
67035 select = (int *)(PyArray_DATA(capi_select_tmp)((void *)((PyArrayObject_fields *)(capi_select_tmp))->data
)
);
67036
67037 /* Processing variable work */
67038 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
67039 capi_work_intent |= F2PY_INTENT_HIDE8;
67040 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
67041 if (capi_work_tmp == NULL((void*)0)) {
67042 if (!PyErr_Occurred())
67043 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dtgsen to C/Fortran array" );
67044 } else {
67045 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
67046
67047 /* Processing variable iwork */
67048 iwork_Dims[0]=MAX(1,liwork)((1 > liwork) ? (1) : (liwork));
67049 capi_iwork_intent |= F2PY_INTENT_HIDE8;
67050 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
67051 if (capi_iwork_tmp == NULL((void*)0)) {
67052 if (!PyErr_Occurred())
67053 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dtgsen to C/Fortran array" );
67054 } else {
67055 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
67056
67057/*end of frompyobj*/
67058#ifdef F2PY_REPORT_ATEXIT
67059f2py_start_call_clock();
67060#endif
67061/*callfortranroutine*/
67062 (*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alphar,alphai,beta,q,&ldq,z,&ldz,&m,&pl,&pr,dif,work,&lwork,iwork,&liwork,&info) ;
67063 /*(*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alphar,alphai,beta,q,&ldq,z,&ldz,&m,&pl,&pr,dif,work,&lwork,iwork,&liwork,&info);*/
67064if (PyErr_Occurred())
67065 f2py_success = 0;
67066#ifdef F2PY_REPORT_ATEXIT
67067f2py_stop_call_clock();
67068#endif
67069/*end of callfortranroutine*/
67070 if (f2py_success) {
67071/*pyobjfrom*/
67072/*end of pyobjfrom*/
67073 CFUNCSMESS("Building return value.\n");
67074 capi_buildvalue = Py_BuildValue("NNNNNNNiddNi",capi_a_tmp,capi_b_tmp,capi_alphar_tmp,capi_alphai_tmp,capi_beta_tmp,capi_q_tmp,capi_z_tmp,m,pl,pr,capi_dif_tmp,info);
67075/*closepyobjfrom*/
67076/*end of closepyobjfrom*/
67077 } /*if (f2py_success) after callfortranroutine*/
67078/*cleanupfrompyobj*/
67079 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
67080 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
67081 /* End of cleaning variable iwork */
67082 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
67083 } /*if (capi_work_tmp == NULL) ... else of work*/
67084 /* End of cleaning variable work */
67085 if((PyObject *)capi_select_tmp!=select_capi) {
67086 Py_XDECREF(capi_select_tmp)_Py_XDECREF(((PyObject*)(capi_select_tmp))); }
67087 } /*if (capi_select_tmp == NULL) ... else of select*/
67088 /* End of cleaning variable select */
67089 } /*CHECKSCALAR(liwork == -1 || liwork >= 1)*/
67090 } /*if (f2py_success) of liwork*/
67091 /* End of cleaning variable liwork */
67092 } /*CHECKSCALAR(lwork == -1 || lwork >= 1)*/
67093 } /*if (f2py_success) of lwork*/
67094 /* End of cleaning variable lwork */
67095 /* End of cleaning variable ldz */
67096 } /*if (capi_z_tmp == NULL) ... else of z*/
67097 /* End of cleaning variable z */
67098 /* End of cleaning variable ldq */
67099 } /*if (capi_q_tmp == NULL) ... else of q*/
67100 /* End of cleaning variable q */
67101 } /*if (capi_beta_tmp == NULL) ... else of beta*/
67102 /* End of cleaning variable beta */
67103 } /*if (capi_alphai_tmp == NULL) ... else of alphai*/
67104 /* End of cleaning variable alphai */
67105 } /*if (capi_alphar_tmp == NULL) ... else of alphar*/
67106 /* End of cleaning variable alphar */
67107 /* End of cleaning variable ldb */
67108 } /*if (capi_b_tmp == NULL) ... else of b*/
67109 /* End of cleaning variable b */
67110 /* End of cleaning variable lda */
67111 /* End of cleaning variable n */
67112 /* End of cleaning variable info */
67113 } /*if (capi_dif_tmp == NULL) ... else of dif*/
67114 /* End of cleaning variable dif */
67115 /* End of cleaning variable pr */
67116 /* End of cleaning variable pl */
67117 /* End of cleaning variable m */
67118 } /*if (capi_a_tmp == NULL) ... else of a*/
67119 /* End of cleaning variable a */
67120 } /*CHECKSCALAR(wantz==0||wantz==1)*/
67121 } /*if (f2py_success) of wantz*/
67122 /* End of cleaning variable wantz */
67123 } /*CHECKSCALAR(wantq==0||wantq==1)*/
67124 } /*if (f2py_success) of wantq*/
67125 /* End of cleaning variable wantq */
67126 } /*CHECKSCALAR(ijob>=0&&ijob<=5)*/
67127 } /*if (f2py_success) of ijob*/
67128 /* End of cleaning variable ijob */
67129/*end of cleanupfrompyobj*/
67130 if (capi_buildvalue == NULL((void*)0)) {
67131/*routdebugfailure*/
67132 } else {
67133/*routdebugleave*/
67134 }
67135 CFUNCSMESS("Freeing memory.\n");
67136/*freemem*/
67137#ifdef F2PY_REPORT_ATEXIT
67138f2py_stop_clock();
67139#endif
67140 return capi_buildvalue;
67141}
67142/******************************* end of dtgsen *******************************/
67143
67144/******************************** stgsen_lwork ********************************/
67145static char doc_f2py_rout__flapack_stgsen_lwork[] = "\
67146work,iwork,info = stgsen_lwork(select,a,[ijob])\n\nWrapper for ``stgsen_lwork``.\
67147\n\nParameters\n----------\n"
67148"select : input rank-1 array('i') with bounds (n)\n"
67149"a : input rank-2 array('f') with bounds (n,n)\n"
67150"\nOther Parameters\n----------------\n"
67151"ijob : input int, optional\n Default: 4\n"
67152"\nReturns\n-------\n"
67153"work : float\n"
67154"iwork : int\n"
67155"info : int";
67156/* extern void F_FUNC(stgsen ,STGSEN )(F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,float*,F_INT*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
67157static PyObject *f2py_rout__flapack_stgsen_lwork(const PyObject *capi_self,
67158 PyObject *capi_args,
67159 PyObject *capi_keywds,
67160 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
67161 PyObject * volatile capi_buildvalue = NULL((void*)0);
67162 volatile int f2py_success = 1;
67163/*decl*/
67164
67165 int ijob = 0;
67166 PyObject *ijob_capi = Py_None(&_Py_NoneStruct);
67167 int wantq = 0;
67168 int wantz = 0;
67169 int *select = NULL((void*)0);
67170 npy_intp select_Dims[1] = {-1};
67171 const int select_Rank = 1;
67172 PyArrayObject *capi_select_tmp = NULL((void*)0);
67173 int capi_select_intent = 0;
67174 PyObject *select_capi = Py_None(&_Py_NoneStruct);
67175 int n = 0;
67176 float *a = NULL((void*)0);
67177 npy_intp a_Dims[2] = {-1, -1};
67178 const int a_Rank = 2;
67179 PyArrayObject *capi_a_tmp = NULL((void*)0);
67180 int capi_a_intent = 0;
67181 PyObject *a_capi = Py_None(&_Py_NoneStruct);
67182 int lda = 0;
67183 float b = 0;
67184 int ldb = 0;
67185 float alphar = 0;
67186 float alphai = 0;
67187 float beta = 0;
67188 float q = 0;
67189 int ldq = 0;
67190 float z = 0;
67191 int ldz = 0;
67192 int m = 0;
67193 float pl = 0;
67194 float pr = 0;
67195 float dif = 0;
67196 float work = 0;
67197 int lwork = 0;
67198 int iwork = 0;
67199 int liwork = 0;
67200 int info = 0;
67201 static char *capi_kwlist[] = {"select","a","ijob",NULL((void*)0)};
67202
67203/*routdebugenter*/
67204#ifdef F2PY_REPORT_ATEXIT
67205f2py_start_clock();
67206#endif
67207 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
67208 "OO|O:_flapack.stgsen_lwork",\
67209 capi_kwlist,&select_capi,&a_capi,&ijob_capi))
67210 return NULL((void*)0);
67211/*frompyobj*/
67212 /* Processing variable ijob */
67213 if (ijob_capi == Py_None(&_Py_NoneStruct)) ijob = 4; else
67214 f2py_success = int_from_pyobj(&ijob,ijob_capi,"_flapack.stgsen_lwork() 1st keyword (ijob) can't be converted to int");
67215 if (f2py_success) {
67216 CHECKSCALAR(ijob>=0&&ijob<=5,"ijob>=0&&ijob<=5","1st keyword ijob","stgsen_lwork:ijob=%d",ijob)if (!(ijob>=0&&ijob<=5)) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""stgsen_lwork:ijob=%d", "(""ijob>=0&&ijob<=5"
") failed for ""1st keyword ijob", ijob); PyErr_SetString(_flapack_error
,errstring); } else
{
67217 /* Processing variable a */
67218 ;
67219 capi_a_intent |= F2PY_INTENT_IN1;
67220 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
67221 if (capi_a_tmp == NULL((void*)0)) {
67222 if (!PyErr_Occurred())
67223 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.stgsen_lwork to C/Fortran array" );
67224 } else {
67225 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
67226
67227 /* Processing variable wantq */
67228 wantq = 0;
67229 /* Processing variable wantz */
67230 wantz = 0;
67231 /* Processing variable b */
67232 /* Processing variable alphar */
67233 /* Processing variable alphai */
67234 /* Processing variable beta */
67235 /* Processing variable q */
67236 /* Processing variable z */
67237 /* Processing variable m */
67238 /* Processing variable pl */
67239 /* Processing variable pr */
67240 /* Processing variable dif */
67241 /* Processing variable lwork */
67242 lwork = -1;
67243 /* Processing variable liwork */
67244 liwork = -1;
67245 /* Processing variable work */
67246 /* Processing variable iwork */
67247 /* Processing variable info */
67248 /* Processing variable n */
67249 n = shape(a,0)a_Dims[0];
67250 /* Processing variable lda */
67251 lda = MAX(1, n)((1 > n) ? (1) : (n));
67252 /* Processing variable ldb */
67253 ldb = MAX(1, n)((1 > n) ? (1) : (n));
67254 /* Processing variable ldq */
67255 ldq = MAX(1, n)((1 > n) ? (1) : (n));
67256 /* Processing variable ldz */
67257 ldz = MAX(1, n)((1 > n) ? (1) : (n));
67258 /* Processing variable select */
67259 select_Dims[0]=n;
67260 capi_select_intent |= F2PY_INTENT_IN1;
67261 capi_select_tmp = array_from_pyobj(NPY_INT,select_Dims,select_Rank,capi_select_intent,select_capi);
67262 if (capi_select_tmp == NULL((void*)0)) {
67263 if (!PyErr_Occurred())
67264 PyErr_SetString(_flapack_error,"failed in converting 1st argument `select' of _flapack.stgsen_lwork to C/Fortran array" );
67265 } else {
67266 select = (int *)(PyArray_DATA(capi_select_tmp)((void *)((PyArrayObject_fields *)(capi_select_tmp))->data
)
);
67267
67268/*end of frompyobj*/
67269#ifdef F2PY_REPORT_ATEXIT
67270f2py_start_call_clock();
67271#endif
67272/*callfortranroutine*/
67273 (*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,&b,&ldb,&alphar,&alphai,&beta,&q,&ldq,&z,&ldz,&m,&pl,&pr,&dif,&work,&lwork,&iwork,&liwork,&info) ;
67274 /*(*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,&b,&ldb,&alphar,&alphai,&beta,&q,&ldq,&z,&ldz,&m,&pl,&pr,&dif,&work,&lwork,&iwork,&liwork,&info);*/
67275if (PyErr_Occurred())
67276 f2py_success = 0;
67277#ifdef F2PY_REPORT_ATEXIT
67278f2py_stop_call_clock();
67279#endif
67280/*end of callfortranroutine*/
67281 if (f2py_success) {
67282/*pyobjfrom*/
67283/*end of pyobjfrom*/
67284 CFUNCSMESS("Building return value.\n");
67285 capi_buildvalue = Py_BuildValue("fii",work,iwork,info);
67286/*closepyobjfrom*/
67287/*end of closepyobjfrom*/
67288 } /*if (f2py_success) after callfortranroutine*/
67289/*cleanupfrompyobj*/
67290 if((PyObject *)capi_select_tmp!=select_capi) {
67291 Py_XDECREF(capi_select_tmp)_Py_XDECREF(((PyObject*)(capi_select_tmp))); }
67292 } /*if (capi_select_tmp == NULL) ... else of select*/
67293 /* End of cleaning variable select */
67294 /* End of cleaning variable ldz */
67295 /* End of cleaning variable ldq */
67296 /* End of cleaning variable ldb */
67297 /* End of cleaning variable lda */
67298 /* End of cleaning variable n */
67299 /* End of cleaning variable info */
67300 /* End of cleaning variable iwork */
67301 /* End of cleaning variable work */
67302 /* End of cleaning variable liwork */
67303 /* End of cleaning variable lwork */
67304 /* End of cleaning variable dif */
67305 /* End of cleaning variable pr */
67306 /* End of cleaning variable pl */
67307 /* End of cleaning variable m */
67308 /* End of cleaning variable z */
67309 /* End of cleaning variable q */
67310 /* End of cleaning variable beta */
67311 /* End of cleaning variable alphai */
67312 /* End of cleaning variable alphar */
67313 /* End of cleaning variable b */
67314 /* End of cleaning variable wantz */
67315 /* End of cleaning variable wantq */
67316 if((PyObject *)capi_a_tmp!=a_capi) {
67317 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
67318 } /*if (capi_a_tmp == NULL) ... else of a*/
67319 /* End of cleaning variable a */
67320 } /*CHECKSCALAR(ijob>=0&&ijob<=5)*/
67321 } /*if (f2py_success) of ijob*/
67322 /* End of cleaning variable ijob */
67323/*end of cleanupfrompyobj*/
67324 if (capi_buildvalue == NULL((void*)0)) {
67325/*routdebugfailure*/
67326 } else {
67327/*routdebugleave*/
67328 }
67329 CFUNCSMESS("Freeing memory.\n");
67330/*freemem*/
67331#ifdef F2PY_REPORT_ATEXIT
67332f2py_stop_clock();
67333#endif
67334 return capi_buildvalue;
67335}
67336/**************************** end of stgsen_lwork ****************************/
67337
67338/******************************** dtgsen_lwork ********************************/
67339static char doc_f2py_rout__flapack_dtgsen_lwork[] = "\
67340work,iwork,info = dtgsen_lwork(select,a,[ijob])\n\nWrapper for ``dtgsen_lwork``.\
67341\n\nParameters\n----------\n"
67342"select : input rank-1 array('i') with bounds (n)\n"
67343"a : input rank-2 array('d') with bounds (n,n)\n"
67344"\nOther Parameters\n----------------\n"
67345"ijob : input int, optional\n Default: 4\n"
67346"\nReturns\n-------\n"
67347"work : float\n"
67348"iwork : int\n"
67349"info : int";
67350/* extern void F_FUNC(dtgsen ,DTGSEN )(F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,double*,F_INT*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
67351static PyObject *f2py_rout__flapack_dtgsen_lwork(const PyObject *capi_self,
67352 PyObject *capi_args,
67353 PyObject *capi_keywds,
67354 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
67355 PyObject * volatile capi_buildvalue = NULL((void*)0);
67356 volatile int f2py_success = 1;
67357/*decl*/
67358
67359 int ijob = 0;
67360 PyObject *ijob_capi = Py_None(&_Py_NoneStruct);
67361 int wantq = 0;
67362 int wantz = 0;
67363 int *select = NULL((void*)0);
67364 npy_intp select_Dims[1] = {-1};
67365 const int select_Rank = 1;
67366 PyArrayObject *capi_select_tmp = NULL((void*)0);
67367 int capi_select_intent = 0;
67368 PyObject *select_capi = Py_None(&_Py_NoneStruct);
67369 int n = 0;
67370 double *a = NULL((void*)0);
67371 npy_intp a_Dims[2] = {-1, -1};
67372 const int a_Rank = 2;
67373 PyArrayObject *capi_a_tmp = NULL((void*)0);
67374 int capi_a_intent = 0;
67375 PyObject *a_capi = Py_None(&_Py_NoneStruct);
67376 int lda = 0;
67377 double b = 0;
67378 int ldb = 0;
67379 double alphar = 0;
67380 double alphai = 0;
67381 double beta = 0;
67382 double q = 0;
67383 int ldq = 0;
67384 double z = 0;
67385 int ldz = 0;
67386 int m = 0;
67387 double pl = 0;
67388 double pr = 0;
67389 double dif = 0;
67390 double work = 0;
67391 int lwork = 0;
67392 int iwork = 0;
67393 int liwork = 0;
67394 int info = 0;
67395 static char *capi_kwlist[] = {"select","a","ijob",NULL((void*)0)};
67396
67397/*routdebugenter*/
67398#ifdef F2PY_REPORT_ATEXIT
67399f2py_start_clock();
67400#endif
67401 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
67402 "OO|O:_flapack.dtgsen_lwork",\
67403 capi_kwlist,&select_capi,&a_capi,&ijob_capi))
67404 return NULL((void*)0);
67405/*frompyobj*/
67406 /* Processing variable ijob */
67407 if (ijob_capi == Py_None(&_Py_NoneStruct)) ijob = 4; else
67408 f2py_success = int_from_pyobj(&ijob,ijob_capi,"_flapack.dtgsen_lwork() 1st keyword (ijob) can't be converted to int");
67409 if (f2py_success) {
67410 CHECKSCALAR(ijob>=0&&ijob<=5,"ijob>=0&&ijob<=5","1st keyword ijob","dtgsen_lwork:ijob=%d",ijob)if (!(ijob>=0&&ijob<=5)) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dtgsen_lwork:ijob=%d", "(""ijob>=0&&ijob<=5"
") failed for ""1st keyword ijob", ijob); PyErr_SetString(_flapack_error
,errstring); } else
{
67411 /* Processing variable a */
67412 ;
67413 capi_a_intent |= F2PY_INTENT_IN1;
67414 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
67415 if (capi_a_tmp == NULL((void*)0)) {
67416 if (!PyErr_Occurred())
67417 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.dtgsen_lwork to C/Fortran array" );
67418 } else {
67419 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
67420
67421 /* Processing variable wantq */
67422 wantq = 0;
67423 /* Processing variable wantz */
67424 wantz = 0;
67425 /* Processing variable b */
67426 /* Processing variable alphar */
67427 /* Processing variable alphai */
67428 /* Processing variable beta */
67429 /* Processing variable q */
67430 /* Processing variable z */
67431 /* Processing variable m */
67432 /* Processing variable pl */
67433 /* Processing variable pr */
67434 /* Processing variable dif */
67435 /* Processing variable lwork */
67436 lwork = -1;
67437 /* Processing variable liwork */
67438 liwork = -1;
67439 /* Processing variable work */
67440 /* Processing variable iwork */
67441 /* Processing variable info */
67442 /* Processing variable n */
67443 n = shape(a,0)a_Dims[0];
67444 /* Processing variable lda */
67445 lda = MAX(1, n)((1 > n) ? (1) : (n));
67446 /* Processing variable ldb */
67447 ldb = MAX(1, n)((1 > n) ? (1) : (n));
67448 /* Processing variable ldq */
67449 ldq = MAX(1, n)((1 > n) ? (1) : (n));
67450 /* Processing variable ldz */
67451 ldz = MAX(1, n)((1 > n) ? (1) : (n));
67452 /* Processing variable select */
67453 select_Dims[0]=n;
67454 capi_select_intent |= F2PY_INTENT_IN1;
67455 capi_select_tmp = array_from_pyobj(NPY_INT,select_Dims,select_Rank,capi_select_intent,select_capi);
67456 if (capi_select_tmp == NULL((void*)0)) {
67457 if (!PyErr_Occurred())
67458 PyErr_SetString(_flapack_error,"failed in converting 1st argument `select' of _flapack.dtgsen_lwork to C/Fortran array" );
67459 } else {
67460 select = (int *)(PyArray_DATA(capi_select_tmp)((void *)((PyArrayObject_fields *)(capi_select_tmp))->data
)
);
67461
67462/*end of frompyobj*/
67463#ifdef F2PY_REPORT_ATEXIT
67464f2py_start_call_clock();
67465#endif
67466/*callfortranroutine*/
67467 (*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,&b,&ldb,&alphar,&alphai,&beta,&q,&ldq,&z,&ldz,&m,&pl,&pr,&dif,&work,&lwork,&iwork,&liwork,&info) ;
67468 /*(*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,&b,&ldb,&alphar,&alphai,&beta,&q,&ldq,&z,&ldz,&m,&pl,&pr,&dif,&work,&lwork,&iwork,&liwork,&info);*/
67469if (PyErr_Occurred())
67470 f2py_success = 0;
67471#ifdef F2PY_REPORT_ATEXIT
67472f2py_stop_call_clock();
67473#endif
67474/*end of callfortranroutine*/
67475 if (f2py_success) {
67476/*pyobjfrom*/
67477/*end of pyobjfrom*/
67478 CFUNCSMESS("Building return value.\n");
67479 capi_buildvalue = Py_BuildValue("dii",work,iwork,info);
67480/*closepyobjfrom*/
67481/*end of closepyobjfrom*/
67482 } /*if (f2py_success) after callfortranroutine*/
67483/*cleanupfrompyobj*/
67484 if((PyObject *)capi_select_tmp!=select_capi) {
67485 Py_XDECREF(capi_select_tmp)_Py_XDECREF(((PyObject*)(capi_select_tmp))); }
67486 } /*if (capi_select_tmp == NULL) ... else of select*/
67487 /* End of cleaning variable select */
67488 /* End of cleaning variable ldz */
67489 /* End of cleaning variable ldq */
67490 /* End of cleaning variable ldb */
67491 /* End of cleaning variable lda */
67492 /* End of cleaning variable n */
67493 /* End of cleaning variable info */
67494 /* End of cleaning variable iwork */
67495 /* End of cleaning variable work */
67496 /* End of cleaning variable liwork */
67497 /* End of cleaning variable lwork */
67498 /* End of cleaning variable dif */
67499 /* End of cleaning variable pr */
67500 /* End of cleaning variable pl */
67501 /* End of cleaning variable m */
67502 /* End of cleaning variable z */
67503 /* End of cleaning variable q */
67504 /* End of cleaning variable beta */
67505 /* End of cleaning variable alphai */
67506 /* End of cleaning variable alphar */
67507 /* End of cleaning variable b */
67508 /* End of cleaning variable wantz */
67509 /* End of cleaning variable wantq */
67510 if((PyObject *)capi_a_tmp!=a_capi) {
67511 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
67512 } /*if (capi_a_tmp == NULL) ... else of a*/
67513 /* End of cleaning variable a */
67514 } /*CHECKSCALAR(ijob>=0&&ijob<=5)*/
67515 } /*if (f2py_success) of ijob*/
67516 /* End of cleaning variable ijob */
67517/*end of cleanupfrompyobj*/
67518 if (capi_buildvalue == NULL((void*)0)) {
67519/*routdebugfailure*/
67520 } else {
67521/*routdebugleave*/
67522 }
67523 CFUNCSMESS("Freeing memory.\n");
67524/*freemem*/
67525#ifdef F2PY_REPORT_ATEXIT
67526f2py_stop_clock();
67527#endif
67528 return capi_buildvalue;
67529}
67530/**************************** end of dtgsen_lwork ****************************/
67531
67532/*********************************** ctgsen ***********************************/
67533static char doc_f2py_rout__flapack_ctgsen[] = "\
67534as,bs,alpha,beta,qs,zs,m,pl,pr,dif,info = ctgsen(select,a,b,q,z,[ijob,wantq,wantz,lwork,liwork,overwrite_a,overwrite_b,overwrite_q,overwrite_z])\n\nWrapper for ``ctgsen``.\
67535\n\nParameters\n----------\n"
67536"select : input rank-1 array('i') with bounds (n)\n"
67537"a : input rank-2 array('F') with bounds (n,n)\n"
67538"b : input rank-2 array('F') with bounds (n,n)\n"
67539"q : input rank-2 array('F') with bounds (n,n)\n"
67540"z : input rank-2 array('F') with bounds (n,n)\n"
67541"\nOther Parameters\n----------------\n"
67542"ijob : input int, optional\n Default: 4\n"
67543"wantq : input int, optional\n Default: 1\n"
67544"wantz : input int, optional\n Default: 1\n"
67545"overwrite_a : input int, optional\n Default: 0\n"
67546"overwrite_b : input int, optional\n Default: 0\n"
67547"overwrite_q : input int, optional\n Default: 0\n"
67548"overwrite_z : input int, optional\n Default: 0\n"
67549"lwork : input int, optional\n Default: (ijob==0?1:n+2)\n"
67550"liwork : input int, optional\n Default: (ijob==0?1:n+2)\n"
67551"\nReturns\n-------\n"
67552"as : rank-2 array('F') with bounds (n,n) and a storage\n"
67553"bs : rank-2 array('F') with bounds (n,n) and b storage\n"
67554"alpha : rank-1 array('F') with bounds (n)\n"
67555"beta : rank-1 array('F') with bounds (n)\n"
67556"qs : rank-2 array('F') with bounds (n,n) and q storage\n"
67557"zs : rank-2 array('F') with bounds (n,n) and z storage\n"
67558"m : int\n"
67559"pl : float\n"
67560"pr : float\n"
67561"dif : rank-1 array('f') with bounds (2)\n"
67562"info : int";
67563/* extern void F_FUNC(ctgsen,CTGSEN)(F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,float*,float*,float*,complex_float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
67564static PyObject *f2py_rout__flapack_ctgsen(const PyObject *capi_self,
67565 PyObject *capi_args,
67566 PyObject *capi_keywds,
67567 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
67568 PyObject * volatile capi_buildvalue = NULL((void*)0);
67569 volatile int f2py_success = 1;
67570/*decl*/
67571
67572 int ijob = 0;
67573 PyObject *ijob_capi = Py_None(&_Py_NoneStruct);
67574 int wantq = 0;
67575 PyObject *wantq_capi = Py_None(&_Py_NoneStruct);
67576 int wantz = 0;
67577 PyObject *wantz_capi = Py_None(&_Py_NoneStruct);
67578 int *select = NULL((void*)0);
67579 npy_intp select_Dims[1] = {-1};
67580 const int select_Rank = 1;
67581 PyArrayObject *capi_select_tmp = NULL((void*)0);
67582 int capi_select_intent = 0;
67583 PyObject *select_capi = Py_None(&_Py_NoneStruct);
67584 int n = 0;
67585 complex_float *a = NULL((void*)0);
67586 npy_intp a_Dims[2] = {-1, -1};
67587 const int a_Rank = 2;
67588 PyArrayObject *capi_a_tmp = NULL((void*)0);
67589 int capi_a_intent = 0;
67590 int capi_overwrite_a = 0;
67591 PyObject *a_capi = Py_None(&_Py_NoneStruct);
67592 int lda = 0;
67593 complex_float *b = NULL((void*)0);
67594 npy_intp b_Dims[2] = {-1, -1};
67595 const int b_Rank = 2;
67596 PyArrayObject *capi_b_tmp = NULL((void*)0);
67597 int capi_b_intent = 0;
67598 int capi_overwrite_b = 0;
67599 PyObject *b_capi = Py_None(&_Py_NoneStruct);
67600 int ldb = 0;
67601 complex_float *alpha = NULL((void*)0);
67602 npy_intp alpha_Dims[1] = {-1};
67603 const int alpha_Rank = 1;
67604 PyArrayObject *capi_alpha_tmp = NULL((void*)0);
67605 int capi_alpha_intent = 0;
67606 complex_float *beta = NULL((void*)0);
67607 npy_intp beta_Dims[1] = {-1};
67608 const int beta_Rank = 1;
67609 PyArrayObject *capi_beta_tmp = NULL((void*)0);
67610 int capi_beta_intent = 0;
67611 complex_float *q = NULL((void*)0);
67612 npy_intp q_Dims[2] = {-1, -1};
67613 const int q_Rank = 2;
67614 PyArrayObject *capi_q_tmp = NULL((void*)0);
67615 int capi_q_intent = 0;
67616 int capi_overwrite_q = 0;
67617 PyObject *q_capi = Py_None(&_Py_NoneStruct);
67618 int ldq = 0;
67619 complex_float *z = NULL((void*)0);
67620 npy_intp z_Dims[2] = {-1, -1};
67621 const int z_Rank = 2;
67622 PyArrayObject *capi_z_tmp = NULL((void*)0);
67623 int capi_z_intent = 0;
67624 int capi_overwrite_z = 0;
67625 PyObject *z_capi = Py_None(&_Py_NoneStruct);
67626 int ldz = 0;
67627 int m = 0;
67628 float pl = 0;
67629 float pr = 0;
67630 float *dif = NULL((void*)0);
67631 npy_intp dif_Dims[1] = {-1};
67632 const int dif_Rank = 1;
67633 PyArrayObject *capi_dif_tmp = NULL((void*)0);
67634 int capi_dif_intent = 0;
67635 complex_float *work = NULL((void*)0);
67636 npy_intp work_Dims[1] = {-1};
67637 const int work_Rank = 1;
67638 PyArrayObject *capi_work_tmp = NULL((void*)0);
67639 int capi_work_intent = 0;
67640 int lwork = 0;
67641 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
67642 int *iwork = NULL((void*)0);
67643 npy_intp iwork_Dims[1] = {-1};
67644 const int iwork_Rank = 1;
67645 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
67646 int capi_iwork_intent = 0;
67647 int liwork = 0;
67648 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
67649 int info = 0;
67650 static char *capi_kwlist[] = {"select","a","b","q","z","ijob","wantq","wantz","lwork","liwork","overwrite_a","overwrite_b","overwrite_q","overwrite_z",NULL((void*)0)};
67651
67652/*routdebugenter*/
67653#ifdef F2PY_REPORT_ATEXIT
67654f2py_start_clock();
67655#endif
67656 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
67657 "OOOOO|OOOOOiiii:_flapack.ctgsen",\
67658 capi_kwlist,&select_capi,&a_capi,&b_capi,&q_capi,&z_capi,&ijob_capi,&wantq_capi,&wantz_capi,&lwork_capi,&liwork_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_q,&capi_overwrite_z))
67659 return NULL((void*)0);
67660/*frompyobj*/
67661 /* Processing variable ijob */
67662 if (ijob_capi == Py_None(&_Py_NoneStruct)) ijob = 4; else
67663 f2py_success = int_from_pyobj(&ijob,ijob_capi,"_flapack.ctgsen() 1st keyword (ijob) can't be converted to int");
67664 if (f2py_success) {
67665 CHECKSCALAR(ijob>=0&&ijob<=5,"ijob>=0&&ijob<=5","1st keyword ijob","ctgsen:ijob=%d",ijob)if (!(ijob>=0&&ijob<=5)) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ctgsen:ijob=%d", "(""ijob>=0&&ijob<=5"
") failed for ""1st keyword ijob", ijob); PyErr_SetString(_flapack_error
,errstring); } else
{
67666 /* Processing variable wantq */
67667 if (wantq_capi == Py_None(&_Py_NoneStruct)) wantq = 1; else
67668 wantq = (int)PyObject_IsTrue(wantq_capi);
67669 f2py_success = 1;
67670 if (f2py_success) {
67671 CHECKSCALAR(wantq==0||wantq==1,"wantq==0||wantq==1","2nd keyword wantq","ctgsen:wantq=%d",wantq)if (!(wantq==0||wantq==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctgsen:wantq=%d", "(""wantq==0||wantq==1"") failed for "
"2nd keyword wantq", wantq); PyErr_SetString(_flapack_error,errstring
); } else
{
67672 /* Processing variable wantz */
67673 if (wantz_capi == Py_None(&_Py_NoneStruct)) wantz = 1; else
67674 wantz = (int)PyObject_IsTrue(wantz_capi);
67675 f2py_success = 1;
67676 if (f2py_success) {
67677 CHECKSCALAR(wantz==0||wantz==1,"wantz==0||wantz==1","3rd keyword wantz","ctgsen:wantz=%d",wantz)if (!(wantz==0||wantz==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctgsen:wantz=%d", "(""wantz==0||wantz==1"") failed for "
"3rd keyword wantz", wantz); PyErr_SetString(_flapack_error,errstring
); } else
{
67678 /* Processing variable a */
67679 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
67680 ;
67681 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
67682 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
67683 if (capi_a_tmp == NULL((void*)0)) {
67684 if (!PyErr_Occurred())
67685 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.ctgsen to C/Fortran array" );
67686 } else {
67687 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
67688
67689 /* Processing variable m */
67690 /* Processing variable pl */
67691 /* Processing variable pr */
67692 /* Processing variable dif */
67693 dif_Dims[0]=2;
67694 capi_dif_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
67695 capi_dif_tmp = array_from_pyobj(NPY_FLOAT,dif_Dims,dif_Rank,capi_dif_intent,Py_None(&_Py_NoneStruct));
67696 if (capi_dif_tmp == NULL((void*)0)) {
67697 if (!PyErr_Occurred())
67698 PyErr_SetString(_flapack_error,"failed in converting hidden `dif' of _flapack.ctgsen to C/Fortran array" );
67699 } else {
67700 dif = (float *)(PyArray_DATA(capi_dif_tmp)((void *)((PyArrayObject_fields *)(capi_dif_tmp))->data));
67701
67702 /* Processing variable info */
67703 /* Processing variable n */
67704 n = shape(a,0)a_Dims[0];
67705 /* Processing variable lda */
67706 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
67707 /* Processing variable b */
67708 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
67709 b_Dims[0]=n,b_Dims[1]=n;
67710 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
67711 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
67712 if (capi_b_tmp == NULL((void*)0)) {
67713 if (!PyErr_Occurred())
67714 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.ctgsen to C/Fortran array" );
67715 } else {
67716 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
67717
67718 /* Processing variable ldb */
67719 ldb = MAX(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
67720 /* Processing variable alpha */
67721 alpha_Dims[0]=n;
67722 capi_alpha_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
67723 capi_alpha_tmp = array_from_pyobj(NPY_CFLOAT,alpha_Dims,alpha_Rank,capi_alpha_intent,Py_None(&_Py_NoneStruct));
67724 if (capi_alpha_tmp == NULL((void*)0)) {
67725 if (!PyErr_Occurred())
67726 PyErr_SetString(_flapack_error,"failed in converting hidden `alpha' of _flapack.ctgsen to C/Fortran array" );
67727 } else {
67728 alpha = (complex_float *)(PyArray_DATA(capi_alpha_tmp)((void *)((PyArrayObject_fields *)(capi_alpha_tmp))->data));
67729
67730 /* Processing variable beta */
67731 beta_Dims[0]=n;
67732 capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
67733 capi_beta_tmp = array_from_pyobj(NPY_CFLOAT,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct));
67734 if (capi_beta_tmp == NULL((void*)0)) {
67735 if (!PyErr_Occurred())
67736 PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.ctgsen to C/Fortran array" );
67737 } else {
67738 beta = (complex_float *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data));
67739
67740 /* Processing variable q */
67741 capi_q_intent |= (capi_overwrite_q?0:F2PY_INTENT_COPY32);
67742 q_Dims[0]=n,q_Dims[1]=n;
67743 capi_q_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
67744 capi_q_tmp = array_from_pyobj(NPY_CFLOAT,q_Dims,q_Rank,capi_q_intent,q_capi);
67745 if (capi_q_tmp == NULL((void*)0)) {
67746 if (!PyErr_Occurred())
67747 PyErr_SetString(_flapack_error,"failed in converting 4th argument `q' of _flapack.ctgsen to C/Fortran array" );
67748 } else {
67749 q = (complex_float *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data));
67750
67751 /* Processing variable ldq */
67752 ldq = MAX(1,shape(q,0))((1 > q_Dims[0]) ? (1) : (q_Dims[0]));
67753 /* Processing variable z */
67754 capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32);
67755 z_Dims[0]=n,z_Dims[1]=n;
67756 capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
67757 capi_z_tmp = array_from_pyobj(NPY_CFLOAT,z_Dims,z_Rank,capi_z_intent,z_capi);
67758 if (capi_z_tmp == NULL((void*)0)) {
67759 if (!PyErr_Occurred())
67760 PyErr_SetString(_flapack_error,"failed in converting 5th argument `z' of _flapack.ctgsen to C/Fortran array" );
67761 } else {
67762 z = (complex_float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
67763
67764 /* Processing variable ldz */
67765 ldz = MAX(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0]));
67766 /* Processing variable lwork */
67767 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = (ijob==0?1:n+2); else
67768 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ctgsen() 4th keyword (lwork) can't be converted to int");
67769 if (f2py_success) {
67770 CHECKSCALAR(lwork == -1 || lwork >= 1,"lwork == -1 || lwork >= 1","4th keyword lwork","ctgsen:lwork=%d",lwork)if (!(lwork == -1 || lwork >= 1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctgsen:lwork=%d", "(""lwork == -1 || lwork >= 1"
") failed for ""4th keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
67771 /* Processing variable liwork */
67772 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (ijob==0?1:n+2); else
67773 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.ctgsen() 5th keyword (liwork) can't be converted to int");
67774 if (f2py_success) {
67775 CHECKSCALAR(liwork == -1 || liwork>=1,"liwork == -1 || liwork>=1","5th keyword liwork","ctgsen:liwork=%d",liwork)if (!(liwork == -1 || liwork>=1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctgsen:liwork=%d", "(""liwork == -1 || liwork>=1"
") failed for ""5th keyword liwork", liwork); PyErr_SetString
(_flapack_error,errstring); } else
{
67776 /* Processing variable select */
67777 select_Dims[0]=n;
67778 capi_select_intent |= F2PY_INTENT_IN1;
67779 capi_select_tmp = array_from_pyobj(NPY_INT,select_Dims,select_Rank,capi_select_intent,select_capi);
67780 if (capi_select_tmp == NULL((void*)0)) {
67781 if (!PyErr_Occurred())
67782 PyErr_SetString(_flapack_error,"failed in converting 1st argument `select' of _flapack.ctgsen to C/Fortran array" );
67783 } else {
67784 select = (int *)(PyArray_DATA(capi_select_tmp)((void *)((PyArrayObject_fields *)(capi_select_tmp))->data
)
);
67785
67786 /* Processing variable work */
67787 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
67788 capi_work_intent |= F2PY_INTENT_HIDE8;
67789 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
67790 if (capi_work_tmp == NULL((void*)0)) {
67791 if (!PyErr_Occurred())
67792 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ctgsen to C/Fortran array" );
67793 } else {
67794 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
67795
67796 /* Processing variable iwork */
67797 iwork_Dims[0]=liwork;
67798 capi_iwork_intent |= F2PY_INTENT_HIDE8;
67799 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
67800 if (capi_iwork_tmp == NULL((void*)0)) {
67801 if (!PyErr_Occurred())
67802 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.ctgsen to C/Fortran array" );
67803 } else {
67804 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
67805
67806/*end of frompyobj*/
67807#ifdef F2PY_REPORT_ATEXIT
67808f2py_start_call_clock();
67809#endif
67810/*callfortranroutine*/
67811 (*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alpha,beta,q,&ldq,z,&ldz,&m,&pl,&pr,dif,work,&lwork,iwork,&liwork,&info) ;
67812 /*(*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alpha,beta,q,&ldq,z,&ldz,&m,&pl,&pr,dif,work,&lwork,iwork,&liwork,&info);*/
67813if (PyErr_Occurred())
67814 f2py_success = 0;
67815#ifdef F2PY_REPORT_ATEXIT
67816f2py_stop_call_clock();
67817#endif
67818/*end of callfortranroutine*/
67819 if (f2py_success) {
67820/*pyobjfrom*/
67821/*end of pyobjfrom*/
67822 CFUNCSMESS("Building return value.\n");
67823 capi_buildvalue = Py_BuildValue("NNNNNNiffNi",capi_a_tmp,capi_b_tmp,capi_alpha_tmp,capi_beta_tmp,capi_q_tmp,capi_z_tmp,m,pl,pr,capi_dif_tmp,info);
67824/*closepyobjfrom*/
67825/*end of closepyobjfrom*/
67826 } /*if (f2py_success) after callfortranroutine*/
67827/*cleanupfrompyobj*/
67828 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
67829 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
67830 /* End of cleaning variable iwork */
67831 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
67832 } /*if (capi_work_tmp == NULL) ... else of work*/
67833 /* End of cleaning variable work */
67834 if((PyObject *)capi_select_tmp!=select_capi) {
67835 Py_XDECREF(capi_select_tmp)_Py_XDECREF(((PyObject*)(capi_select_tmp))); }
67836 } /*if (capi_select_tmp == NULL) ... else of select*/
67837 /* End of cleaning variable select */
67838 } /*CHECKSCALAR(liwork == -1 || liwork>=1)*/
67839 } /*if (f2py_success) of liwork*/
67840 /* End of cleaning variable liwork */
67841 } /*CHECKSCALAR(lwork == -1 || lwork >= 1)*/
67842 } /*if (f2py_success) of lwork*/
67843 /* End of cleaning variable lwork */
67844 /* End of cleaning variable ldz */
67845 } /*if (capi_z_tmp == NULL) ... else of z*/
67846 /* End of cleaning variable z */
67847 /* End of cleaning variable ldq */
67848 } /*if (capi_q_tmp == NULL) ... else of q*/
67849 /* End of cleaning variable q */
67850 } /*if (capi_beta_tmp == NULL) ... else of beta*/
67851 /* End of cleaning variable beta */
67852 } /*if (capi_alpha_tmp == NULL) ... else of alpha*/
67853 /* End of cleaning variable alpha */
67854 /* End of cleaning variable ldb */
67855 } /*if (capi_b_tmp == NULL) ... else of b*/
67856 /* End of cleaning variable b */
67857 /* End of cleaning variable lda */
67858 /* End of cleaning variable n */
67859 /* End of cleaning variable info */
67860 } /*if (capi_dif_tmp == NULL) ... else of dif*/
67861 /* End of cleaning variable dif */
67862 /* End of cleaning variable pr */
67863 /* End of cleaning variable pl */
67864 /* End of cleaning variable m */
67865 } /*if (capi_a_tmp == NULL) ... else of a*/
67866 /* End of cleaning variable a */
67867 } /*CHECKSCALAR(wantz==0||wantz==1)*/
67868 } /*if (f2py_success) of wantz*/
67869 /* End of cleaning variable wantz */
67870 } /*CHECKSCALAR(wantq==0||wantq==1)*/
67871 } /*if (f2py_success) of wantq*/
67872 /* End of cleaning variable wantq */
67873 } /*CHECKSCALAR(ijob>=0&&ijob<=5)*/
67874 } /*if (f2py_success) of ijob*/
67875 /* End of cleaning variable ijob */
67876/*end of cleanupfrompyobj*/
67877 if (capi_buildvalue == NULL((void*)0)) {
67878/*routdebugfailure*/
67879 } else {
67880/*routdebugleave*/
67881 }
67882 CFUNCSMESS("Freeing memory.\n");
67883/*freemem*/
67884#ifdef F2PY_REPORT_ATEXIT
67885f2py_stop_clock();
67886#endif
67887 return capi_buildvalue;
67888}
67889/******************************* end of ctgsen *******************************/
67890
67891/*********************************** ztgsen ***********************************/
67892static char doc_f2py_rout__flapack_ztgsen[] = "\
67893as,bs,alpha,beta,qs,zs,m,pl,pr,dif,info = ztgsen(select,a,b,q,z,[ijob,wantq,wantz,lwork,liwork,overwrite_a,overwrite_b,overwrite_q,overwrite_z])\n\nWrapper for ``ztgsen``.\
67894\n\nParameters\n----------\n"
67895"select : input rank-1 array('i') with bounds (n)\n"
67896"a : input rank-2 array('D') with bounds (n,n)\n"
67897"b : input rank-2 array('D') with bounds (n,n)\n"
67898"q : input rank-2 array('D') with bounds (n,n)\n"
67899"z : input rank-2 array('D') with bounds (n,n)\n"
67900"\nOther Parameters\n----------------\n"
67901"ijob : input int, optional\n Default: 4\n"
67902"wantq : input int, optional\n Default: 1\n"
67903"wantz : input int, optional\n Default: 1\n"
67904"overwrite_a : input int, optional\n Default: 0\n"
67905"overwrite_b : input int, optional\n Default: 0\n"
67906"overwrite_q : input int, optional\n Default: 0\n"
67907"overwrite_z : input int, optional\n Default: 0\n"
67908"lwork : input int, optional\n Default: (ijob==0?1:n+2)\n"
67909"liwork : input int, optional\n Default: (ijob==0?1:n+2)\n"
67910"\nReturns\n-------\n"
67911"as : rank-2 array('D') with bounds (n,n) and a storage\n"
67912"bs : rank-2 array('D') with bounds (n,n) and b storage\n"
67913"alpha : rank-1 array('D') with bounds (n)\n"
67914"beta : rank-1 array('D') with bounds (n)\n"
67915"qs : rank-2 array('D') with bounds (n,n) and q storage\n"
67916"zs : rank-2 array('D') with bounds (n,n) and z storage\n"
67917"m : int\n"
67918"pl : float\n"
67919"pr : float\n"
67920"dif : rank-1 array('d') with bounds (2)\n"
67921"info : int";
67922/* extern void F_FUNC(ztgsen,ZTGSEN)(F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,double*,double*,double*,complex_double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
67923static PyObject *f2py_rout__flapack_ztgsen(const PyObject *capi_self,
67924 PyObject *capi_args,
67925 PyObject *capi_keywds,
67926 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
67927 PyObject * volatile capi_buildvalue = NULL((void*)0);
67928 volatile int f2py_success = 1;
67929/*decl*/
67930
67931 int ijob = 0;
67932 PyObject *ijob_capi = Py_None(&_Py_NoneStruct);
67933 int wantq = 0;
67934 PyObject *wantq_capi = Py_None(&_Py_NoneStruct);
67935 int wantz = 0;
67936 PyObject *wantz_capi = Py_None(&_Py_NoneStruct);
67937 int *select = NULL((void*)0);
67938 npy_intp select_Dims[1] = {-1};
67939 const int select_Rank = 1;
67940 PyArrayObject *capi_select_tmp = NULL((void*)0);
67941 int capi_select_intent = 0;
67942 PyObject *select_capi = Py_None(&_Py_NoneStruct);
67943 int n = 0;
67944 complex_double *a = NULL((void*)0);
67945 npy_intp a_Dims[2] = {-1, -1};
67946 const int a_Rank = 2;
67947 PyArrayObject *capi_a_tmp = NULL((void*)0);
67948 int capi_a_intent = 0;
67949 int capi_overwrite_a = 0;
67950 PyObject *a_capi = Py_None(&_Py_NoneStruct);
67951 int lda = 0;
67952 complex_double *b = NULL((void*)0);
67953 npy_intp b_Dims[2] = {-1, -1};
67954 const int b_Rank = 2;
67955 PyArrayObject *capi_b_tmp = NULL((void*)0);
67956 int capi_b_intent = 0;
67957 int capi_overwrite_b = 0;
67958 PyObject *b_capi = Py_None(&_Py_NoneStruct);
67959 int ldb = 0;
67960 complex_double *alpha = NULL((void*)0);
67961 npy_intp alpha_Dims[1] = {-1};
67962 const int alpha_Rank = 1;
67963 PyArrayObject *capi_alpha_tmp = NULL((void*)0);
67964 int capi_alpha_intent = 0;
67965 complex_double *beta = NULL((void*)0);
67966 npy_intp beta_Dims[1] = {-1};
67967 const int beta_Rank = 1;
67968 PyArrayObject *capi_beta_tmp = NULL((void*)0);
67969 int capi_beta_intent = 0;
67970 complex_double *q = NULL((void*)0);
67971 npy_intp q_Dims[2] = {-1, -1};
67972 const int q_Rank = 2;
67973 PyArrayObject *capi_q_tmp = NULL((void*)0);
67974 int capi_q_intent = 0;
67975 int capi_overwrite_q = 0;
67976 PyObject *q_capi = Py_None(&_Py_NoneStruct);
67977 int ldq = 0;
67978 complex_double *z = NULL((void*)0);
67979 npy_intp z_Dims[2] = {-1, -1};
67980 const int z_Rank = 2;
67981 PyArrayObject *capi_z_tmp = NULL((void*)0);
67982 int capi_z_intent = 0;
67983 int capi_overwrite_z = 0;
67984 PyObject *z_capi = Py_None(&_Py_NoneStruct);
67985 int ldz = 0;
67986 int m = 0;
67987 double pl = 0;
67988 double pr = 0;
67989 double *dif = NULL((void*)0);
67990 npy_intp dif_Dims[1] = {-1};
67991 const int dif_Rank = 1;
67992 PyArrayObject *capi_dif_tmp = NULL((void*)0);
67993 int capi_dif_intent = 0;
67994 complex_double *work = NULL((void*)0);
67995 npy_intp work_Dims[1] = {-1};
67996 const int work_Rank = 1;
67997 PyArrayObject *capi_work_tmp = NULL((void*)0);
67998 int capi_work_intent = 0;
67999 int lwork = 0;
68000 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
68001 int *iwork = NULL((void*)0);
68002 npy_intp iwork_Dims[1] = {-1};
68003 const int iwork_Rank = 1;
68004 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
68005 int capi_iwork_intent = 0;
68006 int liwork = 0;
68007 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
68008 int info = 0;
68009 static char *capi_kwlist[] = {"select","a","b","q","z","ijob","wantq","wantz","lwork","liwork","overwrite_a","overwrite_b","overwrite_q","overwrite_z",NULL((void*)0)};
68010
68011/*routdebugenter*/
68012#ifdef F2PY_REPORT_ATEXIT
68013f2py_start_clock();
68014#endif
68015 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
68016 "OOOOO|OOOOOiiii:_flapack.ztgsen",\
68017 capi_kwlist,&select_capi,&a_capi,&b_capi,&q_capi,&z_capi,&ijob_capi,&wantq_capi,&wantz_capi,&lwork_capi,&liwork_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_q,&capi_overwrite_z))
68018 return NULL((void*)0);
68019/*frompyobj*/
68020 /* Processing variable ijob */
68021 if (ijob_capi == Py_None(&_Py_NoneStruct)) ijob = 4; else
68022 f2py_success = int_from_pyobj(&ijob,ijob_capi,"_flapack.ztgsen() 1st keyword (ijob) can't be converted to int");
68023 if (f2py_success) {
68024 CHECKSCALAR(ijob>=0&&ijob<=5,"ijob>=0&&ijob<=5","1st keyword ijob","ztgsen:ijob=%d",ijob)if (!(ijob>=0&&ijob<=5)) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ztgsen:ijob=%d", "(""ijob>=0&&ijob<=5"
") failed for ""1st keyword ijob", ijob); PyErr_SetString(_flapack_error
,errstring); } else
{
68025 /* Processing variable wantq */
68026 if (wantq_capi == Py_None(&_Py_NoneStruct)) wantq = 1; else
68027 wantq = (int)PyObject_IsTrue(wantq_capi);
68028 f2py_success = 1;
68029 if (f2py_success) {
68030 CHECKSCALAR(wantq==0||wantq==1,"wantq==0||wantq==1","2nd keyword wantq","ztgsen:wantq=%d",wantq)if (!(wantq==0||wantq==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztgsen:wantq=%d", "(""wantq==0||wantq==1"") failed for "
"2nd keyword wantq", wantq); PyErr_SetString(_flapack_error,errstring
); } else
{
68031 /* Processing variable wantz */
68032 if (wantz_capi == Py_None(&_Py_NoneStruct)) wantz = 1; else
68033 wantz = (int)PyObject_IsTrue(wantz_capi);
68034 f2py_success = 1;
68035 if (f2py_success) {
68036 CHECKSCALAR(wantz==0||wantz==1,"wantz==0||wantz==1","3rd keyword wantz","ztgsen:wantz=%d",wantz)if (!(wantz==0||wantz==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztgsen:wantz=%d", "(""wantz==0||wantz==1"") failed for "
"3rd keyword wantz", wantz); PyErr_SetString(_flapack_error,errstring
); } else
{
68037 /* Processing variable a */
68038 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
68039 ;
68040 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
68041 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
68042 if (capi_a_tmp == NULL((void*)0)) {
68043 if (!PyErr_Occurred())
68044 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.ztgsen to C/Fortran array" );
68045 } else {
68046 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
68047
68048 /* Processing variable m */
68049 /* Processing variable pl */
68050 /* Processing variable pr */
68051 /* Processing variable dif */
68052 dif_Dims[0]=2;
68053 capi_dif_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
68054 capi_dif_tmp = array_from_pyobj(NPY_DOUBLE,dif_Dims,dif_Rank,capi_dif_intent,Py_None(&_Py_NoneStruct));
68055 if (capi_dif_tmp == NULL((void*)0)) {
68056 if (!PyErr_Occurred())
68057 PyErr_SetString(_flapack_error,"failed in converting hidden `dif' of _flapack.ztgsen to C/Fortran array" );
68058 } else {
68059 dif = (double *)(PyArray_DATA(capi_dif_tmp)((void *)((PyArrayObject_fields *)(capi_dif_tmp))->data));
68060
68061 /* Processing variable info */
68062 /* Processing variable n */
68063 n = shape(a,0)a_Dims[0];
68064 /* Processing variable lda */
68065 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
68066 /* Processing variable b */
68067 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
68068 b_Dims[0]=n,b_Dims[1]=n;
68069 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
68070 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
68071 if (capi_b_tmp == NULL((void*)0)) {
68072 if (!PyErr_Occurred())
68073 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.ztgsen to C/Fortran array" );
68074 } else {
68075 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
68076
68077 /* Processing variable ldb */
68078 ldb = MAX(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
68079 /* Processing variable alpha */
68080 alpha_Dims[0]=n;
68081 capi_alpha_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
68082 capi_alpha_tmp = array_from_pyobj(NPY_CDOUBLE,alpha_Dims,alpha_Rank,capi_alpha_intent,Py_None(&_Py_NoneStruct));
68083 if (capi_alpha_tmp == NULL((void*)0)) {
68084 if (!PyErr_Occurred())
68085 PyErr_SetString(_flapack_error,"failed in converting hidden `alpha' of _flapack.ztgsen to C/Fortran array" );
68086 } else {
68087 alpha = (complex_double *)(PyArray_DATA(capi_alpha_tmp)((void *)((PyArrayObject_fields *)(capi_alpha_tmp))->data));
68088
68089 /* Processing variable beta */
68090 beta_Dims[0]=n;
68091 capi_beta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
68092 capi_beta_tmp = array_from_pyobj(NPY_CDOUBLE,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct));
68093 if (capi_beta_tmp == NULL((void*)0)) {
68094 if (!PyErr_Occurred())
68095 PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.ztgsen to C/Fortran array" );
68096 } else {
68097 beta = (complex_double *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data));
68098
68099 /* Processing variable q */
68100 capi_q_intent |= (capi_overwrite_q?0:F2PY_INTENT_COPY32);
68101 q_Dims[0]=n,q_Dims[1]=n;
68102 capi_q_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
68103 capi_q_tmp = array_from_pyobj(NPY_CDOUBLE,q_Dims,q_Rank,capi_q_intent,q_capi);
68104 if (capi_q_tmp == NULL((void*)0)) {
68105 if (!PyErr_Occurred())
68106 PyErr_SetString(_flapack_error,"failed in converting 4th argument `q' of _flapack.ztgsen to C/Fortran array" );
68107 } else {
68108 q = (complex_double *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data));
68109
68110 /* Processing variable ldq */
68111 ldq = MAX(1,shape(q,0))((1 > q_Dims[0]) ? (1) : (q_Dims[0]));
68112 /* Processing variable z */
68113 capi_z_intent |= (capi_overwrite_z?0:F2PY_INTENT_COPY32);
68114 z_Dims[0]=n,z_Dims[1]=n;
68115 capi_z_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
68116 capi_z_tmp = array_from_pyobj(NPY_CDOUBLE,z_Dims,z_Rank,capi_z_intent,z_capi);
68117 if (capi_z_tmp == NULL((void*)0)) {
68118 if (!PyErr_Occurred())
68119 PyErr_SetString(_flapack_error,"failed in converting 5th argument `z' of _flapack.ztgsen to C/Fortran array" );
68120 } else {
68121 z = (complex_double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
68122
68123 /* Processing variable ldz */
68124 ldz = MAX(1,shape(z,0))((1 > z_Dims[0]) ? (1) : (z_Dims[0]));
68125 /* Processing variable lwork */
68126 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = (ijob==0?1:n+2); else
68127 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ztgsen() 4th keyword (lwork) can't be converted to int");
68128 if (f2py_success) {
68129 CHECKSCALAR(lwork == -1 || lwork >= 1,"lwork == -1 || lwork >= 1","4th keyword lwork","ztgsen:lwork=%d",lwork)if (!(lwork == -1 || lwork >= 1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztgsen:lwork=%d", "(""lwork == -1 || lwork >= 1"
") failed for ""4th keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
68130 /* Processing variable liwork */
68131 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (ijob==0?1:n+2); else
68132 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.ztgsen() 5th keyword (liwork) can't be converted to int");
68133 if (f2py_success) {
68134 CHECKSCALAR(liwork == -1 || liwork>=1,"liwork == -1 || liwork>=1","5th keyword liwork","ztgsen:liwork=%d",liwork)if (!(liwork == -1 || liwork>=1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztgsen:liwork=%d", "(""liwork == -1 || liwork>=1"
") failed for ""5th keyword liwork", liwork); PyErr_SetString
(_flapack_error,errstring); } else
{
68135 /* Processing variable select */
68136 select_Dims[0]=n;
68137 capi_select_intent |= F2PY_INTENT_IN1;
68138 capi_select_tmp = array_from_pyobj(NPY_INT,select_Dims,select_Rank,capi_select_intent,select_capi);
68139 if (capi_select_tmp == NULL((void*)0)) {
68140 if (!PyErr_Occurred())
68141 PyErr_SetString(_flapack_error,"failed in converting 1st argument `select' of _flapack.ztgsen to C/Fortran array" );
68142 } else {
68143 select = (int *)(PyArray_DATA(capi_select_tmp)((void *)((PyArrayObject_fields *)(capi_select_tmp))->data
)
);
68144
68145 /* Processing variable work */
68146 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
68147 capi_work_intent |= F2PY_INTENT_HIDE8;
68148 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
68149 if (capi_work_tmp == NULL((void*)0)) {
68150 if (!PyErr_Occurred())
68151 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ztgsen to C/Fortran array" );
68152 } else {
68153 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
68154
68155 /* Processing variable iwork */
68156 iwork_Dims[0]=liwork;
68157 capi_iwork_intent |= F2PY_INTENT_HIDE8;
68158 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
68159 if (capi_iwork_tmp == NULL((void*)0)) {
68160 if (!PyErr_Occurred())
68161 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.ztgsen to C/Fortran array" );
68162 } else {
68163 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
68164
68165/*end of frompyobj*/
68166#ifdef F2PY_REPORT_ATEXIT
68167f2py_start_call_clock();
68168#endif
68169/*callfortranroutine*/
68170 (*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alpha,beta,q,&ldq,z,&ldz,&m,&pl,&pr,dif,work,&lwork,iwork,&liwork,&info) ;
68171 /*(*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alpha,beta,q,&ldq,z,&ldz,&m,&pl,&pr,dif,work,&lwork,iwork,&liwork,&info);*/
68172if (PyErr_Occurred())
68173 f2py_success = 0;
68174#ifdef F2PY_REPORT_ATEXIT
68175f2py_stop_call_clock();
68176#endif
68177/*end of callfortranroutine*/
68178 if (f2py_success) {
68179/*pyobjfrom*/
68180/*end of pyobjfrom*/
68181 CFUNCSMESS("Building return value.\n");
68182 capi_buildvalue = Py_BuildValue("NNNNNNiddNi",capi_a_tmp,capi_b_tmp,capi_alpha_tmp,capi_beta_tmp,capi_q_tmp,capi_z_tmp,m,pl,pr,capi_dif_tmp,info);
68183/*closepyobjfrom*/
68184/*end of closepyobjfrom*/
68185 } /*if (f2py_success) after callfortranroutine*/
68186/*cleanupfrompyobj*/
68187 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
68188 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
68189 /* End of cleaning variable iwork */
68190 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
68191 } /*if (capi_work_tmp == NULL) ... else of work*/
68192 /* End of cleaning variable work */
68193 if((PyObject *)capi_select_tmp!=select_capi) {
68194 Py_XDECREF(capi_select_tmp)_Py_XDECREF(((PyObject*)(capi_select_tmp))); }
68195 } /*if (capi_select_tmp == NULL) ... else of select*/
68196 /* End of cleaning variable select */
68197 } /*CHECKSCALAR(liwork == -1 || liwork>=1)*/
68198 } /*if (f2py_success) of liwork*/
68199 /* End of cleaning variable liwork */
68200 } /*CHECKSCALAR(lwork == -1 || lwork >= 1)*/
68201 } /*if (f2py_success) of lwork*/
68202 /* End of cleaning variable lwork */
68203 /* End of cleaning variable ldz */
68204 } /*if (capi_z_tmp == NULL) ... else of z*/
68205 /* End of cleaning variable z */
68206 /* End of cleaning variable ldq */
68207 } /*if (capi_q_tmp == NULL) ... else of q*/
68208 /* End of cleaning variable q */
68209 } /*if (capi_beta_tmp == NULL) ... else of beta*/
68210 /* End of cleaning variable beta */
68211 } /*if (capi_alpha_tmp == NULL) ... else of alpha*/
68212 /* End of cleaning variable alpha */
68213 /* End of cleaning variable ldb */
68214 } /*if (capi_b_tmp == NULL) ... else of b*/
68215 /* End of cleaning variable b */
68216 /* End of cleaning variable lda */
68217 /* End of cleaning variable n */
68218 /* End of cleaning variable info */
68219 } /*if (capi_dif_tmp == NULL) ... else of dif*/
68220 /* End of cleaning variable dif */
68221 /* End of cleaning variable pr */
68222 /* End of cleaning variable pl */
68223 /* End of cleaning variable m */
68224 } /*if (capi_a_tmp == NULL) ... else of a*/
68225 /* End of cleaning variable a */
68226 } /*CHECKSCALAR(wantz==0||wantz==1)*/
68227 } /*if (f2py_success) of wantz*/
68228 /* End of cleaning variable wantz */
68229 } /*CHECKSCALAR(wantq==0||wantq==1)*/
68230 } /*if (f2py_success) of wantq*/
68231 /* End of cleaning variable wantq */
68232 } /*CHECKSCALAR(ijob>=0&&ijob<=5)*/
68233 } /*if (f2py_success) of ijob*/
68234 /* End of cleaning variable ijob */
68235/*end of cleanupfrompyobj*/
68236 if (capi_buildvalue == NULL((void*)0)) {
68237/*routdebugfailure*/
68238 } else {
68239/*routdebugleave*/
68240 }
68241 CFUNCSMESS("Freeing memory.\n");
68242/*freemem*/
68243#ifdef F2PY_REPORT_ATEXIT
68244f2py_stop_clock();
68245#endif
68246 return capi_buildvalue;
68247}
68248/******************************* end of ztgsen *******************************/
68249
68250/******************************** ctgsen_lwork ********************************/
68251static char doc_f2py_rout__flapack_ctgsen_lwork[] = "\
68252work,iwork,info = ctgsen_lwork(select,a,b,[ijob])\n\nWrapper for ``ctgsen_lwork``.\
68253\n\nParameters\n----------\n"
68254"select : input rank-1 array('i') with bounds (n)\n"
68255"a : input rank-2 array('F') with bounds (n,n)\n"
68256"b : input rank-2 array('F') with bounds (n,n)\n"
68257"\nOther Parameters\n----------------\n"
68258"ijob : input int, optional\n Default: 4\n"
68259"\nReturns\n-------\n"
68260"work : complex\n"
68261"iwork : int\n"
68262"info : int";
68263/* extern void F_FUNC(ctgsen ,CTGSEN )(F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT*,float*,float*,float*,complex_float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
68264static PyObject *f2py_rout__flapack_ctgsen_lwork(const PyObject *capi_self,
68265 PyObject *capi_args,
68266 PyObject *capi_keywds,
68267 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint*,float*,float*,float*,complex_float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
68268 PyObject * volatile capi_buildvalue = NULL((void*)0);
68269 volatile int f2py_success = 1;
68270/*decl*/
68271
68272 int ijob = 0;
68273 PyObject *ijob_capi = Py_None(&_Py_NoneStruct);
68274 int wantq = 0;
68275 int wantz = 0;
68276 int *select = NULL((void*)0);
68277 npy_intp select_Dims[1] = {-1};
68278 const int select_Rank = 1;
68279 PyArrayObject *capi_select_tmp = NULL((void*)0);
68280 int capi_select_intent = 0;
68281 PyObject *select_capi = Py_None(&_Py_NoneStruct);
68282 int n = 0;
68283 complex_float *a = NULL((void*)0);
68284 npy_intp a_Dims[2] = {-1, -1};
68285 const int a_Rank = 2;
68286 PyArrayObject *capi_a_tmp = NULL((void*)0);
68287 int capi_a_intent = 0;
68288 PyObject *a_capi = Py_None(&_Py_NoneStruct);
68289 int lda = 0;
68290 complex_float *b = NULL((void*)0);
68291 npy_intp b_Dims[2] = {-1, -1};
68292 const int b_Rank = 2;
68293 PyArrayObject *capi_b_tmp = NULL((void*)0);
68294 int capi_b_intent = 0;
68295 PyObject *b_capi = Py_None(&_Py_NoneStruct);
68296 int ldb = 0;
68297 complex_float *alpha = NULL((void*)0);
68298 npy_intp alpha_Dims[1] = {-1};
68299 const int alpha_Rank = 1;
68300 PyArrayObject *capi_alpha_tmp = NULL((void*)0);
68301 int capi_alpha_intent = 0;
68302 complex_float *beta = NULL((void*)0);
68303 npy_intp beta_Dims[1] = {-1};
68304 const int beta_Rank = 1;
68305 PyArrayObject *capi_beta_tmp = NULL((void*)0);
68306 int capi_beta_intent = 0;
68307 complex_float q;
68308 int ldq = 0;
68309 complex_float z;
68310 int ldz = 0;
68311 int m = 0;
68312 float pl = 0;
68313 float pr = 0;
68314 float dif = 0;
68315 complex_float work;
68316 PyObject *work_capi = Py_None(&_Py_NoneStruct);
68317 int lwork = 0;
68318 int iwork = 0;
68319 int liwork = 0;
68320 int info = 0;
68321 static char *capi_kwlist[] = {"select","a","b","ijob",NULL((void*)0)};
68322
68323/*routdebugenter*/
68324#ifdef F2PY_REPORT_ATEXIT
68325f2py_start_clock();
68326#endif
68327 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
68328 "OOO|O:_flapack.ctgsen_lwork",\
68329 capi_kwlist,&select_capi,&a_capi,&b_capi,&ijob_capi))
68330 return NULL((void*)0);
68331/*frompyobj*/
68332 /* Processing variable ijob */
68333 if (ijob_capi == Py_None(&_Py_NoneStruct)) ijob = 4; else
68334 f2py_success = int_from_pyobj(&ijob,ijob_capi,"_flapack.ctgsen_lwork() 1st keyword (ijob) can't be converted to int");
68335 if (f2py_success) {
68336 CHECKSCALAR(ijob>=0&&ijob<=5,"ijob>=0&&ijob<=5","1st keyword ijob","ctgsen_lwork:ijob=%d",ijob)if (!(ijob>=0&&ijob<=5)) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ctgsen_lwork:ijob=%d", "(""ijob>=0&&ijob<=5"
") failed for ""1st keyword ijob", ijob); PyErr_SetString(_flapack_error
,errstring); } else
{
68337 /* Processing variable a */
68338 ;
68339 capi_a_intent |= F2PY_INTENT_IN1;
68340 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
68341 if (capi_a_tmp == NULL((void*)0)) {
68342 if (!PyErr_Occurred())
68343 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.ctgsen_lwork to C/Fortran array" );
68344 } else {
68345 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
68346
68347 /* Processing variable wantq */
68348 wantq = 0;
68349 /* Processing variable wantz */
68350 wantz = 0;
68351 /* Processing variable q */
68352 /* Processing variable z */
68353 /* Processing variable m */
68354 /* Processing variable pl */
68355 /* Processing variable pr */
68356 /* Processing variable dif */
68357 /* Processing variable lwork */
68358 lwork = -1;
68359 /* Processing variable liwork */
68360 liwork = -1;
68361 /* Processing variable work */
68362 /* Processing variable iwork */
68363 /* Processing variable info */
68364 /* Processing variable n */
68365 n = shape(a,0)a_Dims[0];
68366 /* Processing variable lda */
68367 lda = MAX(1, n)((1 > n) ? (1) : (n));
68368 /* Processing variable ldb */
68369 ldb = MAX(1, n)((1 > n) ? (1) : (n));
68370 /* Processing variable alpha */
68371 alpha_Dims[0]=n;
68372 capi_alpha_intent |= F2PY_INTENT_HIDE8;
68373 capi_alpha_tmp = array_from_pyobj(NPY_CFLOAT,alpha_Dims,alpha_Rank,capi_alpha_intent,Py_None(&_Py_NoneStruct));
68374 if (capi_alpha_tmp == NULL((void*)0)) {
68375 if (!PyErr_Occurred())
68376 PyErr_SetString(_flapack_error,"failed in converting hidden `alpha' of _flapack.ctgsen_lwork to C/Fortran array" );
68377 } else {
68378 alpha = (complex_float *)(PyArray_DATA(capi_alpha_tmp)((void *)((PyArrayObject_fields *)(capi_alpha_tmp))->data));
68379
68380 /* Processing variable beta */
68381 beta_Dims[0]=n;
68382 capi_beta_intent |= F2PY_INTENT_HIDE8;
68383 capi_beta_tmp = array_from_pyobj(NPY_CFLOAT,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct));
68384 if (capi_beta_tmp == NULL((void*)0)) {
68385 if (!PyErr_Occurred())
68386 PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.ctgsen_lwork to C/Fortran array" );
68387 } else {
68388 beta = (complex_float *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data));
68389
68390 /* Processing variable ldq */
68391 ldq = MAX(1, n)((1 > n) ? (1) : (n));
68392 /* Processing variable ldz */
68393 ldz = MAX(1, n)((1 > n) ? (1) : (n));
68394 /* Processing variable select */
68395 select_Dims[0]=n;
68396 capi_select_intent |= F2PY_INTENT_IN1;
68397 capi_select_tmp = array_from_pyobj(NPY_INT,select_Dims,select_Rank,capi_select_intent,select_capi);
68398 if (capi_select_tmp == NULL((void*)0)) {
68399 if (!PyErr_Occurred())
68400 PyErr_SetString(_flapack_error,"failed in converting 1st argument `select' of _flapack.ctgsen_lwork to C/Fortran array" );
68401 } else {
68402 select = (int *)(PyArray_DATA(capi_select_tmp)((void *)((PyArrayObject_fields *)(capi_select_tmp))->data
)
);
68403
68404 /* Processing variable b */
68405 b_Dims[0]=n,b_Dims[1]=n;
68406 capi_b_intent |= F2PY_INTENT_IN1;
68407 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
68408 if (capi_b_tmp == NULL((void*)0)) {
68409 if (!PyErr_Occurred())
68410 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.ctgsen_lwork to C/Fortran array" );
68411 } else {
68412 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
68413
68414/*end of frompyobj*/
68415#ifdef F2PY_REPORT_ATEXIT
68416f2py_start_call_clock();
68417#endif
68418/*callfortranroutine*/
68419 (*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alpha,beta,&q,&ldq,&z,&ldz,&m,&pl,&pr,&dif,&work,&lwork,&iwork,&liwork,&info) ;
68420 /*(*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alpha,beta,&q,&ldq,&z,&ldz,&m,&pl,&pr,&dif,&work,&lwork,&iwork,&liwork,&info);*/
68421if (PyErr_Occurred())
68422 f2py_success = 0;
68423#ifdef F2PY_REPORT_ATEXIT
68424f2py_stop_call_clock();
68425#endif
68426/*end of callfortranroutine*/
68427 if (f2py_success) {
68428/*pyobjfrom*/
68429 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
68430/*end of pyobjfrom*/
68431 CFUNCSMESS("Building return value.\n");
68432 capi_buildvalue = Py_BuildValue("Nii",work_capi,iwork,info);
68433/*closepyobjfrom*/
68434/*end of closepyobjfrom*/
68435 } /*if (f2py_success) after callfortranroutine*/
68436/*cleanupfrompyobj*/
68437 if((PyObject *)capi_b_tmp!=b_capi) {
68438 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
68439 } /*if (capi_b_tmp == NULL) ... else of b*/
68440 /* End of cleaning variable b */
68441 if((PyObject *)capi_select_tmp!=select_capi) {
68442 Py_XDECREF(capi_select_tmp)_Py_XDECREF(((PyObject*)(capi_select_tmp))); }
68443 } /*if (capi_select_tmp == NULL) ... else of select*/
68444 /* End of cleaning variable select */
68445 /* End of cleaning variable ldz */
68446 /* End of cleaning variable ldq */
68447 Py_XDECREF(capi_beta_tmp)_Py_XDECREF(((PyObject*)(capi_beta_tmp)));
68448 } /*if (capi_beta_tmp == NULL) ... else of beta*/
68449 /* End of cleaning variable beta */
68450 Py_XDECREF(capi_alpha_tmp)_Py_XDECREF(((PyObject*)(capi_alpha_tmp)));
68451 } /*if (capi_alpha_tmp == NULL) ... else of alpha*/
68452 /* End of cleaning variable alpha */
68453 /* End of cleaning variable ldb */
68454 /* End of cleaning variable lda */
68455 /* End of cleaning variable n */
68456 /* End of cleaning variable info */
68457 /* End of cleaning variable iwork */
68458 /* End of cleaning variable work */
68459 /* End of cleaning variable liwork */
68460 /* End of cleaning variable lwork */
68461 /* End of cleaning variable dif */
68462 /* End of cleaning variable pr */
68463 /* End of cleaning variable pl */
68464 /* End of cleaning variable m */
68465 /* End of cleaning variable z */
68466 /* End of cleaning variable q */
68467 /* End of cleaning variable wantz */
68468 /* End of cleaning variable wantq */
68469 if((PyObject *)capi_a_tmp!=a_capi) {
68470 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
68471 } /*if (capi_a_tmp == NULL) ... else of a*/
68472 /* End of cleaning variable a */
68473 } /*CHECKSCALAR(ijob>=0&&ijob<=5)*/
68474 } /*if (f2py_success) of ijob*/
68475 /* End of cleaning variable ijob */
68476/*end of cleanupfrompyobj*/
68477 if (capi_buildvalue == NULL((void*)0)) {
68478/*routdebugfailure*/
68479 } else {
68480/*routdebugleave*/
68481 }
68482 CFUNCSMESS("Freeing memory.\n");
68483/*freemem*/
68484#ifdef F2PY_REPORT_ATEXIT
68485f2py_stop_clock();
68486#endif
68487 return capi_buildvalue;
68488}
68489/**************************** end of ctgsen_lwork ****************************/
68490
68491/******************************** ztgsen_lwork ********************************/
68492static char doc_f2py_rout__flapack_ztgsen_lwork[] = "\
68493work,iwork,info = ztgsen_lwork(select,a,b,[ijob])\n\nWrapper for ``ztgsen_lwork``.\
68494\n\nParameters\n----------\n"
68495"select : input rank-1 array('i') with bounds (n)\n"
68496"a : input rank-2 array('D') with bounds (n,n)\n"
68497"b : input rank-2 array('D') with bounds (n,n)\n"
68498"\nOther Parameters\n----------------\n"
68499"ijob : input int, optional\n Default: 4\n"
68500"\nReturns\n-------\n"
68501"work : complex\n"
68502"iwork : int\n"
68503"info : int";
68504/* extern void F_FUNC(ztgsen ,ZTGSEN )(F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT*,double*,double*,double*,complex_double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
68505static PyObject *f2py_rout__flapack_ztgsen_lwork(const PyObject *capi_self,
68506 PyObject *capi_args,
68507 PyObject *capi_keywds,
68508 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint*,double*,double*,double*,complex_double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
68509 PyObject * volatile capi_buildvalue = NULL((void*)0);
68510 volatile int f2py_success = 1;
68511/*decl*/
68512
68513 int ijob = 0;
68514 PyObject *ijob_capi = Py_None(&_Py_NoneStruct);
68515 int wantq = 0;
68516 int wantz = 0;
68517 int *select = NULL((void*)0);
68518 npy_intp select_Dims[1] = {-1};
68519 const int select_Rank = 1;
68520 PyArrayObject *capi_select_tmp = NULL((void*)0);
68521 int capi_select_intent = 0;
68522 PyObject *select_capi = Py_None(&_Py_NoneStruct);
68523 int n = 0;
68524 complex_double *a = NULL((void*)0);
68525 npy_intp a_Dims[2] = {-1, -1};
68526 const int a_Rank = 2;
68527 PyArrayObject *capi_a_tmp = NULL((void*)0);
68528 int capi_a_intent = 0;
68529 PyObject *a_capi = Py_None(&_Py_NoneStruct);
68530 int lda = 0;
68531 complex_double *b = NULL((void*)0);
68532 npy_intp b_Dims[2] = {-1, -1};
68533 const int b_Rank = 2;
68534 PyArrayObject *capi_b_tmp = NULL((void*)0);
68535 int capi_b_intent = 0;
68536 PyObject *b_capi = Py_None(&_Py_NoneStruct);
68537 int ldb = 0;
68538 complex_double *alpha = NULL((void*)0);
68539 npy_intp alpha_Dims[1] = {-1};
68540 const int alpha_Rank = 1;
68541 PyArrayObject *capi_alpha_tmp = NULL((void*)0);
68542 int capi_alpha_intent = 0;
68543 complex_double *beta = NULL((void*)0);
68544 npy_intp beta_Dims[1] = {-1};
68545 const int beta_Rank = 1;
68546 PyArrayObject *capi_beta_tmp = NULL((void*)0);
68547 int capi_beta_intent = 0;
68548 complex_double q;
68549 int ldq = 0;
68550 complex_double z;
68551 int ldz = 0;
68552 int m = 0;
68553 double pl = 0;
68554 double pr = 0;
68555 double dif = 0;
68556 complex_double work;
68557 PyObject *work_capi = Py_None(&_Py_NoneStruct);
68558 int lwork = 0;
68559 int iwork = 0;
68560 int liwork = 0;
68561 int info = 0;
68562 static char *capi_kwlist[] = {"select","a","b","ijob",NULL((void*)0)};
68563
68564/*routdebugenter*/
68565#ifdef F2PY_REPORT_ATEXIT
68566f2py_start_clock();
68567#endif
68568 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
68569 "OOO|O:_flapack.ztgsen_lwork",\
68570 capi_kwlist,&select_capi,&a_capi,&b_capi,&ijob_capi))
68571 return NULL((void*)0);
68572/*frompyobj*/
68573 /* Processing variable ijob */
68574 if (ijob_capi == Py_None(&_Py_NoneStruct)) ijob = 4; else
68575 f2py_success = int_from_pyobj(&ijob,ijob_capi,"_flapack.ztgsen_lwork() 1st keyword (ijob) can't be converted to int");
68576 if (f2py_success) {
68577 CHECKSCALAR(ijob>=0&&ijob<=5,"ijob>=0&&ijob<=5","1st keyword ijob","ztgsen_lwork:ijob=%d",ijob)if (!(ijob>=0&&ijob<=5)) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ztgsen_lwork:ijob=%d", "(""ijob>=0&&ijob<=5"
") failed for ""1st keyword ijob", ijob); PyErr_SetString(_flapack_error
,errstring); } else
{
68578 /* Processing variable a */
68579 ;
68580 capi_a_intent |= F2PY_INTENT_IN1;
68581 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
68582 if (capi_a_tmp == NULL((void*)0)) {
68583 if (!PyErr_Occurred())
68584 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.ztgsen_lwork to C/Fortran array" );
68585 } else {
68586 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
68587
68588 /* Processing variable wantq */
68589 wantq = 0;
68590 /* Processing variable wantz */
68591 wantz = 0;
68592 /* Processing variable q */
68593 /* Processing variable z */
68594 /* Processing variable m */
68595 /* Processing variable pl */
68596 /* Processing variable pr */
68597 /* Processing variable dif */
68598 /* Processing variable lwork */
68599 lwork = -1;
68600 /* Processing variable liwork */
68601 liwork = -1;
68602 /* Processing variable work */
68603 /* Processing variable iwork */
68604 /* Processing variable info */
68605 /* Processing variable n */
68606 n = shape(a,0)a_Dims[0];
68607 /* Processing variable lda */
68608 lda = MAX(1, n)((1 > n) ? (1) : (n));
68609 /* Processing variable ldb */
68610 ldb = MAX(1, n)((1 > n) ? (1) : (n));
68611 /* Processing variable alpha */
68612 alpha_Dims[0]=n;
68613 capi_alpha_intent |= F2PY_INTENT_HIDE8;
68614 capi_alpha_tmp = array_from_pyobj(NPY_CDOUBLE,alpha_Dims,alpha_Rank,capi_alpha_intent,Py_None(&_Py_NoneStruct));
68615 if (capi_alpha_tmp == NULL((void*)0)) {
68616 if (!PyErr_Occurred())
68617 PyErr_SetString(_flapack_error,"failed in converting hidden `alpha' of _flapack.ztgsen_lwork to C/Fortran array" );
68618 } else {
68619 alpha = (complex_double *)(PyArray_DATA(capi_alpha_tmp)((void *)((PyArrayObject_fields *)(capi_alpha_tmp))->data));
68620
68621 /* Processing variable beta */
68622 beta_Dims[0]=n;
68623 capi_beta_intent |= F2PY_INTENT_HIDE8;
68624 capi_beta_tmp = array_from_pyobj(NPY_CDOUBLE,beta_Dims,beta_Rank,capi_beta_intent,Py_None(&_Py_NoneStruct));
68625 if (capi_beta_tmp == NULL((void*)0)) {
68626 if (!PyErr_Occurred())
68627 PyErr_SetString(_flapack_error,"failed in converting hidden `beta' of _flapack.ztgsen_lwork to C/Fortran array" );
68628 } else {
68629 beta = (complex_double *)(PyArray_DATA(capi_beta_tmp)((void *)((PyArrayObject_fields *)(capi_beta_tmp))->data));
68630
68631 /* Processing variable ldq */
68632 ldq = MAX(1, n)((1 > n) ? (1) : (n));
68633 /* Processing variable ldz */
68634 ldz = MAX(1, n)((1 > n) ? (1) : (n));
68635 /* Processing variable select */
68636 select_Dims[0]=n;
68637 capi_select_intent |= F2PY_INTENT_IN1;
68638 capi_select_tmp = array_from_pyobj(NPY_INT,select_Dims,select_Rank,capi_select_intent,select_capi);
68639 if (capi_select_tmp == NULL((void*)0)) {
68640 if (!PyErr_Occurred())
68641 PyErr_SetString(_flapack_error,"failed in converting 1st argument `select' of _flapack.ztgsen_lwork to C/Fortran array" );
68642 } else {
68643 select = (int *)(PyArray_DATA(capi_select_tmp)((void *)((PyArrayObject_fields *)(capi_select_tmp))->data
)
);
68644
68645 /* Processing variable b */
68646 b_Dims[0]=n,b_Dims[1]=n;
68647 capi_b_intent |= F2PY_INTENT_IN1;
68648 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
68649 if (capi_b_tmp == NULL((void*)0)) {
68650 if (!PyErr_Occurred())
68651 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.ztgsen_lwork to C/Fortran array" );
68652 } else {
68653 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
68654
68655/*end of frompyobj*/
68656#ifdef F2PY_REPORT_ATEXIT
68657f2py_start_call_clock();
68658#endif
68659/*callfortranroutine*/
68660 (*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alpha,beta,&q,&ldq,&z,&ldz,&m,&pl,&pr,&dif,&work,&lwork,&iwork,&liwork,&info) ;
68661 /*(*f2py_func)(&ijob,&wantq,&wantz,select,&n,a,&lda,b,&ldb,alpha,beta,&q,&ldq,&z,&ldz,&m,&pl,&pr,&dif,&work,&lwork,&iwork,&liwork,&info);*/
68662if (PyErr_Occurred())
68663 f2py_success = 0;
68664#ifdef F2PY_REPORT_ATEXIT
68665f2py_stop_call_clock();
68666#endif
68667/*end of callfortranroutine*/
68668 if (f2py_success) {
68669/*pyobjfrom*/
68670 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
68671/*end of pyobjfrom*/
68672 CFUNCSMESS("Building return value.\n");
68673 capi_buildvalue = Py_BuildValue("Nii",work_capi,iwork,info);
68674/*closepyobjfrom*/
68675/*end of closepyobjfrom*/
68676 } /*if (f2py_success) after callfortranroutine*/
68677/*cleanupfrompyobj*/
68678 if((PyObject *)capi_b_tmp!=b_capi) {
68679 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
68680 } /*if (capi_b_tmp == NULL) ... else of b*/
68681 /* End of cleaning variable b */
68682 if((PyObject *)capi_select_tmp!=select_capi) {
68683 Py_XDECREF(capi_select_tmp)_Py_XDECREF(((PyObject*)(capi_select_tmp))); }
68684 } /*if (capi_select_tmp == NULL) ... else of select*/
68685 /* End of cleaning variable select */
68686 /* End of cleaning variable ldz */
68687 /* End of cleaning variable ldq */
68688 Py_XDECREF(capi_beta_tmp)_Py_XDECREF(((PyObject*)(capi_beta_tmp)));
68689 } /*if (capi_beta_tmp == NULL) ... else of beta*/
68690 /* End of cleaning variable beta */
68691 Py_XDECREF(capi_alpha_tmp)_Py_XDECREF(((PyObject*)(capi_alpha_tmp)));
68692 } /*if (capi_alpha_tmp == NULL) ... else of alpha*/
68693 /* End of cleaning variable alpha */
68694 /* End of cleaning variable ldb */
68695 /* End of cleaning variable lda */
68696 /* End of cleaning variable n */
68697 /* End of cleaning variable info */
68698 /* End of cleaning variable iwork */
68699 /* End of cleaning variable work */
68700 /* End of cleaning variable liwork */
68701 /* End of cleaning variable lwork */
68702 /* End of cleaning variable dif */
68703 /* End of cleaning variable pr */
68704 /* End of cleaning variable pl */
68705 /* End of cleaning variable m */
68706 /* End of cleaning variable z */
68707 /* End of cleaning variable q */
68708 /* End of cleaning variable wantz */
68709 /* End of cleaning variable wantq */
68710 if((PyObject *)capi_a_tmp!=a_capi) {
68711 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
68712 } /*if (capi_a_tmp == NULL) ... else of a*/
68713 /* End of cleaning variable a */
68714 } /*CHECKSCALAR(ijob>=0&&ijob<=5)*/
68715 } /*if (f2py_success) of ijob*/
68716 /* End of cleaning variable ijob */
68717/*end of cleanupfrompyobj*/
68718 if (capi_buildvalue == NULL((void*)0)) {
68719/*routdebugfailure*/
68720 } else {
68721/*routdebugleave*/
68722 }
68723 CFUNCSMESS("Freeing memory.\n");
68724/*freemem*/
68725#ifdef F2PY_REPORT_ATEXIT
68726f2py_stop_clock();
68727#endif
68728 return capi_buildvalue;
68729}
68730/**************************** end of ztgsen_lwork ****************************/
68731
68732/*********************************** spbtrf ***********************************/
68733static char doc_f2py_rout__flapack_spbtrf[] = "\
68734c,info = spbtrf(ab,[lower,ldab,overwrite_ab])\n\nWrapper for ``spbtrf``.\
68735\n\nParameters\n----------\n"
68736"ab : input rank-2 array('f') with bounds (ldab,n)\n"
68737"\nOther Parameters\n----------------\n"
68738"lower : input int, optional\n Default: 0\n"
68739"overwrite_ab : input int, optional\n Default: 0\n"
68740"ldab : input int, optional\n Default: shape(ab,0)\n"
68741"\nReturns\n-------\n"
68742"c : rank-2 array('f') with bounds (ldab,n) and ab storage\n"
68743"info : int";
68744/* extern void F_FUNC(spbtrf,SPBTRF)(char*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */
68745static PyObject *f2py_rout__flapack_spbtrf(const PyObject *capi_self,
68746 PyObject *capi_args,
68747 PyObject *capi_keywds,
68748 void (*f2py_func)(char*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) {
68749 PyObject * volatile capi_buildvalue = NULL((void*)0);
68750 volatile int f2py_success = 1;
68751/*decl*/
68752
68753 int lower = 0;
68754 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
68755 int n = 0;
68756 int kd = 0;
68757 float *ab = NULL((void*)0);
68758 npy_intp ab_Dims[2] = {-1, -1};
68759 const int ab_Rank = 2;
68760 PyArrayObject *capi_ab_tmp = NULL((void*)0);
68761 int capi_ab_intent = 0;
68762 int capi_overwrite_ab = 0;
68763 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
68764 int ldab = 0;
68765 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
68766 int info = 0;
68767 static char *capi_kwlist[] = {"ab","lower","ldab","overwrite_ab",NULL((void*)0)};
68768
68769/*routdebugenter*/
68770#ifdef F2PY_REPORT_ATEXIT
68771f2py_start_clock();
68772#endif
68773 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
68774 "O|OOi:_flapack.spbtrf",\
68775 capi_kwlist,&ab_capi,&lower_capi,&ldab_capi,&capi_overwrite_ab))
68776 return NULL((void*)0);
68777/*frompyobj*/
68778 /* Processing variable lower */
68779 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
68780 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spbtrf() 1st keyword (lower) can't be converted to int");
68781 if (f2py_success) {
68782 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","spbtrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spbtrf:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
68783 /* Processing variable ab */
68784 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
68785 ;
68786 capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
68787 capi_ab_tmp = array_from_pyobj(NPY_FLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
68788 if (capi_ab_tmp == NULL((void*)0)) {
68789 if (!PyErr_Occurred())
68790 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.spbtrf to C/Fortran array" );
68791 } else {
68792 ab = (float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
68793
68794 /* Processing variable info */
68795 /* Processing variable ldab */
68796 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
68797 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.spbtrf() 2nd keyword (ldab) can't be converted to int");
68798 if (f2py_success) {
68799 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","spbtrf:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spbtrf:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
68800 /* Processing variable n */
68801 n = shape(ab,1)ab_Dims[1];
68802 /* Processing variable kd */
68803 kd = shape(ab,0)ab_Dims[0]-1;
68804/*end of frompyobj*/
68805#ifdef F2PY_REPORT_ATEXIT
68806f2py_start_call_clock();
68807#endif
68808/*callfortranroutine*/
68809 (*f2py_func)((lower?"L":"U"),&n,&kd,ab,&ldab,&info); ;
68810 /*(*f2py_func)(&lower,&n,&kd,ab,&ldab,&info);*/
68811if (PyErr_Occurred())
68812 f2py_success = 0;
68813#ifdef F2PY_REPORT_ATEXIT
68814f2py_stop_call_clock();
68815#endif
68816/*end of callfortranroutine*/
68817 if (f2py_success) {
68818/*pyobjfrom*/
68819/*end of pyobjfrom*/
68820 CFUNCSMESS("Building return value.\n");
68821 capi_buildvalue = Py_BuildValue("Ni",capi_ab_tmp,info);
68822/*closepyobjfrom*/
68823/*end of closepyobjfrom*/
68824 } /*if (f2py_success) after callfortranroutine*/
68825/*cleanupfrompyobj*/
68826 /* End of cleaning variable kd */
68827 /* End of cleaning variable n */
68828 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
68829 } /*if (f2py_success) of ldab*/
68830 /* End of cleaning variable ldab */
68831 /* End of cleaning variable info */
68832 } /*if (capi_ab_tmp == NULL) ... else of ab*/
68833 /* End of cleaning variable ab */
68834 } /*CHECKSCALAR(lower==0||lower==1)*/
68835 } /*if (f2py_success) of lower*/
68836 /* End of cleaning variable lower */
68837/*end of cleanupfrompyobj*/
68838 if (capi_buildvalue == NULL((void*)0)) {
68839/*routdebugfailure*/
68840 } else {
68841/*routdebugleave*/
68842 }
68843 CFUNCSMESS("Freeing memory.\n");
68844/*freemem*/
68845#ifdef F2PY_REPORT_ATEXIT
68846f2py_stop_clock();
68847#endif
68848 return capi_buildvalue;
68849}
68850/******************************* end of spbtrf *******************************/
68851
68852/*********************************** dpbtrf ***********************************/
68853static char doc_f2py_rout__flapack_dpbtrf[] = "\
68854c,info = dpbtrf(ab,[lower,ldab,overwrite_ab])\n\nWrapper for ``dpbtrf``.\
68855\n\nParameters\n----------\n"
68856"ab : input rank-2 array('d') with bounds (ldab,n)\n"
68857"\nOther Parameters\n----------------\n"
68858"lower : input int, optional\n Default: 0\n"
68859"overwrite_ab : input int, optional\n Default: 0\n"
68860"ldab : input int, optional\n Default: shape(ab,0)\n"
68861"\nReturns\n-------\n"
68862"c : rank-2 array('d') with bounds (ldab,n) and ab storage\n"
68863"info : int";
68864/* extern void F_FUNC(dpbtrf,DPBTRF)(char*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */
68865static PyObject *f2py_rout__flapack_dpbtrf(const PyObject *capi_self,
68866 PyObject *capi_args,
68867 PyObject *capi_keywds,
68868 void (*f2py_func)(char*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) {
68869 PyObject * volatile capi_buildvalue = NULL((void*)0);
68870 volatile int f2py_success = 1;
68871/*decl*/
68872
68873 int lower = 0;
68874 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
68875 int n = 0;
68876 int kd = 0;
68877 double *ab = NULL((void*)0);
68878 npy_intp ab_Dims[2] = {-1, -1};
68879 const int ab_Rank = 2;
68880 PyArrayObject *capi_ab_tmp = NULL((void*)0);
68881 int capi_ab_intent = 0;
68882 int capi_overwrite_ab = 0;
68883 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
68884 int ldab = 0;
68885 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
68886 int info = 0;
68887 static char *capi_kwlist[] = {"ab","lower","ldab","overwrite_ab",NULL((void*)0)};
68888
68889/*routdebugenter*/
68890#ifdef F2PY_REPORT_ATEXIT
68891f2py_start_clock();
68892#endif
68893 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
68894 "O|OOi:_flapack.dpbtrf",\
68895 capi_kwlist,&ab_capi,&lower_capi,&ldab_capi,&capi_overwrite_ab))
68896 return NULL((void*)0);
68897/*frompyobj*/
68898 /* Processing variable lower */
68899 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
68900 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpbtrf() 1st keyword (lower) can't be converted to int");
68901 if (f2py_success) {
68902 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dpbtrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpbtrf:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
68903 /* Processing variable ab */
68904 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
68905 ;
68906 capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
68907 capi_ab_tmp = array_from_pyobj(NPY_DOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
68908 if (capi_ab_tmp == NULL((void*)0)) {
68909 if (!PyErr_Occurred())
68910 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.dpbtrf to C/Fortran array" );
68911 } else {
68912 ab = (double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
68913
68914 /* Processing variable info */
68915 /* Processing variable ldab */
68916 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
68917 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.dpbtrf() 2nd keyword (ldab) can't be converted to int");
68918 if (f2py_success) {
68919 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","dpbtrf:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpbtrf:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
68920 /* Processing variable n */
68921 n = shape(ab,1)ab_Dims[1];
68922 /* Processing variable kd */
68923 kd = shape(ab,0)ab_Dims[0]-1;
68924/*end of frompyobj*/
68925#ifdef F2PY_REPORT_ATEXIT
68926f2py_start_call_clock();
68927#endif
68928/*callfortranroutine*/
68929 (*f2py_func)((lower?"L":"U"),&n,&kd,ab,&ldab,&info); ;
68930 /*(*f2py_func)(&lower,&n,&kd,ab,&ldab,&info);*/
68931if (PyErr_Occurred())
68932 f2py_success = 0;
68933#ifdef F2PY_REPORT_ATEXIT
68934f2py_stop_call_clock();
68935#endif
68936/*end of callfortranroutine*/
68937 if (f2py_success) {
68938/*pyobjfrom*/
68939/*end of pyobjfrom*/
68940 CFUNCSMESS("Building return value.\n");
68941 capi_buildvalue = Py_BuildValue("Ni",capi_ab_tmp,info);
68942/*closepyobjfrom*/
68943/*end of closepyobjfrom*/
68944 } /*if (f2py_success) after callfortranroutine*/
68945/*cleanupfrompyobj*/
68946 /* End of cleaning variable kd */
68947 /* End of cleaning variable n */
68948 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
68949 } /*if (f2py_success) of ldab*/
68950 /* End of cleaning variable ldab */
68951 /* End of cleaning variable info */
68952 } /*if (capi_ab_tmp == NULL) ... else of ab*/
68953 /* End of cleaning variable ab */
68954 } /*CHECKSCALAR(lower==0||lower==1)*/
68955 } /*if (f2py_success) of lower*/
68956 /* End of cleaning variable lower */
68957/*end of cleanupfrompyobj*/
68958 if (capi_buildvalue == NULL((void*)0)) {
68959/*routdebugfailure*/
68960 } else {
68961/*routdebugleave*/
68962 }
68963 CFUNCSMESS("Freeing memory.\n");
68964/*freemem*/
68965#ifdef F2PY_REPORT_ATEXIT
68966f2py_stop_clock();
68967#endif
68968 return capi_buildvalue;
68969}
68970/******************************* end of dpbtrf *******************************/
68971
68972/*********************************** cpbtrf ***********************************/
68973static char doc_f2py_rout__flapack_cpbtrf[] = "\
68974c,info = cpbtrf(ab,[lower,ldab,overwrite_ab])\n\nWrapper for ``cpbtrf``.\
68975\n\nParameters\n----------\n"
68976"ab : input rank-2 array('F') with bounds (ldab,n)\n"
68977"\nOther Parameters\n----------------\n"
68978"lower : input int, optional\n Default: 0\n"
68979"overwrite_ab : input int, optional\n Default: 0\n"
68980"ldab : input int, optional\n Default: shape(ab,0)\n"
68981"\nReturns\n-------\n"
68982"c : rank-2 array('F') with bounds (ldab,n) and ab storage\n"
68983"info : int";
68984/* extern void F_FUNC(cpbtrf,CPBTRF)(char*,F_INT*,F_INT*,complex_float*,F_INT*,F_INT* ); */
68985static PyObject *f2py_rout__flapack_cpbtrf(const PyObject *capi_self,
68986 PyObject *capi_args,
68987 PyObject *capi_keywds,
68988 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
68989 PyObject * volatile capi_buildvalue = NULL((void*)0);
68990 volatile int f2py_success = 1;
68991/*decl*/
68992
68993 int lower = 0;
68994 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
68995 int n = 0;
68996 int kd = 0;
68997 complex_float *ab = NULL((void*)0);
68998 npy_intp ab_Dims[2] = {-1, -1};
68999 const int ab_Rank = 2;
69000 PyArrayObject *capi_ab_tmp = NULL((void*)0);
69001 int capi_ab_intent = 0;
69002 int capi_overwrite_ab = 0;
69003 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
69004 int ldab = 0;
69005 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
69006 int info = 0;
69007 static char *capi_kwlist[] = {"ab","lower","ldab","overwrite_ab",NULL((void*)0)};
69008
69009/*routdebugenter*/
69010#ifdef F2PY_REPORT_ATEXIT
69011f2py_start_clock();
69012#endif
69013 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
69014 "O|OOi:_flapack.cpbtrf",\
69015 capi_kwlist,&ab_capi,&lower_capi,&ldab_capi,&capi_overwrite_ab))
69016 return NULL((void*)0);
69017/*frompyobj*/
69018 /* Processing variable lower */
69019 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
69020 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpbtrf() 1st keyword (lower) can't be converted to int");
69021 if (f2py_success) {
69022 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cpbtrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpbtrf:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
69023 /* Processing variable ab */
69024 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
69025 ;
69026 capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
69027 capi_ab_tmp = array_from_pyobj(NPY_CFLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
69028 if (capi_ab_tmp == NULL((void*)0)) {
69029 if (!PyErr_Occurred())
69030 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.cpbtrf to C/Fortran array" );
69031 } else {
69032 ab = (complex_float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
69033
69034 /* Processing variable info */
69035 /* Processing variable ldab */
69036 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
69037 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.cpbtrf() 2nd keyword (ldab) can't be converted to int");
69038 if (f2py_success) {
69039 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","cpbtrf:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpbtrf:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
69040 /* Processing variable n */
69041 n = shape(ab,1)ab_Dims[1];
69042 /* Processing variable kd */
69043 kd = shape(ab,0)ab_Dims[0]-1;
69044/*end of frompyobj*/
69045#ifdef F2PY_REPORT_ATEXIT
69046f2py_start_call_clock();
69047#endif
69048/*callfortranroutine*/
69049 (*f2py_func)((lower?"L":"U"),&n,&kd,ab,&ldab,&info); ;
69050 /*(*f2py_func)(&lower,&n,&kd,ab,&ldab,&info);*/
69051if (PyErr_Occurred())
69052 f2py_success = 0;
69053#ifdef F2PY_REPORT_ATEXIT
69054f2py_stop_call_clock();
69055#endif
69056/*end of callfortranroutine*/
69057 if (f2py_success) {
69058/*pyobjfrom*/
69059/*end of pyobjfrom*/
69060 CFUNCSMESS("Building return value.\n");
69061 capi_buildvalue = Py_BuildValue("Ni",capi_ab_tmp,info);
69062/*closepyobjfrom*/
69063/*end of closepyobjfrom*/
69064 } /*if (f2py_success) after callfortranroutine*/
69065/*cleanupfrompyobj*/
69066 /* End of cleaning variable kd */
69067 /* End of cleaning variable n */
69068 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
69069 } /*if (f2py_success) of ldab*/
69070 /* End of cleaning variable ldab */
69071 /* End of cleaning variable info */
69072 } /*if (capi_ab_tmp == NULL) ... else of ab*/
69073 /* End of cleaning variable ab */
69074 } /*CHECKSCALAR(lower==0||lower==1)*/
69075 } /*if (f2py_success) of lower*/
69076 /* End of cleaning variable lower */
69077/*end of cleanupfrompyobj*/
69078 if (capi_buildvalue == NULL((void*)0)) {
69079/*routdebugfailure*/
69080 } else {
69081/*routdebugleave*/
69082 }
69083 CFUNCSMESS("Freeing memory.\n");
69084/*freemem*/
69085#ifdef F2PY_REPORT_ATEXIT
69086f2py_stop_clock();
69087#endif
69088 return capi_buildvalue;
69089}
69090/******************************* end of cpbtrf *******************************/
69091
69092/*********************************** zpbtrf ***********************************/
69093static char doc_f2py_rout__flapack_zpbtrf[] = "\
69094c,info = zpbtrf(ab,[lower,ldab,overwrite_ab])\n\nWrapper for ``zpbtrf``.\
69095\n\nParameters\n----------\n"
69096"ab : input rank-2 array('D') with bounds (ldab,n)\n"
69097"\nOther Parameters\n----------------\n"
69098"lower : input int, optional\n Default: 0\n"
69099"overwrite_ab : input int, optional\n Default: 0\n"
69100"ldab : input int, optional\n Default: shape(ab,0)\n"
69101"\nReturns\n-------\n"
69102"c : rank-2 array('D') with bounds (ldab,n) and ab storage\n"
69103"info : int";
69104/* extern void F_FUNC(zpbtrf,ZPBTRF)(char*,F_INT*,F_INT*,complex_double*,F_INT*,F_INT* ); */
69105static PyObject *f2py_rout__flapack_zpbtrf(const PyObject *capi_self,
69106 PyObject *capi_args,
69107 PyObject *capi_keywds,
69108 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
69109 PyObject * volatile capi_buildvalue = NULL((void*)0);
69110 volatile int f2py_success = 1;
69111/*decl*/
69112
69113 int lower = 0;
69114 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
69115 int n = 0;
69116 int kd = 0;
69117 complex_double *ab = NULL((void*)0);
69118 npy_intp ab_Dims[2] = {-1, -1};
69119 const int ab_Rank = 2;
69120 PyArrayObject *capi_ab_tmp = NULL((void*)0);
69121 int capi_ab_intent = 0;
69122 int capi_overwrite_ab = 0;
69123 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
69124 int ldab = 0;
69125 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
69126 int info = 0;
69127 static char *capi_kwlist[] = {"ab","lower","ldab","overwrite_ab",NULL((void*)0)};
69128
69129/*routdebugenter*/
69130#ifdef F2PY_REPORT_ATEXIT
69131f2py_start_clock();
69132#endif
69133 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
69134 "O|OOi:_flapack.zpbtrf",\
69135 capi_kwlist,&ab_capi,&lower_capi,&ldab_capi,&capi_overwrite_ab))
69136 return NULL((void*)0);
69137/*frompyobj*/
69138 /* Processing variable lower */
69139 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
69140 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpbtrf() 1st keyword (lower) can't be converted to int");
69141 if (f2py_success) {
69142 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zpbtrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpbtrf:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
69143 /* Processing variable ab */
69144 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
69145 ;
69146 capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
69147 capi_ab_tmp = array_from_pyobj(NPY_CDOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
69148 if (capi_ab_tmp == NULL((void*)0)) {
69149 if (!PyErr_Occurred())
69150 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.zpbtrf to C/Fortran array" );
69151 } else {
69152 ab = (complex_double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
69153
69154 /* Processing variable info */
69155 /* Processing variable ldab */
69156 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
69157 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.zpbtrf() 2nd keyword (ldab) can't be converted to int");
69158 if (f2py_success) {
69159 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","zpbtrf:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpbtrf:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
69160 /* Processing variable n */
69161 n = shape(ab,1)ab_Dims[1];
69162 /* Processing variable kd */
69163 kd = shape(ab,0)ab_Dims[0]-1;
69164/*end of frompyobj*/
69165#ifdef F2PY_REPORT_ATEXIT
69166f2py_start_call_clock();
69167#endif
69168/*callfortranroutine*/
69169 (*f2py_func)((lower?"L":"U"),&n,&kd,ab,&ldab,&info); ;
69170 /*(*f2py_func)(&lower,&n,&kd,ab,&ldab,&info);*/
69171if (PyErr_Occurred())
69172 f2py_success = 0;
69173#ifdef F2PY_REPORT_ATEXIT
69174f2py_stop_call_clock();
69175#endif
69176/*end of callfortranroutine*/
69177 if (f2py_success) {
69178/*pyobjfrom*/
69179/*end of pyobjfrom*/
69180 CFUNCSMESS("Building return value.\n");
69181 capi_buildvalue = Py_BuildValue("Ni",capi_ab_tmp,info);
69182/*closepyobjfrom*/
69183/*end of closepyobjfrom*/
69184 } /*if (f2py_success) after callfortranroutine*/
69185/*cleanupfrompyobj*/
69186 /* End of cleaning variable kd */
69187 /* End of cleaning variable n */
69188 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
69189 } /*if (f2py_success) of ldab*/
69190 /* End of cleaning variable ldab */
69191 /* End of cleaning variable info */
69192 } /*if (capi_ab_tmp == NULL) ... else of ab*/
69193 /* End of cleaning variable ab */
69194 } /*CHECKSCALAR(lower==0||lower==1)*/
69195 } /*if (f2py_success) of lower*/
69196 /* End of cleaning variable lower */
69197/*end of cleanupfrompyobj*/
69198 if (capi_buildvalue == NULL((void*)0)) {
69199/*routdebugfailure*/
69200 } else {
69201/*routdebugleave*/
69202 }
69203 CFUNCSMESS("Freeing memory.\n");
69204/*freemem*/
69205#ifdef F2PY_REPORT_ATEXIT
69206f2py_stop_clock();
69207#endif
69208 return capi_buildvalue;
69209}
69210/******************************* end of zpbtrf *******************************/
69211
69212/*********************************** spbtrs ***********************************/
69213static char doc_f2py_rout__flapack_spbtrs[] = "\
69214x,info = spbtrs(ab,b,[lower,ldab,overwrite_b])\n\nWrapper for ``spbtrs``.\
69215\n\nParameters\n----------\n"
69216"ab : input rank-2 array('f') with bounds (ldab,n)\n"
69217"b : input rank-2 array('f') with bounds (ldb,nrhs)\n"
69218"\nOther Parameters\n----------------\n"
69219"lower : input int, optional\n Default: 0\n"
69220"ldab : input int, optional\n Default: shape(ab,0)\n"
69221"overwrite_b : input int, optional\n Default: 0\n"
69222"\nReturns\n-------\n"
69223"x : rank-2 array('f') with bounds (ldb,nrhs) and b storage\n"
69224"info : int";
69225/* extern void F_FUNC(spbtrs,SPBTRS)(char*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */
69226static PyObject *f2py_rout__flapack_spbtrs(const PyObject *capi_self,
69227 PyObject *capi_args,
69228 PyObject *capi_keywds,
69229 void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
69230 PyObject * volatile capi_buildvalue = NULL((void*)0);
69231 volatile int f2py_success = 1;
69232/*decl*/
69233
69234 int lower = 0;
69235 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
69236 int n = 0;
69237 int kd = 0;
69238 int nrhs = 0;
69239 float *ab = NULL((void*)0);
69240 npy_intp ab_Dims[2] = {-1, -1};
69241 const int ab_Rank = 2;
69242 PyArrayObject *capi_ab_tmp = NULL((void*)0);
69243 int capi_ab_intent = 0;
69244 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
69245 int ldab = 0;
69246 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
69247 float *b = NULL((void*)0);
69248 npy_intp b_Dims[2] = {-1, -1};
69249 const int b_Rank = 2;
69250 PyArrayObject *capi_b_tmp = NULL((void*)0);
69251 int capi_b_intent = 0;
69252 int capi_overwrite_b = 0;
69253 PyObject *b_capi = Py_None(&_Py_NoneStruct);
69254 int ldb = 0;
69255 int info = 0;
69256 static char *capi_kwlist[] = {"ab","b","lower","ldab","overwrite_b",NULL((void*)0)};
69257
69258/*routdebugenter*/
69259#ifdef F2PY_REPORT_ATEXIT
69260f2py_start_clock();
69261#endif
69262 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
69263 "OO|OOi:_flapack.spbtrs",\
69264 capi_kwlist,&ab_capi,&b_capi,&lower_capi,&ldab_capi,&capi_overwrite_b))
69265 return NULL((void*)0);
69266/*frompyobj*/
69267 /* Processing variable lower */
69268 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
69269 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spbtrs() 1st keyword (lower) can't be converted to int");
69270 if (f2py_success) {
69271 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","spbtrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spbtrs:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
69272 /* Processing variable b */
69273 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
69274 ;
69275 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
69276 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
69277 if (capi_b_tmp == NULL((void*)0)) {
69278 if (!PyErr_Occurred())
69279 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.spbtrs to C/Fortran array" );
69280 } else {
69281 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
69282
69283 /* Processing variable ab */
69284 ;
69285 capi_ab_intent |= F2PY_INTENT_IN1;
69286 capi_ab_tmp = array_from_pyobj(NPY_FLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
69287 if (capi_ab_tmp == NULL((void*)0)) {
69288 if (!PyErr_Occurred())
69289 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.spbtrs to C/Fortran array" );
69290 } else {
69291 ab = (float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
69292
69293 /* Processing variable info */
69294 /* Processing variable ldab */
69295 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
69296 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.spbtrs() 2nd keyword (ldab) can't be converted to int");
69297 if (f2py_success) {
69298 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","spbtrs:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spbtrs:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
69299 /* Processing variable n */
69300 n = shape(ab,1)ab_Dims[1];
69301 /* Processing variable kd */
69302 kd = shape(ab,0)ab_Dims[0]-1;
69303 /* Processing variable ldb */
69304 ldb = shape(b,0)b_Dims[0];
69305 /* Processing variable nrhs */
69306 nrhs = shape(b,1)b_Dims[1];
69307/*end of frompyobj*/
69308#ifdef F2PY_REPORT_ATEXIT
69309f2py_start_call_clock();
69310#endif
69311/*callfortranroutine*/
69312 (*f2py_func)((lower?"L":"U"),&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info); ;
69313 /*(*f2py_func)(&lower,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info);*/
69314if (PyErr_Occurred())
69315 f2py_success = 0;
69316#ifdef F2PY_REPORT_ATEXIT
69317f2py_stop_call_clock();
69318#endif
69319/*end of callfortranroutine*/
69320 if (f2py_success) {
69321/*pyobjfrom*/
69322/*end of pyobjfrom*/
69323 CFUNCSMESS("Building return value.\n");
69324 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
69325/*closepyobjfrom*/
69326/*end of closepyobjfrom*/
69327 } /*if (f2py_success) after callfortranroutine*/
69328/*cleanupfrompyobj*/
69329 /* End of cleaning variable nrhs */
69330 /* End of cleaning variable ldb */
69331 /* End of cleaning variable kd */
69332 /* End of cleaning variable n */
69333 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
69334 } /*if (f2py_success) of ldab*/
69335 /* End of cleaning variable ldab */
69336 /* End of cleaning variable info */
69337 if((PyObject *)capi_ab_tmp!=ab_capi) {
69338 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
69339 } /*if (capi_ab_tmp == NULL) ... else of ab*/
69340 /* End of cleaning variable ab */
69341 } /*if (capi_b_tmp == NULL) ... else of b*/
69342 /* End of cleaning variable b */
69343 } /*CHECKSCALAR(lower==0||lower==1)*/
69344 } /*if (f2py_success) of lower*/
69345 /* End of cleaning variable lower */
69346/*end of cleanupfrompyobj*/
69347 if (capi_buildvalue == NULL((void*)0)) {
69348/*routdebugfailure*/
69349 } else {
69350/*routdebugleave*/
69351 }
69352 CFUNCSMESS("Freeing memory.\n");
69353/*freemem*/
69354#ifdef F2PY_REPORT_ATEXIT
69355f2py_stop_clock();
69356#endif
69357 return capi_buildvalue;
69358}
69359/******************************* end of spbtrs *******************************/
69360
69361/*********************************** dpbtrs ***********************************/
69362static char doc_f2py_rout__flapack_dpbtrs[] = "\
69363x,info = dpbtrs(ab,b,[lower,ldab,overwrite_b])\n\nWrapper for ``dpbtrs``.\
69364\n\nParameters\n----------\n"
69365"ab : input rank-2 array('d') with bounds (ldab,n)\n"
69366"b : input rank-2 array('d') with bounds (ldb,nrhs)\n"
69367"\nOther Parameters\n----------------\n"
69368"lower : input int, optional\n Default: 0\n"
69369"ldab : input int, optional\n Default: shape(ab,0)\n"
69370"overwrite_b : input int, optional\n Default: 0\n"
69371"\nReturns\n-------\n"
69372"x : rank-2 array('d') with bounds (ldb,nrhs) and b storage\n"
69373"info : int";
69374/* extern void F_FUNC(dpbtrs,DPBTRS)(char*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */
69375static PyObject *f2py_rout__flapack_dpbtrs(const PyObject *capi_self,
69376 PyObject *capi_args,
69377 PyObject *capi_keywds,
69378 void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
69379 PyObject * volatile capi_buildvalue = NULL((void*)0);
69380 volatile int f2py_success = 1;
69381/*decl*/
69382
69383 int lower = 0;
69384 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
69385 int n = 0;
69386 int kd = 0;
69387 int nrhs = 0;
69388 double *ab = NULL((void*)0);
69389 npy_intp ab_Dims[2] = {-1, -1};
69390 const int ab_Rank = 2;
69391 PyArrayObject *capi_ab_tmp = NULL((void*)0);
69392 int capi_ab_intent = 0;
69393 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
69394 int ldab = 0;
69395 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
69396 double *b = NULL((void*)0);
69397 npy_intp b_Dims[2] = {-1, -1};
69398 const int b_Rank = 2;
69399 PyArrayObject *capi_b_tmp = NULL((void*)0);
69400 int capi_b_intent = 0;
69401 int capi_overwrite_b = 0;
69402 PyObject *b_capi = Py_None(&_Py_NoneStruct);
69403 int ldb = 0;
69404 int info = 0;
69405 static char *capi_kwlist[] = {"ab","b","lower","ldab","overwrite_b",NULL((void*)0)};
69406
69407/*routdebugenter*/
69408#ifdef F2PY_REPORT_ATEXIT
69409f2py_start_clock();
69410#endif
69411 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
69412 "OO|OOi:_flapack.dpbtrs",\
69413 capi_kwlist,&ab_capi,&b_capi,&lower_capi,&ldab_capi,&capi_overwrite_b))
69414 return NULL((void*)0);
69415/*frompyobj*/
69416 /* Processing variable lower */
69417 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
69418 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpbtrs() 1st keyword (lower) can't be converted to int");
69419 if (f2py_success) {
69420 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dpbtrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpbtrs:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
69421 /* Processing variable b */
69422 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
69423 ;
69424 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
69425 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
69426 if (capi_b_tmp == NULL((void*)0)) {
69427 if (!PyErr_Occurred())
69428 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dpbtrs to C/Fortran array" );
69429 } else {
69430 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
69431
69432 /* Processing variable ab */
69433 ;
69434 capi_ab_intent |= F2PY_INTENT_IN1;
69435 capi_ab_tmp = array_from_pyobj(NPY_DOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
69436 if (capi_ab_tmp == NULL((void*)0)) {
69437 if (!PyErr_Occurred())
69438 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.dpbtrs to C/Fortran array" );
69439 } else {
69440 ab = (double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
69441
69442 /* Processing variable info */
69443 /* Processing variable ldab */
69444 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
69445 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.dpbtrs() 2nd keyword (ldab) can't be converted to int");
69446 if (f2py_success) {
69447 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","dpbtrs:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpbtrs:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
69448 /* Processing variable n */
69449 n = shape(ab,1)ab_Dims[1];
69450 /* Processing variable kd */
69451 kd = shape(ab,0)ab_Dims[0]-1;
69452 /* Processing variable ldb */
69453 ldb = shape(b,0)b_Dims[0];
69454 /* Processing variable nrhs */
69455 nrhs = shape(b,1)b_Dims[1];
69456/*end of frompyobj*/
69457#ifdef F2PY_REPORT_ATEXIT
69458f2py_start_call_clock();
69459#endif
69460/*callfortranroutine*/
69461 (*f2py_func)((lower?"L":"U"),&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info); ;
69462 /*(*f2py_func)(&lower,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info);*/
69463if (PyErr_Occurred())
69464 f2py_success = 0;
69465#ifdef F2PY_REPORT_ATEXIT
69466f2py_stop_call_clock();
69467#endif
69468/*end of callfortranroutine*/
69469 if (f2py_success) {
69470/*pyobjfrom*/
69471/*end of pyobjfrom*/
69472 CFUNCSMESS("Building return value.\n");
69473 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
69474/*closepyobjfrom*/
69475/*end of closepyobjfrom*/
69476 } /*if (f2py_success) after callfortranroutine*/
69477/*cleanupfrompyobj*/
69478 /* End of cleaning variable nrhs */
69479 /* End of cleaning variable ldb */
69480 /* End of cleaning variable kd */
69481 /* End of cleaning variable n */
69482 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
69483 } /*if (f2py_success) of ldab*/
69484 /* End of cleaning variable ldab */
69485 /* End of cleaning variable info */
69486 if((PyObject *)capi_ab_tmp!=ab_capi) {
69487 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
69488 } /*if (capi_ab_tmp == NULL) ... else of ab*/
69489 /* End of cleaning variable ab */
69490 } /*if (capi_b_tmp == NULL) ... else of b*/
69491 /* End of cleaning variable b */
69492 } /*CHECKSCALAR(lower==0||lower==1)*/
69493 } /*if (f2py_success) of lower*/
69494 /* End of cleaning variable lower */
69495/*end of cleanupfrompyobj*/
69496 if (capi_buildvalue == NULL((void*)0)) {
69497/*routdebugfailure*/
69498 } else {
69499/*routdebugleave*/
69500 }
69501 CFUNCSMESS("Freeing memory.\n");
69502/*freemem*/
69503#ifdef F2PY_REPORT_ATEXIT
69504f2py_stop_clock();
69505#endif
69506 return capi_buildvalue;
69507}
69508/******************************* end of dpbtrs *******************************/
69509
69510/*********************************** cpbtrs ***********************************/
69511static char doc_f2py_rout__flapack_cpbtrs[] = "\
69512x,info = cpbtrs(ab,b,[lower,ldab,overwrite_b])\n\nWrapper for ``cpbtrs``.\
69513\n\nParameters\n----------\n"
69514"ab : input rank-2 array('F') with bounds (ldab,n)\n"
69515"b : input rank-2 array('F') with bounds (ldb,nrhs)\n"
69516"\nOther Parameters\n----------------\n"
69517"lower : input int, optional\n Default: 0\n"
69518"ldab : input int, optional\n Default: shape(ab,0)\n"
69519"overwrite_b : input int, optional\n Default: 0\n"
69520"\nReturns\n-------\n"
69521"x : rank-2 array('F') with bounds (ldb,nrhs) and b storage\n"
69522"info : int";
69523/* extern void F_FUNC(cpbtrs,CPBTRS)(char*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */
69524static PyObject *f2py_rout__flapack_cpbtrs(const PyObject *capi_self,
69525 PyObject *capi_args,
69526 PyObject *capi_keywds,
69527 void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
69528 PyObject * volatile capi_buildvalue = NULL((void*)0);
69529 volatile int f2py_success = 1;
69530/*decl*/
69531
69532 int lower = 0;
69533 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
69534 int n = 0;
69535 int kd = 0;
69536 int nrhs = 0;
69537 complex_float *ab = NULL((void*)0);
69538 npy_intp ab_Dims[2] = {-1, -1};
69539 const int ab_Rank = 2;
69540 PyArrayObject *capi_ab_tmp = NULL((void*)0);
69541 int capi_ab_intent = 0;
69542 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
69543 int ldab = 0;
69544 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
69545 complex_float *b = NULL((void*)0);
69546 npy_intp b_Dims[2] = {-1, -1};
69547 const int b_Rank = 2;
69548 PyArrayObject *capi_b_tmp = NULL((void*)0);
69549 int capi_b_intent = 0;
69550 int capi_overwrite_b = 0;
69551 PyObject *b_capi = Py_None(&_Py_NoneStruct);
69552 int ldb = 0;
69553 int info = 0;
69554 static char *capi_kwlist[] = {"ab","b","lower","ldab","overwrite_b",NULL((void*)0)};
69555
69556/*routdebugenter*/
69557#ifdef F2PY_REPORT_ATEXIT
69558f2py_start_clock();
69559#endif
69560 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
69561 "OO|OOi:_flapack.cpbtrs",\
69562 capi_kwlist,&ab_capi,&b_capi,&lower_capi,&ldab_capi,&capi_overwrite_b))
69563 return NULL((void*)0);
69564/*frompyobj*/
69565 /* Processing variable lower */
69566 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
69567 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpbtrs() 1st keyword (lower) can't be converted to int");
69568 if (f2py_success) {
69569 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cpbtrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpbtrs:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
69570 /* Processing variable b */
69571 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
69572 ;
69573 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
69574 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
69575 if (capi_b_tmp == NULL((void*)0)) {
69576 if (!PyErr_Occurred())
69577 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cpbtrs to C/Fortran array" );
69578 } else {
69579 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
69580
69581 /* Processing variable ab */
69582 ;
69583 capi_ab_intent |= F2PY_INTENT_IN1;
69584 capi_ab_tmp = array_from_pyobj(NPY_CFLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
69585 if (capi_ab_tmp == NULL((void*)0)) {
69586 if (!PyErr_Occurred())
69587 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.cpbtrs to C/Fortran array" );
69588 } else {
69589 ab = (complex_float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
69590
69591 /* Processing variable info */
69592 /* Processing variable ldab */
69593 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
69594 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.cpbtrs() 2nd keyword (ldab) can't be converted to int");
69595 if (f2py_success) {
69596 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","cpbtrs:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpbtrs:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
69597 /* Processing variable n */
69598 n = shape(ab,1)ab_Dims[1];
69599 /* Processing variable kd */
69600 kd = shape(ab,0)ab_Dims[0]-1;
69601 /* Processing variable ldb */
69602 ldb = shape(b,0)b_Dims[0];
69603 /* Processing variable nrhs */
69604 nrhs = shape(b,1)b_Dims[1];
69605/*end of frompyobj*/
69606#ifdef F2PY_REPORT_ATEXIT
69607f2py_start_call_clock();
69608#endif
69609/*callfortranroutine*/
69610 (*f2py_func)((lower?"L":"U"),&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info); ;
69611 /*(*f2py_func)(&lower,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info);*/
69612if (PyErr_Occurred())
69613 f2py_success = 0;
69614#ifdef F2PY_REPORT_ATEXIT
69615f2py_stop_call_clock();
69616#endif
69617/*end of callfortranroutine*/
69618 if (f2py_success) {
69619/*pyobjfrom*/
69620/*end of pyobjfrom*/
69621 CFUNCSMESS("Building return value.\n");
69622 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
69623/*closepyobjfrom*/
69624/*end of closepyobjfrom*/
69625 } /*if (f2py_success) after callfortranroutine*/
69626/*cleanupfrompyobj*/
69627 /* End of cleaning variable nrhs */
69628 /* End of cleaning variable ldb */
69629 /* End of cleaning variable kd */
69630 /* End of cleaning variable n */
69631 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
69632 } /*if (f2py_success) of ldab*/
69633 /* End of cleaning variable ldab */
69634 /* End of cleaning variable info */
69635 if((PyObject *)capi_ab_tmp!=ab_capi) {
69636 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
69637 } /*if (capi_ab_tmp == NULL) ... else of ab*/
69638 /* End of cleaning variable ab */
69639 } /*if (capi_b_tmp == NULL) ... else of b*/
69640 /* End of cleaning variable b */
69641 } /*CHECKSCALAR(lower==0||lower==1)*/
69642 } /*if (f2py_success) of lower*/
69643 /* End of cleaning variable lower */
69644/*end of cleanupfrompyobj*/
69645 if (capi_buildvalue == NULL((void*)0)) {
69646/*routdebugfailure*/
69647 } else {
69648/*routdebugleave*/
69649 }
69650 CFUNCSMESS("Freeing memory.\n");
69651/*freemem*/
69652#ifdef F2PY_REPORT_ATEXIT
69653f2py_stop_clock();
69654#endif
69655 return capi_buildvalue;
69656}
69657/******************************* end of cpbtrs *******************************/
69658
69659/*********************************** zpbtrs ***********************************/
69660static char doc_f2py_rout__flapack_zpbtrs[] = "\
69661x,info = zpbtrs(ab,b,[lower,ldab,overwrite_b])\n\nWrapper for ``zpbtrs``.\
69662\n\nParameters\n----------\n"
69663"ab : input rank-2 array('D') with bounds (ldab,n)\n"
69664"b : input rank-2 array('D') with bounds (ldb,nrhs)\n"
69665"\nOther Parameters\n----------------\n"
69666"lower : input int, optional\n Default: 0\n"
69667"ldab : input int, optional\n Default: shape(ab,0)\n"
69668"overwrite_b : input int, optional\n Default: 0\n"
69669"\nReturns\n-------\n"
69670"x : rank-2 array('D') with bounds (ldb,nrhs) and b storage\n"
69671"info : int";
69672/* extern void F_FUNC(zpbtrs,ZPBTRS)(char*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */
69673static PyObject *f2py_rout__flapack_zpbtrs(const PyObject *capi_self,
69674 PyObject *capi_args,
69675 PyObject *capi_keywds,
69676 void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
69677 PyObject * volatile capi_buildvalue = NULL((void*)0);
69678 volatile int f2py_success = 1;
69679/*decl*/
69680
69681 int lower = 0;
69682 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
69683 int n = 0;
69684 int kd = 0;
69685 int nrhs = 0;
69686 complex_double *ab = NULL((void*)0);
69687 npy_intp ab_Dims[2] = {-1, -1};
69688 const int ab_Rank = 2;
69689 PyArrayObject *capi_ab_tmp = NULL((void*)0);
69690 int capi_ab_intent = 0;
69691 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
69692 int ldab = 0;
69693 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
69694 complex_double *b = NULL((void*)0);
69695 npy_intp b_Dims[2] = {-1, -1};
69696 const int b_Rank = 2;
69697 PyArrayObject *capi_b_tmp = NULL((void*)0);
69698 int capi_b_intent = 0;
69699 int capi_overwrite_b = 0;
69700 PyObject *b_capi = Py_None(&_Py_NoneStruct);
69701 int ldb = 0;
69702 int info = 0;
69703 static char *capi_kwlist[] = {"ab","b","lower","ldab","overwrite_b",NULL((void*)0)};
69704
69705/*routdebugenter*/
69706#ifdef F2PY_REPORT_ATEXIT
69707f2py_start_clock();
69708#endif
69709 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
69710 "OO|OOi:_flapack.zpbtrs",\
69711 capi_kwlist,&ab_capi,&b_capi,&lower_capi,&ldab_capi,&capi_overwrite_b))
69712 return NULL((void*)0);
69713/*frompyobj*/
69714 /* Processing variable lower */
69715 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
69716 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpbtrs() 1st keyword (lower) can't be converted to int");
69717 if (f2py_success) {
69718 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zpbtrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpbtrs:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
69719 /* Processing variable b */
69720 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
69721 ;
69722 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
69723 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
69724 if (capi_b_tmp == NULL((void*)0)) {
69725 if (!PyErr_Occurred())
69726 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zpbtrs to C/Fortran array" );
69727 } else {
69728 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
69729
69730 /* Processing variable ab */
69731 ;
69732 capi_ab_intent |= F2PY_INTENT_IN1;
69733 capi_ab_tmp = array_from_pyobj(NPY_CDOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
69734 if (capi_ab_tmp == NULL((void*)0)) {
69735 if (!PyErr_Occurred())
69736 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.zpbtrs to C/Fortran array" );
69737 } else {
69738 ab = (complex_double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
69739
69740 /* Processing variable info */
69741 /* Processing variable ldab */
69742 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
69743 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.zpbtrs() 2nd keyword (ldab) can't be converted to int");
69744 if (f2py_success) {
69745 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","zpbtrs:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpbtrs:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
69746 /* Processing variable n */
69747 n = shape(ab,1)ab_Dims[1];
69748 /* Processing variable kd */
69749 kd = shape(ab,0)ab_Dims[0]-1;
69750 /* Processing variable ldb */
69751 ldb = shape(b,0)b_Dims[0];
69752 /* Processing variable nrhs */
69753 nrhs = shape(b,1)b_Dims[1];
69754/*end of frompyobj*/
69755#ifdef F2PY_REPORT_ATEXIT
69756f2py_start_call_clock();
69757#endif
69758/*callfortranroutine*/
69759 (*f2py_func)((lower?"L":"U"),&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info); ;
69760 /*(*f2py_func)(&lower,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info);*/
69761if (PyErr_Occurred())
69762 f2py_success = 0;
69763#ifdef F2PY_REPORT_ATEXIT
69764f2py_stop_call_clock();
69765#endif
69766/*end of callfortranroutine*/
69767 if (f2py_success) {
69768/*pyobjfrom*/
69769/*end of pyobjfrom*/
69770 CFUNCSMESS("Building return value.\n");
69771 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
69772/*closepyobjfrom*/
69773/*end of closepyobjfrom*/
69774 } /*if (f2py_success) after callfortranroutine*/
69775/*cleanupfrompyobj*/
69776 /* End of cleaning variable nrhs */
69777 /* End of cleaning variable ldb */
69778 /* End of cleaning variable kd */
69779 /* End of cleaning variable n */
69780 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
69781 } /*if (f2py_success) of ldab*/
69782 /* End of cleaning variable ldab */
69783 /* End of cleaning variable info */
69784 if((PyObject *)capi_ab_tmp!=ab_capi) {
69785 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
69786 } /*if (capi_ab_tmp == NULL) ... else of ab*/
69787 /* End of cleaning variable ab */
69788 } /*if (capi_b_tmp == NULL) ... else of b*/
69789 /* End of cleaning variable b */
69790 } /*CHECKSCALAR(lower==0||lower==1)*/
69791 } /*if (f2py_success) of lower*/
69792 /* End of cleaning variable lower */
69793/*end of cleanupfrompyobj*/
69794 if (capi_buildvalue == NULL((void*)0)) {
69795/*routdebugfailure*/
69796 } else {
69797/*routdebugleave*/
69798 }
69799 CFUNCSMESS("Freeing memory.\n");
69800/*freemem*/
69801#ifdef F2PY_REPORT_ATEXIT
69802f2py_stop_clock();
69803#endif
69804 return capi_buildvalue;
69805}
69806/******************************* end of zpbtrs *******************************/
69807
69808/*********************************** strtrs ***********************************/
69809static char doc_f2py_rout__flapack_strtrs[] = "\
69810x,info = strtrs(a,b,[lower,trans,unitdiag,lda,overwrite_b])\n\nWrapper for ``strtrs``.\
69811\n\nParameters\n----------\n"
69812"a : input rank-2 array('f') with bounds (lda,n)\n"
69813"b : input rank-2 array('f') with bounds (ldb,nrhs)\n"
69814"\nOther Parameters\n----------------\n"
69815"lower : input int, optional\n Default: 0\n"
69816"trans : input int, optional\n Default: 0\n"
69817"unitdiag : input int, optional\n Default: 0\n"
69818"lda : input int, optional\n Default: shape(a,0)\n"
69819"overwrite_b : input int, optional\n Default: 0\n"
69820"\nReturns\n-------\n"
69821"x : rank-2 array('f') with bounds (ldb,nrhs) and b storage\n"
69822"info : int";
69823/* extern void F_FUNC(strtrs,STRTRS)(char*,char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */
69824static PyObject *f2py_rout__flapack_strtrs(const PyObject *capi_self,
69825 PyObject *capi_args,
69826 PyObject *capi_keywds,
69827 void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
69828 PyObject * volatile capi_buildvalue = NULL((void*)0);
69829 volatile int f2py_success = 1;
69830/*decl*/
69831
69832 int lower = 0;
69833 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
69834 int trans = 0;
69835 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
69836 int unitdiag = 0;
69837 PyObject *unitdiag_capi = Py_None(&_Py_NoneStruct);
69838 int n = 0;
69839 int nrhs = 0;
69840 float *a = NULL((void*)0);
69841 npy_intp a_Dims[2] = {-1, -1};
69842 const int a_Rank = 2;
69843 PyArrayObject *capi_a_tmp = NULL((void*)0);
69844 int capi_a_intent = 0;
69845 PyObject *a_capi = Py_None(&_Py_NoneStruct);
69846 int lda = 0;
69847 PyObject *lda_capi = Py_None(&_Py_NoneStruct);
69848 float *b = NULL((void*)0);
69849 npy_intp b_Dims[2] = {-1, -1};
69850 const int b_Rank = 2;
69851 PyArrayObject *capi_b_tmp = NULL((void*)0);
69852 int capi_b_intent = 0;
69853 int capi_overwrite_b = 0;
69854 PyObject *b_capi = Py_None(&_Py_NoneStruct);
69855 int ldb = 0;
69856 int info = 0;
69857 static char *capi_kwlist[] = {"a","b","lower","trans","unitdiag","lda","overwrite_b",NULL((void*)0)};
69858
69859/*routdebugenter*/
69860#ifdef F2PY_REPORT_ATEXIT
69861f2py_start_clock();
69862#endif
69863 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
69864 "OO|OOOOi:_flapack.strtrs",\
69865 capi_kwlist,&a_capi,&b_capi,&lower_capi,&trans_capi,&unitdiag_capi,&lda_capi,&capi_overwrite_b))
69866 return NULL((void*)0);
69867/*frompyobj*/
69868 /* Processing variable lower */
69869 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
69870 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.strtrs() 1st keyword (lower) can't be converted to int");
69871 if (f2py_success) {
69872 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","strtrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""strtrs:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
69873 /* Processing variable trans */
69874 if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else
69875 f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.strtrs() 2nd keyword (trans) can't be converted to int");
69876 if (f2py_success) {
69877 CHECKSCALAR(trans>=0 && trans <=2,"trans>=0 && trans <=2","2nd keyword trans","strtrs:trans=%d",trans)if (!(trans>=0 && trans <=2)) { char errstring[
256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""strtrs:trans=%d", "(""trans>=0 && trans <=2"
") failed for ""2nd keyword trans", trans); PyErr_SetString(_flapack_error
,errstring); } else
{
69878 /* Processing variable unitdiag */
69879 if (unitdiag_capi == Py_None(&_Py_NoneStruct)) unitdiag = 0; else
69880 f2py_success = int_from_pyobj(&unitdiag,unitdiag_capi,"_flapack.strtrs() 3rd keyword (unitdiag) can't be converted to int");
69881 if (f2py_success) {
69882 CHECKSCALAR(unitdiag==0||unitdiag==1,"unitdiag==0||unitdiag==1","3rd keyword unitdiag","strtrs:unitdiag=%d",unitdiag)if (!(unitdiag==0||unitdiag==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""strtrs:unitdiag=%d", "(""unitdiag==0||unitdiag==1"") failed for "
"3rd keyword unitdiag", unitdiag); PyErr_SetString(_flapack_error
,errstring); } else
{
69883 /* Processing variable b */
69884 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
69885 ;
69886 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
69887 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
69888 if (capi_b_tmp == NULL((void*)0)) {
69889 if (!PyErr_Occurred())
69890 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.strtrs to C/Fortran array" );
69891 } else {
69892 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
69893
69894 /* Processing variable a */
69895 ;
69896 capi_a_intent |= F2PY_INTENT_IN1;
69897 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
69898 if (capi_a_tmp == NULL((void*)0)) {
69899 if (!PyErr_Occurred())
69900 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.strtrs to C/Fortran array" );
69901 } else {
69902 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
69903
69904 /* Processing variable info */
69905 /* Processing variable lda */
69906 if (lda_capi == Py_None(&_Py_NoneStruct)) lda = shape(a,0)a_Dims[0]; else
69907 f2py_success = int_from_pyobj(&lda,lda_capi,"_flapack.strtrs() 4th keyword (lda) can't be converted to int");
69908 if (f2py_success) {
69909 CHECKSCALAR(shape(a,0)==lda,"shape(a,0)==lda","4th keyword lda","strtrs:lda=%d",lda)if (!(a_Dims[0]==lda)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""strtrs:lda=%d", "(""shape(a,0)==lda"") failed for "
"4th keyword lda", lda); PyErr_SetString(_flapack_error,errstring
); } else
{
69910 /* Processing variable n */
69911 n = shape(a,1)a_Dims[1];
69912 /* Processing variable ldb */
69913 ldb = shape(b,0)b_Dims[0];
69914 /* Processing variable nrhs */
69915 nrhs = shape(b,1)b_Dims[1];
69916/*end of frompyobj*/
69917#ifdef F2PY_REPORT_ATEXIT
69918f2py_start_call_clock();
69919#endif
69920/*callfortranroutine*/
69921 (*f2py_func)((lower?"L":"U"),(trans?(trans==2?"C":"T"):"N"),(unitdiag?"U":"N"),&n,&nrhs,a,&lda,b,&ldb,&info); ;
69922 /*(*f2py_func)(&lower,&trans,&unitdiag,&n,&nrhs,a,&lda,b,&ldb,&info);*/
69923if (PyErr_Occurred())
69924 f2py_success = 0;
69925#ifdef F2PY_REPORT_ATEXIT
69926f2py_stop_call_clock();
69927#endif
69928/*end of callfortranroutine*/
69929 if (f2py_success) {
69930/*pyobjfrom*/
69931/*end of pyobjfrom*/
69932 CFUNCSMESS("Building return value.\n");
69933 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
69934/*closepyobjfrom*/
69935/*end of closepyobjfrom*/
69936 } /*if (f2py_success) after callfortranroutine*/
69937/*cleanupfrompyobj*/
69938 /* End of cleaning variable nrhs */
69939 /* End of cleaning variable ldb */
69940 /* End of cleaning variable n */
69941 } /*CHECKSCALAR(shape(a,0)==lda)*/
69942 } /*if (f2py_success) of lda*/
69943 /* End of cleaning variable lda */
69944 /* End of cleaning variable info */
69945 if((PyObject *)capi_a_tmp!=a_capi) {
69946 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
69947 } /*if (capi_a_tmp == NULL) ... else of a*/
69948 /* End of cleaning variable a */
69949 } /*if (capi_b_tmp == NULL) ... else of b*/
69950 /* End of cleaning variable b */
69951 } /*CHECKSCALAR(unitdiag==0||unitdiag==1)*/
69952 } /*if (f2py_success) of unitdiag*/
69953 /* End of cleaning variable unitdiag */
69954 } /*CHECKSCALAR(trans>=0 && trans <=2)*/
69955 } /*if (f2py_success) of trans*/
69956 /* End of cleaning variable trans */
69957 } /*CHECKSCALAR(lower==0||lower==1)*/
69958 } /*if (f2py_success) of lower*/
69959 /* End of cleaning variable lower */
69960/*end of cleanupfrompyobj*/
69961 if (capi_buildvalue == NULL((void*)0)) {
69962/*routdebugfailure*/
69963 } else {
69964/*routdebugleave*/
69965 }
69966 CFUNCSMESS("Freeing memory.\n");
69967/*freemem*/
69968#ifdef F2PY_REPORT_ATEXIT
69969f2py_stop_clock();
69970#endif
69971 return capi_buildvalue;
69972}
69973/******************************* end of strtrs *******************************/
69974
69975/*********************************** dtrtrs ***********************************/
69976static char doc_f2py_rout__flapack_dtrtrs[] = "\
69977x,info = dtrtrs(a,b,[lower,trans,unitdiag,lda,overwrite_b])\n\nWrapper for ``dtrtrs``.\
69978\n\nParameters\n----------\n"
69979"a : input rank-2 array('d') with bounds (lda,n)\n"
69980"b : input rank-2 array('d') with bounds (ldb,nrhs)\n"
69981"\nOther Parameters\n----------------\n"
69982"lower : input int, optional\n Default: 0\n"
69983"trans : input int, optional\n Default: 0\n"
69984"unitdiag : input int, optional\n Default: 0\n"
69985"lda : input int, optional\n Default: shape(a,0)\n"
69986"overwrite_b : input int, optional\n Default: 0\n"
69987"\nReturns\n-------\n"
69988"x : rank-2 array('d') with bounds (ldb,nrhs) and b storage\n"
69989"info : int";
69990/* extern void F_FUNC(dtrtrs,DTRTRS)(char*,char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */
69991static PyObject *f2py_rout__flapack_dtrtrs(const PyObject *capi_self,
69992 PyObject *capi_args,
69993 PyObject *capi_keywds,
69994 void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
69995 PyObject * volatile capi_buildvalue = NULL((void*)0);
69996 volatile int f2py_success = 1;
69997/*decl*/
69998
69999 int lower = 0;
70000 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
70001 int trans = 0;
70002 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
70003 int unitdiag = 0;
70004 PyObject *unitdiag_capi = Py_None(&_Py_NoneStruct);
70005 int n = 0;
70006 int nrhs = 0;
70007 double *a = NULL((void*)0);
70008 npy_intp a_Dims[2] = {-1, -1};
70009 const int a_Rank = 2;
70010 PyArrayObject *capi_a_tmp = NULL((void*)0);
70011 int capi_a_intent = 0;
70012 PyObject *a_capi = Py_None(&_Py_NoneStruct);
70013 int lda = 0;
70014 PyObject *lda_capi = Py_None(&_Py_NoneStruct);
70015 double *b = NULL((void*)0);
70016 npy_intp b_Dims[2] = {-1, -1};
70017 const int b_Rank = 2;
70018 PyArrayObject *capi_b_tmp = NULL((void*)0);
70019 int capi_b_intent = 0;
70020 int capi_overwrite_b = 0;
70021 PyObject *b_capi = Py_None(&_Py_NoneStruct);
70022 int ldb = 0;
70023 int info = 0;
70024 static char *capi_kwlist[] = {"a","b","lower","trans","unitdiag","lda","overwrite_b",NULL((void*)0)};
70025
70026/*routdebugenter*/
70027#ifdef F2PY_REPORT_ATEXIT
70028f2py_start_clock();
70029#endif
70030 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
70031 "OO|OOOOi:_flapack.dtrtrs",\
70032 capi_kwlist,&a_capi,&b_capi,&lower_capi,&trans_capi,&unitdiag_capi,&lda_capi,&capi_overwrite_b))
70033 return NULL((void*)0);
70034/*frompyobj*/
70035 /* Processing variable lower */
70036 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
70037 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dtrtrs() 1st keyword (lower) can't be converted to int");
70038 if (f2py_success) {
70039 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dtrtrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtrtrs:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
70040 /* Processing variable trans */
70041 if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else
70042 f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.dtrtrs() 2nd keyword (trans) can't be converted to int");
70043 if (f2py_success) {
70044 CHECKSCALAR(trans>=0 && trans <=2,"trans>=0 && trans <=2","2nd keyword trans","dtrtrs:trans=%d",trans)if (!(trans>=0 && trans <=2)) { char errstring[
256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dtrtrs:trans=%d", "(""trans>=0 && trans <=2"
") failed for ""2nd keyword trans", trans); PyErr_SetString(_flapack_error
,errstring); } else
{
70045 /* Processing variable unitdiag */
70046 if (unitdiag_capi == Py_None(&_Py_NoneStruct)) unitdiag = 0; else
70047 f2py_success = int_from_pyobj(&unitdiag,unitdiag_capi,"_flapack.dtrtrs() 3rd keyword (unitdiag) can't be converted to int");
70048 if (f2py_success) {
70049 CHECKSCALAR(unitdiag==0||unitdiag==1,"unitdiag==0||unitdiag==1","3rd keyword unitdiag","dtrtrs:unitdiag=%d",unitdiag)if (!(unitdiag==0||unitdiag==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtrtrs:unitdiag=%d", "(""unitdiag==0||unitdiag==1"") failed for "
"3rd keyword unitdiag", unitdiag); PyErr_SetString(_flapack_error
,errstring); } else
{
70050 /* Processing variable b */
70051 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
70052 ;
70053 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
70054 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
70055 if (capi_b_tmp == NULL((void*)0)) {
70056 if (!PyErr_Occurred())
70057 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dtrtrs to C/Fortran array" );
70058 } else {
70059 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
70060
70061 /* Processing variable a */
70062 ;
70063 capi_a_intent |= F2PY_INTENT_IN1;
70064 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
70065 if (capi_a_tmp == NULL((void*)0)) {
70066 if (!PyErr_Occurred())
70067 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dtrtrs to C/Fortran array" );
70068 } else {
70069 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
70070
70071 /* Processing variable info */
70072 /* Processing variable lda */
70073 if (lda_capi == Py_None(&_Py_NoneStruct)) lda = shape(a,0)a_Dims[0]; else
70074 f2py_success = int_from_pyobj(&lda,lda_capi,"_flapack.dtrtrs() 4th keyword (lda) can't be converted to int");
70075 if (f2py_success) {
70076 CHECKSCALAR(shape(a,0)==lda,"shape(a,0)==lda","4th keyword lda","dtrtrs:lda=%d",lda)if (!(a_Dims[0]==lda)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtrtrs:lda=%d", "(""shape(a,0)==lda"") failed for "
"4th keyword lda", lda); PyErr_SetString(_flapack_error,errstring
); } else
{
70077 /* Processing variable n */
70078 n = shape(a,1)a_Dims[1];
70079 /* Processing variable ldb */
70080 ldb = shape(b,0)b_Dims[0];
70081 /* Processing variable nrhs */
70082 nrhs = shape(b,1)b_Dims[1];
70083/*end of frompyobj*/
70084#ifdef F2PY_REPORT_ATEXIT
70085f2py_start_call_clock();
70086#endif
70087/*callfortranroutine*/
70088 (*f2py_func)((lower?"L":"U"),(trans?(trans==2?"C":"T"):"N"),(unitdiag?"U":"N"),&n,&nrhs,a,&lda,b,&ldb,&info); ;
70089 /*(*f2py_func)(&lower,&trans,&unitdiag,&n,&nrhs,a,&lda,b,&ldb,&info);*/
70090if (PyErr_Occurred())
70091 f2py_success = 0;
70092#ifdef F2PY_REPORT_ATEXIT
70093f2py_stop_call_clock();
70094#endif
70095/*end of callfortranroutine*/
70096 if (f2py_success) {
70097/*pyobjfrom*/
70098/*end of pyobjfrom*/
70099 CFUNCSMESS("Building return value.\n");
70100 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
70101/*closepyobjfrom*/
70102/*end of closepyobjfrom*/
70103 } /*if (f2py_success) after callfortranroutine*/
70104/*cleanupfrompyobj*/
70105 /* End of cleaning variable nrhs */
70106 /* End of cleaning variable ldb */
70107 /* End of cleaning variable n */
70108 } /*CHECKSCALAR(shape(a,0)==lda)*/
70109 } /*if (f2py_success) of lda*/
70110 /* End of cleaning variable lda */
70111 /* End of cleaning variable info */
70112 if((PyObject *)capi_a_tmp!=a_capi) {
70113 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
70114 } /*if (capi_a_tmp == NULL) ... else of a*/
70115 /* End of cleaning variable a */
70116 } /*if (capi_b_tmp == NULL) ... else of b*/
70117 /* End of cleaning variable b */
70118 } /*CHECKSCALAR(unitdiag==0||unitdiag==1)*/
70119 } /*if (f2py_success) of unitdiag*/
70120 /* End of cleaning variable unitdiag */
70121 } /*CHECKSCALAR(trans>=0 && trans <=2)*/
70122 } /*if (f2py_success) of trans*/
70123 /* End of cleaning variable trans */
70124 } /*CHECKSCALAR(lower==0||lower==1)*/
70125 } /*if (f2py_success) of lower*/
70126 /* End of cleaning variable lower */
70127/*end of cleanupfrompyobj*/
70128 if (capi_buildvalue == NULL((void*)0)) {
70129/*routdebugfailure*/
70130 } else {
70131/*routdebugleave*/
70132 }
70133 CFUNCSMESS("Freeing memory.\n");
70134/*freemem*/
70135#ifdef F2PY_REPORT_ATEXIT
70136f2py_stop_clock();
70137#endif
70138 return capi_buildvalue;
70139}
70140/******************************* end of dtrtrs *******************************/
70141
70142/*********************************** ctrtrs ***********************************/
70143static char doc_f2py_rout__flapack_ctrtrs[] = "\
70144x,info = ctrtrs(a,b,[lower,trans,unitdiag,lda,overwrite_b])\n\nWrapper for ``ctrtrs``.\
70145\n\nParameters\n----------\n"
70146"a : input rank-2 array('F') with bounds (lda,n)\n"
70147"b : input rank-2 array('F') with bounds (ldb,nrhs)\n"
70148"\nOther Parameters\n----------------\n"
70149"lower : input int, optional\n Default: 0\n"
70150"trans : input int, optional\n Default: 0\n"
70151"unitdiag : input int, optional\n Default: 0\n"
70152"lda : input int, optional\n Default: shape(a,0)\n"
70153"overwrite_b : input int, optional\n Default: 0\n"
70154"\nReturns\n-------\n"
70155"x : rank-2 array('F') with bounds (ldb,nrhs) and b storage\n"
70156"info : int";
70157/* extern void F_FUNC(ctrtrs,CTRTRS)(char*,char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */
70158static PyObject *f2py_rout__flapack_ctrtrs(const PyObject *capi_self,
70159 PyObject *capi_args,
70160 PyObject *capi_keywds,
70161 void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
70162 PyObject * volatile capi_buildvalue = NULL((void*)0);
70163 volatile int f2py_success = 1;
70164/*decl*/
70165
70166 int lower = 0;
70167 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
70168 int trans = 0;
70169 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
70170 int unitdiag = 0;
70171 PyObject *unitdiag_capi = Py_None(&_Py_NoneStruct);
70172 int n = 0;
70173 int nrhs = 0;
70174 complex_float *a = NULL((void*)0);
70175 npy_intp a_Dims[2] = {-1, -1};
70176 const int a_Rank = 2;
70177 PyArrayObject *capi_a_tmp = NULL((void*)0);
70178 int capi_a_intent = 0;
70179 PyObject *a_capi = Py_None(&_Py_NoneStruct);
70180 int lda = 0;
70181 PyObject *lda_capi = Py_None(&_Py_NoneStruct);
70182 complex_float *b = NULL((void*)0);
70183 npy_intp b_Dims[2] = {-1, -1};
70184 const int b_Rank = 2;
70185 PyArrayObject *capi_b_tmp = NULL((void*)0);
70186 int capi_b_intent = 0;
70187 int capi_overwrite_b = 0;
70188 PyObject *b_capi = Py_None(&_Py_NoneStruct);
70189 int ldb = 0;
70190 int info = 0;
70191 static char *capi_kwlist[] = {"a","b","lower","trans","unitdiag","lda","overwrite_b",NULL((void*)0)};
70192
70193/*routdebugenter*/
70194#ifdef F2PY_REPORT_ATEXIT
70195f2py_start_clock();
70196#endif
70197 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
70198 "OO|OOOOi:_flapack.ctrtrs",\
70199 capi_kwlist,&a_capi,&b_capi,&lower_capi,&trans_capi,&unitdiag_capi,&lda_capi,&capi_overwrite_b))
70200 return NULL((void*)0);
70201/*frompyobj*/
70202 /* Processing variable lower */
70203 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
70204 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ctrtrs() 1st keyword (lower) can't be converted to int");
70205 if (f2py_success) {
70206 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ctrtrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctrtrs:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
70207 /* Processing variable trans */
70208 if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else
70209 f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.ctrtrs() 2nd keyword (trans) can't be converted to int");
70210 if (f2py_success) {
70211 CHECKSCALAR(trans>=0 && trans <=2,"trans>=0 && trans <=2","2nd keyword trans","ctrtrs:trans=%d",trans)if (!(trans>=0 && trans <=2)) { char errstring[
256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ctrtrs:trans=%d", "(""trans>=0 && trans <=2"
") failed for ""2nd keyword trans", trans); PyErr_SetString(_flapack_error
,errstring); } else
{
70212 /* Processing variable unitdiag */
70213 if (unitdiag_capi == Py_None(&_Py_NoneStruct)) unitdiag = 0; else
70214 f2py_success = int_from_pyobj(&unitdiag,unitdiag_capi,"_flapack.ctrtrs() 3rd keyword (unitdiag) can't be converted to int");
70215 if (f2py_success) {
70216 CHECKSCALAR(unitdiag==0||unitdiag==1,"unitdiag==0||unitdiag==1","3rd keyword unitdiag","ctrtrs:unitdiag=%d",unitdiag)if (!(unitdiag==0||unitdiag==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctrtrs:unitdiag=%d", "(""unitdiag==0||unitdiag==1"") failed for "
"3rd keyword unitdiag", unitdiag); PyErr_SetString(_flapack_error
,errstring); } else
{
70217 /* Processing variable b */
70218 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
70219 ;
70220 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
70221 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
70222 if (capi_b_tmp == NULL((void*)0)) {
70223 if (!PyErr_Occurred())
70224 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ctrtrs to C/Fortran array" );
70225 } else {
70226 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
70227
70228 /* Processing variable a */
70229 ;
70230 capi_a_intent |= F2PY_INTENT_IN1;
70231 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
70232 if (capi_a_tmp == NULL((void*)0)) {
70233 if (!PyErr_Occurred())
70234 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ctrtrs to C/Fortran array" );
70235 } else {
70236 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
70237
70238 /* Processing variable info */
70239 /* Processing variable lda */
70240 if (lda_capi == Py_None(&_Py_NoneStruct)) lda = shape(a,0)a_Dims[0]; else
70241 f2py_success = int_from_pyobj(&lda,lda_capi,"_flapack.ctrtrs() 4th keyword (lda) can't be converted to int");
70242 if (f2py_success) {
70243 CHECKSCALAR(shape(a,0)==lda,"shape(a,0)==lda","4th keyword lda","ctrtrs:lda=%d",lda)if (!(a_Dims[0]==lda)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctrtrs:lda=%d", "(""shape(a,0)==lda"") failed for "
"4th keyword lda", lda); PyErr_SetString(_flapack_error,errstring
); } else
{
70244 /* Processing variable n */
70245 n = shape(a,1)a_Dims[1];
70246 /* Processing variable ldb */
70247 ldb = shape(b,0)b_Dims[0];
70248 /* Processing variable nrhs */
70249 nrhs = shape(b,1)b_Dims[1];
70250/*end of frompyobj*/
70251#ifdef F2PY_REPORT_ATEXIT
70252f2py_start_call_clock();
70253#endif
70254/*callfortranroutine*/
70255 (*f2py_func)((lower?"L":"U"),(trans?(trans==2?"C":"T"):"N"),(unitdiag?"U":"N"),&n,&nrhs,a,&lda,b,&ldb,&info); ;
70256 /*(*f2py_func)(&lower,&trans,&unitdiag,&n,&nrhs,a,&lda,b,&ldb,&info);*/
70257if (PyErr_Occurred())
70258 f2py_success = 0;
70259#ifdef F2PY_REPORT_ATEXIT
70260f2py_stop_call_clock();
70261#endif
70262/*end of callfortranroutine*/
70263 if (f2py_success) {
70264/*pyobjfrom*/
70265/*end of pyobjfrom*/
70266 CFUNCSMESS("Building return value.\n");
70267 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
70268/*closepyobjfrom*/
70269/*end of closepyobjfrom*/
70270 } /*if (f2py_success) after callfortranroutine*/
70271/*cleanupfrompyobj*/
70272 /* End of cleaning variable nrhs */
70273 /* End of cleaning variable ldb */
70274 /* End of cleaning variable n */
70275 } /*CHECKSCALAR(shape(a,0)==lda)*/
70276 } /*if (f2py_success) of lda*/
70277 /* End of cleaning variable lda */
70278 /* End of cleaning variable info */
70279 if((PyObject *)capi_a_tmp!=a_capi) {
70280 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
70281 } /*if (capi_a_tmp == NULL) ... else of a*/
70282 /* End of cleaning variable a */
70283 } /*if (capi_b_tmp == NULL) ... else of b*/
70284 /* End of cleaning variable b */
70285 } /*CHECKSCALAR(unitdiag==0||unitdiag==1)*/
70286 } /*if (f2py_success) of unitdiag*/
70287 /* End of cleaning variable unitdiag */
70288 } /*CHECKSCALAR(trans>=0 && trans <=2)*/
70289 } /*if (f2py_success) of trans*/
70290 /* End of cleaning variable trans */
70291 } /*CHECKSCALAR(lower==0||lower==1)*/
70292 } /*if (f2py_success) of lower*/
70293 /* End of cleaning variable lower */
70294/*end of cleanupfrompyobj*/
70295 if (capi_buildvalue == NULL((void*)0)) {
70296/*routdebugfailure*/
70297 } else {
70298/*routdebugleave*/
70299 }
70300 CFUNCSMESS("Freeing memory.\n");
70301/*freemem*/
70302#ifdef F2PY_REPORT_ATEXIT
70303f2py_stop_clock();
70304#endif
70305 return capi_buildvalue;
70306}
70307/******************************* end of ctrtrs *******************************/
70308
70309/*********************************** ztrtrs ***********************************/
70310static char doc_f2py_rout__flapack_ztrtrs[] = "\
70311x,info = ztrtrs(a,b,[lower,trans,unitdiag,lda,overwrite_b])\n\nWrapper for ``ztrtrs``.\
70312\n\nParameters\n----------\n"
70313"a : input rank-2 array('D') with bounds (lda,n)\n"
70314"b : input rank-2 array('D') with bounds (ldb,nrhs)\n"
70315"\nOther Parameters\n----------------\n"
70316"lower : input int, optional\n Default: 0\n"
70317"trans : input int, optional\n Default: 0\n"
70318"unitdiag : input int, optional\n Default: 0\n"
70319"lda : input int, optional\n Default: shape(a,0)\n"
70320"overwrite_b : input int, optional\n Default: 0\n"
70321"\nReturns\n-------\n"
70322"x : rank-2 array('D') with bounds (ldb,nrhs) and b storage\n"
70323"info : int";
70324/* extern void F_FUNC(ztrtrs,ZTRTRS)(char*,char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */
70325static PyObject *f2py_rout__flapack_ztrtrs(const PyObject *capi_self,
70326 PyObject *capi_args,
70327 PyObject *capi_keywds,
70328 void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
70329 PyObject * volatile capi_buildvalue = NULL((void*)0);
70330 volatile int f2py_success = 1;
70331/*decl*/
70332
70333 int lower = 0;
70334 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
70335 int trans = 0;
70336 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
70337 int unitdiag = 0;
70338 PyObject *unitdiag_capi = Py_None(&_Py_NoneStruct);
70339 int n = 0;
70340 int nrhs = 0;
70341 complex_double *a = NULL((void*)0);
70342 npy_intp a_Dims[2] = {-1, -1};
70343 const int a_Rank = 2;
70344 PyArrayObject *capi_a_tmp = NULL((void*)0);
70345 int capi_a_intent = 0;
70346 PyObject *a_capi = Py_None(&_Py_NoneStruct);
70347 int lda = 0;
70348 PyObject *lda_capi = Py_None(&_Py_NoneStruct);
70349 complex_double *b = NULL((void*)0);
70350 npy_intp b_Dims[2] = {-1, -1};
70351 const int b_Rank = 2;
70352 PyArrayObject *capi_b_tmp = NULL((void*)0);
70353 int capi_b_intent = 0;
70354 int capi_overwrite_b = 0;
70355 PyObject *b_capi = Py_None(&_Py_NoneStruct);
70356 int ldb = 0;
70357 int info = 0;
70358 static char *capi_kwlist[] = {"a","b","lower","trans","unitdiag","lda","overwrite_b",NULL((void*)0)};
70359
70360/*routdebugenter*/
70361#ifdef F2PY_REPORT_ATEXIT
70362f2py_start_clock();
70363#endif
70364 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
70365 "OO|OOOOi:_flapack.ztrtrs",\
70366 capi_kwlist,&a_capi,&b_capi,&lower_capi,&trans_capi,&unitdiag_capi,&lda_capi,&capi_overwrite_b))
70367 return NULL((void*)0);
70368/*frompyobj*/
70369 /* Processing variable lower */
70370 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
70371 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ztrtrs() 1st keyword (lower) can't be converted to int");
70372 if (f2py_success) {
70373 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ztrtrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztrtrs:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
70374 /* Processing variable trans */
70375 if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else
70376 f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.ztrtrs() 2nd keyword (trans) can't be converted to int");
70377 if (f2py_success) {
70378 CHECKSCALAR(trans>=0 && trans <=2,"trans>=0 && trans <=2","2nd keyword trans","ztrtrs:trans=%d",trans)if (!(trans>=0 && trans <=2)) { char errstring[
256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ztrtrs:trans=%d", "(""trans>=0 && trans <=2"
") failed for ""2nd keyword trans", trans); PyErr_SetString(_flapack_error
,errstring); } else
{
70379 /* Processing variable unitdiag */
70380 if (unitdiag_capi == Py_None(&_Py_NoneStruct)) unitdiag = 0; else
70381 f2py_success = int_from_pyobj(&unitdiag,unitdiag_capi,"_flapack.ztrtrs() 3rd keyword (unitdiag) can't be converted to int");
70382 if (f2py_success) {
70383 CHECKSCALAR(unitdiag==0||unitdiag==1,"unitdiag==0||unitdiag==1","3rd keyword unitdiag","ztrtrs:unitdiag=%d",unitdiag)if (!(unitdiag==0||unitdiag==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztrtrs:unitdiag=%d", "(""unitdiag==0||unitdiag==1"") failed for "
"3rd keyword unitdiag", unitdiag); PyErr_SetString(_flapack_error
,errstring); } else
{
70384 /* Processing variable b */
70385 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
70386 ;
70387 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
70388 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
70389 if (capi_b_tmp == NULL((void*)0)) {
70390 if (!PyErr_Occurred())
70391 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ztrtrs to C/Fortran array" );
70392 } else {
70393 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
70394
70395 /* Processing variable a */
70396 ;
70397 capi_a_intent |= F2PY_INTENT_IN1;
70398 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
70399 if (capi_a_tmp == NULL((void*)0)) {
70400 if (!PyErr_Occurred())
70401 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ztrtrs to C/Fortran array" );
70402 } else {
70403 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
70404
70405 /* Processing variable info */
70406 /* Processing variable lda */
70407 if (lda_capi == Py_None(&_Py_NoneStruct)) lda = shape(a,0)a_Dims[0]; else
70408 f2py_success = int_from_pyobj(&lda,lda_capi,"_flapack.ztrtrs() 4th keyword (lda) can't be converted to int");
70409 if (f2py_success) {
70410 CHECKSCALAR(shape(a,0)==lda,"shape(a,0)==lda","4th keyword lda","ztrtrs:lda=%d",lda)if (!(a_Dims[0]==lda)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztrtrs:lda=%d", "(""shape(a,0)==lda"") failed for "
"4th keyword lda", lda); PyErr_SetString(_flapack_error,errstring
); } else
{
70411 /* Processing variable n */
70412 n = shape(a,1)a_Dims[1];
70413 /* Processing variable ldb */
70414 ldb = shape(b,0)b_Dims[0];
70415 /* Processing variable nrhs */
70416 nrhs = shape(b,1)b_Dims[1];
70417/*end of frompyobj*/
70418#ifdef F2PY_REPORT_ATEXIT
70419f2py_start_call_clock();
70420#endif
70421/*callfortranroutine*/
70422 (*f2py_func)((lower?"L":"U"),(trans?(trans==2?"C":"T"):"N"),(unitdiag?"U":"N"),&n,&nrhs,a,&lda,b,&ldb,&info); ;
70423 /*(*f2py_func)(&lower,&trans,&unitdiag,&n,&nrhs,a,&lda,b,&ldb,&info);*/
70424if (PyErr_Occurred())
70425 f2py_success = 0;
70426#ifdef F2PY_REPORT_ATEXIT
70427f2py_stop_call_clock();
70428#endif
70429/*end of callfortranroutine*/
70430 if (f2py_success) {
70431/*pyobjfrom*/
70432/*end of pyobjfrom*/
70433 CFUNCSMESS("Building return value.\n");
70434 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
70435/*closepyobjfrom*/
70436/*end of closepyobjfrom*/
70437 } /*if (f2py_success) after callfortranroutine*/
70438/*cleanupfrompyobj*/
70439 /* End of cleaning variable nrhs */
70440 /* End of cleaning variable ldb */
70441 /* End of cleaning variable n */
70442 } /*CHECKSCALAR(shape(a,0)==lda)*/
70443 } /*if (f2py_success) of lda*/
70444 /* End of cleaning variable lda */
70445 /* End of cleaning variable info */
70446 if((PyObject *)capi_a_tmp!=a_capi) {
70447 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
70448 } /*if (capi_a_tmp == NULL) ... else of a*/
70449 /* End of cleaning variable a */
70450 } /*if (capi_b_tmp == NULL) ... else of b*/
70451 /* End of cleaning variable b */
70452 } /*CHECKSCALAR(unitdiag==0||unitdiag==1)*/
70453 } /*if (f2py_success) of unitdiag*/
70454 /* End of cleaning variable unitdiag */
70455 } /*CHECKSCALAR(trans>=0 && trans <=2)*/
70456 } /*if (f2py_success) of trans*/
70457 /* End of cleaning variable trans */
70458 } /*CHECKSCALAR(lower==0||lower==1)*/
70459 } /*if (f2py_success) of lower*/
70460 /* End of cleaning variable lower */
70461/*end of cleanupfrompyobj*/
70462 if (capi_buildvalue == NULL((void*)0)) {
70463/*routdebugfailure*/
70464 } else {
70465/*routdebugleave*/
70466 }
70467 CFUNCSMESS("Freeing memory.\n");
70468/*freemem*/
70469#ifdef F2PY_REPORT_ATEXIT
70470f2py_stop_clock();
70471#endif
70472 return capi_buildvalue;
70473}
70474/******************************* end of ztrtrs *******************************/
70475
70476/*********************************** stbtrs ***********************************/
70477static char doc_f2py_rout__flapack_stbtrs[] = "\
70478x,info = stbtrs(ab,b,[uplo,trans,diag,overwrite_b])\n\nWrapper for ``stbtrs``.\
70479\n\nParameters\n----------\n"
70480"ab : input rank-2 array('f') with bounds (ldab,n)\n"
70481"b : input rank-2 array('f') with bounds (ldb,nrhs)\n"
70482"\nOther Parameters\n----------------\n"
70483"uplo : input string(len=1), optional\n Default: 'U'\n"
70484"trans : input string(len=1), optional\n Default: 'N'\n"
70485"diag : input string(len=1), optional\n Default: 'N'\n"
70486"overwrite_b : input int, optional\n Default: 0\n"
70487"\nReturns\n-------\n"
70488"x : rank-2 array('f') with bounds (ldb,nrhs) and b storage\n"
70489"info : int";
70490/* extern void F_FUNC(stbtrs,STBTRS)(char*,char*,char*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */
70491static PyObject *f2py_rout__flapack_stbtrs(const PyObject *capi_self,
70492 PyObject *capi_args,
70493 PyObject *capi_keywds,
70494 void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
70495 PyObject * volatile capi_buildvalue = NULL((void*)0);
70496 volatile int f2py_success = 1;
70497/*decl*/
70498
70499 string uplo = NULL((void*)0);
70500 int slen(uplo)capi_uplo_len;
70501 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
70502 string trans = NULL((void*)0);
70503 int slen(trans)capi_trans_len;
70504 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
70505 string diag = NULL((void*)0);
70506 int slen(diag)capi_diag_len;
70507 PyObject *diag_capi = Py_None(&_Py_NoneStruct);
70508 int n = 0;
70509 int kd = 0;
70510 int nrhs = 0;
70511 float *ab = NULL((void*)0);
70512 npy_intp ab_Dims[2] = {-1, -1};
70513 const int ab_Rank = 2;
70514 PyArrayObject *capi_ab_tmp = NULL((void*)0);
70515 int capi_ab_intent = 0;
70516 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
70517 int ldab = 0;
70518 float *b = NULL((void*)0);
70519 npy_intp b_Dims[2] = {-1, -1};
70520 const int b_Rank = 2;
70521 PyArrayObject *capi_b_tmp = NULL((void*)0);
70522 int capi_b_intent = 0;
70523 int capi_overwrite_b = 0;
70524 PyObject *b_capi = Py_None(&_Py_NoneStruct);
70525 int ldb = 0;
70526 int info = 0;
70527 static char *capi_kwlist[] = {"ab","b","uplo","trans","diag","overwrite_b",NULL((void*)0)};
70528
70529/*routdebugenter*/
70530#ifdef F2PY_REPORT_ATEXIT
70531f2py_start_clock();
70532#endif
70533 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
70534 "OO|OOOi:_flapack.stbtrs",\
70535 capi_kwlist,&ab_capi,&b_capi,&uplo_capi,&trans_capi,&diag_capi,&capi_overwrite_b))
70536 return NULL((void*)0);
70537/*frompyobj*/
70538 /* Processing variable ab */
70539 ;
70540 capi_ab_intent |= F2PY_INTENT_IN1;
70541 capi_ab_tmp = array_from_pyobj(NPY_FLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
70542 if (capi_ab_tmp == NULL((void*)0)) {
70543 if (!PyErr_Occurred())
70544 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.stbtrs to C/Fortran array" );
70545 } else {
70546 ab = (float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
70547
70548 /* Processing variable b */
70549 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
70550 ;
70551 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
70552 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
70553 if (capi_b_tmp == NULL((void*)0)) {
70554 if (!PyErr_Occurred())
70555 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.stbtrs to C/Fortran array" );
70556 } else {
70557 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
70558
70559 /* Processing variable info */
70560 /* Processing variable uplo */
70561 slen(uplo)capi_uplo_len = 1;
70562 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.stbtrs to C string");
70563 if (f2py_success) {
70564 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","stbtrs:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stbtrs:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
70565 /* Processing variable ldab */
70566 ldab = MAX(1, shape(ab, 0))((1 > ab_Dims[0]) ? (1) : (ab_Dims[0]));
70567 /* Processing variable n */
70568 n = MAX(1, shape(ab, 1))((1 > ab_Dims[1]) ? (1) : (ab_Dims[1]));
70569 /* Processing variable kd */
70570 kd = ldab-1;
70571 /* Processing variable ldb */
70572 ldb = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
70573 CHECKSCALAR(ldb >= n,"ldb >= n","hidden ldb","stbtrs:ldb=%d",ldb)if (!(ldb >= n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stbtrs:ldb=%d", "(""ldb >= n"") failed for ""hidden ldb"
, ldb); PyErr_SetString(_flapack_error,errstring); } else
{
70574 /* Processing variable nrhs */
70575 nrhs = MAX(1, shape(b, 1))((1 > b_Dims[1]) ? (1) : (b_Dims[1]));
70576 /* Processing variable trans */
70577 slen(trans)capi_trans_len = 1;
70578 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.stbtrs to C string");
70579 if (f2py_success) {
70580 CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C',"*trans=='N'||*trans=='T'||*trans=='C'","2nd keyword trans","stbtrs:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T'||*trans=='C')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""stbtrs:slen(trans)=%d trans=\"%s\""
, "(""*trans=='N'||*trans=='T'||*trans=='C'"") failed for ""2nd keyword trans"
, capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring
); } else
{
70581 /* Processing variable diag */
70582 slen(diag)capi_diag_len = 1;
70583 f2py_success = string_from_pyobj(&diag,&slen(diag)capi_diag_len,"N",diag_capi,"string_from_pyobj failed in converting 3rd keyword `diag' of _flapack.stbtrs to C string");
70584 if (f2py_success) {
70585 CHECKSTRING(*diag=='N'||*diag=='U',"*diag=='N'||*diag=='U'","3rd keyword diag","stbtrs:slen(diag)=%d diag=\"%s\"",diag)if (!(*diag=='N'||*diag=='U')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stbtrs:slen(diag)=%d diag=\"%s\"", "(""*diag=='N'||*diag=='U'"
") failed for ""3rd keyword diag", capi_diag_len, diag); PyErr_SetString
(_flapack_error, errstring); } else
{
70586/*end of frompyobj*/
70587#ifdef F2PY_REPORT_ATEXIT
70588f2py_start_call_clock();
70589#endif
70590/*callfortranroutine*/
70591 (*f2py_func)(uplo,trans,diag,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info) ;
70592 /*(*f2py_func)(uplo,trans,diag,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info,slen(uplo),slen(trans),slen(diag));*/
70593if (PyErr_Occurred())
70594 f2py_success = 0;
70595#ifdef F2PY_REPORT_ATEXIT
70596f2py_stop_call_clock();
70597#endif
70598/*end of callfortranroutine*/
70599 if (f2py_success) {
70600/*pyobjfrom*/
70601/*end of pyobjfrom*/
70602 CFUNCSMESS("Building return value.\n");
70603 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
70604/*closepyobjfrom*/
70605/*end of closepyobjfrom*/
70606 } /*if (f2py_success) after callfortranroutine*/
70607/*cleanupfrompyobj*/
70608 } /*CHECKSTRING(*diag=='N'||*diag=='U')*/
70609 STRINGFREE(diag)do {if (!(diag == ((void*)0))) free(diag);} while (0);
70610 } /*if (f2py_success) of diag*/
70611 /* End of cleaning variable diag */
70612 } /*CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C')*/
70613 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
70614 } /*if (f2py_success) of trans*/
70615 /* End of cleaning variable trans */
70616 /* End of cleaning variable nrhs */
70617 } /*CHECKSCALAR(ldb >= n)*/
70618 /* End of cleaning variable ldb */
70619 /* End of cleaning variable kd */
70620 /* End of cleaning variable n */
70621 /* End of cleaning variable ldab */
70622 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
70623 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
70624 } /*if (f2py_success) of uplo*/
70625 /* End of cleaning variable uplo */
70626 /* End of cleaning variable info */
70627 } /*if (capi_b_tmp == NULL) ... else of b*/
70628 /* End of cleaning variable b */
70629 if((PyObject *)capi_ab_tmp!=ab_capi) {
70630 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
70631 } /*if (capi_ab_tmp == NULL) ... else of ab*/
70632 /* End of cleaning variable ab */
70633/*end of cleanupfrompyobj*/
70634 if (capi_buildvalue == NULL((void*)0)) {
70635/*routdebugfailure*/
70636 } else {
70637/*routdebugleave*/
70638 }
70639 CFUNCSMESS("Freeing memory.\n");
70640/*freemem*/
70641#ifdef F2PY_REPORT_ATEXIT
70642f2py_stop_clock();
70643#endif
70644 return capi_buildvalue;
70645}
70646/******************************* end of stbtrs *******************************/
70647
70648/*********************************** dtbtrs ***********************************/
70649static char doc_f2py_rout__flapack_dtbtrs[] = "\
70650x,info = dtbtrs(ab,b,[uplo,trans,diag,overwrite_b])\n\nWrapper for ``dtbtrs``.\
70651\n\nParameters\n----------\n"
70652"ab : input rank-2 array('d') with bounds (ldab,n)\n"
70653"b : input rank-2 array('d') with bounds (ldb,nrhs)\n"
70654"\nOther Parameters\n----------------\n"
70655"uplo : input string(len=1), optional\n Default: 'U'\n"
70656"trans : input string(len=1), optional\n Default: 'N'\n"
70657"diag : input string(len=1), optional\n Default: 'N'\n"
70658"overwrite_b : input int, optional\n Default: 0\n"
70659"\nReturns\n-------\n"
70660"x : rank-2 array('d') with bounds (ldb,nrhs) and b storage\n"
70661"info : int";
70662/* extern void F_FUNC(dtbtrs,DTBTRS)(char*,char*,char*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */
70663static PyObject *f2py_rout__flapack_dtbtrs(const PyObject *capi_self,
70664 PyObject *capi_args,
70665 PyObject *capi_keywds,
70666 void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
70667 PyObject * volatile capi_buildvalue = NULL((void*)0);
70668 volatile int f2py_success = 1;
70669/*decl*/
70670
70671 string uplo = NULL((void*)0);
70672 int slen(uplo)capi_uplo_len;
70673 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
70674 string trans = NULL((void*)0);
70675 int slen(trans)capi_trans_len;
70676 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
70677 string diag = NULL((void*)0);
70678 int slen(diag)capi_diag_len;
70679 PyObject *diag_capi = Py_None(&_Py_NoneStruct);
70680 int n = 0;
70681 int kd = 0;
70682 int nrhs = 0;
70683 double *ab = NULL((void*)0);
70684 npy_intp ab_Dims[2] = {-1, -1};
70685 const int ab_Rank = 2;
70686 PyArrayObject *capi_ab_tmp = NULL((void*)0);
70687 int capi_ab_intent = 0;
70688 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
70689 int ldab = 0;
70690 double *b = NULL((void*)0);
70691 npy_intp b_Dims[2] = {-1, -1};
70692 const int b_Rank = 2;
70693 PyArrayObject *capi_b_tmp = NULL((void*)0);
70694 int capi_b_intent = 0;
70695 int capi_overwrite_b = 0;
70696 PyObject *b_capi = Py_None(&_Py_NoneStruct);
70697 int ldb = 0;
70698 int info = 0;
70699 static char *capi_kwlist[] = {"ab","b","uplo","trans","diag","overwrite_b",NULL((void*)0)};
70700
70701/*routdebugenter*/
70702#ifdef F2PY_REPORT_ATEXIT
70703f2py_start_clock();
70704#endif
70705 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
70706 "OO|OOOi:_flapack.dtbtrs",\
70707 capi_kwlist,&ab_capi,&b_capi,&uplo_capi,&trans_capi,&diag_capi,&capi_overwrite_b))
70708 return NULL((void*)0);
70709/*frompyobj*/
70710 /* Processing variable ab */
70711 ;
70712 capi_ab_intent |= F2PY_INTENT_IN1;
70713 capi_ab_tmp = array_from_pyobj(NPY_DOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
70714 if (capi_ab_tmp == NULL((void*)0)) {
70715 if (!PyErr_Occurred())
70716 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.dtbtrs to C/Fortran array" );
70717 } else {
70718 ab = (double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
70719
70720 /* Processing variable b */
70721 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
70722 ;
70723 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
70724 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
70725 if (capi_b_tmp == NULL((void*)0)) {
70726 if (!PyErr_Occurred())
70727 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dtbtrs to C/Fortran array" );
70728 } else {
70729 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
70730
70731 /* Processing variable info */
70732 /* Processing variable uplo */
70733 slen(uplo)capi_uplo_len = 1;
70734 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.dtbtrs to C string");
70735 if (f2py_success) {
70736 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","dtbtrs:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtbtrs:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
70737 /* Processing variable ldab */
70738 ldab = MAX(1, shape(ab, 0))((1 > ab_Dims[0]) ? (1) : (ab_Dims[0]));
70739 /* Processing variable n */
70740 n = MAX(1, shape(ab, 1))((1 > ab_Dims[1]) ? (1) : (ab_Dims[1]));
70741 /* Processing variable kd */
70742 kd = ldab-1;
70743 /* Processing variable ldb */
70744 ldb = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
70745 CHECKSCALAR(ldb >= n,"ldb >= n","hidden ldb","dtbtrs:ldb=%d",ldb)if (!(ldb >= n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtbtrs:ldb=%d", "(""ldb >= n"") failed for ""hidden ldb"
, ldb); PyErr_SetString(_flapack_error,errstring); } else
{
70746 /* Processing variable nrhs */
70747 nrhs = MAX(1, shape(b, 1))((1 > b_Dims[1]) ? (1) : (b_Dims[1]));
70748 /* Processing variable trans */
70749 slen(trans)capi_trans_len = 1;
70750 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.dtbtrs to C string");
70751 if (f2py_success) {
70752 CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C',"*trans=='N'||*trans=='T'||*trans=='C'","2nd keyword trans","dtbtrs:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T'||*trans=='C')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dtbtrs:slen(trans)=%d trans=\"%s\""
, "(""*trans=='N'||*trans=='T'||*trans=='C'"") failed for ""2nd keyword trans"
, capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring
); } else
{
70753 /* Processing variable diag */
70754 slen(diag)capi_diag_len = 1;
70755 f2py_success = string_from_pyobj(&diag,&slen(diag)capi_diag_len,"N",diag_capi,"string_from_pyobj failed in converting 3rd keyword `diag' of _flapack.dtbtrs to C string");
70756 if (f2py_success) {
70757 CHECKSTRING(*diag=='N'||*diag=='U',"*diag=='N'||*diag=='U'","3rd keyword diag","dtbtrs:slen(diag)=%d diag=\"%s\"",diag)if (!(*diag=='N'||*diag=='U')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtbtrs:slen(diag)=%d diag=\"%s\"", "(""*diag=='N'||*diag=='U'"
") failed for ""3rd keyword diag", capi_diag_len, diag); PyErr_SetString
(_flapack_error, errstring); } else
{
70758/*end of frompyobj*/
70759#ifdef F2PY_REPORT_ATEXIT
70760f2py_start_call_clock();
70761#endif
70762/*callfortranroutine*/
70763 (*f2py_func)(uplo,trans,diag,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info) ;
70764 /*(*f2py_func)(uplo,trans,diag,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info,slen(uplo),slen(trans),slen(diag));*/
70765if (PyErr_Occurred())
70766 f2py_success = 0;
70767#ifdef F2PY_REPORT_ATEXIT
70768f2py_stop_call_clock();
70769#endif
70770/*end of callfortranroutine*/
70771 if (f2py_success) {
70772/*pyobjfrom*/
70773/*end of pyobjfrom*/
70774 CFUNCSMESS("Building return value.\n");
70775 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
70776/*closepyobjfrom*/
70777/*end of closepyobjfrom*/
70778 } /*if (f2py_success) after callfortranroutine*/
70779/*cleanupfrompyobj*/
70780 } /*CHECKSTRING(*diag=='N'||*diag=='U')*/
70781 STRINGFREE(diag)do {if (!(diag == ((void*)0))) free(diag);} while (0);
70782 } /*if (f2py_success) of diag*/
70783 /* End of cleaning variable diag */
70784 } /*CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C')*/
70785 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
70786 } /*if (f2py_success) of trans*/
70787 /* End of cleaning variable trans */
70788 /* End of cleaning variable nrhs */
70789 } /*CHECKSCALAR(ldb >= n)*/
70790 /* End of cleaning variable ldb */
70791 /* End of cleaning variable kd */
70792 /* End of cleaning variable n */
70793 /* End of cleaning variable ldab */
70794 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
70795 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
70796 } /*if (f2py_success) of uplo*/
70797 /* End of cleaning variable uplo */
70798 /* End of cleaning variable info */
70799 } /*if (capi_b_tmp == NULL) ... else of b*/
70800 /* End of cleaning variable b */
70801 if((PyObject *)capi_ab_tmp!=ab_capi) {
70802 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
70803 } /*if (capi_ab_tmp == NULL) ... else of ab*/
70804 /* End of cleaning variable ab */
70805/*end of cleanupfrompyobj*/
70806 if (capi_buildvalue == NULL((void*)0)) {
70807/*routdebugfailure*/
70808 } else {
70809/*routdebugleave*/
70810 }
70811 CFUNCSMESS("Freeing memory.\n");
70812/*freemem*/
70813#ifdef F2PY_REPORT_ATEXIT
70814f2py_stop_clock();
70815#endif
70816 return capi_buildvalue;
70817}
70818/******************************* end of dtbtrs *******************************/
70819
70820/*********************************** ctbtrs ***********************************/
70821static char doc_f2py_rout__flapack_ctbtrs[] = "\
70822x,info = ctbtrs(ab,b,[uplo,trans,diag,overwrite_b])\n\nWrapper for ``ctbtrs``.\
70823\n\nParameters\n----------\n"
70824"ab : input rank-2 array('F') with bounds (ldab,n)\n"
70825"b : input rank-2 array('F') with bounds (ldb,nrhs)\n"
70826"\nOther Parameters\n----------------\n"
70827"uplo : input string(len=1), optional\n Default: 'U'\n"
70828"trans : input string(len=1), optional\n Default: 'N'\n"
70829"diag : input string(len=1), optional\n Default: 'N'\n"
70830"overwrite_b : input int, optional\n Default: 0\n"
70831"\nReturns\n-------\n"
70832"x : rank-2 array('F') with bounds (ldb,nrhs) and b storage\n"
70833"info : int";
70834/* extern void F_FUNC(ctbtrs,CTBTRS)(char*,char*,char*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */
70835static PyObject *f2py_rout__flapack_ctbtrs(const PyObject *capi_self,
70836 PyObject *capi_args,
70837 PyObject *capi_keywds,
70838 void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
70839 PyObject * volatile capi_buildvalue = NULL((void*)0);
70840 volatile int f2py_success = 1;
70841/*decl*/
70842
70843 string uplo = NULL((void*)0);
70844 int slen(uplo)capi_uplo_len;
70845 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
70846 string trans = NULL((void*)0);
70847 int slen(trans)capi_trans_len;
70848 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
70849 string diag = NULL((void*)0);
70850 int slen(diag)capi_diag_len;
70851 PyObject *diag_capi = Py_None(&_Py_NoneStruct);
70852 int n = 0;
70853 int kd = 0;
70854 int nrhs = 0;
70855 complex_float *ab = NULL((void*)0);
70856 npy_intp ab_Dims[2] = {-1, -1};
70857 const int ab_Rank = 2;
70858 PyArrayObject *capi_ab_tmp = NULL((void*)0);
70859 int capi_ab_intent = 0;
70860 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
70861 int ldab = 0;
70862 complex_float *b = NULL((void*)0);
70863 npy_intp b_Dims[2] = {-1, -1};
70864 const int b_Rank = 2;
70865 PyArrayObject *capi_b_tmp = NULL((void*)0);
70866 int capi_b_intent = 0;
70867 int capi_overwrite_b = 0;
70868 PyObject *b_capi = Py_None(&_Py_NoneStruct);
70869 int ldb = 0;
70870 int info = 0;
70871 static char *capi_kwlist[] = {"ab","b","uplo","trans","diag","overwrite_b",NULL((void*)0)};
70872
70873/*routdebugenter*/
70874#ifdef F2PY_REPORT_ATEXIT
70875f2py_start_clock();
70876#endif
70877 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
70878 "OO|OOOi:_flapack.ctbtrs",\
70879 capi_kwlist,&ab_capi,&b_capi,&uplo_capi,&trans_capi,&diag_capi,&capi_overwrite_b))
70880 return NULL((void*)0);
70881/*frompyobj*/
70882 /* Processing variable ab */
70883 ;
70884 capi_ab_intent |= F2PY_INTENT_IN1;
70885 capi_ab_tmp = array_from_pyobj(NPY_CFLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
70886 if (capi_ab_tmp == NULL((void*)0)) {
70887 if (!PyErr_Occurred())
70888 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.ctbtrs to C/Fortran array" );
70889 } else {
70890 ab = (complex_float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
70891
70892 /* Processing variable b */
70893 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
70894 ;
70895 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
70896 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
70897 if (capi_b_tmp == NULL((void*)0)) {
70898 if (!PyErr_Occurred())
70899 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ctbtrs to C/Fortran array" );
70900 } else {
70901 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
70902
70903 /* Processing variable info */
70904 /* Processing variable uplo */
70905 slen(uplo)capi_uplo_len = 1;
70906 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.ctbtrs to C string");
70907 if (f2py_success) {
70908 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","ctbtrs:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctbtrs:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
70909 /* Processing variable ldab */
70910 ldab = MAX(1, shape(ab, 0))((1 > ab_Dims[0]) ? (1) : (ab_Dims[0]));
70911 /* Processing variable n */
70912 n = MAX(1, shape(ab, 1))((1 > ab_Dims[1]) ? (1) : (ab_Dims[1]));
70913 /* Processing variable kd */
70914 kd = ldab-1;
70915 /* Processing variable ldb */
70916 ldb = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
70917 CHECKSCALAR(ldb >= n,"ldb >= n","hidden ldb","ctbtrs:ldb=%d",ldb)if (!(ldb >= n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctbtrs:ldb=%d", "(""ldb >= n"") failed for ""hidden ldb"
, ldb); PyErr_SetString(_flapack_error,errstring); } else
{
70918 /* Processing variable nrhs */
70919 nrhs = MAX(1, shape(b, 1))((1 > b_Dims[1]) ? (1) : (b_Dims[1]));
70920 /* Processing variable trans */
70921 slen(trans)capi_trans_len = 1;
70922 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.ctbtrs to C string");
70923 if (f2py_success) {
70924 CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C',"*trans=='N'||*trans=='T'||*trans=='C'","2nd keyword trans","ctbtrs:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T'||*trans=='C')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ctbtrs:slen(trans)=%d trans=\"%s\""
, "(""*trans=='N'||*trans=='T'||*trans=='C'"") failed for ""2nd keyword trans"
, capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring
); } else
{
70925 /* Processing variable diag */
70926 slen(diag)capi_diag_len = 1;
70927 f2py_success = string_from_pyobj(&diag,&slen(diag)capi_diag_len,"N",diag_capi,"string_from_pyobj failed in converting 3rd keyword `diag' of _flapack.ctbtrs to C string");
70928 if (f2py_success) {
70929 CHECKSTRING(*diag=='N'||*diag=='U',"*diag=='N'||*diag=='U'","3rd keyword diag","ctbtrs:slen(diag)=%d diag=\"%s\"",diag)if (!(*diag=='N'||*diag=='U')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctbtrs:slen(diag)=%d diag=\"%s\"", "(""*diag=='N'||*diag=='U'"
") failed for ""3rd keyword diag", capi_diag_len, diag); PyErr_SetString
(_flapack_error, errstring); } else
{
70930/*end of frompyobj*/
70931#ifdef F2PY_REPORT_ATEXIT
70932f2py_start_call_clock();
70933#endif
70934/*callfortranroutine*/
70935 (*f2py_func)(uplo,trans,diag,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info) ;
70936 /*(*f2py_func)(uplo,trans,diag,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info,slen(uplo),slen(trans),slen(diag));*/
70937if (PyErr_Occurred())
70938 f2py_success = 0;
70939#ifdef F2PY_REPORT_ATEXIT
70940f2py_stop_call_clock();
70941#endif
70942/*end of callfortranroutine*/
70943 if (f2py_success) {
70944/*pyobjfrom*/
70945/*end of pyobjfrom*/
70946 CFUNCSMESS("Building return value.\n");
70947 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
70948/*closepyobjfrom*/
70949/*end of closepyobjfrom*/
70950 } /*if (f2py_success) after callfortranroutine*/
70951/*cleanupfrompyobj*/
70952 } /*CHECKSTRING(*diag=='N'||*diag=='U')*/
70953 STRINGFREE(diag)do {if (!(diag == ((void*)0))) free(diag);} while (0);
70954 } /*if (f2py_success) of diag*/
70955 /* End of cleaning variable diag */
70956 } /*CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C')*/
70957 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
70958 } /*if (f2py_success) of trans*/
70959 /* End of cleaning variable trans */
70960 /* End of cleaning variable nrhs */
70961 } /*CHECKSCALAR(ldb >= n)*/
70962 /* End of cleaning variable ldb */
70963 /* End of cleaning variable kd */
70964 /* End of cleaning variable n */
70965 /* End of cleaning variable ldab */
70966 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
70967 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
70968 } /*if (f2py_success) of uplo*/
70969 /* End of cleaning variable uplo */
70970 /* End of cleaning variable info */
70971 } /*if (capi_b_tmp == NULL) ... else of b*/
70972 /* End of cleaning variable b */
70973 if((PyObject *)capi_ab_tmp!=ab_capi) {
70974 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
70975 } /*if (capi_ab_tmp == NULL) ... else of ab*/
70976 /* End of cleaning variable ab */
70977/*end of cleanupfrompyobj*/
70978 if (capi_buildvalue == NULL((void*)0)) {
70979/*routdebugfailure*/
70980 } else {
70981/*routdebugleave*/
70982 }
70983 CFUNCSMESS("Freeing memory.\n");
70984/*freemem*/
70985#ifdef F2PY_REPORT_ATEXIT
70986f2py_stop_clock();
70987#endif
70988 return capi_buildvalue;
70989}
70990/******************************* end of ctbtrs *******************************/
70991
70992/*********************************** ztbtrs ***********************************/
70993static char doc_f2py_rout__flapack_ztbtrs[] = "\
70994x,info = ztbtrs(ab,b,[uplo,trans,diag,overwrite_b])\n\nWrapper for ``ztbtrs``.\
70995\n\nParameters\n----------\n"
70996"ab : input rank-2 array('D') with bounds (ldab,n)\n"
70997"b : input rank-2 array('D') with bounds (ldb,nrhs)\n"
70998"\nOther Parameters\n----------------\n"
70999"uplo : input string(len=1), optional\n Default: 'U'\n"
71000"trans : input string(len=1), optional\n Default: 'N'\n"
71001"diag : input string(len=1), optional\n Default: 'N'\n"
71002"overwrite_b : input int, optional\n Default: 0\n"
71003"\nReturns\n-------\n"
71004"x : rank-2 array('D') with bounds (ldb,nrhs) and b storage\n"
71005"info : int";
71006/* extern void F_FUNC(ztbtrs,ZTBTRS)(char*,char*,char*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */
71007static PyObject *f2py_rout__flapack_ztbtrs(const PyObject *capi_self,
71008 PyObject *capi_args,
71009 PyObject *capi_keywds,
71010 void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
71011 PyObject * volatile capi_buildvalue = NULL((void*)0);
71012 volatile int f2py_success = 1;
71013/*decl*/
71014
71015 string uplo = NULL((void*)0);
71016 int slen(uplo)capi_uplo_len;
71017 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
71018 string trans = NULL((void*)0);
71019 int slen(trans)capi_trans_len;
71020 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
71021 string diag = NULL((void*)0);
71022 int slen(diag)capi_diag_len;
71023 PyObject *diag_capi = Py_None(&_Py_NoneStruct);
71024 int n = 0;
71025 int kd = 0;
71026 int nrhs = 0;
71027 complex_double *ab = NULL((void*)0);
71028 npy_intp ab_Dims[2] = {-1, -1};
71029 const int ab_Rank = 2;
71030 PyArrayObject *capi_ab_tmp = NULL((void*)0);
71031 int capi_ab_intent = 0;
71032 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
71033 int ldab = 0;
71034 complex_double *b = NULL((void*)0);
71035 npy_intp b_Dims[2] = {-1, -1};
71036 const int b_Rank = 2;
71037 PyArrayObject *capi_b_tmp = NULL((void*)0);
71038 int capi_b_intent = 0;
71039 int capi_overwrite_b = 0;
71040 PyObject *b_capi = Py_None(&_Py_NoneStruct);
71041 int ldb = 0;
71042 int info = 0;
71043 static char *capi_kwlist[] = {"ab","b","uplo","trans","diag","overwrite_b",NULL((void*)0)};
71044
71045/*routdebugenter*/
71046#ifdef F2PY_REPORT_ATEXIT
71047f2py_start_clock();
71048#endif
71049 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
71050 "OO|OOOi:_flapack.ztbtrs",\
71051 capi_kwlist,&ab_capi,&b_capi,&uplo_capi,&trans_capi,&diag_capi,&capi_overwrite_b))
71052 return NULL((void*)0);
71053/*frompyobj*/
71054 /* Processing variable ab */
71055 ;
71056 capi_ab_intent |= F2PY_INTENT_IN1;
71057 capi_ab_tmp = array_from_pyobj(NPY_CDOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
71058 if (capi_ab_tmp == NULL((void*)0)) {
71059 if (!PyErr_Occurred())
71060 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.ztbtrs to C/Fortran array" );
71061 } else {
71062 ab = (complex_double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
71063
71064 /* Processing variable b */
71065 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
71066 ;
71067 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
71068 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
71069 if (capi_b_tmp == NULL((void*)0)) {
71070 if (!PyErr_Occurred())
71071 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ztbtrs to C/Fortran array" );
71072 } else {
71073 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
71074
71075 /* Processing variable info */
71076 /* Processing variable uplo */
71077 slen(uplo)capi_uplo_len = 1;
71078 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.ztbtrs to C string");
71079 if (f2py_success) {
71080 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","ztbtrs:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztbtrs:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
71081 /* Processing variable ldab */
71082 ldab = MAX(1, shape(ab, 0))((1 > ab_Dims[0]) ? (1) : (ab_Dims[0]));
71083 /* Processing variable n */
71084 n = MAX(1, shape(ab, 1))((1 > ab_Dims[1]) ? (1) : (ab_Dims[1]));
71085 /* Processing variable kd */
71086 kd = ldab-1;
71087 /* Processing variable ldb */
71088 ldb = MAX(1, shape(b, 0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
71089 CHECKSCALAR(ldb >= n,"ldb >= n","hidden ldb","ztbtrs:ldb=%d",ldb)if (!(ldb >= n)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztbtrs:ldb=%d", "(""ldb >= n"") failed for ""hidden ldb"
, ldb); PyErr_SetString(_flapack_error,errstring); } else
{
71090 /* Processing variable nrhs */
71091 nrhs = MAX(1, shape(b, 1))((1 > b_Dims[1]) ? (1) : (b_Dims[1]));
71092 /* Processing variable trans */
71093 slen(trans)capi_trans_len = 1;
71094 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.ztbtrs to C string");
71095 if (f2py_success) {
71096 CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C',"*trans=='N'||*trans=='T'||*trans=='C'","2nd keyword trans","ztbtrs:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T'||*trans=='C')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ztbtrs:slen(trans)=%d trans=\"%s\""
, "(""*trans=='N'||*trans=='T'||*trans=='C'"") failed for ""2nd keyword trans"
, capi_trans_len, trans); PyErr_SetString(_flapack_error, errstring
); } else
{
71097 /* Processing variable diag */
71098 slen(diag)capi_diag_len = 1;
71099 f2py_success = string_from_pyobj(&diag,&slen(diag)capi_diag_len,"N",diag_capi,"string_from_pyobj failed in converting 3rd keyword `diag' of _flapack.ztbtrs to C string");
71100 if (f2py_success) {
71101 CHECKSTRING(*diag=='N'||*diag=='U',"*diag=='N'||*diag=='U'","3rd keyword diag","ztbtrs:slen(diag)=%d diag=\"%s\"",diag)if (!(*diag=='N'||*diag=='U')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztbtrs:slen(diag)=%d diag=\"%s\"", "(""*diag=='N'||*diag=='U'"
") failed for ""3rd keyword diag", capi_diag_len, diag); PyErr_SetString
(_flapack_error, errstring); } else
{
71102/*end of frompyobj*/
71103#ifdef F2PY_REPORT_ATEXIT
71104f2py_start_call_clock();
71105#endif
71106/*callfortranroutine*/
71107 (*f2py_func)(uplo,trans,diag,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info) ;
71108 /*(*f2py_func)(uplo,trans,diag,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info,slen(uplo),slen(trans),slen(diag));*/
71109if (PyErr_Occurred())
71110 f2py_success = 0;
71111#ifdef F2PY_REPORT_ATEXIT
71112f2py_stop_call_clock();
71113#endif
71114/*end of callfortranroutine*/
71115 if (f2py_success) {
71116/*pyobjfrom*/
71117/*end of pyobjfrom*/
71118 CFUNCSMESS("Building return value.\n");
71119 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
71120/*closepyobjfrom*/
71121/*end of closepyobjfrom*/
71122 } /*if (f2py_success) after callfortranroutine*/
71123/*cleanupfrompyobj*/
71124 } /*CHECKSTRING(*diag=='N'||*diag=='U')*/
71125 STRINGFREE(diag)do {if (!(diag == ((void*)0))) free(diag);} while (0);
71126 } /*if (f2py_success) of diag*/
71127 /* End of cleaning variable diag */
71128 } /*CHECKSTRING(*trans=='N'||*trans=='T'||*trans=='C')*/
71129 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
71130 } /*if (f2py_success) of trans*/
71131 /* End of cleaning variable trans */
71132 /* End of cleaning variable nrhs */
71133 } /*CHECKSCALAR(ldb >= n)*/
71134 /* End of cleaning variable ldb */
71135 /* End of cleaning variable kd */
71136 /* End of cleaning variable n */
71137 /* End of cleaning variable ldab */
71138 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
71139 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
71140 } /*if (f2py_success) of uplo*/
71141 /* End of cleaning variable uplo */
71142 /* End of cleaning variable info */
71143 } /*if (capi_b_tmp == NULL) ... else of b*/
71144 /* End of cleaning variable b */
71145 if((PyObject *)capi_ab_tmp!=ab_capi) {
71146 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
71147 } /*if (capi_ab_tmp == NULL) ... else of ab*/
71148 /* End of cleaning variable ab */
71149/*end of cleanupfrompyobj*/
71150 if (capi_buildvalue == NULL((void*)0)) {
71151/*routdebugfailure*/
71152 } else {
71153/*routdebugleave*/
71154 }
71155 CFUNCSMESS("Freeing memory.\n");
71156/*freemem*/
71157#ifdef F2PY_REPORT_ATEXIT
71158f2py_stop_clock();
71159#endif
71160 return capi_buildvalue;
71161}
71162/******************************* end of ztbtrs *******************************/
71163
71164/*********************************** spbsv ***********************************/
71165static char doc_f2py_rout__flapack_spbsv[] = "\
71166c,x,info = spbsv(ab,b,[lower,ldab,overwrite_ab,overwrite_b])\n\nWrapper for ``spbsv``.\
71167\n\nParameters\n----------\n"
71168"ab : input rank-2 array('f') with bounds (ldab,n)\n"
71169"b : input rank-2 array('f') with bounds (ldb,nrhs)\n"
71170"\nOther Parameters\n----------------\n"
71171"lower : input int, optional\n Default: 0\n"
71172"overwrite_ab : input int, optional\n Default: 0\n"
71173"ldab : input int, optional\n Default: shape(ab,0)\n"
71174"overwrite_b : input int, optional\n Default: 0\n"
71175"\nReturns\n-------\n"
71176"c : rank-2 array('f') with bounds (ldab,n) and ab storage\n"
71177"x : rank-2 array('f') with bounds (ldb,nrhs) and b storage\n"
71178"info : int";
71179/* extern void F_FUNC(spbsv,SPBSV)(char*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT* ); */
71180static PyObject *f2py_rout__flapack_spbsv(const PyObject *capi_self,
71181 PyObject *capi_args,
71182 PyObject *capi_keywds,
71183 void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
71184 PyObject * volatile capi_buildvalue = NULL((void*)0);
71185 volatile int f2py_success = 1;
71186/*decl*/
71187
71188 int lower = 0;
71189 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
71190 int n = 0;
71191 int kd = 0;
71192 int nrhs = 0;
71193 float *ab = NULL((void*)0);
71194 npy_intp ab_Dims[2] = {-1, -1};
71195 const int ab_Rank = 2;
71196 PyArrayObject *capi_ab_tmp = NULL((void*)0);
71197 int capi_ab_intent = 0;
71198 int capi_overwrite_ab = 0;
71199 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
71200 int ldab = 0;
71201 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
71202 float *b = NULL((void*)0);
71203 npy_intp b_Dims[2] = {-1, -1};
71204 const int b_Rank = 2;
71205 PyArrayObject *capi_b_tmp = NULL((void*)0);
71206 int capi_b_intent = 0;
71207 int capi_overwrite_b = 0;
71208 PyObject *b_capi = Py_None(&_Py_NoneStruct);
71209 int ldb = 0;
71210 int info = 0;
71211 static char *capi_kwlist[] = {"ab","b","lower","ldab","overwrite_ab","overwrite_b",NULL((void*)0)};
71212
71213/*routdebugenter*/
71214#ifdef F2PY_REPORT_ATEXIT
71215f2py_start_clock();
71216#endif
71217 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
71218 "OO|OOii:_flapack.spbsv",\
71219 capi_kwlist,&ab_capi,&b_capi,&lower_capi,&ldab_capi,&capi_overwrite_ab,&capi_overwrite_b))
71220 return NULL((void*)0);
71221/*frompyobj*/
71222 /* Processing variable lower */
71223 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
71224 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spbsv() 1st keyword (lower) can't be converted to int");
71225 if (f2py_success) {
71226 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","spbsv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spbsv:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
71227 /* Processing variable b */
71228 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
71229 ;
71230 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
71231 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
71232 if (capi_b_tmp == NULL((void*)0)) {
71233 if (!PyErr_Occurred())
71234 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.spbsv to C/Fortran array" );
71235 } else {
71236 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
71237
71238 /* Processing variable ab */
71239 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
71240 ;
71241 capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
71242 capi_ab_tmp = array_from_pyobj(NPY_FLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
71243 if (capi_ab_tmp == NULL((void*)0)) {
71244 if (!PyErr_Occurred())
71245 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.spbsv to C/Fortran array" );
71246 } else {
71247 ab = (float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
71248
71249 /* Processing variable info */
71250 /* Processing variable ldab */
71251 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
71252 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.spbsv() 2nd keyword (ldab) can't be converted to int");
71253 if (f2py_success) {
71254 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","spbsv:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spbsv:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
71255 /* Processing variable n */
71256 n = shape(ab,1)ab_Dims[1];
71257 /* Processing variable kd */
71258 kd = shape(ab,0)ab_Dims[0]-1;
71259 /* Processing variable ldb */
71260 ldb = shape(b,0)b_Dims[0];
71261 /* Processing variable nrhs */
71262 nrhs = shape(b,1)b_Dims[1];
71263/*end of frompyobj*/
71264#ifdef F2PY_REPORT_ATEXIT
71265f2py_start_call_clock();
71266#endif
71267/*callfortranroutine*/
71268 (*f2py_func)((lower?"L":"U"),&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info); ;
71269 /*(*f2py_func)(&lower,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info);*/
71270if (PyErr_Occurred())
71271 f2py_success = 0;
71272#ifdef F2PY_REPORT_ATEXIT
71273f2py_stop_call_clock();
71274#endif
71275/*end of callfortranroutine*/
71276 if (f2py_success) {
71277/*pyobjfrom*/
71278/*end of pyobjfrom*/
71279 CFUNCSMESS("Building return value.\n");
71280 capi_buildvalue = Py_BuildValue("NNi",capi_ab_tmp,capi_b_tmp,info);
71281/*closepyobjfrom*/
71282/*end of closepyobjfrom*/
71283 } /*if (f2py_success) after callfortranroutine*/
71284/*cleanupfrompyobj*/
71285 /* End of cleaning variable nrhs */
71286 /* End of cleaning variable ldb */
71287 /* End of cleaning variable kd */
71288 /* End of cleaning variable n */
71289 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
71290 } /*if (f2py_success) of ldab*/
71291 /* End of cleaning variable ldab */
71292 /* End of cleaning variable info */
71293 } /*if (capi_ab_tmp == NULL) ... else of ab*/
71294 /* End of cleaning variable ab */
71295 } /*if (capi_b_tmp == NULL) ... else of b*/
71296 /* End of cleaning variable b */
71297 } /*CHECKSCALAR(lower==0||lower==1)*/
71298 } /*if (f2py_success) of lower*/
71299 /* End of cleaning variable lower */
71300/*end of cleanupfrompyobj*/
71301 if (capi_buildvalue == NULL((void*)0)) {
71302/*routdebugfailure*/
71303 } else {
71304/*routdebugleave*/
71305 }
71306 CFUNCSMESS("Freeing memory.\n");
71307/*freemem*/
71308#ifdef F2PY_REPORT_ATEXIT
71309f2py_stop_clock();
71310#endif
71311 return capi_buildvalue;
71312}
71313/******************************** end of spbsv ********************************/
71314
71315/*********************************** dpbsv ***********************************/
71316static char doc_f2py_rout__flapack_dpbsv[] = "\
71317c,x,info = dpbsv(ab,b,[lower,ldab,overwrite_ab,overwrite_b])\n\nWrapper for ``dpbsv``.\
71318\n\nParameters\n----------\n"
71319"ab : input rank-2 array('d') with bounds (ldab,n)\n"
71320"b : input rank-2 array('d') with bounds (ldb,nrhs)\n"
71321"\nOther Parameters\n----------------\n"
71322"lower : input int, optional\n Default: 0\n"
71323"overwrite_ab : input int, optional\n Default: 0\n"
71324"ldab : input int, optional\n Default: shape(ab,0)\n"
71325"overwrite_b : input int, optional\n Default: 0\n"
71326"\nReturns\n-------\n"
71327"c : rank-2 array('d') with bounds (ldab,n) and ab storage\n"
71328"x : rank-2 array('d') with bounds (ldb,nrhs) and b storage\n"
71329"info : int";
71330/* extern void F_FUNC(dpbsv,DPBSV)(char*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT* ); */
71331static PyObject *f2py_rout__flapack_dpbsv(const PyObject *capi_self,
71332 PyObject *capi_args,
71333 PyObject *capi_keywds,
71334 void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
71335 PyObject * volatile capi_buildvalue = NULL((void*)0);
71336 volatile int f2py_success = 1;
71337/*decl*/
71338
71339 int lower = 0;
71340 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
71341 int n = 0;
71342 int kd = 0;
71343 int nrhs = 0;
71344 double *ab = NULL((void*)0);
71345 npy_intp ab_Dims[2] = {-1, -1};
71346 const int ab_Rank = 2;
71347 PyArrayObject *capi_ab_tmp = NULL((void*)0);
71348 int capi_ab_intent = 0;
71349 int capi_overwrite_ab = 0;
71350 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
71351 int ldab = 0;
71352 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
71353 double *b = NULL((void*)0);
71354 npy_intp b_Dims[2] = {-1, -1};
71355 const int b_Rank = 2;
71356 PyArrayObject *capi_b_tmp = NULL((void*)0);
71357 int capi_b_intent = 0;
71358 int capi_overwrite_b = 0;
71359 PyObject *b_capi = Py_None(&_Py_NoneStruct);
71360 int ldb = 0;
71361 int info = 0;
71362 static char *capi_kwlist[] = {"ab","b","lower","ldab","overwrite_ab","overwrite_b",NULL((void*)0)};
71363
71364/*routdebugenter*/
71365#ifdef F2PY_REPORT_ATEXIT
71366f2py_start_clock();
71367#endif
71368 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
71369 "OO|OOii:_flapack.dpbsv",\
71370 capi_kwlist,&ab_capi,&b_capi,&lower_capi,&ldab_capi,&capi_overwrite_ab,&capi_overwrite_b))
71371 return NULL((void*)0);
71372/*frompyobj*/
71373 /* Processing variable lower */
71374 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
71375 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpbsv() 1st keyword (lower) can't be converted to int");
71376 if (f2py_success) {
71377 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dpbsv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpbsv:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
71378 /* Processing variable b */
71379 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
71380 ;
71381 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
71382 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
71383 if (capi_b_tmp == NULL((void*)0)) {
71384 if (!PyErr_Occurred())
71385 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dpbsv to C/Fortran array" );
71386 } else {
71387 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
71388
71389 /* Processing variable ab */
71390 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
71391 ;
71392 capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
71393 capi_ab_tmp = array_from_pyobj(NPY_DOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
71394 if (capi_ab_tmp == NULL((void*)0)) {
71395 if (!PyErr_Occurred())
71396 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.dpbsv to C/Fortran array" );
71397 } else {
71398 ab = (double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
71399
71400 /* Processing variable info */
71401 /* Processing variable ldab */
71402 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
71403 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.dpbsv() 2nd keyword (ldab) can't be converted to int");
71404 if (f2py_success) {
71405 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","dpbsv:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpbsv:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
71406 /* Processing variable n */
71407 n = shape(ab,1)ab_Dims[1];
71408 /* Processing variable kd */
71409 kd = shape(ab,0)ab_Dims[0]-1;
71410 /* Processing variable ldb */
71411 ldb = shape(b,0)b_Dims[0];
71412 /* Processing variable nrhs */
71413 nrhs = shape(b,1)b_Dims[1];
71414/*end of frompyobj*/
71415#ifdef F2PY_REPORT_ATEXIT
71416f2py_start_call_clock();
71417#endif
71418/*callfortranroutine*/
71419 (*f2py_func)((lower?"L":"U"),&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info); ;
71420 /*(*f2py_func)(&lower,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info);*/
71421if (PyErr_Occurred())
71422 f2py_success = 0;
71423#ifdef F2PY_REPORT_ATEXIT
71424f2py_stop_call_clock();
71425#endif
71426/*end of callfortranroutine*/
71427 if (f2py_success) {
71428/*pyobjfrom*/
71429/*end of pyobjfrom*/
71430 CFUNCSMESS("Building return value.\n");
71431 capi_buildvalue = Py_BuildValue("NNi",capi_ab_tmp,capi_b_tmp,info);
71432/*closepyobjfrom*/
71433/*end of closepyobjfrom*/
71434 } /*if (f2py_success) after callfortranroutine*/
71435/*cleanupfrompyobj*/
71436 /* End of cleaning variable nrhs */
71437 /* End of cleaning variable ldb */
71438 /* End of cleaning variable kd */
71439 /* End of cleaning variable n */
71440 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
71441 } /*if (f2py_success) of ldab*/
71442 /* End of cleaning variable ldab */
71443 /* End of cleaning variable info */
71444 } /*if (capi_ab_tmp == NULL) ... else of ab*/
71445 /* End of cleaning variable ab */
71446 } /*if (capi_b_tmp == NULL) ... else of b*/
71447 /* End of cleaning variable b */
71448 } /*CHECKSCALAR(lower==0||lower==1)*/
71449 } /*if (f2py_success) of lower*/
71450 /* End of cleaning variable lower */
71451/*end of cleanupfrompyobj*/
71452 if (capi_buildvalue == NULL((void*)0)) {
71453/*routdebugfailure*/
71454 } else {
71455/*routdebugleave*/
71456 }
71457 CFUNCSMESS("Freeing memory.\n");
71458/*freemem*/
71459#ifdef F2PY_REPORT_ATEXIT
71460f2py_stop_clock();
71461#endif
71462 return capi_buildvalue;
71463}
71464/******************************** end of dpbsv ********************************/
71465
71466/*********************************** cpbsv ***********************************/
71467static char doc_f2py_rout__flapack_cpbsv[] = "\
71468c,x,info = cpbsv(ab,b,[lower,ldab,overwrite_ab,overwrite_b])\n\nWrapper for ``cpbsv``.\
71469\n\nParameters\n----------\n"
71470"ab : input rank-2 array('F') with bounds (ldab,n)\n"
71471"b : input rank-2 array('F') with bounds (ldb,nrhs)\n"
71472"\nOther Parameters\n----------------\n"
71473"lower : input int, optional\n Default: 0\n"
71474"overwrite_ab : input int, optional\n Default: 0\n"
71475"ldab : input int, optional\n Default: shape(ab,0)\n"
71476"overwrite_b : input int, optional\n Default: 0\n"
71477"\nReturns\n-------\n"
71478"c : rank-2 array('F') with bounds (ldab,n) and ab storage\n"
71479"x : rank-2 array('F') with bounds (ldb,nrhs) and b storage\n"
71480"info : int";
71481/* extern void F_FUNC(cpbsv,CPBSV)(char*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */
71482static PyObject *f2py_rout__flapack_cpbsv(const PyObject *capi_self,
71483 PyObject *capi_args,
71484 PyObject *capi_keywds,
71485 void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
71486 PyObject * volatile capi_buildvalue = NULL((void*)0);
71487 volatile int f2py_success = 1;
71488/*decl*/
71489
71490 int lower = 0;
71491 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
71492 int n = 0;
71493 int kd = 0;
71494 int nrhs = 0;
71495 complex_float *ab = NULL((void*)0);
71496 npy_intp ab_Dims[2] = {-1, -1};
71497 const int ab_Rank = 2;
71498 PyArrayObject *capi_ab_tmp = NULL((void*)0);
71499 int capi_ab_intent = 0;
71500 int capi_overwrite_ab = 0;
71501 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
71502 int ldab = 0;
71503 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
71504 complex_float *b = NULL((void*)0);
71505 npy_intp b_Dims[2] = {-1, -1};
71506 const int b_Rank = 2;
71507 PyArrayObject *capi_b_tmp = NULL((void*)0);
71508 int capi_b_intent = 0;
71509 int capi_overwrite_b = 0;
71510 PyObject *b_capi = Py_None(&_Py_NoneStruct);
71511 int ldb = 0;
71512 int info = 0;
71513 static char *capi_kwlist[] = {"ab","b","lower","ldab","overwrite_ab","overwrite_b",NULL((void*)0)};
71514
71515/*routdebugenter*/
71516#ifdef F2PY_REPORT_ATEXIT
71517f2py_start_clock();
71518#endif
71519 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
71520 "OO|OOii:_flapack.cpbsv",\
71521 capi_kwlist,&ab_capi,&b_capi,&lower_capi,&ldab_capi,&capi_overwrite_ab,&capi_overwrite_b))
71522 return NULL((void*)0);
71523/*frompyobj*/
71524 /* Processing variable lower */
71525 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
71526 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpbsv() 1st keyword (lower) can't be converted to int");
71527 if (f2py_success) {
71528 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cpbsv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpbsv:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
71529 /* Processing variable b */
71530 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
71531 ;
71532 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
71533 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
71534 if (capi_b_tmp == NULL((void*)0)) {
71535 if (!PyErr_Occurred())
71536 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cpbsv to C/Fortran array" );
71537 } else {
71538 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
71539
71540 /* Processing variable ab */
71541 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
71542 ;
71543 capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
71544 capi_ab_tmp = array_from_pyobj(NPY_CFLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
71545 if (capi_ab_tmp == NULL((void*)0)) {
71546 if (!PyErr_Occurred())
71547 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.cpbsv to C/Fortran array" );
71548 } else {
71549 ab = (complex_float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
71550
71551 /* Processing variable info */
71552 /* Processing variable ldab */
71553 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
71554 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.cpbsv() 2nd keyword (ldab) can't be converted to int");
71555 if (f2py_success) {
71556 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","cpbsv:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpbsv:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
71557 /* Processing variable n */
71558 n = shape(ab,1)ab_Dims[1];
71559 /* Processing variable kd */
71560 kd = shape(ab,0)ab_Dims[0]-1;
71561 /* Processing variable ldb */
71562 ldb = shape(b,0)b_Dims[0];
71563 /* Processing variable nrhs */
71564 nrhs = shape(b,1)b_Dims[1];
71565/*end of frompyobj*/
71566#ifdef F2PY_REPORT_ATEXIT
71567f2py_start_call_clock();
71568#endif
71569/*callfortranroutine*/
71570 (*f2py_func)((lower?"L":"U"),&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info); ;
71571 /*(*f2py_func)(&lower,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info);*/
71572if (PyErr_Occurred())
71573 f2py_success = 0;
71574#ifdef F2PY_REPORT_ATEXIT
71575f2py_stop_call_clock();
71576#endif
71577/*end of callfortranroutine*/
71578 if (f2py_success) {
71579/*pyobjfrom*/
71580/*end of pyobjfrom*/
71581 CFUNCSMESS("Building return value.\n");
71582 capi_buildvalue = Py_BuildValue("NNi",capi_ab_tmp,capi_b_tmp,info);
71583/*closepyobjfrom*/
71584/*end of closepyobjfrom*/
71585 } /*if (f2py_success) after callfortranroutine*/
71586/*cleanupfrompyobj*/
71587 /* End of cleaning variable nrhs */
71588 /* End of cleaning variable ldb */
71589 /* End of cleaning variable kd */
71590 /* End of cleaning variable n */
71591 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
71592 } /*if (f2py_success) of ldab*/
71593 /* End of cleaning variable ldab */
71594 /* End of cleaning variable info */
71595 } /*if (capi_ab_tmp == NULL) ... else of ab*/
71596 /* End of cleaning variable ab */
71597 } /*if (capi_b_tmp == NULL) ... else of b*/
71598 /* End of cleaning variable b */
71599 } /*CHECKSCALAR(lower==0||lower==1)*/
71600 } /*if (f2py_success) of lower*/
71601 /* End of cleaning variable lower */
71602/*end of cleanupfrompyobj*/
71603 if (capi_buildvalue == NULL((void*)0)) {
71604/*routdebugfailure*/
71605 } else {
71606/*routdebugleave*/
71607 }
71608 CFUNCSMESS("Freeing memory.\n");
71609/*freemem*/
71610#ifdef F2PY_REPORT_ATEXIT
71611f2py_stop_clock();
71612#endif
71613 return capi_buildvalue;
71614}
71615/******************************** end of cpbsv ********************************/
71616
71617/*********************************** zpbsv ***********************************/
71618static char doc_f2py_rout__flapack_zpbsv[] = "\
71619c,x,info = zpbsv(ab,b,[lower,ldab,overwrite_ab,overwrite_b])\n\nWrapper for ``zpbsv``.\
71620\n\nParameters\n----------\n"
71621"ab : input rank-2 array('D') with bounds (ldab,n)\n"
71622"b : input rank-2 array('D') with bounds (ldb,nrhs)\n"
71623"\nOther Parameters\n----------------\n"
71624"lower : input int, optional\n Default: 0\n"
71625"overwrite_ab : input int, optional\n Default: 0\n"
71626"ldab : input int, optional\n Default: shape(ab,0)\n"
71627"overwrite_b : input int, optional\n Default: 0\n"
71628"\nReturns\n-------\n"
71629"c : rank-2 array('D') with bounds (ldab,n) and ab storage\n"
71630"x : rank-2 array('D') with bounds (ldb,nrhs) and b storage\n"
71631"info : int";
71632/* extern void F_FUNC(zpbsv,ZPBSV)(char*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */
71633static PyObject *f2py_rout__flapack_zpbsv(const PyObject *capi_self,
71634 PyObject *capi_args,
71635 PyObject *capi_keywds,
71636 void (*f2py_func)(char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
71637 PyObject * volatile capi_buildvalue = NULL((void*)0);
71638 volatile int f2py_success = 1;
71639/*decl*/
71640
71641 int lower = 0;
71642 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
71643 int n = 0;
71644 int kd = 0;
71645 int nrhs = 0;
71646 complex_double *ab = NULL((void*)0);
71647 npy_intp ab_Dims[2] = {-1, -1};
71648 const int ab_Rank = 2;
71649 PyArrayObject *capi_ab_tmp = NULL((void*)0);
71650 int capi_ab_intent = 0;
71651 int capi_overwrite_ab = 0;
71652 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
71653 int ldab = 0;
71654 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
71655 complex_double *b = NULL((void*)0);
71656 npy_intp b_Dims[2] = {-1, -1};
71657 const int b_Rank = 2;
71658 PyArrayObject *capi_b_tmp = NULL((void*)0);
71659 int capi_b_intent = 0;
71660 int capi_overwrite_b = 0;
71661 PyObject *b_capi = Py_None(&_Py_NoneStruct);
71662 int ldb = 0;
71663 int info = 0;
71664 static char *capi_kwlist[] = {"ab","b","lower","ldab","overwrite_ab","overwrite_b",NULL((void*)0)};
71665
71666/*routdebugenter*/
71667#ifdef F2PY_REPORT_ATEXIT
71668f2py_start_clock();
71669#endif
71670 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
71671 "OO|OOii:_flapack.zpbsv",\
71672 capi_kwlist,&ab_capi,&b_capi,&lower_capi,&ldab_capi,&capi_overwrite_ab,&capi_overwrite_b))
71673 return NULL((void*)0);
71674/*frompyobj*/
71675 /* Processing variable lower */
71676 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
71677 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpbsv() 1st keyword (lower) can't be converted to int");
71678 if (f2py_success) {
71679 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zpbsv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpbsv:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
71680 /* Processing variable b */
71681 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
71682 ;
71683 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
71684 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
71685 if (capi_b_tmp == NULL((void*)0)) {
71686 if (!PyErr_Occurred())
71687 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zpbsv to C/Fortran array" );
71688 } else {
71689 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
71690
71691 /* Processing variable ab */
71692 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
71693 ;
71694 capi_ab_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
71695 capi_ab_tmp = array_from_pyobj(NPY_CDOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
71696 if (capi_ab_tmp == NULL((void*)0)) {
71697 if (!PyErr_Occurred())
71698 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.zpbsv to C/Fortran array" );
71699 } else {
71700 ab = (complex_double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
71701
71702 /* Processing variable info */
71703 /* Processing variable ldab */
71704 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
71705 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.zpbsv() 2nd keyword (ldab) can't be converted to int");
71706 if (f2py_success) {
71707 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","2nd keyword ldab","zpbsv:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpbsv:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"2nd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
71708 /* Processing variable n */
71709 n = shape(ab,1)ab_Dims[1];
71710 /* Processing variable kd */
71711 kd = shape(ab,0)ab_Dims[0]-1;
71712 /* Processing variable ldb */
71713 ldb = shape(b,0)b_Dims[0];
71714 /* Processing variable nrhs */
71715 nrhs = shape(b,1)b_Dims[1];
71716/*end of frompyobj*/
71717#ifdef F2PY_REPORT_ATEXIT
71718f2py_start_call_clock();
71719#endif
71720/*callfortranroutine*/
71721 (*f2py_func)((lower?"L":"U"),&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info); ;
71722 /*(*f2py_func)(&lower,&n,&kd,&nrhs,ab,&ldab,b,&ldb,&info);*/
71723if (PyErr_Occurred())
71724 f2py_success = 0;
71725#ifdef F2PY_REPORT_ATEXIT
71726f2py_stop_call_clock();
71727#endif
71728/*end of callfortranroutine*/
71729 if (f2py_success) {
71730/*pyobjfrom*/
71731/*end of pyobjfrom*/
71732 CFUNCSMESS("Building return value.\n");
71733 capi_buildvalue = Py_BuildValue("NNi",capi_ab_tmp,capi_b_tmp,info);
71734/*closepyobjfrom*/
71735/*end of closepyobjfrom*/
71736 } /*if (f2py_success) after callfortranroutine*/
71737/*cleanupfrompyobj*/
71738 /* End of cleaning variable nrhs */
71739 /* End of cleaning variable ldb */
71740 /* End of cleaning variable kd */
71741 /* End of cleaning variable n */
71742 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
71743 } /*if (f2py_success) of ldab*/
71744 /* End of cleaning variable ldab */
71745 /* End of cleaning variable info */
71746 } /*if (capi_ab_tmp == NULL) ... else of ab*/
71747 /* End of cleaning variable ab */
71748 } /*if (capi_b_tmp == NULL) ... else of b*/
71749 /* End of cleaning variable b */
71750 } /*CHECKSCALAR(lower==0||lower==1)*/
71751 } /*if (f2py_success) of lower*/
71752 /* End of cleaning variable lower */
71753/*end of cleanupfrompyobj*/
71754 if (capi_buildvalue == NULL((void*)0)) {
71755/*routdebugfailure*/
71756 } else {
71757/*routdebugleave*/
71758 }
71759 CFUNCSMESS("Freeing memory.\n");
71760/*freemem*/
71761#ifdef F2PY_REPORT_ATEXIT
71762f2py_stop_clock();
71763#endif
71764 return capi_buildvalue;
71765}
71766/******************************** end of zpbsv ********************************/
71767
71768/*********************************** sorcsd ***********************************/
71769static char doc_f2py_rout__flapack_sorcsd[] = "\
71770cs11,cs12,cs21,cs22,theta,u1,u2,v1t,v2t,info = sorcsd(x11,x12,x21,x22,[compute_u1,compute_u2,compute_v1t,compute_v2t,trans,signs,lwork,overwrite_x11,overwrite_x12,overwrite_x21,overwrite_x22])\n\nWrapper for ``sorcsd``.\
71771\n\nParameters\n----------\n"
71772"x11 : input rank-2 array('f') with bounds (p,q)\n"
71773"x12 : input rank-2 array('f') with bounds (p,mmq)\n"
71774"x21 : input rank-2 array('f') with bounds (mmp,q)\n"
71775"x22 : input rank-2 array('f') with bounds (mmp,mmq)\n"
71776"\nOther Parameters\n----------------\n"
71777"compute_u1 : input int, optional\n Default: 1\n"
71778"compute_u2 : input int, optional\n Default: 1\n"
71779"compute_v1t : input int, optional\n Default: 1\n"
71780"compute_v2t : input int, optional\n Default: 1\n"
71781"trans : input int, optional\n Default: 0\n"
71782"signs : input int, optional\n Default: 0\n"
71783"overwrite_x11 : input int, optional\n Default: 0\n"
71784"overwrite_x12 : input int, optional\n Default: 0\n"
71785"overwrite_x21 : input int, optional\n Default: 0\n"
71786"overwrite_x22 : input int, optional\n Default: 0\n"
71787"lwork : input int, optional\n Default: 2+2*m+5*MAX(1,q-1)+4*MAX(1,q)+8*q\n"
71788"\nReturns\n-------\n"
71789"cs11 : rank-2 array('f') with bounds (p,q) and x11 storage\n"
71790"cs12 : rank-2 array('f') with bounds (p,mmq) and x12 storage\n"
71791"cs21 : rank-2 array('f') with bounds (mmp,q) and x21 storage\n"
71792"cs22 : rank-2 array('f') with bounds (mmp,mmq) and x22 storage\n"
71793"theta : rank-1 array('f') with bounds (min(min(p,mmp),min(q,mmq)))\n"
71794"u1 : rank-2 array('f') with bounds ((compute_u1?p:0),(compute_u1?p:0))\n"
71795"u2 : rank-2 array('f') with bounds ((compute_u2?mmp:0),(compute_u2?mmp:0))\n"
71796"v1t : rank-2 array('f') with bounds ((compute_v1t?q:0),(compute_v1t?q:0))\n"
71797"v2t : rank-2 array('f') with bounds ((compute_v2t?mmq:0),(compute_v2t?mmq:0))\n"
71798"info : int";
71799/* extern void F_FUNC(sorcsd,SORCSD)(char*,char*,char*,char*,char*,char*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */
71800static PyObject *f2py_rout__flapack_sorcsd(const PyObject *capi_self,
71801 PyObject *capi_args,
71802 PyObject *capi_keywds,
71803 void (*f2py_func)(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) {
71804 PyObject * volatile capi_buildvalue = NULL((void*)0);
71805 volatile int f2py_success = 1;
71806/*decl*/
71807
71808 int compute_u1 = 0;
71809 PyObject *compute_u1_capi = Py_None(&_Py_NoneStruct);
71810 int compute_u2 = 0;
71811 PyObject *compute_u2_capi = Py_None(&_Py_NoneStruct);
71812 int compute_v1t = 0;
71813 PyObject *compute_v1t_capi = Py_None(&_Py_NoneStruct);
71814 int compute_v2t = 0;
71815 PyObject *compute_v2t_capi = Py_None(&_Py_NoneStruct);
71816 int trans = 0;
71817 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
71818 int signs = 0;
71819 PyObject *signs_capi = Py_None(&_Py_NoneStruct);
71820 int m = 0;
71821 int p = 0;
71822 int q = 0;
71823 float *x11 = NULL((void*)0);
71824 npy_intp x11_Dims[2] = {-1, -1};
71825 const int x11_Rank = 2;
71826 PyArrayObject *capi_x11_tmp = NULL((void*)0);
71827 int capi_x11_intent = 0;
71828 int capi_overwrite_x11 = 0;
71829 PyObject *x11_capi = Py_None(&_Py_NoneStruct);
71830 int ldx11 = 0;
71831 float *x12 = NULL((void*)0);
71832 npy_intp x12_Dims[2] = {-1, -1};
71833 const int x12_Rank = 2;
71834 PyArrayObject *capi_x12_tmp = NULL((void*)0);
71835 int capi_x12_intent = 0;
71836 int capi_overwrite_x12 = 0;
71837 PyObject *x12_capi = Py_None(&_Py_NoneStruct);
71838 int ldx12 = 0;
71839 float *x21 = NULL((void*)0);
71840 npy_intp x21_Dims[2] = {-1, -1};
71841 const int x21_Rank = 2;
71842 PyArrayObject *capi_x21_tmp = NULL((void*)0);
71843 int capi_x21_intent = 0;
71844 int capi_overwrite_x21 = 0;
71845 PyObject *x21_capi = Py_None(&_Py_NoneStruct);
71846 int ldx21 = 0;
71847 float *x22 = NULL((void*)0);
71848 npy_intp x22_Dims[2] = {-1, -1};
71849 const int x22_Rank = 2;
71850 PyArrayObject *capi_x22_tmp = NULL((void*)0);
71851 int capi_x22_intent = 0;
71852 int capi_overwrite_x22 = 0;
71853 PyObject *x22_capi = Py_None(&_Py_NoneStruct);
71854 int ldx22 = 0;
71855 float *theta = NULL((void*)0);
71856 npy_intp theta_Dims[1] = {-1};
71857 const int theta_Rank = 1;
71858 PyArrayObject *capi_theta_tmp = NULL((void*)0);
71859 int capi_theta_intent = 0;
71860 float *u1 = NULL((void*)0);
71861 npy_intp u1_Dims[2] = {-1, -1};
71862 const int u1_Rank = 2;
71863 PyArrayObject *capi_u1_tmp = NULL((void*)0);
71864 int capi_u1_intent = 0;
71865 int ldu1 = 0;
71866 float *u2 = NULL((void*)0);
71867 npy_intp u2_Dims[2] = {-1, -1};
71868 const int u2_Rank = 2;
71869 PyArrayObject *capi_u2_tmp = NULL((void*)0);
71870 int capi_u2_intent = 0;
71871 int ldu2 = 0;
71872 float *v1t = NULL((void*)0);
71873 npy_intp v1t_Dims[2] = {-1, -1};
71874 const int v1t_Rank = 2;
71875 PyArrayObject *capi_v1t_tmp = NULL((void*)0);
71876 int capi_v1t_intent = 0;
71877 int ldv1t = 0;
71878 float *v2t = NULL((void*)0);
71879 npy_intp v2t_Dims[2] = {-1, -1};
71880 const int v2t_Rank = 2;
71881 PyArrayObject *capi_v2t_tmp = NULL((void*)0);
71882 int capi_v2t_intent = 0;
71883 int ldv2t = 0;
71884 float *work = NULL((void*)0);
71885 npy_intp work_Dims[1] = {-1};
71886 const int work_Rank = 1;
71887 PyArrayObject *capi_work_tmp = NULL((void*)0);
71888 int capi_work_intent = 0;
71889 int lwork = 0;
71890 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
71891 int *iwork = NULL((void*)0);
71892 npy_intp iwork_Dims[1] = {-1};
71893 const int iwork_Rank = 1;
71894 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
71895 int capi_iwork_intent = 0;
71896 int info = 0;
71897 int mmp = 0;
71898 int mmq = 0;
71899 static char *capi_kwlist[] = {"x11","x12","x21","x22","compute_u1","compute_u2","compute_v1t","compute_v2t","trans","signs","lwork","overwrite_x11","overwrite_x12","overwrite_x21","overwrite_x22",NULL((void*)0)};
71900
71901/*routdebugenter*/
71902#ifdef F2PY_REPORT_ATEXIT
71903f2py_start_clock();
71904#endif
71905 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
71906 "OOOO|OOOOOOOiiii:_flapack.sorcsd",\
71907 capi_kwlist,&x11_capi,&x12_capi,&x21_capi,&x22_capi,&compute_u1_capi,&compute_u2_capi,&compute_v1t_capi,&compute_v2t_capi,&trans_capi,&signs_capi,&lwork_capi,&capi_overwrite_x11,&capi_overwrite_x12,&capi_overwrite_x21,&capi_overwrite_x22))
71908 return NULL((void*)0);
71909/*frompyobj*/
71910 /* Processing variable compute_u1 */
71911 if (compute_u1_capi == Py_None(&_Py_NoneStruct)) compute_u1 = 1; else
71912 f2py_success = int_from_pyobj(&compute_u1,compute_u1_capi,"_flapack.sorcsd() 1st keyword (compute_u1) can't be converted to int");
71913 if (f2py_success) {
71914 CHECKSCALAR(compute_u1==0||compute_u1==1,"compute_u1==0||compute_u1==1","1st keyword compute_u1","sorcsd:compute_u1=%d",compute_u1)if (!(compute_u1==0||compute_u1==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sorcsd:compute_u1=%d", "(""compute_u1==0||compute_u1==1"
") failed for ""1st keyword compute_u1", compute_u1); PyErr_SetString
(_flapack_error,errstring); } else
{
71915 /* Processing variable compute_u2 */
71916 if (compute_u2_capi == Py_None(&_Py_NoneStruct)) compute_u2 = 1; else
71917 f2py_success = int_from_pyobj(&compute_u2,compute_u2_capi,"_flapack.sorcsd() 2nd keyword (compute_u2) can't be converted to int");
71918 if (f2py_success) {
71919 CHECKSCALAR(compute_u2==0||compute_u2==1,"compute_u2==0||compute_u2==1","2nd keyword compute_u2","sorcsd:compute_u2=%d",compute_u2)if (!(compute_u2==0||compute_u2==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sorcsd:compute_u2=%d", "(""compute_u2==0||compute_u2==1"
") failed for ""2nd keyword compute_u2", compute_u2); PyErr_SetString
(_flapack_error,errstring); } else
{
71920 /* Processing variable compute_v1t */
71921 if (compute_v1t_capi == Py_None(&_Py_NoneStruct)) compute_v1t = 1; else
71922 f2py_success = int_from_pyobj(&compute_v1t,compute_v1t_capi,"_flapack.sorcsd() 3rd keyword (compute_v1t) can't be converted to int");
71923 if (f2py_success) {
71924 CHECKSCALAR(compute_v1t==0||compute_v1t==1,"compute_v1t==0||compute_v1t==1","3rd keyword compute_v1t","sorcsd:compute_v1t=%d",compute_v1t)if (!(compute_v1t==0||compute_v1t==1)) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""sorcsd:compute_v1t=%d", "(""compute_v1t==0||compute_v1t==1"
") failed for ""3rd keyword compute_v1t", compute_v1t); PyErr_SetString
(_flapack_error,errstring); } else
{
71925 /* Processing variable compute_v2t */
71926 if (compute_v2t_capi == Py_None(&_Py_NoneStruct)) compute_v2t = 1; else
71927 f2py_success = int_from_pyobj(&compute_v2t,compute_v2t_capi,"_flapack.sorcsd() 4th keyword (compute_v2t) can't be converted to int");
71928 if (f2py_success) {
71929 CHECKSCALAR(compute_v2t==0||compute_v2t==1,"compute_v2t==0||compute_v2t==1","4th keyword compute_v2t","sorcsd:compute_v2t=%d",compute_v2t)if (!(compute_v2t==0||compute_v2t==1)) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""sorcsd:compute_v2t=%d", "(""compute_v2t==0||compute_v2t==1"
") failed for ""4th keyword compute_v2t", compute_v2t); PyErr_SetString
(_flapack_error,errstring); } else
{
71930 /* Processing variable trans */
71931 if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else
71932 f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.sorcsd() 5th keyword (trans) can't be converted to int");
71933 if (f2py_success) {
71934 CHECKSCALAR(trans==0||trans==1,"trans==0||trans==1","5th keyword trans","sorcsd:trans=%d",trans)if (!(trans==0||trans==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sorcsd:trans=%d", "(""trans==0||trans==1"") failed for "
"5th keyword trans", trans); PyErr_SetString(_flapack_error,errstring
); } else
{
71935 /* Processing variable signs */
71936 if (signs_capi == Py_None(&_Py_NoneStruct)) signs = 0; else
71937 f2py_success = int_from_pyobj(&signs,signs_capi,"_flapack.sorcsd() 6th keyword (signs) can't be converted to int");
71938 if (f2py_success) {
71939 CHECKSCALAR(signs==0||signs==1,"signs==0||signs==1","6th keyword signs","sorcsd:signs=%d",signs)if (!(signs==0||signs==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sorcsd:signs=%d", "(""signs==0||signs==1"") failed for "
"6th keyword signs", signs); PyErr_SetString(_flapack_error,errstring
); } else
{
71940 /* Processing variable x11 */
71941 capi_x11_intent |= (capi_overwrite_x11?0:F2PY_INTENT_COPY32);
71942 ;
71943 capi_x11_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
71944 capi_x11_tmp = array_from_pyobj(NPY_FLOAT,x11_Dims,x11_Rank,capi_x11_intent,x11_capi);
71945 if (capi_x11_tmp == NULL((void*)0)) {
71946 if (!PyErr_Occurred())
71947 PyErr_SetString(_flapack_error,"failed in converting 1st argument `x11' of _flapack.sorcsd to C/Fortran array" );
71948 } else {
71949 x11 = (float *)(PyArray_DATA(capi_x11_tmp)((void *)((PyArrayObject_fields *)(capi_x11_tmp))->data));
71950
71951 /* Processing variable x22 */
71952 capi_x22_intent |= (capi_overwrite_x22?0:F2PY_INTENT_COPY32);
71953 ;
71954 capi_x22_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
71955 capi_x22_tmp = array_from_pyobj(NPY_FLOAT,x22_Dims,x22_Rank,capi_x22_intent,x22_capi);
71956 if (capi_x22_tmp == NULL((void*)0)) {
71957 if (!PyErr_Occurred())
71958 PyErr_SetString(_flapack_error,"failed in converting 4th argument `x22' of _flapack.sorcsd to C/Fortran array" );
71959 } else {
71960 x22 = (float *)(PyArray_DATA(capi_x22_tmp)((void *)((PyArrayObject_fields *)(capi_x22_tmp))->data));
71961
71962 /* Processing variable info */
71963 /* Processing variable p */
71964 p = shape(x11,0)x11_Dims[0];
71965 /* Processing variable q */
71966 q = shape(x11,1)x11_Dims[1];
71967 /* Processing variable mmp */
71968 mmp = shape(x22,0)x22_Dims[0];
71969 /* Processing variable mmq */
71970 mmq = shape(x22,1)x22_Dims[1];
71971 /* Processing variable ldx11 */
71972 ldx11 = MAX(1,shape(x11,0))((1 > x11_Dims[0]) ? (1) : (x11_Dims[0]));
71973 /* Processing variable ldx22 */
71974 ldx22 = MAX(1,shape(x22,0))((1 > x22_Dims[0]) ? (1) : (x22_Dims[0]));
71975 /* Processing variable theta */
71976 theta_Dims[0]=min(min(p,mmp),min(q,mmq))((((p < mmp) ? (p) : (mmp)) < ((q < mmq) ? (q) : (mmq
))) ? (((p < mmp) ? (p) : (mmp))) : (((q < mmq) ? (q) :
(mmq))))
;
71977 capi_theta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
71978 capi_theta_tmp = array_from_pyobj(NPY_FLOAT,theta_Dims,theta_Rank,capi_theta_intent,Py_None(&_Py_NoneStruct));
71979 if (capi_theta_tmp == NULL((void*)0)) {
71980 if (!PyErr_Occurred())
71981 PyErr_SetString(_flapack_error,"failed in converting hidden `theta' of _flapack.sorcsd to C/Fortran array" );
71982 } else {
71983 theta = (float *)(PyArray_DATA(capi_theta_tmp)((void *)((PyArrayObject_fields *)(capi_theta_tmp))->data));
71984
71985 /* Processing variable u1 */
71986 u1_Dims[0]=(compute_u1?p:0),u1_Dims[1]=(compute_u1?p:0);
71987 capi_u1_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
71988 capi_u1_tmp = array_from_pyobj(NPY_FLOAT,u1_Dims,u1_Rank,capi_u1_intent,Py_None(&_Py_NoneStruct));
71989 if (capi_u1_tmp == NULL((void*)0)) {
71990 if (!PyErr_Occurred())
71991 PyErr_SetString(_flapack_error,"failed in converting hidden `u1' of _flapack.sorcsd to C/Fortran array" );
71992 } else {
71993 u1 = (float *)(PyArray_DATA(capi_u1_tmp)((void *)((PyArrayObject_fields *)(capi_u1_tmp))->data));
71994
71995 /* Processing variable u2 */
71996 u2_Dims[0]=(compute_u2?mmp:0),u2_Dims[1]=(compute_u2?mmp:0);
71997 capi_u2_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
71998 capi_u2_tmp = array_from_pyobj(NPY_FLOAT,u2_Dims,u2_Rank,capi_u2_intent,Py_None(&_Py_NoneStruct));
71999 if (capi_u2_tmp == NULL((void*)0)) {
72000 if (!PyErr_Occurred())
72001 PyErr_SetString(_flapack_error,"failed in converting hidden `u2' of _flapack.sorcsd to C/Fortran array" );
72002 } else {
72003 u2 = (float *)(PyArray_DATA(capi_u2_tmp)((void *)((PyArrayObject_fields *)(capi_u2_tmp))->data));
72004
72005 /* Processing variable v1t */
72006 v1t_Dims[0]=(compute_v1t?q:0),v1t_Dims[1]=(compute_v1t?q:0);
72007 capi_v1t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
72008 capi_v1t_tmp = array_from_pyobj(NPY_FLOAT,v1t_Dims,v1t_Rank,capi_v1t_intent,Py_None(&_Py_NoneStruct));
72009 if (capi_v1t_tmp == NULL((void*)0)) {
72010 if (!PyErr_Occurred())
72011 PyErr_SetString(_flapack_error,"failed in converting hidden `v1t' of _flapack.sorcsd to C/Fortran array" );
72012 } else {
72013 v1t = (float *)(PyArray_DATA(capi_v1t_tmp)((void *)((PyArrayObject_fields *)(capi_v1t_tmp))->data));
72014
72015 /* Processing variable v2t */
72016 v2t_Dims[0]=(compute_v2t?mmq:0),v2t_Dims[1]=(compute_v2t?mmq:0);
72017 capi_v2t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
72018 capi_v2t_tmp = array_from_pyobj(NPY_FLOAT,v2t_Dims,v2t_Rank,capi_v2t_intent,Py_None(&_Py_NoneStruct));
72019 if (capi_v2t_tmp == NULL((void*)0)) {
72020 if (!PyErr_Occurred())
72021 PyErr_SetString(_flapack_error,"failed in converting hidden `v2t' of _flapack.sorcsd to C/Fortran array" );
72022 } else {
72023 v2t = (float *)(PyArray_DATA(capi_v2t_tmp)((void *)((PyArrayObject_fields *)(capi_v2t_tmp))->data));
72024
72025 /* Processing variable ldu1 */
72026 ldu1 = MAX(1,p)((1 > p) ? (1) : (p));
72027 /* Processing variable ldu2 */
72028 ldu2 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp));
72029 /* Processing variable ldv1t */
72030 ldv1t = MAX(1,q)((1 > q) ? (1) : (q));
72031 /* Processing variable ldv2t */
72032 ldv2t = MAX(1,mmq)((1 > mmq) ? (1) : (mmq));
72033 /* Processing variable iwork */
72034 iwork_Dims[0]=p+mmp-MIN(MIN(p,mmp),MIN(q,mmq))((((p < mmp) ? (p) : (mmp)) < ((q < mmq) ? (q) : (mmq
))) ? (((p < mmp) ? (p) : (mmp))) : (((q < mmq) ? (q) :
(mmq))))
;
72035 capi_iwork_intent |= F2PY_INTENT_HIDE8;
72036 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
72037 if (capi_iwork_tmp == NULL((void*)0)) {
72038 if (!PyErr_Occurred())
72039 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.sorcsd to C/Fortran array" );
72040 } else {
72041 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
72042
72043 /* Processing variable m */
72044 m = p+mmp;
72045 CHECKSCALAR(p+mmp==q+mmq,"p+mmp==q+mmq","hidden m","sorcsd:m=%d",m)if (!(p+mmp==q+mmq)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sorcsd:m=%d", "(""p+mmp==q+mmq"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
72046 /* Processing variable x12 */
72047 capi_x12_intent |= (capi_overwrite_x12?0:F2PY_INTENT_COPY32);
72048 x12_Dims[0]=p,x12_Dims[1]=mmq;
72049 capi_x12_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
72050 capi_x12_tmp = array_from_pyobj(NPY_FLOAT,x12_Dims,x12_Rank,capi_x12_intent,x12_capi);
72051 if (capi_x12_tmp == NULL((void*)0)) {
72052 if (!PyErr_Occurred())
72053 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `x12' of _flapack.sorcsd to C/Fortran array" );
72054 } else {
72055 x12 = (float *)(PyArray_DATA(capi_x12_tmp)((void *)((PyArrayObject_fields *)(capi_x12_tmp))->data));
72056
72057 CHECKARRAY(mmq==shape(x12,1)||p==shape(x12,0),"mmq==shape(x12,1)||p==shape(x12,0)","2nd argument x12")if (!(mmq==x12_Dims[1]||p==x12_Dims[0])) { PyErr_SetString(_flapack_error
,"(""mmq==shape(x12,1)||p==shape(x12,0)"") failed for ""2nd argument x12"
); } else
{
72058 /* Processing variable x21 */
72059 capi_x21_intent |= (capi_overwrite_x21?0:F2PY_INTENT_COPY32);
72060 x21_Dims[0]=mmp,x21_Dims[1]=q;
72061 capi_x21_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
72062 capi_x21_tmp = array_from_pyobj(NPY_FLOAT,x21_Dims,x21_Rank,capi_x21_intent,x21_capi);
72063 if (capi_x21_tmp == NULL((void*)0)) {
72064 if (!PyErr_Occurred())
72065 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `x21' of _flapack.sorcsd to C/Fortran array" );
72066 } else {
72067 x21 = (float *)(PyArray_DATA(capi_x21_tmp)((void *)((PyArrayObject_fields *)(capi_x21_tmp))->data));
72068
72069 CHECKARRAY(mmp==shape(x21,0)||q==shape(x21,1),"mmp==shape(x21,0)||q==shape(x21,1)","3rd argument x21")if (!(mmp==x21_Dims[0]||q==x21_Dims[1])) { PyErr_SetString(_flapack_error
,"(""mmp==shape(x21,0)||q==shape(x21,1)"") failed for ""3rd argument x21"
); } else
{
72070 /* Processing variable ldx12 */
72071 ldx12 = MAX(1,shape(x12,0))((1 > x12_Dims[0]) ? (1) : (x12_Dims[0]));
72072 /* Processing variable ldx21 */
72073 ldx21 = MAX(1,shape(x21,0))((1 > x21_Dims[0]) ? (1) : (x21_Dims[0]));
72074 /* Processing variable lwork */
72075 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = 2+2*m+5*MAX(1,q-1)((1 > q-1) ? (1) : (q-1))+4*MAX(1,q)((1 > q) ? (1) : (q))+8*q; else
72076 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sorcsd() 7th keyword (lwork) can't be converted to int");
72077 if (f2py_success) {
72078 CHECKSCALAR(lwork==-1||lwork>0,"lwork==-1||lwork>0","7th keyword lwork","sorcsd:lwork=%d",lwork)if (!(lwork==-1||lwork>0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sorcsd:lwork=%d", "(""lwork==-1||lwork>0"") failed for "
"7th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
72079 /* Processing variable work */
72080 work_Dims[0]=lwork;
72081 capi_work_intent |= F2PY_INTENT_HIDE8;
72082 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
72083 if (capi_work_tmp == NULL((void*)0)) {
72084 if (!PyErr_Occurred())
72085 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sorcsd to C/Fortran array" );
72086 } else {
72087 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
72088
72089/*end of frompyobj*/
72090#ifdef F2PY_REPORT_ATEXIT
72091f2py_start_call_clock();
72092#endif
72093/*callfortranroutine*/
72094 (*f2py_func)((compute_u1?"Y":"N"),(compute_u2?"Y":"N"),(compute_v1t?"Y":"N"),(compute_v2t?"Y":"N"),(trans?"T":"N"),(signs?"O":"D"),&m,&p,&q,x11,&ldx11,x12,&ldx12,x21,&ldx21,x22,&ldx22,theta,u1,&ldu1,u2,&ldu2,v1t,&ldv1t,v2t,&ldv2t,work,&lwork,iwork,&info) ;
72095 /*(*f2py_func)(&compute_u1,&compute_u2,&compute_v1t,&compute_v2t,&trans,&signs,&m,&p,&q,x11,&ldx11,x12,&ldx12,x21,&ldx21,x22,&ldx22,theta,u1,&ldu1,u2,&ldu2,v1t,&ldv1t,v2t,&ldv2t,work,&lwork,iwork,&info,&mmp,&mmq);*/
72096if (PyErr_Occurred())
72097 f2py_success = 0;
72098#ifdef F2PY_REPORT_ATEXIT
72099f2py_stop_call_clock();
72100#endif
72101/*end of callfortranroutine*/
72102 if (f2py_success) {
72103/*pyobjfrom*/
72104/*end of pyobjfrom*/
72105 CFUNCSMESS("Building return value.\n");
72106 capi_buildvalue = Py_BuildValue("NNNNNNNNNi",capi_x11_tmp,capi_x12_tmp,capi_x21_tmp,capi_x22_tmp,capi_theta_tmp,capi_u1_tmp,capi_u2_tmp,capi_v1t_tmp,capi_v2t_tmp,info);
72107/*closepyobjfrom*/
72108/*end of closepyobjfrom*/
72109 } /*if (f2py_success) after callfortranroutine*/
72110/*cleanupfrompyobj*/
72111 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
72112 } /*if (capi_work_tmp == NULL) ... else of work*/
72113 /* End of cleaning variable work */
72114 } /*CHECKSCALAR(lwork==-1||lwork>0)*/
72115 } /*if (f2py_success) of lwork*/
72116 /* End of cleaning variable lwork */
72117 /* End of cleaning variable ldx21 */
72118 /* End of cleaning variable ldx12 */
72119 } /*CHECKARRAY(mmp==shape(x21,0)||q==shape(x21,1))*/
72120 } /*if (capi_x21_tmp == NULL) ... else of x21*/
72121 /* End of cleaning variable x21 */
72122 } /*CHECKARRAY(mmq==shape(x12,1)||p==shape(x12,0))*/
72123 } /*if (capi_x12_tmp == NULL) ... else of x12*/
72124 /* End of cleaning variable x12 */
72125 } /*CHECKSCALAR(p+mmp==q+mmq)*/
72126 /* End of cleaning variable m */
72127 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
72128 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
72129 /* End of cleaning variable iwork */
72130 /* End of cleaning variable ldv2t */
72131 /* End of cleaning variable ldv1t */
72132 /* End of cleaning variable ldu2 */
72133 /* End of cleaning variable ldu1 */
72134 } /*if (capi_v2t_tmp == NULL) ... else of v2t*/
72135 /* End of cleaning variable v2t */
72136 } /*if (capi_v1t_tmp == NULL) ... else of v1t*/
72137 /* End of cleaning variable v1t */
72138 } /*if (capi_u2_tmp == NULL) ... else of u2*/
72139 /* End of cleaning variable u2 */
72140 } /*if (capi_u1_tmp == NULL) ... else of u1*/
72141 /* End of cleaning variable u1 */
72142 } /*if (capi_theta_tmp == NULL) ... else of theta*/
72143 /* End of cleaning variable theta */
72144 /* End of cleaning variable ldx22 */
72145 /* End of cleaning variable ldx11 */
72146 /* End of cleaning variable mmq */
72147 /* End of cleaning variable mmp */
72148 /* End of cleaning variable q */
72149 /* End of cleaning variable p */
72150 /* End of cleaning variable info */
72151 } /*if (capi_x22_tmp == NULL) ... else of x22*/
72152 /* End of cleaning variable x22 */
72153 } /*if (capi_x11_tmp == NULL) ... else of x11*/
72154 /* End of cleaning variable x11 */
72155 } /*CHECKSCALAR(signs==0||signs==1)*/
72156 } /*if (f2py_success) of signs*/
72157 /* End of cleaning variable signs */
72158 } /*CHECKSCALAR(trans==0||trans==1)*/
72159 } /*if (f2py_success) of trans*/
72160 /* End of cleaning variable trans */
72161 } /*CHECKSCALAR(compute_v2t==0||compute_v2t==1)*/
72162 } /*if (f2py_success) of compute_v2t*/
72163 /* End of cleaning variable compute_v2t */
72164 } /*CHECKSCALAR(compute_v1t==0||compute_v1t==1)*/
72165 } /*if (f2py_success) of compute_v1t*/
72166 /* End of cleaning variable compute_v1t */
72167 } /*CHECKSCALAR(compute_u2==0||compute_u2==1)*/
72168 } /*if (f2py_success) of compute_u2*/
72169 /* End of cleaning variable compute_u2 */
72170 } /*CHECKSCALAR(compute_u1==0||compute_u1==1)*/
72171 } /*if (f2py_success) of compute_u1*/
72172 /* End of cleaning variable compute_u1 */
72173/*end of cleanupfrompyobj*/
72174 if (capi_buildvalue == NULL((void*)0)) {
72175/*routdebugfailure*/
72176 } else {
72177/*routdebugleave*/
72178 }
72179 CFUNCSMESS("Freeing memory.\n");
72180/*freemem*/
72181#ifdef F2PY_REPORT_ATEXIT
72182f2py_stop_clock();
72183#endif
72184 return capi_buildvalue;
72185}
72186/******************************* end of sorcsd *******************************/
72187
72188/*********************************** dorcsd ***********************************/
72189static char doc_f2py_rout__flapack_dorcsd[] = "\
72190cs11,cs12,cs21,cs22,theta,u1,u2,v1t,v2t,info = dorcsd(x11,x12,x21,x22,[compute_u1,compute_u2,compute_v1t,compute_v2t,trans,signs,lwork,overwrite_x11,overwrite_x12,overwrite_x21,overwrite_x22])\n\nWrapper for ``dorcsd``.\
72191\n\nParameters\n----------\n"
72192"x11 : input rank-2 array('d') with bounds (p,q)\n"
72193"x12 : input rank-2 array('d') with bounds (p,mmq)\n"
72194"x21 : input rank-2 array('d') with bounds (mmp,q)\n"
72195"x22 : input rank-2 array('d') with bounds (mmp,mmq)\n"
72196"\nOther Parameters\n----------------\n"
72197"compute_u1 : input int, optional\n Default: 1\n"
72198"compute_u2 : input int, optional\n Default: 1\n"
72199"compute_v1t : input int, optional\n Default: 1\n"
72200"compute_v2t : input int, optional\n Default: 1\n"
72201"trans : input int, optional\n Default: 0\n"
72202"signs : input int, optional\n Default: 0\n"
72203"overwrite_x11 : input int, optional\n Default: 0\n"
72204"overwrite_x12 : input int, optional\n Default: 0\n"
72205"overwrite_x21 : input int, optional\n Default: 0\n"
72206"overwrite_x22 : input int, optional\n Default: 0\n"
72207"lwork : input int, optional\n Default: 2+2*m+5*MAX(1,q-1)+4*MAX(1,q)+8*q\n"
72208"\nReturns\n-------\n"
72209"cs11 : rank-2 array('d') with bounds (p,q) and x11 storage\n"
72210"cs12 : rank-2 array('d') with bounds (p,mmq) and x12 storage\n"
72211"cs21 : rank-2 array('d') with bounds (mmp,q) and x21 storage\n"
72212"cs22 : rank-2 array('d') with bounds (mmp,mmq) and x22 storage\n"
72213"theta : rank-1 array('d') with bounds (min(min(p,mmp),min(q,mmq)))\n"
72214"u1 : rank-2 array('d') with bounds ((compute_u1?p:0),(compute_u1?p:0))\n"
72215"u2 : rank-2 array('d') with bounds ((compute_u2?mmp:0),(compute_u2?mmp:0))\n"
72216"v1t : rank-2 array('d') with bounds ((compute_v1t?q:0),(compute_v1t?q:0))\n"
72217"v2t : rank-2 array('d') with bounds ((compute_v2t?mmq:0),(compute_v2t?mmq:0))\n"
72218"info : int";
72219/* extern void F_FUNC(dorcsd,DORCSD)(char*,char*,char*,char*,char*,char*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */
72220static PyObject *f2py_rout__flapack_dorcsd(const PyObject *capi_self,
72221 PyObject *capi_args,
72222 PyObject *capi_keywds,
72223 void (*f2py_func)(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) {
72224 PyObject * volatile capi_buildvalue = NULL((void*)0);
72225 volatile int f2py_success = 1;
72226/*decl*/
72227
72228 int compute_u1 = 0;
72229 PyObject *compute_u1_capi = Py_None(&_Py_NoneStruct);
72230 int compute_u2 = 0;
72231 PyObject *compute_u2_capi = Py_None(&_Py_NoneStruct);
72232 int compute_v1t = 0;
72233 PyObject *compute_v1t_capi = Py_None(&_Py_NoneStruct);
72234 int compute_v2t = 0;
72235 PyObject *compute_v2t_capi = Py_None(&_Py_NoneStruct);
72236 int trans = 0;
72237 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
72238 int signs = 0;
72239 PyObject *signs_capi = Py_None(&_Py_NoneStruct);
72240 int m = 0;
72241 int p = 0;
72242 int q = 0;
72243 double *x11 = NULL((void*)0);
72244 npy_intp x11_Dims[2] = {-1, -1};
72245 const int x11_Rank = 2;
72246 PyArrayObject *capi_x11_tmp = NULL((void*)0);
72247 int capi_x11_intent = 0;
72248 int capi_overwrite_x11 = 0;
72249 PyObject *x11_capi = Py_None(&_Py_NoneStruct);
72250 int ldx11 = 0;
72251 double *x12 = NULL((void*)0);
72252 npy_intp x12_Dims[2] = {-1, -1};
72253 const int x12_Rank = 2;
72254 PyArrayObject *capi_x12_tmp = NULL((void*)0);
72255 int capi_x12_intent = 0;
72256 int capi_overwrite_x12 = 0;
72257 PyObject *x12_capi = Py_None(&_Py_NoneStruct);
72258 int ldx12 = 0;
72259 double *x21 = NULL((void*)0);
72260 npy_intp x21_Dims[2] = {-1, -1};
72261 const int x21_Rank = 2;
72262 PyArrayObject *capi_x21_tmp = NULL((void*)0);
72263 int capi_x21_intent = 0;
72264 int capi_overwrite_x21 = 0;
72265 PyObject *x21_capi = Py_None(&_Py_NoneStruct);
72266 int ldx21 = 0;
72267 double *x22 = NULL((void*)0);
72268 npy_intp x22_Dims[2] = {-1, -1};
72269 const int x22_Rank = 2;
72270 PyArrayObject *capi_x22_tmp = NULL((void*)0);
72271 int capi_x22_intent = 0;
72272 int capi_overwrite_x22 = 0;
72273 PyObject *x22_capi = Py_None(&_Py_NoneStruct);
72274 int ldx22 = 0;
72275 double *theta = NULL((void*)0);
72276 npy_intp theta_Dims[1] = {-1};
72277 const int theta_Rank = 1;
72278 PyArrayObject *capi_theta_tmp = NULL((void*)0);
72279 int capi_theta_intent = 0;
72280 double *u1 = NULL((void*)0);
72281 npy_intp u1_Dims[2] = {-1, -1};
72282 const int u1_Rank = 2;
72283 PyArrayObject *capi_u1_tmp = NULL((void*)0);
72284 int capi_u1_intent = 0;
72285 int ldu1 = 0;
72286 double *u2 = NULL((void*)0);
72287 npy_intp u2_Dims[2] = {-1, -1};
72288 const int u2_Rank = 2;
72289 PyArrayObject *capi_u2_tmp = NULL((void*)0);
72290 int capi_u2_intent = 0;
72291 int ldu2 = 0;
72292 double *v1t = NULL((void*)0);
72293 npy_intp v1t_Dims[2] = {-1, -1};
72294 const int v1t_Rank = 2;
72295 PyArrayObject *capi_v1t_tmp = NULL((void*)0);
72296 int capi_v1t_intent = 0;
72297 int ldv1t = 0;
72298 double *v2t = NULL((void*)0);
72299 npy_intp v2t_Dims[2] = {-1, -1};
72300 const int v2t_Rank = 2;
72301 PyArrayObject *capi_v2t_tmp = NULL((void*)0);
72302 int capi_v2t_intent = 0;
72303 int ldv2t = 0;
72304 double *work = NULL((void*)0);
72305 npy_intp work_Dims[1] = {-1};
72306 const int work_Rank = 1;
72307 PyArrayObject *capi_work_tmp = NULL((void*)0);
72308 int capi_work_intent = 0;
72309 int lwork = 0;
72310 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
72311 int *iwork = NULL((void*)0);
72312 npy_intp iwork_Dims[1] = {-1};
72313 const int iwork_Rank = 1;
72314 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
72315 int capi_iwork_intent = 0;
72316 int info = 0;
72317 int mmp = 0;
72318 int mmq = 0;
72319 static char *capi_kwlist[] = {"x11","x12","x21","x22","compute_u1","compute_u2","compute_v1t","compute_v2t","trans","signs","lwork","overwrite_x11","overwrite_x12","overwrite_x21","overwrite_x22",NULL((void*)0)};
72320
72321/*routdebugenter*/
72322#ifdef F2PY_REPORT_ATEXIT
72323f2py_start_clock();
72324#endif
72325 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
72326 "OOOO|OOOOOOOiiii:_flapack.dorcsd",\
72327 capi_kwlist,&x11_capi,&x12_capi,&x21_capi,&x22_capi,&compute_u1_capi,&compute_u2_capi,&compute_v1t_capi,&compute_v2t_capi,&trans_capi,&signs_capi,&lwork_capi,&capi_overwrite_x11,&capi_overwrite_x12,&capi_overwrite_x21,&capi_overwrite_x22))
72328 return NULL((void*)0);
72329/*frompyobj*/
72330 /* Processing variable compute_u1 */
72331 if (compute_u1_capi == Py_None(&_Py_NoneStruct)) compute_u1 = 1; else
72332 f2py_success = int_from_pyobj(&compute_u1,compute_u1_capi,"_flapack.dorcsd() 1st keyword (compute_u1) can't be converted to int");
72333 if (f2py_success) {
72334 CHECKSCALAR(compute_u1==0||compute_u1==1,"compute_u1==0||compute_u1==1","1st keyword compute_u1","dorcsd:compute_u1=%d",compute_u1)if (!(compute_u1==0||compute_u1==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dorcsd:compute_u1=%d", "(""compute_u1==0||compute_u1==1"
") failed for ""1st keyword compute_u1", compute_u1); PyErr_SetString
(_flapack_error,errstring); } else
{
72335 /* Processing variable compute_u2 */
72336 if (compute_u2_capi == Py_None(&_Py_NoneStruct)) compute_u2 = 1; else
72337 f2py_success = int_from_pyobj(&compute_u2,compute_u2_capi,"_flapack.dorcsd() 2nd keyword (compute_u2) can't be converted to int");
72338 if (f2py_success) {
72339 CHECKSCALAR(compute_u2==0||compute_u2==1,"compute_u2==0||compute_u2==1","2nd keyword compute_u2","dorcsd:compute_u2=%d",compute_u2)if (!(compute_u2==0||compute_u2==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dorcsd:compute_u2=%d", "(""compute_u2==0||compute_u2==1"
") failed for ""2nd keyword compute_u2", compute_u2); PyErr_SetString
(_flapack_error,errstring); } else
{
72340 /* Processing variable compute_v1t */
72341 if (compute_v1t_capi == Py_None(&_Py_NoneStruct)) compute_v1t = 1; else
72342 f2py_success = int_from_pyobj(&compute_v1t,compute_v1t_capi,"_flapack.dorcsd() 3rd keyword (compute_v1t) can't be converted to int");
72343 if (f2py_success) {
72344 CHECKSCALAR(compute_v1t==0||compute_v1t==1,"compute_v1t==0||compute_v1t==1","3rd keyword compute_v1t","dorcsd:compute_v1t=%d",compute_v1t)if (!(compute_v1t==0||compute_v1t==1)) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dorcsd:compute_v1t=%d", "(""compute_v1t==0||compute_v1t==1"
") failed for ""3rd keyword compute_v1t", compute_v1t); PyErr_SetString
(_flapack_error,errstring); } else
{
72345 /* Processing variable compute_v2t */
72346 if (compute_v2t_capi == Py_None(&_Py_NoneStruct)) compute_v2t = 1; else
72347 f2py_success = int_from_pyobj(&compute_v2t,compute_v2t_capi,"_flapack.dorcsd() 4th keyword (compute_v2t) can't be converted to int");
72348 if (f2py_success) {
72349 CHECKSCALAR(compute_v2t==0||compute_v2t==1,"compute_v2t==0||compute_v2t==1","4th keyword compute_v2t","dorcsd:compute_v2t=%d",compute_v2t)if (!(compute_v2t==0||compute_v2t==1)) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dorcsd:compute_v2t=%d", "(""compute_v2t==0||compute_v2t==1"
") failed for ""4th keyword compute_v2t", compute_v2t); PyErr_SetString
(_flapack_error,errstring); } else
{
72350 /* Processing variable trans */
72351 if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else
72352 f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.dorcsd() 5th keyword (trans) can't be converted to int");
72353 if (f2py_success) {
72354 CHECKSCALAR(trans==0||trans==1,"trans==0||trans==1","5th keyword trans","dorcsd:trans=%d",trans)if (!(trans==0||trans==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dorcsd:trans=%d", "(""trans==0||trans==1"") failed for "
"5th keyword trans", trans); PyErr_SetString(_flapack_error,errstring
); } else
{
72355 /* Processing variable signs */
72356 if (signs_capi == Py_None(&_Py_NoneStruct)) signs = 0; else
72357 f2py_success = int_from_pyobj(&signs,signs_capi,"_flapack.dorcsd() 6th keyword (signs) can't be converted to int");
72358 if (f2py_success) {
72359 CHECKSCALAR(signs==0||signs==1,"signs==0||signs==1","6th keyword signs","dorcsd:signs=%d",signs)if (!(signs==0||signs==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dorcsd:signs=%d", "(""signs==0||signs==1"") failed for "
"6th keyword signs", signs); PyErr_SetString(_flapack_error,errstring
); } else
{
72360 /* Processing variable x11 */
72361 capi_x11_intent |= (capi_overwrite_x11?0:F2PY_INTENT_COPY32);
72362 ;
72363 capi_x11_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
72364 capi_x11_tmp = array_from_pyobj(NPY_DOUBLE,x11_Dims,x11_Rank,capi_x11_intent,x11_capi);
72365 if (capi_x11_tmp == NULL((void*)0)) {
72366 if (!PyErr_Occurred())
72367 PyErr_SetString(_flapack_error,"failed in converting 1st argument `x11' of _flapack.dorcsd to C/Fortran array" );
72368 } else {
72369 x11 = (double *)(PyArray_DATA(capi_x11_tmp)((void *)((PyArrayObject_fields *)(capi_x11_tmp))->data));
72370
72371 /* Processing variable x22 */
72372 capi_x22_intent |= (capi_overwrite_x22?0:F2PY_INTENT_COPY32);
72373 ;
72374 capi_x22_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
72375 capi_x22_tmp = array_from_pyobj(NPY_DOUBLE,x22_Dims,x22_Rank,capi_x22_intent,x22_capi);
72376 if (capi_x22_tmp == NULL((void*)0)) {
72377 if (!PyErr_Occurred())
72378 PyErr_SetString(_flapack_error,"failed in converting 4th argument `x22' of _flapack.dorcsd to C/Fortran array" );
72379 } else {
72380 x22 = (double *)(PyArray_DATA(capi_x22_tmp)((void *)((PyArrayObject_fields *)(capi_x22_tmp))->data));
72381
72382 /* Processing variable info */
72383 /* Processing variable p */
72384 p = shape(x11,0)x11_Dims[0];
72385 /* Processing variable q */
72386 q = shape(x11,1)x11_Dims[1];
72387 /* Processing variable mmp */
72388 mmp = shape(x22,0)x22_Dims[0];
72389 /* Processing variable mmq */
72390 mmq = shape(x22,1)x22_Dims[1];
72391 /* Processing variable ldx11 */
72392 ldx11 = MAX(1,shape(x11,0))((1 > x11_Dims[0]) ? (1) : (x11_Dims[0]));
72393 /* Processing variable ldx22 */
72394 ldx22 = MAX(1,shape(x22,0))((1 > x22_Dims[0]) ? (1) : (x22_Dims[0]));
72395 /* Processing variable theta */
72396 theta_Dims[0]=min(min(p,mmp),min(q,mmq))((((p < mmp) ? (p) : (mmp)) < ((q < mmq) ? (q) : (mmq
))) ? (((p < mmp) ? (p) : (mmp))) : (((q < mmq) ? (q) :
(mmq))))
;
72397 capi_theta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
72398 capi_theta_tmp = array_from_pyobj(NPY_DOUBLE,theta_Dims,theta_Rank,capi_theta_intent,Py_None(&_Py_NoneStruct));
72399 if (capi_theta_tmp == NULL((void*)0)) {
72400 if (!PyErr_Occurred())
72401 PyErr_SetString(_flapack_error,"failed in converting hidden `theta' of _flapack.dorcsd to C/Fortran array" );
72402 } else {
72403 theta = (double *)(PyArray_DATA(capi_theta_tmp)((void *)((PyArrayObject_fields *)(capi_theta_tmp))->data));
72404
72405 /* Processing variable u1 */
72406 u1_Dims[0]=(compute_u1?p:0),u1_Dims[1]=(compute_u1?p:0);
72407 capi_u1_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
72408 capi_u1_tmp = array_from_pyobj(NPY_DOUBLE,u1_Dims,u1_Rank,capi_u1_intent,Py_None(&_Py_NoneStruct));
72409 if (capi_u1_tmp == NULL((void*)0)) {
72410 if (!PyErr_Occurred())
72411 PyErr_SetString(_flapack_error,"failed in converting hidden `u1' of _flapack.dorcsd to C/Fortran array" );
72412 } else {
72413 u1 = (double *)(PyArray_DATA(capi_u1_tmp)((void *)((PyArrayObject_fields *)(capi_u1_tmp))->data));
72414
72415 /* Processing variable u2 */
72416 u2_Dims[0]=(compute_u2?mmp:0),u2_Dims[1]=(compute_u2?mmp:0);
72417 capi_u2_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
72418 capi_u2_tmp = array_from_pyobj(NPY_DOUBLE,u2_Dims,u2_Rank,capi_u2_intent,Py_None(&_Py_NoneStruct));
72419 if (capi_u2_tmp == NULL((void*)0)) {
72420 if (!PyErr_Occurred())
72421 PyErr_SetString(_flapack_error,"failed in converting hidden `u2' of _flapack.dorcsd to C/Fortran array" );
72422 } else {
72423 u2 = (double *)(PyArray_DATA(capi_u2_tmp)((void *)((PyArrayObject_fields *)(capi_u2_tmp))->data));
72424
72425 /* Processing variable v1t */
72426 v1t_Dims[0]=(compute_v1t?q:0),v1t_Dims[1]=(compute_v1t?q:0);
72427 capi_v1t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
72428 capi_v1t_tmp = array_from_pyobj(NPY_DOUBLE,v1t_Dims,v1t_Rank,capi_v1t_intent,Py_None(&_Py_NoneStruct));
72429 if (capi_v1t_tmp == NULL((void*)0)) {
72430 if (!PyErr_Occurred())
72431 PyErr_SetString(_flapack_error,"failed in converting hidden `v1t' of _flapack.dorcsd to C/Fortran array" );
72432 } else {
72433 v1t = (double *)(PyArray_DATA(capi_v1t_tmp)((void *)((PyArrayObject_fields *)(capi_v1t_tmp))->data));
72434
72435 /* Processing variable v2t */
72436 v2t_Dims[0]=(compute_v2t?mmq:0),v2t_Dims[1]=(compute_v2t?mmq:0);
72437 capi_v2t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
72438 capi_v2t_tmp = array_from_pyobj(NPY_DOUBLE,v2t_Dims,v2t_Rank,capi_v2t_intent,Py_None(&_Py_NoneStruct));
72439 if (capi_v2t_tmp == NULL((void*)0)) {
72440 if (!PyErr_Occurred())
72441 PyErr_SetString(_flapack_error,"failed in converting hidden `v2t' of _flapack.dorcsd to C/Fortran array" );
72442 } else {
72443 v2t = (double *)(PyArray_DATA(capi_v2t_tmp)((void *)((PyArrayObject_fields *)(capi_v2t_tmp))->data));
72444
72445 /* Processing variable ldu1 */
72446 ldu1 = MAX(1,p)((1 > p) ? (1) : (p));
72447 /* Processing variable ldu2 */
72448 ldu2 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp));
72449 /* Processing variable ldv1t */
72450 ldv1t = MAX(1,q)((1 > q) ? (1) : (q));
72451 /* Processing variable ldv2t */
72452 ldv2t = MAX(1,mmq)((1 > mmq) ? (1) : (mmq));
72453 /* Processing variable iwork */
72454 iwork_Dims[0]=p+mmp-MIN(MIN(p,mmp),MIN(q,mmq))((((p < mmp) ? (p) : (mmp)) < ((q < mmq) ? (q) : (mmq
))) ? (((p < mmp) ? (p) : (mmp))) : (((q < mmq) ? (q) :
(mmq))))
;
72455 capi_iwork_intent |= F2PY_INTENT_HIDE8;
72456 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
72457 if (capi_iwork_tmp == NULL((void*)0)) {
72458 if (!PyErr_Occurred())
72459 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dorcsd to C/Fortran array" );
72460 } else {
72461 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
72462
72463 /* Processing variable m */
72464 m = p+mmp;
72465 CHECKSCALAR(p+mmp==q+mmq,"p+mmp==q+mmq","hidden m","dorcsd:m=%d",m)if (!(p+mmp==q+mmq)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dorcsd:m=%d", "(""p+mmp==q+mmq"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
72466 /* Processing variable x12 */
72467 capi_x12_intent |= (capi_overwrite_x12?0:F2PY_INTENT_COPY32);
72468 x12_Dims[0]=p,x12_Dims[1]=mmq;
72469 capi_x12_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
72470 capi_x12_tmp = array_from_pyobj(NPY_DOUBLE,x12_Dims,x12_Rank,capi_x12_intent,x12_capi);
72471 if (capi_x12_tmp == NULL((void*)0)) {
72472 if (!PyErr_Occurred())
72473 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `x12' of _flapack.dorcsd to C/Fortran array" );
72474 } else {
72475 x12 = (double *)(PyArray_DATA(capi_x12_tmp)((void *)((PyArrayObject_fields *)(capi_x12_tmp))->data));
72476
72477 CHECKARRAY(mmq==shape(x12,1)||p==shape(x12,0),"mmq==shape(x12,1)||p==shape(x12,0)","2nd argument x12")if (!(mmq==x12_Dims[1]||p==x12_Dims[0])) { PyErr_SetString(_flapack_error
,"(""mmq==shape(x12,1)||p==shape(x12,0)"") failed for ""2nd argument x12"
); } else
{
72478 /* Processing variable x21 */
72479 capi_x21_intent |= (capi_overwrite_x21?0:F2PY_INTENT_COPY32);
72480 x21_Dims[0]=mmp,x21_Dims[1]=q;
72481 capi_x21_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
72482 capi_x21_tmp = array_from_pyobj(NPY_DOUBLE,x21_Dims,x21_Rank,capi_x21_intent,x21_capi);
72483 if (capi_x21_tmp == NULL((void*)0)) {
72484 if (!PyErr_Occurred())
72485 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `x21' of _flapack.dorcsd to C/Fortran array" );
72486 } else {
72487 x21 = (double *)(PyArray_DATA(capi_x21_tmp)((void *)((PyArrayObject_fields *)(capi_x21_tmp))->data));
72488
72489 CHECKARRAY(mmp==shape(x21,0)||q==shape(x21,1),"mmp==shape(x21,0)||q==shape(x21,1)","3rd argument x21")if (!(mmp==x21_Dims[0]||q==x21_Dims[1])) { PyErr_SetString(_flapack_error
,"(""mmp==shape(x21,0)||q==shape(x21,1)"") failed for ""3rd argument x21"
); } else
{
72490 /* Processing variable ldx12 */
72491 ldx12 = MAX(1,shape(x12,0))((1 > x12_Dims[0]) ? (1) : (x12_Dims[0]));
72492 /* Processing variable ldx21 */
72493 ldx21 = MAX(1,shape(x21,0))((1 > x21_Dims[0]) ? (1) : (x21_Dims[0]));
72494 /* Processing variable lwork */
72495 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = 2+2*m+5*MAX(1,q-1)((1 > q-1) ? (1) : (q-1))+4*MAX(1,q)((1 > q) ? (1) : (q))+8*q; else
72496 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dorcsd() 7th keyword (lwork) can't be converted to int");
72497 if (f2py_success) {
72498 CHECKSCALAR(lwork==-1||lwork>0,"lwork==-1||lwork>0","7th keyword lwork","dorcsd:lwork=%d",lwork)if (!(lwork==-1||lwork>0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dorcsd:lwork=%d", "(""lwork==-1||lwork>0"") failed for "
"7th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
72499 /* Processing variable work */
72500 work_Dims[0]=lwork;
72501 capi_work_intent |= F2PY_INTENT_HIDE8;
72502 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
72503 if (capi_work_tmp == NULL((void*)0)) {
72504 if (!PyErr_Occurred())
72505 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dorcsd to C/Fortran array" );
72506 } else {
72507 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
72508
72509/*end of frompyobj*/
72510#ifdef F2PY_REPORT_ATEXIT
72511f2py_start_call_clock();
72512#endif
72513/*callfortranroutine*/
72514 (*f2py_func)((compute_u1?"Y":"N"),(compute_u2?"Y":"N"),(compute_v1t?"Y":"N"),(compute_v2t?"Y":"N"),(trans?"T":"N"),(signs?"O":"D"),&m,&p,&q,x11,&ldx11,x12,&ldx12,x21,&ldx21,x22,&ldx22,theta,u1,&ldu1,u2,&ldu2,v1t,&ldv1t,v2t,&ldv2t,work,&lwork,iwork,&info) ;
72515 /*(*f2py_func)(&compute_u1,&compute_u2,&compute_v1t,&compute_v2t,&trans,&signs,&m,&p,&q,x11,&ldx11,x12,&ldx12,x21,&ldx21,x22,&ldx22,theta,u1,&ldu1,u2,&ldu2,v1t,&ldv1t,v2t,&ldv2t,work,&lwork,iwork,&info,&mmp,&mmq);*/
72516if (PyErr_Occurred())
72517 f2py_success = 0;
72518#ifdef F2PY_REPORT_ATEXIT
72519f2py_stop_call_clock();
72520#endif
72521/*end of callfortranroutine*/
72522 if (f2py_success) {
72523/*pyobjfrom*/
72524/*end of pyobjfrom*/
72525 CFUNCSMESS("Building return value.\n");
72526 capi_buildvalue = Py_BuildValue("NNNNNNNNNi",capi_x11_tmp,capi_x12_tmp,capi_x21_tmp,capi_x22_tmp,capi_theta_tmp,capi_u1_tmp,capi_u2_tmp,capi_v1t_tmp,capi_v2t_tmp,info);
72527/*closepyobjfrom*/
72528/*end of closepyobjfrom*/
72529 } /*if (f2py_success) after callfortranroutine*/
72530/*cleanupfrompyobj*/
72531 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
72532 } /*if (capi_work_tmp == NULL) ... else of work*/
72533 /* End of cleaning variable work */
72534 } /*CHECKSCALAR(lwork==-1||lwork>0)*/
72535 } /*if (f2py_success) of lwork*/
72536 /* End of cleaning variable lwork */
72537 /* End of cleaning variable ldx21 */
72538 /* End of cleaning variable ldx12 */
72539 } /*CHECKARRAY(mmp==shape(x21,0)||q==shape(x21,1))*/
72540 } /*if (capi_x21_tmp == NULL) ... else of x21*/
72541 /* End of cleaning variable x21 */
72542 } /*CHECKARRAY(mmq==shape(x12,1)||p==shape(x12,0))*/
72543 } /*if (capi_x12_tmp == NULL) ... else of x12*/
72544 /* End of cleaning variable x12 */
72545 } /*CHECKSCALAR(p+mmp==q+mmq)*/
72546 /* End of cleaning variable m */
72547 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
72548 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
72549 /* End of cleaning variable iwork */
72550 /* End of cleaning variable ldv2t */
72551 /* End of cleaning variable ldv1t */
72552 /* End of cleaning variable ldu2 */
72553 /* End of cleaning variable ldu1 */
72554 } /*if (capi_v2t_tmp == NULL) ... else of v2t*/
72555 /* End of cleaning variable v2t */
72556 } /*if (capi_v1t_tmp == NULL) ... else of v1t*/
72557 /* End of cleaning variable v1t */
72558 } /*if (capi_u2_tmp == NULL) ... else of u2*/
72559 /* End of cleaning variable u2 */
72560 } /*if (capi_u1_tmp == NULL) ... else of u1*/
72561 /* End of cleaning variable u1 */
72562 } /*if (capi_theta_tmp == NULL) ... else of theta*/
72563 /* End of cleaning variable theta */
72564 /* End of cleaning variable ldx22 */
72565 /* End of cleaning variable ldx11 */
72566 /* End of cleaning variable mmq */
72567 /* End of cleaning variable mmp */
72568 /* End of cleaning variable q */
72569 /* End of cleaning variable p */
72570 /* End of cleaning variable info */
72571 } /*if (capi_x22_tmp == NULL) ... else of x22*/
72572 /* End of cleaning variable x22 */
72573 } /*if (capi_x11_tmp == NULL) ... else of x11*/
72574 /* End of cleaning variable x11 */
72575 } /*CHECKSCALAR(signs==0||signs==1)*/
72576 } /*if (f2py_success) of signs*/
72577 /* End of cleaning variable signs */
72578 } /*CHECKSCALAR(trans==0||trans==1)*/
72579 } /*if (f2py_success) of trans*/
72580 /* End of cleaning variable trans */
72581 } /*CHECKSCALAR(compute_v2t==0||compute_v2t==1)*/
72582 } /*if (f2py_success) of compute_v2t*/
72583 /* End of cleaning variable compute_v2t */
72584 } /*CHECKSCALAR(compute_v1t==0||compute_v1t==1)*/
72585 } /*if (f2py_success) of compute_v1t*/
72586 /* End of cleaning variable compute_v1t */
72587 } /*CHECKSCALAR(compute_u2==0||compute_u2==1)*/
72588 } /*if (f2py_success) of compute_u2*/
72589 /* End of cleaning variable compute_u2 */
72590 } /*CHECKSCALAR(compute_u1==0||compute_u1==1)*/
72591 } /*if (f2py_success) of compute_u1*/
72592 /* End of cleaning variable compute_u1 */
72593/*end of cleanupfrompyobj*/
72594 if (capi_buildvalue == NULL((void*)0)) {
72595/*routdebugfailure*/
72596 } else {
72597/*routdebugleave*/
72598 }
72599 CFUNCSMESS("Freeing memory.\n");
72600/*freemem*/
72601#ifdef F2PY_REPORT_ATEXIT
72602f2py_stop_clock();
72603#endif
72604 return capi_buildvalue;
72605}
72606/******************************* end of dorcsd *******************************/
72607
72608/******************************** sorcsd_lwork ********************************/
72609static char doc_f2py_rout__flapack_sorcsd_lwork[] = "\
72610work,info = sorcsd_lwork(m,p,q)\n\nWrapper for ``sorcsd_lwork``.\
72611\n\nParameters\n----------\n"
72612"m : input int\n"
72613"p : input int\n"
72614"q : input int\n"
72615"\nReturns\n-------\n"
72616"work : float\n"
72617"info : int";
72618/* extern void F_FUNC(sorcsd ,SORCSD )(char*,char*,char*,char*,char*,char*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */
72619static PyObject *f2py_rout__flapack_sorcsd_lwork(const PyObject *capi_self,
72620 PyObject *capi_args,
72621 PyObject *capi_keywds,
72622 void (*f2py_func)(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) {
72623 PyObject * volatile capi_buildvalue = NULL((void*)0);
72624 volatile int f2py_success = 1;
72625/*decl*/
72626
72627 int m = 0;
72628 PyObject *m_capi = Py_None(&_Py_NoneStruct);
72629 int p = 0;
72630 PyObject *p_capi = Py_None(&_Py_NoneStruct);
72631 int q = 0;
72632 PyObject *q_capi = Py_None(&_Py_NoneStruct);
72633 float x11 = 0;
72634 int ldx11 = 0;
72635 float x12 = 0;
72636 int ldx12 = 0;
72637 float x21 = 0;
72638 int ldx21 = 0;
72639 float x22 = 0;
72640 int ldx22 = 0;
72641 float theta = 0;
72642 float u1 = 0;
72643 int ldu1 = 0;
72644 float u2 = 0;
72645 int ldu2 = 0;
72646 float v1t = 0;
72647 int ldv1t = 0;
72648 float v2t = 0;
72649 int ldv2t = 0;
72650 float work = 0;
72651 int lwork = 0;
72652 int iwork = 0;
72653 int info = 0;
72654 int mmp = 0;
72655 int mmq = 0;
72656 static char *capi_kwlist[] = {"m","p","q",NULL((void*)0)};
72657
72658/*routdebugenter*/
72659#ifdef F2PY_REPORT_ATEXIT
72660f2py_start_clock();
72661#endif
72662 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
72663 "OOO:_flapack.sorcsd_lwork",\
72664 capi_kwlist,&m_capi,&p_capi,&q_capi))
72665 return NULL((void*)0);
72666/*frompyobj*/
72667 /* Processing variable m */
72668 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sorcsd_lwork() 1st argument (m) can't be converted to int");
72669 if (f2py_success) {
72670 /* Processing variable p */
72671 f2py_success = int_from_pyobj(&p,p_capi,"_flapack.sorcsd_lwork() 2nd argument (p) can't be converted to int");
72672 if (f2py_success) {
72673 /* Processing variable q */
72674 f2py_success = int_from_pyobj(&q,q_capi,"_flapack.sorcsd_lwork() 3rd argument (q) can't be converted to int");
72675 if (f2py_success) {
72676 /* Processing variable x11 */
72677 /* Processing variable x22 */
72678 /* Processing variable x12 */
72679 /* Processing variable x21 */
72680 /* Processing variable theta */
72681 /* Processing variable u1 */
72682 /* Processing variable u2 */
72683 /* Processing variable v1t */
72684 /* Processing variable v2t */
72685 /* Processing variable iwork */
72686 /* Processing variable lwork */
72687 lwork = -1;
72688 /* Processing variable work */
72689 /* Processing variable info */
72690 /* Processing variable mmp */
72691 mmp = m-p;
72692 /* Processing variable mmq */
72693 mmq = m-q;
72694 /* Processing variable ldx11 */
72695 ldx11 = MAX(1,p)((1 > p) ? (1) : (p));
72696 /* Processing variable ldx12 */
72697 ldx12 = MAX(1,p)((1 > p) ? (1) : (p));
72698 /* Processing variable ldx21 */
72699 ldx21 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp));
72700 /* Processing variable ldx22 */
72701 ldx22 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp));
72702 /* Processing variable ldu1 */
72703 ldu1 = MAX(1,p)((1 > p) ? (1) : (p));
72704 /* Processing variable ldu2 */
72705 ldu2 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp));
72706 /* Processing variable ldv1t */
72707 ldv1t = MAX(1,q)((1 > q) ? (1) : (q));
72708 /* Processing variable ldv2t */
72709 ldv2t = MAX(1,mmq)((1 > mmq) ? (1) : (mmq));
72710/*end of frompyobj*/
72711#ifdef F2PY_REPORT_ATEXIT
72712f2py_start_call_clock();
72713#endif
72714/*callfortranroutine*/
72715 (*f2py_func)("Y","Y","Y","Y","N","D",&m,&p,&q,&x11,&ldx11,&x12,&ldx12,&x21,&ldx21,&x22,&ldx22,&theta,&u1,&ldu1,&u2,&ldu2,&v1t,&ldv1t,&v2t,&ldv2t,&work,&lwork,&iwork,&info) ;
72716 /*(*f2py_func)(&m,&p,&q,&x11,&ldx11,&x12,&ldx12,&x21,&ldx21,&x22,&ldx22,&theta,&u1,&ldu1,&u2,&ldu2,&v1t,&ldv1t,&v2t,&ldv2t,&work,&lwork,&iwork,&info,&mmp,&mmq);*/
72717if (PyErr_Occurred())
72718 f2py_success = 0;
72719#ifdef F2PY_REPORT_ATEXIT
72720f2py_stop_call_clock();
72721#endif
72722/*end of callfortranroutine*/
72723 if (f2py_success) {
72724/*pyobjfrom*/
72725/*end of pyobjfrom*/
72726 CFUNCSMESS("Building return value.\n");
72727 capi_buildvalue = Py_BuildValue("fi",work,info);
72728/*closepyobjfrom*/
72729/*end of closepyobjfrom*/
72730 } /*if (f2py_success) after callfortranroutine*/
72731/*cleanupfrompyobj*/
72732 /* End of cleaning variable ldv2t */
72733 /* End of cleaning variable ldv1t */
72734 /* End of cleaning variable ldu2 */
72735 /* End of cleaning variable ldu1 */
72736 /* End of cleaning variable ldx22 */
72737 /* End of cleaning variable ldx21 */
72738 /* End of cleaning variable ldx12 */
72739 /* End of cleaning variable ldx11 */
72740 /* End of cleaning variable mmq */
72741 /* End of cleaning variable mmp */
72742 /* End of cleaning variable info */
72743 /* End of cleaning variable work */
72744 /* End of cleaning variable lwork */
72745 /* End of cleaning variable iwork */
72746 /* End of cleaning variable v2t */
72747 /* End of cleaning variable v1t */
72748 /* End of cleaning variable u2 */
72749 /* End of cleaning variable u1 */
72750 /* End of cleaning variable theta */
72751 /* End of cleaning variable x21 */
72752 /* End of cleaning variable x12 */
72753 /* End of cleaning variable x22 */
72754 /* End of cleaning variable x11 */
72755 } /*if (f2py_success) of q*/
72756 /* End of cleaning variable q */
72757 } /*if (f2py_success) of p*/
72758 /* End of cleaning variable p */
72759 } /*if (f2py_success) of m*/
72760 /* End of cleaning variable m */
72761/*end of cleanupfrompyobj*/
72762 if (capi_buildvalue == NULL((void*)0)) {
72763/*routdebugfailure*/
72764 } else {
72765/*routdebugleave*/
72766 }
72767 CFUNCSMESS("Freeing memory.\n");
72768/*freemem*/
72769#ifdef F2PY_REPORT_ATEXIT
72770f2py_stop_clock();
72771#endif
72772 return capi_buildvalue;
72773}
72774/**************************** end of sorcsd_lwork ****************************/
72775
72776/******************************** dorcsd_lwork ********************************/
72777static char doc_f2py_rout__flapack_dorcsd_lwork[] = "\
72778work,info = dorcsd_lwork(m,p,q)\n\nWrapper for ``dorcsd_lwork``.\
72779\n\nParameters\n----------\n"
72780"m : input int\n"
72781"p : input int\n"
72782"q : input int\n"
72783"\nReturns\n-------\n"
72784"work : float\n"
72785"info : int";
72786/* extern void F_FUNC(dorcsd ,DORCSD )(char*,char*,char*,char*,char*,char*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */
72787static PyObject *f2py_rout__flapack_dorcsd_lwork(const PyObject *capi_self,
72788 PyObject *capi_args,
72789 PyObject *capi_keywds,
72790 void (*f2py_func)(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) {
72791 PyObject * volatile capi_buildvalue = NULL((void*)0);
72792 volatile int f2py_success = 1;
72793/*decl*/
72794
72795 int m = 0;
72796 PyObject *m_capi = Py_None(&_Py_NoneStruct);
72797 int p = 0;
72798 PyObject *p_capi = Py_None(&_Py_NoneStruct);
72799 int q = 0;
72800 PyObject *q_capi = Py_None(&_Py_NoneStruct);
72801 double x11 = 0;
72802 int ldx11 = 0;
72803 double x12 = 0;
72804 int ldx12 = 0;
72805 double x21 = 0;
72806 int ldx21 = 0;
72807 double x22 = 0;
72808 int ldx22 = 0;
72809 double theta = 0;
72810 double u1 = 0;
72811 int ldu1 = 0;
72812 double u2 = 0;
72813 int ldu2 = 0;
72814 double v1t = 0;
72815 int ldv1t = 0;
72816 double v2t = 0;
72817 int ldv2t = 0;
72818 double work = 0;
72819 int lwork = 0;
72820 int iwork = 0;
72821 int info = 0;
72822 int mmp = 0;
72823 int mmq = 0;
72824 static char *capi_kwlist[] = {"m","p","q",NULL((void*)0)};
72825
72826/*routdebugenter*/
72827#ifdef F2PY_REPORT_ATEXIT
72828f2py_start_clock();
72829#endif
72830 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
72831 "OOO:_flapack.dorcsd_lwork",\
72832 capi_kwlist,&m_capi,&p_capi,&q_capi))
72833 return NULL((void*)0);
72834/*frompyobj*/
72835 /* Processing variable m */
72836 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dorcsd_lwork() 1st argument (m) can't be converted to int");
72837 if (f2py_success) {
72838 /* Processing variable p */
72839 f2py_success = int_from_pyobj(&p,p_capi,"_flapack.dorcsd_lwork() 2nd argument (p) can't be converted to int");
72840 if (f2py_success) {
72841 /* Processing variable q */
72842 f2py_success = int_from_pyobj(&q,q_capi,"_flapack.dorcsd_lwork() 3rd argument (q) can't be converted to int");
72843 if (f2py_success) {
72844 /* Processing variable x11 */
72845 /* Processing variable x22 */
72846 /* Processing variable x12 */
72847 /* Processing variable x21 */
72848 /* Processing variable theta */
72849 /* Processing variable u1 */
72850 /* Processing variable u2 */
72851 /* Processing variable v1t */
72852 /* Processing variable v2t */
72853 /* Processing variable iwork */
72854 /* Processing variable lwork */
72855 lwork = -1;
72856 /* Processing variable work */
72857 /* Processing variable info */
72858 /* Processing variable mmp */
72859 mmp = m-p;
72860 /* Processing variable mmq */
72861 mmq = m-q;
72862 /* Processing variable ldx11 */
72863 ldx11 = MAX(1,p)((1 > p) ? (1) : (p));
72864 /* Processing variable ldx12 */
72865 ldx12 = MAX(1,p)((1 > p) ? (1) : (p));
72866 /* Processing variable ldx21 */
72867 ldx21 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp));
72868 /* Processing variable ldx22 */
72869 ldx22 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp));
72870 /* Processing variable ldu1 */
72871 ldu1 = MAX(1,p)((1 > p) ? (1) : (p));
72872 /* Processing variable ldu2 */
72873 ldu2 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp));
72874 /* Processing variable ldv1t */
72875 ldv1t = MAX(1,q)((1 > q) ? (1) : (q));
72876 /* Processing variable ldv2t */
72877 ldv2t = MAX(1,mmq)((1 > mmq) ? (1) : (mmq));
72878/*end of frompyobj*/
72879#ifdef F2PY_REPORT_ATEXIT
72880f2py_start_call_clock();
72881#endif
72882/*callfortranroutine*/
72883 (*f2py_func)("Y","Y","Y","Y","N","D",&m,&p,&q,&x11,&ldx11,&x12,&ldx12,&x21,&ldx21,&x22,&ldx22,&theta,&u1,&ldu1,&u2,&ldu2,&v1t,&ldv1t,&v2t,&ldv2t,&work,&lwork,&iwork,&info) ;
72884 /*(*f2py_func)(&m,&p,&q,&x11,&ldx11,&x12,&ldx12,&x21,&ldx21,&x22,&ldx22,&theta,&u1,&ldu1,&u2,&ldu2,&v1t,&ldv1t,&v2t,&ldv2t,&work,&lwork,&iwork,&info,&mmp,&mmq);*/
72885if (PyErr_Occurred())
72886 f2py_success = 0;
72887#ifdef F2PY_REPORT_ATEXIT
72888f2py_stop_call_clock();
72889#endif
72890/*end of callfortranroutine*/
72891 if (f2py_success) {
72892/*pyobjfrom*/
72893/*end of pyobjfrom*/
72894 CFUNCSMESS("Building return value.\n");
72895 capi_buildvalue = Py_BuildValue("di",work,info);
72896/*closepyobjfrom*/
72897/*end of closepyobjfrom*/
72898 } /*if (f2py_success) after callfortranroutine*/
72899/*cleanupfrompyobj*/
72900 /* End of cleaning variable ldv2t */
72901 /* End of cleaning variable ldv1t */
72902 /* End of cleaning variable ldu2 */
72903 /* End of cleaning variable ldu1 */
72904 /* End of cleaning variable ldx22 */
72905 /* End of cleaning variable ldx21 */
72906 /* End of cleaning variable ldx12 */
72907 /* End of cleaning variable ldx11 */
72908 /* End of cleaning variable mmq */
72909 /* End of cleaning variable mmp */
72910 /* End of cleaning variable info */
72911 /* End of cleaning variable work */
72912 /* End of cleaning variable lwork */
72913 /* End of cleaning variable iwork */
72914 /* End of cleaning variable v2t */
72915 /* End of cleaning variable v1t */
72916 /* End of cleaning variable u2 */
72917 /* End of cleaning variable u1 */
72918 /* End of cleaning variable theta */
72919 /* End of cleaning variable x21 */
72920 /* End of cleaning variable x12 */
72921 /* End of cleaning variable x22 */
72922 /* End of cleaning variable x11 */
72923 } /*if (f2py_success) of q*/
72924 /* End of cleaning variable q */
72925 } /*if (f2py_success) of p*/
72926 /* End of cleaning variable p */
72927 } /*if (f2py_success) of m*/
72928 /* End of cleaning variable m */
72929/*end of cleanupfrompyobj*/
72930 if (capi_buildvalue == NULL((void*)0)) {
72931/*routdebugfailure*/
72932 } else {
72933/*routdebugleave*/
72934 }
72935 CFUNCSMESS("Freeing memory.\n");
72936/*freemem*/
72937#ifdef F2PY_REPORT_ATEXIT
72938f2py_stop_clock();
72939#endif
72940 return capi_buildvalue;
72941}
72942/**************************** end of dorcsd_lwork ****************************/
72943
72944/*********************************** cuncsd ***********************************/
72945static char doc_f2py_rout__flapack_cuncsd[] = "\
72946cs11,cs12,cs21,cs22,theta,u1,u2,v1t,v2t,info = cuncsd(x11,x12,x21,x22,[compute_u1,compute_u2,compute_v1t,compute_v2t,trans,signs,lwork,lrwork,overwrite_x11,overwrite_x12,overwrite_x21,overwrite_x22])\n\nWrapper for ``cuncsd``.\
72947\n\nParameters\n----------\n"
72948"x11 : input rank-2 array('F') with bounds (p,q)\n"
72949"x12 : input rank-2 array('F') with bounds (p,mmq)\n"
72950"x21 : input rank-2 array('F') with bounds (mmp,q)\n"
72951"x22 : input rank-2 array('F') with bounds (mmp,mmq)\n"
72952"\nOther Parameters\n----------------\n"
72953"compute_u1 : input int, optional\n Default: 1\n"
72954"compute_u2 : input int, optional\n Default: 1\n"
72955"compute_v1t : input int, optional\n Default: 1\n"
72956"compute_v2t : input int, optional\n Default: 1\n"
72957"trans : input int, optional\n Default: 0\n"
72958"signs : input int, optional\n Default: 0\n"
72959"overwrite_x11 : input int, optional\n Default: 0\n"
72960"overwrite_x12 : input int, optional\n Default: 0\n"
72961"overwrite_x21 : input int, optional\n Default: 0\n"
72962"overwrite_x22 : input int, optional\n Default: 0\n"
72963"lwork : input int, optional\n Default: 2*m+MAX(1,MAX(mmp,mmq))+1\n"
72964"lrwork : input int, optional\n Default: 5*MAX(1,q-1)+4*MAX(1,q)+8*q+1\n"
72965"\nReturns\n-------\n"
72966"cs11 : rank-2 array('F') with bounds (p,q) and x11 storage\n"
72967"cs12 : rank-2 array('F') with bounds (p,mmq) and x12 storage\n"
72968"cs21 : rank-2 array('F') with bounds (mmp,q) and x21 storage\n"
72969"cs22 : rank-2 array('F') with bounds (mmp,mmq) and x22 storage\n"
72970"theta : rank-1 array('f') with bounds (min(min(p,mmp),min(q,mmq)))\n"
72971"u1 : rank-2 array('F') with bounds ((compute_u1?p:0),(compute_u1?p:0))\n"
72972"u2 : rank-2 array('F') with bounds ((compute_u2?mmp:0),(compute_u2?mmp:0))\n"
72973"v1t : rank-2 array('F') with bounds ((compute_v1t?q:0),(compute_v1t?q:0))\n"
72974"v2t : rank-2 array('F') with bounds ((compute_v2t?mmq:0),(compute_v2t?mmq:0))\n"
72975"info : int";
72976/* extern void F_FUNC(cuncsd,CUNCSD)(char*,char*,char*,char*,char*,char*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */
72977static PyObject *f2py_rout__flapack_cuncsd(const PyObject *capi_self,
72978 PyObject *capi_args,
72979 PyObject *capi_keywds,
72980 void (*f2py_func)(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) {
72981 PyObject * volatile capi_buildvalue = NULL((void*)0);
72982 volatile int f2py_success = 1;
72983/*decl*/
72984
72985 int compute_u1 = 0;
72986 PyObject *compute_u1_capi = Py_None(&_Py_NoneStruct);
72987 int compute_u2 = 0;
72988 PyObject *compute_u2_capi = Py_None(&_Py_NoneStruct);
72989 int compute_v1t = 0;
72990 PyObject *compute_v1t_capi = Py_None(&_Py_NoneStruct);
72991 int compute_v2t = 0;
72992 PyObject *compute_v2t_capi = Py_None(&_Py_NoneStruct);
72993 int trans = 0;
72994 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
72995 int signs = 0;
72996 PyObject *signs_capi = Py_None(&_Py_NoneStruct);
72997 int m = 0;
72998 int p = 0;
72999 int q = 0;
73000 complex_float *x11 = NULL((void*)0);
73001 npy_intp x11_Dims[2] = {-1, -1};
73002 const int x11_Rank = 2;
73003 PyArrayObject *capi_x11_tmp = NULL((void*)0);
73004 int capi_x11_intent = 0;
73005 int capi_overwrite_x11 = 0;
73006 PyObject *x11_capi = Py_None(&_Py_NoneStruct);
73007 int ldx11 = 0;
73008 complex_float *x12 = NULL((void*)0);
73009 npy_intp x12_Dims[2] = {-1, -1};
73010 const int x12_Rank = 2;
73011 PyArrayObject *capi_x12_tmp = NULL((void*)0);
73012 int capi_x12_intent = 0;
73013 int capi_overwrite_x12 = 0;
73014 PyObject *x12_capi = Py_None(&_Py_NoneStruct);
73015 int ldx12 = 0;
73016 complex_float *x21 = NULL((void*)0);
73017 npy_intp x21_Dims[2] = {-1, -1};
73018 const int x21_Rank = 2;
73019 PyArrayObject *capi_x21_tmp = NULL((void*)0);
73020 int capi_x21_intent = 0;
73021 int capi_overwrite_x21 = 0;
73022 PyObject *x21_capi = Py_None(&_Py_NoneStruct);
73023 int ldx21 = 0;
73024 complex_float *x22 = NULL((void*)0);
73025 npy_intp x22_Dims[2] = {-1, -1};
73026 const int x22_Rank = 2;
73027 PyArrayObject *capi_x22_tmp = NULL((void*)0);
73028 int capi_x22_intent = 0;
73029 int capi_overwrite_x22 = 0;
73030 PyObject *x22_capi = Py_None(&_Py_NoneStruct);
73031 int ldx22 = 0;
73032 float *theta = NULL((void*)0);
73033 npy_intp theta_Dims[1] = {-1};
73034 const int theta_Rank = 1;
73035 PyArrayObject *capi_theta_tmp = NULL((void*)0);
73036 int capi_theta_intent = 0;
73037 complex_float *u1 = NULL((void*)0);
73038 npy_intp u1_Dims[2] = {-1, -1};
73039 const int u1_Rank = 2;
73040 PyArrayObject *capi_u1_tmp = NULL((void*)0);
73041 int capi_u1_intent = 0;
73042 int ldu1 = 0;
73043 complex_float *u2 = NULL((void*)0);
73044 npy_intp u2_Dims[2] = {-1, -1};
73045 const int u2_Rank = 2;
73046 PyArrayObject *capi_u2_tmp = NULL((void*)0);
73047 int capi_u2_intent = 0;
73048 int ldu2 = 0;
73049 complex_float *v1t = NULL((void*)0);
73050 npy_intp v1t_Dims[2] = {-1, -1};
73051 const int v1t_Rank = 2;
73052 PyArrayObject *capi_v1t_tmp = NULL((void*)0);
73053 int capi_v1t_intent = 0;
73054 int ldv1t = 0;
73055 complex_float *v2t = NULL((void*)0);
73056 npy_intp v2t_Dims[2] = {-1, -1};
73057 const int v2t_Rank = 2;
73058 PyArrayObject *capi_v2t_tmp = NULL((void*)0);
73059 int capi_v2t_intent = 0;
73060 int ldv2t = 0;
73061 complex_float *work = NULL((void*)0);
73062 npy_intp work_Dims[1] = {-1};
73063 const int work_Rank = 1;
73064 PyArrayObject *capi_work_tmp = NULL((void*)0);
73065 int capi_work_intent = 0;
73066 int lwork = 0;
73067 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
73068 float *rwork = NULL((void*)0);
73069 npy_intp rwork_Dims[1] = {-1};
73070 const int rwork_Rank = 1;
73071 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
73072 int capi_rwork_intent = 0;
73073 int lrwork = 0;
73074 PyObject *lrwork_capi = Py_None(&_Py_NoneStruct);
73075 int *iwork = NULL((void*)0);
73076 npy_intp iwork_Dims[1] = {-1};
73077 const int iwork_Rank = 1;
73078 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
73079 int capi_iwork_intent = 0;
73080 int info = 0;
73081 int mmp = 0;
73082 int mmq = 0;
73083 static char *capi_kwlist[] = {"x11","x12","x21","x22","compute_u1","compute_u2","compute_v1t","compute_v2t","trans","signs","lwork","lrwork","overwrite_x11","overwrite_x12","overwrite_x21","overwrite_x22",NULL((void*)0)};
73084
73085/*routdebugenter*/
73086#ifdef F2PY_REPORT_ATEXIT
73087f2py_start_clock();
73088#endif
73089 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
73090 "OOOO|OOOOOOOOiiii:_flapack.cuncsd",\
73091 capi_kwlist,&x11_capi,&x12_capi,&x21_capi,&x22_capi,&compute_u1_capi,&compute_u2_capi,&compute_v1t_capi,&compute_v2t_capi,&trans_capi,&signs_capi,&lwork_capi,&lrwork_capi,&capi_overwrite_x11,&capi_overwrite_x12,&capi_overwrite_x21,&capi_overwrite_x22))
73092 return NULL((void*)0);
73093/*frompyobj*/
73094 /* Processing variable compute_u1 */
73095 if (compute_u1_capi == Py_None(&_Py_NoneStruct)) compute_u1 = 1; else
73096 f2py_success = int_from_pyobj(&compute_u1,compute_u1_capi,"_flapack.cuncsd() 1st keyword (compute_u1) can't be converted to int");
73097 if (f2py_success) {
73098 CHECKSCALAR(compute_u1==0||compute_u1==1,"compute_u1==0||compute_u1==1","1st keyword compute_u1","cuncsd:compute_u1=%d",compute_u1)if (!(compute_u1==0||compute_u1==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cuncsd:compute_u1=%d", "(""compute_u1==0||compute_u1==1"
") failed for ""1st keyword compute_u1", compute_u1); PyErr_SetString
(_flapack_error,errstring); } else
{
73099 /* Processing variable compute_u2 */
73100 if (compute_u2_capi == Py_None(&_Py_NoneStruct)) compute_u2 = 1; else
73101 f2py_success = int_from_pyobj(&compute_u2,compute_u2_capi,"_flapack.cuncsd() 2nd keyword (compute_u2) can't be converted to int");
73102 if (f2py_success) {
73103 CHECKSCALAR(compute_u2==0||compute_u2==1,"compute_u2==0||compute_u2==1","2nd keyword compute_u2","cuncsd:compute_u2=%d",compute_u2)if (!(compute_u2==0||compute_u2==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cuncsd:compute_u2=%d", "(""compute_u2==0||compute_u2==1"
") failed for ""2nd keyword compute_u2", compute_u2); PyErr_SetString
(_flapack_error,errstring); } else
{
73104 /* Processing variable compute_v1t */
73105 if (compute_v1t_capi == Py_None(&_Py_NoneStruct)) compute_v1t = 1; else
73106 f2py_success = int_from_pyobj(&compute_v1t,compute_v1t_capi,"_flapack.cuncsd() 3rd keyword (compute_v1t) can't be converted to int");
73107 if (f2py_success) {
73108 CHECKSCALAR(compute_v1t==0||compute_v1t==1,"compute_v1t==0||compute_v1t==1","3rd keyword compute_v1t","cuncsd:compute_v1t=%d",compute_v1t)if (!(compute_v1t==0||compute_v1t==1)) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""cuncsd:compute_v1t=%d", "(""compute_v1t==0||compute_v1t==1"
") failed for ""3rd keyword compute_v1t", compute_v1t); PyErr_SetString
(_flapack_error,errstring); } else
{
73109 /* Processing variable compute_v2t */
73110 if (compute_v2t_capi == Py_None(&_Py_NoneStruct)) compute_v2t = 1; else
73111 f2py_success = int_from_pyobj(&compute_v2t,compute_v2t_capi,"_flapack.cuncsd() 4th keyword (compute_v2t) can't be converted to int");
73112 if (f2py_success) {
73113 CHECKSCALAR(compute_v2t==0||compute_v2t==1,"compute_v2t==0||compute_v2t==1","4th keyword compute_v2t","cuncsd:compute_v2t=%d",compute_v2t)if (!(compute_v2t==0||compute_v2t==1)) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""cuncsd:compute_v2t=%d", "(""compute_v2t==0||compute_v2t==1"
") failed for ""4th keyword compute_v2t", compute_v2t); PyErr_SetString
(_flapack_error,errstring); } else
{
73114 /* Processing variable trans */
73115 if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else
73116 f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.cuncsd() 5th keyword (trans) can't be converted to int");
73117 if (f2py_success) {
73118 CHECKSCALAR(trans==0||trans==1,"trans==0||trans==1","5th keyword trans","cuncsd:trans=%d",trans)if (!(trans==0||trans==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cuncsd:trans=%d", "(""trans==0||trans==1"") failed for "
"5th keyword trans", trans); PyErr_SetString(_flapack_error,errstring
); } else
{
73119 /* Processing variable signs */
73120 if (signs_capi == Py_None(&_Py_NoneStruct)) signs = 0; else
73121 f2py_success = int_from_pyobj(&signs,signs_capi,"_flapack.cuncsd() 6th keyword (signs) can't be converted to int");
73122 if (f2py_success) {
73123 CHECKSCALAR(signs==0||signs==1,"signs==0||signs==1","6th keyword signs","cuncsd:signs=%d",signs)if (!(signs==0||signs==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cuncsd:signs=%d", "(""signs==0||signs==1"") failed for "
"6th keyword signs", signs); PyErr_SetString(_flapack_error,errstring
); } else
{
73124 /* Processing variable x11 */
73125 capi_x11_intent |= (capi_overwrite_x11?0:F2PY_INTENT_COPY32);
73126 ;
73127 capi_x11_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
73128 capi_x11_tmp = array_from_pyobj(NPY_CFLOAT,x11_Dims,x11_Rank,capi_x11_intent,x11_capi);
73129 if (capi_x11_tmp == NULL((void*)0)) {
73130 if (!PyErr_Occurred())
73131 PyErr_SetString(_flapack_error,"failed in converting 1st argument `x11' of _flapack.cuncsd to C/Fortran array" );
73132 } else {
73133 x11 = (complex_float *)(PyArray_DATA(capi_x11_tmp)((void *)((PyArrayObject_fields *)(capi_x11_tmp))->data));
73134
73135 /* Processing variable x22 */
73136 capi_x22_intent |= (capi_overwrite_x22?0:F2PY_INTENT_COPY32);
73137 ;
73138 capi_x22_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
73139 capi_x22_tmp = array_from_pyobj(NPY_CFLOAT,x22_Dims,x22_Rank,capi_x22_intent,x22_capi);
73140 if (capi_x22_tmp == NULL((void*)0)) {
73141 if (!PyErr_Occurred())
73142 PyErr_SetString(_flapack_error,"failed in converting 4th argument `x22' of _flapack.cuncsd to C/Fortran array" );
73143 } else {
73144 x22 = (complex_float *)(PyArray_DATA(capi_x22_tmp)((void *)((PyArrayObject_fields *)(capi_x22_tmp))->data));
73145
73146 /* Processing variable info */
73147 /* Processing variable p */
73148 p = shape(x11,0)x11_Dims[0];
73149 /* Processing variable q */
73150 q = shape(x11,1)x11_Dims[1];
73151 /* Processing variable mmp */
73152 mmp = shape(x22,0)x22_Dims[0];
73153 /* Processing variable mmq */
73154 mmq = shape(x22,1)x22_Dims[1];
73155 /* Processing variable ldx11 */
73156 ldx11 = MAX(1,shape(x11,0))((1 > x11_Dims[0]) ? (1) : (x11_Dims[0]));
73157 /* Processing variable ldx22 */
73158 ldx22 = MAX(1,shape(x22,0))((1 > x22_Dims[0]) ? (1) : (x22_Dims[0]));
73159 /* Processing variable theta */
73160 theta_Dims[0]=min(min(p,mmp),min(q,mmq))((((p < mmp) ? (p) : (mmp)) < ((q < mmq) ? (q) : (mmq
))) ? (((p < mmp) ? (p) : (mmp))) : (((q < mmq) ? (q) :
(mmq))))
;
73161 capi_theta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
73162 capi_theta_tmp = array_from_pyobj(NPY_FLOAT,theta_Dims,theta_Rank,capi_theta_intent,Py_None(&_Py_NoneStruct));
73163 if (capi_theta_tmp == NULL((void*)0)) {
73164 if (!PyErr_Occurred())
73165 PyErr_SetString(_flapack_error,"failed in converting hidden `theta' of _flapack.cuncsd to C/Fortran array" );
73166 } else {
73167 theta = (float *)(PyArray_DATA(capi_theta_tmp)((void *)((PyArrayObject_fields *)(capi_theta_tmp))->data));
73168
73169 /* Processing variable u1 */
73170 u1_Dims[0]=(compute_u1?p:0),u1_Dims[1]=(compute_u1?p:0);
73171 capi_u1_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
73172 capi_u1_tmp = array_from_pyobj(NPY_CFLOAT,u1_Dims,u1_Rank,capi_u1_intent,Py_None(&_Py_NoneStruct));
73173 if (capi_u1_tmp == NULL((void*)0)) {
73174 if (!PyErr_Occurred())
73175 PyErr_SetString(_flapack_error,"failed in converting hidden `u1' of _flapack.cuncsd to C/Fortran array" );
73176 } else {
73177 u1 = (complex_float *)(PyArray_DATA(capi_u1_tmp)((void *)((PyArrayObject_fields *)(capi_u1_tmp))->data));
73178
73179 /* Processing variable u2 */
73180 u2_Dims[0]=(compute_u2?mmp:0),u2_Dims[1]=(compute_u2?mmp:0);
73181 capi_u2_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
73182 capi_u2_tmp = array_from_pyobj(NPY_CFLOAT,u2_Dims,u2_Rank,capi_u2_intent,Py_None(&_Py_NoneStruct));
73183 if (capi_u2_tmp == NULL((void*)0)) {
73184 if (!PyErr_Occurred())
73185 PyErr_SetString(_flapack_error,"failed in converting hidden `u2' of _flapack.cuncsd to C/Fortran array" );
73186 } else {
73187 u2 = (complex_float *)(PyArray_DATA(capi_u2_tmp)((void *)((PyArrayObject_fields *)(capi_u2_tmp))->data));
73188
73189 /* Processing variable v1t */
73190 v1t_Dims[0]=(compute_v1t?q:0),v1t_Dims[1]=(compute_v1t?q:0);
73191 capi_v1t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
73192 capi_v1t_tmp = array_from_pyobj(NPY_CFLOAT,v1t_Dims,v1t_Rank,capi_v1t_intent,Py_None(&_Py_NoneStruct));
73193 if (capi_v1t_tmp == NULL((void*)0)) {
73194 if (!PyErr_Occurred())
73195 PyErr_SetString(_flapack_error,"failed in converting hidden `v1t' of _flapack.cuncsd to C/Fortran array" );
73196 } else {
73197 v1t = (complex_float *)(PyArray_DATA(capi_v1t_tmp)((void *)((PyArrayObject_fields *)(capi_v1t_tmp))->data));
73198
73199 /* Processing variable v2t */
73200 v2t_Dims[0]=(compute_v2t?mmq:0),v2t_Dims[1]=(compute_v2t?mmq:0);
73201 capi_v2t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
73202 capi_v2t_tmp = array_from_pyobj(NPY_CFLOAT,v2t_Dims,v2t_Rank,capi_v2t_intent,Py_None(&_Py_NoneStruct));
73203 if (capi_v2t_tmp == NULL((void*)0)) {
73204 if (!PyErr_Occurred())
73205 PyErr_SetString(_flapack_error,"failed in converting hidden `v2t' of _flapack.cuncsd to C/Fortran array" );
73206 } else {
73207 v2t = (complex_float *)(PyArray_DATA(capi_v2t_tmp)((void *)((PyArrayObject_fields *)(capi_v2t_tmp))->data));
73208
73209 /* Processing variable ldu1 */
73210 ldu1 = MAX(1,p)((1 > p) ? (1) : (p));
73211 /* Processing variable ldu2 */
73212 ldu2 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp));
73213 /* Processing variable ldv1t */
73214 ldv1t = MAX(1,q)((1 > q) ? (1) : (q));
73215 /* Processing variable ldv2t */
73216 ldv2t = MAX(1,mmq)((1 > mmq) ? (1) : (mmq));
73217 /* Processing variable iwork */
73218 iwork_Dims[0]=p+mmp-MIN(MIN(p,mmp),MIN(q,mmq))((((p < mmp) ? (p) : (mmp)) < ((q < mmq) ? (q) : (mmq
))) ? (((p < mmp) ? (p) : (mmp))) : (((q < mmq) ? (q) :
(mmq))))
;
73219 capi_iwork_intent |= F2PY_INTENT_HIDE8;
73220 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
73221 if (capi_iwork_tmp == NULL((void*)0)) {
73222 if (!PyErr_Occurred())
73223 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.cuncsd to C/Fortran array" );
73224 } else {
73225 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
73226
73227 /* Processing variable lrwork */
73228 if (lrwork_capi == Py_None(&_Py_NoneStruct)) lrwork = 5*MAX(1,q-1)((1 > q-1) ? (1) : (q-1))+4*MAX(1,q)((1 > q) ? (1) : (q))+8*q+1; else
73229 f2py_success = int_from_pyobj(&lrwork,lrwork_capi,"_flapack.cuncsd() 8th keyword (lrwork) can't be converted to int");
73230 if (f2py_success) {
73231 CHECKSCALAR(lrwork==-1||lrwork>0,"lrwork==-1||lrwork>0","8th keyword lrwork","cuncsd:lrwork=%d",lrwork)if (!(lrwork==-1||lrwork>0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cuncsd:lrwork=%d", "(""lrwork==-1||lrwork>0"") failed for "
"8th keyword lrwork", lrwork); PyErr_SetString(_flapack_error
,errstring); } else
{
73232 /* Processing variable m */
73233 m = p+mmp;
73234 CHECKSCALAR(p+mmp==q+mmq,"p+mmp==q+mmq","hidden m","cuncsd:m=%d",m)if (!(p+mmp==q+mmq)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cuncsd:m=%d", "(""p+mmp==q+mmq"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
73235 /* Processing variable x12 */
73236 capi_x12_intent |= (capi_overwrite_x12?0:F2PY_INTENT_COPY32);
73237 x12_Dims[0]=p,x12_Dims[1]=mmq;
73238 capi_x12_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
73239 capi_x12_tmp = array_from_pyobj(NPY_CFLOAT,x12_Dims,x12_Rank,capi_x12_intent,x12_capi);
73240 if (capi_x12_tmp == NULL((void*)0)) {
73241 if (!PyErr_Occurred())
73242 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `x12' of _flapack.cuncsd to C/Fortran array" );
73243 } else {
73244 x12 = (complex_float *)(PyArray_DATA(capi_x12_tmp)((void *)((PyArrayObject_fields *)(capi_x12_tmp))->data));
73245
73246 CHECKARRAY(mmq==shape(x12,1)||p==shape(x12,0),"mmq==shape(x12,1)||p==shape(x12,0)","2nd argument x12")if (!(mmq==x12_Dims[1]||p==x12_Dims[0])) { PyErr_SetString(_flapack_error
,"(""mmq==shape(x12,1)||p==shape(x12,0)"") failed for ""2nd argument x12"
); } else
{
73247 /* Processing variable x21 */
73248 capi_x21_intent |= (capi_overwrite_x21?0:F2PY_INTENT_COPY32);
73249 x21_Dims[0]=mmp,x21_Dims[1]=q;
73250 capi_x21_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
73251 capi_x21_tmp = array_from_pyobj(NPY_CFLOAT,x21_Dims,x21_Rank,capi_x21_intent,x21_capi);
73252 if (capi_x21_tmp == NULL((void*)0)) {
73253 if (!PyErr_Occurred())
73254 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `x21' of _flapack.cuncsd to C/Fortran array" );
73255 } else {
73256 x21 = (complex_float *)(PyArray_DATA(capi_x21_tmp)((void *)((PyArrayObject_fields *)(capi_x21_tmp))->data));
73257
73258 CHECKARRAY(mmp==shape(x21,0)||q==shape(x21,1),"mmp==shape(x21,0)||q==shape(x21,1)","3rd argument x21")if (!(mmp==x21_Dims[0]||q==x21_Dims[1])) { PyErr_SetString(_flapack_error
,"(""mmp==shape(x21,0)||q==shape(x21,1)"") failed for ""3rd argument x21"
); } else
{
73259 /* Processing variable ldx12 */
73260 ldx12 = MAX(1,shape(x12,0))((1 > x12_Dims[0]) ? (1) : (x12_Dims[0]));
73261 /* Processing variable ldx21 */
73262 ldx21 = MAX(1,shape(x21,0))((1 > x21_Dims[0]) ? (1) : (x21_Dims[0]));
73263 /* Processing variable rwork */
73264 rwork_Dims[0]=lrwork;
73265 capi_rwork_intent |= F2PY_INTENT_HIDE8;
73266 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
73267 if (capi_rwork_tmp == NULL((void*)0)) {
73268 if (!PyErr_Occurred())
73269 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.cuncsd to C/Fortran array" );
73270 } else {
73271 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
73272
73273 /* Processing variable lwork */
73274 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = 2*m+MAX(1,MAX(mmp,mmq))((1 > ((mmp > mmq) ? (mmp) : (mmq))) ? (1) : (((mmp >
mmq) ? (mmp) : (mmq))))
+1; else
73275 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cuncsd() 7th keyword (lwork) can't be converted to int");
73276 if (f2py_success) {
73277 CHECKSCALAR(lwork==-1||lwork>0,"lwork==-1||lwork>0","7th keyword lwork","cuncsd:lwork=%d",lwork)if (!(lwork==-1||lwork>0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cuncsd:lwork=%d", "(""lwork==-1||lwork>0"") failed for "
"7th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
73278 /* Processing variable work */
73279 work_Dims[0]=lwork;
73280 capi_work_intent |= F2PY_INTENT_HIDE8;
73281 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
73282 if (capi_work_tmp == NULL((void*)0)) {
73283 if (!PyErr_Occurred())
73284 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cuncsd to C/Fortran array" );
73285 } else {
73286 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
73287
73288/*end of frompyobj*/
73289#ifdef F2PY_REPORT_ATEXIT
73290f2py_start_call_clock();
73291#endif
73292/*callfortranroutine*/
73293 (*f2py_func)((compute_u1?"Y":"N"),(compute_u2?"Y":"N"),(compute_v1t?"Y":"N"),(compute_v2t?"Y":"N"),(trans?"T":"N"),(signs?"O":"D"),&m,&p,&q,x11,&ldx11,x12,&ldx12,x21,&ldx21,x22,&ldx22,theta,u1,&ldu1,u2,&ldu2,v1t,&ldv1t,v2t,&ldv2t,work,&lwork,rwork,&lrwork,iwork,&info) ;
73294 /*(*f2py_func)(&compute_u1,&compute_u2,&compute_v1t,&compute_v2t,&trans,&signs,&m,&p,&q,x11,&ldx11,x12,&ldx12,x21,&ldx21,x22,&ldx22,theta,u1,&ldu1,u2,&ldu2,v1t,&ldv1t,v2t,&ldv2t,work,&lwork,rwork,&lrwork,iwork,&info,&mmp,&mmq);*/
73295if (PyErr_Occurred())
73296 f2py_success = 0;
73297#ifdef F2PY_REPORT_ATEXIT
73298f2py_stop_call_clock();
73299#endif
73300/*end of callfortranroutine*/
73301 if (f2py_success) {
73302/*pyobjfrom*/
73303/*end of pyobjfrom*/
73304 CFUNCSMESS("Building return value.\n");
73305 capi_buildvalue = Py_BuildValue("NNNNNNNNNi",capi_x11_tmp,capi_x12_tmp,capi_x21_tmp,capi_x22_tmp,capi_theta_tmp,capi_u1_tmp,capi_u2_tmp,capi_v1t_tmp,capi_v2t_tmp,info);
73306/*closepyobjfrom*/
73307/*end of closepyobjfrom*/
73308 } /*if (f2py_success) after callfortranroutine*/
73309/*cleanupfrompyobj*/
73310 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
73311 } /*if (capi_work_tmp == NULL) ... else of work*/
73312 /* End of cleaning variable work */
73313 } /*CHECKSCALAR(lwork==-1||lwork>0)*/
73314 } /*if (f2py_success) of lwork*/
73315 /* End of cleaning variable lwork */
73316 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
73317 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
73318 /* End of cleaning variable rwork */
73319 /* End of cleaning variable ldx21 */
73320 /* End of cleaning variable ldx12 */
73321 } /*CHECKARRAY(mmp==shape(x21,0)||q==shape(x21,1))*/
73322 } /*if (capi_x21_tmp == NULL) ... else of x21*/
73323 /* End of cleaning variable x21 */
73324 } /*CHECKARRAY(mmq==shape(x12,1)||p==shape(x12,0))*/
73325 } /*if (capi_x12_tmp == NULL) ... else of x12*/
73326 /* End of cleaning variable x12 */
73327 } /*CHECKSCALAR(p+mmp==q+mmq)*/
73328 /* End of cleaning variable m */
73329 } /*CHECKSCALAR(lrwork==-1||lrwork>0)*/
73330 } /*if (f2py_success) of lrwork*/
73331 /* End of cleaning variable lrwork */
73332 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
73333 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
73334 /* End of cleaning variable iwork */
73335 /* End of cleaning variable ldv2t */
73336 /* End of cleaning variable ldv1t */
73337 /* End of cleaning variable ldu2 */
73338 /* End of cleaning variable ldu1 */
73339 } /*if (capi_v2t_tmp == NULL) ... else of v2t*/
73340 /* End of cleaning variable v2t */
73341 } /*if (capi_v1t_tmp == NULL) ... else of v1t*/
73342 /* End of cleaning variable v1t */
73343 } /*if (capi_u2_tmp == NULL) ... else of u2*/
73344 /* End of cleaning variable u2 */
73345 } /*if (capi_u1_tmp == NULL) ... else of u1*/
73346 /* End of cleaning variable u1 */
73347 } /*if (capi_theta_tmp == NULL) ... else of theta*/
73348 /* End of cleaning variable theta */
73349 /* End of cleaning variable ldx22 */
73350 /* End of cleaning variable ldx11 */
73351 /* End of cleaning variable mmq */
73352 /* End of cleaning variable mmp */
73353 /* End of cleaning variable q */
73354 /* End of cleaning variable p */
73355 /* End of cleaning variable info */
73356 } /*if (capi_x22_tmp == NULL) ... else of x22*/
73357 /* End of cleaning variable x22 */
73358 } /*if (capi_x11_tmp == NULL) ... else of x11*/
73359 /* End of cleaning variable x11 */
73360 } /*CHECKSCALAR(signs==0||signs==1)*/
73361 } /*if (f2py_success) of signs*/
73362 /* End of cleaning variable signs */
73363 } /*CHECKSCALAR(trans==0||trans==1)*/
73364 } /*if (f2py_success) of trans*/
73365 /* End of cleaning variable trans */
73366 } /*CHECKSCALAR(compute_v2t==0||compute_v2t==1)*/
73367 } /*if (f2py_success) of compute_v2t*/
73368 /* End of cleaning variable compute_v2t */
73369 } /*CHECKSCALAR(compute_v1t==0||compute_v1t==1)*/
73370 } /*if (f2py_success) of compute_v1t*/
73371 /* End of cleaning variable compute_v1t */
73372 } /*CHECKSCALAR(compute_u2==0||compute_u2==1)*/
73373 } /*if (f2py_success) of compute_u2*/
73374 /* End of cleaning variable compute_u2 */
73375 } /*CHECKSCALAR(compute_u1==0||compute_u1==1)*/
73376 } /*if (f2py_success) of compute_u1*/
73377 /* End of cleaning variable compute_u1 */
73378/*end of cleanupfrompyobj*/
73379 if (capi_buildvalue == NULL((void*)0)) {
73380/*routdebugfailure*/
73381 } else {
73382/*routdebugleave*/
73383 }
73384 CFUNCSMESS("Freeing memory.\n");
73385/*freemem*/
73386#ifdef F2PY_REPORT_ATEXIT
73387f2py_stop_clock();
73388#endif
73389 return capi_buildvalue;
73390}
73391/******************************* end of cuncsd *******************************/
73392
73393/*********************************** zuncsd ***********************************/
73394static char doc_f2py_rout__flapack_zuncsd[] = "\
73395cs11,cs12,cs21,cs22,theta,u1,u2,v1t,v2t,info = zuncsd(x11,x12,x21,x22,[compute_u1,compute_u2,compute_v1t,compute_v2t,trans,signs,lwork,lrwork,overwrite_x11,overwrite_x12,overwrite_x21,overwrite_x22])\n\nWrapper for ``zuncsd``.\
73396\n\nParameters\n----------\n"
73397"x11 : input rank-2 array('D') with bounds (p,q)\n"
73398"x12 : input rank-2 array('D') with bounds (p,mmq)\n"
73399"x21 : input rank-2 array('D') with bounds (mmp,q)\n"
73400"x22 : input rank-2 array('D') with bounds (mmp,mmq)\n"
73401"\nOther Parameters\n----------------\n"
73402"compute_u1 : input int, optional\n Default: 1\n"
73403"compute_u2 : input int, optional\n Default: 1\n"
73404"compute_v1t : input int, optional\n Default: 1\n"
73405"compute_v2t : input int, optional\n Default: 1\n"
73406"trans : input int, optional\n Default: 0\n"
73407"signs : input int, optional\n Default: 0\n"
73408"overwrite_x11 : input int, optional\n Default: 0\n"
73409"overwrite_x12 : input int, optional\n Default: 0\n"
73410"overwrite_x21 : input int, optional\n Default: 0\n"
73411"overwrite_x22 : input int, optional\n Default: 0\n"
73412"lwork : input int, optional\n Default: 2*m+MAX(1,MAX(mmp,mmq))+1\n"
73413"lrwork : input int, optional\n Default: 5*MAX(1,q-1)+4*MAX(1,q)+8*q+1\n"
73414"\nReturns\n-------\n"
73415"cs11 : rank-2 array('D') with bounds (p,q) and x11 storage\n"
73416"cs12 : rank-2 array('D') with bounds (p,mmq) and x12 storage\n"
73417"cs21 : rank-2 array('D') with bounds (mmp,q) and x21 storage\n"
73418"cs22 : rank-2 array('D') with bounds (mmp,mmq) and x22 storage\n"
73419"theta : rank-1 array('d') with bounds (min(min(p,mmp),min(q,mmq)))\n"
73420"u1 : rank-2 array('D') with bounds ((compute_u1?p:0),(compute_u1?p:0))\n"
73421"u2 : rank-2 array('D') with bounds ((compute_u2?mmp:0),(compute_u2?mmp:0))\n"
73422"v1t : rank-2 array('D') with bounds ((compute_v1t?q:0),(compute_v1t?q:0))\n"
73423"v2t : rank-2 array('D') with bounds ((compute_v2t?mmq:0),(compute_v2t?mmq:0))\n"
73424"info : int";
73425/* extern void F_FUNC(zuncsd,ZUNCSD)(char*,char*,char*,char*,char*,char*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */
73426static PyObject *f2py_rout__flapack_zuncsd(const PyObject *capi_self,
73427 PyObject *capi_args,
73428 PyObject *capi_keywds,
73429 void (*f2py_func)(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) {
73430 PyObject * volatile capi_buildvalue = NULL((void*)0);
73431 volatile int f2py_success = 1;
73432/*decl*/
73433
73434 int compute_u1 = 0;
73435 PyObject *compute_u1_capi = Py_None(&_Py_NoneStruct);
73436 int compute_u2 = 0;
73437 PyObject *compute_u2_capi = Py_None(&_Py_NoneStruct);
73438 int compute_v1t = 0;
73439 PyObject *compute_v1t_capi = Py_None(&_Py_NoneStruct);
73440 int compute_v2t = 0;
73441 PyObject *compute_v2t_capi = Py_None(&_Py_NoneStruct);
73442 int trans = 0;
73443 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
73444 int signs = 0;
73445 PyObject *signs_capi = Py_None(&_Py_NoneStruct);
73446 int m = 0;
73447 int p = 0;
73448 int q = 0;
73449 complex_double *x11 = NULL((void*)0);
73450 npy_intp x11_Dims[2] = {-1, -1};
73451 const int x11_Rank = 2;
73452 PyArrayObject *capi_x11_tmp = NULL((void*)0);
73453 int capi_x11_intent = 0;
73454 int capi_overwrite_x11 = 0;
73455 PyObject *x11_capi = Py_None(&_Py_NoneStruct);
73456 int ldx11 = 0;
73457 complex_double *x12 = NULL((void*)0);
73458 npy_intp x12_Dims[2] = {-1, -1};
73459 const int x12_Rank = 2;
73460 PyArrayObject *capi_x12_tmp = NULL((void*)0);
73461 int capi_x12_intent = 0;
73462 int capi_overwrite_x12 = 0;
73463 PyObject *x12_capi = Py_None(&_Py_NoneStruct);
73464 int ldx12 = 0;
73465 complex_double *x21 = NULL((void*)0);
73466 npy_intp x21_Dims[2] = {-1, -1};
73467 const int x21_Rank = 2;
73468 PyArrayObject *capi_x21_tmp = NULL((void*)0);
73469 int capi_x21_intent = 0;
73470 int capi_overwrite_x21 = 0;
73471 PyObject *x21_capi = Py_None(&_Py_NoneStruct);
73472 int ldx21 = 0;
73473 complex_double *x22 = NULL((void*)0);
73474 npy_intp x22_Dims[2] = {-1, -1};
73475 const int x22_Rank = 2;
73476 PyArrayObject *capi_x22_tmp = NULL((void*)0);
73477 int capi_x22_intent = 0;
73478 int capi_overwrite_x22 = 0;
73479 PyObject *x22_capi = Py_None(&_Py_NoneStruct);
73480 int ldx22 = 0;
73481 double *theta = NULL((void*)0);
73482 npy_intp theta_Dims[1] = {-1};
73483 const int theta_Rank = 1;
73484 PyArrayObject *capi_theta_tmp = NULL((void*)0);
73485 int capi_theta_intent = 0;
73486 complex_double *u1 = NULL((void*)0);
73487 npy_intp u1_Dims[2] = {-1, -1};
73488 const int u1_Rank = 2;
73489 PyArrayObject *capi_u1_tmp = NULL((void*)0);
73490 int capi_u1_intent = 0;
73491 int ldu1 = 0;
73492 complex_double *u2 = NULL((void*)0);
73493 npy_intp u2_Dims[2] = {-1, -1};
73494 const int u2_Rank = 2;
73495 PyArrayObject *capi_u2_tmp = NULL((void*)0);
73496 int capi_u2_intent = 0;
73497 int ldu2 = 0;
73498 complex_double *v1t = NULL((void*)0);
73499 npy_intp v1t_Dims[2] = {-1, -1};
73500 const int v1t_Rank = 2;
73501 PyArrayObject *capi_v1t_tmp = NULL((void*)0);
73502 int capi_v1t_intent = 0;
73503 int ldv1t = 0;
73504 complex_double *v2t = NULL((void*)0);
73505 npy_intp v2t_Dims[2] = {-1, -1};
73506 const int v2t_Rank = 2;
73507 PyArrayObject *capi_v2t_tmp = NULL((void*)0);
73508 int capi_v2t_intent = 0;
73509 int ldv2t = 0;
73510 complex_double *work = NULL((void*)0);
73511 npy_intp work_Dims[1] = {-1};
73512 const int work_Rank = 1;
73513 PyArrayObject *capi_work_tmp = NULL((void*)0);
73514 int capi_work_intent = 0;
73515 int lwork = 0;
73516 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
73517 double *rwork = NULL((void*)0);
73518 npy_intp rwork_Dims[1] = {-1};
73519 const int rwork_Rank = 1;
73520 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
73521 int capi_rwork_intent = 0;
73522 int lrwork = 0;
73523 PyObject *lrwork_capi = Py_None(&_Py_NoneStruct);
73524 int *iwork = NULL((void*)0);
73525 npy_intp iwork_Dims[1] = {-1};
73526 const int iwork_Rank = 1;
73527 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
73528 int capi_iwork_intent = 0;
73529 int info = 0;
73530 int mmp = 0;
73531 int mmq = 0;
73532 static char *capi_kwlist[] = {"x11","x12","x21","x22","compute_u1","compute_u2","compute_v1t","compute_v2t","trans","signs","lwork","lrwork","overwrite_x11","overwrite_x12","overwrite_x21","overwrite_x22",NULL((void*)0)};
73533
73534/*routdebugenter*/
73535#ifdef F2PY_REPORT_ATEXIT
73536f2py_start_clock();
73537#endif
73538 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
73539 "OOOO|OOOOOOOOiiii:_flapack.zuncsd",\
73540 capi_kwlist,&x11_capi,&x12_capi,&x21_capi,&x22_capi,&compute_u1_capi,&compute_u2_capi,&compute_v1t_capi,&compute_v2t_capi,&trans_capi,&signs_capi,&lwork_capi,&lrwork_capi,&capi_overwrite_x11,&capi_overwrite_x12,&capi_overwrite_x21,&capi_overwrite_x22))
73541 return NULL((void*)0);
73542/*frompyobj*/
73543 /* Processing variable compute_u1 */
73544 if (compute_u1_capi == Py_None(&_Py_NoneStruct)) compute_u1 = 1; else
73545 f2py_success = int_from_pyobj(&compute_u1,compute_u1_capi,"_flapack.zuncsd() 1st keyword (compute_u1) can't be converted to int");
73546 if (f2py_success) {
73547 CHECKSCALAR(compute_u1==0||compute_u1==1,"compute_u1==0||compute_u1==1","1st keyword compute_u1","zuncsd:compute_u1=%d",compute_u1)if (!(compute_u1==0||compute_u1==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zuncsd:compute_u1=%d", "(""compute_u1==0||compute_u1==1"
") failed for ""1st keyword compute_u1", compute_u1); PyErr_SetString
(_flapack_error,errstring); } else
{
73548 /* Processing variable compute_u2 */
73549 if (compute_u2_capi == Py_None(&_Py_NoneStruct)) compute_u2 = 1; else
73550 f2py_success = int_from_pyobj(&compute_u2,compute_u2_capi,"_flapack.zuncsd() 2nd keyword (compute_u2) can't be converted to int");
73551 if (f2py_success) {
73552 CHECKSCALAR(compute_u2==0||compute_u2==1,"compute_u2==0||compute_u2==1","2nd keyword compute_u2","zuncsd:compute_u2=%d",compute_u2)if (!(compute_u2==0||compute_u2==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zuncsd:compute_u2=%d", "(""compute_u2==0||compute_u2==1"
") failed for ""2nd keyword compute_u2", compute_u2); PyErr_SetString
(_flapack_error,errstring); } else
{
73553 /* Processing variable compute_v1t */
73554 if (compute_v1t_capi == Py_None(&_Py_NoneStruct)) compute_v1t = 1; else
73555 f2py_success = int_from_pyobj(&compute_v1t,compute_v1t_capi,"_flapack.zuncsd() 3rd keyword (compute_v1t) can't be converted to int");
73556 if (f2py_success) {
73557 CHECKSCALAR(compute_v1t==0||compute_v1t==1,"compute_v1t==0||compute_v1t==1","3rd keyword compute_v1t","zuncsd:compute_v1t=%d",compute_v1t)if (!(compute_v1t==0||compute_v1t==1)) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zuncsd:compute_v1t=%d", "(""compute_v1t==0||compute_v1t==1"
") failed for ""3rd keyword compute_v1t", compute_v1t); PyErr_SetString
(_flapack_error,errstring); } else
{
73558 /* Processing variable compute_v2t */
73559 if (compute_v2t_capi == Py_None(&_Py_NoneStruct)) compute_v2t = 1; else
73560 f2py_success = int_from_pyobj(&compute_v2t,compute_v2t_capi,"_flapack.zuncsd() 4th keyword (compute_v2t) can't be converted to int");
73561 if (f2py_success) {
73562 CHECKSCALAR(compute_v2t==0||compute_v2t==1,"compute_v2t==0||compute_v2t==1","4th keyword compute_v2t","zuncsd:compute_v2t=%d",compute_v2t)if (!(compute_v2t==0||compute_v2t==1)) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zuncsd:compute_v2t=%d", "(""compute_v2t==0||compute_v2t==1"
") failed for ""4th keyword compute_v2t", compute_v2t); PyErr_SetString
(_flapack_error,errstring); } else
{
73563 /* Processing variable trans */
73564 if (trans_capi == Py_None(&_Py_NoneStruct)) trans = 0; else
73565 f2py_success = int_from_pyobj(&trans,trans_capi,"_flapack.zuncsd() 5th keyword (trans) can't be converted to int");
73566 if (f2py_success) {
73567 CHECKSCALAR(trans==0||trans==1,"trans==0||trans==1","5th keyword trans","zuncsd:trans=%d",trans)if (!(trans==0||trans==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zuncsd:trans=%d", "(""trans==0||trans==1"") failed for "
"5th keyword trans", trans); PyErr_SetString(_flapack_error,errstring
); } else
{
73568 /* Processing variable signs */
73569 if (signs_capi == Py_None(&_Py_NoneStruct)) signs = 0; else
73570 f2py_success = int_from_pyobj(&signs,signs_capi,"_flapack.zuncsd() 6th keyword (signs) can't be converted to int");
73571 if (f2py_success) {
73572 CHECKSCALAR(signs==0||signs==1,"signs==0||signs==1","6th keyword signs","zuncsd:signs=%d",signs)if (!(signs==0||signs==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zuncsd:signs=%d", "(""signs==0||signs==1"") failed for "
"6th keyword signs", signs); PyErr_SetString(_flapack_error,errstring
); } else
{
73573 /* Processing variable x11 */
73574 capi_x11_intent |= (capi_overwrite_x11?0:F2PY_INTENT_COPY32);
73575 ;
73576 capi_x11_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
73577 capi_x11_tmp = array_from_pyobj(NPY_CDOUBLE,x11_Dims,x11_Rank,capi_x11_intent,x11_capi);
73578 if (capi_x11_tmp == NULL((void*)0)) {
73579 if (!PyErr_Occurred())
73580 PyErr_SetString(_flapack_error,"failed in converting 1st argument `x11' of _flapack.zuncsd to C/Fortran array" );
73581 } else {
73582 x11 = (complex_double *)(PyArray_DATA(capi_x11_tmp)((void *)((PyArrayObject_fields *)(capi_x11_tmp))->data));
73583
73584 /* Processing variable x22 */
73585 capi_x22_intent |= (capi_overwrite_x22?0:F2PY_INTENT_COPY32);
73586 ;
73587 capi_x22_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
73588 capi_x22_tmp = array_from_pyobj(NPY_CDOUBLE,x22_Dims,x22_Rank,capi_x22_intent,x22_capi);
73589 if (capi_x22_tmp == NULL((void*)0)) {
73590 if (!PyErr_Occurred())
73591 PyErr_SetString(_flapack_error,"failed in converting 4th argument `x22' of _flapack.zuncsd to C/Fortran array" );
73592 } else {
73593 x22 = (complex_double *)(PyArray_DATA(capi_x22_tmp)((void *)((PyArrayObject_fields *)(capi_x22_tmp))->data));
73594
73595 /* Processing variable info */
73596 /* Processing variable p */
73597 p = shape(x11,0)x11_Dims[0];
73598 /* Processing variable q */
73599 q = shape(x11,1)x11_Dims[1];
73600 /* Processing variable mmp */
73601 mmp = shape(x22,0)x22_Dims[0];
73602 /* Processing variable mmq */
73603 mmq = shape(x22,1)x22_Dims[1];
73604 /* Processing variable ldx11 */
73605 ldx11 = MAX(1,shape(x11,0))((1 > x11_Dims[0]) ? (1) : (x11_Dims[0]));
73606 /* Processing variable ldx22 */
73607 ldx22 = MAX(1,shape(x22,0))((1 > x22_Dims[0]) ? (1) : (x22_Dims[0]));
73608 /* Processing variable theta */
73609 theta_Dims[0]=min(min(p,mmp),min(q,mmq))((((p < mmp) ? (p) : (mmp)) < ((q < mmq) ? (q) : (mmq
))) ? (((p < mmp) ? (p) : (mmp))) : (((q < mmq) ? (q) :
(mmq))))
;
73610 capi_theta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
73611 capi_theta_tmp = array_from_pyobj(NPY_DOUBLE,theta_Dims,theta_Rank,capi_theta_intent,Py_None(&_Py_NoneStruct));
73612 if (capi_theta_tmp == NULL((void*)0)) {
73613 if (!PyErr_Occurred())
73614 PyErr_SetString(_flapack_error,"failed in converting hidden `theta' of _flapack.zuncsd to C/Fortran array" );
73615 } else {
73616 theta = (double *)(PyArray_DATA(capi_theta_tmp)((void *)((PyArrayObject_fields *)(capi_theta_tmp))->data));
73617
73618 /* Processing variable u1 */
73619 u1_Dims[0]=(compute_u1?p:0),u1_Dims[1]=(compute_u1?p:0);
73620 capi_u1_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
73621 capi_u1_tmp = array_from_pyobj(NPY_CDOUBLE,u1_Dims,u1_Rank,capi_u1_intent,Py_None(&_Py_NoneStruct));
73622 if (capi_u1_tmp == NULL((void*)0)) {
73623 if (!PyErr_Occurred())
73624 PyErr_SetString(_flapack_error,"failed in converting hidden `u1' of _flapack.zuncsd to C/Fortran array" );
73625 } else {
73626 u1 = (complex_double *)(PyArray_DATA(capi_u1_tmp)((void *)((PyArrayObject_fields *)(capi_u1_tmp))->data));
73627
73628 /* Processing variable u2 */
73629 u2_Dims[0]=(compute_u2?mmp:0),u2_Dims[1]=(compute_u2?mmp:0);
73630 capi_u2_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
73631 capi_u2_tmp = array_from_pyobj(NPY_CDOUBLE,u2_Dims,u2_Rank,capi_u2_intent,Py_None(&_Py_NoneStruct));
73632 if (capi_u2_tmp == NULL((void*)0)) {
73633 if (!PyErr_Occurred())
73634 PyErr_SetString(_flapack_error,"failed in converting hidden `u2' of _flapack.zuncsd to C/Fortran array" );
73635 } else {
73636 u2 = (complex_double *)(PyArray_DATA(capi_u2_tmp)((void *)((PyArrayObject_fields *)(capi_u2_tmp))->data));
73637
73638 /* Processing variable v1t */
73639 v1t_Dims[0]=(compute_v1t?q:0),v1t_Dims[1]=(compute_v1t?q:0);
73640 capi_v1t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
73641 capi_v1t_tmp = array_from_pyobj(NPY_CDOUBLE,v1t_Dims,v1t_Rank,capi_v1t_intent,Py_None(&_Py_NoneStruct));
73642 if (capi_v1t_tmp == NULL((void*)0)) {
73643 if (!PyErr_Occurred())
73644 PyErr_SetString(_flapack_error,"failed in converting hidden `v1t' of _flapack.zuncsd to C/Fortran array" );
73645 } else {
73646 v1t = (complex_double *)(PyArray_DATA(capi_v1t_tmp)((void *)((PyArrayObject_fields *)(capi_v1t_tmp))->data));
73647
73648 /* Processing variable v2t */
73649 v2t_Dims[0]=(compute_v2t?mmq:0),v2t_Dims[1]=(compute_v2t?mmq:0);
73650 capi_v2t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
73651 capi_v2t_tmp = array_from_pyobj(NPY_CDOUBLE,v2t_Dims,v2t_Rank,capi_v2t_intent,Py_None(&_Py_NoneStruct));
73652 if (capi_v2t_tmp == NULL((void*)0)) {
73653 if (!PyErr_Occurred())
73654 PyErr_SetString(_flapack_error,"failed in converting hidden `v2t' of _flapack.zuncsd to C/Fortran array" );
73655 } else {
73656 v2t = (complex_double *)(PyArray_DATA(capi_v2t_tmp)((void *)((PyArrayObject_fields *)(capi_v2t_tmp))->data));
73657
73658 /* Processing variable ldu1 */
73659 ldu1 = MAX(1,p)((1 > p) ? (1) : (p));
73660 /* Processing variable ldu2 */
73661 ldu2 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp));
73662 /* Processing variable ldv1t */
73663 ldv1t = MAX(1,q)((1 > q) ? (1) : (q));
73664 /* Processing variable ldv2t */
73665 ldv2t = MAX(1,mmq)((1 > mmq) ? (1) : (mmq));
73666 /* Processing variable iwork */
73667 iwork_Dims[0]=p+mmp-MIN(MIN(p,mmp),MIN(q,mmq))((((p < mmp) ? (p) : (mmp)) < ((q < mmq) ? (q) : (mmq
))) ? (((p < mmp) ? (p) : (mmp))) : (((q < mmq) ? (q) :
(mmq))))
;
73668 capi_iwork_intent |= F2PY_INTENT_HIDE8;
73669 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
73670 if (capi_iwork_tmp == NULL((void*)0)) {
73671 if (!PyErr_Occurred())
73672 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.zuncsd to C/Fortran array" );
73673 } else {
73674 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
73675
73676 /* Processing variable lrwork */
73677 if (lrwork_capi == Py_None(&_Py_NoneStruct)) lrwork = 5*MAX(1,q-1)((1 > q-1) ? (1) : (q-1))+4*MAX(1,q)((1 > q) ? (1) : (q))+8*q+1; else
73678 f2py_success = int_from_pyobj(&lrwork,lrwork_capi,"_flapack.zuncsd() 8th keyword (lrwork) can't be converted to int");
73679 if (f2py_success) {
73680 CHECKSCALAR(lrwork==-1||lrwork>0,"lrwork==-1||lrwork>0","8th keyword lrwork","zuncsd:lrwork=%d",lrwork)if (!(lrwork==-1||lrwork>0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zuncsd:lrwork=%d", "(""lrwork==-1||lrwork>0"") failed for "
"8th keyword lrwork", lrwork); PyErr_SetString(_flapack_error
,errstring); } else
{
73681 /* Processing variable m */
73682 m = p+mmp;
73683 CHECKSCALAR(p+mmp==q+mmq,"p+mmp==q+mmq","hidden m","zuncsd:m=%d",m)if (!(p+mmp==q+mmq)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zuncsd:m=%d", "(""p+mmp==q+mmq"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
73684 /* Processing variable x12 */
73685 capi_x12_intent |= (capi_overwrite_x12?0:F2PY_INTENT_COPY32);
73686 x12_Dims[0]=p,x12_Dims[1]=mmq;
73687 capi_x12_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
73688 capi_x12_tmp = array_from_pyobj(NPY_CDOUBLE,x12_Dims,x12_Rank,capi_x12_intent,x12_capi);
73689 if (capi_x12_tmp == NULL((void*)0)) {
73690 if (!PyErr_Occurred())
73691 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `x12' of _flapack.zuncsd to C/Fortran array" );
73692 } else {
73693 x12 = (complex_double *)(PyArray_DATA(capi_x12_tmp)((void *)((PyArrayObject_fields *)(capi_x12_tmp))->data));
73694
73695 CHECKARRAY(mmq==shape(x12,1)||p==shape(x12,0),"mmq==shape(x12,1)||p==shape(x12,0)","2nd argument x12")if (!(mmq==x12_Dims[1]||p==x12_Dims[0])) { PyErr_SetString(_flapack_error
,"(""mmq==shape(x12,1)||p==shape(x12,0)"") failed for ""2nd argument x12"
); } else
{
73696 /* Processing variable x21 */
73697 capi_x21_intent |= (capi_overwrite_x21?0:F2PY_INTENT_COPY32);
73698 x21_Dims[0]=mmp,x21_Dims[1]=q;
73699 capi_x21_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
73700 capi_x21_tmp = array_from_pyobj(NPY_CDOUBLE,x21_Dims,x21_Rank,capi_x21_intent,x21_capi);
73701 if (capi_x21_tmp == NULL((void*)0)) {
73702 if (!PyErr_Occurred())
73703 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `x21' of _flapack.zuncsd to C/Fortran array" );
73704 } else {
73705 x21 = (complex_double *)(PyArray_DATA(capi_x21_tmp)((void *)((PyArrayObject_fields *)(capi_x21_tmp))->data));
73706
73707 CHECKARRAY(mmp==shape(x21,0)||q==shape(x21,1),"mmp==shape(x21,0)||q==shape(x21,1)","3rd argument x21")if (!(mmp==x21_Dims[0]||q==x21_Dims[1])) { PyErr_SetString(_flapack_error
,"(""mmp==shape(x21,0)||q==shape(x21,1)"") failed for ""3rd argument x21"
); } else
{
73708 /* Processing variable ldx12 */
73709 ldx12 = MAX(1,shape(x12,0))((1 > x12_Dims[0]) ? (1) : (x12_Dims[0]));
73710 /* Processing variable ldx21 */
73711 ldx21 = MAX(1,shape(x21,0))((1 > x21_Dims[0]) ? (1) : (x21_Dims[0]));
73712 /* Processing variable rwork */
73713 rwork_Dims[0]=lrwork;
73714 capi_rwork_intent |= F2PY_INTENT_HIDE8;
73715 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
73716 if (capi_rwork_tmp == NULL((void*)0)) {
73717 if (!PyErr_Occurred())
73718 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zuncsd to C/Fortran array" );
73719 } else {
73720 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
73721
73722 /* Processing variable lwork */
73723 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = 2*m+MAX(1,MAX(mmp,mmq))((1 > ((mmp > mmq) ? (mmp) : (mmq))) ? (1) : (((mmp >
mmq) ? (mmp) : (mmq))))
+1; else
73724 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zuncsd() 7th keyword (lwork) can't be converted to int");
73725 if (f2py_success) {
73726 CHECKSCALAR(lwork==-1||lwork>0,"lwork==-1||lwork>0","7th keyword lwork","zuncsd:lwork=%d",lwork)if (!(lwork==-1||lwork>0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zuncsd:lwork=%d", "(""lwork==-1||lwork>0"") failed for "
"7th keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
73727 /* Processing variable work */
73728 work_Dims[0]=lwork;
73729 capi_work_intent |= F2PY_INTENT_HIDE8;
73730 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
73731 if (capi_work_tmp == NULL((void*)0)) {
73732 if (!PyErr_Occurred())
73733 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zuncsd to C/Fortran array" );
73734 } else {
73735 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
73736
73737/*end of frompyobj*/
73738#ifdef F2PY_REPORT_ATEXIT
73739f2py_start_call_clock();
73740#endif
73741/*callfortranroutine*/
73742 (*f2py_func)((compute_u1?"Y":"N"),(compute_u2?"Y":"N"),(compute_v1t?"Y":"N"),(compute_v2t?"Y":"N"),(trans?"T":"N"),(signs?"O":"D"),&m,&p,&q,x11,&ldx11,x12,&ldx12,x21,&ldx21,x22,&ldx22,theta,u1,&ldu1,u2,&ldu2,v1t,&ldv1t,v2t,&ldv2t,work,&lwork,rwork,&lrwork,iwork,&info) ;
73743 /*(*f2py_func)(&compute_u1,&compute_u2,&compute_v1t,&compute_v2t,&trans,&signs,&m,&p,&q,x11,&ldx11,x12,&ldx12,x21,&ldx21,x22,&ldx22,theta,u1,&ldu1,u2,&ldu2,v1t,&ldv1t,v2t,&ldv2t,work,&lwork,rwork,&lrwork,iwork,&info,&mmp,&mmq);*/
73744if (PyErr_Occurred())
73745 f2py_success = 0;
73746#ifdef F2PY_REPORT_ATEXIT
73747f2py_stop_call_clock();
73748#endif
73749/*end of callfortranroutine*/
73750 if (f2py_success) {
73751/*pyobjfrom*/
73752/*end of pyobjfrom*/
73753 CFUNCSMESS("Building return value.\n");
73754 capi_buildvalue = Py_BuildValue("NNNNNNNNNi",capi_x11_tmp,capi_x12_tmp,capi_x21_tmp,capi_x22_tmp,capi_theta_tmp,capi_u1_tmp,capi_u2_tmp,capi_v1t_tmp,capi_v2t_tmp,info);
73755/*closepyobjfrom*/
73756/*end of closepyobjfrom*/
73757 } /*if (f2py_success) after callfortranroutine*/
73758/*cleanupfrompyobj*/
73759 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
73760 } /*if (capi_work_tmp == NULL) ... else of work*/
73761 /* End of cleaning variable work */
73762 } /*CHECKSCALAR(lwork==-1||lwork>0)*/
73763 } /*if (f2py_success) of lwork*/
73764 /* End of cleaning variable lwork */
73765 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
73766 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
73767 /* End of cleaning variable rwork */
73768 /* End of cleaning variable ldx21 */
73769 /* End of cleaning variable ldx12 */
73770 } /*CHECKARRAY(mmp==shape(x21,0)||q==shape(x21,1))*/
73771 } /*if (capi_x21_tmp == NULL) ... else of x21*/
73772 /* End of cleaning variable x21 */
73773 } /*CHECKARRAY(mmq==shape(x12,1)||p==shape(x12,0))*/
73774 } /*if (capi_x12_tmp == NULL) ... else of x12*/
73775 /* End of cleaning variable x12 */
73776 } /*CHECKSCALAR(p+mmp==q+mmq)*/
73777 /* End of cleaning variable m */
73778 } /*CHECKSCALAR(lrwork==-1||lrwork>0)*/
73779 } /*if (f2py_success) of lrwork*/
73780 /* End of cleaning variable lrwork */
73781 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
73782 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
73783 /* End of cleaning variable iwork */
73784 /* End of cleaning variable ldv2t */
73785 /* End of cleaning variable ldv1t */
73786 /* End of cleaning variable ldu2 */
73787 /* End of cleaning variable ldu1 */
73788 } /*if (capi_v2t_tmp == NULL) ... else of v2t*/
73789 /* End of cleaning variable v2t */
73790 } /*if (capi_v1t_tmp == NULL) ... else of v1t*/
73791 /* End of cleaning variable v1t */
73792 } /*if (capi_u2_tmp == NULL) ... else of u2*/
73793 /* End of cleaning variable u2 */
73794 } /*if (capi_u1_tmp == NULL) ... else of u1*/
73795 /* End of cleaning variable u1 */
73796 } /*if (capi_theta_tmp == NULL) ... else of theta*/
73797 /* End of cleaning variable theta */
73798 /* End of cleaning variable ldx22 */
73799 /* End of cleaning variable ldx11 */
73800 /* End of cleaning variable mmq */
73801 /* End of cleaning variable mmp */
73802 /* End of cleaning variable q */
73803 /* End of cleaning variable p */
73804 /* End of cleaning variable info */
73805 } /*if (capi_x22_tmp == NULL) ... else of x22*/
73806 /* End of cleaning variable x22 */
73807 } /*if (capi_x11_tmp == NULL) ... else of x11*/
73808 /* End of cleaning variable x11 */
73809 } /*CHECKSCALAR(signs==0||signs==1)*/
73810 } /*if (f2py_success) of signs*/
73811 /* End of cleaning variable signs */
73812 } /*CHECKSCALAR(trans==0||trans==1)*/
73813 } /*if (f2py_success) of trans*/
73814 /* End of cleaning variable trans */
73815 } /*CHECKSCALAR(compute_v2t==0||compute_v2t==1)*/
73816 } /*if (f2py_success) of compute_v2t*/
73817 /* End of cleaning variable compute_v2t */
73818 } /*CHECKSCALAR(compute_v1t==0||compute_v1t==1)*/
73819 } /*if (f2py_success) of compute_v1t*/
73820 /* End of cleaning variable compute_v1t */
73821 } /*CHECKSCALAR(compute_u2==0||compute_u2==1)*/
73822 } /*if (f2py_success) of compute_u2*/
73823 /* End of cleaning variable compute_u2 */
73824 } /*CHECKSCALAR(compute_u1==0||compute_u1==1)*/
73825 } /*if (f2py_success) of compute_u1*/
73826 /* End of cleaning variable compute_u1 */
73827/*end of cleanupfrompyobj*/
73828 if (capi_buildvalue == NULL((void*)0)) {
73829/*routdebugfailure*/
73830 } else {
73831/*routdebugleave*/
73832 }
73833 CFUNCSMESS("Freeing memory.\n");
73834/*freemem*/
73835#ifdef F2PY_REPORT_ATEXIT
73836f2py_stop_clock();
73837#endif
73838 return capi_buildvalue;
73839}
73840/******************************* end of zuncsd *******************************/
73841
73842/******************************** cuncsd_lwork ********************************/
73843static char doc_f2py_rout__flapack_cuncsd_lwork[] = "\
73844work,rwork,info = cuncsd_lwork(m,p,q)\n\nWrapper for ``cuncsd_lwork``.\
73845\n\nParameters\n----------\n"
73846"m : input int\n"
73847"p : input int\n"
73848"q : input int\n"
73849"\nReturns\n-------\n"
73850"work : complex\n"
73851"rwork : float\n"
73852"info : int";
73853/* extern void F_FUNC(cuncsd ,CUNCSD )(char*,char*,char*,char*,char*,char*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */
73854static PyObject *f2py_rout__flapack_cuncsd_lwork(const PyObject *capi_self,
73855 PyObject *capi_args,
73856 PyObject *capi_keywds,
73857 void (*f2py_func)(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) {
73858 PyObject * volatile capi_buildvalue = NULL((void*)0);
73859 volatile int f2py_success = 1;
73860/*decl*/
73861
73862 int m = 0;
73863 PyObject *m_capi = Py_None(&_Py_NoneStruct);
73864 int p = 0;
73865 PyObject *p_capi = Py_None(&_Py_NoneStruct);
73866 int q = 0;
73867 PyObject *q_capi = Py_None(&_Py_NoneStruct);
73868 complex_float x11;
73869 int ldx11 = 0;
73870 complex_float x12;
73871 int ldx12 = 0;
73872 complex_float x21;
73873 int ldx21 = 0;
73874 complex_float x22;
73875 int ldx22 = 0;
73876 float theta = 0;
73877 complex_float u1;
73878 int ldu1 = 0;
73879 complex_float u2;
73880 int ldu2 = 0;
73881 complex_float v1t;
73882 int ldv1t = 0;
73883 complex_float v2t;
73884 int ldv2t = 0;
73885 complex_float work;
73886 PyObject *work_capi = Py_None(&_Py_NoneStruct);
73887 int lwork = 0;
73888 float rwork = 0;
73889 int lrwork = 0;
73890 int iwork = 0;
73891 int info = 0;
73892 int mmp = 0;
73893 int mmq = 0;
73894 static char *capi_kwlist[] = {"m","p","q",NULL((void*)0)};
73895
73896/*routdebugenter*/
73897#ifdef F2PY_REPORT_ATEXIT
73898f2py_start_clock();
73899#endif
73900 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
73901 "OOO:_flapack.cuncsd_lwork",\
73902 capi_kwlist,&m_capi,&p_capi,&q_capi))
73903 return NULL((void*)0);
73904/*frompyobj*/
73905 /* Processing variable m */
73906 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cuncsd_lwork() 1st argument (m) can't be converted to int");
73907 if (f2py_success) {
73908 /* Processing variable p */
73909 f2py_success = int_from_pyobj(&p,p_capi,"_flapack.cuncsd_lwork() 2nd argument (p) can't be converted to int");
73910 if (f2py_success) {
73911 /* Processing variable q */
73912 f2py_success = int_from_pyobj(&q,q_capi,"_flapack.cuncsd_lwork() 3rd argument (q) can't be converted to int");
73913 if (f2py_success) {
73914 /* Processing variable x11 */
73915 /* Processing variable x22 */
73916 /* Processing variable x12 */
73917 /* Processing variable x21 */
73918 /* Processing variable theta */
73919 /* Processing variable u1 */
73920 /* Processing variable u2 */
73921 /* Processing variable v1t */
73922 /* Processing variable v2t */
73923 /* Processing variable iwork */
73924 /* Processing variable lwork */
73925 lwork = -1;
73926 /* Processing variable lrwork */
73927 lrwork = -1;
73928 /* Processing variable work */
73929 /* Processing variable rwork */
73930 /* Processing variable info */
73931 /* Processing variable mmp */
73932 mmp = m-p;
73933 /* Processing variable mmq */
73934 mmq = m-q;
73935 /* Processing variable ldx11 */
73936 ldx11 = MAX(1,p)((1 > p) ? (1) : (p));
73937 /* Processing variable ldx12 */
73938 ldx12 = MAX(1,p)((1 > p) ? (1) : (p));
73939 /* Processing variable ldx21 */
73940 ldx21 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp));
73941 /* Processing variable ldx22 */
73942 ldx22 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp));
73943 /* Processing variable ldu1 */
73944 ldu1 = MAX(1,p)((1 > p) ? (1) : (p));
73945 /* Processing variable ldu2 */
73946 ldu2 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp));
73947 /* Processing variable ldv1t */
73948 ldv1t = MAX(1,q)((1 > q) ? (1) : (q));
73949 /* Processing variable ldv2t */
73950 ldv2t = MAX(1,mmq)((1 > mmq) ? (1) : (mmq));
73951/*end of frompyobj*/
73952#ifdef F2PY_REPORT_ATEXIT
73953f2py_start_call_clock();
73954#endif
73955/*callfortranroutine*/
73956 (*f2py_func)("Y","Y","Y","Y","N","D",&m,&p,&q,&x11,&ldx11,&x12,&ldx12,&x21,&ldx21,&x22,&ldx22,&theta,&u1,&ldu1,&u2,&ldu2,&v1t,&ldv1t,&v2t,&ldv2t,&work,&lwork,&rwork,&lrwork,&iwork,&info) ;
73957 /*(*f2py_func)(&m,&p,&q,&x11,&ldx11,&x12,&ldx12,&x21,&ldx21,&x22,&ldx22,&theta,&u1,&ldu1,&u2,&ldu2,&v1t,&ldv1t,&v2t,&ldv2t,&work,&lwork,&rwork,&lrwork,&iwork,&info,&mmp,&mmq);*/
73958if (PyErr_Occurred())
73959 f2py_success = 0;
73960#ifdef F2PY_REPORT_ATEXIT
73961f2py_stop_call_clock();
73962#endif
73963/*end of callfortranroutine*/
73964 if (f2py_success) {
73965/*pyobjfrom*/
73966 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
73967/*end of pyobjfrom*/
73968 CFUNCSMESS("Building return value.\n");
73969 capi_buildvalue = Py_BuildValue("Nfi",work_capi,rwork,info);
73970/*closepyobjfrom*/
73971/*end of closepyobjfrom*/
73972 } /*if (f2py_success) after callfortranroutine*/
73973/*cleanupfrompyobj*/
73974 /* End of cleaning variable ldv2t */
73975 /* End of cleaning variable ldv1t */
73976 /* End of cleaning variable ldu2 */
73977 /* End of cleaning variable ldu1 */
73978 /* End of cleaning variable ldx22 */
73979 /* End of cleaning variable ldx21 */
73980 /* End of cleaning variable ldx12 */
73981 /* End of cleaning variable ldx11 */
73982 /* End of cleaning variable mmq */
73983 /* End of cleaning variable mmp */
73984 /* End of cleaning variable info */
73985 /* End of cleaning variable rwork */
73986 /* End of cleaning variable work */
73987 /* End of cleaning variable lrwork */
73988 /* End of cleaning variable lwork */
73989 /* End of cleaning variable iwork */
73990 /* End of cleaning variable v2t */
73991 /* End of cleaning variable v1t */
73992 /* End of cleaning variable u2 */
73993 /* End of cleaning variable u1 */
73994 /* End of cleaning variable theta */
73995 /* End of cleaning variable x21 */
73996 /* End of cleaning variable x12 */
73997 /* End of cleaning variable x22 */
73998 /* End of cleaning variable x11 */
73999 } /*if (f2py_success) of q*/
74000 /* End of cleaning variable q */
74001 } /*if (f2py_success) of p*/
74002 /* End of cleaning variable p */
74003 } /*if (f2py_success) of m*/
74004 /* End of cleaning variable m */
74005/*end of cleanupfrompyobj*/
74006 if (capi_buildvalue == NULL((void*)0)) {
74007/*routdebugfailure*/
74008 } else {
74009/*routdebugleave*/
74010 }
74011 CFUNCSMESS("Freeing memory.\n");
74012/*freemem*/
74013#ifdef F2PY_REPORT_ATEXIT
74014f2py_stop_clock();
74015#endif
74016 return capi_buildvalue;
74017}
74018/**************************** end of cuncsd_lwork ****************************/
74019
74020/******************************** zuncsd_lwork ********************************/
74021static char doc_f2py_rout__flapack_zuncsd_lwork[] = "\
74022work,rwork,info = zuncsd_lwork(m,p,q)\n\nWrapper for ``zuncsd_lwork``.\
74023\n\nParameters\n----------\n"
74024"m : input int\n"
74025"p : input int\n"
74026"q : input int\n"
74027"\nReturns\n-------\n"
74028"work : complex\n"
74029"rwork : float\n"
74030"info : int";
74031/* extern void F_FUNC(zuncsd ,ZUNCSD )(char*,char*,char*,char*,char*,char*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */
74032static PyObject *f2py_rout__flapack_zuncsd_lwork(const PyObject *capi_self,
74033 PyObject *capi_args,
74034 PyObject *capi_keywds,
74035 void (*f2py_func)(char*,char*,char*,char*,char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) {
74036 PyObject * volatile capi_buildvalue = NULL((void*)0);
74037 volatile int f2py_success = 1;
74038/*decl*/
74039
74040 int m = 0;
74041 PyObject *m_capi = Py_None(&_Py_NoneStruct);
74042 int p = 0;
74043 PyObject *p_capi = Py_None(&_Py_NoneStruct);
74044 int q = 0;
74045 PyObject *q_capi = Py_None(&_Py_NoneStruct);
74046 complex_double x11;
74047 int ldx11 = 0;
74048 complex_double x12;
74049 int ldx12 = 0;
74050 complex_double x21;
74051 int ldx21 = 0;
74052 complex_double x22;
74053 int ldx22 = 0;
74054 double theta = 0;
74055 complex_double u1;
74056 int ldu1 = 0;
74057 complex_double u2;
74058 int ldu2 = 0;
74059 complex_double v1t;
74060 int ldv1t = 0;
74061 complex_double v2t;
74062 int ldv2t = 0;
74063 complex_double work;
74064 PyObject *work_capi = Py_None(&_Py_NoneStruct);
74065 int lwork = 0;
74066 double rwork = 0;
74067 int lrwork = 0;
74068 int iwork = 0;
74069 int info = 0;
74070 int mmp = 0;
74071 int mmq = 0;
74072 static char *capi_kwlist[] = {"m","p","q",NULL((void*)0)};
74073
74074/*routdebugenter*/
74075#ifdef F2PY_REPORT_ATEXIT
74076f2py_start_clock();
74077#endif
74078 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
74079 "OOO:_flapack.zuncsd_lwork",\
74080 capi_kwlist,&m_capi,&p_capi,&q_capi))
74081 return NULL((void*)0);
74082/*frompyobj*/
74083 /* Processing variable m */
74084 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zuncsd_lwork() 1st argument (m) can't be converted to int");
74085 if (f2py_success) {
74086 /* Processing variable p */
74087 f2py_success = int_from_pyobj(&p,p_capi,"_flapack.zuncsd_lwork() 2nd argument (p) can't be converted to int");
74088 if (f2py_success) {
74089 /* Processing variable q */
74090 f2py_success = int_from_pyobj(&q,q_capi,"_flapack.zuncsd_lwork() 3rd argument (q) can't be converted to int");
74091 if (f2py_success) {
74092 /* Processing variable x11 */
74093 /* Processing variable x22 */
74094 /* Processing variable x12 */
74095 /* Processing variable x21 */
74096 /* Processing variable theta */
74097 /* Processing variable u1 */
74098 /* Processing variable u2 */
74099 /* Processing variable v1t */
74100 /* Processing variable v2t */
74101 /* Processing variable iwork */
74102 /* Processing variable lwork */
74103 lwork = -1;
74104 /* Processing variable lrwork */
74105 lrwork = -1;
74106 /* Processing variable work */
74107 /* Processing variable rwork */
74108 /* Processing variable info */
74109 /* Processing variable mmp */
74110 mmp = m-p;
74111 /* Processing variable mmq */
74112 mmq = m-q;
74113 /* Processing variable ldx11 */
74114 ldx11 = MAX(1,p)((1 > p) ? (1) : (p));
74115 /* Processing variable ldx12 */
74116 ldx12 = MAX(1,p)((1 > p) ? (1) : (p));
74117 /* Processing variable ldx21 */
74118 ldx21 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp));
74119 /* Processing variable ldx22 */
74120 ldx22 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp));
74121 /* Processing variable ldu1 */
74122 ldu1 = MAX(1,p)((1 > p) ? (1) : (p));
74123 /* Processing variable ldu2 */
74124 ldu2 = MAX(1,mmp)((1 > mmp) ? (1) : (mmp));
74125 /* Processing variable ldv1t */
74126 ldv1t = MAX(1,q)((1 > q) ? (1) : (q));
74127 /* Processing variable ldv2t */
74128 ldv2t = MAX(1,mmq)((1 > mmq) ? (1) : (mmq));
74129/*end of frompyobj*/
74130#ifdef F2PY_REPORT_ATEXIT
74131f2py_start_call_clock();
74132#endif
74133/*callfortranroutine*/
74134 (*f2py_func)("Y","Y","Y","Y","N","D",&m,&p,&q,&x11,&ldx11,&x12,&ldx12,&x21,&ldx21,&x22,&ldx22,&theta,&u1,&ldu1,&u2,&ldu2,&v1t,&ldv1t,&v2t,&ldv2t,&work,&lwork,&rwork,&lrwork,&iwork,&info) ;
74135 /*(*f2py_func)(&m,&p,&q,&x11,&ldx11,&x12,&ldx12,&x21,&ldx21,&x22,&ldx22,&theta,&u1,&ldu1,&u2,&ldu2,&v1t,&ldv1t,&v2t,&ldv2t,&work,&lwork,&rwork,&lrwork,&iwork,&info,&mmp,&mmq);*/
74136if (PyErr_Occurred())
74137 f2py_success = 0;
74138#ifdef F2PY_REPORT_ATEXIT
74139f2py_stop_call_clock();
74140#endif
74141/*end of callfortranroutine*/
74142 if (f2py_success) {
74143/*pyobjfrom*/
74144 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
74145/*end of pyobjfrom*/
74146 CFUNCSMESS("Building return value.\n");
74147 capi_buildvalue = Py_BuildValue("Ndi",work_capi,rwork,info);
74148/*closepyobjfrom*/
74149/*end of closepyobjfrom*/
74150 } /*if (f2py_success) after callfortranroutine*/
74151/*cleanupfrompyobj*/
74152 /* End of cleaning variable ldv2t */
74153 /* End of cleaning variable ldv1t */
74154 /* End of cleaning variable ldu2 */
74155 /* End of cleaning variable ldu1 */
74156 /* End of cleaning variable ldx22 */
74157 /* End of cleaning variable ldx21 */
74158 /* End of cleaning variable ldx12 */
74159 /* End of cleaning variable ldx11 */
74160 /* End of cleaning variable mmq */
74161 /* End of cleaning variable mmp */
74162 /* End of cleaning variable info */
74163 /* End of cleaning variable rwork */
74164 /* End of cleaning variable work */
74165 /* End of cleaning variable lrwork */
74166 /* End of cleaning variable lwork */
74167 /* End of cleaning variable iwork */
74168 /* End of cleaning variable v2t */
74169 /* End of cleaning variable v1t */
74170 /* End of cleaning variable u2 */
74171 /* End of cleaning variable u1 */
74172 /* End of cleaning variable theta */
74173 /* End of cleaning variable x21 */
74174 /* End of cleaning variable x12 */
74175 /* End of cleaning variable x22 */
74176 /* End of cleaning variable x11 */
74177 } /*if (f2py_success) of q*/
74178 /* End of cleaning variable q */
74179 } /*if (f2py_success) of p*/
74180 /* End of cleaning variable p */
74181 } /*if (f2py_success) of m*/
74182 /* End of cleaning variable m */
74183/*end of cleanupfrompyobj*/
74184 if (capi_buildvalue == NULL((void*)0)) {
74185/*routdebugfailure*/
74186 } else {
74187/*routdebugleave*/
74188 }
74189 CFUNCSMESS("Freeing memory.\n");
74190/*freemem*/
74191#ifdef F2PY_REPORT_ATEXIT
74192f2py_stop_clock();
74193#endif
74194 return capi_buildvalue;
74195}
74196/**************************** end of zuncsd_lwork ****************************/
74197
74198/*********************************** sorghr ***********************************/
74199static char doc_f2py_rout__flapack_sorghr[] = "\
74200ht,info = sorghr(a,tau,[lo,hi,lwork,overwrite_a])\n\nWrapper for ``sorghr``.\
74201\n\nParameters\n----------\n"
74202"a : input rank-2 array('f') with bounds (n,n)\n"
74203"tau : input rank-1 array('f') with bounds (n - 1)\n"
74204"\nOther Parameters\n----------------\n"
74205"lo : input int, optional\n Default: 0\n"
74206"hi : input int, optional\n Default: n-1\n"
74207"overwrite_a : input int, optional\n Default: 0\n"
74208"lwork : input int, optional\n Default: max(hi-lo,1)\n"
74209"\nReturns\n-------\n"
74210"ht : rank-2 array('f') with bounds (n,n) and a storage\n"
74211"info : int";
74212/* extern void F_FUNC(sorghr,SORGHR)(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */
74213static PyObject *f2py_rout__flapack_sorghr(const PyObject *capi_self,
74214 PyObject *capi_args,
74215 PyObject *capi_keywds,
74216 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
74217 PyObject * volatile capi_buildvalue = NULL((void*)0);
74218 volatile int f2py_success = 1;
74219/*decl*/
74220
74221 int n = 0;
74222 int lo = 0;
74223 PyObject *lo_capi = Py_None(&_Py_NoneStruct);
74224 int hi = 0;
74225 PyObject *hi_capi = Py_None(&_Py_NoneStruct);
74226 float *a = NULL((void*)0);
74227 npy_intp a_Dims[2] = {-1, -1};
74228 const int a_Rank = 2;
74229 PyArrayObject *capi_a_tmp = NULL((void*)0);
74230 int capi_a_intent = 0;
74231 int capi_overwrite_a = 0;
74232 PyObject *a_capi = Py_None(&_Py_NoneStruct);
74233 float *tau = NULL((void*)0);
74234 npy_intp tau_Dims[1] = {-1};
74235 const int tau_Rank = 1;
74236 PyArrayObject *capi_tau_tmp = NULL((void*)0);
74237 int capi_tau_intent = 0;
74238 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
74239 float *work = NULL((void*)0);
74240 npy_intp work_Dims[1] = {-1};
74241 const int work_Rank = 1;
74242 PyArrayObject *capi_work_tmp = NULL((void*)0);
74243 int capi_work_intent = 0;
74244 int lwork = 0;
74245 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
74246 int info = 0;
74247 static char *capi_kwlist[] = {"a","tau","lo","hi","lwork","overwrite_a",NULL((void*)0)};
74248
74249/*routdebugenter*/
74250#ifdef F2PY_REPORT_ATEXIT
74251f2py_start_clock();
74252#endif
74253 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
74254 "OO|OOOi:_flapack.sorghr",\
74255 capi_kwlist,&a_capi,&tau_capi,&lo_capi,&hi_capi,&lwork_capi,&capi_overwrite_a))
74256 return NULL((void*)0);
74257/*frompyobj*/
74258 /* Processing variable a */
74259 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
74260 ;
74261 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
74262 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
74263 if (capi_a_tmp == NULL((void*)0)) {
74264 if (!PyErr_Occurred())
74265 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sorghr to C/Fortran array" );
74266 } else {
74267 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
74268
74269 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
74270 /* Processing variable lo */
74271 if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else
74272 f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.sorghr() 1st keyword (lo) can't be converted to int");
74273 if (f2py_success) {
74274 /* Processing variable info */
74275 /* Processing variable n */
74276 n = shape(a,0)a_Dims[0];
74277 /* Processing variable hi */
74278 if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else
74279 f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.sorghr() 2nd keyword (hi) can't be converted to int");
74280 if (f2py_success) {
74281 /* Processing variable tau */
74282 tau_Dims[0]=n - 1;
74283 capi_tau_intent |= F2PY_INTENT_IN1;
74284 capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,tau_capi);
74285 if (capi_tau_tmp == NULL((void*)0)) {
74286 if (!PyErr_Occurred())
74287 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.sorghr to C/Fortran array" );
74288 } else {
74289 tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
74290
74291 /* Processing variable lwork */
74292 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(hi-lo,1)((hi-lo > 1) ? (hi-lo) : (1)); else
74293 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sorghr() 3rd keyword (lwork) can't be converted to int");
74294 if (f2py_success) {
74295 CHECKSCALAR(lwork>=hi-lo,"lwork>=hi-lo","3rd keyword lwork","sorghr:lwork=%d",lwork)if (!(lwork>=hi-lo)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sorghr:lwork=%d", "(""lwork>=hi-lo"") failed for "
"3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
74296 /* Processing variable work */
74297 work_Dims[0]=lwork;
74298 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
74299 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
74300 if (capi_work_tmp == NULL((void*)0)) {
74301 if (!PyErr_Occurred())
74302 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sorghr to C/Fortran array" );
74303 } else {
74304 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
74305
74306/*end of frompyobj*/
74307#ifdef F2PY_REPORT_ATEXIT
74308f2py_start_call_clock();
74309#endif
74310/*callfortranroutine*/
74311 { hi++; lo++; (*f2py_func)(&n,&lo,&hi,a,&n,tau,work,&lwork,&info); } ;
74312 /*(*f2py_func)(&n,&lo,&hi,a,tau,work,&lwork,&info);*/
74313if (PyErr_Occurred())
74314 f2py_success = 0;
74315#ifdef F2PY_REPORT_ATEXIT
74316f2py_stop_call_clock();
74317#endif
74318/*end of callfortranroutine*/
74319 if (f2py_success) {
74320/*pyobjfrom*/
74321/*end of pyobjfrom*/
74322 CFUNCSMESS("Building return value.\n");
74323 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
74324/*closepyobjfrom*/
74325/*end of closepyobjfrom*/
74326 } /*if (f2py_success) after callfortranroutine*/
74327/*cleanupfrompyobj*/
74328 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
74329 } /*if (capi_work_tmp == NULL) ... else of work*/
74330 /* End of cleaning variable work */
74331 } /*CHECKSCALAR(lwork>=hi-lo)*/
74332 } /*if (f2py_success) of lwork*/
74333 /* End of cleaning variable lwork */
74334 if((PyObject *)capi_tau_tmp!=tau_capi) {
74335 Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); }
74336 } /*if (capi_tau_tmp == NULL) ... else of tau*/
74337 /* End of cleaning variable tau */
74338 } /*if (f2py_success) of hi*/
74339 /* End of cleaning variable hi */
74340 /* End of cleaning variable n */
74341 /* End of cleaning variable info */
74342 } /*if (f2py_success) of lo*/
74343 /* End of cleaning variable lo */
74344 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
74345 } /*if (capi_a_tmp == NULL) ... else of a*/
74346 /* End of cleaning variable a */
74347/*end of cleanupfrompyobj*/
74348 if (capi_buildvalue == NULL((void*)0)) {
74349/*routdebugfailure*/
74350 } else {
74351/*routdebugleave*/
74352 }
74353 CFUNCSMESS("Freeing memory.\n");
74354/*freemem*/
74355#ifdef F2PY_REPORT_ATEXIT
74356f2py_stop_clock();
74357#endif
74358 return capi_buildvalue;
74359}
74360/******************************* end of sorghr *******************************/
74361
74362/*********************************** dorghr ***********************************/
74363static char doc_f2py_rout__flapack_dorghr[] = "\
74364ht,info = dorghr(a,tau,[lo,hi,lwork,overwrite_a])\n\nWrapper for ``dorghr``.\
74365\n\nParameters\n----------\n"
74366"a : input rank-2 array('d') with bounds (n,n)\n"
74367"tau : input rank-1 array('d') with bounds (n - 1)\n"
74368"\nOther Parameters\n----------------\n"
74369"lo : input int, optional\n Default: 0\n"
74370"hi : input int, optional\n Default: n-1\n"
74371"overwrite_a : input int, optional\n Default: 0\n"
74372"lwork : input int, optional\n Default: max(hi-lo,1)\n"
74373"\nReturns\n-------\n"
74374"ht : rank-2 array('d') with bounds (n,n) and a storage\n"
74375"info : int";
74376/* extern void F_FUNC(dorghr,DORGHR)(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */
74377static PyObject *f2py_rout__flapack_dorghr(const PyObject *capi_self,
74378 PyObject *capi_args,
74379 PyObject *capi_keywds,
74380 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
74381 PyObject * volatile capi_buildvalue = NULL((void*)0);
74382 volatile int f2py_success = 1;
74383/*decl*/
74384
74385 int n = 0;
74386 int lo = 0;
74387 PyObject *lo_capi = Py_None(&_Py_NoneStruct);
74388 int hi = 0;
74389 PyObject *hi_capi = Py_None(&_Py_NoneStruct);
74390 double *a = NULL((void*)0);
74391 npy_intp a_Dims[2] = {-1, -1};
74392 const int a_Rank = 2;
74393 PyArrayObject *capi_a_tmp = NULL((void*)0);
74394 int capi_a_intent = 0;
74395 int capi_overwrite_a = 0;
74396 PyObject *a_capi = Py_None(&_Py_NoneStruct);
74397 double *tau = NULL((void*)0);
74398 npy_intp tau_Dims[1] = {-1};
74399 const int tau_Rank = 1;
74400 PyArrayObject *capi_tau_tmp = NULL((void*)0);
74401 int capi_tau_intent = 0;
74402 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
74403 double *work = NULL((void*)0);
74404 npy_intp work_Dims[1] = {-1};
74405 const int work_Rank = 1;
74406 PyArrayObject *capi_work_tmp = NULL((void*)0);
74407 int capi_work_intent = 0;
74408 int lwork = 0;
74409 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
74410 int info = 0;
74411 static char *capi_kwlist[] = {"a","tau","lo","hi","lwork","overwrite_a",NULL((void*)0)};
74412
74413/*routdebugenter*/
74414#ifdef F2PY_REPORT_ATEXIT
74415f2py_start_clock();
74416#endif
74417 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
74418 "OO|OOOi:_flapack.dorghr",\
74419 capi_kwlist,&a_capi,&tau_capi,&lo_capi,&hi_capi,&lwork_capi,&capi_overwrite_a))
74420 return NULL((void*)0);
74421/*frompyobj*/
74422 /* Processing variable a */
74423 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
74424 ;
74425 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
74426 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
74427 if (capi_a_tmp == NULL((void*)0)) {
74428 if (!PyErr_Occurred())
74429 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dorghr to C/Fortran array" );
74430 } else {
74431 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
74432
74433 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
74434 /* Processing variable lo */
74435 if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else
74436 f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.dorghr() 1st keyword (lo) can't be converted to int");
74437 if (f2py_success) {
74438 /* Processing variable info */
74439 /* Processing variable n */
74440 n = shape(a,0)a_Dims[0];
74441 /* Processing variable hi */
74442 if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else
74443 f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.dorghr() 2nd keyword (hi) can't be converted to int");
74444 if (f2py_success) {
74445 /* Processing variable tau */
74446 tau_Dims[0]=n - 1;
74447 capi_tau_intent |= F2PY_INTENT_IN1;
74448 capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,tau_capi);
74449 if (capi_tau_tmp == NULL((void*)0)) {
74450 if (!PyErr_Occurred())
74451 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.dorghr to C/Fortran array" );
74452 } else {
74453 tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
74454
74455 /* Processing variable lwork */
74456 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(hi-lo,1)((hi-lo > 1) ? (hi-lo) : (1)); else
74457 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dorghr() 3rd keyword (lwork) can't be converted to int");
74458 if (f2py_success) {
74459 CHECKSCALAR(lwork>=hi-lo,"lwork>=hi-lo","3rd keyword lwork","dorghr:lwork=%d",lwork)if (!(lwork>=hi-lo)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dorghr:lwork=%d", "(""lwork>=hi-lo"") failed for "
"3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
74460 /* Processing variable work */
74461 work_Dims[0]=lwork;
74462 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
74463 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
74464 if (capi_work_tmp == NULL((void*)0)) {
74465 if (!PyErr_Occurred())
74466 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dorghr to C/Fortran array" );
74467 } else {
74468 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
74469
74470/*end of frompyobj*/
74471#ifdef F2PY_REPORT_ATEXIT
74472f2py_start_call_clock();
74473#endif
74474/*callfortranroutine*/
74475 { hi++; lo++; (*f2py_func)(&n,&lo,&hi,a,&n,tau,work,&lwork,&info); } ;
74476 /*(*f2py_func)(&n,&lo,&hi,a,tau,work,&lwork,&info);*/
74477if (PyErr_Occurred())
74478 f2py_success = 0;
74479#ifdef F2PY_REPORT_ATEXIT
74480f2py_stop_call_clock();
74481#endif
74482/*end of callfortranroutine*/
74483 if (f2py_success) {
74484/*pyobjfrom*/
74485/*end of pyobjfrom*/
74486 CFUNCSMESS("Building return value.\n");
74487 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
74488/*closepyobjfrom*/
74489/*end of closepyobjfrom*/
74490 } /*if (f2py_success) after callfortranroutine*/
74491/*cleanupfrompyobj*/
74492 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
74493 } /*if (capi_work_tmp == NULL) ... else of work*/
74494 /* End of cleaning variable work */
74495 } /*CHECKSCALAR(lwork>=hi-lo)*/
74496 } /*if (f2py_success) of lwork*/
74497 /* End of cleaning variable lwork */
74498 if((PyObject *)capi_tau_tmp!=tau_capi) {
74499 Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); }
74500 } /*if (capi_tau_tmp == NULL) ... else of tau*/
74501 /* End of cleaning variable tau */
74502 } /*if (f2py_success) of hi*/
74503 /* End of cleaning variable hi */
74504 /* End of cleaning variable n */
74505 /* End of cleaning variable info */
74506 } /*if (f2py_success) of lo*/
74507 /* End of cleaning variable lo */
74508 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
74509 } /*if (capi_a_tmp == NULL) ... else of a*/
74510 /* End of cleaning variable a */
74511/*end of cleanupfrompyobj*/
74512 if (capi_buildvalue == NULL((void*)0)) {
74513/*routdebugfailure*/
74514 } else {
74515/*routdebugleave*/
74516 }
74517 CFUNCSMESS("Freeing memory.\n");
74518/*freemem*/
74519#ifdef F2PY_REPORT_ATEXIT
74520f2py_stop_clock();
74521#endif
74522 return capi_buildvalue;
74523}
74524/******************************* end of dorghr *******************************/
74525
74526/******************************** sorghr_lwork ********************************/
74527static char doc_f2py_rout__flapack_sorghr_lwork[] = "\
74528work,info = sorghr_lwork(n,[lo,hi])\n\nWrapper for ``sorghr_lwork``.\
74529\n\nParameters\n----------\n"
74530"n : input int\n"
74531"\nOther Parameters\n----------------\n"
74532"lo : input int, optional\n Default: 0\n"
74533"hi : input int, optional\n Default: n-1\n"
74534"\nReturns\n-------\n"
74535"work : float\n"
74536"info : int";
74537/* extern void F_FUNC(sorghr ,SORGHR )(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */
74538static PyObject *f2py_rout__flapack_sorghr_lwork(const PyObject *capi_self,
74539 PyObject *capi_args,
74540 PyObject *capi_keywds,
74541 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
74542 PyObject * volatile capi_buildvalue = NULL((void*)0);
74543 volatile int f2py_success = 1;
74544/*decl*/
74545
74546 int n = 0;
74547 PyObject *n_capi = Py_None(&_Py_NoneStruct);
74548 int lo = 0;
74549 PyObject *lo_capi = Py_None(&_Py_NoneStruct);
74550 int hi = 0;
74551 PyObject *hi_capi = Py_None(&_Py_NoneStruct);
74552 float a = 0;
74553 float tau = 0;
74554 float work = 0;
74555 int lwork = 0;
74556 int info = 0;
74557 static char *capi_kwlist[] = {"n","lo","hi",NULL((void*)0)};
74558
74559/*routdebugenter*/
74560#ifdef F2PY_REPORT_ATEXIT
74561f2py_start_clock();
74562#endif
74563 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
74564 "O|OO:_flapack.sorghr_lwork",\
74565 capi_kwlist,&n_capi,&lo_capi,&hi_capi))
74566 return NULL((void*)0);
74567/*frompyobj*/
74568 /* Processing variable n */
74569 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sorghr_lwork() 1st argument (n) can't be converted to int");
74570 if (f2py_success) {
74571 /* Processing variable a */
74572 /* Processing variable lo */
74573 if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else
74574 f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.sorghr_lwork() 1st keyword (lo) can't be converted to int");
74575 if (f2py_success) {
74576 /* Processing variable tau */
74577 /* Processing variable work */
74578 /* Processing variable lwork */
74579 lwork = -1;
74580 /* Processing variable info */
74581 /* Processing variable hi */
74582 if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else
74583 f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.sorghr_lwork() 2nd keyword (hi) can't be converted to int");
74584 if (f2py_success) {
74585/*end of frompyobj*/
74586#ifdef F2PY_REPORT_ATEXIT
74587f2py_start_call_clock();
74588#endif
74589/*callfortranroutine*/
74590 { hi++; lo++; (*f2py_func)(&n,&lo,&hi,&a,&n,&tau,&work,&lwork,&info); } ;
74591 /*(*f2py_func)(&n,&lo,&hi,&a,&tau,&work,&lwork,&info);*/
74592if (PyErr_Occurred())
74593 f2py_success = 0;
74594#ifdef F2PY_REPORT_ATEXIT
74595f2py_stop_call_clock();
74596#endif
74597/*end of callfortranroutine*/
74598 if (f2py_success) {
74599/*pyobjfrom*/
74600/*end of pyobjfrom*/
74601 CFUNCSMESS("Building return value.\n");
74602 capi_buildvalue = Py_BuildValue("fi",work,info);
74603/*closepyobjfrom*/
74604/*end of closepyobjfrom*/
74605 } /*if (f2py_success) after callfortranroutine*/
74606/*cleanupfrompyobj*/
74607 } /*if (f2py_success) of hi*/
74608 /* End of cleaning variable hi */
74609 /* End of cleaning variable info */
74610 /* End of cleaning variable lwork */
74611 /* End of cleaning variable work */
74612 /* End of cleaning variable tau */
74613 } /*if (f2py_success) of lo*/
74614 /* End of cleaning variable lo */
74615 /* End of cleaning variable a */
74616 } /*if (f2py_success) of n*/
74617 /* End of cleaning variable n */
74618/*end of cleanupfrompyobj*/
74619 if (capi_buildvalue == NULL((void*)0)) {
74620/*routdebugfailure*/
74621 } else {
74622/*routdebugleave*/
74623 }
74624 CFUNCSMESS("Freeing memory.\n");
74625/*freemem*/
74626#ifdef F2PY_REPORT_ATEXIT
74627f2py_stop_clock();
74628#endif
74629 return capi_buildvalue;
74630}
74631/**************************** end of sorghr_lwork ****************************/
74632
74633/******************************** dorghr_lwork ********************************/
74634static char doc_f2py_rout__flapack_dorghr_lwork[] = "\
74635work,info = dorghr_lwork(n,[lo,hi])\n\nWrapper for ``dorghr_lwork``.\
74636\n\nParameters\n----------\n"
74637"n : input int\n"
74638"\nOther Parameters\n----------------\n"
74639"lo : input int, optional\n Default: 0\n"
74640"hi : input int, optional\n Default: n-1\n"
74641"\nReturns\n-------\n"
74642"work : float\n"
74643"info : int";
74644/* extern void F_FUNC(dorghr ,DORGHR )(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */
74645static PyObject *f2py_rout__flapack_dorghr_lwork(const PyObject *capi_self,
74646 PyObject *capi_args,
74647 PyObject *capi_keywds,
74648 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
74649 PyObject * volatile capi_buildvalue = NULL((void*)0);
74650 volatile int f2py_success = 1;
74651/*decl*/
74652
74653 int n = 0;
74654 PyObject *n_capi = Py_None(&_Py_NoneStruct);
74655 int lo = 0;
74656 PyObject *lo_capi = Py_None(&_Py_NoneStruct);
74657 int hi = 0;
74658 PyObject *hi_capi = Py_None(&_Py_NoneStruct);
74659 double a = 0;
74660 double tau = 0;
74661 double work = 0;
74662 int lwork = 0;
74663 int info = 0;
74664 static char *capi_kwlist[] = {"n","lo","hi",NULL((void*)0)};
74665
74666/*routdebugenter*/
74667#ifdef F2PY_REPORT_ATEXIT
74668f2py_start_clock();
74669#endif
74670 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
74671 "O|OO:_flapack.dorghr_lwork",\
74672 capi_kwlist,&n_capi,&lo_capi,&hi_capi))
74673 return NULL((void*)0);
74674/*frompyobj*/
74675 /* Processing variable n */
74676 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dorghr_lwork() 1st argument (n) can't be converted to int");
74677 if (f2py_success) {
74678 /* Processing variable a */
74679 /* Processing variable lo */
74680 if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else
74681 f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.dorghr_lwork() 1st keyword (lo) can't be converted to int");
74682 if (f2py_success) {
74683 /* Processing variable tau */
74684 /* Processing variable work */
74685 /* Processing variable lwork */
74686 lwork = -1;
74687 /* Processing variable info */
74688 /* Processing variable hi */
74689 if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else
74690 f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.dorghr_lwork() 2nd keyword (hi) can't be converted to int");
74691 if (f2py_success) {
74692/*end of frompyobj*/
74693#ifdef F2PY_REPORT_ATEXIT
74694f2py_start_call_clock();
74695#endif
74696/*callfortranroutine*/
74697 { hi++; lo++; (*f2py_func)(&n,&lo,&hi,&a,&n,&tau,&work,&lwork,&info); } ;
74698 /*(*f2py_func)(&n,&lo,&hi,&a,&tau,&work,&lwork,&info);*/
74699if (PyErr_Occurred())
74700 f2py_success = 0;
74701#ifdef F2PY_REPORT_ATEXIT
74702f2py_stop_call_clock();
74703#endif
74704/*end of callfortranroutine*/
74705 if (f2py_success) {
74706/*pyobjfrom*/
74707/*end of pyobjfrom*/
74708 CFUNCSMESS("Building return value.\n");
74709 capi_buildvalue = Py_BuildValue("di",work,info);
74710/*closepyobjfrom*/
74711/*end of closepyobjfrom*/
74712 } /*if (f2py_success) after callfortranroutine*/
74713/*cleanupfrompyobj*/
74714 } /*if (f2py_success) of hi*/
74715 /* End of cleaning variable hi */
74716 /* End of cleaning variable info */
74717 /* End of cleaning variable lwork */
74718 /* End of cleaning variable work */
74719 /* End of cleaning variable tau */
74720 } /*if (f2py_success) of lo*/
74721 /* End of cleaning variable lo */
74722 /* End of cleaning variable a */
74723 } /*if (f2py_success) of n*/
74724 /* End of cleaning variable n */
74725/*end of cleanupfrompyobj*/
74726 if (capi_buildvalue == NULL((void*)0)) {
74727/*routdebugfailure*/
74728 } else {
74729/*routdebugleave*/
74730 }
74731 CFUNCSMESS("Freeing memory.\n");
74732/*freemem*/
74733#ifdef F2PY_REPORT_ATEXIT
74734f2py_stop_clock();
74735#endif
74736 return capi_buildvalue;
74737}
74738/**************************** end of dorghr_lwork ****************************/
74739
74740/*********************************** cunghr ***********************************/
74741static char doc_f2py_rout__flapack_cunghr[] = "\
74742ht,info = cunghr(a,tau,[lo,hi,lwork,overwrite_a])\n\nWrapper for ``cunghr``.\
74743\n\nParameters\n----------\n"
74744"a : input rank-2 array('F') with bounds (n,n)\n"
74745"tau : input rank-1 array('F') with bounds (n - 1)\n"
74746"\nOther Parameters\n----------------\n"
74747"lo : input int, optional\n Default: 0\n"
74748"hi : input int, optional\n Default: n-1\n"
74749"overwrite_a : input int, optional\n Default: 0\n"
74750"lwork : input int, optional\n Default: max(hi-lo,1)\n"
74751"\nReturns\n-------\n"
74752"ht : rank-2 array('F') with bounds (n,n) and a storage\n"
74753"info : int";
74754/* extern void F_FUNC(cunghr,CUNGHR)(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */
74755static PyObject *f2py_rout__flapack_cunghr(const PyObject *capi_self,
74756 PyObject *capi_args,
74757 PyObject *capi_keywds,
74758 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
74759 PyObject * volatile capi_buildvalue = NULL((void*)0);
74760 volatile int f2py_success = 1;
74761/*decl*/
74762
74763 int n = 0;
74764 int lo = 0;
74765 PyObject *lo_capi = Py_None(&_Py_NoneStruct);
74766 int hi = 0;
74767 PyObject *hi_capi = Py_None(&_Py_NoneStruct);
74768 complex_float *a = NULL((void*)0);
74769 npy_intp a_Dims[2] = {-1, -1};
74770 const int a_Rank = 2;
74771 PyArrayObject *capi_a_tmp = NULL((void*)0);
74772 int capi_a_intent = 0;
74773 int capi_overwrite_a = 0;
74774 PyObject *a_capi = Py_None(&_Py_NoneStruct);
74775 complex_float *tau = NULL((void*)0);
74776 npy_intp tau_Dims[1] = {-1};
74777 const int tau_Rank = 1;
74778 PyArrayObject *capi_tau_tmp = NULL((void*)0);
74779 int capi_tau_intent = 0;
74780 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
74781 complex_float *work = NULL((void*)0);
74782 npy_intp work_Dims[1] = {-1};
74783 const int work_Rank = 1;
74784 PyArrayObject *capi_work_tmp = NULL((void*)0);
74785 int capi_work_intent = 0;
74786 int lwork = 0;
74787 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
74788 int info = 0;
74789 static char *capi_kwlist[] = {"a","tau","lo","hi","lwork","overwrite_a",NULL((void*)0)};
74790
74791/*routdebugenter*/
74792#ifdef F2PY_REPORT_ATEXIT
74793f2py_start_clock();
74794#endif
74795 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
74796 "OO|OOOi:_flapack.cunghr",\
74797 capi_kwlist,&a_capi,&tau_capi,&lo_capi,&hi_capi,&lwork_capi,&capi_overwrite_a))
74798 return NULL((void*)0);
74799/*frompyobj*/
74800 /* Processing variable a */
74801 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
74802 ;
74803 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
74804 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
74805 if (capi_a_tmp == NULL((void*)0)) {
74806 if (!PyErr_Occurred())
74807 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cunghr to C/Fortran array" );
74808 } else {
74809 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
74810
74811 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
74812 /* Processing variable lo */
74813 if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else
74814 f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.cunghr() 1st keyword (lo) can't be converted to int");
74815 if (f2py_success) {
74816 /* Processing variable info */
74817 /* Processing variable n */
74818 n = shape(a,0)a_Dims[0];
74819 /* Processing variable hi */
74820 if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else
74821 f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.cunghr() 2nd keyword (hi) can't be converted to int");
74822 if (f2py_success) {
74823 /* Processing variable tau */
74824 tau_Dims[0]=n - 1;
74825 capi_tau_intent |= F2PY_INTENT_IN1;
74826 capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,tau_capi);
74827 if (capi_tau_tmp == NULL((void*)0)) {
74828 if (!PyErr_Occurred())
74829 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.cunghr to C/Fortran array" );
74830 } else {
74831 tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
74832
74833 /* Processing variable lwork */
74834 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(hi-lo,1)((hi-lo > 1) ? (hi-lo) : (1)); else
74835 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cunghr() 3rd keyword (lwork) can't be converted to int");
74836 if (f2py_success) {
74837 CHECKSCALAR(lwork>=hi-lo,"lwork>=hi-lo","3rd keyword lwork","cunghr:lwork=%d",lwork)if (!(lwork>=hi-lo)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cunghr:lwork=%d", "(""lwork>=hi-lo"") failed for "
"3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
74838 /* Processing variable work */
74839 work_Dims[0]=lwork;
74840 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
74841 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
74842 if (capi_work_tmp == NULL((void*)0)) {
74843 if (!PyErr_Occurred())
74844 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cunghr to C/Fortran array" );
74845 } else {
74846 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
74847
74848/*end of frompyobj*/
74849#ifdef F2PY_REPORT_ATEXIT
74850f2py_start_call_clock();
74851#endif
74852/*callfortranroutine*/
74853 { hi++; lo++; (*f2py_func)(&n,&lo,&hi,a,&n,tau,work,&lwork,&info); } ;
74854 /*(*f2py_func)(&n,&lo,&hi,a,tau,work,&lwork,&info);*/
74855if (PyErr_Occurred())
74856 f2py_success = 0;
74857#ifdef F2PY_REPORT_ATEXIT
74858f2py_stop_call_clock();
74859#endif
74860/*end of callfortranroutine*/
74861 if (f2py_success) {
74862/*pyobjfrom*/
74863/*end of pyobjfrom*/
74864 CFUNCSMESS("Building return value.\n");
74865 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
74866/*closepyobjfrom*/
74867/*end of closepyobjfrom*/
74868 } /*if (f2py_success) after callfortranroutine*/
74869/*cleanupfrompyobj*/
74870 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
74871 } /*if (capi_work_tmp == NULL) ... else of work*/
74872 /* End of cleaning variable work */
74873 } /*CHECKSCALAR(lwork>=hi-lo)*/
74874 } /*if (f2py_success) of lwork*/
74875 /* End of cleaning variable lwork */
74876 if((PyObject *)capi_tau_tmp!=tau_capi) {
74877 Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); }
74878 } /*if (capi_tau_tmp == NULL) ... else of tau*/
74879 /* End of cleaning variable tau */
74880 } /*if (f2py_success) of hi*/
74881 /* End of cleaning variable hi */
74882 /* End of cleaning variable n */
74883 /* End of cleaning variable info */
74884 } /*if (f2py_success) of lo*/
74885 /* End of cleaning variable lo */
74886 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
74887 } /*if (capi_a_tmp == NULL) ... else of a*/
74888 /* End of cleaning variable a */
74889/*end of cleanupfrompyobj*/
74890 if (capi_buildvalue == NULL((void*)0)) {
74891/*routdebugfailure*/
74892 } else {
74893/*routdebugleave*/
74894 }
74895 CFUNCSMESS("Freeing memory.\n");
74896/*freemem*/
74897#ifdef F2PY_REPORT_ATEXIT
74898f2py_stop_clock();
74899#endif
74900 return capi_buildvalue;
74901}
74902/******************************* end of cunghr *******************************/
74903
74904/*********************************** zunghr ***********************************/
74905static char doc_f2py_rout__flapack_zunghr[] = "\
74906ht,info = zunghr(a,tau,[lo,hi,lwork,overwrite_a])\n\nWrapper for ``zunghr``.\
74907\n\nParameters\n----------\n"
74908"a : input rank-2 array('D') with bounds (n,n)\n"
74909"tau : input rank-1 array('D') with bounds (n - 1)\n"
74910"\nOther Parameters\n----------------\n"
74911"lo : input int, optional\n Default: 0\n"
74912"hi : input int, optional\n Default: n-1\n"
74913"overwrite_a : input int, optional\n Default: 0\n"
74914"lwork : input int, optional\n Default: max(hi-lo,1)\n"
74915"\nReturns\n-------\n"
74916"ht : rank-2 array('D') with bounds (n,n) and a storage\n"
74917"info : int";
74918/* extern void F_FUNC(zunghr,ZUNGHR)(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */
74919static PyObject *f2py_rout__flapack_zunghr(const PyObject *capi_self,
74920 PyObject *capi_args,
74921 PyObject *capi_keywds,
74922 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
74923 PyObject * volatile capi_buildvalue = NULL((void*)0);
74924 volatile int f2py_success = 1;
74925/*decl*/
74926
74927 int n = 0;
74928 int lo = 0;
74929 PyObject *lo_capi = Py_None(&_Py_NoneStruct);
74930 int hi = 0;
74931 PyObject *hi_capi = Py_None(&_Py_NoneStruct);
74932 complex_double *a = NULL((void*)0);
74933 npy_intp a_Dims[2] = {-1, -1};
74934 const int a_Rank = 2;
74935 PyArrayObject *capi_a_tmp = NULL((void*)0);
74936 int capi_a_intent = 0;
74937 int capi_overwrite_a = 0;
74938 PyObject *a_capi = Py_None(&_Py_NoneStruct);
74939 complex_double *tau = NULL((void*)0);
74940 npy_intp tau_Dims[1] = {-1};
74941 const int tau_Rank = 1;
74942 PyArrayObject *capi_tau_tmp = NULL((void*)0);
74943 int capi_tau_intent = 0;
74944 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
74945 complex_double *work = NULL((void*)0);
74946 npy_intp work_Dims[1] = {-1};
74947 const int work_Rank = 1;
74948 PyArrayObject *capi_work_tmp = NULL((void*)0);
74949 int capi_work_intent = 0;
74950 int lwork = 0;
74951 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
74952 int info = 0;
74953 static char *capi_kwlist[] = {"a","tau","lo","hi","lwork","overwrite_a",NULL((void*)0)};
74954
74955/*routdebugenter*/
74956#ifdef F2PY_REPORT_ATEXIT
74957f2py_start_clock();
74958#endif
74959 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
74960 "OO|OOOi:_flapack.zunghr",\
74961 capi_kwlist,&a_capi,&tau_capi,&lo_capi,&hi_capi,&lwork_capi,&capi_overwrite_a))
74962 return NULL((void*)0);
74963/*frompyobj*/
74964 /* Processing variable a */
74965 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
74966 ;
74967 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4|F2PY_INTENT_ALIGNED81024;
74968 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
74969 if (capi_a_tmp == NULL((void*)0)) {
74970 if (!PyErr_Occurred())
74971 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zunghr to C/Fortran array" );
74972 } else {
74973 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
74974
74975 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
74976 /* Processing variable lo */
74977 if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else
74978 f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.zunghr() 1st keyword (lo) can't be converted to int");
74979 if (f2py_success) {
74980 /* Processing variable info */
74981 /* Processing variable n */
74982 n = shape(a,0)a_Dims[0];
74983 /* Processing variable hi */
74984 if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else
74985 f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.zunghr() 2nd keyword (hi) can't be converted to int");
74986 if (f2py_success) {
74987 /* Processing variable tau */
74988 tau_Dims[0]=n - 1;
74989 capi_tau_intent |= F2PY_INTENT_IN1;
74990 capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,tau_capi);
74991 if (capi_tau_tmp == NULL((void*)0)) {
74992 if (!PyErr_Occurred())
74993 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.zunghr to C/Fortran array" );
74994 } else {
74995 tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
74996
74997 /* Processing variable lwork */
74998 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(hi-lo,1)((hi-lo > 1) ? (hi-lo) : (1)); else
74999 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zunghr() 3rd keyword (lwork) can't be converted to int");
75000 if (f2py_success) {
75001 CHECKSCALAR(lwork>=hi-lo,"lwork>=hi-lo","3rd keyword lwork","zunghr:lwork=%d",lwork)if (!(lwork>=hi-lo)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zunghr:lwork=%d", "(""lwork>=hi-lo"") failed for "
"3rd keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
75002 /* Processing variable work */
75003 work_Dims[0]=lwork;
75004 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
75005 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
75006 if (capi_work_tmp == NULL((void*)0)) {
75007 if (!PyErr_Occurred())
75008 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zunghr to C/Fortran array" );
75009 } else {
75010 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
75011
75012/*end of frompyobj*/
75013#ifdef F2PY_REPORT_ATEXIT
75014f2py_start_call_clock();
75015#endif
75016/*callfortranroutine*/
75017 { hi++; lo++; (*f2py_func)(&n,&lo,&hi,a,&n,tau,work,&lwork,&info); } ;
75018 /*(*f2py_func)(&n,&lo,&hi,a,tau,work,&lwork,&info);*/
75019if (PyErr_Occurred())
75020 f2py_success = 0;
75021#ifdef F2PY_REPORT_ATEXIT
75022f2py_stop_call_clock();
75023#endif
75024/*end of callfortranroutine*/
75025 if (f2py_success) {
75026/*pyobjfrom*/
75027/*end of pyobjfrom*/
75028 CFUNCSMESS("Building return value.\n");
75029 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
75030/*closepyobjfrom*/
75031/*end of closepyobjfrom*/
75032 } /*if (f2py_success) after callfortranroutine*/
75033/*cleanupfrompyobj*/
75034 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
75035 } /*if (capi_work_tmp == NULL) ... else of work*/
75036 /* End of cleaning variable work */
75037 } /*CHECKSCALAR(lwork>=hi-lo)*/
75038 } /*if (f2py_success) of lwork*/
75039 /* End of cleaning variable lwork */
75040 if((PyObject *)capi_tau_tmp!=tau_capi) {
75041 Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); }
75042 } /*if (capi_tau_tmp == NULL) ... else of tau*/
75043 /* End of cleaning variable tau */
75044 } /*if (f2py_success) of hi*/
75045 /* End of cleaning variable hi */
75046 /* End of cleaning variable n */
75047 /* End of cleaning variable info */
75048 } /*if (f2py_success) of lo*/
75049 /* End of cleaning variable lo */
75050 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
75051 } /*if (capi_a_tmp == NULL) ... else of a*/
75052 /* End of cleaning variable a */
75053/*end of cleanupfrompyobj*/
75054 if (capi_buildvalue == NULL((void*)0)) {
75055/*routdebugfailure*/
75056 } else {
75057/*routdebugleave*/
75058 }
75059 CFUNCSMESS("Freeing memory.\n");
75060/*freemem*/
75061#ifdef F2PY_REPORT_ATEXIT
75062f2py_stop_clock();
75063#endif
75064 return capi_buildvalue;
75065}
75066/******************************* end of zunghr *******************************/
75067
75068/******************************** cunghr_lwork ********************************/
75069static char doc_f2py_rout__flapack_cunghr_lwork[] = "\
75070work,info = cunghr_lwork(n,[lo,hi])\n\nWrapper for ``cunghr_lwork``.\
75071\n\nParameters\n----------\n"
75072"n : input int\n"
75073"\nOther Parameters\n----------------\n"
75074"lo : input int, optional\n Default: 0\n"
75075"hi : input int, optional\n Default: n-1\n"
75076"\nReturns\n-------\n"
75077"work : complex\n"
75078"info : int";
75079/* extern void F_FUNC(cunghr ,CUNGHR )(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */
75080static PyObject *f2py_rout__flapack_cunghr_lwork(const PyObject *capi_self,
75081 PyObject *capi_args,
75082 PyObject *capi_keywds,
75083 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
75084 PyObject * volatile capi_buildvalue = NULL((void*)0);
75085 volatile int f2py_success = 1;
75086/*decl*/
75087
75088 int n = 0;
75089 PyObject *n_capi = Py_None(&_Py_NoneStruct);
75090 int lo = 0;
75091 PyObject *lo_capi = Py_None(&_Py_NoneStruct);
75092 int hi = 0;
75093 PyObject *hi_capi = Py_None(&_Py_NoneStruct);
75094 complex_float a;
75095 complex_float tau;
75096 complex_float work;
75097 PyObject *work_capi = Py_None(&_Py_NoneStruct);
75098 int lwork = 0;
75099 int info = 0;
75100 static char *capi_kwlist[] = {"n","lo","hi",NULL((void*)0)};
75101
75102/*routdebugenter*/
75103#ifdef F2PY_REPORT_ATEXIT
75104f2py_start_clock();
75105#endif
75106 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
75107 "O|OO:_flapack.cunghr_lwork",\
75108 capi_kwlist,&n_capi,&lo_capi,&hi_capi))
75109 return NULL((void*)0);
75110/*frompyobj*/
75111 /* Processing variable n */
75112 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cunghr_lwork() 1st argument (n) can't be converted to int");
75113 if (f2py_success) {
75114 /* Processing variable a */
75115 /* Processing variable lo */
75116 if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else
75117 f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.cunghr_lwork() 1st keyword (lo) can't be converted to int");
75118 if (f2py_success) {
75119 /* Processing variable tau */
75120 /* Processing variable work */
75121 /* Processing variable lwork */
75122 lwork = -1;
75123 /* Processing variable info */
75124 /* Processing variable hi */
75125 if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else
75126 f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.cunghr_lwork() 2nd keyword (hi) can't be converted to int");
75127 if (f2py_success) {
75128/*end of frompyobj*/
75129#ifdef F2PY_REPORT_ATEXIT
75130f2py_start_call_clock();
75131#endif
75132/*callfortranroutine*/
75133 { hi++; lo++; (*f2py_func)(&n,&lo,&hi,&a,&n,&tau,&work,&lwork,&info); } ;
75134 /*(*f2py_func)(&n,&lo,&hi,&a,&tau,&work,&lwork,&info);*/
75135if (PyErr_Occurred())
75136 f2py_success = 0;
75137#ifdef F2PY_REPORT_ATEXIT
75138f2py_stop_call_clock();
75139#endif
75140/*end of callfortranroutine*/
75141 if (f2py_success) {
75142/*pyobjfrom*/
75143 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
75144/*end of pyobjfrom*/
75145 CFUNCSMESS("Building return value.\n");
75146 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
75147/*closepyobjfrom*/
75148/*end of closepyobjfrom*/
75149 } /*if (f2py_success) after callfortranroutine*/
75150/*cleanupfrompyobj*/
75151 } /*if (f2py_success) of hi*/
75152 /* End of cleaning variable hi */
75153 /* End of cleaning variable info */
75154 /* End of cleaning variable lwork */
75155 /* End of cleaning variable work */
75156 /* End of cleaning variable tau */
75157 } /*if (f2py_success) of lo*/
75158 /* End of cleaning variable lo */
75159 /* End of cleaning variable a */
75160 } /*if (f2py_success) of n*/
75161 /* End of cleaning variable n */
75162/*end of cleanupfrompyobj*/
75163 if (capi_buildvalue == NULL((void*)0)) {
75164/*routdebugfailure*/
75165 } else {
75166/*routdebugleave*/
75167 }
75168 CFUNCSMESS("Freeing memory.\n");
75169/*freemem*/
75170#ifdef F2PY_REPORT_ATEXIT
75171f2py_stop_clock();
75172#endif
75173 return capi_buildvalue;
75174}
75175/**************************** end of cunghr_lwork ****************************/
75176
75177/******************************** zunghr_lwork ********************************/
75178static char doc_f2py_rout__flapack_zunghr_lwork[] = "\
75179work,info = zunghr_lwork(n,[lo,hi])\n\nWrapper for ``zunghr_lwork``.\
75180\n\nParameters\n----------\n"
75181"n : input int\n"
75182"\nOther Parameters\n----------------\n"
75183"lo : input int, optional\n Default: 0\n"
75184"hi : input int, optional\n Default: n-1\n"
75185"\nReturns\n-------\n"
75186"work : complex\n"
75187"info : int";
75188/* extern void F_FUNC(zunghr ,ZUNGHR )(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */
75189static PyObject *f2py_rout__flapack_zunghr_lwork(const PyObject *capi_self,
75190 PyObject *capi_args,
75191 PyObject *capi_keywds,
75192 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
75193 PyObject * volatile capi_buildvalue = NULL((void*)0);
75194 volatile int f2py_success = 1;
75195/*decl*/
75196
75197 int n = 0;
75198 PyObject *n_capi = Py_None(&_Py_NoneStruct);
75199 int lo = 0;
75200 PyObject *lo_capi = Py_None(&_Py_NoneStruct);
75201 int hi = 0;
75202 PyObject *hi_capi = Py_None(&_Py_NoneStruct);
75203 complex_double a;
75204 complex_double tau;
75205 complex_double work;
75206 PyObject *work_capi = Py_None(&_Py_NoneStruct);
75207 int lwork = 0;
75208 int info = 0;
75209 static char *capi_kwlist[] = {"n","lo","hi",NULL((void*)0)};
75210
75211/*routdebugenter*/
75212#ifdef F2PY_REPORT_ATEXIT
75213f2py_start_clock();
75214#endif
75215 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
75216 "O|OO:_flapack.zunghr_lwork",\
75217 capi_kwlist,&n_capi,&lo_capi,&hi_capi))
75218 return NULL((void*)0);
75219/*frompyobj*/
75220 /* Processing variable n */
75221 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zunghr_lwork() 1st argument (n) can't be converted to int");
75222 if (f2py_success) {
75223 /* Processing variable a */
75224 /* Processing variable lo */
75225 if (lo_capi == Py_None(&_Py_NoneStruct)) lo = 0; else
75226 f2py_success = int_from_pyobj(&lo,lo_capi,"_flapack.zunghr_lwork() 1st keyword (lo) can't be converted to int");
75227 if (f2py_success) {
75228 /* Processing variable tau */
75229 /* Processing variable work */
75230 /* Processing variable lwork */
75231 lwork = -1;
75232 /* Processing variable info */
75233 /* Processing variable hi */
75234 if (hi_capi == Py_None(&_Py_NoneStruct)) hi = n-1; else
75235 f2py_success = int_from_pyobj(&hi,hi_capi,"_flapack.zunghr_lwork() 2nd keyword (hi) can't be converted to int");
75236 if (f2py_success) {
75237/*end of frompyobj*/
75238#ifdef F2PY_REPORT_ATEXIT
75239f2py_start_call_clock();
75240#endif
75241/*callfortranroutine*/
75242 { hi++; lo++; (*f2py_func)(&n,&lo,&hi,&a,&n,&tau,&work,&lwork,&info); } ;
75243 /*(*f2py_func)(&n,&lo,&hi,&a,&tau,&work,&lwork,&info);*/
75244if (PyErr_Occurred())
75245 f2py_success = 0;
75246#ifdef F2PY_REPORT_ATEXIT
75247f2py_stop_call_clock();
75248#endif
75249/*end of callfortranroutine*/
75250 if (f2py_success) {
75251/*pyobjfrom*/
75252 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
75253/*end of pyobjfrom*/
75254 CFUNCSMESS("Building return value.\n");
75255 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
75256/*closepyobjfrom*/
75257/*end of closepyobjfrom*/
75258 } /*if (f2py_success) after callfortranroutine*/
75259/*cleanupfrompyobj*/
75260 } /*if (f2py_success) of hi*/
75261 /* End of cleaning variable hi */
75262 /* End of cleaning variable info */
75263 /* End of cleaning variable lwork */
75264 /* End of cleaning variable work */
75265 /* End of cleaning variable tau */
75266 } /*if (f2py_success) of lo*/
75267 /* End of cleaning variable lo */
75268 /* End of cleaning variable a */
75269 } /*if (f2py_success) of n*/
75270 /* End of cleaning variable n */
75271/*end of cleanupfrompyobj*/
75272 if (capi_buildvalue == NULL((void*)0)) {
75273/*routdebugfailure*/
75274 } else {
75275/*routdebugleave*/
75276 }
75277 CFUNCSMESS("Freeing memory.\n");
75278/*freemem*/
75279#ifdef F2PY_REPORT_ATEXIT
75280f2py_stop_clock();
75281#endif
75282 return capi_buildvalue;
75283}
75284/**************************** end of zunghr_lwork ****************************/
75285
75286/*********************************** sorgqr ***********************************/
75287static char doc_f2py_rout__flapack_sorgqr[] = "\
75288q,work,info = sorgqr(a,tau,[lwork,overwrite_a])\n\nWrapper for ``sorgqr``.\
75289\n\nParameters\n----------\n"
75290"a : input rank-2 array('f') with bounds (m,n)\n"
75291"tau : input rank-1 array('f') with bounds (k)\n"
75292"\nOther Parameters\n----------------\n"
75293"overwrite_a : input int, optional\n Default: 0\n"
75294"lwork : input int, optional\n Default: max(3*n,1)\n"
75295"\nReturns\n-------\n"
75296"q : rank-2 array('f') with bounds (m,n) and a storage\n"
75297"work : rank-1 array('f') with bounds (MAX(lwork,1))\n"
75298"info : int";
75299/* extern void F_FUNC(sorgqr,SORGQR)(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */
75300static PyObject *f2py_rout__flapack_sorgqr(const PyObject *capi_self,
75301 PyObject *capi_args,
75302 PyObject *capi_keywds,
75303 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
75304 PyObject * volatile capi_buildvalue = NULL((void*)0);
75305 volatile int f2py_success = 1;
75306/*decl*/
75307
75308 int m = 0;
75309 int n = 0;
75310 int k = 0;
75311 float *a = NULL((void*)0);
75312 npy_intp a_Dims[2] = {-1, -1};
75313 const int a_Rank = 2;
75314 PyArrayObject *capi_a_tmp = NULL((void*)0);
75315 int capi_a_intent = 0;
75316 int capi_overwrite_a = 0;
75317 PyObject *a_capi = Py_None(&_Py_NoneStruct);
75318 float *tau = NULL((void*)0);
75319 npy_intp tau_Dims[1] = {-1};
75320 const int tau_Rank = 1;
75321 PyArrayObject *capi_tau_tmp = NULL((void*)0);
75322 int capi_tau_intent = 0;
75323 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
75324 float *work = NULL((void*)0);
75325 npy_intp work_Dims[1] = {-1};
75326 const int work_Rank = 1;
75327 PyArrayObject *capi_work_tmp = NULL((void*)0);
75328 int capi_work_intent = 0;
75329 int lwork = 0;
75330 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
75331 int info = 0;
75332 static char *capi_kwlist[] = {"a","tau","lwork","overwrite_a",NULL((void*)0)};
75333
75334/*routdebugenter*/
75335#ifdef F2PY_REPORT_ATEXIT
75336f2py_start_clock();
75337#endif
75338 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
75339 "OO|Oi:_flapack.sorgqr",\
75340 capi_kwlist,&a_capi,&tau_capi,&lwork_capi,&capi_overwrite_a))
75341 return NULL((void*)0);
75342/*frompyobj*/
75343 /* Processing variable a */
75344 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
75345 ;
75346 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
75347 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
75348 if (capi_a_tmp == NULL((void*)0)) {
75349 if (!PyErr_Occurred())
75350 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sorgqr to C/Fortran array" );
75351 } else {
75352 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
75353
75354 /* Processing variable tau */
75355 ;
75356 capi_tau_intent |= F2PY_INTENT_IN1;
75357 capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,tau_capi);
75358 if (capi_tau_tmp == NULL((void*)0)) {
75359 if (!PyErr_Occurred())
75360 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.sorgqr to C/Fortran array" );
75361 } else {
75362 tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
75363
75364 /* Processing variable info */
75365 /* Processing variable m */
75366 m = shape(a,0)a_Dims[0];
75367 /* Processing variable n */
75368 n = shape(a,1)a_Dims[1];
75369 /* Processing variable k */
75370 k = shape(tau,0)tau_Dims[0];
75371 /* Processing variable lwork */
75372 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else
75373 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sorgqr() 1st keyword (lwork) can't be converted to int");
75374 if (f2py_success) {
75375 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","sorgqr:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sorgqr:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
75376 /* Processing variable work */
75377 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
75378 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
75379 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
75380 if (capi_work_tmp == NULL((void*)0)) {
75381 if (!PyErr_Occurred())
75382 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sorgqr to C/Fortran array" );
75383 } else {
75384 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
75385
75386/*end of frompyobj*/
75387#ifdef F2PY_REPORT_ATEXIT
75388f2py_start_call_clock();
75389#endif
75390/*callfortranroutine*/
75391 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
75392 (*f2py_func)(&m,&n,&k,a,&m,tau,work,&lwork,&info) ;
75393 /*(*f2py_func)(&m,&n,&k,a,tau,work,&lwork,&info);*/
75394 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
75395if (PyErr_Occurred())
75396 f2py_success = 0;
75397#ifdef F2PY_REPORT_ATEXIT
75398f2py_stop_call_clock();
75399#endif
75400/*end of callfortranroutine*/
75401 if (f2py_success) {
75402/*pyobjfrom*/
75403/*end of pyobjfrom*/
75404 CFUNCSMESS("Building return value.\n");
75405 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_work_tmp,info);
75406/*closepyobjfrom*/
75407/*end of closepyobjfrom*/
75408 } /*if (f2py_success) after callfortranroutine*/
75409/*cleanupfrompyobj*/
75410 } /*if (capi_work_tmp == NULL) ... else of work*/
75411 /* End of cleaning variable work */
75412 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
75413 } /*if (f2py_success) of lwork*/
75414 /* End of cleaning variable lwork */
75415 /* End of cleaning variable k */
75416 /* End of cleaning variable n */
75417 /* End of cleaning variable m */
75418 /* End of cleaning variable info */
75419 if((PyObject *)capi_tau_tmp!=tau_capi) {
75420 Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); }
75421 } /*if (capi_tau_tmp == NULL) ... else of tau*/
75422 /* End of cleaning variable tau */
75423 } /*if (capi_a_tmp == NULL) ... else of a*/
75424 /* End of cleaning variable a */
75425/*end of cleanupfrompyobj*/
75426 if (capi_buildvalue == NULL((void*)0)) {
75427/*routdebugfailure*/
75428 } else {
75429/*routdebugleave*/
75430 }
75431 CFUNCSMESS("Freeing memory.\n");
75432/*freemem*/
75433#ifdef F2PY_REPORT_ATEXIT
75434f2py_stop_clock();
75435#endif
75436 return capi_buildvalue;
75437}
75438/******************************* end of sorgqr *******************************/
75439
75440/*********************************** dorgqr ***********************************/
75441static char doc_f2py_rout__flapack_dorgqr[] = "\
75442q,work,info = dorgqr(a,tau,[lwork,overwrite_a])\n\nWrapper for ``dorgqr``.\
75443\n\nParameters\n----------\n"
75444"a : input rank-2 array('d') with bounds (m,n)\n"
75445"tau : input rank-1 array('d') with bounds (k)\n"
75446"\nOther Parameters\n----------------\n"
75447"overwrite_a : input int, optional\n Default: 0\n"
75448"lwork : input int, optional\n Default: max(3*n,1)\n"
75449"\nReturns\n-------\n"
75450"q : rank-2 array('d') with bounds (m,n) and a storage\n"
75451"work : rank-1 array('d') with bounds (MAX(lwork,1))\n"
75452"info : int";
75453/* extern void F_FUNC(dorgqr,DORGQR)(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */
75454static PyObject *f2py_rout__flapack_dorgqr(const PyObject *capi_self,
75455 PyObject *capi_args,
75456 PyObject *capi_keywds,
75457 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
75458 PyObject * volatile capi_buildvalue = NULL((void*)0);
75459 volatile int f2py_success = 1;
75460/*decl*/
75461
75462 int m = 0;
75463 int n = 0;
75464 int k = 0;
75465 double *a = NULL((void*)0);
75466 npy_intp a_Dims[2] = {-1, -1};
75467 const int a_Rank = 2;
75468 PyArrayObject *capi_a_tmp = NULL((void*)0);
75469 int capi_a_intent = 0;
75470 int capi_overwrite_a = 0;
75471 PyObject *a_capi = Py_None(&_Py_NoneStruct);
75472 double *tau = NULL((void*)0);
75473 npy_intp tau_Dims[1] = {-1};
75474 const int tau_Rank = 1;
75475 PyArrayObject *capi_tau_tmp = NULL((void*)0);
75476 int capi_tau_intent = 0;
75477 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
75478 double *work = NULL((void*)0);
75479 npy_intp work_Dims[1] = {-1};
75480 const int work_Rank = 1;
75481 PyArrayObject *capi_work_tmp = NULL((void*)0);
75482 int capi_work_intent = 0;
75483 int lwork = 0;
75484 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
75485 int info = 0;
75486 static char *capi_kwlist[] = {"a","tau","lwork","overwrite_a",NULL((void*)0)};
75487
75488/*routdebugenter*/
75489#ifdef F2PY_REPORT_ATEXIT
75490f2py_start_clock();
75491#endif
75492 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
75493 "OO|Oi:_flapack.dorgqr",\
75494 capi_kwlist,&a_capi,&tau_capi,&lwork_capi,&capi_overwrite_a))
75495 return NULL((void*)0);
75496/*frompyobj*/
75497 /* Processing variable a */
75498 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
75499 ;
75500 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
75501 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
75502 if (capi_a_tmp == NULL((void*)0)) {
75503 if (!PyErr_Occurred())
75504 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dorgqr to C/Fortran array" );
75505 } else {
75506 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
75507
75508 /* Processing variable tau */
75509 ;
75510 capi_tau_intent |= F2PY_INTENT_IN1;
75511 capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,tau_capi);
75512 if (capi_tau_tmp == NULL((void*)0)) {
75513 if (!PyErr_Occurred())
75514 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.dorgqr to C/Fortran array" );
75515 } else {
75516 tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
75517
75518 /* Processing variable info */
75519 /* Processing variable m */
75520 m = shape(a,0)a_Dims[0];
75521 /* Processing variable n */
75522 n = shape(a,1)a_Dims[1];
75523 /* Processing variable k */
75524 k = shape(tau,0)tau_Dims[0];
75525 /* Processing variable lwork */
75526 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else
75527 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dorgqr() 1st keyword (lwork) can't be converted to int");
75528 if (f2py_success) {
75529 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","dorgqr:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dorgqr:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
75530 /* Processing variable work */
75531 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
75532 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
75533 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
75534 if (capi_work_tmp == NULL((void*)0)) {
75535 if (!PyErr_Occurred())
75536 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dorgqr to C/Fortran array" );
75537 } else {
75538 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
75539
75540/*end of frompyobj*/
75541#ifdef F2PY_REPORT_ATEXIT
75542f2py_start_call_clock();
75543#endif
75544/*callfortranroutine*/
75545 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
75546 (*f2py_func)(&m,&n,&k,a,&m,tau,work,&lwork,&info) ;
75547 /*(*f2py_func)(&m,&n,&k,a,tau,work,&lwork,&info);*/
75548 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
75549if (PyErr_Occurred())
75550 f2py_success = 0;
75551#ifdef F2PY_REPORT_ATEXIT
75552f2py_stop_call_clock();
75553#endif
75554/*end of callfortranroutine*/
75555 if (f2py_success) {
75556/*pyobjfrom*/
75557/*end of pyobjfrom*/
75558 CFUNCSMESS("Building return value.\n");
75559 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_work_tmp,info);
75560/*closepyobjfrom*/
75561/*end of closepyobjfrom*/
75562 } /*if (f2py_success) after callfortranroutine*/
75563/*cleanupfrompyobj*/
75564 } /*if (capi_work_tmp == NULL) ... else of work*/
75565 /* End of cleaning variable work */
75566 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
75567 } /*if (f2py_success) of lwork*/
75568 /* End of cleaning variable lwork */
75569 /* End of cleaning variable k */
75570 /* End of cleaning variable n */
75571 /* End of cleaning variable m */
75572 /* End of cleaning variable info */
75573 if((PyObject *)capi_tau_tmp!=tau_capi) {
75574 Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); }
75575 } /*if (capi_tau_tmp == NULL) ... else of tau*/
75576 /* End of cleaning variable tau */
75577 } /*if (capi_a_tmp == NULL) ... else of a*/
75578 /* End of cleaning variable a */
75579/*end of cleanupfrompyobj*/
75580 if (capi_buildvalue == NULL((void*)0)) {
75581/*routdebugfailure*/
75582 } else {
75583/*routdebugleave*/
75584 }
75585 CFUNCSMESS("Freeing memory.\n");
75586/*freemem*/
75587#ifdef F2PY_REPORT_ATEXIT
75588f2py_stop_clock();
75589#endif
75590 return capi_buildvalue;
75591}
75592/******************************* end of dorgqr *******************************/
75593
75594/*********************************** cungqr ***********************************/
75595static char doc_f2py_rout__flapack_cungqr[] = "\
75596q,work,info = cungqr(a,tau,[lwork,overwrite_a])\n\nWrapper for ``cungqr``.\
75597\n\nParameters\n----------\n"
75598"a : input rank-2 array('F') with bounds (m,n)\n"
75599"tau : input rank-1 array('F') with bounds (k)\n"
75600"\nOther Parameters\n----------------\n"
75601"overwrite_a : input int, optional\n Default: 0\n"
75602"lwork : input int, optional\n Default: max(3*n,1)\n"
75603"\nReturns\n-------\n"
75604"q : rank-2 array('F') with bounds (m,n) and a storage\n"
75605"work : rank-1 array('F') with bounds (MAX(lwork,1))\n"
75606"info : int";
75607/* extern void F_FUNC(cungqr,CUNGQR)(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */
75608static PyObject *f2py_rout__flapack_cungqr(const PyObject *capi_self,
75609 PyObject *capi_args,
75610 PyObject *capi_keywds,
75611 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
75612 PyObject * volatile capi_buildvalue = NULL((void*)0);
75613 volatile int f2py_success = 1;
75614/*decl*/
75615
75616 int m = 0;
75617 int n = 0;
75618 int k = 0;
75619 complex_float *a = NULL((void*)0);
75620 npy_intp a_Dims[2] = {-1, -1};
75621 const int a_Rank = 2;
75622 PyArrayObject *capi_a_tmp = NULL((void*)0);
75623 int capi_a_intent = 0;
75624 int capi_overwrite_a = 0;
75625 PyObject *a_capi = Py_None(&_Py_NoneStruct);
75626 complex_float *tau = NULL((void*)0);
75627 npy_intp tau_Dims[1] = {-1};
75628 const int tau_Rank = 1;
75629 PyArrayObject *capi_tau_tmp = NULL((void*)0);
75630 int capi_tau_intent = 0;
75631 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
75632 complex_float *work = NULL((void*)0);
75633 npy_intp work_Dims[1] = {-1};
75634 const int work_Rank = 1;
75635 PyArrayObject *capi_work_tmp = NULL((void*)0);
75636 int capi_work_intent = 0;
75637 int lwork = 0;
75638 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
75639 int info = 0;
75640 static char *capi_kwlist[] = {"a","tau","lwork","overwrite_a",NULL((void*)0)};
75641
75642/*routdebugenter*/
75643#ifdef F2PY_REPORT_ATEXIT
75644f2py_start_clock();
75645#endif
75646 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
75647 "OO|Oi:_flapack.cungqr",\
75648 capi_kwlist,&a_capi,&tau_capi,&lwork_capi,&capi_overwrite_a))
75649 return NULL((void*)0);
75650/*frompyobj*/
75651 /* Processing variable a */
75652 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
75653 ;
75654 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
75655 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
75656 if (capi_a_tmp == NULL((void*)0)) {
75657 if (!PyErr_Occurred())
75658 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cungqr to C/Fortran array" );
75659 } else {
75660 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
75661
75662 /* Processing variable tau */
75663 ;
75664 capi_tau_intent |= F2PY_INTENT_IN1;
75665 capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,tau_capi);
75666 if (capi_tau_tmp == NULL((void*)0)) {
75667 if (!PyErr_Occurred())
75668 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.cungqr to C/Fortran array" );
75669 } else {
75670 tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
75671
75672 /* Processing variable info */
75673 /* Processing variable m */
75674 m = shape(a,0)a_Dims[0];
75675 /* Processing variable n */
75676 n = shape(a,1)a_Dims[1];
75677 /* Processing variable k */
75678 k = shape(tau,0)tau_Dims[0];
75679 /* Processing variable lwork */
75680 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else
75681 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cungqr() 1st keyword (lwork) can't be converted to int");
75682 if (f2py_success) {
75683 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","cungqr:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cungqr:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
75684 /* Processing variable work */
75685 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
75686 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
75687 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
75688 if (capi_work_tmp == NULL((void*)0)) {
75689 if (!PyErr_Occurred())
75690 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cungqr to C/Fortran array" );
75691 } else {
75692 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
75693
75694/*end of frompyobj*/
75695#ifdef F2PY_REPORT_ATEXIT
75696f2py_start_call_clock();
75697#endif
75698/*callfortranroutine*/
75699 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
75700 (*f2py_func)(&m,&n,&k,a,&m,tau,work,&lwork,&info) ;
75701 /*(*f2py_func)(&m,&n,&k,a,tau,work,&lwork,&info);*/
75702 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
75703if (PyErr_Occurred())
75704 f2py_success = 0;
75705#ifdef F2PY_REPORT_ATEXIT
75706f2py_stop_call_clock();
75707#endif
75708/*end of callfortranroutine*/
75709 if (f2py_success) {
75710/*pyobjfrom*/
75711/*end of pyobjfrom*/
75712 CFUNCSMESS("Building return value.\n");
75713 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_work_tmp,info);
75714/*closepyobjfrom*/
75715/*end of closepyobjfrom*/
75716 } /*if (f2py_success) after callfortranroutine*/
75717/*cleanupfrompyobj*/
75718 } /*if (capi_work_tmp == NULL) ... else of work*/
75719 /* End of cleaning variable work */
75720 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
75721 } /*if (f2py_success) of lwork*/
75722 /* End of cleaning variable lwork */
75723 /* End of cleaning variable k */
75724 /* End of cleaning variable n */
75725 /* End of cleaning variable m */
75726 /* End of cleaning variable info */
75727 if((PyObject *)capi_tau_tmp!=tau_capi) {
75728 Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); }
75729 } /*if (capi_tau_tmp == NULL) ... else of tau*/
75730 /* End of cleaning variable tau */
75731 } /*if (capi_a_tmp == NULL) ... else of a*/
75732 /* End of cleaning variable a */
75733/*end of cleanupfrompyobj*/
75734 if (capi_buildvalue == NULL((void*)0)) {
75735/*routdebugfailure*/
75736 } else {
75737/*routdebugleave*/
75738 }
75739 CFUNCSMESS("Freeing memory.\n");
75740/*freemem*/
75741#ifdef F2PY_REPORT_ATEXIT
75742f2py_stop_clock();
75743#endif
75744 return capi_buildvalue;
75745}
75746/******************************* end of cungqr *******************************/
75747
75748/*********************************** zungqr ***********************************/
75749static char doc_f2py_rout__flapack_zungqr[] = "\
75750q,work,info = zungqr(a,tau,[lwork,overwrite_a])\n\nWrapper for ``zungqr``.\
75751\n\nParameters\n----------\n"
75752"a : input rank-2 array('D') with bounds (m,n)\n"
75753"tau : input rank-1 array('D') with bounds (k)\n"
75754"\nOther Parameters\n----------------\n"
75755"overwrite_a : input int, optional\n Default: 0\n"
75756"lwork : input int, optional\n Default: max(3*n,1)\n"
75757"\nReturns\n-------\n"
75758"q : rank-2 array('D') with bounds (m,n) and a storage\n"
75759"work : rank-1 array('D') with bounds (MAX(lwork,1))\n"
75760"info : int";
75761/* extern void F_FUNC(zungqr,ZUNGQR)(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */
75762static PyObject *f2py_rout__flapack_zungqr(const PyObject *capi_self,
75763 PyObject *capi_args,
75764 PyObject *capi_keywds,
75765 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
75766 PyObject * volatile capi_buildvalue = NULL((void*)0);
75767 volatile int f2py_success = 1;
75768/*decl*/
75769
75770 int m = 0;
75771 int n = 0;
75772 int k = 0;
75773 complex_double *a = NULL((void*)0);
75774 npy_intp a_Dims[2] = {-1, -1};
75775 const int a_Rank = 2;
75776 PyArrayObject *capi_a_tmp = NULL((void*)0);
75777 int capi_a_intent = 0;
75778 int capi_overwrite_a = 0;
75779 PyObject *a_capi = Py_None(&_Py_NoneStruct);
75780 complex_double *tau = NULL((void*)0);
75781 npy_intp tau_Dims[1] = {-1};
75782 const int tau_Rank = 1;
75783 PyArrayObject *capi_tau_tmp = NULL((void*)0);
75784 int capi_tau_intent = 0;
75785 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
75786 complex_double *work = NULL((void*)0);
75787 npy_intp work_Dims[1] = {-1};
75788 const int work_Rank = 1;
75789 PyArrayObject *capi_work_tmp = NULL((void*)0);
75790 int capi_work_intent = 0;
75791 int lwork = 0;
75792 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
75793 int info = 0;
75794 static char *capi_kwlist[] = {"a","tau","lwork","overwrite_a",NULL((void*)0)};
75795
75796/*routdebugenter*/
75797#ifdef F2PY_REPORT_ATEXIT
75798f2py_start_clock();
75799#endif
75800 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
75801 "OO|Oi:_flapack.zungqr",\
75802 capi_kwlist,&a_capi,&tau_capi,&lwork_capi,&capi_overwrite_a))
75803 return NULL((void*)0);
75804/*frompyobj*/
75805 /* Processing variable a */
75806 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
75807 ;
75808 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
75809 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
75810 if (capi_a_tmp == NULL((void*)0)) {
75811 if (!PyErr_Occurred())
75812 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zungqr to C/Fortran array" );
75813 } else {
75814 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
75815
75816 /* Processing variable tau */
75817 ;
75818 capi_tau_intent |= F2PY_INTENT_IN1;
75819 capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,tau_capi);
75820 if (capi_tau_tmp == NULL((void*)0)) {
75821 if (!PyErr_Occurred())
75822 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.zungqr to C/Fortran array" );
75823 } else {
75824 tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
75825
75826 /* Processing variable info */
75827 /* Processing variable m */
75828 m = shape(a,0)a_Dims[0];
75829 /* Processing variable n */
75830 n = shape(a,1)a_Dims[1];
75831 /* Processing variable k */
75832 k = shape(tau,0)tau_Dims[0];
75833 /* Processing variable lwork */
75834 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*n,1)((3*n > 1) ? (3*n) : (1)); else
75835 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zungqr() 1st keyword (lwork) can't be converted to int");
75836 if (f2py_success) {
75837 CHECKSCALAR(lwork>=n||lwork==-1,"lwork>=n||lwork==-1","1st keyword lwork","zungqr:lwork=%d",lwork)if (!(lwork>=n||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zungqr:lwork=%d", "(""lwork>=n||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
75838 /* Processing variable work */
75839 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
75840 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
75841 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
75842 if (capi_work_tmp == NULL((void*)0)) {
75843 if (!PyErr_Occurred())
75844 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zungqr to C/Fortran array" );
75845 } else {
75846 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
75847
75848/*end of frompyobj*/
75849#ifdef F2PY_REPORT_ATEXIT
75850f2py_start_call_clock();
75851#endif
75852/*callfortranroutine*/
75853 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
75854 (*f2py_func)(&m,&n,&k,a,&m,tau,work,&lwork,&info) ;
75855 /*(*f2py_func)(&m,&n,&k,a,tau,work,&lwork,&info);*/
75856 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
75857if (PyErr_Occurred())
75858 f2py_success = 0;
75859#ifdef F2PY_REPORT_ATEXIT
75860f2py_stop_call_clock();
75861#endif
75862/*end of callfortranroutine*/
75863 if (f2py_success) {
75864/*pyobjfrom*/
75865/*end of pyobjfrom*/
75866 CFUNCSMESS("Building return value.\n");
75867 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_work_tmp,info);
75868/*closepyobjfrom*/
75869/*end of closepyobjfrom*/
75870 } /*if (f2py_success) after callfortranroutine*/
75871/*cleanupfrompyobj*/
75872 } /*if (capi_work_tmp == NULL) ... else of work*/
75873 /* End of cleaning variable work */
75874 } /*CHECKSCALAR(lwork>=n||lwork==-1)*/
75875 } /*if (f2py_success) of lwork*/
75876 /* End of cleaning variable lwork */
75877 /* End of cleaning variable k */
75878 /* End of cleaning variable n */
75879 /* End of cleaning variable m */
75880 /* End of cleaning variable info */
75881 if((PyObject *)capi_tau_tmp!=tau_capi) {
75882 Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); }
75883 } /*if (capi_tau_tmp == NULL) ... else of tau*/
75884 /* End of cleaning variable tau */
75885 } /*if (capi_a_tmp == NULL) ... else of a*/
75886 /* End of cleaning variable a */
75887/*end of cleanupfrompyobj*/
75888 if (capi_buildvalue == NULL((void*)0)) {
75889/*routdebugfailure*/
75890 } else {
75891/*routdebugleave*/
75892 }
75893 CFUNCSMESS("Freeing memory.\n");
75894/*freemem*/
75895#ifdef F2PY_REPORT_ATEXIT
75896f2py_stop_clock();
75897#endif
75898 return capi_buildvalue;
75899}
75900/******************************* end of zungqr *******************************/
75901
75902/*********************************** sormqr ***********************************/
75903static char doc_f2py_rout__flapack_sormqr[] = "\
75904cq,work,info = sormqr(side,trans,a,tau,c,lwork,[overwrite_c])\n\nWrapper for ``sormqr``.\
75905\n\nParameters\n----------\n"
75906"side : input string(len=1)\n"
75907"trans : input string(len=1)\n"
75908"a : input rank-2 array('f') with bounds (lda,k)\n"
75909"tau : input rank-1 array('f') with bounds (k)\n"
75910"c : input rank-2 array('f') with bounds (ldc,n)\n"
75911"lwork : input int\n"
75912"\nOther Parameters\n----------------\n"
75913"overwrite_c : input int, optional\n Default: 0\n"
75914"\nReturns\n-------\n"
75915"cq : rank-2 array('f') with bounds (ldc,n) and c storage\n"
75916"work : rank-1 array('f') with bounds (MAX(lwork,1))\n"
75917"info : int";
75918/* extern void F_FUNC(sormqr,SORMQR)(char*,char*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT* ); */
75919static PyObject *f2py_rout__flapack_sormqr(const PyObject *capi_self,
75920 PyObject *capi_args,
75921 PyObject *capi_keywds,
75922 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
75923 PyObject * volatile capi_buildvalue = NULL((void*)0);
75924 volatile int f2py_success = 1;
75925/*decl*/
75926
75927 string side = NULL((void*)0);
75928 int slen(side)capi_side_len;
75929 PyObject *side_capi = Py_None(&_Py_NoneStruct);
75930 string trans = NULL((void*)0);
75931 int slen(trans)capi_trans_len;
75932 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
75933 int m = 0;
75934 int n = 0;
75935 int k = 0;
75936 float *a = NULL((void*)0);
75937 npy_intp a_Dims[2] = {-1, -1};
75938 const int a_Rank = 2;
75939 PyArrayObject *capi_a_tmp = NULL((void*)0);
75940 int capi_a_intent = 0;
75941 PyObject *a_capi = Py_None(&_Py_NoneStruct);
75942 int lda = 0;
75943 float *tau = NULL((void*)0);
75944 npy_intp tau_Dims[1] = {-1};
75945 const int tau_Rank = 1;
75946 PyArrayObject *capi_tau_tmp = NULL((void*)0);
75947 int capi_tau_intent = 0;
75948 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
75949 float *c = NULL((void*)0);
75950 npy_intp c_Dims[2] = {-1, -1};
75951 const int c_Rank = 2;
75952 PyArrayObject *capi_c_tmp = NULL((void*)0);
75953 int capi_c_intent = 0;
75954 int capi_overwrite_c = 0;
75955 PyObject *c_capi = Py_None(&_Py_NoneStruct);
75956 int ldc = 0;
75957 float *work = NULL((void*)0);
75958 npy_intp work_Dims[1] = {-1};
75959 const int work_Rank = 1;
75960 PyArrayObject *capi_work_tmp = NULL((void*)0);
75961 int capi_work_intent = 0;
75962 int lwork = 0;
75963 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
75964 int info = 0;
75965 static char *capi_kwlist[] = {"side","trans","a","tau","c","lwork","overwrite_c",NULL((void*)0)};
75966
75967/*routdebugenter*/
75968#ifdef F2PY_REPORT_ATEXIT
75969f2py_start_clock();
75970#endif
75971 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
75972 "OOOOOO|i:_flapack.sormqr",\
75973 capi_kwlist,&side_capi,&trans_capi,&a_capi,&tau_capi,&c_capi,&lwork_capi,&capi_overwrite_c))
75974 return NULL((void*)0);
75975/*frompyobj*/
75976 /* Processing variable side */
75977 slen(side)capi_side_len = 1;
75978 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"",side_capi,"string_from_pyobj failed in converting 1st argument `side' of _flapack.sormqr to C string");
75979 if (f2py_success) {
75980 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st argument side","sormqr:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sormqr:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""1st argument side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
75981 /* Processing variable trans */
75982 slen(trans)capi_trans_len = 1;
75983 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"",trans_capi,"string_from_pyobj failed in converting 2nd argument `trans' of _flapack.sormqr to C string");
75984 if (f2py_success) {
75985 CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","2nd argument trans","sormqr:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sormqr:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'"
") failed for ""2nd argument trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
75986 /* Processing variable a */
75987 ;
75988 capi_a_intent |= F2PY_INTENT_IN1;
75989 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
75990 if (capi_a_tmp == NULL((void*)0)) {
75991 if (!PyErr_Occurred())
75992 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `a' of _flapack.sormqr to C/Fortran array" );
75993 } else {
75994 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
75995
75996 /* Processing variable c */
75997 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
75998 ;
75999 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
76000 capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
76001 if (capi_c_tmp == NULL((void*)0)) {
76002 if (!PyErr_Occurred())
76003 PyErr_SetString(_flapack_error,"failed in converting 5th argument `c' of _flapack.sormqr to C/Fortran array" );
76004 } else {
76005 c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
76006
76007 /* Processing variable lwork */
76008 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sormqr() 6th argument (lwork) can't be converted to int");
76009 if (f2py_success) {
76010 /* Processing variable info */
76011 /* Processing variable m */
76012 m = shape(c,0)c_Dims[0];
76013 /* Processing variable n */
76014 n = shape(c,1)c_Dims[1];
76015 /* Processing variable k */
76016 k = shape(a,1)a_Dims[1];
76017 /* Processing variable lda */
76018 lda = shape(a, 0)a_Dims[0];
76019 /* Processing variable tau */
76020 tau_Dims[0]=k;
76021 capi_tau_intent |= F2PY_INTENT_IN1;
76022 capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,tau_capi);
76023 if (capi_tau_tmp == NULL((void*)0)) {
76024 if (!PyErr_Occurred())
76025 PyErr_SetString(_flapack_error,"failed in converting 4th argument `tau' of _flapack.sormqr to C/Fortran array" );
76026 } else {
76027 tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
76028
76029 /* Processing variable ldc */
76030 ldc = shape(c, 0)c_Dims[0];
76031 /* Processing variable work */
76032 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
76033 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
76034 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
76035 if (capi_work_tmp == NULL((void*)0)) {
76036 if (!PyErr_Occurred())
76037 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sormqr to C/Fortran array" );
76038 } else {
76039 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
76040
76041/*end of frompyobj*/
76042#ifdef F2PY_REPORT_ATEXIT
76043f2py_start_call_clock();
76044#endif
76045/*callfortranroutine*/
76046 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
76047 (*f2py_func)(side,trans,&m,&n,&k,a,&lda,tau,c,&ldc,work,&lwork,&info) ;
76048 /*(*f2py_func)(side,trans,&m,&n,&k,a,&lda,tau,c,&ldc,work,&lwork,&info,slen(side),slen(trans));*/
76049 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
76050if (PyErr_Occurred())
76051 f2py_success = 0;
76052#ifdef F2PY_REPORT_ATEXIT
76053f2py_stop_call_clock();
76054#endif
76055/*end of callfortranroutine*/
76056 if (f2py_success) {
76057/*pyobjfrom*/
76058/*end of pyobjfrom*/
76059 CFUNCSMESS("Building return value.\n");
76060 capi_buildvalue = Py_BuildValue("NNi",capi_c_tmp,capi_work_tmp,info);
76061/*closepyobjfrom*/
76062/*end of closepyobjfrom*/
76063 } /*if (f2py_success) after callfortranroutine*/
76064/*cleanupfrompyobj*/
76065 } /*if (capi_work_tmp == NULL) ... else of work*/
76066 /* End of cleaning variable work */
76067 /* End of cleaning variable ldc */
76068 if((PyObject *)capi_tau_tmp!=tau_capi) {
76069 Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); }
76070 } /*if (capi_tau_tmp == NULL) ... else of tau*/
76071 /* End of cleaning variable tau */
76072 /* End of cleaning variable lda */
76073 /* End of cleaning variable k */
76074 /* End of cleaning variable n */
76075 /* End of cleaning variable m */
76076 /* End of cleaning variable info */
76077 } /*if (f2py_success) of lwork*/
76078 /* End of cleaning variable lwork */
76079 } /*if (capi_c_tmp == NULL) ... else of c*/
76080 /* End of cleaning variable c */
76081 if((PyObject *)capi_a_tmp!=a_capi) {
76082 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
76083 } /*if (capi_a_tmp == NULL) ... else of a*/
76084 /* End of cleaning variable a */
76085 } /*CHECKSTRING(*trans=='N'||*trans=='T')*/
76086 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
76087 } /*if (f2py_success) of trans*/
76088 /* End of cleaning variable trans */
76089 } /*CHECKSTRING(*side=='L'||*side=='R')*/
76090 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
76091 } /*if (f2py_success) of side*/
76092 /* End of cleaning variable side */
76093/*end of cleanupfrompyobj*/
76094 if (capi_buildvalue == NULL((void*)0)) {
76095/*routdebugfailure*/
76096 } else {
76097/*routdebugleave*/
76098 }
76099 CFUNCSMESS("Freeing memory.\n");
76100/*freemem*/
76101#ifdef F2PY_REPORT_ATEXIT
76102f2py_stop_clock();
76103#endif
76104 return capi_buildvalue;
76105}
76106/******************************* end of sormqr *******************************/
76107
76108/*********************************** dormqr ***********************************/
76109static char doc_f2py_rout__flapack_dormqr[] = "\
76110cq,work,info = dormqr(side,trans,a,tau,c,lwork,[overwrite_c])\n\nWrapper for ``dormqr``.\
76111\n\nParameters\n----------\n"
76112"side : input string(len=1)\n"
76113"trans : input string(len=1)\n"
76114"a : input rank-2 array('d') with bounds (lda,k)\n"
76115"tau : input rank-1 array('d') with bounds (k)\n"
76116"c : input rank-2 array('d') with bounds (ldc,n)\n"
76117"lwork : input int\n"
76118"\nOther Parameters\n----------------\n"
76119"overwrite_c : input int, optional\n Default: 0\n"
76120"\nReturns\n-------\n"
76121"cq : rank-2 array('d') with bounds (ldc,n) and c storage\n"
76122"work : rank-1 array('d') with bounds (MAX(lwork,1))\n"
76123"info : int";
76124/* extern void F_FUNC(dormqr,DORMQR)(char*,char*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT* ); */
76125static PyObject *f2py_rout__flapack_dormqr(const PyObject *capi_self,
76126 PyObject *capi_args,
76127 PyObject *capi_keywds,
76128 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
76129 PyObject * volatile capi_buildvalue = NULL((void*)0);
76130 volatile int f2py_success = 1;
76131/*decl*/
76132
76133 string side = NULL((void*)0);
76134 int slen(side)capi_side_len;
76135 PyObject *side_capi = Py_None(&_Py_NoneStruct);
76136 string trans = NULL((void*)0);
76137 int slen(trans)capi_trans_len;
76138 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
76139 int m = 0;
76140 int n = 0;
76141 int k = 0;
76142 double *a = NULL((void*)0);
76143 npy_intp a_Dims[2] = {-1, -1};
76144 const int a_Rank = 2;
76145 PyArrayObject *capi_a_tmp = NULL((void*)0);
76146 int capi_a_intent = 0;
76147 PyObject *a_capi = Py_None(&_Py_NoneStruct);
76148 int lda = 0;
76149 double *tau = NULL((void*)0);
76150 npy_intp tau_Dims[1] = {-1};
76151 const int tau_Rank = 1;
76152 PyArrayObject *capi_tau_tmp = NULL((void*)0);
76153 int capi_tau_intent = 0;
76154 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
76155 double *c = NULL((void*)0);
76156 npy_intp c_Dims[2] = {-1, -1};
76157 const int c_Rank = 2;
76158 PyArrayObject *capi_c_tmp = NULL((void*)0);
76159 int capi_c_intent = 0;
76160 int capi_overwrite_c = 0;
76161 PyObject *c_capi = Py_None(&_Py_NoneStruct);
76162 int ldc = 0;
76163 double *work = NULL((void*)0);
76164 npy_intp work_Dims[1] = {-1};
76165 const int work_Rank = 1;
76166 PyArrayObject *capi_work_tmp = NULL((void*)0);
76167 int capi_work_intent = 0;
76168 int lwork = 0;
76169 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
76170 int info = 0;
76171 static char *capi_kwlist[] = {"side","trans","a","tau","c","lwork","overwrite_c",NULL((void*)0)};
76172
76173/*routdebugenter*/
76174#ifdef F2PY_REPORT_ATEXIT
76175f2py_start_clock();
76176#endif
76177 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
76178 "OOOOOO|i:_flapack.dormqr",\
76179 capi_kwlist,&side_capi,&trans_capi,&a_capi,&tau_capi,&c_capi,&lwork_capi,&capi_overwrite_c))
76180 return NULL((void*)0);
76181/*frompyobj*/
76182 /* Processing variable side */
76183 slen(side)capi_side_len = 1;
76184 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"",side_capi,"string_from_pyobj failed in converting 1st argument `side' of _flapack.dormqr to C string");
76185 if (f2py_success) {
76186 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st argument side","dormqr:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dormqr:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""1st argument side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
76187 /* Processing variable trans */
76188 slen(trans)capi_trans_len = 1;
76189 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"",trans_capi,"string_from_pyobj failed in converting 2nd argument `trans' of _flapack.dormqr to C string");
76190 if (f2py_success) {
76191 CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","2nd argument trans","dormqr:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dormqr:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'"
") failed for ""2nd argument trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
76192 /* Processing variable a */
76193 ;
76194 capi_a_intent |= F2PY_INTENT_IN1;
76195 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
76196 if (capi_a_tmp == NULL((void*)0)) {
76197 if (!PyErr_Occurred())
76198 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `a' of _flapack.dormqr to C/Fortran array" );
76199 } else {
76200 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
76201
76202 /* Processing variable c */
76203 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
76204 ;
76205 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
76206 capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
76207 if (capi_c_tmp == NULL((void*)0)) {
76208 if (!PyErr_Occurred())
76209 PyErr_SetString(_flapack_error,"failed in converting 5th argument `c' of _flapack.dormqr to C/Fortran array" );
76210 } else {
76211 c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
76212
76213 /* Processing variable lwork */
76214 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dormqr() 6th argument (lwork) can't be converted to int");
76215 if (f2py_success) {
76216 /* Processing variable info */
76217 /* Processing variable m */
76218 m = shape(c,0)c_Dims[0];
76219 /* Processing variable n */
76220 n = shape(c,1)c_Dims[1];
76221 /* Processing variable k */
76222 k = shape(a,1)a_Dims[1];
76223 /* Processing variable lda */
76224 lda = shape(a, 0)a_Dims[0];
76225 /* Processing variable tau */
76226 tau_Dims[0]=k;
76227 capi_tau_intent |= F2PY_INTENT_IN1;
76228 capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,tau_capi);
76229 if (capi_tau_tmp == NULL((void*)0)) {
76230 if (!PyErr_Occurred())
76231 PyErr_SetString(_flapack_error,"failed in converting 4th argument `tau' of _flapack.dormqr to C/Fortran array" );
76232 } else {
76233 tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
76234
76235 /* Processing variable ldc */
76236 ldc = shape(c, 0)c_Dims[0];
76237 /* Processing variable work */
76238 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
76239 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
76240 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
76241 if (capi_work_tmp == NULL((void*)0)) {
76242 if (!PyErr_Occurred())
76243 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dormqr to C/Fortran array" );
76244 } else {
76245 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
76246
76247/*end of frompyobj*/
76248#ifdef F2PY_REPORT_ATEXIT
76249f2py_start_call_clock();
76250#endif
76251/*callfortranroutine*/
76252 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
76253 (*f2py_func)(side,trans,&m,&n,&k,a,&lda,tau,c,&ldc,work,&lwork,&info) ;
76254 /*(*f2py_func)(side,trans,&m,&n,&k,a,&lda,tau,c,&ldc,work,&lwork,&info,slen(side),slen(trans));*/
76255 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
76256if (PyErr_Occurred())
76257 f2py_success = 0;
76258#ifdef F2PY_REPORT_ATEXIT
76259f2py_stop_call_clock();
76260#endif
76261/*end of callfortranroutine*/
76262 if (f2py_success) {
76263/*pyobjfrom*/
76264/*end of pyobjfrom*/
76265 CFUNCSMESS("Building return value.\n");
76266 capi_buildvalue = Py_BuildValue("NNi",capi_c_tmp,capi_work_tmp,info);
76267/*closepyobjfrom*/
76268/*end of closepyobjfrom*/
76269 } /*if (f2py_success) after callfortranroutine*/
76270/*cleanupfrompyobj*/
76271 } /*if (capi_work_tmp == NULL) ... else of work*/
76272 /* End of cleaning variable work */
76273 /* End of cleaning variable ldc */
76274 if((PyObject *)capi_tau_tmp!=tau_capi) {
76275 Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); }
76276 } /*if (capi_tau_tmp == NULL) ... else of tau*/
76277 /* End of cleaning variable tau */
76278 /* End of cleaning variable lda */
76279 /* End of cleaning variable k */
76280 /* End of cleaning variable n */
76281 /* End of cleaning variable m */
76282 /* End of cleaning variable info */
76283 } /*if (f2py_success) of lwork*/
76284 /* End of cleaning variable lwork */
76285 } /*if (capi_c_tmp == NULL) ... else of c*/
76286 /* End of cleaning variable c */
76287 if((PyObject *)capi_a_tmp!=a_capi) {
76288 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
76289 } /*if (capi_a_tmp == NULL) ... else of a*/
76290 /* End of cleaning variable a */
76291 } /*CHECKSTRING(*trans=='N'||*trans=='T')*/
76292 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
76293 } /*if (f2py_success) of trans*/
76294 /* End of cleaning variable trans */
76295 } /*CHECKSTRING(*side=='L'||*side=='R')*/
76296 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
76297 } /*if (f2py_success) of side*/
76298 /* End of cleaning variable side */
76299/*end of cleanupfrompyobj*/
76300 if (capi_buildvalue == NULL((void*)0)) {
76301/*routdebugfailure*/
76302 } else {
76303/*routdebugleave*/
76304 }
76305 CFUNCSMESS("Freeing memory.\n");
76306/*freemem*/
76307#ifdef F2PY_REPORT_ATEXIT
76308f2py_stop_clock();
76309#endif
76310 return capi_buildvalue;
76311}
76312/******************************* end of dormqr *******************************/
76313
76314/*********************************** cunmqr ***********************************/
76315static char doc_f2py_rout__flapack_cunmqr[] = "\
76316cq,work,info = cunmqr(side,trans,a,tau,c,lwork,[overwrite_c])\n\nWrapper for ``cunmqr``.\
76317\n\nParameters\n----------\n"
76318"side : input string(len=1)\n"
76319"trans : input string(len=1)\n"
76320"a : input rank-2 array('F') with bounds (lda,k)\n"
76321"tau : input rank-1 array('F') with bounds (k)\n"
76322"c : input rank-2 array('F') with bounds (ldc,n)\n"
76323"lwork : input int\n"
76324"\nOther Parameters\n----------------\n"
76325"overwrite_c : input int, optional\n Default: 0\n"
76326"\nReturns\n-------\n"
76327"cq : rank-2 array('F') with bounds (ldc,n) and c storage\n"
76328"work : rank-1 array('F') with bounds (MAX(lwork,1))\n"
76329"info : int";
76330/* extern void F_FUNC(cunmqr,CUNMQR)(char*,char*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */
76331static PyObject *f2py_rout__flapack_cunmqr(const PyObject *capi_self,
76332 PyObject *capi_args,
76333 PyObject *capi_keywds,
76334 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
76335 PyObject * volatile capi_buildvalue = NULL((void*)0);
76336 volatile int f2py_success = 1;
76337/*decl*/
76338
76339 string side = NULL((void*)0);
76340 int slen(side)capi_side_len;
76341 PyObject *side_capi = Py_None(&_Py_NoneStruct);
76342 string trans = NULL((void*)0);
76343 int slen(trans)capi_trans_len;
76344 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
76345 int m = 0;
76346 int n = 0;
76347 int k = 0;
76348 complex_float *a = NULL((void*)0);
76349 npy_intp a_Dims[2] = {-1, -1};
76350 const int a_Rank = 2;
76351 PyArrayObject *capi_a_tmp = NULL((void*)0);
76352 int capi_a_intent = 0;
76353 PyObject *a_capi = Py_None(&_Py_NoneStruct);
76354 int lda = 0;
76355 complex_float *tau = NULL((void*)0);
76356 npy_intp tau_Dims[1] = {-1};
76357 const int tau_Rank = 1;
76358 PyArrayObject *capi_tau_tmp = NULL((void*)0);
76359 int capi_tau_intent = 0;
76360 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
76361 complex_float *c = NULL((void*)0);
76362 npy_intp c_Dims[2] = {-1, -1};
76363 const int c_Rank = 2;
76364 PyArrayObject *capi_c_tmp = NULL((void*)0);
76365 int capi_c_intent = 0;
76366 int capi_overwrite_c = 0;
76367 PyObject *c_capi = Py_None(&_Py_NoneStruct);
76368 int ldc = 0;
76369 complex_float *work = NULL((void*)0);
76370 npy_intp work_Dims[1] = {-1};
76371 const int work_Rank = 1;
76372 PyArrayObject *capi_work_tmp = NULL((void*)0);
76373 int capi_work_intent = 0;
76374 int lwork = 0;
76375 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
76376 int info = 0;
76377 static char *capi_kwlist[] = {"side","trans","a","tau","c","lwork","overwrite_c",NULL((void*)0)};
76378
76379/*routdebugenter*/
76380#ifdef F2PY_REPORT_ATEXIT
76381f2py_start_clock();
76382#endif
76383 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
76384 "OOOOOO|i:_flapack.cunmqr",\
76385 capi_kwlist,&side_capi,&trans_capi,&a_capi,&tau_capi,&c_capi,&lwork_capi,&capi_overwrite_c))
76386 return NULL((void*)0);
76387/*frompyobj*/
76388 /* Processing variable side */
76389 slen(side)capi_side_len = 1;
76390 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"",side_capi,"string_from_pyobj failed in converting 1st argument `side' of _flapack.cunmqr to C string");
76391 if (f2py_success) {
76392 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st argument side","cunmqr:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cunmqr:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""1st argument side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
76393 /* Processing variable trans */
76394 slen(trans)capi_trans_len = 1;
76395 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"",trans_capi,"string_from_pyobj failed in converting 2nd argument `trans' of _flapack.cunmqr to C string");
76396 if (f2py_success) {
76397 CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","2nd argument trans","cunmqr:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cunmqr:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'"
") failed for ""2nd argument trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
76398 /* Processing variable a */
76399 ;
76400 capi_a_intent |= F2PY_INTENT_IN1;
76401 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
76402 if (capi_a_tmp == NULL((void*)0)) {
76403 if (!PyErr_Occurred())
76404 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `a' of _flapack.cunmqr to C/Fortran array" );
76405 } else {
76406 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
76407
76408 /* Processing variable c */
76409 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
76410 ;
76411 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
76412 capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
76413 if (capi_c_tmp == NULL((void*)0)) {
76414 if (!PyErr_Occurred())
76415 PyErr_SetString(_flapack_error,"failed in converting 5th argument `c' of _flapack.cunmqr to C/Fortran array" );
76416 } else {
76417 c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
76418
76419 /* Processing variable lwork */
76420 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cunmqr() 6th argument (lwork) can't be converted to int");
76421 if (f2py_success) {
76422 /* Processing variable info */
76423 /* Processing variable m */
76424 m = shape(c,0)c_Dims[0];
76425 /* Processing variable n */
76426 n = shape(c,1)c_Dims[1];
76427 /* Processing variable k */
76428 k = shape(a,1)a_Dims[1];
76429 /* Processing variable lda */
76430 lda = shape(a, 0)a_Dims[0];
76431 /* Processing variable tau */
76432 tau_Dims[0]=k;
76433 capi_tau_intent |= F2PY_INTENT_IN1;
76434 capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,tau_capi);
76435 if (capi_tau_tmp == NULL((void*)0)) {
76436 if (!PyErr_Occurred())
76437 PyErr_SetString(_flapack_error,"failed in converting 4th argument `tau' of _flapack.cunmqr to C/Fortran array" );
76438 } else {
76439 tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
76440
76441 /* Processing variable ldc */
76442 ldc = shape(c, 0)c_Dims[0];
76443 /* Processing variable work */
76444 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
76445 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
76446 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
76447 if (capi_work_tmp == NULL((void*)0)) {
76448 if (!PyErr_Occurred())
76449 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cunmqr to C/Fortran array" );
76450 } else {
76451 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
76452
76453/*end of frompyobj*/
76454#ifdef F2PY_REPORT_ATEXIT
76455f2py_start_call_clock();
76456#endif
76457/*callfortranroutine*/
76458 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
76459 (*f2py_func)(side,trans,&m,&n,&k,a,&lda,tau,c,&ldc,work,&lwork,&info) ;
76460 /*(*f2py_func)(side,trans,&m,&n,&k,a,&lda,tau,c,&ldc,work,&lwork,&info,slen(side),slen(trans));*/
76461 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
76462if (PyErr_Occurred())
76463 f2py_success = 0;
76464#ifdef F2PY_REPORT_ATEXIT
76465f2py_stop_call_clock();
76466#endif
76467/*end of callfortranroutine*/
76468 if (f2py_success) {
76469/*pyobjfrom*/
76470/*end of pyobjfrom*/
76471 CFUNCSMESS("Building return value.\n");
76472 capi_buildvalue = Py_BuildValue("NNi",capi_c_tmp,capi_work_tmp,info);
76473/*closepyobjfrom*/
76474/*end of closepyobjfrom*/
76475 } /*if (f2py_success) after callfortranroutine*/
76476/*cleanupfrompyobj*/
76477 } /*if (capi_work_tmp == NULL) ... else of work*/
76478 /* End of cleaning variable work */
76479 /* End of cleaning variable ldc */
76480 if((PyObject *)capi_tau_tmp!=tau_capi) {
76481 Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); }
76482 } /*if (capi_tau_tmp == NULL) ... else of tau*/
76483 /* End of cleaning variable tau */
76484 /* End of cleaning variable lda */
76485 /* End of cleaning variable k */
76486 /* End of cleaning variable n */
76487 /* End of cleaning variable m */
76488 /* End of cleaning variable info */
76489 } /*if (f2py_success) of lwork*/
76490 /* End of cleaning variable lwork */
76491 } /*if (capi_c_tmp == NULL) ... else of c*/
76492 /* End of cleaning variable c */
76493 if((PyObject *)capi_a_tmp!=a_capi) {
76494 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
76495 } /*if (capi_a_tmp == NULL) ... else of a*/
76496 /* End of cleaning variable a */
76497 } /*CHECKSTRING(*trans=='N'||*trans=='C')*/
76498 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
76499 } /*if (f2py_success) of trans*/
76500 /* End of cleaning variable trans */
76501 } /*CHECKSTRING(*side=='L'||*side=='R')*/
76502 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
76503 } /*if (f2py_success) of side*/
76504 /* End of cleaning variable side */
76505/*end of cleanupfrompyobj*/
76506 if (capi_buildvalue == NULL((void*)0)) {
76507/*routdebugfailure*/
76508 } else {
76509/*routdebugleave*/
76510 }
76511 CFUNCSMESS("Freeing memory.\n");
76512/*freemem*/
76513#ifdef F2PY_REPORT_ATEXIT
76514f2py_stop_clock();
76515#endif
76516 return capi_buildvalue;
76517}
76518/******************************* end of cunmqr *******************************/
76519
76520/*********************************** zunmqr ***********************************/
76521static char doc_f2py_rout__flapack_zunmqr[] = "\
76522cq,work,info = zunmqr(side,trans,a,tau,c,lwork,[overwrite_c])\n\nWrapper for ``zunmqr``.\
76523\n\nParameters\n----------\n"
76524"side : input string(len=1)\n"
76525"trans : input string(len=1)\n"
76526"a : input rank-2 array('D') with bounds (lda,k)\n"
76527"tau : input rank-1 array('D') with bounds (k)\n"
76528"c : input rank-2 array('D') with bounds (ldc,n)\n"
76529"lwork : input int\n"
76530"\nOther Parameters\n----------------\n"
76531"overwrite_c : input int, optional\n Default: 0\n"
76532"\nReturns\n-------\n"
76533"cq : rank-2 array('D') with bounds (ldc,n) and c storage\n"
76534"work : rank-1 array('D') with bounds (MAX(lwork,1))\n"
76535"info : int";
76536/* extern void F_FUNC(zunmqr,ZUNMQR)(char*,char*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */
76537static PyObject *f2py_rout__flapack_zunmqr(const PyObject *capi_self,
76538 PyObject *capi_args,
76539 PyObject *capi_keywds,
76540 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
76541 PyObject * volatile capi_buildvalue = NULL((void*)0);
76542 volatile int f2py_success = 1;
76543/*decl*/
76544
76545 string side = NULL((void*)0);
76546 int slen(side)capi_side_len;
76547 PyObject *side_capi = Py_None(&_Py_NoneStruct);
76548 string trans = NULL((void*)0);
76549 int slen(trans)capi_trans_len;
76550 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
76551 int m = 0;
76552 int n = 0;
76553 int k = 0;
76554 complex_double *a = NULL((void*)0);
76555 npy_intp a_Dims[2] = {-1, -1};
76556 const int a_Rank = 2;
76557 PyArrayObject *capi_a_tmp = NULL((void*)0);
76558 int capi_a_intent = 0;
76559 PyObject *a_capi = Py_None(&_Py_NoneStruct);
76560 int lda = 0;
76561 complex_double *tau = NULL((void*)0);
76562 npy_intp tau_Dims[1] = {-1};
76563 const int tau_Rank = 1;
76564 PyArrayObject *capi_tau_tmp = NULL((void*)0);
76565 int capi_tau_intent = 0;
76566 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
76567 complex_double *c = NULL((void*)0);
76568 npy_intp c_Dims[2] = {-1, -1};
76569 const int c_Rank = 2;
76570 PyArrayObject *capi_c_tmp = NULL((void*)0);
76571 int capi_c_intent = 0;
76572 int capi_overwrite_c = 0;
76573 PyObject *c_capi = Py_None(&_Py_NoneStruct);
76574 int ldc = 0;
76575 complex_double *work = NULL((void*)0);
76576 npy_intp work_Dims[1] = {-1};
76577 const int work_Rank = 1;
76578 PyArrayObject *capi_work_tmp = NULL((void*)0);
76579 int capi_work_intent = 0;
76580 int lwork = 0;
76581 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
76582 int info = 0;
76583 static char *capi_kwlist[] = {"side","trans","a","tau","c","lwork","overwrite_c",NULL((void*)0)};
76584
76585/*routdebugenter*/
76586#ifdef F2PY_REPORT_ATEXIT
76587f2py_start_clock();
76588#endif
76589 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
76590 "OOOOOO|i:_flapack.zunmqr",\
76591 capi_kwlist,&side_capi,&trans_capi,&a_capi,&tau_capi,&c_capi,&lwork_capi,&capi_overwrite_c))
76592 return NULL((void*)0);
76593/*frompyobj*/
76594 /* Processing variable side */
76595 slen(side)capi_side_len = 1;
76596 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"",side_capi,"string_from_pyobj failed in converting 1st argument `side' of _flapack.zunmqr to C string");
76597 if (f2py_success) {
76598 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st argument side","zunmqr:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zunmqr:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""1st argument side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
76599 /* Processing variable trans */
76600 slen(trans)capi_trans_len = 1;
76601 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"",trans_capi,"string_from_pyobj failed in converting 2nd argument `trans' of _flapack.zunmqr to C string");
76602 if (f2py_success) {
76603 CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","2nd argument trans","zunmqr:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zunmqr:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'"
") failed for ""2nd argument trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
76604 /* Processing variable a */
76605 ;
76606 capi_a_intent |= F2PY_INTENT_IN1;
76607 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
76608 if (capi_a_tmp == NULL((void*)0)) {
76609 if (!PyErr_Occurred())
76610 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `a' of _flapack.zunmqr to C/Fortran array" );
76611 } else {
76612 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
76613
76614 /* Processing variable c */
76615 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
76616 ;
76617 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
76618 capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
76619 if (capi_c_tmp == NULL((void*)0)) {
76620 if (!PyErr_Occurred())
76621 PyErr_SetString(_flapack_error,"failed in converting 5th argument `c' of _flapack.zunmqr to C/Fortran array" );
76622 } else {
76623 c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
76624
76625 /* Processing variable lwork */
76626 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zunmqr() 6th argument (lwork) can't be converted to int");
76627 if (f2py_success) {
76628 /* Processing variable info */
76629 /* Processing variable m */
76630 m = shape(c,0)c_Dims[0];
76631 /* Processing variable n */
76632 n = shape(c,1)c_Dims[1];
76633 /* Processing variable k */
76634 k = shape(a,1)a_Dims[1];
76635 /* Processing variable lda */
76636 lda = shape(a, 0)a_Dims[0];
76637 /* Processing variable tau */
76638 tau_Dims[0]=k;
76639 capi_tau_intent |= F2PY_INTENT_IN1;
76640 capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,tau_capi);
76641 if (capi_tau_tmp == NULL((void*)0)) {
76642 if (!PyErr_Occurred())
76643 PyErr_SetString(_flapack_error,"failed in converting 4th argument `tau' of _flapack.zunmqr to C/Fortran array" );
76644 } else {
76645 tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
76646
76647 /* Processing variable ldc */
76648 ldc = shape(c, 0)c_Dims[0];
76649 /* Processing variable work */
76650 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
76651 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
76652 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
76653 if (capi_work_tmp == NULL((void*)0)) {
76654 if (!PyErr_Occurred())
76655 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zunmqr to C/Fortran array" );
76656 } else {
76657 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
76658
76659/*end of frompyobj*/
76660#ifdef F2PY_REPORT_ATEXIT
76661f2py_start_call_clock();
76662#endif
76663/*callfortranroutine*/
76664 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
76665 (*f2py_func)(side,trans,&m,&n,&k,a,&lda,tau,c,&ldc,work,&lwork,&info) ;
76666 /*(*f2py_func)(side,trans,&m,&n,&k,a,&lda,tau,c,&ldc,work,&lwork,&info,slen(side),slen(trans));*/
76667 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
76668if (PyErr_Occurred())
76669 f2py_success = 0;
76670#ifdef F2PY_REPORT_ATEXIT
76671f2py_stop_call_clock();
76672#endif
76673/*end of callfortranroutine*/
76674 if (f2py_success) {
76675/*pyobjfrom*/
76676/*end of pyobjfrom*/
76677 CFUNCSMESS("Building return value.\n");
76678 capi_buildvalue = Py_BuildValue("NNi",capi_c_tmp,capi_work_tmp,info);
76679/*closepyobjfrom*/
76680/*end of closepyobjfrom*/
76681 } /*if (f2py_success) after callfortranroutine*/
76682/*cleanupfrompyobj*/
76683 } /*if (capi_work_tmp == NULL) ... else of work*/
76684 /* End of cleaning variable work */
76685 /* End of cleaning variable ldc */
76686 if((PyObject *)capi_tau_tmp!=tau_capi) {
76687 Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); }
76688 } /*if (capi_tau_tmp == NULL) ... else of tau*/
76689 /* End of cleaning variable tau */
76690 /* End of cleaning variable lda */
76691 /* End of cleaning variable k */
76692 /* End of cleaning variable n */
76693 /* End of cleaning variable m */
76694 /* End of cleaning variable info */
76695 } /*if (f2py_success) of lwork*/
76696 /* End of cleaning variable lwork */
76697 } /*if (capi_c_tmp == NULL) ... else of c*/
76698 /* End of cleaning variable c */
76699 if((PyObject *)capi_a_tmp!=a_capi) {
76700 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
76701 } /*if (capi_a_tmp == NULL) ... else of a*/
76702 /* End of cleaning variable a */
76703 } /*CHECKSTRING(*trans=='N'||*trans=='C')*/
76704 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
76705 } /*if (f2py_success) of trans*/
76706 /* End of cleaning variable trans */
76707 } /*CHECKSTRING(*side=='L'||*side=='R')*/
76708 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
76709 } /*if (f2py_success) of side*/
76710 /* End of cleaning variable side */
76711/*end of cleanupfrompyobj*/
76712 if (capi_buildvalue == NULL((void*)0)) {
76713/*routdebugfailure*/
76714 } else {
76715/*routdebugleave*/
76716 }
76717 CFUNCSMESS("Freeing memory.\n");
76718/*freemem*/
76719#ifdef F2PY_REPORT_ATEXIT
76720f2py_stop_clock();
76721#endif
76722 return capi_buildvalue;
76723}
76724/******************************* end of zunmqr *******************************/
76725
76726/*********************************** sgeqrt ***********************************/
76727static char doc_f2py_rout__flapack_sgeqrt[] = "\
76728a,t,info = sgeqrt(nb,a,[overwrite_a])\n\nWrapper for ``sgeqrt``.\
76729\n\nParameters\n----------\n"
76730"nb : input int\n"
76731"a : input rank-2 array('f') with bounds (m,n)\n"
76732"\nOther Parameters\n----------------\n"
76733"overwrite_a : input int, optional\n Default: 0\n"
76734"\nReturns\n-------\n"
76735"a : rank-2 array('f') with bounds (m,n)\n"
76736"t : rank-2 array('f') with bounds (nb,MIN(m,n))\n"
76737"info : int";
76738/* extern void F_FUNC(sgeqrt,SGEQRT)(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT* ); */
76739static PyObject *f2py_rout__flapack_sgeqrt(const PyObject *capi_self,
76740 PyObject *capi_args,
76741 PyObject *capi_keywds,
76742 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint* )) {
76743 PyObject * volatile capi_buildvalue = NULL((void*)0);
76744 volatile int f2py_success = 1;
76745/*decl*/
76746
76747 int m = 0;
76748 int n = 0;
76749 int nb = 0;
76750 PyObject *nb_capi = Py_None(&_Py_NoneStruct);
76751 float *a = NULL((void*)0);
76752 npy_intp a_Dims[2] = {-1, -1};
76753 const int a_Rank = 2;
76754 PyArrayObject *capi_a_tmp = NULL((void*)0);
76755 int capi_a_intent = 0;
76756 int capi_overwrite_a = 0;
76757 PyObject *a_capi = Py_None(&_Py_NoneStruct);
76758 int lda = 0;
76759 float *t = NULL((void*)0);
76760 npy_intp t_Dims[2] = {-1, -1};
76761 const int t_Rank = 2;
76762 PyArrayObject *capi_t_tmp = NULL((void*)0);
76763 int capi_t_intent = 0;
76764 int ldt = 0;
76765 float *work = NULL((void*)0);
76766 npy_intp work_Dims[2] = {-1, -1};
76767 const int work_Rank = 2;
76768 PyArrayObject *capi_work_tmp = NULL((void*)0);
76769 int capi_work_intent = 0;
76770 int info = 0;
76771 static char *capi_kwlist[] = {"nb","a","overwrite_a",NULL((void*)0)};
76772
76773/*routdebugenter*/
76774#ifdef F2PY_REPORT_ATEXIT
76775f2py_start_clock();
76776#endif
76777 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
76778 "OO|i:_flapack.sgeqrt",\
76779 capi_kwlist,&nb_capi,&a_capi,&capi_overwrite_a))
76780 return NULL((void*)0);
76781/*frompyobj*/
76782 /* Processing variable a */
76783 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
76784 ;
76785 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
76786 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
76787 if (capi_a_tmp == NULL((void*)0)) {
76788 if (!PyErr_Occurred())
76789 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.sgeqrt to C/Fortran array" );
76790 } else {
76791 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
76792
76793 /* Processing variable info */
76794 /* Processing variable m */
76795 m = shape(a,0)a_Dims[0];
76796 /* Processing variable n */
76797 n = shape(a,1)a_Dims[1];
76798 /* Processing variable nb */
76799 f2py_success = int_from_pyobj(&nb,nb_capi,"_flapack.sgeqrt() 1st argument (nb) can't be converted to int");
76800 if (f2py_success) {
76801 CHECKSCALAR(MIN(m,n)>=nb&&nb>=1,"MIN(m,n)>=nb&&nb>=1","1st argument nb","sgeqrt:nb=%d",nb)if (!(((m < n) ? (m) : (n))>=nb&&nb>=1)) { char
errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""sgeqrt:nb=%d", "(""MIN(m,n)>=nb&&nb>=1"
") failed for ""1st argument nb", nb); PyErr_SetString(_flapack_error
,errstring); } else
{
76802 /* Processing variable lda */
76803 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
76804 /* Processing variable t */
76805 t_Dims[0]=nb,t_Dims[1]=MIN(m,n)((m < n) ? (m) : (n));
76806 capi_t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
76807 capi_t_tmp = array_from_pyobj(NPY_FLOAT,t_Dims,t_Rank,capi_t_intent,Py_None(&_Py_NoneStruct));
76808 if (capi_t_tmp == NULL((void*)0)) {
76809 if (!PyErr_Occurred())
76810 PyErr_SetString(_flapack_error,"failed in converting hidden `t' of _flapack.sgeqrt to C/Fortran array" );
76811 } else {
76812 t = (float *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data));
76813
76814 /* Processing variable ldt */
76815 ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0]));
76816 /* Processing variable work */
76817 work_Dims[0]=nb,work_Dims[1]=n;
76818 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
76819 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
76820 if (capi_work_tmp == NULL((void*)0)) {
76821 if (!PyErr_Occurred())
76822 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgeqrt to C/Fortran array" );
76823 } else {
76824 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
76825
76826/*end of frompyobj*/
76827#ifdef F2PY_REPORT_ATEXIT
76828f2py_start_call_clock();
76829#endif
76830/*callfortranroutine*/
76831 (*f2py_func)(&m,&n,&nb,a,&lda,t,&ldt,work,&info) ;
76832 /*(*f2py_func)(&m,&n,&nb,a,&lda,t,&ldt,work,&info);*/
76833if (PyErr_Occurred())
76834 f2py_success = 0;
76835#ifdef F2PY_REPORT_ATEXIT
76836f2py_stop_call_clock();
76837#endif
76838/*end of callfortranroutine*/
76839 if (f2py_success) {
76840/*pyobjfrom*/
76841/*end of pyobjfrom*/
76842 CFUNCSMESS("Building return value.\n");
76843 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_t_tmp,info);
76844/*closepyobjfrom*/
76845/*end of closepyobjfrom*/
76846 } /*if (f2py_success) after callfortranroutine*/
76847/*cleanupfrompyobj*/
76848 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
76849 } /*if (capi_work_tmp == NULL) ... else of work*/
76850 /* End of cleaning variable work */
76851 /* End of cleaning variable ldt */
76852 } /*if (capi_t_tmp == NULL) ... else of t*/
76853 /* End of cleaning variable t */
76854 /* End of cleaning variable lda */
76855 } /*CHECKSCALAR(MIN(m,n)>=nb&&nb>=1)*/
76856 } /*if (f2py_success) of nb*/
76857 /* End of cleaning variable nb */
76858 /* End of cleaning variable n */
76859 /* End of cleaning variable m */
76860 /* End of cleaning variable info */
76861 } /*if (capi_a_tmp == NULL) ... else of a*/
76862 /* End of cleaning variable a */
76863/*end of cleanupfrompyobj*/
76864 if (capi_buildvalue == NULL((void*)0)) {
76865/*routdebugfailure*/
76866 } else {
76867/*routdebugleave*/
76868 }
76869 CFUNCSMESS("Freeing memory.\n");
76870/*freemem*/
76871#ifdef F2PY_REPORT_ATEXIT
76872f2py_stop_clock();
76873#endif
76874 return capi_buildvalue;
76875}
76876/******************************* end of sgeqrt *******************************/
76877
76878/*********************************** dgeqrt ***********************************/
76879static char doc_f2py_rout__flapack_dgeqrt[] = "\
76880a,t,info = dgeqrt(nb,a,[overwrite_a])\n\nWrapper for ``dgeqrt``.\
76881\n\nParameters\n----------\n"
76882"nb : input int\n"
76883"a : input rank-2 array('d') with bounds (m,n)\n"
76884"\nOther Parameters\n----------------\n"
76885"overwrite_a : input int, optional\n Default: 0\n"
76886"\nReturns\n-------\n"
76887"a : rank-2 array('d') with bounds (m,n)\n"
76888"t : rank-2 array('d') with bounds (nb,MIN(m,n))\n"
76889"info : int";
76890/* extern void F_FUNC(dgeqrt,DGEQRT)(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT* ); */
76891static PyObject *f2py_rout__flapack_dgeqrt(const PyObject *capi_self,
76892 PyObject *capi_args,
76893 PyObject *capi_keywds,
76894 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint* )) {
76895 PyObject * volatile capi_buildvalue = NULL((void*)0);
76896 volatile int f2py_success = 1;
76897/*decl*/
76898
76899 int m = 0;
76900 int n = 0;
76901 int nb = 0;
76902 PyObject *nb_capi = Py_None(&_Py_NoneStruct);
76903 double *a = NULL((void*)0);
76904 npy_intp a_Dims[2] = {-1, -1};
76905 const int a_Rank = 2;
76906 PyArrayObject *capi_a_tmp = NULL((void*)0);
76907 int capi_a_intent = 0;
76908 int capi_overwrite_a = 0;
76909 PyObject *a_capi = Py_None(&_Py_NoneStruct);
76910 int lda = 0;
76911 double *t = NULL((void*)0);
76912 npy_intp t_Dims[2] = {-1, -1};
76913 const int t_Rank = 2;
76914 PyArrayObject *capi_t_tmp = NULL((void*)0);
76915 int capi_t_intent = 0;
76916 int ldt = 0;
76917 double *work = NULL((void*)0);
76918 npy_intp work_Dims[2] = {-1, -1};
76919 const int work_Rank = 2;
76920 PyArrayObject *capi_work_tmp = NULL((void*)0);
76921 int capi_work_intent = 0;
76922 int info = 0;
76923 static char *capi_kwlist[] = {"nb","a","overwrite_a",NULL((void*)0)};
76924
76925/*routdebugenter*/
76926#ifdef F2PY_REPORT_ATEXIT
76927f2py_start_clock();
76928#endif
76929 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
76930 "OO|i:_flapack.dgeqrt",\
76931 capi_kwlist,&nb_capi,&a_capi,&capi_overwrite_a))
76932 return NULL((void*)0);
76933/*frompyobj*/
76934 /* Processing variable a */
76935 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
76936 ;
76937 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
76938 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
76939 if (capi_a_tmp == NULL((void*)0)) {
76940 if (!PyErr_Occurred())
76941 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.dgeqrt to C/Fortran array" );
76942 } else {
76943 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
76944
76945 /* Processing variable info */
76946 /* Processing variable m */
76947 m = shape(a,0)a_Dims[0];
76948 /* Processing variable n */
76949 n = shape(a,1)a_Dims[1];
76950 /* Processing variable nb */
76951 f2py_success = int_from_pyobj(&nb,nb_capi,"_flapack.dgeqrt() 1st argument (nb) can't be converted to int");
76952 if (f2py_success) {
76953 CHECKSCALAR(MIN(m,n)>=nb&&nb>=1,"MIN(m,n)>=nb&&nb>=1","1st argument nb","dgeqrt:nb=%d",nb)if (!(((m < n) ? (m) : (n))>=nb&&nb>=1)) { char
errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dgeqrt:nb=%d", "(""MIN(m,n)>=nb&&nb>=1"
") failed for ""1st argument nb", nb); PyErr_SetString(_flapack_error
,errstring); } else
{
76954 /* Processing variable lda */
76955 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
76956 /* Processing variable t */
76957 t_Dims[0]=nb,t_Dims[1]=MIN(m,n)((m < n) ? (m) : (n));
76958 capi_t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
76959 capi_t_tmp = array_from_pyobj(NPY_DOUBLE,t_Dims,t_Rank,capi_t_intent,Py_None(&_Py_NoneStruct));
76960 if (capi_t_tmp == NULL((void*)0)) {
76961 if (!PyErr_Occurred())
76962 PyErr_SetString(_flapack_error,"failed in converting hidden `t' of _flapack.dgeqrt to C/Fortran array" );
76963 } else {
76964 t = (double *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data));
76965
76966 /* Processing variable ldt */
76967 ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0]));
76968 /* Processing variable work */
76969 work_Dims[0]=nb,work_Dims[1]=n;
76970 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
76971 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
76972 if (capi_work_tmp == NULL((void*)0)) {
76973 if (!PyErr_Occurred())
76974 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgeqrt to C/Fortran array" );
76975 } else {
76976 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
76977
76978/*end of frompyobj*/
76979#ifdef F2PY_REPORT_ATEXIT
76980f2py_start_call_clock();
76981#endif
76982/*callfortranroutine*/
76983 (*f2py_func)(&m,&n,&nb,a,&lda,t,&ldt,work,&info) ;
76984 /*(*f2py_func)(&m,&n,&nb,a,&lda,t,&ldt,work,&info);*/
76985if (PyErr_Occurred())
76986 f2py_success = 0;
76987#ifdef F2PY_REPORT_ATEXIT
76988f2py_stop_call_clock();
76989#endif
76990/*end of callfortranroutine*/
76991 if (f2py_success) {
76992/*pyobjfrom*/
76993/*end of pyobjfrom*/
76994 CFUNCSMESS("Building return value.\n");
76995 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_t_tmp,info);
76996/*closepyobjfrom*/
76997/*end of closepyobjfrom*/
76998 } /*if (f2py_success) after callfortranroutine*/
76999/*cleanupfrompyobj*/
77000 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
77001 } /*if (capi_work_tmp == NULL) ... else of work*/
77002 /* End of cleaning variable work */
77003 /* End of cleaning variable ldt */
77004 } /*if (capi_t_tmp == NULL) ... else of t*/
77005 /* End of cleaning variable t */
77006 /* End of cleaning variable lda */
77007 } /*CHECKSCALAR(MIN(m,n)>=nb&&nb>=1)*/
77008 } /*if (f2py_success) of nb*/
77009 /* End of cleaning variable nb */
77010 /* End of cleaning variable n */
77011 /* End of cleaning variable m */
77012 /* End of cleaning variable info */
77013 } /*if (capi_a_tmp == NULL) ... else of a*/
77014 /* End of cleaning variable a */
77015/*end of cleanupfrompyobj*/
77016 if (capi_buildvalue == NULL((void*)0)) {
77017/*routdebugfailure*/
77018 } else {
77019/*routdebugleave*/
77020 }
77021 CFUNCSMESS("Freeing memory.\n");
77022/*freemem*/
77023#ifdef F2PY_REPORT_ATEXIT
77024f2py_stop_clock();
77025#endif
77026 return capi_buildvalue;
77027}
77028/******************************* end of dgeqrt *******************************/
77029
77030/*********************************** cgeqrt ***********************************/
77031static char doc_f2py_rout__flapack_cgeqrt[] = "\
77032a,t,info = cgeqrt(nb,a,[overwrite_a])\n\nWrapper for ``cgeqrt``.\
77033\n\nParameters\n----------\n"
77034"nb : input int\n"
77035"a : input rank-2 array('F') with bounds (m,n)\n"
77036"\nOther Parameters\n----------------\n"
77037"overwrite_a : input int, optional\n Default: 0\n"
77038"\nReturns\n-------\n"
77039"a : rank-2 array('F') with bounds (m,n)\n"
77040"t : rank-2 array('F') with bounds (nb,MIN(m,n))\n"
77041"info : int";
77042/* extern void F_FUNC(cgeqrt,CGEQRT)(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT* ); */
77043static PyObject *f2py_rout__flapack_cgeqrt(const PyObject *capi_self,
77044 PyObject *capi_args,
77045 PyObject *capi_keywds,
77046 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* )) {
77047 PyObject * volatile capi_buildvalue = NULL((void*)0);
77048 volatile int f2py_success = 1;
77049/*decl*/
77050
77051 int m = 0;
77052 int n = 0;
77053 int nb = 0;
77054 PyObject *nb_capi = Py_None(&_Py_NoneStruct);
77055 complex_float *a = NULL((void*)0);
77056 npy_intp a_Dims[2] = {-1, -1};
77057 const int a_Rank = 2;
77058 PyArrayObject *capi_a_tmp = NULL((void*)0);
77059 int capi_a_intent = 0;
77060 int capi_overwrite_a = 0;
77061 PyObject *a_capi = Py_None(&_Py_NoneStruct);
77062 int lda = 0;
77063 complex_float *t = NULL((void*)0);
77064 npy_intp t_Dims[2] = {-1, -1};
77065 const int t_Rank = 2;
77066 PyArrayObject *capi_t_tmp = NULL((void*)0);
77067 int capi_t_intent = 0;
77068 int ldt = 0;
77069 complex_float *work = NULL((void*)0);
77070 npy_intp work_Dims[2] = {-1, -1};
77071 const int work_Rank = 2;
77072 PyArrayObject *capi_work_tmp = NULL((void*)0);
77073 int capi_work_intent = 0;
77074 int info = 0;
77075 static char *capi_kwlist[] = {"nb","a","overwrite_a",NULL((void*)0)};
77076
77077/*routdebugenter*/
77078#ifdef F2PY_REPORT_ATEXIT
77079f2py_start_clock();
77080#endif
77081 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
77082 "OO|i:_flapack.cgeqrt",\
77083 capi_kwlist,&nb_capi,&a_capi,&capi_overwrite_a))
77084 return NULL((void*)0);
77085/*frompyobj*/
77086 /* Processing variable a */
77087 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
77088 ;
77089 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
77090 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
77091 if (capi_a_tmp == NULL((void*)0)) {
77092 if (!PyErr_Occurred())
77093 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.cgeqrt to C/Fortran array" );
77094 } else {
77095 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
77096
77097 /* Processing variable info */
77098 /* Processing variable m */
77099 m = shape(a,0)a_Dims[0];
77100 /* Processing variable n */
77101 n = shape(a,1)a_Dims[1];
77102 /* Processing variable nb */
77103 f2py_success = int_from_pyobj(&nb,nb_capi,"_flapack.cgeqrt() 1st argument (nb) can't be converted to int");
77104 if (f2py_success) {
77105 CHECKSCALAR(MIN(m,n)>=nb&&nb>=1,"MIN(m,n)>=nb&&nb>=1","1st argument nb","cgeqrt:nb=%d",nb)if (!(((m < n) ? (m) : (n))>=nb&&nb>=1)) { char
errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""cgeqrt:nb=%d", "(""MIN(m,n)>=nb&&nb>=1"
") failed for ""1st argument nb", nb); PyErr_SetString(_flapack_error
,errstring); } else
{
77106 /* Processing variable lda */
77107 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
77108 /* Processing variable t */
77109 t_Dims[0]=nb,t_Dims[1]=MIN(m,n)((m < n) ? (m) : (n));
77110 capi_t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
77111 capi_t_tmp = array_from_pyobj(NPY_CFLOAT,t_Dims,t_Rank,capi_t_intent,Py_None(&_Py_NoneStruct));
77112 if (capi_t_tmp == NULL((void*)0)) {
77113 if (!PyErr_Occurred())
77114 PyErr_SetString(_flapack_error,"failed in converting hidden `t' of _flapack.cgeqrt to C/Fortran array" );
77115 } else {
77116 t = (complex_float *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data));
77117
77118 /* Processing variable ldt */
77119 ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0]));
77120 /* Processing variable work */
77121 work_Dims[0]=nb,work_Dims[1]=n;
77122 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
77123 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
77124 if (capi_work_tmp == NULL((void*)0)) {
77125 if (!PyErr_Occurred())
77126 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgeqrt to C/Fortran array" );
77127 } else {
77128 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
77129
77130/*end of frompyobj*/
77131#ifdef F2PY_REPORT_ATEXIT
77132f2py_start_call_clock();
77133#endif
77134/*callfortranroutine*/
77135 (*f2py_func)(&m,&n,&nb,a,&lda,t,&ldt,work,&info) ;
77136 /*(*f2py_func)(&m,&n,&nb,a,&lda,t,&ldt,work,&info);*/
77137if (PyErr_Occurred())
77138 f2py_success = 0;
77139#ifdef F2PY_REPORT_ATEXIT
77140f2py_stop_call_clock();
77141#endif
77142/*end of callfortranroutine*/
77143 if (f2py_success) {
77144/*pyobjfrom*/
77145/*end of pyobjfrom*/
77146 CFUNCSMESS("Building return value.\n");
77147 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_t_tmp,info);
77148/*closepyobjfrom*/
77149/*end of closepyobjfrom*/
77150 } /*if (f2py_success) after callfortranroutine*/
77151/*cleanupfrompyobj*/
77152 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
77153 } /*if (capi_work_tmp == NULL) ... else of work*/
77154 /* End of cleaning variable work */
77155 /* End of cleaning variable ldt */
77156 } /*if (capi_t_tmp == NULL) ... else of t*/
77157 /* End of cleaning variable t */
77158 /* End of cleaning variable lda */
77159 } /*CHECKSCALAR(MIN(m,n)>=nb&&nb>=1)*/
77160 } /*if (f2py_success) of nb*/
77161 /* End of cleaning variable nb */
77162 /* End of cleaning variable n */
77163 /* End of cleaning variable m */
77164 /* End of cleaning variable info */
77165 } /*if (capi_a_tmp == NULL) ... else of a*/
77166 /* End of cleaning variable a */
77167/*end of cleanupfrompyobj*/
77168 if (capi_buildvalue == NULL((void*)0)) {
77169/*routdebugfailure*/
77170 } else {
77171/*routdebugleave*/
77172 }
77173 CFUNCSMESS("Freeing memory.\n");
77174/*freemem*/
77175#ifdef F2PY_REPORT_ATEXIT
77176f2py_stop_clock();
77177#endif
77178 return capi_buildvalue;
77179}
77180/******************************* end of cgeqrt *******************************/
77181
77182/*********************************** zgeqrt ***********************************/
77183static char doc_f2py_rout__flapack_zgeqrt[] = "\
77184a,t,info = zgeqrt(nb,a,[overwrite_a])\n\nWrapper for ``zgeqrt``.\
77185\n\nParameters\n----------\n"
77186"nb : input int\n"
77187"a : input rank-2 array('D') with bounds (m,n)\n"
77188"\nOther Parameters\n----------------\n"
77189"overwrite_a : input int, optional\n Default: 0\n"
77190"\nReturns\n-------\n"
77191"a : rank-2 array('D') with bounds (m,n)\n"
77192"t : rank-2 array('D') with bounds (nb,MIN(m,n))\n"
77193"info : int";
77194/* extern void F_FUNC(zgeqrt,ZGEQRT)(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT* ); */
77195static PyObject *f2py_rout__flapack_zgeqrt(const PyObject *capi_self,
77196 PyObject *capi_args,
77197 PyObject *capi_keywds,
77198 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* )) {
77199 PyObject * volatile capi_buildvalue = NULL((void*)0);
77200 volatile int f2py_success = 1;
77201/*decl*/
77202
77203 int m = 0;
77204 int n = 0;
77205 int nb = 0;
77206 PyObject *nb_capi = Py_None(&_Py_NoneStruct);
77207 complex_double *a = NULL((void*)0);
77208 npy_intp a_Dims[2] = {-1, -1};
77209 const int a_Rank = 2;
77210 PyArrayObject *capi_a_tmp = NULL((void*)0);
77211 int capi_a_intent = 0;
77212 int capi_overwrite_a = 0;
77213 PyObject *a_capi = Py_None(&_Py_NoneStruct);
77214 int lda = 0;
77215 complex_double *t = NULL((void*)0);
77216 npy_intp t_Dims[2] = {-1, -1};
77217 const int t_Rank = 2;
77218 PyArrayObject *capi_t_tmp = NULL((void*)0);
77219 int capi_t_intent = 0;
77220 int ldt = 0;
77221 complex_double *work = NULL((void*)0);
77222 npy_intp work_Dims[2] = {-1, -1};
77223 const int work_Rank = 2;
77224 PyArrayObject *capi_work_tmp = NULL((void*)0);
77225 int capi_work_intent = 0;
77226 int info = 0;
77227 static char *capi_kwlist[] = {"nb","a","overwrite_a",NULL((void*)0)};
77228
77229/*routdebugenter*/
77230#ifdef F2PY_REPORT_ATEXIT
77231f2py_start_clock();
77232#endif
77233 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
77234 "OO|i:_flapack.zgeqrt",\
77235 capi_kwlist,&nb_capi,&a_capi,&capi_overwrite_a))
77236 return NULL((void*)0);
77237/*frompyobj*/
77238 /* Processing variable a */
77239 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
77240 ;
77241 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
77242 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
77243 if (capi_a_tmp == NULL((void*)0)) {
77244 if (!PyErr_Occurred())
77245 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.zgeqrt to C/Fortran array" );
77246 } else {
77247 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
77248
77249 /* Processing variable info */
77250 /* Processing variable m */
77251 m = shape(a,0)a_Dims[0];
77252 /* Processing variable n */
77253 n = shape(a,1)a_Dims[1];
77254 /* Processing variable nb */
77255 f2py_success = int_from_pyobj(&nb,nb_capi,"_flapack.zgeqrt() 1st argument (nb) can't be converted to int");
77256 if (f2py_success) {
77257 CHECKSCALAR(MIN(m,n)>=nb&&nb>=1,"MIN(m,n)>=nb&&nb>=1","1st argument nb","zgeqrt:nb=%d",nb)if (!(((m < n) ? (m) : (n))>=nb&&nb>=1)) { char
errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zgeqrt:nb=%d", "(""MIN(m,n)>=nb&&nb>=1"
") failed for ""1st argument nb", nb); PyErr_SetString(_flapack_error
,errstring); } else
{
77258 /* Processing variable lda */
77259 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
77260 /* Processing variable t */
77261 t_Dims[0]=nb,t_Dims[1]=MIN(m,n)((m < n) ? (m) : (n));
77262 capi_t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
77263 capi_t_tmp = array_from_pyobj(NPY_CDOUBLE,t_Dims,t_Rank,capi_t_intent,Py_None(&_Py_NoneStruct));
77264 if (capi_t_tmp == NULL((void*)0)) {
77265 if (!PyErr_Occurred())
77266 PyErr_SetString(_flapack_error,"failed in converting hidden `t' of _flapack.zgeqrt to C/Fortran array" );
77267 } else {
77268 t = (complex_double *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data));
77269
77270 /* Processing variable ldt */
77271 ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0]));
77272 /* Processing variable work */
77273 work_Dims[0]=nb,work_Dims[1]=n;
77274 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
77275 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
77276 if (capi_work_tmp == NULL((void*)0)) {
77277 if (!PyErr_Occurred())
77278 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgeqrt to C/Fortran array" );
77279 } else {
77280 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
77281
77282/*end of frompyobj*/
77283#ifdef F2PY_REPORT_ATEXIT
77284f2py_start_call_clock();
77285#endif
77286/*callfortranroutine*/
77287 (*f2py_func)(&m,&n,&nb,a,&lda,t,&ldt,work,&info) ;
77288 /*(*f2py_func)(&m,&n,&nb,a,&lda,t,&ldt,work,&info);*/
77289if (PyErr_Occurred())
77290 f2py_success = 0;
77291#ifdef F2PY_REPORT_ATEXIT
77292f2py_stop_call_clock();
77293#endif
77294/*end of callfortranroutine*/
77295 if (f2py_success) {
77296/*pyobjfrom*/
77297/*end of pyobjfrom*/
77298 CFUNCSMESS("Building return value.\n");
77299 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_t_tmp,info);
77300/*closepyobjfrom*/
77301/*end of closepyobjfrom*/
77302 } /*if (f2py_success) after callfortranroutine*/
77303/*cleanupfrompyobj*/
77304 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
77305 } /*if (capi_work_tmp == NULL) ... else of work*/
77306 /* End of cleaning variable work */
77307 /* End of cleaning variable ldt */
77308 } /*if (capi_t_tmp == NULL) ... else of t*/
77309 /* End of cleaning variable t */
77310 /* End of cleaning variable lda */
77311 } /*CHECKSCALAR(MIN(m,n)>=nb&&nb>=1)*/
77312 } /*if (f2py_success) of nb*/
77313 /* End of cleaning variable nb */
77314 /* End of cleaning variable n */
77315 /* End of cleaning variable m */
77316 /* End of cleaning variable info */
77317 } /*if (capi_a_tmp == NULL) ... else of a*/
77318 /* End of cleaning variable a */
77319/*end of cleanupfrompyobj*/
77320 if (capi_buildvalue == NULL((void*)0)) {
77321/*routdebugfailure*/
77322 } else {
77323/*routdebugleave*/
77324 }
77325 CFUNCSMESS("Freeing memory.\n");
77326/*freemem*/
77327#ifdef F2PY_REPORT_ATEXIT
77328f2py_stop_clock();
77329#endif
77330 return capi_buildvalue;
77331}
77332/******************************* end of zgeqrt *******************************/
77333
77334/********************************** sgemqrt **********************************/
77335static char doc_f2py_rout__flapack_sgemqrt[] = "\
77336c,info = sgemqrt(v,t,c,[side,trans,overwrite_c])\n\nWrapper for ``sgemqrt``.\
77337\n\nParameters\n----------\n"
77338"v : input rank-2 array('f') with bounds ((side[0]=='L'?m:n),k)\n"
77339"t : input rank-2 array('f') with bounds (nb,k)\n"
77340"c : input rank-2 array('f') with bounds (m,n)\n"
77341"\nOther Parameters\n----------------\n"
77342"side : input string(len=1), optional\n Default: 'L'\n"
77343"trans : input string(len=1), optional\n Default: 'N'\n"
77344"overwrite_c : input int, optional\n Default: 0\n"
77345"\nReturns\n-------\n"
77346"c : rank-2 array('f') with bounds (m,n)\n"
77347"info : int";
77348/* extern void F_FUNC(sgemqrt,SGEMQRT)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT* ); */
77349static PyObject *f2py_rout__flapack_sgemqrt(const PyObject *capi_self,
77350 PyObject *capi_args,
77351 PyObject *capi_keywds,
77352 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint* )) {
77353 PyObject * volatile capi_buildvalue = NULL((void*)0);
77354 volatile int f2py_success = 1;
77355/*decl*/
77356
77357 string side = NULL((void*)0);
77358 int slen(side)capi_side_len;
77359 PyObject *side_capi = Py_None(&_Py_NoneStruct);
77360 string trans = NULL((void*)0);
77361 int slen(trans)capi_trans_len;
77362 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
77363 int m = 0;
77364 int n = 0;
77365 int k = 0;
77366 int nb = 0;
77367 float *v = NULL((void*)0);
77368 npy_intp v_Dims[2] = {-1, -1};
77369 const int v_Rank = 2;
77370 PyArrayObject *capi_v_tmp = NULL((void*)0);
77371 int capi_v_intent = 0;
77372 PyObject *v_capi = Py_None(&_Py_NoneStruct);
77373 int ldv = 0;
77374 float *t = NULL((void*)0);
77375 npy_intp t_Dims[2] = {-1, -1};
77376 const int t_Rank = 2;
77377 PyArrayObject *capi_t_tmp = NULL((void*)0);
77378 int capi_t_intent = 0;
77379 PyObject *t_capi = Py_None(&_Py_NoneStruct);
77380 int ldt = 0;
77381 float *c = NULL((void*)0);
77382 npy_intp c_Dims[2] = {-1, -1};
77383 const int c_Rank = 2;
77384 PyArrayObject *capi_c_tmp = NULL((void*)0);
77385 int capi_c_intent = 0;
77386 int capi_overwrite_c = 0;
77387 PyObject *c_capi = Py_None(&_Py_NoneStruct);
77388 int ldc = 0;
77389 float *work = NULL((void*)0);
77390 npy_intp work_Dims[1] = {-1};
77391 const int work_Rank = 1;
77392 PyArrayObject *capi_work_tmp = NULL((void*)0);
77393 int capi_work_intent = 0;
77394 int info = 0;
77395 static char *capi_kwlist[] = {"v","t","c","side","trans","overwrite_c",NULL((void*)0)};
77396
77397/*routdebugenter*/
77398#ifdef F2PY_REPORT_ATEXIT
77399f2py_start_clock();
77400#endif
77401 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
77402 "OOO|OOi:_flapack.sgemqrt",\
77403 capi_kwlist,&v_capi,&t_capi,&c_capi,&side_capi,&trans_capi,&capi_overwrite_c))
77404 return NULL((void*)0);
77405/*frompyobj*/
77406 /* Processing variable side */
77407 slen(side)capi_side_len = 1;
77408 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.sgemqrt to C string");
77409 if (f2py_success) {
77410 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","sgemqrt:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgemqrt:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
77411 /* Processing variable c */
77412 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
77413 ;
77414 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
77415 capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
77416 if (capi_c_tmp == NULL((void*)0)) {
77417 if (!PyErr_Occurred())
77418 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.sgemqrt to C/Fortran array" );
77419 } else {
77420 c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
77421
77422 /* Processing variable info */
77423 /* Processing variable m */
77424 m = shape(c,0)c_Dims[0];
77425 /* Processing variable n */
77426 n = shape(c,1)c_Dims[1];
77427 /* Processing variable v */
77428 v_Dims[0]=(side[0]=='L'?m:n);
77429 capi_v_intent |= F2PY_INTENT_IN1;
77430 capi_v_tmp = array_from_pyobj(NPY_FLOAT,v_Dims,v_Rank,capi_v_intent,v_capi);
77431 if (capi_v_tmp == NULL((void*)0)) {
77432 if (!PyErr_Occurred())
77433 PyErr_SetString(_flapack_error,"failed in converting 1st argument `v' of _flapack.sgemqrt to C/Fortran array" );
77434 } else {
77435 v = (float *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data));
77436
77437 /* Processing variable ldv */
77438 ldv = MAX(1,shape(v,0))((1 > v_Dims[0]) ? (1) : (v_Dims[0]));
77439 /* Processing variable ldc */
77440 ldc = MAX(1,shape(c,0))((1 > c_Dims[0]) ? (1) : (c_Dims[0]));
77441 /* Processing variable trans */
77442 slen(trans)capi_trans_len = 1;
77443 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.sgemqrt to C string");
77444 if (f2py_success) {
77445 CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","2nd keyword trans","sgemqrt:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgemqrt:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'"
") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
77446 /* Processing variable k */
77447 k = shape(v,1)v_Dims[1];
77448 CHECKSCALAR((*side=='L'?m:n)>=k&&k>=0,"(*side=='L'?m:n)>=k&&k>=0","hidden k","sgemqrt:k=%d",k)if (!((*side=='L'?m:n)>=k&&k>=0)) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""sgemqrt:k=%d", "(""(*side=='L'?m:n)>=k&&k>=0"
") failed for ""hidden k", k); PyErr_SetString(_flapack_error
,errstring); } else
{
77449 /* Processing variable t */
77450 t_Dims[1]=k;
77451 capi_t_intent |= F2PY_INTENT_IN1;
77452 capi_t_tmp = array_from_pyobj(NPY_FLOAT,t_Dims,t_Rank,capi_t_intent,t_capi);
77453 if (capi_t_tmp == NULL((void*)0)) {
77454 if (!PyErr_Occurred())
77455 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `t' of _flapack.sgemqrt to C/Fortran array" );
77456 } else {
77457 t = (float *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data));
77458
77459 /* Processing variable ldt */
77460 ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0]));
77461 /* Processing variable nb */
77462 nb = shape(t,0)t_Dims[0];
77463 CHECKSCALAR(k>=nb&&nb>=1,"k>=nb&&nb>=1","hidden nb","sgemqrt:nb=%d",nb)if (!(k>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgemqrt:nb=%d", "(""k>=nb&&nb>=1"") failed for "
"hidden nb", nb); PyErr_SetString(_flapack_error,errstring); }
else
{
77464 /* Processing variable work */
77465 work_Dims[0]=(side[0]=='L'?n:m)*nb;
77466 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
77467 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
77468 if (capi_work_tmp == NULL((void*)0)) {
77469 if (!PyErr_Occurred())
77470 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgemqrt to C/Fortran array" );
77471 } else {
77472 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
77473
77474/*end of frompyobj*/
77475#ifdef F2PY_REPORT_ATEXIT
77476f2py_start_call_clock();
77477#endif
77478/*callfortranroutine*/
77479 (*f2py_func)(side,trans,&m,&n,&k,&nb,v,&ldv,t,&ldt,c,&ldc,work,&info) ;
77480 /*(*f2py_func)(side,trans,&m,&n,&k,&nb,v,&ldv,t,&ldt,c,&ldc,work,&info,slen(side),slen(trans));*/
77481if (PyErr_Occurred())
77482 f2py_success = 0;
77483#ifdef F2PY_REPORT_ATEXIT
77484f2py_stop_call_clock();
77485#endif
77486/*end of callfortranroutine*/
77487 if (f2py_success) {
77488/*pyobjfrom*/
77489/*end of pyobjfrom*/
77490 CFUNCSMESS("Building return value.\n");
77491 capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info);
77492/*closepyobjfrom*/
77493/*end of closepyobjfrom*/
77494 } /*if (f2py_success) after callfortranroutine*/
77495/*cleanupfrompyobj*/
77496 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
77497 } /*if (capi_work_tmp == NULL) ... else of work*/
77498 /* End of cleaning variable work */
77499 } /*CHECKSCALAR(k>=nb&&nb>=1)*/
77500 /* End of cleaning variable nb */
77501 /* End of cleaning variable ldt */
77502 if((PyObject *)capi_t_tmp!=t_capi) {
77503 Py_XDECREF(capi_t_tmp)_Py_XDECREF(((PyObject*)(capi_t_tmp))); }
77504 } /*if (capi_t_tmp == NULL) ... else of t*/
77505 /* End of cleaning variable t */
77506 } /*CHECKSCALAR((*side=='L'?m:n)>=k&&k>=0)*/
77507 /* End of cleaning variable k */
77508 } /*CHECKSTRING(*trans=='N'||*trans=='T')*/
77509 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
77510 } /*if (f2py_success) of trans*/
77511 /* End of cleaning variable trans */
77512 /* End of cleaning variable ldc */
77513 /* End of cleaning variable ldv */
77514 if((PyObject *)capi_v_tmp!=v_capi) {
77515 Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); }
77516 } /*if (capi_v_tmp == NULL) ... else of v*/
77517 /* End of cleaning variable v */
77518 /* End of cleaning variable n */
77519 /* End of cleaning variable m */
77520 /* End of cleaning variable info */
77521 } /*if (capi_c_tmp == NULL) ... else of c*/
77522 /* End of cleaning variable c */
77523 } /*CHECKSTRING(*side=='L'||*side=='R')*/
77524 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
77525 } /*if (f2py_success) of side*/
77526 /* End of cleaning variable side */
77527/*end of cleanupfrompyobj*/
77528 if (capi_buildvalue == NULL((void*)0)) {
77529/*routdebugfailure*/
77530 } else {
77531/*routdebugleave*/
77532 }
77533 CFUNCSMESS("Freeing memory.\n");
77534/*freemem*/
77535#ifdef F2PY_REPORT_ATEXIT
77536f2py_stop_clock();
77537#endif
77538 return capi_buildvalue;
77539}
77540/******************************* end of sgemqrt *******************************/
77541
77542/********************************** dgemqrt **********************************/
77543static char doc_f2py_rout__flapack_dgemqrt[] = "\
77544c,info = dgemqrt(v,t,c,[side,trans,overwrite_c])\n\nWrapper for ``dgemqrt``.\
77545\n\nParameters\n----------\n"
77546"v : input rank-2 array('d') with bounds ((side[0]=='L'?m:n),k)\n"
77547"t : input rank-2 array('d') with bounds (nb,k)\n"
77548"c : input rank-2 array('d') with bounds (m,n)\n"
77549"\nOther Parameters\n----------------\n"
77550"side : input string(len=1), optional\n Default: 'L'\n"
77551"trans : input string(len=1), optional\n Default: 'N'\n"
77552"overwrite_c : input int, optional\n Default: 0\n"
77553"\nReturns\n-------\n"
77554"c : rank-2 array('d') with bounds (m,n)\n"
77555"info : int";
77556/* extern void F_FUNC(dgemqrt,DGEMQRT)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT* ); */
77557static PyObject *f2py_rout__flapack_dgemqrt(const PyObject *capi_self,
77558 PyObject *capi_args,
77559 PyObject *capi_keywds,
77560 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint* )) {
77561 PyObject * volatile capi_buildvalue = NULL((void*)0);
77562 volatile int f2py_success = 1;
77563/*decl*/
77564
77565 string side = NULL((void*)0);
77566 int slen(side)capi_side_len;
77567 PyObject *side_capi = Py_None(&_Py_NoneStruct);
77568 string trans = NULL((void*)0);
77569 int slen(trans)capi_trans_len;
77570 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
77571 int m = 0;
77572 int n = 0;
77573 int k = 0;
77574 int nb = 0;
77575 double *v = NULL((void*)0);
77576 npy_intp v_Dims[2] = {-1, -1};
77577 const int v_Rank = 2;
77578 PyArrayObject *capi_v_tmp = NULL((void*)0);
77579 int capi_v_intent = 0;
77580 PyObject *v_capi = Py_None(&_Py_NoneStruct);
77581 int ldv = 0;
77582 double *t = NULL((void*)0);
77583 npy_intp t_Dims[2] = {-1, -1};
77584 const int t_Rank = 2;
77585 PyArrayObject *capi_t_tmp = NULL((void*)0);
77586 int capi_t_intent = 0;
77587 PyObject *t_capi = Py_None(&_Py_NoneStruct);
77588 int ldt = 0;
77589 double *c = NULL((void*)0);
77590 npy_intp c_Dims[2] = {-1, -1};
77591 const int c_Rank = 2;
77592 PyArrayObject *capi_c_tmp = NULL((void*)0);
77593 int capi_c_intent = 0;
77594 int capi_overwrite_c = 0;
77595 PyObject *c_capi = Py_None(&_Py_NoneStruct);
77596 int ldc = 0;
77597 double *work = NULL((void*)0);
77598 npy_intp work_Dims[1] = {-1};
77599 const int work_Rank = 1;
77600 PyArrayObject *capi_work_tmp = NULL((void*)0);
77601 int capi_work_intent = 0;
77602 int info = 0;
77603 static char *capi_kwlist[] = {"v","t","c","side","trans","overwrite_c",NULL((void*)0)};
77604
77605/*routdebugenter*/
77606#ifdef F2PY_REPORT_ATEXIT
77607f2py_start_clock();
77608#endif
77609 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
77610 "OOO|OOi:_flapack.dgemqrt",\
77611 capi_kwlist,&v_capi,&t_capi,&c_capi,&side_capi,&trans_capi,&capi_overwrite_c))
77612 return NULL((void*)0);
77613/*frompyobj*/
77614 /* Processing variable side */
77615 slen(side)capi_side_len = 1;
77616 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.dgemqrt to C string");
77617 if (f2py_success) {
77618 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","dgemqrt:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgemqrt:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
77619 /* Processing variable c */
77620 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
77621 ;
77622 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
77623 capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
77624 if (capi_c_tmp == NULL((void*)0)) {
77625 if (!PyErr_Occurred())
77626 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.dgemqrt to C/Fortran array" );
77627 } else {
77628 c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
77629
77630 /* Processing variable info */
77631 /* Processing variable m */
77632 m = shape(c,0)c_Dims[0];
77633 /* Processing variable n */
77634 n = shape(c,1)c_Dims[1];
77635 /* Processing variable v */
77636 v_Dims[0]=(side[0]=='L'?m:n);
77637 capi_v_intent |= F2PY_INTENT_IN1;
77638 capi_v_tmp = array_from_pyobj(NPY_DOUBLE,v_Dims,v_Rank,capi_v_intent,v_capi);
77639 if (capi_v_tmp == NULL((void*)0)) {
77640 if (!PyErr_Occurred())
77641 PyErr_SetString(_flapack_error,"failed in converting 1st argument `v' of _flapack.dgemqrt to C/Fortran array" );
77642 } else {
77643 v = (double *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data));
77644
77645 /* Processing variable ldv */
77646 ldv = MAX(1,shape(v,0))((1 > v_Dims[0]) ? (1) : (v_Dims[0]));
77647 /* Processing variable ldc */
77648 ldc = MAX(1,shape(c,0))((1 > c_Dims[0]) ? (1) : (c_Dims[0]));
77649 /* Processing variable trans */
77650 slen(trans)capi_trans_len = 1;
77651 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.dgemqrt to C string");
77652 if (f2py_success) {
77653 CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","2nd keyword trans","dgemqrt:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgemqrt:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'"
") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
77654 /* Processing variable k */
77655 k = shape(v,1)v_Dims[1];
77656 CHECKSCALAR((*side=='L'?m:n)>=k&&k>=0,"(*side=='L'?m:n)>=k&&k>=0","hidden k","dgemqrt:k=%d",k)if (!((*side=='L'?m:n)>=k&&k>=0)) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dgemqrt:k=%d", "(""(*side=='L'?m:n)>=k&&k>=0"
") failed for ""hidden k", k); PyErr_SetString(_flapack_error
,errstring); } else
{
77657 /* Processing variable t */
77658 t_Dims[1]=k;
77659 capi_t_intent |= F2PY_INTENT_IN1;
77660 capi_t_tmp = array_from_pyobj(NPY_DOUBLE,t_Dims,t_Rank,capi_t_intent,t_capi);
77661 if (capi_t_tmp == NULL((void*)0)) {
77662 if (!PyErr_Occurred())
77663 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `t' of _flapack.dgemqrt to C/Fortran array" );
77664 } else {
77665 t = (double *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data));
77666
77667 /* Processing variable ldt */
77668 ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0]));
77669 /* Processing variable nb */
77670 nb = shape(t,0)t_Dims[0];
77671 CHECKSCALAR(k>=nb&&nb>=1,"k>=nb&&nb>=1","hidden nb","dgemqrt:nb=%d",nb)if (!(k>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgemqrt:nb=%d", "(""k>=nb&&nb>=1"") failed for "
"hidden nb", nb); PyErr_SetString(_flapack_error,errstring); }
else
{
77672 /* Processing variable work */
77673 work_Dims[0]=(side[0]=='L'?n:m)*nb;
77674 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
77675 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
77676 if (capi_work_tmp == NULL((void*)0)) {
77677 if (!PyErr_Occurred())
77678 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgemqrt to C/Fortran array" );
77679 } else {
77680 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
77681
77682/*end of frompyobj*/
77683#ifdef F2PY_REPORT_ATEXIT
77684f2py_start_call_clock();
77685#endif
77686/*callfortranroutine*/
77687 (*f2py_func)(side,trans,&m,&n,&k,&nb,v,&ldv,t,&ldt,c,&ldc,work,&info) ;
77688 /*(*f2py_func)(side,trans,&m,&n,&k,&nb,v,&ldv,t,&ldt,c,&ldc,work,&info,slen(side),slen(trans));*/
77689if (PyErr_Occurred())
77690 f2py_success = 0;
77691#ifdef F2PY_REPORT_ATEXIT
77692f2py_stop_call_clock();
77693#endif
77694/*end of callfortranroutine*/
77695 if (f2py_success) {
77696/*pyobjfrom*/
77697/*end of pyobjfrom*/
77698 CFUNCSMESS("Building return value.\n");
77699 capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info);
77700/*closepyobjfrom*/
77701/*end of closepyobjfrom*/
77702 } /*if (f2py_success) after callfortranroutine*/
77703/*cleanupfrompyobj*/
77704 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
77705 } /*if (capi_work_tmp == NULL) ... else of work*/
77706 /* End of cleaning variable work */
77707 } /*CHECKSCALAR(k>=nb&&nb>=1)*/
77708 /* End of cleaning variable nb */
77709 /* End of cleaning variable ldt */
77710 if((PyObject *)capi_t_tmp!=t_capi) {
77711 Py_XDECREF(capi_t_tmp)_Py_XDECREF(((PyObject*)(capi_t_tmp))); }
77712 } /*if (capi_t_tmp == NULL) ... else of t*/
77713 /* End of cleaning variable t */
77714 } /*CHECKSCALAR((*side=='L'?m:n)>=k&&k>=0)*/
77715 /* End of cleaning variable k */
77716 } /*CHECKSTRING(*trans=='N'||*trans=='T')*/
77717 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
77718 } /*if (f2py_success) of trans*/
77719 /* End of cleaning variable trans */
77720 /* End of cleaning variable ldc */
77721 /* End of cleaning variable ldv */
77722 if((PyObject *)capi_v_tmp!=v_capi) {
77723 Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); }
77724 } /*if (capi_v_tmp == NULL) ... else of v*/
77725 /* End of cleaning variable v */
77726 /* End of cleaning variable n */
77727 /* End of cleaning variable m */
77728 /* End of cleaning variable info */
77729 } /*if (capi_c_tmp == NULL) ... else of c*/
77730 /* End of cleaning variable c */
77731 } /*CHECKSTRING(*side=='L'||*side=='R')*/
77732 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
77733 } /*if (f2py_success) of side*/
77734 /* End of cleaning variable side */
77735/*end of cleanupfrompyobj*/
77736 if (capi_buildvalue == NULL((void*)0)) {
77737/*routdebugfailure*/
77738 } else {
77739/*routdebugleave*/
77740 }
77741 CFUNCSMESS("Freeing memory.\n");
77742/*freemem*/
77743#ifdef F2PY_REPORT_ATEXIT
77744f2py_stop_clock();
77745#endif
77746 return capi_buildvalue;
77747}
77748/******************************* end of dgemqrt *******************************/
77749
77750/********************************** cgemqrt **********************************/
77751static char doc_f2py_rout__flapack_cgemqrt[] = "\
77752c,info = cgemqrt(v,t,c,[side,trans,overwrite_c])\n\nWrapper for ``cgemqrt``.\
77753\n\nParameters\n----------\n"
77754"v : input rank-2 array('F') with bounds ((side[0]=='L'?m:n),k)\n"
77755"t : input rank-2 array('F') with bounds (nb,k)\n"
77756"c : input rank-2 array('F') with bounds (m,n)\n"
77757"\nOther Parameters\n----------------\n"
77758"side : input string(len=1), optional\n Default: 'L'\n"
77759"trans : input string(len=1), optional\n Default: 'N'\n"
77760"overwrite_c : input int, optional\n Default: 0\n"
77761"\nReturns\n-------\n"
77762"c : rank-2 array('F') with bounds (m,n)\n"
77763"info : int";
77764/* extern void F_FUNC(cgemqrt,CGEMQRT)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT* ); */
77765static PyObject *f2py_rout__flapack_cgemqrt(const PyObject *capi_self,
77766 PyObject *capi_args,
77767 PyObject *capi_keywds,
77768 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* )) {
77769 PyObject * volatile capi_buildvalue = NULL((void*)0);
77770 volatile int f2py_success = 1;
77771/*decl*/
77772
77773 string side = NULL((void*)0);
77774 int slen(side)capi_side_len;
77775 PyObject *side_capi = Py_None(&_Py_NoneStruct);
77776 string trans = NULL((void*)0);
77777 int slen(trans)capi_trans_len;
77778 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
77779 int m = 0;
77780 int n = 0;
77781 int k = 0;
77782 int nb = 0;
77783 complex_float *v = NULL((void*)0);
77784 npy_intp v_Dims[2] = {-1, -1};
77785 const int v_Rank = 2;
77786 PyArrayObject *capi_v_tmp = NULL((void*)0);
77787 int capi_v_intent = 0;
77788 PyObject *v_capi = Py_None(&_Py_NoneStruct);
77789 int ldv = 0;
77790 complex_float *t = NULL((void*)0);
77791 npy_intp t_Dims[2] = {-1, -1};
77792 const int t_Rank = 2;
77793 PyArrayObject *capi_t_tmp = NULL((void*)0);
77794 int capi_t_intent = 0;
77795 PyObject *t_capi = Py_None(&_Py_NoneStruct);
77796 int ldt = 0;
77797 complex_float *c = NULL((void*)0);
77798 npy_intp c_Dims[2] = {-1, -1};
77799 const int c_Rank = 2;
77800 PyArrayObject *capi_c_tmp = NULL((void*)0);
77801 int capi_c_intent = 0;
77802 int capi_overwrite_c = 0;
77803 PyObject *c_capi = Py_None(&_Py_NoneStruct);
77804 int ldc = 0;
77805 complex_float *work = NULL((void*)0);
77806 npy_intp work_Dims[1] = {-1};
77807 const int work_Rank = 1;
77808 PyArrayObject *capi_work_tmp = NULL((void*)0);
77809 int capi_work_intent = 0;
77810 int info = 0;
77811 static char *capi_kwlist[] = {"v","t","c","side","trans","overwrite_c",NULL((void*)0)};
77812
77813/*routdebugenter*/
77814#ifdef F2PY_REPORT_ATEXIT
77815f2py_start_clock();
77816#endif
77817 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
77818 "OOO|OOi:_flapack.cgemqrt",\
77819 capi_kwlist,&v_capi,&t_capi,&c_capi,&side_capi,&trans_capi,&capi_overwrite_c))
77820 return NULL((void*)0);
77821/*frompyobj*/
77822 /* Processing variable side */
77823 slen(side)capi_side_len = 1;
77824 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.cgemqrt to C string");
77825 if (f2py_success) {
77826 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","cgemqrt:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgemqrt:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
77827 /* Processing variable c */
77828 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
77829 ;
77830 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
77831 capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
77832 if (capi_c_tmp == NULL((void*)0)) {
77833 if (!PyErr_Occurred())
77834 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.cgemqrt to C/Fortran array" );
77835 } else {
77836 c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
77837
77838 /* Processing variable info */
77839 /* Processing variable m */
77840 m = shape(c,0)c_Dims[0];
77841 /* Processing variable n */
77842 n = shape(c,1)c_Dims[1];
77843 /* Processing variable v */
77844 v_Dims[0]=(side[0]=='L'?m:n);
77845 capi_v_intent |= F2PY_INTENT_IN1;
77846 capi_v_tmp = array_from_pyobj(NPY_CFLOAT,v_Dims,v_Rank,capi_v_intent,v_capi);
77847 if (capi_v_tmp == NULL((void*)0)) {
77848 if (!PyErr_Occurred())
77849 PyErr_SetString(_flapack_error,"failed in converting 1st argument `v' of _flapack.cgemqrt to C/Fortran array" );
77850 } else {
77851 v = (complex_float *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data));
77852
77853 /* Processing variable ldv */
77854 ldv = MAX(1,shape(v,0))((1 > v_Dims[0]) ? (1) : (v_Dims[0]));
77855 /* Processing variable ldc */
77856 ldc = MAX(1,shape(c,0))((1 > c_Dims[0]) ? (1) : (c_Dims[0]));
77857 /* Processing variable trans */
77858 slen(trans)capi_trans_len = 1;
77859 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.cgemqrt to C string");
77860 if (f2py_success) {
77861 CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","2nd keyword trans","cgemqrt:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgemqrt:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'"
") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
77862 /* Processing variable k */
77863 k = shape(v,1)v_Dims[1];
77864 CHECKSCALAR((*side=='L'?m:n)>=k&&k>=0,"(*side=='L'?m:n)>=k&&k>=0","hidden k","cgemqrt:k=%d",k)if (!((*side=='L'?m:n)>=k&&k>=0)) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""cgemqrt:k=%d", "(""(*side=='L'?m:n)>=k&&k>=0"
") failed for ""hidden k", k); PyErr_SetString(_flapack_error
,errstring); } else
{
77865 /* Processing variable t */
77866 t_Dims[1]=k;
77867 capi_t_intent |= F2PY_INTENT_IN1;
77868 capi_t_tmp = array_from_pyobj(NPY_CFLOAT,t_Dims,t_Rank,capi_t_intent,t_capi);
77869 if (capi_t_tmp == NULL((void*)0)) {
77870 if (!PyErr_Occurred())
77871 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `t' of _flapack.cgemqrt to C/Fortran array" );
77872 } else {
77873 t = (complex_float *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data));
77874
77875 /* Processing variable ldt */
77876 ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0]));
77877 /* Processing variable nb */
77878 nb = shape(t,0)t_Dims[0];
77879 CHECKSCALAR(k>=nb&&nb>=1,"k>=nb&&nb>=1","hidden nb","cgemqrt:nb=%d",nb)if (!(k>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgemqrt:nb=%d", "(""k>=nb&&nb>=1"") failed for "
"hidden nb", nb); PyErr_SetString(_flapack_error,errstring); }
else
{
77880 /* Processing variable work */
77881 work_Dims[0]=(side[0]=='L'?n:m)*nb;
77882 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
77883 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
77884 if (capi_work_tmp == NULL((void*)0)) {
77885 if (!PyErr_Occurred())
77886 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgemqrt to C/Fortran array" );
77887 } else {
77888 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
77889
77890/*end of frompyobj*/
77891#ifdef F2PY_REPORT_ATEXIT
77892f2py_start_call_clock();
77893#endif
77894/*callfortranroutine*/
77895 (*f2py_func)(side,trans,&m,&n,&k,&nb,v,&ldv,t,&ldt,c,&ldc,work,&info) ;
77896 /*(*f2py_func)(side,trans,&m,&n,&k,&nb,v,&ldv,t,&ldt,c,&ldc,work,&info,slen(side),slen(trans));*/
77897if (PyErr_Occurred())
77898 f2py_success = 0;
77899#ifdef F2PY_REPORT_ATEXIT
77900f2py_stop_call_clock();
77901#endif
77902/*end of callfortranroutine*/
77903 if (f2py_success) {
77904/*pyobjfrom*/
77905/*end of pyobjfrom*/
77906 CFUNCSMESS("Building return value.\n");
77907 capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info);
77908/*closepyobjfrom*/
77909/*end of closepyobjfrom*/
77910 } /*if (f2py_success) after callfortranroutine*/
77911/*cleanupfrompyobj*/
77912 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
77913 } /*if (capi_work_tmp == NULL) ... else of work*/
77914 /* End of cleaning variable work */
77915 } /*CHECKSCALAR(k>=nb&&nb>=1)*/
77916 /* End of cleaning variable nb */
77917 /* End of cleaning variable ldt */
77918 if((PyObject *)capi_t_tmp!=t_capi) {
77919 Py_XDECREF(capi_t_tmp)_Py_XDECREF(((PyObject*)(capi_t_tmp))); }
77920 } /*if (capi_t_tmp == NULL) ... else of t*/
77921 /* End of cleaning variable t */
77922 } /*CHECKSCALAR((*side=='L'?m:n)>=k&&k>=0)*/
77923 /* End of cleaning variable k */
77924 } /*CHECKSTRING(*trans=='N'||*trans=='C')*/
77925 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
77926 } /*if (f2py_success) of trans*/
77927 /* End of cleaning variable trans */
77928 /* End of cleaning variable ldc */
77929 /* End of cleaning variable ldv */
77930 if((PyObject *)capi_v_tmp!=v_capi) {
77931 Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); }
77932 } /*if (capi_v_tmp == NULL) ... else of v*/
77933 /* End of cleaning variable v */
77934 /* End of cleaning variable n */
77935 /* End of cleaning variable m */
77936 /* End of cleaning variable info */
77937 } /*if (capi_c_tmp == NULL) ... else of c*/
77938 /* End of cleaning variable c */
77939 } /*CHECKSTRING(*side=='L'||*side=='R')*/
77940 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
77941 } /*if (f2py_success) of side*/
77942 /* End of cleaning variable side */
77943/*end of cleanupfrompyobj*/
77944 if (capi_buildvalue == NULL((void*)0)) {
77945/*routdebugfailure*/
77946 } else {
77947/*routdebugleave*/
77948 }
77949 CFUNCSMESS("Freeing memory.\n");
77950/*freemem*/
77951#ifdef F2PY_REPORT_ATEXIT
77952f2py_stop_clock();
77953#endif
77954 return capi_buildvalue;
77955}
77956/******************************* end of cgemqrt *******************************/
77957
77958/********************************** zgemqrt **********************************/
77959static char doc_f2py_rout__flapack_zgemqrt[] = "\
77960c,info = zgemqrt(v,t,c,[side,trans,overwrite_c])\n\nWrapper for ``zgemqrt``.\
77961\n\nParameters\n----------\n"
77962"v : input rank-2 array('D') with bounds ((side[0]=='L'?m:n),k)\n"
77963"t : input rank-2 array('D') with bounds (nb,k)\n"
77964"c : input rank-2 array('D') with bounds (m,n)\n"
77965"\nOther Parameters\n----------------\n"
77966"side : input string(len=1), optional\n Default: 'L'\n"
77967"trans : input string(len=1), optional\n Default: 'N'\n"
77968"overwrite_c : input int, optional\n Default: 0\n"
77969"\nReturns\n-------\n"
77970"c : rank-2 array('D') with bounds (m,n)\n"
77971"info : int";
77972/* extern void F_FUNC(zgemqrt,ZGEMQRT)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT* ); */
77973static PyObject *f2py_rout__flapack_zgemqrt(const PyObject *capi_self,
77974 PyObject *capi_args,
77975 PyObject *capi_keywds,
77976 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* )) {
77977 PyObject * volatile capi_buildvalue = NULL((void*)0);
77978 volatile int f2py_success = 1;
77979/*decl*/
77980
77981 string side = NULL((void*)0);
77982 int slen(side)capi_side_len;
77983 PyObject *side_capi = Py_None(&_Py_NoneStruct);
77984 string trans = NULL((void*)0);
77985 int slen(trans)capi_trans_len;
77986 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
77987 int m = 0;
77988 int n = 0;
77989 int k = 0;
77990 int nb = 0;
77991 complex_double *v = NULL((void*)0);
77992 npy_intp v_Dims[2] = {-1, -1};
77993 const int v_Rank = 2;
77994 PyArrayObject *capi_v_tmp = NULL((void*)0);
77995 int capi_v_intent = 0;
77996 PyObject *v_capi = Py_None(&_Py_NoneStruct);
77997 int ldv = 0;
77998 complex_double *t = NULL((void*)0);
77999 npy_intp t_Dims[2] = {-1, -1};
78000 const int t_Rank = 2;
78001 PyArrayObject *capi_t_tmp = NULL((void*)0);
78002 int capi_t_intent = 0;
78003 PyObject *t_capi = Py_None(&_Py_NoneStruct);
78004 int ldt = 0;
78005 complex_double *c = NULL((void*)0);
78006 npy_intp c_Dims[2] = {-1, -1};
78007 const int c_Rank = 2;
78008 PyArrayObject *capi_c_tmp = NULL((void*)0);
78009 int capi_c_intent = 0;
78010 int capi_overwrite_c = 0;
78011 PyObject *c_capi = Py_None(&_Py_NoneStruct);
78012 int ldc = 0;
78013 complex_double *work = NULL((void*)0);
78014 npy_intp work_Dims[1] = {-1};
78015 const int work_Rank = 1;
78016 PyArrayObject *capi_work_tmp = NULL((void*)0);
78017 int capi_work_intent = 0;
78018 int info = 0;
78019 static char *capi_kwlist[] = {"v","t","c","side","trans","overwrite_c",NULL((void*)0)};
78020
78021/*routdebugenter*/
78022#ifdef F2PY_REPORT_ATEXIT
78023f2py_start_clock();
78024#endif
78025 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
78026 "OOO|OOi:_flapack.zgemqrt",\
78027 capi_kwlist,&v_capi,&t_capi,&c_capi,&side_capi,&trans_capi,&capi_overwrite_c))
78028 return NULL((void*)0);
78029/*frompyobj*/
78030 /* Processing variable side */
78031 slen(side)capi_side_len = 1;
78032 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.zgemqrt to C string");
78033 if (f2py_success) {
78034 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","zgemqrt:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgemqrt:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
78035 /* Processing variable c */
78036 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
78037 ;
78038 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
78039 capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
78040 if (capi_c_tmp == NULL((void*)0)) {
78041 if (!PyErr_Occurred())
78042 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.zgemqrt to C/Fortran array" );
78043 } else {
78044 c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
78045
78046 /* Processing variable info */
78047 /* Processing variable m */
78048 m = shape(c,0)c_Dims[0];
78049 /* Processing variable n */
78050 n = shape(c,1)c_Dims[1];
78051 /* Processing variable v */
78052 v_Dims[0]=(side[0]=='L'?m:n);
78053 capi_v_intent |= F2PY_INTENT_IN1;
78054 capi_v_tmp = array_from_pyobj(NPY_CDOUBLE,v_Dims,v_Rank,capi_v_intent,v_capi);
78055 if (capi_v_tmp == NULL((void*)0)) {
78056 if (!PyErr_Occurred())
78057 PyErr_SetString(_flapack_error,"failed in converting 1st argument `v' of _flapack.zgemqrt to C/Fortran array" );
78058 } else {
78059 v = (complex_double *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data));
78060
78061 /* Processing variable ldv */
78062 ldv = MAX(1,shape(v,0))((1 > v_Dims[0]) ? (1) : (v_Dims[0]));
78063 /* Processing variable ldc */
78064 ldc = MAX(1,shape(c,0))((1 > c_Dims[0]) ? (1) : (c_Dims[0]));
78065 /* Processing variable trans */
78066 slen(trans)capi_trans_len = 1;
78067 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.zgemqrt to C string");
78068 if (f2py_success) {
78069 CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","2nd keyword trans","zgemqrt:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgemqrt:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'"
") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
78070 /* Processing variable k */
78071 k = shape(v,1)v_Dims[1];
78072 CHECKSCALAR((*side=='L'?m:n)>=k&&k>=0,"(*side=='L'?m:n)>=k&&k>=0","hidden k","zgemqrt:k=%d",k)if (!((*side=='L'?m:n)>=k&&k>=0)) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zgemqrt:k=%d", "(""(*side=='L'?m:n)>=k&&k>=0"
") failed for ""hidden k", k); PyErr_SetString(_flapack_error
,errstring); } else
{
78073 /* Processing variable t */
78074 t_Dims[1]=k;
78075 capi_t_intent |= F2PY_INTENT_IN1;
78076 capi_t_tmp = array_from_pyobj(NPY_CDOUBLE,t_Dims,t_Rank,capi_t_intent,t_capi);
78077 if (capi_t_tmp == NULL((void*)0)) {
78078 if (!PyErr_Occurred())
78079 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `t' of _flapack.zgemqrt to C/Fortran array" );
78080 } else {
78081 t = (complex_double *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data));
78082
78083 /* Processing variable ldt */
78084 ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0]));
78085 /* Processing variable nb */
78086 nb = shape(t,0)t_Dims[0];
78087 CHECKSCALAR(k>=nb&&nb>=1,"k>=nb&&nb>=1","hidden nb","zgemqrt:nb=%d",nb)if (!(k>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgemqrt:nb=%d", "(""k>=nb&&nb>=1"") failed for "
"hidden nb", nb); PyErr_SetString(_flapack_error,errstring); }
else
{
78088 /* Processing variable work */
78089 work_Dims[0]=(side[0]=='L'?n:m)*nb;
78090 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
78091 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
78092 if (capi_work_tmp == NULL((void*)0)) {
78093 if (!PyErr_Occurred())
78094 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgemqrt to C/Fortran array" );
78095 } else {
78096 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
78097
78098/*end of frompyobj*/
78099#ifdef F2PY_REPORT_ATEXIT
78100f2py_start_call_clock();
78101#endif
78102/*callfortranroutine*/
78103 (*f2py_func)(side,trans,&m,&n,&k,&nb,v,&ldv,t,&ldt,c,&ldc,work,&info) ;
78104 /*(*f2py_func)(side,trans,&m,&n,&k,&nb,v,&ldv,t,&ldt,c,&ldc,work,&info,slen(side),slen(trans));*/
78105if (PyErr_Occurred())
78106 f2py_success = 0;
78107#ifdef F2PY_REPORT_ATEXIT
78108f2py_stop_call_clock();
78109#endif
78110/*end of callfortranroutine*/
78111 if (f2py_success) {
78112/*pyobjfrom*/
78113/*end of pyobjfrom*/
78114 CFUNCSMESS("Building return value.\n");
78115 capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info);
78116/*closepyobjfrom*/
78117/*end of closepyobjfrom*/
78118 } /*if (f2py_success) after callfortranroutine*/
78119/*cleanupfrompyobj*/
78120 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
78121 } /*if (capi_work_tmp == NULL) ... else of work*/
78122 /* End of cleaning variable work */
78123 } /*CHECKSCALAR(k>=nb&&nb>=1)*/
78124 /* End of cleaning variable nb */
78125 /* End of cleaning variable ldt */
78126 if((PyObject *)capi_t_tmp!=t_capi) {
78127 Py_XDECREF(capi_t_tmp)_Py_XDECREF(((PyObject*)(capi_t_tmp))); }
78128 } /*if (capi_t_tmp == NULL) ... else of t*/
78129 /* End of cleaning variable t */
78130 } /*CHECKSCALAR((*side=='L'?m:n)>=k&&k>=0)*/
78131 /* End of cleaning variable k */
78132 } /*CHECKSTRING(*trans=='N'||*trans=='C')*/
78133 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
78134 } /*if (f2py_success) of trans*/
78135 /* End of cleaning variable trans */
78136 /* End of cleaning variable ldc */
78137 /* End of cleaning variable ldv */
78138 if((PyObject *)capi_v_tmp!=v_capi) {
78139 Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); }
78140 } /*if (capi_v_tmp == NULL) ... else of v*/
78141 /* End of cleaning variable v */
78142 /* End of cleaning variable n */
78143 /* End of cleaning variable m */
78144 /* End of cleaning variable info */
78145 } /*if (capi_c_tmp == NULL) ... else of c*/
78146 /* End of cleaning variable c */
78147 } /*CHECKSTRING(*side=='L'||*side=='R')*/
78148 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
78149 } /*if (f2py_success) of side*/
78150 /* End of cleaning variable side */
78151/*end of cleanupfrompyobj*/
78152 if (capi_buildvalue == NULL((void*)0)) {
78153/*routdebugfailure*/
78154 } else {
78155/*routdebugleave*/
78156 }
78157 CFUNCSMESS("Freeing memory.\n");
78158/*freemem*/
78159#ifdef F2PY_REPORT_ATEXIT
78160f2py_stop_clock();
78161#endif
78162 return capi_buildvalue;
78163}
78164/******************************* end of zgemqrt *******************************/
78165
78166/*********************************** stpqrt ***********************************/
78167static char doc_f2py_rout__flapack_stpqrt[] = "\
78168a,b,t,info = stpqrt(l,nb,a,b,[overwrite_a,overwrite_b])\n\nWrapper for ``stpqrt``.\
78169\n\nParameters\n----------\n"
78170"l : input int\n"
78171"nb : input int\n"
78172"a : input rank-2 array('f') with bounds (n,n)\n"
78173"b : input rank-2 array('f') with bounds (m,n)\n"
78174"\nOther Parameters\n----------------\n"
78175"overwrite_a : input int, optional\n Default: 0\n"
78176"overwrite_b : input int, optional\n Default: 0\n"
78177"\nReturns\n-------\n"
78178"a : rank-2 array('f') with bounds (n,n)\n"
78179"b : rank-2 array('f') with bounds (m,n)\n"
78180"t : rank-2 array('f') with bounds (nb,n)\n"
78181"info : int";
78182/* extern void F_FUNC(stpqrt,STPQRT)(F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT* ); */
78183static PyObject *f2py_rout__flapack_stpqrt(const PyObject *capi_self,
78184 PyObject *capi_args,
78185 PyObject *capi_keywds,
78186 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint* )) {
78187 PyObject * volatile capi_buildvalue = NULL((void*)0);
78188 volatile int f2py_success = 1;
78189/*decl*/
78190
78191 int m = 0;
78192 int n = 0;
78193 int l = 0;
78194 PyObject *l_capi = Py_None(&_Py_NoneStruct);
78195 int nb = 0;
78196 PyObject *nb_capi = Py_None(&_Py_NoneStruct);
78197 float *a = NULL((void*)0);
78198 npy_intp a_Dims[2] = {-1, -1};
78199 const int a_Rank = 2;
78200 PyArrayObject *capi_a_tmp = NULL((void*)0);
78201 int capi_a_intent = 0;
78202 int capi_overwrite_a = 0;
78203 PyObject *a_capi = Py_None(&_Py_NoneStruct);
78204 int lda = 0;
78205 float *b = NULL((void*)0);
78206 npy_intp b_Dims[2] = {-1, -1};
78207 const int b_Rank = 2;
78208 PyArrayObject *capi_b_tmp = NULL((void*)0);
78209 int capi_b_intent = 0;
78210 int capi_overwrite_b = 0;
78211 PyObject *b_capi = Py_None(&_Py_NoneStruct);
78212 int ldb = 0;
78213 float *t = NULL((void*)0);
78214 npy_intp t_Dims[2] = {-1, -1};
78215 const int t_Rank = 2;
78216 PyArrayObject *capi_t_tmp = NULL((void*)0);
78217 int capi_t_intent = 0;
78218 int ldt = 0;
78219 float *work = NULL((void*)0);
78220 npy_intp work_Dims[2] = {-1, -1};
78221 const int work_Rank = 2;
78222 PyArrayObject *capi_work_tmp = NULL((void*)0);
78223 int capi_work_intent = 0;
78224 int info = 0;
78225 static char *capi_kwlist[] = {"l","nb","a","b","overwrite_a","overwrite_b",NULL((void*)0)};
78226
78227/*routdebugenter*/
78228#ifdef F2PY_REPORT_ATEXIT
78229f2py_start_clock();
78230#endif
78231 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
78232 "OOOO|ii:_flapack.stpqrt",\
78233 capi_kwlist,&l_capi,&nb_capi,&a_capi,&b_capi,&capi_overwrite_a,&capi_overwrite_b))
78234 return NULL((void*)0);
78235/*frompyobj*/
78236 /* Processing variable b */
78237 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
78238 ;
78239 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
78240 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
78241 if (capi_b_tmp == NULL((void*)0)) {
78242 if (!PyErr_Occurred())
78243 PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.stpqrt to C/Fortran array" );
78244 } else {
78245 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
78246
78247 /* Processing variable info */
78248 /* Processing variable m */
78249 m = shape(b,0)b_Dims[0];
78250 /* Processing variable n */
78251 n = shape(b,1)b_Dims[1];
78252 /* Processing variable l */
78253 f2py_success = int_from_pyobj(&l,l_capi,"_flapack.stpqrt() 1st argument (l) can't be converted to int");
78254 if (f2py_success) {
78255 CHECKSCALAR(MIN(m,n)>=l&&l>=0,"MIN(m,n)>=l&&l>=0","1st argument l","stpqrt:l=%d",l)if (!(((m < n) ? (m) : (n))>=l&&l>=0)) { char
errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""stpqrt:l=%d", "(""MIN(m,n)>=l&&l>=0"
") failed for ""1st argument l", l); PyErr_SetString(_flapack_error
,errstring); } else
{
78256 /* Processing variable nb */
78257 f2py_success = int_from_pyobj(&nb,nb_capi,"_flapack.stpqrt() 2nd argument (nb) can't be converted to int");
78258 if (f2py_success) {
78259 CHECKSCALAR(n>=nb&&nb>=1,"n>=nb&&nb>=1","2nd argument nb","stpqrt:nb=%d",nb)if (!(n>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stpqrt:nb=%d", "(""n>=nb&&nb>=1"") failed for "
"2nd argument nb", nb); PyErr_SetString(_flapack_error,errstring
); } else
{
78260 /* Processing variable a */
78261 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
78262 a_Dims[0]=n,a_Dims[1]=n;
78263 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
78264 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
78265 if (capi_a_tmp == NULL((void*)0)) {
78266 if (!PyErr_Occurred())
78267 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `a' of _flapack.stpqrt to C/Fortran array" );
78268 } else {
78269 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
78270
78271 /* Processing variable lda */
78272 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
78273 /* Processing variable ldb */
78274 ldb = MAX(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
78275 /* Processing variable t */
78276 t_Dims[0]=nb,t_Dims[1]=n;
78277 capi_t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
78278 capi_t_tmp = array_from_pyobj(NPY_FLOAT,t_Dims,t_Rank,capi_t_intent,Py_None(&_Py_NoneStruct));
78279 if (capi_t_tmp == NULL((void*)0)) {
78280 if (!PyErr_Occurred())
78281 PyErr_SetString(_flapack_error,"failed in converting hidden `t' of _flapack.stpqrt to C/Fortran array" );
78282 } else {
78283 t = (float *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data));
78284
78285 /* Processing variable ldt */
78286 ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0]));
78287 /* Processing variable work */
78288 work_Dims[0]=nb,work_Dims[1]=n;
78289 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
78290 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
78291 if (capi_work_tmp == NULL((void*)0)) {
78292 if (!PyErr_Occurred())
78293 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.stpqrt to C/Fortran array" );
78294 } else {
78295 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
78296
78297/*end of frompyobj*/
78298#ifdef F2PY_REPORT_ATEXIT
78299f2py_start_call_clock();
78300#endif
78301/*callfortranroutine*/
78302 (*f2py_func)(&m,&n,&l,&nb,a,&lda,b,&ldb,t,&ldt,work,&info) ;
78303 /*(*f2py_func)(&m,&n,&l,&nb,a,&lda,b,&ldb,t,&ldt,work,&info);*/
78304if (PyErr_Occurred())
78305 f2py_success = 0;
78306#ifdef F2PY_REPORT_ATEXIT
78307f2py_stop_call_clock();
78308#endif
78309/*end of callfortranroutine*/
78310 if (f2py_success) {
78311/*pyobjfrom*/
78312/*end of pyobjfrom*/
78313 CFUNCSMESS("Building return value.\n");
78314 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_b_tmp,capi_t_tmp,info);
78315/*closepyobjfrom*/
78316/*end of closepyobjfrom*/
78317 } /*if (f2py_success) after callfortranroutine*/
78318/*cleanupfrompyobj*/
78319 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
78320 } /*if (capi_work_tmp == NULL) ... else of work*/
78321 /* End of cleaning variable work */
78322 /* End of cleaning variable ldt */
78323 } /*if (capi_t_tmp == NULL) ... else of t*/
78324 /* End of cleaning variable t */
78325 /* End of cleaning variable ldb */
78326 /* End of cleaning variable lda */
78327 } /*if (capi_a_tmp == NULL) ... else of a*/
78328 /* End of cleaning variable a */
78329 } /*CHECKSCALAR(n>=nb&&nb>=1)*/
78330 } /*if (f2py_success) of nb*/
78331 /* End of cleaning variable nb */
78332 } /*CHECKSCALAR(MIN(m,n)>=l&&l>=0)*/
78333 } /*if (f2py_success) of l*/
78334 /* End of cleaning variable l */
78335 /* End of cleaning variable n */
78336 /* End of cleaning variable m */
78337 /* End of cleaning variable info */
78338 } /*if (capi_b_tmp == NULL) ... else of b*/
78339 /* End of cleaning variable b */
78340/*end of cleanupfrompyobj*/
78341 if (capi_buildvalue == NULL((void*)0)) {
78342/*routdebugfailure*/
78343 } else {
78344/*routdebugleave*/
78345 }
78346 CFUNCSMESS("Freeing memory.\n");
78347/*freemem*/
78348#ifdef F2PY_REPORT_ATEXIT
78349f2py_stop_clock();
78350#endif
78351 return capi_buildvalue;
78352}
78353/******************************* end of stpqrt *******************************/
78354
78355/*********************************** dtpqrt ***********************************/
78356static char doc_f2py_rout__flapack_dtpqrt[] = "\
78357a,b,t,info = dtpqrt(l,nb,a,b,[overwrite_a,overwrite_b])\n\nWrapper for ``dtpqrt``.\
78358\n\nParameters\n----------\n"
78359"l : input int\n"
78360"nb : input int\n"
78361"a : input rank-2 array('d') with bounds (n,n)\n"
78362"b : input rank-2 array('d') with bounds (m,n)\n"
78363"\nOther Parameters\n----------------\n"
78364"overwrite_a : input int, optional\n Default: 0\n"
78365"overwrite_b : input int, optional\n Default: 0\n"
78366"\nReturns\n-------\n"
78367"a : rank-2 array('d') with bounds (n,n)\n"
78368"b : rank-2 array('d') with bounds (m,n)\n"
78369"t : rank-2 array('d') with bounds (nb,n)\n"
78370"info : int";
78371/* extern void F_FUNC(dtpqrt,DTPQRT)(F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT* ); */
78372static PyObject *f2py_rout__flapack_dtpqrt(const PyObject *capi_self,
78373 PyObject *capi_args,
78374 PyObject *capi_keywds,
78375 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint* )) {
78376 PyObject * volatile capi_buildvalue = NULL((void*)0);
78377 volatile int f2py_success = 1;
78378/*decl*/
78379
78380 int m = 0;
78381 int n = 0;
78382 int l = 0;
78383 PyObject *l_capi = Py_None(&_Py_NoneStruct);
78384 int nb = 0;
78385 PyObject *nb_capi = Py_None(&_Py_NoneStruct);
78386 double *a = NULL((void*)0);
78387 npy_intp a_Dims[2] = {-1, -1};
78388 const int a_Rank = 2;
78389 PyArrayObject *capi_a_tmp = NULL((void*)0);
78390 int capi_a_intent = 0;
78391 int capi_overwrite_a = 0;
78392 PyObject *a_capi = Py_None(&_Py_NoneStruct);
78393 int lda = 0;
78394 double *b = NULL((void*)0);
78395 npy_intp b_Dims[2] = {-1, -1};
78396 const int b_Rank = 2;
78397 PyArrayObject *capi_b_tmp = NULL((void*)0);
78398 int capi_b_intent = 0;
78399 int capi_overwrite_b = 0;
78400 PyObject *b_capi = Py_None(&_Py_NoneStruct);
78401 int ldb = 0;
78402 double *t = NULL((void*)0);
78403 npy_intp t_Dims[2] = {-1, -1};
78404 const int t_Rank = 2;
78405 PyArrayObject *capi_t_tmp = NULL((void*)0);
78406 int capi_t_intent = 0;
78407 int ldt = 0;
78408 double *work = NULL((void*)0);
78409 npy_intp work_Dims[2] = {-1, -1};
78410 const int work_Rank = 2;
78411 PyArrayObject *capi_work_tmp = NULL((void*)0);
78412 int capi_work_intent = 0;
78413 int info = 0;
78414 static char *capi_kwlist[] = {"l","nb","a","b","overwrite_a","overwrite_b",NULL((void*)0)};
78415
78416/*routdebugenter*/
78417#ifdef F2PY_REPORT_ATEXIT
78418f2py_start_clock();
78419#endif
78420 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
78421 "OOOO|ii:_flapack.dtpqrt",\
78422 capi_kwlist,&l_capi,&nb_capi,&a_capi,&b_capi,&capi_overwrite_a,&capi_overwrite_b))
78423 return NULL((void*)0);
78424/*frompyobj*/
78425 /* Processing variable b */
78426 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
78427 ;
78428 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
78429 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
78430 if (capi_b_tmp == NULL((void*)0)) {
78431 if (!PyErr_Occurred())
78432 PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.dtpqrt to C/Fortran array" );
78433 } else {
78434 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
78435
78436 /* Processing variable info */
78437 /* Processing variable m */
78438 m = shape(b,0)b_Dims[0];
78439 /* Processing variable n */
78440 n = shape(b,1)b_Dims[1];
78441 /* Processing variable l */
78442 f2py_success = int_from_pyobj(&l,l_capi,"_flapack.dtpqrt() 1st argument (l) can't be converted to int");
78443 if (f2py_success) {
78444 CHECKSCALAR(MIN(m,n)>=l&&l>=0,"MIN(m,n)>=l&&l>=0","1st argument l","dtpqrt:l=%d",l)if (!(((m < n) ? (m) : (n))>=l&&l>=0)) { char
errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dtpqrt:l=%d", "(""MIN(m,n)>=l&&l>=0"
") failed for ""1st argument l", l); PyErr_SetString(_flapack_error
,errstring); } else
{
78445 /* Processing variable nb */
78446 f2py_success = int_from_pyobj(&nb,nb_capi,"_flapack.dtpqrt() 2nd argument (nb) can't be converted to int");
78447 if (f2py_success) {
78448 CHECKSCALAR(n>=nb&&nb>=1,"n>=nb&&nb>=1","2nd argument nb","dtpqrt:nb=%d",nb)if (!(n>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtpqrt:nb=%d", "(""n>=nb&&nb>=1"") failed for "
"2nd argument nb", nb); PyErr_SetString(_flapack_error,errstring
); } else
{
78449 /* Processing variable a */
78450 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
78451 a_Dims[0]=n,a_Dims[1]=n;
78452 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
78453 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
78454 if (capi_a_tmp == NULL((void*)0)) {
78455 if (!PyErr_Occurred())
78456 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `a' of _flapack.dtpqrt to C/Fortran array" );
78457 } else {
78458 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
78459
78460 /* Processing variable lda */
78461 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
78462 /* Processing variable ldb */
78463 ldb = MAX(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
78464 /* Processing variable t */
78465 t_Dims[0]=nb,t_Dims[1]=n;
78466 capi_t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
78467 capi_t_tmp = array_from_pyobj(NPY_DOUBLE,t_Dims,t_Rank,capi_t_intent,Py_None(&_Py_NoneStruct));
78468 if (capi_t_tmp == NULL((void*)0)) {
78469 if (!PyErr_Occurred())
78470 PyErr_SetString(_flapack_error,"failed in converting hidden `t' of _flapack.dtpqrt to C/Fortran array" );
78471 } else {
78472 t = (double *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data));
78473
78474 /* Processing variable ldt */
78475 ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0]));
78476 /* Processing variable work */
78477 work_Dims[0]=nb,work_Dims[1]=n;
78478 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
78479 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
78480 if (capi_work_tmp == NULL((void*)0)) {
78481 if (!PyErr_Occurred())
78482 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dtpqrt to C/Fortran array" );
78483 } else {
78484 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
78485
78486/*end of frompyobj*/
78487#ifdef F2PY_REPORT_ATEXIT
78488f2py_start_call_clock();
78489#endif
78490/*callfortranroutine*/
78491 (*f2py_func)(&m,&n,&l,&nb,a,&lda,b,&ldb,t,&ldt,work,&info) ;
78492 /*(*f2py_func)(&m,&n,&l,&nb,a,&lda,b,&ldb,t,&ldt,work,&info);*/
78493if (PyErr_Occurred())
78494 f2py_success = 0;
78495#ifdef F2PY_REPORT_ATEXIT
78496f2py_stop_call_clock();
78497#endif
78498/*end of callfortranroutine*/
78499 if (f2py_success) {
78500/*pyobjfrom*/
78501/*end of pyobjfrom*/
78502 CFUNCSMESS("Building return value.\n");
78503 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_b_tmp,capi_t_tmp,info);
78504/*closepyobjfrom*/
78505/*end of closepyobjfrom*/
78506 } /*if (f2py_success) after callfortranroutine*/
78507/*cleanupfrompyobj*/
78508 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
78509 } /*if (capi_work_tmp == NULL) ... else of work*/
78510 /* End of cleaning variable work */
78511 /* End of cleaning variable ldt */
78512 } /*if (capi_t_tmp == NULL) ... else of t*/
78513 /* End of cleaning variable t */
78514 /* End of cleaning variable ldb */
78515 /* End of cleaning variable lda */
78516 } /*if (capi_a_tmp == NULL) ... else of a*/
78517 /* End of cleaning variable a */
78518 } /*CHECKSCALAR(n>=nb&&nb>=1)*/
78519 } /*if (f2py_success) of nb*/
78520 /* End of cleaning variable nb */
78521 } /*CHECKSCALAR(MIN(m,n)>=l&&l>=0)*/
78522 } /*if (f2py_success) of l*/
78523 /* End of cleaning variable l */
78524 /* End of cleaning variable n */
78525 /* End of cleaning variable m */
78526 /* End of cleaning variable info */
78527 } /*if (capi_b_tmp == NULL) ... else of b*/
78528 /* End of cleaning variable b */
78529/*end of cleanupfrompyobj*/
78530 if (capi_buildvalue == NULL((void*)0)) {
78531/*routdebugfailure*/
78532 } else {
78533/*routdebugleave*/
78534 }
78535 CFUNCSMESS("Freeing memory.\n");
78536/*freemem*/
78537#ifdef F2PY_REPORT_ATEXIT
78538f2py_stop_clock();
78539#endif
78540 return capi_buildvalue;
78541}
78542/******************************* end of dtpqrt *******************************/
78543
78544/*********************************** ctpqrt ***********************************/
78545static char doc_f2py_rout__flapack_ctpqrt[] = "\
78546a,b,t,info = ctpqrt(l,nb,a,b,[overwrite_a,overwrite_b])\n\nWrapper for ``ctpqrt``.\
78547\n\nParameters\n----------\n"
78548"l : input int\n"
78549"nb : input int\n"
78550"a : input rank-2 array('F') with bounds (n,n)\n"
78551"b : input rank-2 array('F') with bounds (m,n)\n"
78552"\nOther Parameters\n----------------\n"
78553"overwrite_a : input int, optional\n Default: 0\n"
78554"overwrite_b : input int, optional\n Default: 0\n"
78555"\nReturns\n-------\n"
78556"a : rank-2 array('F') with bounds (n,n)\n"
78557"b : rank-2 array('F') with bounds (m,n)\n"
78558"t : rank-2 array('F') with bounds (nb,n)\n"
78559"info : int";
78560/* extern void F_FUNC(ctpqrt,CTPQRT)(F_INT*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT* ); */
78561static PyObject *f2py_rout__flapack_ctpqrt(const PyObject *capi_self,
78562 PyObject *capi_args,
78563 PyObject *capi_keywds,
78564 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* )) {
78565 PyObject * volatile capi_buildvalue = NULL((void*)0);
78566 volatile int f2py_success = 1;
78567/*decl*/
78568
78569 int m = 0;
78570 int n = 0;
78571 int l = 0;
78572 PyObject *l_capi = Py_None(&_Py_NoneStruct);
78573 int nb = 0;
78574 PyObject *nb_capi = Py_None(&_Py_NoneStruct);
78575 complex_float *a = NULL((void*)0);
78576 npy_intp a_Dims[2] = {-1, -1};
78577 const int a_Rank = 2;
78578 PyArrayObject *capi_a_tmp = NULL((void*)0);
78579 int capi_a_intent = 0;
78580 int capi_overwrite_a = 0;
78581 PyObject *a_capi = Py_None(&_Py_NoneStruct);
78582 int lda = 0;
78583 complex_float *b = NULL((void*)0);
78584 npy_intp b_Dims[2] = {-1, -1};
78585 const int b_Rank = 2;
78586 PyArrayObject *capi_b_tmp = NULL((void*)0);
78587 int capi_b_intent = 0;
78588 int capi_overwrite_b = 0;
78589 PyObject *b_capi = Py_None(&_Py_NoneStruct);
78590 int ldb = 0;
78591 complex_float *t = NULL((void*)0);
78592 npy_intp t_Dims[2] = {-1, -1};
78593 const int t_Rank = 2;
78594 PyArrayObject *capi_t_tmp = NULL((void*)0);
78595 int capi_t_intent = 0;
78596 int ldt = 0;
78597 complex_float *work = NULL((void*)0);
78598 npy_intp work_Dims[2] = {-1, -1};
78599 const int work_Rank = 2;
78600 PyArrayObject *capi_work_tmp = NULL((void*)0);
78601 int capi_work_intent = 0;
78602 int info = 0;
78603 static char *capi_kwlist[] = {"l","nb","a","b","overwrite_a","overwrite_b",NULL((void*)0)};
78604
78605/*routdebugenter*/
78606#ifdef F2PY_REPORT_ATEXIT
78607f2py_start_clock();
78608#endif
78609 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
78610 "OOOO|ii:_flapack.ctpqrt",\
78611 capi_kwlist,&l_capi,&nb_capi,&a_capi,&b_capi,&capi_overwrite_a,&capi_overwrite_b))
78612 return NULL((void*)0);
78613/*frompyobj*/
78614 /* Processing variable b */
78615 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
78616 ;
78617 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
78618 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
78619 if (capi_b_tmp == NULL((void*)0)) {
78620 if (!PyErr_Occurred())
78621 PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.ctpqrt to C/Fortran array" );
78622 } else {
78623 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
78624
78625 /* Processing variable info */
78626 /* Processing variable m */
78627 m = shape(b,0)b_Dims[0];
78628 /* Processing variable n */
78629 n = shape(b,1)b_Dims[1];
78630 /* Processing variable l */
78631 f2py_success = int_from_pyobj(&l,l_capi,"_flapack.ctpqrt() 1st argument (l) can't be converted to int");
78632 if (f2py_success) {
78633 CHECKSCALAR(MIN(m,n)>=l&&l>=0,"MIN(m,n)>=l&&l>=0","1st argument l","ctpqrt:l=%d",l)if (!(((m < n) ? (m) : (n))>=l&&l>=0)) { char
errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ctpqrt:l=%d", "(""MIN(m,n)>=l&&l>=0"
") failed for ""1st argument l", l); PyErr_SetString(_flapack_error
,errstring); } else
{
78634 /* Processing variable nb */
78635 f2py_success = int_from_pyobj(&nb,nb_capi,"_flapack.ctpqrt() 2nd argument (nb) can't be converted to int");
78636 if (f2py_success) {
78637 CHECKSCALAR(n>=nb&&nb>=1,"n>=nb&&nb>=1","2nd argument nb","ctpqrt:nb=%d",nb)if (!(n>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctpqrt:nb=%d", "(""n>=nb&&nb>=1"") failed for "
"2nd argument nb", nb); PyErr_SetString(_flapack_error,errstring
); } else
{
78638 /* Processing variable a */
78639 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
78640 a_Dims[0]=n,a_Dims[1]=n;
78641 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
78642 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
78643 if (capi_a_tmp == NULL((void*)0)) {
78644 if (!PyErr_Occurred())
78645 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `a' of _flapack.ctpqrt to C/Fortran array" );
78646 } else {
78647 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
78648
78649 /* Processing variable lda */
78650 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
78651 /* Processing variable ldb */
78652 ldb = MAX(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
78653 /* Processing variable t */
78654 t_Dims[0]=nb,t_Dims[1]=n;
78655 capi_t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
78656 capi_t_tmp = array_from_pyobj(NPY_CFLOAT,t_Dims,t_Rank,capi_t_intent,Py_None(&_Py_NoneStruct));
78657 if (capi_t_tmp == NULL((void*)0)) {
78658 if (!PyErr_Occurred())
78659 PyErr_SetString(_flapack_error,"failed in converting hidden `t' of _flapack.ctpqrt to C/Fortran array" );
78660 } else {
78661 t = (complex_float *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data));
78662
78663 /* Processing variable ldt */
78664 ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0]));
78665 /* Processing variable work */
78666 work_Dims[0]=nb,work_Dims[1]=n;
78667 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
78668 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
78669 if (capi_work_tmp == NULL((void*)0)) {
78670 if (!PyErr_Occurred())
78671 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ctpqrt to C/Fortran array" );
78672 } else {
78673 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
78674
78675/*end of frompyobj*/
78676#ifdef F2PY_REPORT_ATEXIT
78677f2py_start_call_clock();
78678#endif
78679/*callfortranroutine*/
78680 (*f2py_func)(&m,&n,&l,&nb,a,&lda,b,&ldb,t,&ldt,work,&info) ;
78681 /*(*f2py_func)(&m,&n,&l,&nb,a,&lda,b,&ldb,t,&ldt,work,&info);*/
78682if (PyErr_Occurred())
78683 f2py_success = 0;
78684#ifdef F2PY_REPORT_ATEXIT
78685f2py_stop_call_clock();
78686#endif
78687/*end of callfortranroutine*/
78688 if (f2py_success) {
78689/*pyobjfrom*/
78690/*end of pyobjfrom*/
78691 CFUNCSMESS("Building return value.\n");
78692 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_b_tmp,capi_t_tmp,info);
78693/*closepyobjfrom*/
78694/*end of closepyobjfrom*/
78695 } /*if (f2py_success) after callfortranroutine*/
78696/*cleanupfrompyobj*/
78697 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
78698 } /*if (capi_work_tmp == NULL) ... else of work*/
78699 /* End of cleaning variable work */
78700 /* End of cleaning variable ldt */
78701 } /*if (capi_t_tmp == NULL) ... else of t*/
78702 /* End of cleaning variable t */
78703 /* End of cleaning variable ldb */
78704 /* End of cleaning variable lda */
78705 } /*if (capi_a_tmp == NULL) ... else of a*/
78706 /* End of cleaning variable a */
78707 } /*CHECKSCALAR(n>=nb&&nb>=1)*/
78708 } /*if (f2py_success) of nb*/
78709 /* End of cleaning variable nb */
78710 } /*CHECKSCALAR(MIN(m,n)>=l&&l>=0)*/
78711 } /*if (f2py_success) of l*/
78712 /* End of cleaning variable l */
78713 /* End of cleaning variable n */
78714 /* End of cleaning variable m */
78715 /* End of cleaning variable info */
78716 } /*if (capi_b_tmp == NULL) ... else of b*/
78717 /* End of cleaning variable b */
78718/*end of cleanupfrompyobj*/
78719 if (capi_buildvalue == NULL((void*)0)) {
78720/*routdebugfailure*/
78721 } else {
78722/*routdebugleave*/
78723 }
78724 CFUNCSMESS("Freeing memory.\n");
78725/*freemem*/
78726#ifdef F2PY_REPORT_ATEXIT
78727f2py_stop_clock();
78728#endif
78729 return capi_buildvalue;
78730}
78731/******************************* end of ctpqrt *******************************/
78732
78733/*********************************** ztpqrt ***********************************/
78734static char doc_f2py_rout__flapack_ztpqrt[] = "\
78735a,b,t,info = ztpqrt(l,nb,a,b,[overwrite_a,overwrite_b])\n\nWrapper for ``ztpqrt``.\
78736\n\nParameters\n----------\n"
78737"l : input int\n"
78738"nb : input int\n"
78739"a : input rank-2 array('D') with bounds (n,n)\n"
78740"b : input rank-2 array('D') with bounds (m,n)\n"
78741"\nOther Parameters\n----------------\n"
78742"overwrite_a : input int, optional\n Default: 0\n"
78743"overwrite_b : input int, optional\n Default: 0\n"
78744"\nReturns\n-------\n"
78745"a : rank-2 array('D') with bounds (n,n)\n"
78746"b : rank-2 array('D') with bounds (m,n)\n"
78747"t : rank-2 array('D') with bounds (nb,n)\n"
78748"info : int";
78749/* extern void F_FUNC(ztpqrt,ZTPQRT)(F_INT*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT* ); */
78750static PyObject *f2py_rout__flapack_ztpqrt(const PyObject *capi_self,
78751 PyObject *capi_args,
78752 PyObject *capi_keywds,
78753 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* )) {
78754 PyObject * volatile capi_buildvalue = NULL((void*)0);
78755 volatile int f2py_success = 1;
78756/*decl*/
78757
78758 int m = 0;
78759 int n = 0;
78760 int l = 0;
78761 PyObject *l_capi = Py_None(&_Py_NoneStruct);
78762 int nb = 0;
78763 PyObject *nb_capi = Py_None(&_Py_NoneStruct);
78764 complex_double *a = NULL((void*)0);
78765 npy_intp a_Dims[2] = {-1, -1};
78766 const int a_Rank = 2;
78767 PyArrayObject *capi_a_tmp = NULL((void*)0);
78768 int capi_a_intent = 0;
78769 int capi_overwrite_a = 0;
78770 PyObject *a_capi = Py_None(&_Py_NoneStruct);
78771 int lda = 0;
78772 complex_double *b = NULL((void*)0);
78773 npy_intp b_Dims[2] = {-1, -1};
78774 const int b_Rank = 2;
78775 PyArrayObject *capi_b_tmp = NULL((void*)0);
78776 int capi_b_intent = 0;
78777 int capi_overwrite_b = 0;
78778 PyObject *b_capi = Py_None(&_Py_NoneStruct);
78779 int ldb = 0;
78780 complex_double *t = NULL((void*)0);
78781 npy_intp t_Dims[2] = {-1, -1};
78782 const int t_Rank = 2;
78783 PyArrayObject *capi_t_tmp = NULL((void*)0);
78784 int capi_t_intent = 0;
78785 int ldt = 0;
78786 complex_double *work = NULL((void*)0);
78787 npy_intp work_Dims[2] = {-1, -1};
78788 const int work_Rank = 2;
78789 PyArrayObject *capi_work_tmp = NULL((void*)0);
78790 int capi_work_intent = 0;
78791 int info = 0;
78792 static char *capi_kwlist[] = {"l","nb","a","b","overwrite_a","overwrite_b",NULL((void*)0)};
78793
78794/*routdebugenter*/
78795#ifdef F2PY_REPORT_ATEXIT
78796f2py_start_clock();
78797#endif
78798 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
78799 "OOOO|ii:_flapack.ztpqrt",\
78800 capi_kwlist,&l_capi,&nb_capi,&a_capi,&b_capi,&capi_overwrite_a,&capi_overwrite_b))
78801 return NULL((void*)0);
78802/*frompyobj*/
78803 /* Processing variable b */
78804 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
78805 ;
78806 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
78807 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
78808 if (capi_b_tmp == NULL((void*)0)) {
78809 if (!PyErr_Occurred())
78810 PyErr_SetString(_flapack_error,"failed in converting 4th argument `b' of _flapack.ztpqrt to C/Fortran array" );
78811 } else {
78812 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
78813
78814 /* Processing variable info */
78815 /* Processing variable m */
78816 m = shape(b,0)b_Dims[0];
78817 /* Processing variable n */
78818 n = shape(b,1)b_Dims[1];
78819 /* Processing variable l */
78820 f2py_success = int_from_pyobj(&l,l_capi,"_flapack.ztpqrt() 1st argument (l) can't be converted to int");
78821 if (f2py_success) {
78822 CHECKSCALAR(MIN(m,n)>=l&&l>=0,"MIN(m,n)>=l&&l>=0","1st argument l","ztpqrt:l=%d",l)if (!(((m < n) ? (m) : (n))>=l&&l>=0)) { char
errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ztpqrt:l=%d", "(""MIN(m,n)>=l&&l>=0"
") failed for ""1st argument l", l); PyErr_SetString(_flapack_error
,errstring); } else
{
78823 /* Processing variable nb */
78824 f2py_success = int_from_pyobj(&nb,nb_capi,"_flapack.ztpqrt() 2nd argument (nb) can't be converted to int");
78825 if (f2py_success) {
78826 CHECKSCALAR(n>=nb&&nb>=1,"n>=nb&&nb>=1","2nd argument nb","ztpqrt:nb=%d",nb)if (!(n>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztpqrt:nb=%d", "(""n>=nb&&nb>=1"") failed for "
"2nd argument nb", nb); PyErr_SetString(_flapack_error,errstring
); } else
{
78827 /* Processing variable a */
78828 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
78829 a_Dims[0]=n,a_Dims[1]=n;
78830 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
78831 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
78832 if (capi_a_tmp == NULL((void*)0)) {
78833 if (!PyErr_Occurred())
78834 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `a' of _flapack.ztpqrt to C/Fortran array" );
78835 } else {
78836 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
78837
78838 /* Processing variable lda */
78839 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
78840 /* Processing variable ldb */
78841 ldb = MAX(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
78842 /* Processing variable t */
78843 t_Dims[0]=nb,t_Dims[1]=n;
78844 capi_t_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
78845 capi_t_tmp = array_from_pyobj(NPY_CDOUBLE,t_Dims,t_Rank,capi_t_intent,Py_None(&_Py_NoneStruct));
78846 if (capi_t_tmp == NULL((void*)0)) {
78847 if (!PyErr_Occurred())
78848 PyErr_SetString(_flapack_error,"failed in converting hidden `t' of _flapack.ztpqrt to C/Fortran array" );
78849 } else {
78850 t = (complex_double *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data));
78851
78852 /* Processing variable ldt */
78853 ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0]));
78854 /* Processing variable work */
78855 work_Dims[0]=nb,work_Dims[1]=n;
78856 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
78857 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
78858 if (capi_work_tmp == NULL((void*)0)) {
78859 if (!PyErr_Occurred())
78860 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ztpqrt to C/Fortran array" );
78861 } else {
78862 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
78863
78864/*end of frompyobj*/
78865#ifdef F2PY_REPORT_ATEXIT
78866f2py_start_call_clock();
78867#endif
78868/*callfortranroutine*/
78869 (*f2py_func)(&m,&n,&l,&nb,a,&lda,b,&ldb,t,&ldt,work,&info) ;
78870 /*(*f2py_func)(&m,&n,&l,&nb,a,&lda,b,&ldb,t,&ldt,work,&info);*/
78871if (PyErr_Occurred())
78872 f2py_success = 0;
78873#ifdef F2PY_REPORT_ATEXIT
78874f2py_stop_call_clock();
78875#endif
78876/*end of callfortranroutine*/
78877 if (f2py_success) {
78878/*pyobjfrom*/
78879/*end of pyobjfrom*/
78880 CFUNCSMESS("Building return value.\n");
78881 capi_buildvalue = Py_BuildValue("NNNi",capi_a_tmp,capi_b_tmp,capi_t_tmp,info);
78882/*closepyobjfrom*/
78883/*end of closepyobjfrom*/
78884 } /*if (f2py_success) after callfortranroutine*/
78885/*cleanupfrompyobj*/
78886 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
78887 } /*if (capi_work_tmp == NULL) ... else of work*/
78888 /* End of cleaning variable work */
78889 /* End of cleaning variable ldt */
78890 } /*if (capi_t_tmp == NULL) ... else of t*/
78891 /* End of cleaning variable t */
78892 /* End of cleaning variable ldb */
78893 /* End of cleaning variable lda */
78894 } /*if (capi_a_tmp == NULL) ... else of a*/
78895 /* End of cleaning variable a */
78896 } /*CHECKSCALAR(n>=nb&&nb>=1)*/
78897 } /*if (f2py_success) of nb*/
78898 /* End of cleaning variable nb */
78899 } /*CHECKSCALAR(MIN(m,n)>=l&&l>=0)*/
78900 } /*if (f2py_success) of l*/
78901 /* End of cleaning variable l */
78902 /* End of cleaning variable n */
78903 /* End of cleaning variable m */
78904 /* End of cleaning variable info */
78905 } /*if (capi_b_tmp == NULL) ... else of b*/
78906 /* End of cleaning variable b */
78907/*end of cleanupfrompyobj*/
78908 if (capi_buildvalue == NULL((void*)0)) {
78909/*routdebugfailure*/
78910 } else {
78911/*routdebugleave*/
78912 }
78913 CFUNCSMESS("Freeing memory.\n");
78914/*freemem*/
78915#ifdef F2PY_REPORT_ATEXIT
78916f2py_stop_clock();
78917#endif
78918 return capi_buildvalue;
78919}
78920/******************************* end of ztpqrt *******************************/
78921
78922/********************************** stpmqrt **********************************/
78923static char doc_f2py_rout__flapack_stpmqrt[] = "\
78924a,b,info = stpmqrt(l,v,t,a,b,[side,trans,overwrite_a,overwrite_b])\n\nWrapper for ``stpmqrt``.\
78925\n\nParameters\n----------\n"
78926"l : input int\n"
78927"v : input rank-2 array('f') with bounds ((side[0]=='L'?m:n),k)\n"
78928"t : input rank-2 array('f') with bounds (nb,k)\n"
78929"a : input rank-2 array('f') with bounds ((side[0]=='L'?k:m),(side[0]=='L'?n:k))\n"
78930"b : input rank-2 array('f') with bounds (m,n)\n"
78931"\nOther Parameters\n----------------\n"
78932"side : input string(len=1), optional\n Default: 'L'\n"
78933"trans : input string(len=1), optional\n Default: 'N'\n"
78934"overwrite_a : input int, optional\n Default: 0\n"
78935"overwrite_b : input int, optional\n Default: 0\n"
78936"\nReturns\n-------\n"
78937"a : rank-2 array('f') with bounds ((side[0]=='L'?k:m),(side[0]=='L'?n:k))\n"
78938"b : rank-2 array('f') with bounds (m,n)\n"
78939"info : int";
78940/* extern void F_FUNC(stpmqrt,STPMQRT)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT* ); */
78941static PyObject *f2py_rout__flapack_stpmqrt(const PyObject *capi_self,
78942 PyObject *capi_args,
78943 PyObject *capi_keywds,
78944 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint* )) {
78945 PyObject * volatile capi_buildvalue = NULL((void*)0);
78946 volatile int f2py_success = 1;
78947/*decl*/
78948
78949 string side = NULL((void*)0);
78950 int slen(side)capi_side_len;
78951 PyObject *side_capi = Py_None(&_Py_NoneStruct);
78952 string trans = NULL((void*)0);
78953 int slen(trans)capi_trans_len;
78954 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
78955 int m = 0;
78956 int n = 0;
78957 int k = 0;
78958 int l = 0;
78959 PyObject *l_capi = Py_None(&_Py_NoneStruct);
78960 int nb = 0;
78961 float *v = NULL((void*)0);
78962 npy_intp v_Dims[2] = {-1, -1};
78963 const int v_Rank = 2;
78964 PyArrayObject *capi_v_tmp = NULL((void*)0);
78965 int capi_v_intent = 0;
78966 PyObject *v_capi = Py_None(&_Py_NoneStruct);
78967 int ldv = 0;
78968 float *t = NULL((void*)0);
78969 npy_intp t_Dims[2] = {-1, -1};
78970 const int t_Rank = 2;
78971 PyArrayObject *capi_t_tmp = NULL((void*)0);
78972 int capi_t_intent = 0;
78973 PyObject *t_capi = Py_None(&_Py_NoneStruct);
78974 int ldt = 0;
78975 float *a = NULL((void*)0);
78976 npy_intp a_Dims[2] = {-1, -1};
78977 const int a_Rank = 2;
78978 PyArrayObject *capi_a_tmp = NULL((void*)0);
78979 int capi_a_intent = 0;
78980 int capi_overwrite_a = 0;
78981 PyObject *a_capi = Py_None(&_Py_NoneStruct);
78982 int lda = 0;
78983 float *b = NULL((void*)0);
78984 npy_intp b_Dims[2] = {-1, -1};
78985 const int b_Rank = 2;
78986 PyArrayObject *capi_b_tmp = NULL((void*)0);
78987 int capi_b_intent = 0;
78988 int capi_overwrite_b = 0;
78989 PyObject *b_capi = Py_None(&_Py_NoneStruct);
78990 int ldb = 0;
78991 float *work = NULL((void*)0);
78992 npy_intp work_Dims[1] = {-1};
78993 const int work_Rank = 1;
78994 PyArrayObject *capi_work_tmp = NULL((void*)0);
78995 int capi_work_intent = 0;
78996 int info = 0;
78997 static char *capi_kwlist[] = {"l","v","t","a","b","side","trans","overwrite_a","overwrite_b",NULL((void*)0)};
78998
78999/*routdebugenter*/
79000#ifdef F2PY_REPORT_ATEXIT
79001f2py_start_clock();
79002#endif
79003 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
79004 "OOOOO|OOii:_flapack.stpmqrt",\
79005 capi_kwlist,&l_capi,&v_capi,&t_capi,&a_capi,&b_capi,&side_capi,&trans_capi,&capi_overwrite_a,&capi_overwrite_b))
79006 return NULL((void*)0);
79007/*frompyobj*/
79008 /* Processing variable t */
79009 ;
79010 capi_t_intent |= F2PY_INTENT_IN1;
79011 capi_t_tmp = array_from_pyobj(NPY_FLOAT,t_Dims,t_Rank,capi_t_intent,t_capi);
79012 if (capi_t_tmp == NULL((void*)0)) {
79013 if (!PyErr_Occurred())
79014 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `t' of _flapack.stpmqrt to C/Fortran array" );
79015 } else {
79016 t = (float *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data));
79017
79018 /* Processing variable b */
79019 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
79020 ;
79021 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
79022 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
79023 if (capi_b_tmp == NULL((void*)0)) {
79024 if (!PyErr_Occurred())
79025 PyErr_SetString(_flapack_error,"failed in converting 5th argument `b' of _flapack.stpmqrt to C/Fortran array" );
79026 } else {
79027 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
79028
79029 /* Processing variable info */
79030 /* Processing variable m */
79031 m = shape(b,0)b_Dims[0];
79032 /* Processing variable n */
79033 n = shape(b,1)b_Dims[1];
79034 /* Processing variable k */
79035 k = shape(t,1)t_Dims[1];
79036 /* Processing variable l */
79037 f2py_success = int_from_pyobj(&l,l_capi,"_flapack.stpmqrt() 1st argument (l) can't be converted to int");
79038 if (f2py_success) {
79039 CHECKSCALAR(k>=l&&l>=0,"k>=l&&l>=0","1st argument l","stpmqrt:l=%d",l)if (!(k>=l&&l>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stpmqrt:l=%d", "(""k>=l&&l>=0"") failed for "
"1st argument l", l); PyErr_SetString(_flapack_error,errstring
); } else
{
79040 /* Processing variable nb */
79041 nb = shape(t,0)t_Dims[0];
79042 CHECKSCALAR(k>=nb&&nb>=1,"k>=nb&&nb>=1","hidden nb","stpmqrt:nb=%d",nb)if (!(k>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stpmqrt:nb=%d", "(""k>=nb&&nb>=1"") failed for "
"hidden nb", nb); PyErr_SetString(_flapack_error,errstring); }
else
{
79043 /* Processing variable ldt */
79044 ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0]));
79045 /* Processing variable ldb */
79046 ldb = MAX(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
79047 /* Processing variable side */
79048 slen(side)capi_side_len = 1;
79049 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.stpmqrt to C string");
79050 if (f2py_success) {
79051 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","stpmqrt:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stpmqrt:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
79052 /* Processing variable trans */
79053 slen(trans)capi_trans_len = 1;
79054 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.stpmqrt to C string");
79055 if (f2py_success) {
79056 CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","2nd keyword trans","stpmqrt:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stpmqrt:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'"
") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
79057 /* Processing variable v */
79058 v_Dims[0]=(side[0]=='L'?m:n),v_Dims[1]=k;
79059 capi_v_intent |= F2PY_INTENT_IN1;
79060 capi_v_tmp = array_from_pyobj(NPY_FLOAT,v_Dims,v_Rank,capi_v_intent,v_capi);
79061 if (capi_v_tmp == NULL((void*)0)) {
79062 if (!PyErr_Occurred())
79063 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `v' of _flapack.stpmqrt to C/Fortran array" );
79064 } else {
79065 v = (float *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data));
79066
79067 /* Processing variable ldv */
79068 ldv = MAX(1,shape(v,0))((1 > v_Dims[0]) ? (1) : (v_Dims[0]));
79069 /* Processing variable a */
79070 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
79071 a_Dims[0]=(side[0]=='L'?k:m),a_Dims[1]=(side[0]=='L'?n:k);
79072 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
79073 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
79074 if (capi_a_tmp == NULL((void*)0)) {
79075 if (!PyErr_Occurred())
79076 PyErr_SetString(_flapack_error,"failed in converting 4th argument `a' of _flapack.stpmqrt to C/Fortran array" );
79077 } else {
79078 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
79079
79080 /* Processing variable lda */
79081 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
79082 /* Processing variable work */
79083 work_Dims[0]=(side[0]=='L'?n:m)*nb;
79084 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
79085 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
79086 if (capi_work_tmp == NULL((void*)0)) {
79087 if (!PyErr_Occurred())
79088 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.stpmqrt to C/Fortran array" );
79089 } else {
79090 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
79091
79092/*end of frompyobj*/
79093#ifdef F2PY_REPORT_ATEXIT
79094f2py_start_call_clock();
79095#endif
79096/*callfortranroutine*/
79097 (*f2py_func)(side,trans,&m,&n,&k,&l,&nb,v,&ldv,t,&ldt,a,&lda,b,&ldb,work,&info) ;
79098 /*(*f2py_func)(side,trans,&m,&n,&k,&l,&nb,v,&ldv,t,&ldt,a,&lda,b,&ldb,work,&info,slen(side),slen(trans));*/
79099if (PyErr_Occurred())
79100 f2py_success = 0;
79101#ifdef F2PY_REPORT_ATEXIT
79102f2py_stop_call_clock();
79103#endif
79104/*end of callfortranroutine*/
79105 if (f2py_success) {
79106/*pyobjfrom*/
79107/*end of pyobjfrom*/
79108 CFUNCSMESS("Building return value.\n");
79109 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info);
79110/*closepyobjfrom*/
79111/*end of closepyobjfrom*/
79112 } /*if (f2py_success) after callfortranroutine*/
79113/*cleanupfrompyobj*/
79114 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
79115 } /*if (capi_work_tmp == NULL) ... else of work*/
79116 /* End of cleaning variable work */
79117 /* End of cleaning variable lda */
79118 } /*if (capi_a_tmp == NULL) ... else of a*/
79119 /* End of cleaning variable a */
79120 /* End of cleaning variable ldv */
79121 if((PyObject *)capi_v_tmp!=v_capi) {
79122 Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); }
79123 } /*if (capi_v_tmp == NULL) ... else of v*/
79124 /* End of cleaning variable v */
79125 } /*CHECKSTRING(*trans=='N'||*trans=='T')*/
79126 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
79127 } /*if (f2py_success) of trans*/
79128 /* End of cleaning variable trans */
79129 } /*CHECKSTRING(*side=='L'||*side=='R')*/
79130 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
79131 } /*if (f2py_success) of side*/
79132 /* End of cleaning variable side */
79133 /* End of cleaning variable ldb */
79134 /* End of cleaning variable ldt */
79135 } /*CHECKSCALAR(k>=nb&&nb>=1)*/
79136 /* End of cleaning variable nb */
79137 } /*CHECKSCALAR(k>=l&&l>=0)*/
79138 } /*if (f2py_success) of l*/
79139 /* End of cleaning variable l */
79140 /* End of cleaning variable k */
79141 /* End of cleaning variable n */
79142 /* End of cleaning variable m */
79143 /* End of cleaning variable info */
79144 } /*if (capi_b_tmp == NULL) ... else of b*/
79145 /* End of cleaning variable b */
79146 if((PyObject *)capi_t_tmp!=t_capi) {
79147 Py_XDECREF(capi_t_tmp)_Py_XDECREF(((PyObject*)(capi_t_tmp))); }
79148 } /*if (capi_t_tmp == NULL) ... else of t*/
79149 /* End of cleaning variable t */
79150/*end of cleanupfrompyobj*/
79151 if (capi_buildvalue == NULL((void*)0)) {
79152/*routdebugfailure*/
79153 } else {
79154/*routdebugleave*/
79155 }
79156 CFUNCSMESS("Freeing memory.\n");
79157/*freemem*/
79158#ifdef F2PY_REPORT_ATEXIT
79159f2py_stop_clock();
79160#endif
79161 return capi_buildvalue;
79162}
79163/******************************* end of stpmqrt *******************************/
79164
79165/********************************** dtpmqrt **********************************/
79166static char doc_f2py_rout__flapack_dtpmqrt[] = "\
79167a,b,info = dtpmqrt(l,v,t,a,b,[side,trans,overwrite_a,overwrite_b])\n\nWrapper for ``dtpmqrt``.\
79168\n\nParameters\n----------\n"
79169"l : input int\n"
79170"v : input rank-2 array('d') with bounds ((side[0]=='L'?m:n),k)\n"
79171"t : input rank-2 array('d') with bounds (nb,k)\n"
79172"a : input rank-2 array('d') with bounds ((side[0]=='L'?k:m),(side[0]=='L'?n:k))\n"
79173"b : input rank-2 array('d') with bounds (m,n)\n"
79174"\nOther Parameters\n----------------\n"
79175"side : input string(len=1), optional\n Default: 'L'\n"
79176"trans : input string(len=1), optional\n Default: 'N'\n"
79177"overwrite_a : input int, optional\n Default: 0\n"
79178"overwrite_b : input int, optional\n Default: 0\n"
79179"\nReturns\n-------\n"
79180"a : rank-2 array('d') with bounds ((side[0]=='L'?k:m),(side[0]=='L'?n:k))\n"
79181"b : rank-2 array('d') with bounds (m,n)\n"
79182"info : int";
79183/* extern void F_FUNC(dtpmqrt,DTPMQRT)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT* ); */
79184static PyObject *f2py_rout__flapack_dtpmqrt(const PyObject *capi_self,
79185 PyObject *capi_args,
79186 PyObject *capi_keywds,
79187 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint* )) {
79188 PyObject * volatile capi_buildvalue = NULL((void*)0);
79189 volatile int f2py_success = 1;
79190/*decl*/
79191
79192 string side = NULL((void*)0);
79193 int slen(side)capi_side_len;
79194 PyObject *side_capi = Py_None(&_Py_NoneStruct);
79195 string trans = NULL((void*)0);
79196 int slen(trans)capi_trans_len;
79197 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
79198 int m = 0;
79199 int n = 0;
79200 int k = 0;
79201 int l = 0;
79202 PyObject *l_capi = Py_None(&_Py_NoneStruct);
79203 int nb = 0;
79204 double *v = NULL((void*)0);
79205 npy_intp v_Dims[2] = {-1, -1};
79206 const int v_Rank = 2;
79207 PyArrayObject *capi_v_tmp = NULL((void*)0);
79208 int capi_v_intent = 0;
79209 PyObject *v_capi = Py_None(&_Py_NoneStruct);
79210 int ldv = 0;
79211 double *t = NULL((void*)0);
79212 npy_intp t_Dims[2] = {-1, -1};
79213 const int t_Rank = 2;
79214 PyArrayObject *capi_t_tmp = NULL((void*)0);
79215 int capi_t_intent = 0;
79216 PyObject *t_capi = Py_None(&_Py_NoneStruct);
79217 int ldt = 0;
79218 double *a = NULL((void*)0);
79219 npy_intp a_Dims[2] = {-1, -1};
79220 const int a_Rank = 2;
79221 PyArrayObject *capi_a_tmp = NULL((void*)0);
79222 int capi_a_intent = 0;
79223 int capi_overwrite_a = 0;
79224 PyObject *a_capi = Py_None(&_Py_NoneStruct);
79225 int lda = 0;
79226 double *b = NULL((void*)0);
79227 npy_intp b_Dims[2] = {-1, -1};
79228 const int b_Rank = 2;
79229 PyArrayObject *capi_b_tmp = NULL((void*)0);
79230 int capi_b_intent = 0;
79231 int capi_overwrite_b = 0;
79232 PyObject *b_capi = Py_None(&_Py_NoneStruct);
79233 int ldb = 0;
79234 double *work = NULL((void*)0);
79235 npy_intp work_Dims[1] = {-1};
79236 const int work_Rank = 1;
79237 PyArrayObject *capi_work_tmp = NULL((void*)0);
79238 int capi_work_intent = 0;
79239 int info = 0;
79240 static char *capi_kwlist[] = {"l","v","t","a","b","side","trans","overwrite_a","overwrite_b",NULL((void*)0)};
79241
79242/*routdebugenter*/
79243#ifdef F2PY_REPORT_ATEXIT
79244f2py_start_clock();
79245#endif
79246 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
79247 "OOOOO|OOii:_flapack.dtpmqrt",\
79248 capi_kwlist,&l_capi,&v_capi,&t_capi,&a_capi,&b_capi,&side_capi,&trans_capi,&capi_overwrite_a,&capi_overwrite_b))
79249 return NULL((void*)0);
79250/*frompyobj*/
79251 /* Processing variable t */
79252 ;
79253 capi_t_intent |= F2PY_INTENT_IN1;
79254 capi_t_tmp = array_from_pyobj(NPY_DOUBLE,t_Dims,t_Rank,capi_t_intent,t_capi);
79255 if (capi_t_tmp == NULL((void*)0)) {
79256 if (!PyErr_Occurred())
79257 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `t' of _flapack.dtpmqrt to C/Fortran array" );
79258 } else {
79259 t = (double *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data));
79260
79261 /* Processing variable b */
79262 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
79263 ;
79264 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
79265 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
79266 if (capi_b_tmp == NULL((void*)0)) {
79267 if (!PyErr_Occurred())
79268 PyErr_SetString(_flapack_error,"failed in converting 5th argument `b' of _flapack.dtpmqrt to C/Fortran array" );
79269 } else {
79270 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
79271
79272 /* Processing variable info */
79273 /* Processing variable m */
79274 m = shape(b,0)b_Dims[0];
79275 /* Processing variable n */
79276 n = shape(b,1)b_Dims[1];
79277 /* Processing variable k */
79278 k = shape(t,1)t_Dims[1];
79279 /* Processing variable l */
79280 f2py_success = int_from_pyobj(&l,l_capi,"_flapack.dtpmqrt() 1st argument (l) can't be converted to int");
79281 if (f2py_success) {
79282 CHECKSCALAR(k>=l&&l>=0,"k>=l&&l>=0","1st argument l","dtpmqrt:l=%d",l)if (!(k>=l&&l>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtpmqrt:l=%d", "(""k>=l&&l>=0"") failed for "
"1st argument l", l); PyErr_SetString(_flapack_error,errstring
); } else
{
79283 /* Processing variable nb */
79284 nb = shape(t,0)t_Dims[0];
79285 CHECKSCALAR(k>=nb&&nb>=1,"k>=nb&&nb>=1","hidden nb","dtpmqrt:nb=%d",nb)if (!(k>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtpmqrt:nb=%d", "(""k>=nb&&nb>=1"") failed for "
"hidden nb", nb); PyErr_SetString(_flapack_error,errstring); }
else
{
79286 /* Processing variable ldt */
79287 ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0]));
79288 /* Processing variable ldb */
79289 ldb = MAX(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
79290 /* Processing variable side */
79291 slen(side)capi_side_len = 1;
79292 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.dtpmqrt to C string");
79293 if (f2py_success) {
79294 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","dtpmqrt:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtpmqrt:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
79295 /* Processing variable trans */
79296 slen(trans)capi_trans_len = 1;
79297 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.dtpmqrt to C string");
79298 if (f2py_success) {
79299 CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","2nd keyword trans","dtpmqrt:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtpmqrt:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'"
") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
79300 /* Processing variable v */
79301 v_Dims[0]=(side[0]=='L'?m:n),v_Dims[1]=k;
79302 capi_v_intent |= F2PY_INTENT_IN1;
79303 capi_v_tmp = array_from_pyobj(NPY_DOUBLE,v_Dims,v_Rank,capi_v_intent,v_capi);
79304 if (capi_v_tmp == NULL((void*)0)) {
79305 if (!PyErr_Occurred())
79306 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `v' of _flapack.dtpmqrt to C/Fortran array" );
79307 } else {
79308 v = (double *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data));
79309
79310 /* Processing variable ldv */
79311 ldv = MAX(1,shape(v,0))((1 > v_Dims[0]) ? (1) : (v_Dims[0]));
79312 /* Processing variable a */
79313 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
79314 a_Dims[0]=(side[0]=='L'?k:m),a_Dims[1]=(side[0]=='L'?n:k);
79315 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
79316 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
79317 if (capi_a_tmp == NULL((void*)0)) {
79318 if (!PyErr_Occurred())
79319 PyErr_SetString(_flapack_error,"failed in converting 4th argument `a' of _flapack.dtpmqrt to C/Fortran array" );
79320 } else {
79321 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
79322
79323 /* Processing variable lda */
79324 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
79325 /* Processing variable work */
79326 work_Dims[0]=(side[0]=='L'?n:m)*nb;
79327 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
79328 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
79329 if (capi_work_tmp == NULL((void*)0)) {
79330 if (!PyErr_Occurred())
79331 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dtpmqrt to C/Fortran array" );
79332 } else {
79333 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
79334
79335/*end of frompyobj*/
79336#ifdef F2PY_REPORT_ATEXIT
79337f2py_start_call_clock();
79338#endif
79339/*callfortranroutine*/
79340 (*f2py_func)(side,trans,&m,&n,&k,&l,&nb,v,&ldv,t,&ldt,a,&lda,b,&ldb,work,&info) ;
79341 /*(*f2py_func)(side,trans,&m,&n,&k,&l,&nb,v,&ldv,t,&ldt,a,&lda,b,&ldb,work,&info,slen(side),slen(trans));*/
79342if (PyErr_Occurred())
79343 f2py_success = 0;
79344#ifdef F2PY_REPORT_ATEXIT
79345f2py_stop_call_clock();
79346#endif
79347/*end of callfortranroutine*/
79348 if (f2py_success) {
79349/*pyobjfrom*/
79350/*end of pyobjfrom*/
79351 CFUNCSMESS("Building return value.\n");
79352 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info);
79353/*closepyobjfrom*/
79354/*end of closepyobjfrom*/
79355 } /*if (f2py_success) after callfortranroutine*/
79356/*cleanupfrompyobj*/
79357 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
79358 } /*if (capi_work_tmp == NULL) ... else of work*/
79359 /* End of cleaning variable work */
79360 /* End of cleaning variable lda */
79361 } /*if (capi_a_tmp == NULL) ... else of a*/
79362 /* End of cleaning variable a */
79363 /* End of cleaning variable ldv */
79364 if((PyObject *)capi_v_tmp!=v_capi) {
79365 Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); }
79366 } /*if (capi_v_tmp == NULL) ... else of v*/
79367 /* End of cleaning variable v */
79368 } /*CHECKSTRING(*trans=='N'||*trans=='T')*/
79369 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
79370 } /*if (f2py_success) of trans*/
79371 /* End of cleaning variable trans */
79372 } /*CHECKSTRING(*side=='L'||*side=='R')*/
79373 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
79374 } /*if (f2py_success) of side*/
79375 /* End of cleaning variable side */
79376 /* End of cleaning variable ldb */
79377 /* End of cleaning variable ldt */
79378 } /*CHECKSCALAR(k>=nb&&nb>=1)*/
79379 /* End of cleaning variable nb */
79380 } /*CHECKSCALAR(k>=l&&l>=0)*/
79381 } /*if (f2py_success) of l*/
79382 /* End of cleaning variable l */
79383 /* End of cleaning variable k */
79384 /* End of cleaning variable n */
79385 /* End of cleaning variable m */
79386 /* End of cleaning variable info */
79387 } /*if (capi_b_tmp == NULL) ... else of b*/
79388 /* End of cleaning variable b */
79389 if((PyObject *)capi_t_tmp!=t_capi) {
79390 Py_XDECREF(capi_t_tmp)_Py_XDECREF(((PyObject*)(capi_t_tmp))); }
79391 } /*if (capi_t_tmp == NULL) ... else of t*/
79392 /* End of cleaning variable t */
79393/*end of cleanupfrompyobj*/
79394 if (capi_buildvalue == NULL((void*)0)) {
79395/*routdebugfailure*/
79396 } else {
79397/*routdebugleave*/
79398 }
79399 CFUNCSMESS("Freeing memory.\n");
79400/*freemem*/
79401#ifdef F2PY_REPORT_ATEXIT
79402f2py_stop_clock();
79403#endif
79404 return capi_buildvalue;
79405}
79406/******************************* end of dtpmqrt *******************************/
79407
79408/********************************** ctpmqrt **********************************/
79409static char doc_f2py_rout__flapack_ctpmqrt[] = "\
79410a,b,info = ctpmqrt(l,v,t,a,b,[side,trans,overwrite_a,overwrite_b])\n\nWrapper for ``ctpmqrt``.\
79411\n\nParameters\n----------\n"
79412"l : input int\n"
79413"v : input rank-2 array('F') with bounds ((side[0]=='L'?m:n),k)\n"
79414"t : input rank-2 array('F') with bounds (nb,k)\n"
79415"a : input rank-2 array('F') with bounds ((side[0]=='L'?k:m),(side[0]=='L'?n:k))\n"
79416"b : input rank-2 array('F') with bounds (m,n)\n"
79417"\nOther Parameters\n----------------\n"
79418"side : input string(len=1), optional\n Default: 'L'\n"
79419"trans : input string(len=1), optional\n Default: 'N'\n"
79420"overwrite_a : input int, optional\n Default: 0\n"
79421"overwrite_b : input int, optional\n Default: 0\n"
79422"\nReturns\n-------\n"
79423"a : rank-2 array('F') with bounds ((side[0]=='L'?k:m),(side[0]=='L'?n:k))\n"
79424"b : rank-2 array('F') with bounds (m,n)\n"
79425"info : int";
79426/* extern void F_FUNC(ctpmqrt,CTPMQRT)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT* ); */
79427static PyObject *f2py_rout__flapack_ctpmqrt(const PyObject *capi_self,
79428 PyObject *capi_args,
79429 PyObject *capi_keywds,
79430 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* )) {
79431 PyObject * volatile capi_buildvalue = NULL((void*)0);
79432 volatile int f2py_success = 1;
79433/*decl*/
79434
79435 string side = NULL((void*)0);
79436 int slen(side)capi_side_len;
79437 PyObject *side_capi = Py_None(&_Py_NoneStruct);
79438 string trans = NULL((void*)0);
79439 int slen(trans)capi_trans_len;
79440 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
79441 int m = 0;
79442 int n = 0;
79443 int k = 0;
79444 int l = 0;
79445 PyObject *l_capi = Py_None(&_Py_NoneStruct);
79446 int nb = 0;
79447 complex_float *v = NULL((void*)0);
79448 npy_intp v_Dims[2] = {-1, -1};
79449 const int v_Rank = 2;
79450 PyArrayObject *capi_v_tmp = NULL((void*)0);
79451 int capi_v_intent = 0;
79452 PyObject *v_capi = Py_None(&_Py_NoneStruct);
79453 int ldv = 0;
79454 complex_float *t = NULL((void*)0);
79455 npy_intp t_Dims[2] = {-1, -1};
79456 const int t_Rank = 2;
79457 PyArrayObject *capi_t_tmp = NULL((void*)0);
79458 int capi_t_intent = 0;
79459 PyObject *t_capi = Py_None(&_Py_NoneStruct);
79460 int ldt = 0;
79461 complex_float *a = NULL((void*)0);
79462 npy_intp a_Dims[2] = {-1, -1};
79463 const int a_Rank = 2;
79464 PyArrayObject *capi_a_tmp = NULL((void*)0);
79465 int capi_a_intent = 0;
79466 int capi_overwrite_a = 0;
79467 PyObject *a_capi = Py_None(&_Py_NoneStruct);
79468 int lda = 0;
79469 complex_float *b = NULL((void*)0);
79470 npy_intp b_Dims[2] = {-1, -1};
79471 const int b_Rank = 2;
79472 PyArrayObject *capi_b_tmp = NULL((void*)0);
79473 int capi_b_intent = 0;
79474 int capi_overwrite_b = 0;
79475 PyObject *b_capi = Py_None(&_Py_NoneStruct);
79476 int ldb = 0;
79477 complex_float *work = NULL((void*)0);
79478 npy_intp work_Dims[1] = {-1};
79479 const int work_Rank = 1;
79480 PyArrayObject *capi_work_tmp = NULL((void*)0);
79481 int capi_work_intent = 0;
79482 int info = 0;
79483 static char *capi_kwlist[] = {"l","v","t","a","b","side","trans","overwrite_a","overwrite_b",NULL((void*)0)};
79484
79485/*routdebugenter*/
79486#ifdef F2PY_REPORT_ATEXIT
79487f2py_start_clock();
79488#endif
79489 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
79490 "OOOOO|OOii:_flapack.ctpmqrt",\
79491 capi_kwlist,&l_capi,&v_capi,&t_capi,&a_capi,&b_capi,&side_capi,&trans_capi,&capi_overwrite_a,&capi_overwrite_b))
79492 return NULL((void*)0);
79493/*frompyobj*/
79494 /* Processing variable t */
79495 ;
79496 capi_t_intent |= F2PY_INTENT_IN1;
79497 capi_t_tmp = array_from_pyobj(NPY_CFLOAT,t_Dims,t_Rank,capi_t_intent,t_capi);
79498 if (capi_t_tmp == NULL((void*)0)) {
79499 if (!PyErr_Occurred())
79500 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `t' of _flapack.ctpmqrt to C/Fortran array" );
79501 } else {
79502 t = (complex_float *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data));
79503
79504 /* Processing variable b */
79505 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
79506 ;
79507 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
79508 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
79509 if (capi_b_tmp == NULL((void*)0)) {
79510 if (!PyErr_Occurred())
79511 PyErr_SetString(_flapack_error,"failed in converting 5th argument `b' of _flapack.ctpmqrt to C/Fortran array" );
79512 } else {
79513 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
79514
79515 /* Processing variable info */
79516 /* Processing variable m */
79517 m = shape(b,0)b_Dims[0];
79518 /* Processing variable n */
79519 n = shape(b,1)b_Dims[1];
79520 /* Processing variable k */
79521 k = shape(t,1)t_Dims[1];
79522 /* Processing variable l */
79523 f2py_success = int_from_pyobj(&l,l_capi,"_flapack.ctpmqrt() 1st argument (l) can't be converted to int");
79524 if (f2py_success) {
79525 CHECKSCALAR(k>=l&&l>=0,"k>=l&&l>=0","1st argument l","ctpmqrt:l=%d",l)if (!(k>=l&&l>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctpmqrt:l=%d", "(""k>=l&&l>=0"") failed for "
"1st argument l", l); PyErr_SetString(_flapack_error,errstring
); } else
{
79526 /* Processing variable nb */
79527 nb = shape(t,0)t_Dims[0];
79528 CHECKSCALAR(k>=nb&&nb>=1,"k>=nb&&nb>=1","hidden nb","ctpmqrt:nb=%d",nb)if (!(k>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctpmqrt:nb=%d", "(""k>=nb&&nb>=1"") failed for "
"hidden nb", nb); PyErr_SetString(_flapack_error,errstring); }
else
{
79529 /* Processing variable ldt */
79530 ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0]));
79531 /* Processing variable ldb */
79532 ldb = MAX(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
79533 /* Processing variable side */
79534 slen(side)capi_side_len = 1;
79535 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.ctpmqrt to C string");
79536 if (f2py_success) {
79537 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","ctpmqrt:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctpmqrt:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
79538 /* Processing variable trans */
79539 slen(trans)capi_trans_len = 1;
79540 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.ctpmqrt to C string");
79541 if (f2py_success) {
79542 CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","2nd keyword trans","ctpmqrt:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctpmqrt:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'"
") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
79543 /* Processing variable v */
79544 v_Dims[0]=(side[0]=='L'?m:n),v_Dims[1]=k;
79545 capi_v_intent |= F2PY_INTENT_IN1;
79546 capi_v_tmp = array_from_pyobj(NPY_CFLOAT,v_Dims,v_Rank,capi_v_intent,v_capi);
79547 if (capi_v_tmp == NULL((void*)0)) {
79548 if (!PyErr_Occurred())
79549 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `v' of _flapack.ctpmqrt to C/Fortran array" );
79550 } else {
79551 v = (complex_float *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data));
79552
79553 /* Processing variable ldv */
79554 ldv = MAX(1,shape(v,0))((1 > v_Dims[0]) ? (1) : (v_Dims[0]));
79555 /* Processing variable a */
79556 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
79557 a_Dims[0]=(side[0]=='L'?k:m),a_Dims[1]=(side[0]=='L'?n:k);
79558 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
79559 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
79560 if (capi_a_tmp == NULL((void*)0)) {
79561 if (!PyErr_Occurred())
79562 PyErr_SetString(_flapack_error,"failed in converting 4th argument `a' of _flapack.ctpmqrt to C/Fortran array" );
79563 } else {
79564 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
79565
79566 /* Processing variable lda */
79567 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
79568 /* Processing variable work */
79569 work_Dims[0]=(side[0]=='L'?n:m)*nb;
79570 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
79571 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
79572 if (capi_work_tmp == NULL((void*)0)) {
79573 if (!PyErr_Occurred())
79574 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ctpmqrt to C/Fortran array" );
79575 } else {
79576 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
79577
79578/*end of frompyobj*/
79579#ifdef F2PY_REPORT_ATEXIT
79580f2py_start_call_clock();
79581#endif
79582/*callfortranroutine*/
79583 (*f2py_func)(side,trans,&m,&n,&k,&l,&nb,v,&ldv,t,&ldt,a,&lda,b,&ldb,work,&info) ;
79584 /*(*f2py_func)(side,trans,&m,&n,&k,&l,&nb,v,&ldv,t,&ldt,a,&lda,b,&ldb,work,&info,slen(side),slen(trans));*/
79585if (PyErr_Occurred())
79586 f2py_success = 0;
79587#ifdef F2PY_REPORT_ATEXIT
79588f2py_stop_call_clock();
79589#endif
79590/*end of callfortranroutine*/
79591 if (f2py_success) {
79592/*pyobjfrom*/
79593/*end of pyobjfrom*/
79594 CFUNCSMESS("Building return value.\n");
79595 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info);
79596/*closepyobjfrom*/
79597/*end of closepyobjfrom*/
79598 } /*if (f2py_success) after callfortranroutine*/
79599/*cleanupfrompyobj*/
79600 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
79601 } /*if (capi_work_tmp == NULL) ... else of work*/
79602 /* End of cleaning variable work */
79603 /* End of cleaning variable lda */
79604 } /*if (capi_a_tmp == NULL) ... else of a*/
79605 /* End of cleaning variable a */
79606 /* End of cleaning variable ldv */
79607 if((PyObject *)capi_v_tmp!=v_capi) {
79608 Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); }
79609 } /*if (capi_v_tmp == NULL) ... else of v*/
79610 /* End of cleaning variable v */
79611 } /*CHECKSTRING(*trans=='N'||*trans=='C')*/
79612 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
79613 } /*if (f2py_success) of trans*/
79614 /* End of cleaning variable trans */
79615 } /*CHECKSTRING(*side=='L'||*side=='R')*/
79616 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
79617 } /*if (f2py_success) of side*/
79618 /* End of cleaning variable side */
79619 /* End of cleaning variable ldb */
79620 /* End of cleaning variable ldt */
79621 } /*CHECKSCALAR(k>=nb&&nb>=1)*/
79622 /* End of cleaning variable nb */
79623 } /*CHECKSCALAR(k>=l&&l>=0)*/
79624 } /*if (f2py_success) of l*/
79625 /* End of cleaning variable l */
79626 /* End of cleaning variable k */
79627 /* End of cleaning variable n */
79628 /* End of cleaning variable m */
79629 /* End of cleaning variable info */
79630 } /*if (capi_b_tmp == NULL) ... else of b*/
79631 /* End of cleaning variable b */
79632 if((PyObject *)capi_t_tmp!=t_capi) {
79633 Py_XDECREF(capi_t_tmp)_Py_XDECREF(((PyObject*)(capi_t_tmp))); }
79634 } /*if (capi_t_tmp == NULL) ... else of t*/
79635 /* End of cleaning variable t */
79636/*end of cleanupfrompyobj*/
79637 if (capi_buildvalue == NULL((void*)0)) {
79638/*routdebugfailure*/
79639 } else {
79640/*routdebugleave*/
79641 }
79642 CFUNCSMESS("Freeing memory.\n");
79643/*freemem*/
79644#ifdef F2PY_REPORT_ATEXIT
79645f2py_stop_clock();
79646#endif
79647 return capi_buildvalue;
79648}
79649/******************************* end of ctpmqrt *******************************/
79650
79651/********************************** ztpmqrt **********************************/
79652static char doc_f2py_rout__flapack_ztpmqrt[] = "\
79653a,b,info = ztpmqrt(l,v,t,a,b,[side,trans,overwrite_a,overwrite_b])\n\nWrapper for ``ztpmqrt``.\
79654\n\nParameters\n----------\n"
79655"l : input int\n"
79656"v : input rank-2 array('D') with bounds ((side[0]=='L'?m:n),k)\n"
79657"t : input rank-2 array('D') with bounds (nb,k)\n"
79658"a : input rank-2 array('D') with bounds ((side[0]=='L'?k:m),(side[0]=='L'?n:k))\n"
79659"b : input rank-2 array('D') with bounds (m,n)\n"
79660"\nOther Parameters\n----------------\n"
79661"side : input string(len=1), optional\n Default: 'L'\n"
79662"trans : input string(len=1), optional\n Default: 'N'\n"
79663"overwrite_a : input int, optional\n Default: 0\n"
79664"overwrite_b : input int, optional\n Default: 0\n"
79665"\nReturns\n-------\n"
79666"a : rank-2 array('D') with bounds ((side[0]=='L'?k:m),(side[0]=='L'?n:k))\n"
79667"b : rank-2 array('D') with bounds (m,n)\n"
79668"info : int";
79669/* extern void F_FUNC(ztpmqrt,ZTPMQRT)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT* ); */
79670static PyObject *f2py_rout__flapack_ztpmqrt(const PyObject *capi_self,
79671 PyObject *capi_args,
79672 PyObject *capi_keywds,
79673 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* )) {
79674 PyObject * volatile capi_buildvalue = NULL((void*)0);
79675 volatile int f2py_success = 1;
79676/*decl*/
79677
79678 string side = NULL((void*)0);
79679 int slen(side)capi_side_len;
79680 PyObject *side_capi = Py_None(&_Py_NoneStruct);
79681 string trans = NULL((void*)0);
79682 int slen(trans)capi_trans_len;
79683 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
79684 int m = 0;
79685 int n = 0;
79686 int k = 0;
79687 int l = 0;
79688 PyObject *l_capi = Py_None(&_Py_NoneStruct);
79689 int nb = 0;
79690 complex_double *v = NULL((void*)0);
79691 npy_intp v_Dims[2] = {-1, -1};
79692 const int v_Rank = 2;
79693 PyArrayObject *capi_v_tmp = NULL((void*)0);
79694 int capi_v_intent = 0;
79695 PyObject *v_capi = Py_None(&_Py_NoneStruct);
79696 int ldv = 0;
79697 complex_double *t = NULL((void*)0);
79698 npy_intp t_Dims[2] = {-1, -1};
79699 const int t_Rank = 2;
79700 PyArrayObject *capi_t_tmp = NULL((void*)0);
79701 int capi_t_intent = 0;
79702 PyObject *t_capi = Py_None(&_Py_NoneStruct);
79703 int ldt = 0;
79704 complex_double *a = NULL((void*)0);
79705 npy_intp a_Dims[2] = {-1, -1};
79706 const int a_Rank = 2;
79707 PyArrayObject *capi_a_tmp = NULL((void*)0);
79708 int capi_a_intent = 0;
79709 int capi_overwrite_a = 0;
79710 PyObject *a_capi = Py_None(&_Py_NoneStruct);
79711 int lda = 0;
79712 complex_double *b = NULL((void*)0);
79713 npy_intp b_Dims[2] = {-1, -1};
79714 const int b_Rank = 2;
79715 PyArrayObject *capi_b_tmp = NULL((void*)0);
79716 int capi_b_intent = 0;
79717 int capi_overwrite_b = 0;
79718 PyObject *b_capi = Py_None(&_Py_NoneStruct);
79719 int ldb = 0;
79720 complex_double *work = NULL((void*)0);
79721 npy_intp work_Dims[1] = {-1};
79722 const int work_Rank = 1;
79723 PyArrayObject *capi_work_tmp = NULL((void*)0);
79724 int capi_work_intent = 0;
79725 int info = 0;
79726 static char *capi_kwlist[] = {"l","v","t","a","b","side","trans","overwrite_a","overwrite_b",NULL((void*)0)};
79727
79728/*routdebugenter*/
79729#ifdef F2PY_REPORT_ATEXIT
79730f2py_start_clock();
79731#endif
79732 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
79733 "OOOOO|OOii:_flapack.ztpmqrt",\
79734 capi_kwlist,&l_capi,&v_capi,&t_capi,&a_capi,&b_capi,&side_capi,&trans_capi,&capi_overwrite_a,&capi_overwrite_b))
79735 return NULL((void*)0);
79736/*frompyobj*/
79737 /* Processing variable t */
79738 ;
79739 capi_t_intent |= F2PY_INTENT_IN1;
79740 capi_t_tmp = array_from_pyobj(NPY_CDOUBLE,t_Dims,t_Rank,capi_t_intent,t_capi);
79741 if (capi_t_tmp == NULL((void*)0)) {
79742 if (!PyErr_Occurred())
79743 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `t' of _flapack.ztpmqrt to C/Fortran array" );
79744 } else {
79745 t = (complex_double *)(PyArray_DATA(capi_t_tmp)((void *)((PyArrayObject_fields *)(capi_t_tmp))->data));
79746
79747 /* Processing variable b */
79748 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
79749 ;
79750 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
79751 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
79752 if (capi_b_tmp == NULL((void*)0)) {
79753 if (!PyErr_Occurred())
79754 PyErr_SetString(_flapack_error,"failed in converting 5th argument `b' of _flapack.ztpmqrt to C/Fortran array" );
79755 } else {
79756 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
79757
79758 /* Processing variable info */
79759 /* Processing variable m */
79760 m = shape(b,0)b_Dims[0];
79761 /* Processing variable n */
79762 n = shape(b,1)b_Dims[1];
79763 /* Processing variable k */
79764 k = shape(t,1)t_Dims[1];
79765 /* Processing variable l */
79766 f2py_success = int_from_pyobj(&l,l_capi,"_flapack.ztpmqrt() 1st argument (l) can't be converted to int");
79767 if (f2py_success) {
79768 CHECKSCALAR(k>=l&&l>=0,"k>=l&&l>=0","1st argument l","ztpmqrt:l=%d",l)if (!(k>=l&&l>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztpmqrt:l=%d", "(""k>=l&&l>=0"") failed for "
"1st argument l", l); PyErr_SetString(_flapack_error,errstring
); } else
{
79769 /* Processing variable nb */
79770 nb = shape(t,0)t_Dims[0];
79771 CHECKSCALAR(k>=nb&&nb>=1,"k>=nb&&nb>=1","hidden nb","ztpmqrt:nb=%d",nb)if (!(k>=nb&&nb>=1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztpmqrt:nb=%d", "(""k>=nb&&nb>=1"") failed for "
"hidden nb", nb); PyErr_SetString(_flapack_error,errstring); }
else
{
79772 /* Processing variable ldt */
79773 ldt = MAX(1,shape(t,0))((1 > t_Dims[0]) ? (1) : (t_Dims[0]));
79774 /* Processing variable ldb */
79775 ldb = MAX(1,shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
79776 /* Processing variable side */
79777 slen(side)capi_side_len = 1;
79778 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.ztpmqrt to C string");
79779 if (f2py_success) {
79780 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","ztpmqrt:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztpmqrt:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
79781 /* Processing variable trans */
79782 slen(trans)capi_trans_len = 1;
79783 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.ztpmqrt to C string");
79784 if (f2py_success) {
79785 CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","2nd keyword trans","ztpmqrt:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztpmqrt:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'"
") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
79786 /* Processing variable v */
79787 v_Dims[0]=(side[0]=='L'?m:n),v_Dims[1]=k;
79788 capi_v_intent |= F2PY_INTENT_IN1;
79789 capi_v_tmp = array_from_pyobj(NPY_CDOUBLE,v_Dims,v_Rank,capi_v_intent,v_capi);
79790 if (capi_v_tmp == NULL((void*)0)) {
79791 if (!PyErr_Occurred())
79792 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `v' of _flapack.ztpmqrt to C/Fortran array" );
79793 } else {
79794 v = (complex_double *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data));
79795
79796 /* Processing variable ldv */
79797 ldv = MAX(1,shape(v,0))((1 > v_Dims[0]) ? (1) : (v_Dims[0]));
79798 /* Processing variable a */
79799 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
79800 a_Dims[0]=(side[0]=='L'?k:m),a_Dims[1]=(side[0]=='L'?n:k);
79801 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
79802 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
79803 if (capi_a_tmp == NULL((void*)0)) {
79804 if (!PyErr_Occurred())
79805 PyErr_SetString(_flapack_error,"failed in converting 4th argument `a' of _flapack.ztpmqrt to C/Fortran array" );
79806 } else {
79807 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
79808
79809 /* Processing variable lda */
79810 lda = MAX(1,shape(a,0))((1 > a_Dims[0]) ? (1) : (a_Dims[0]));
79811 /* Processing variable work */
79812 work_Dims[0]=(side[0]=='L'?n:m)*nb;
79813 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
79814 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
79815 if (capi_work_tmp == NULL((void*)0)) {
79816 if (!PyErr_Occurred())
79817 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ztpmqrt to C/Fortran array" );
79818 } else {
79819 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
79820
79821/*end of frompyobj*/
79822#ifdef F2PY_REPORT_ATEXIT
79823f2py_start_call_clock();
79824#endif
79825/*callfortranroutine*/
79826 (*f2py_func)(side,trans,&m,&n,&k,&l,&nb,v,&ldv,t,&ldt,a,&lda,b,&ldb,work,&info) ;
79827 /*(*f2py_func)(side,trans,&m,&n,&k,&l,&nb,v,&ldv,t,&ldt,a,&lda,b,&ldb,work,&info,slen(side),slen(trans));*/
79828if (PyErr_Occurred())
79829 f2py_success = 0;
79830#ifdef F2PY_REPORT_ATEXIT
79831f2py_stop_call_clock();
79832#endif
79833/*end of callfortranroutine*/
79834 if (f2py_success) {
79835/*pyobjfrom*/
79836/*end of pyobjfrom*/
79837 CFUNCSMESS("Building return value.\n");
79838 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_b_tmp,info);
79839/*closepyobjfrom*/
79840/*end of closepyobjfrom*/
79841 } /*if (f2py_success) after callfortranroutine*/
79842/*cleanupfrompyobj*/
79843 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
79844 } /*if (capi_work_tmp == NULL) ... else of work*/
79845 /* End of cleaning variable work */
79846 /* End of cleaning variable lda */
79847 } /*if (capi_a_tmp == NULL) ... else of a*/
79848 /* End of cleaning variable a */
79849 /* End of cleaning variable ldv */
79850 if((PyObject *)capi_v_tmp!=v_capi) {
79851 Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); }
79852 } /*if (capi_v_tmp == NULL) ... else of v*/
79853 /* End of cleaning variable v */
79854 } /*CHECKSTRING(*trans=='N'||*trans=='C')*/
79855 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
79856 } /*if (f2py_success) of trans*/
79857 /* End of cleaning variable trans */
79858 } /*CHECKSTRING(*side=='L'||*side=='R')*/
79859 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
79860 } /*if (f2py_success) of side*/
79861 /* End of cleaning variable side */
79862 /* End of cleaning variable ldb */
79863 /* End of cleaning variable ldt */
79864 } /*CHECKSCALAR(k>=nb&&nb>=1)*/
79865 /* End of cleaning variable nb */
79866 } /*CHECKSCALAR(k>=l&&l>=0)*/
79867 } /*if (f2py_success) of l*/
79868 /* End of cleaning variable l */
79869 /* End of cleaning variable k */
79870 /* End of cleaning variable n */
79871 /* End of cleaning variable m */
79872 /* End of cleaning variable info */
79873 } /*if (capi_b_tmp == NULL) ... else of b*/
79874 /* End of cleaning variable b */
79875 if((PyObject *)capi_t_tmp!=t_capi) {
79876 Py_XDECREF(capi_t_tmp)_Py_XDECREF(((PyObject*)(capi_t_tmp))); }
79877 } /*if (capi_t_tmp == NULL) ... else of t*/
79878 /* End of cleaning variable t */
79879/*end of cleanupfrompyobj*/
79880 if (capi_buildvalue == NULL((void*)0)) {
79881/*routdebugfailure*/
79882 } else {
79883/*routdebugleave*/
79884 }
79885 CFUNCSMESS("Freeing memory.\n");
79886/*freemem*/
79887#ifdef F2PY_REPORT_ATEXIT
79888f2py_stop_clock();
79889#endif
79890 return capi_buildvalue;
79891}
79892/******************************* end of ztpmqrt *******************************/
79893
79894/*********************************** sormrz ***********************************/
79895static char doc_f2py_rout__flapack_sormrz[] = "\
79896cq,info = sormrz(a,tau,c,[side,trans,lwork,overwrite_c])\n\nWrapper for ``sormrz``.\
79897\n\nParameters\n----------\n"
79898"a : input rank-2 array('f') with bounds (k,nt)\n"
79899"tau : input rank-1 array('f') with bounds (k)\n"
79900"c : input rank-2 array('f') with bounds (m,n)\n"
79901"\nOther Parameters\n----------------\n"
79902"side : input string(len=1), optional\n Default: 'L'\n"
79903"trans : input string(len=1), optional\n Default: 'N'\n"
79904"overwrite_c : input int, optional\n Default: 0\n"
79905"lwork : input int, optional\n Default: MAX((side[0]=='L'?n:m),1)\n"
79906"\nReturns\n-------\n"
79907"cq : rank-2 array('f') with bounds (m,n) and c storage\n"
79908"info : int";
79909/* extern void F_FUNC(sormrz,SORMRZ)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT* ); */
79910static PyObject *f2py_rout__flapack_sormrz(const PyObject *capi_self,
79911 PyObject *capi_args,
79912 PyObject *capi_keywds,
79913 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
79914 PyObject * volatile capi_buildvalue = NULL((void*)0);
79915 volatile int f2py_success = 1;
79916/*decl*/
79917
79918 string side = NULL((void*)0);
79919 int slen(side)capi_side_len;
79920 PyObject *side_capi = Py_None(&_Py_NoneStruct);
79921 string trans = NULL((void*)0);
79922 int slen(trans)capi_trans_len;
79923 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
79924 int m = 0;
79925 int n = 0;
79926 int k = 0;
79927 int l = 0;
79928 float *a = NULL((void*)0);
79929 npy_intp a_Dims[2] = {-1, -1};
79930 const int a_Rank = 2;
79931 PyArrayObject *capi_a_tmp = NULL((void*)0);
79932 int capi_a_intent = 0;
79933 PyObject *a_capi = Py_None(&_Py_NoneStruct);
79934 int lda = 0;
79935 int nt = 0;
79936 float *tau = NULL((void*)0);
79937 npy_intp tau_Dims[1] = {-1};
79938 const int tau_Rank = 1;
79939 PyArrayObject *capi_tau_tmp = NULL((void*)0);
79940 int capi_tau_intent = 0;
79941 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
79942 float *c = NULL((void*)0);
79943 npy_intp c_Dims[2] = {-1, -1};
79944 const int c_Rank = 2;
79945 PyArrayObject *capi_c_tmp = NULL((void*)0);
79946 int capi_c_intent = 0;
79947 int capi_overwrite_c = 0;
79948 PyObject *c_capi = Py_None(&_Py_NoneStruct);
79949 int ldc = 0;
79950 float *work = NULL((void*)0);
79951 npy_intp work_Dims[1] = {-1};
79952 const int work_Rank = 1;
79953 PyArrayObject *capi_work_tmp = NULL((void*)0);
79954 int capi_work_intent = 0;
79955 int lwork = 0;
79956 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
79957 int info = 0;
79958 static char *capi_kwlist[] = {"a","tau","c","side","trans","lwork","overwrite_c",NULL((void*)0)};
79959
79960/*routdebugenter*/
79961#ifdef F2PY_REPORT_ATEXIT
79962f2py_start_clock();
79963#endif
79964 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
79965 "OOO|OOOi:_flapack.sormrz",\
79966 capi_kwlist,&a_capi,&tau_capi,&c_capi,&side_capi,&trans_capi,&lwork_capi,&capi_overwrite_c))
79967 return NULL((void*)0);
79968/*frompyobj*/
79969 /* Processing variable a */
79970 ;
79971 capi_a_intent |= F2PY_INTENT_IN1;
79972 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
79973 if (capi_a_tmp == NULL((void*)0)) {
79974 if (!PyErr_Occurred())
79975 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sormrz to C/Fortran array" );
79976 } else {
79977 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
79978
79979 CHECKARRAY(shape(a,1)>=shape(a,0),"shape(a,1)>=shape(a,0)","1st argument a")if (!(a_Dims[1]>=a_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(a,1)>=shape(a,0)"") failed for ""1st argument a"
); } else
{
79980 /* Processing variable c */
79981 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
79982 ;
79983 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
79984 capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
79985 if (capi_c_tmp == NULL((void*)0)) {
79986 if (!PyErr_Occurred())
79987 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.sormrz to C/Fortran array" );
79988 } else {
79989 c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
79990
79991 /* Processing variable info */
79992 /* Processing variable m */
79993 m = shape(c,0)c_Dims[0];
79994 CHECKSCALAR(m>=0,"m>=0","hidden m","sormrz:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sormrz:m=%d", "(""m>=0"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
79995 /* Processing variable n */
79996 n = shape(c,1)c_Dims[1];
79997 CHECKSCALAR(n>=0,"n>=0","hidden n","sormrz:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sormrz:n=%d", "(""n>=0"") failed for ""hidden n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
79998 /* Processing variable k */
79999 k = shape(a,0)a_Dims[0];
80000 /* Processing variable l */
80001 l = shape(a,1)a_Dims[1]-shape(a,0)a_Dims[0];
80002 /* Processing variable lda */
80003 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
80004 /* Processing variable tau */
80005 tau_Dims[0]=k;
80006 capi_tau_intent |= F2PY_INTENT_IN1;
80007 capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,tau_capi);
80008 if (capi_tau_tmp == NULL((void*)0)) {
80009 if (!PyErr_Occurred())
80010 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.sormrz to C/Fortran array" );
80011 } else {
80012 tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
80013
80014 CHECKARRAY(rank(tau)==1,"rank(tau)==1","2nd argument tau")if (!(tau_Rank==1)) { PyErr_SetString(_flapack_error,"(""rank(tau)==1"
") failed for ""2nd argument tau"); } else
{
80015 /* Processing variable ldc */
80016 ldc = MAX(shape(c,0),1)((c_Dims[0] > 1) ? (c_Dims[0]) : (1));
80017 /* Processing variable side */
80018 slen(side)capi_side_len = 1;
80019 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.sormrz to C string");
80020 if (f2py_success) {
80021 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","sormrz:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sormrz:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
80022 /* Processing variable trans */
80023 slen(trans)capi_trans_len = 1;
80024 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.sormrz to C string");
80025 if (f2py_success) {
80026 CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","2nd keyword trans","sormrz:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sormrz:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'"
") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
80027 /* Processing variable nt */
80028 nt = shape(a,1)a_Dims[1];
80029 CHECKSCALAR((*side=='L'?m:n)==nt,"(*side=='L'?m:n)==nt","hidden nt","sormrz:nt=%d",nt)if (!((*side=='L'?m:n)==nt)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sormrz:nt=%d", "(""(*side=='L'?m:n)==nt"") failed for "
"hidden nt", nt); PyErr_SetString(_flapack_error,errstring); }
else
{
80030 /* Processing variable lwork */
80031 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX((side[0]=='L'?n:m),1)(((side[0]=='L'?n:m) > 1) ? ((side[0]=='L'?n:m)) : (1)); else
80032 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sormrz() 3rd keyword (lwork) can't be converted to int");
80033 if (f2py_success) {
80034 CHECKSCALAR(lwork>=(*side=='L'?n:m)||lwork==-1,"lwork>=(*side=='L'?n:m)||lwork==-1","3rd keyword lwork","sormrz:lwork=%d",lwork)if (!(lwork>=(*side=='L'?n:m)||lwork==-1)) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""sormrz:lwork=%d", "(""lwork>=(*side=='L'?n:m)||lwork==-1"
") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
80035 /* Processing variable work */
80036 work_Dims[0]=lwork;
80037 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
80038 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
80039 if (capi_work_tmp == NULL((void*)0)) {
80040 if (!PyErr_Occurred())
80041 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sormrz to C/Fortran array" );
80042 } else {
80043 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
80044
80045/*end of frompyobj*/
80046#ifdef F2PY_REPORT_ATEXIT
80047f2py_start_call_clock();
80048#endif
80049/*callfortranroutine*/
80050 (*f2py_func)(side,trans,&m,&n,&k,&l,a,&lda,tau,c,&ldc,work,&lwork,&info) ;
80051 /*(*f2py_func)(side,trans,&m,&n,&k,&l,a,&lda,&nt,tau,c,&ldc,work,&lwork,&info,slen(side),slen(trans));*/
80052if (PyErr_Occurred())
80053 f2py_success = 0;
80054#ifdef F2PY_REPORT_ATEXIT
80055f2py_stop_call_clock();
80056#endif
80057/*end of callfortranroutine*/
80058 if (f2py_success) {
80059/*pyobjfrom*/
80060/*end of pyobjfrom*/
80061 CFUNCSMESS("Building return value.\n");
80062 capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info);
80063/*closepyobjfrom*/
80064/*end of closepyobjfrom*/
80065 } /*if (f2py_success) after callfortranroutine*/
80066/*cleanupfrompyobj*/
80067 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
80068 } /*if (capi_work_tmp == NULL) ... else of work*/
80069 /* End of cleaning variable work */
80070 } /*CHECKSCALAR(lwork>=(*side=='L'?n:m)||lwork==-1)*/
80071 } /*if (f2py_success) of lwork*/
80072 /* End of cleaning variable lwork */
80073 } /*CHECKSCALAR((*side=='L'?m:n)==nt)*/
80074 /* End of cleaning variable nt */
80075 } /*CHECKSTRING(*trans=='N'||*trans=='T')*/
80076 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
80077 } /*if (f2py_success) of trans*/
80078 /* End of cleaning variable trans */
80079 } /*CHECKSTRING(*side=='L'||*side=='R')*/
80080 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
80081 } /*if (f2py_success) of side*/
80082 /* End of cleaning variable side */
80083 /* End of cleaning variable ldc */
80084 } /*CHECKARRAY(rank(tau)==1)*/
80085 if((PyObject *)capi_tau_tmp!=tau_capi) {
80086 Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); }
80087 } /*if (capi_tau_tmp == NULL) ... else of tau*/
80088 /* End of cleaning variable tau */
80089 /* End of cleaning variable lda */
80090 /* End of cleaning variable l */
80091 /* End of cleaning variable k */
80092 } /*CHECKSCALAR(n>=0)*/
80093 /* End of cleaning variable n */
80094 } /*CHECKSCALAR(m>=0)*/
80095 /* End of cleaning variable m */
80096 /* End of cleaning variable info */
80097 } /*if (capi_c_tmp == NULL) ... else of c*/
80098 /* End of cleaning variable c */
80099 } /*CHECKARRAY(shape(a,1)>=shape(a,0))*/
80100 if((PyObject *)capi_a_tmp!=a_capi) {
80101 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
80102 } /*if (capi_a_tmp == NULL) ... else of a*/
80103 /* End of cleaning variable a */
80104/*end of cleanupfrompyobj*/
80105 if (capi_buildvalue == NULL((void*)0)) {
80106/*routdebugfailure*/
80107 } else {
80108/*routdebugleave*/
80109 }
80110 CFUNCSMESS("Freeing memory.\n");
80111/*freemem*/
80112#ifdef F2PY_REPORT_ATEXIT
80113f2py_stop_clock();
80114#endif
80115 return capi_buildvalue;
80116}
80117/******************************* end of sormrz *******************************/
80118
80119/*********************************** dormrz ***********************************/
80120static char doc_f2py_rout__flapack_dormrz[] = "\
80121cq,info = dormrz(a,tau,c,[side,trans,lwork,overwrite_c])\n\nWrapper for ``dormrz``.\
80122\n\nParameters\n----------\n"
80123"a : input rank-2 array('d') with bounds (k,nt)\n"
80124"tau : input rank-1 array('d') with bounds (k)\n"
80125"c : input rank-2 array('d') with bounds (m,n)\n"
80126"\nOther Parameters\n----------------\n"
80127"side : input string(len=1), optional\n Default: 'L'\n"
80128"trans : input string(len=1), optional\n Default: 'N'\n"
80129"overwrite_c : input int, optional\n Default: 0\n"
80130"lwork : input int, optional\n Default: MAX((side[0]=='L'?n:m),1)\n"
80131"\nReturns\n-------\n"
80132"cq : rank-2 array('d') with bounds (m,n) and c storage\n"
80133"info : int";
80134/* extern void F_FUNC(dormrz,DORMRZ)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT* ); */
80135static PyObject *f2py_rout__flapack_dormrz(const PyObject *capi_self,
80136 PyObject *capi_args,
80137 PyObject *capi_keywds,
80138 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
80139 PyObject * volatile capi_buildvalue = NULL((void*)0);
80140 volatile int f2py_success = 1;
80141/*decl*/
80142
80143 string side = NULL((void*)0);
80144 int slen(side)capi_side_len;
80145 PyObject *side_capi = Py_None(&_Py_NoneStruct);
80146 string trans = NULL((void*)0);
80147 int slen(trans)capi_trans_len;
80148 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
80149 int m = 0;
80150 int n = 0;
80151 int k = 0;
80152 int l = 0;
80153 double *a = NULL((void*)0);
80154 npy_intp a_Dims[2] = {-1, -1};
80155 const int a_Rank = 2;
80156 PyArrayObject *capi_a_tmp = NULL((void*)0);
80157 int capi_a_intent = 0;
80158 PyObject *a_capi = Py_None(&_Py_NoneStruct);
80159 int lda = 0;
80160 int nt = 0;
80161 double *tau = NULL((void*)0);
80162 npy_intp tau_Dims[1] = {-1};
80163 const int tau_Rank = 1;
80164 PyArrayObject *capi_tau_tmp = NULL((void*)0);
80165 int capi_tau_intent = 0;
80166 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
80167 double *c = NULL((void*)0);
80168 npy_intp c_Dims[2] = {-1, -1};
80169 const int c_Rank = 2;
80170 PyArrayObject *capi_c_tmp = NULL((void*)0);
80171 int capi_c_intent = 0;
80172 int capi_overwrite_c = 0;
80173 PyObject *c_capi = Py_None(&_Py_NoneStruct);
80174 int ldc = 0;
80175 double *work = NULL((void*)0);
80176 npy_intp work_Dims[1] = {-1};
80177 const int work_Rank = 1;
80178 PyArrayObject *capi_work_tmp = NULL((void*)0);
80179 int capi_work_intent = 0;
80180 int lwork = 0;
80181 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
80182 int info = 0;
80183 static char *capi_kwlist[] = {"a","tau","c","side","trans","lwork","overwrite_c",NULL((void*)0)};
80184
80185/*routdebugenter*/
80186#ifdef F2PY_REPORT_ATEXIT
80187f2py_start_clock();
80188#endif
80189 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
80190 "OOO|OOOi:_flapack.dormrz",\
80191 capi_kwlist,&a_capi,&tau_capi,&c_capi,&side_capi,&trans_capi,&lwork_capi,&capi_overwrite_c))
80192 return NULL((void*)0);
80193/*frompyobj*/
80194 /* Processing variable a */
80195 ;
80196 capi_a_intent |= F2PY_INTENT_IN1;
80197 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
80198 if (capi_a_tmp == NULL((void*)0)) {
80199 if (!PyErr_Occurred())
80200 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dormrz to C/Fortran array" );
80201 } else {
80202 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
80203
80204 CHECKARRAY(shape(a,1)>=shape(a,0),"shape(a,1)>=shape(a,0)","1st argument a")if (!(a_Dims[1]>=a_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(a,1)>=shape(a,0)"") failed for ""1st argument a"
); } else
{
80205 /* Processing variable c */
80206 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
80207 ;
80208 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
80209 capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
80210 if (capi_c_tmp == NULL((void*)0)) {
80211 if (!PyErr_Occurred())
80212 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.dormrz to C/Fortran array" );
80213 } else {
80214 c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
80215
80216 /* Processing variable info */
80217 /* Processing variable m */
80218 m = shape(c,0)c_Dims[0];
80219 CHECKSCALAR(m>=0,"m>=0","hidden m","dormrz:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dormrz:m=%d", "(""m>=0"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
80220 /* Processing variable n */
80221 n = shape(c,1)c_Dims[1];
80222 CHECKSCALAR(n>=0,"n>=0","hidden n","dormrz:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dormrz:n=%d", "(""n>=0"") failed for ""hidden n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
80223 /* Processing variable k */
80224 k = shape(a,0)a_Dims[0];
80225 /* Processing variable l */
80226 l = shape(a,1)a_Dims[1]-shape(a,0)a_Dims[0];
80227 /* Processing variable lda */
80228 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
80229 /* Processing variable tau */
80230 tau_Dims[0]=k;
80231 capi_tau_intent |= F2PY_INTENT_IN1;
80232 capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,tau_capi);
80233 if (capi_tau_tmp == NULL((void*)0)) {
80234 if (!PyErr_Occurred())
80235 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.dormrz to C/Fortran array" );
80236 } else {
80237 tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
80238
80239 CHECKARRAY(rank(tau)==1,"rank(tau)==1","2nd argument tau")if (!(tau_Rank==1)) { PyErr_SetString(_flapack_error,"(""rank(tau)==1"
") failed for ""2nd argument tau"); } else
{
80240 /* Processing variable ldc */
80241 ldc = MAX(shape(c,0),1)((c_Dims[0] > 1) ? (c_Dims[0]) : (1));
80242 /* Processing variable side */
80243 slen(side)capi_side_len = 1;
80244 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.dormrz to C string");
80245 if (f2py_success) {
80246 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","dormrz:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dormrz:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
80247 /* Processing variable trans */
80248 slen(trans)capi_trans_len = 1;
80249 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.dormrz to C string");
80250 if (f2py_success) {
80251 CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","2nd keyword trans","dormrz:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dormrz:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'"
") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
80252 /* Processing variable nt */
80253 nt = shape(a,1)a_Dims[1];
80254 CHECKSCALAR((*side=='L'?m:n)==nt,"(*side=='L'?m:n)==nt","hidden nt","dormrz:nt=%d",nt)if (!((*side=='L'?m:n)==nt)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dormrz:nt=%d", "(""(*side=='L'?m:n)==nt"") failed for "
"hidden nt", nt); PyErr_SetString(_flapack_error,errstring); }
else
{
80255 /* Processing variable lwork */
80256 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX((side[0]=='L'?n:m),1)(((side[0]=='L'?n:m) > 1) ? ((side[0]=='L'?n:m)) : (1)); else
80257 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dormrz() 3rd keyword (lwork) can't be converted to int");
80258 if (f2py_success) {
80259 CHECKSCALAR(lwork>=(*side=='L'?n:m)||lwork==-1,"lwork>=(*side=='L'?n:m)||lwork==-1","3rd keyword lwork","dormrz:lwork=%d",lwork)if (!(lwork>=(*side=='L'?n:m)||lwork==-1)) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dormrz:lwork=%d", "(""lwork>=(*side=='L'?n:m)||lwork==-1"
") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
80260 /* Processing variable work */
80261 work_Dims[0]=lwork;
80262 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
80263 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
80264 if (capi_work_tmp == NULL((void*)0)) {
80265 if (!PyErr_Occurred())
80266 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dormrz to C/Fortran array" );
80267 } else {
80268 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
80269
80270/*end of frompyobj*/
80271#ifdef F2PY_REPORT_ATEXIT
80272f2py_start_call_clock();
80273#endif
80274/*callfortranroutine*/
80275 (*f2py_func)(side,trans,&m,&n,&k,&l,a,&lda,tau,c,&ldc,work,&lwork,&info) ;
80276 /*(*f2py_func)(side,trans,&m,&n,&k,&l,a,&lda,&nt,tau,c,&ldc,work,&lwork,&info,slen(side),slen(trans));*/
80277if (PyErr_Occurred())
80278 f2py_success = 0;
80279#ifdef F2PY_REPORT_ATEXIT
80280f2py_stop_call_clock();
80281#endif
80282/*end of callfortranroutine*/
80283 if (f2py_success) {
80284/*pyobjfrom*/
80285/*end of pyobjfrom*/
80286 CFUNCSMESS("Building return value.\n");
80287 capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info);
80288/*closepyobjfrom*/
80289/*end of closepyobjfrom*/
80290 } /*if (f2py_success) after callfortranroutine*/
80291/*cleanupfrompyobj*/
80292 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
80293 } /*if (capi_work_tmp == NULL) ... else of work*/
80294 /* End of cleaning variable work */
80295 } /*CHECKSCALAR(lwork>=(*side=='L'?n:m)||lwork==-1)*/
80296 } /*if (f2py_success) of lwork*/
80297 /* End of cleaning variable lwork */
80298 } /*CHECKSCALAR((*side=='L'?m:n)==nt)*/
80299 /* End of cleaning variable nt */
80300 } /*CHECKSTRING(*trans=='N'||*trans=='T')*/
80301 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
80302 } /*if (f2py_success) of trans*/
80303 /* End of cleaning variable trans */
80304 } /*CHECKSTRING(*side=='L'||*side=='R')*/
80305 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
80306 } /*if (f2py_success) of side*/
80307 /* End of cleaning variable side */
80308 /* End of cleaning variable ldc */
80309 } /*CHECKARRAY(rank(tau)==1)*/
80310 if((PyObject *)capi_tau_tmp!=tau_capi) {
80311 Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); }
80312 } /*if (capi_tau_tmp == NULL) ... else of tau*/
80313 /* End of cleaning variable tau */
80314 /* End of cleaning variable lda */
80315 /* End of cleaning variable l */
80316 /* End of cleaning variable k */
80317 } /*CHECKSCALAR(n>=0)*/
80318 /* End of cleaning variable n */
80319 } /*CHECKSCALAR(m>=0)*/
80320 /* End of cleaning variable m */
80321 /* End of cleaning variable info */
80322 } /*if (capi_c_tmp == NULL) ... else of c*/
80323 /* End of cleaning variable c */
80324 } /*CHECKARRAY(shape(a,1)>=shape(a,0))*/
80325 if((PyObject *)capi_a_tmp!=a_capi) {
80326 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
80327 } /*if (capi_a_tmp == NULL) ... else of a*/
80328 /* End of cleaning variable a */
80329/*end of cleanupfrompyobj*/
80330 if (capi_buildvalue == NULL((void*)0)) {
80331/*routdebugfailure*/
80332 } else {
80333/*routdebugleave*/
80334 }
80335 CFUNCSMESS("Freeing memory.\n");
80336/*freemem*/
80337#ifdef F2PY_REPORT_ATEXIT
80338f2py_stop_clock();
80339#endif
80340 return capi_buildvalue;
80341}
80342/******************************* end of dormrz *******************************/
80343
80344/*********************************** cunmrz ***********************************/
80345static char doc_f2py_rout__flapack_cunmrz[] = "\
80346cq,info = cunmrz(a,tau,c,[side,trans,lwork,overwrite_c])\n\nWrapper for ``cunmrz``.\
80347\n\nParameters\n----------\n"
80348"a : input rank-2 array('F') with bounds (k,nt)\n"
80349"tau : input rank-1 array('F') with bounds (k)\n"
80350"c : input rank-2 array('F') with bounds (m,n)\n"
80351"\nOther Parameters\n----------------\n"
80352"side : input string(len=1), optional\n Default: 'L'\n"
80353"trans : input string(len=1), optional\n Default: 'N'\n"
80354"overwrite_c : input int, optional\n Default: 0\n"
80355"lwork : input int, optional\n Default: MAX((side[0]=='L'?n:m),1)\n"
80356"\nReturns\n-------\n"
80357"cq : rank-2 array('F') with bounds (m,n) and c storage\n"
80358"info : int";
80359/* extern void F_FUNC(cunmrz,CUNMRZ)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */
80360static PyObject *f2py_rout__flapack_cunmrz(const PyObject *capi_self,
80361 PyObject *capi_args,
80362 PyObject *capi_keywds,
80363 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
80364 PyObject * volatile capi_buildvalue = NULL((void*)0);
80365 volatile int f2py_success = 1;
80366/*decl*/
80367
80368 string side = NULL((void*)0);
80369 int slen(side)capi_side_len;
80370 PyObject *side_capi = Py_None(&_Py_NoneStruct);
80371 string trans = NULL((void*)0);
80372 int slen(trans)capi_trans_len;
80373 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
80374 int m = 0;
80375 int n = 0;
80376 int k = 0;
80377 int l = 0;
80378 complex_float *a = NULL((void*)0);
80379 npy_intp a_Dims[2] = {-1, -1};
80380 const int a_Rank = 2;
80381 PyArrayObject *capi_a_tmp = NULL((void*)0);
80382 int capi_a_intent = 0;
80383 PyObject *a_capi = Py_None(&_Py_NoneStruct);
80384 int lda = 0;
80385 int nt = 0;
80386 complex_float *tau = NULL((void*)0);
80387 npy_intp tau_Dims[1] = {-1};
80388 const int tau_Rank = 1;
80389 PyArrayObject *capi_tau_tmp = NULL((void*)0);
80390 int capi_tau_intent = 0;
80391 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
80392 complex_float *c = NULL((void*)0);
80393 npy_intp c_Dims[2] = {-1, -1};
80394 const int c_Rank = 2;
80395 PyArrayObject *capi_c_tmp = NULL((void*)0);
80396 int capi_c_intent = 0;
80397 int capi_overwrite_c = 0;
80398 PyObject *c_capi = Py_None(&_Py_NoneStruct);
80399 int ldc = 0;
80400 complex_float *work = NULL((void*)0);
80401 npy_intp work_Dims[1] = {-1};
80402 const int work_Rank = 1;
80403 PyArrayObject *capi_work_tmp = NULL((void*)0);
80404 int capi_work_intent = 0;
80405 int lwork = 0;
80406 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
80407 int info = 0;
80408 static char *capi_kwlist[] = {"a","tau","c","side","trans","lwork","overwrite_c",NULL((void*)0)};
80409
80410/*routdebugenter*/
80411#ifdef F2PY_REPORT_ATEXIT
80412f2py_start_clock();
80413#endif
80414 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
80415 "OOO|OOOi:_flapack.cunmrz",\
80416 capi_kwlist,&a_capi,&tau_capi,&c_capi,&side_capi,&trans_capi,&lwork_capi,&capi_overwrite_c))
80417 return NULL((void*)0);
80418/*frompyobj*/
80419 /* Processing variable a */
80420 ;
80421 capi_a_intent |= F2PY_INTENT_IN1;
80422 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
80423 if (capi_a_tmp == NULL((void*)0)) {
80424 if (!PyErr_Occurred())
80425 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cunmrz to C/Fortran array" );
80426 } else {
80427 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
80428
80429 CHECKARRAY(shape(a,1)>=shape(a,0),"shape(a,1)>=shape(a,0)","1st argument a")if (!(a_Dims[1]>=a_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(a,1)>=shape(a,0)"") failed for ""1st argument a"
); } else
{
80430 /* Processing variable c */
80431 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
80432 ;
80433 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
80434 capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
80435 if (capi_c_tmp == NULL((void*)0)) {
80436 if (!PyErr_Occurred())
80437 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.cunmrz to C/Fortran array" );
80438 } else {
80439 c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
80440
80441 /* Processing variable info */
80442 /* Processing variable m */
80443 m = shape(c,0)c_Dims[0];
80444 CHECKSCALAR(m>=0,"m>=0","hidden m","cunmrz:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cunmrz:m=%d", "(""m>=0"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
80445 /* Processing variable n */
80446 n = shape(c,1)c_Dims[1];
80447 CHECKSCALAR(n>=0,"n>=0","hidden n","cunmrz:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cunmrz:n=%d", "(""n>=0"") failed for ""hidden n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
80448 /* Processing variable k */
80449 k = shape(a,0)a_Dims[0];
80450 /* Processing variable l */
80451 l = shape(a,1)a_Dims[1]-shape(a,0)a_Dims[0];
80452 /* Processing variable lda */
80453 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
80454 /* Processing variable tau */
80455 tau_Dims[0]=k;
80456 capi_tau_intent |= F2PY_INTENT_IN1;
80457 capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,tau_capi);
80458 if (capi_tau_tmp == NULL((void*)0)) {
80459 if (!PyErr_Occurred())
80460 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.cunmrz to C/Fortran array" );
80461 } else {
80462 tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
80463
80464 CHECKARRAY(rank(tau)==1,"rank(tau)==1","2nd argument tau")if (!(tau_Rank==1)) { PyErr_SetString(_flapack_error,"(""rank(tau)==1"
") failed for ""2nd argument tau"); } else
{
80465 /* Processing variable ldc */
80466 ldc = MAX(shape(c,0),1)((c_Dims[0] > 1) ? (c_Dims[0]) : (1));
80467 /* Processing variable side */
80468 slen(side)capi_side_len = 1;
80469 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.cunmrz to C string");
80470 if (f2py_success) {
80471 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","cunmrz:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cunmrz:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
80472 /* Processing variable trans */
80473 slen(trans)capi_trans_len = 1;
80474 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.cunmrz to C string");
80475 if (f2py_success) {
80476 CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","2nd keyword trans","cunmrz:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cunmrz:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'"
") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
80477 /* Processing variable nt */
80478 nt = shape(a,1)a_Dims[1];
80479 CHECKSCALAR((*side=='L'?m:n)==nt,"(*side=='L'?m:n)==nt","hidden nt","cunmrz:nt=%d",nt)if (!((*side=='L'?m:n)==nt)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cunmrz:nt=%d", "(""(*side=='L'?m:n)==nt"") failed for "
"hidden nt", nt); PyErr_SetString(_flapack_error,errstring); }
else
{
80480 /* Processing variable lwork */
80481 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX((side[0]=='L'?n:m),1)(((side[0]=='L'?n:m) > 1) ? ((side[0]=='L'?n:m)) : (1)); else
80482 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cunmrz() 3rd keyword (lwork) can't be converted to int");
80483 if (f2py_success) {
80484 CHECKSCALAR(lwork>=(*side=='L'?n:m)||lwork==-1,"lwork>=(*side=='L'?n:m)||lwork==-1","3rd keyword lwork","cunmrz:lwork=%d",lwork)if (!(lwork>=(*side=='L'?n:m)||lwork==-1)) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""cunmrz:lwork=%d", "(""lwork>=(*side=='L'?n:m)||lwork==-1"
") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
80485 /* Processing variable work */
80486 work_Dims[0]=lwork;
80487 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
80488 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
80489 if (capi_work_tmp == NULL((void*)0)) {
80490 if (!PyErr_Occurred())
80491 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cunmrz to C/Fortran array" );
80492 } else {
80493 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
80494
80495/*end of frompyobj*/
80496#ifdef F2PY_REPORT_ATEXIT
80497f2py_start_call_clock();
80498#endif
80499/*callfortranroutine*/
80500 (*f2py_func)(side,trans,&m,&n,&k,&l,a,&lda,tau,c,&ldc,work,&lwork,&info) ;
80501 /*(*f2py_func)(side,trans,&m,&n,&k,&l,a,&lda,&nt,tau,c,&ldc,work,&lwork,&info,slen(side),slen(trans));*/
80502if (PyErr_Occurred())
80503 f2py_success = 0;
80504#ifdef F2PY_REPORT_ATEXIT
80505f2py_stop_call_clock();
80506#endif
80507/*end of callfortranroutine*/
80508 if (f2py_success) {
80509/*pyobjfrom*/
80510/*end of pyobjfrom*/
80511 CFUNCSMESS("Building return value.\n");
80512 capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info);
80513/*closepyobjfrom*/
80514/*end of closepyobjfrom*/
80515 } /*if (f2py_success) after callfortranroutine*/
80516/*cleanupfrompyobj*/
80517 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
80518 } /*if (capi_work_tmp == NULL) ... else of work*/
80519 /* End of cleaning variable work */
80520 } /*CHECKSCALAR(lwork>=(*side=='L'?n:m)||lwork==-1)*/
80521 } /*if (f2py_success) of lwork*/
80522 /* End of cleaning variable lwork */
80523 } /*CHECKSCALAR((*side=='L'?m:n)==nt)*/
80524 /* End of cleaning variable nt */
80525 } /*CHECKSTRING(*trans=='N'||*trans=='C')*/
80526 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
80527 } /*if (f2py_success) of trans*/
80528 /* End of cleaning variable trans */
80529 } /*CHECKSTRING(*side=='L'||*side=='R')*/
80530 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
80531 } /*if (f2py_success) of side*/
80532 /* End of cleaning variable side */
80533 /* End of cleaning variable ldc */
80534 } /*CHECKARRAY(rank(tau)==1)*/
80535 if((PyObject *)capi_tau_tmp!=tau_capi) {
80536 Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); }
80537 } /*if (capi_tau_tmp == NULL) ... else of tau*/
80538 /* End of cleaning variable tau */
80539 /* End of cleaning variable lda */
80540 /* End of cleaning variable l */
80541 /* End of cleaning variable k */
80542 } /*CHECKSCALAR(n>=0)*/
80543 /* End of cleaning variable n */
80544 } /*CHECKSCALAR(m>=0)*/
80545 /* End of cleaning variable m */
80546 /* End of cleaning variable info */
80547 } /*if (capi_c_tmp == NULL) ... else of c*/
80548 /* End of cleaning variable c */
80549 } /*CHECKARRAY(shape(a,1)>=shape(a,0))*/
80550 if((PyObject *)capi_a_tmp!=a_capi) {
80551 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
80552 } /*if (capi_a_tmp == NULL) ... else of a*/
80553 /* End of cleaning variable a */
80554/*end of cleanupfrompyobj*/
80555 if (capi_buildvalue == NULL((void*)0)) {
80556/*routdebugfailure*/
80557 } else {
80558/*routdebugleave*/
80559 }
80560 CFUNCSMESS("Freeing memory.\n");
80561/*freemem*/
80562#ifdef F2PY_REPORT_ATEXIT
80563f2py_stop_clock();
80564#endif
80565 return capi_buildvalue;
80566}
80567/******************************* end of cunmrz *******************************/
80568
80569/*********************************** zunmrz ***********************************/
80570static char doc_f2py_rout__flapack_zunmrz[] = "\
80571cq,info = zunmrz(a,tau,c,[side,trans,lwork,overwrite_c])\n\nWrapper for ``zunmrz``.\
80572\n\nParameters\n----------\n"
80573"a : input rank-2 array('D') with bounds (k,nt)\n"
80574"tau : input rank-1 array('D') with bounds (k)\n"
80575"c : input rank-2 array('D') with bounds (m,n)\n"
80576"\nOther Parameters\n----------------\n"
80577"side : input string(len=1), optional\n Default: 'L'\n"
80578"trans : input string(len=1), optional\n Default: 'N'\n"
80579"overwrite_c : input int, optional\n Default: 0\n"
80580"lwork : input int, optional\n Default: MAX((side[0]=='L'?n:m),1)\n"
80581"\nReturns\n-------\n"
80582"cq : rank-2 array('D') with bounds (m,n) and c storage\n"
80583"info : int";
80584/* extern void F_FUNC(zunmrz,ZUNMRZ)(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */
80585static PyObject *f2py_rout__flapack_zunmrz(const PyObject *capi_self,
80586 PyObject *capi_args,
80587 PyObject *capi_keywds,
80588 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
80589 PyObject * volatile capi_buildvalue = NULL((void*)0);
80590 volatile int f2py_success = 1;
80591/*decl*/
80592
80593 string side = NULL((void*)0);
80594 int slen(side)capi_side_len;
80595 PyObject *side_capi = Py_None(&_Py_NoneStruct);
80596 string trans = NULL((void*)0);
80597 int slen(trans)capi_trans_len;
80598 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
80599 int m = 0;
80600 int n = 0;
80601 int k = 0;
80602 int l = 0;
80603 complex_double *a = NULL((void*)0);
80604 npy_intp a_Dims[2] = {-1, -1};
80605 const int a_Rank = 2;
80606 PyArrayObject *capi_a_tmp = NULL((void*)0);
80607 int capi_a_intent = 0;
80608 PyObject *a_capi = Py_None(&_Py_NoneStruct);
80609 int lda = 0;
80610 int nt = 0;
80611 complex_double *tau = NULL((void*)0);
80612 npy_intp tau_Dims[1] = {-1};
80613 const int tau_Rank = 1;
80614 PyArrayObject *capi_tau_tmp = NULL((void*)0);
80615 int capi_tau_intent = 0;
80616 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
80617 complex_double *c = NULL((void*)0);
80618 npy_intp c_Dims[2] = {-1, -1};
80619 const int c_Rank = 2;
80620 PyArrayObject *capi_c_tmp = NULL((void*)0);
80621 int capi_c_intent = 0;
80622 int capi_overwrite_c = 0;
80623 PyObject *c_capi = Py_None(&_Py_NoneStruct);
80624 int ldc = 0;
80625 complex_double *work = NULL((void*)0);
80626 npy_intp work_Dims[1] = {-1};
80627 const int work_Rank = 1;
80628 PyArrayObject *capi_work_tmp = NULL((void*)0);
80629 int capi_work_intent = 0;
80630 int lwork = 0;
80631 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
80632 int info = 0;
80633 static char *capi_kwlist[] = {"a","tau","c","side","trans","lwork","overwrite_c",NULL((void*)0)};
80634
80635/*routdebugenter*/
80636#ifdef F2PY_REPORT_ATEXIT
80637f2py_start_clock();
80638#endif
80639 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
80640 "OOO|OOOi:_flapack.zunmrz",\
80641 capi_kwlist,&a_capi,&tau_capi,&c_capi,&side_capi,&trans_capi,&lwork_capi,&capi_overwrite_c))
80642 return NULL((void*)0);
80643/*frompyobj*/
80644 /* Processing variable a */
80645 ;
80646 capi_a_intent |= F2PY_INTENT_IN1;
80647 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
80648 if (capi_a_tmp == NULL((void*)0)) {
80649 if (!PyErr_Occurred())
80650 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zunmrz to C/Fortran array" );
80651 } else {
80652 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
80653
80654 CHECKARRAY(shape(a,1)>=shape(a,0),"shape(a,1)>=shape(a,0)","1st argument a")if (!(a_Dims[1]>=a_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(a,1)>=shape(a,0)"") failed for ""1st argument a"
); } else
{
80655 /* Processing variable c */
80656 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
80657 ;
80658 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
80659 capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
80660 if (capi_c_tmp == NULL((void*)0)) {
80661 if (!PyErr_Occurred())
80662 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.zunmrz to C/Fortran array" );
80663 } else {
80664 c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
80665
80666 /* Processing variable info */
80667 /* Processing variable m */
80668 m = shape(c,0)c_Dims[0];
80669 CHECKSCALAR(m>=0,"m>=0","hidden m","zunmrz:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zunmrz:m=%d", "(""m>=0"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
80670 /* Processing variable n */
80671 n = shape(c,1)c_Dims[1];
80672 CHECKSCALAR(n>=0,"n>=0","hidden n","zunmrz:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zunmrz:n=%d", "(""n>=0"") failed for ""hidden n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
80673 /* Processing variable k */
80674 k = shape(a,0)a_Dims[0];
80675 /* Processing variable l */
80676 l = shape(a,1)a_Dims[1]-shape(a,0)a_Dims[0];
80677 /* Processing variable lda */
80678 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
80679 /* Processing variable tau */
80680 tau_Dims[0]=k;
80681 capi_tau_intent |= F2PY_INTENT_IN1;
80682 capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,tau_capi);
80683 if (capi_tau_tmp == NULL((void*)0)) {
80684 if (!PyErr_Occurred())
80685 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.zunmrz to C/Fortran array" );
80686 } else {
80687 tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
80688
80689 CHECKARRAY(rank(tau)==1,"rank(tau)==1","2nd argument tau")if (!(tau_Rank==1)) { PyErr_SetString(_flapack_error,"(""rank(tau)==1"
") failed for ""2nd argument tau"); } else
{
80690 /* Processing variable ldc */
80691 ldc = MAX(shape(c,0),1)((c_Dims[0] > 1) ? (c_Dims[0]) : (1));
80692 /* Processing variable side */
80693 slen(side)capi_side_len = 1;
80694 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.zunmrz to C string");
80695 if (f2py_success) {
80696 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","zunmrz:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zunmrz:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
80697 /* Processing variable trans */
80698 slen(trans)capi_trans_len = 1;
80699 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.zunmrz to C string");
80700 if (f2py_success) {
80701 CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","2nd keyword trans","zunmrz:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zunmrz:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'"
") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
80702 /* Processing variable nt */
80703 nt = shape(a,1)a_Dims[1];
80704 CHECKSCALAR((*side=='L'?m:n)==nt,"(*side=='L'?m:n)==nt","hidden nt","zunmrz:nt=%d",nt)if (!((*side=='L'?m:n)==nt)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zunmrz:nt=%d", "(""(*side=='L'?m:n)==nt"") failed for "
"hidden nt", nt); PyErr_SetString(_flapack_error,errstring); }
else
{
80705 /* Processing variable lwork */
80706 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX((side[0]=='L'?n:m),1)(((side[0]=='L'?n:m) > 1) ? ((side[0]=='L'?n:m)) : (1)); else
80707 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zunmrz() 3rd keyword (lwork) can't be converted to int");
80708 if (f2py_success) {
80709 CHECKSCALAR(lwork>=(*side=='L'?n:m)||lwork==-1,"lwork>=(*side=='L'?n:m)||lwork==-1","3rd keyword lwork","zunmrz:lwork=%d",lwork)if (!(lwork>=(*side=='L'?n:m)||lwork==-1)) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zunmrz:lwork=%d", "(""lwork>=(*side=='L'?n:m)||lwork==-1"
") failed for ""3rd keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
80710 /* Processing variable work */
80711 work_Dims[0]=lwork;
80712 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
80713 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
80714 if (capi_work_tmp == NULL((void*)0)) {
80715 if (!PyErr_Occurred())
80716 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zunmrz to C/Fortran array" );
80717 } else {
80718 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
80719
80720/*end of frompyobj*/
80721#ifdef F2PY_REPORT_ATEXIT
80722f2py_start_call_clock();
80723#endif
80724/*callfortranroutine*/
80725 (*f2py_func)(side,trans,&m,&n,&k,&l,a,&lda,tau,c,&ldc,work,&lwork,&info) ;
80726 /*(*f2py_func)(side,trans,&m,&n,&k,&l,a,&lda,&nt,tau,c,&ldc,work,&lwork,&info,slen(side),slen(trans));*/
80727if (PyErr_Occurred())
80728 f2py_success = 0;
80729#ifdef F2PY_REPORT_ATEXIT
80730f2py_stop_call_clock();
80731#endif
80732/*end of callfortranroutine*/
80733 if (f2py_success) {
80734/*pyobjfrom*/
80735/*end of pyobjfrom*/
80736 CFUNCSMESS("Building return value.\n");
80737 capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info);
80738/*closepyobjfrom*/
80739/*end of closepyobjfrom*/
80740 } /*if (f2py_success) after callfortranroutine*/
80741/*cleanupfrompyobj*/
80742 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
80743 } /*if (capi_work_tmp == NULL) ... else of work*/
80744 /* End of cleaning variable work */
80745 } /*CHECKSCALAR(lwork>=(*side=='L'?n:m)||lwork==-1)*/
80746 } /*if (f2py_success) of lwork*/
80747 /* End of cleaning variable lwork */
80748 } /*CHECKSCALAR((*side=='L'?m:n)==nt)*/
80749 /* End of cleaning variable nt */
80750 } /*CHECKSTRING(*trans=='N'||*trans=='C')*/
80751 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
80752 } /*if (f2py_success) of trans*/
80753 /* End of cleaning variable trans */
80754 } /*CHECKSTRING(*side=='L'||*side=='R')*/
80755 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
80756 } /*if (f2py_success) of side*/
80757 /* End of cleaning variable side */
80758 /* End of cleaning variable ldc */
80759 } /*CHECKARRAY(rank(tau)==1)*/
80760 if((PyObject *)capi_tau_tmp!=tau_capi) {
80761 Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); }
80762 } /*if (capi_tau_tmp == NULL) ... else of tau*/
80763 /* End of cleaning variable tau */
80764 /* End of cleaning variable lda */
80765 /* End of cleaning variable l */
80766 /* End of cleaning variable k */
80767 } /*CHECKSCALAR(n>=0)*/
80768 /* End of cleaning variable n */
80769 } /*CHECKSCALAR(m>=0)*/
80770 /* End of cleaning variable m */
80771 /* End of cleaning variable info */
80772 } /*if (capi_c_tmp == NULL) ... else of c*/
80773 /* End of cleaning variable c */
80774 } /*CHECKARRAY(shape(a,1)>=shape(a,0))*/
80775 if((PyObject *)capi_a_tmp!=a_capi) {
80776 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
80777 } /*if (capi_a_tmp == NULL) ... else of a*/
80778 /* End of cleaning variable a */
80779/*end of cleanupfrompyobj*/
80780 if (capi_buildvalue == NULL((void*)0)) {
80781/*routdebugfailure*/
80782 } else {
80783/*routdebugleave*/
80784 }
80785 CFUNCSMESS("Freeing memory.\n");
80786/*freemem*/
80787#ifdef F2PY_REPORT_ATEXIT
80788f2py_stop_clock();
80789#endif
80790 return capi_buildvalue;
80791}
80792/******************************* end of zunmrz *******************************/
80793
80794/******************************** sormrz_lwork ********************************/
80795static char doc_f2py_rout__flapack_sormrz_lwork[] = "\
80796work,info = sormrz_lwork(m,n,[side,trans])\n\nWrapper for ``sormrz_lwork``.\
80797\n\nParameters\n----------\n"
80798"m : input int\n"
80799"n : input int\n"
80800"\nOther Parameters\n----------------\n"
80801"side : input string(len=1), optional\n Default: 'L'\n"
80802"trans : input string(len=1), optional\n Default: 'N'\n"
80803"\nReturns\n-------\n"
80804"work : float\n"
80805"info : int";
80806/* extern void F_FUNC(sormrz ,SORMRZ )(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT* ); */
80807static PyObject *f2py_rout__flapack_sormrz_lwork(const PyObject *capi_self,
80808 PyObject *capi_args,
80809 PyObject *capi_keywds,
80810 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint* )) {
80811 PyObject * volatile capi_buildvalue = NULL((void*)0);
80812 volatile int f2py_success = 1;
80813/*decl*/
80814
80815 string side = NULL((void*)0);
80816 int slen(side)capi_side_len;
80817 PyObject *side_capi = Py_None(&_Py_NoneStruct);
80818 string trans = NULL((void*)0);
80819 int slen(trans)capi_trans_len;
80820 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
80821 int m = 0;
80822 PyObject *m_capi = Py_None(&_Py_NoneStruct);
80823 int n = 0;
80824 PyObject *n_capi = Py_None(&_Py_NoneStruct);
80825 int k = 0;
80826 int l = 0;
80827 float a = 0;
80828 int lda = 0;
80829 float tau = 0;
80830 float c = 0;
80831 int ldc = 0;
80832 float work = 0;
80833 int lwork = 0;
80834 int info = 0;
80835 static char *capi_kwlist[] = {"m","n","side","trans",NULL((void*)0)};
80836
80837/*routdebugenter*/
80838#ifdef F2PY_REPORT_ATEXIT
80839f2py_start_clock();
80840#endif
80841 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
80842 "OO|OO:_flapack.sormrz_lwork",\
80843 capi_kwlist,&m_capi,&n_capi,&side_capi,&trans_capi))
80844 return NULL((void*)0);
80845/*frompyobj*/
80846 /* Processing variable m */
80847 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sormrz_lwork() 1st argument (m) can't be converted to int");
80848 if (f2py_success) {
80849 /* Processing variable n */
80850 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sormrz_lwork() 2nd argument (n) can't be converted to int");
80851 if (f2py_success) {
80852 /* Processing variable l */
80853 /* Processing variable a */
80854 /* Processing variable c */
80855 /* Processing variable tau */
80856 /* Processing variable work */
80857 /* Processing variable lwork */
80858 lwork = -1;
80859 /* Processing variable info */
80860 /* Processing variable side */
80861 slen(side)capi_side_len = 1;
80862 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.sormrz_lwork to C string");
80863 if (f2py_success) {
80864 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","sormrz_lwork:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sormrz_lwork:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
80865 /* Processing variable trans */
80866 slen(trans)capi_trans_len = 1;
80867 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.sormrz_lwork to C string");
80868 if (f2py_success) {
80869 CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","2nd keyword trans","sormrz_lwork:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sormrz_lwork:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'"
") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
80870 /* Processing variable k */
80871 k = (*side=='L'?m:n);
80872 /* Processing variable lda */
80873 lda = k;
80874 /* Processing variable ldc */
80875 ldc = m;
80876/*end of frompyobj*/
80877#ifdef F2PY_REPORT_ATEXIT
80878f2py_start_call_clock();
80879#endif
80880/*callfortranroutine*/
80881 (*f2py_func)(side,trans,&m,&n,&k,&l,&a,&lda,&tau,&c,&ldc,&work,&lwork,&info) ;
80882 /*(*f2py_func)(side,trans,&m,&n,&k,&l,&a,&lda,&tau,&c,&ldc,&work,&lwork,&info,slen(side),slen(trans));*/
80883if (PyErr_Occurred())
80884 f2py_success = 0;
80885#ifdef F2PY_REPORT_ATEXIT
80886f2py_stop_call_clock();
80887#endif
80888/*end of callfortranroutine*/
80889 if (f2py_success) {
80890/*pyobjfrom*/
80891/*end of pyobjfrom*/
80892 CFUNCSMESS("Building return value.\n");
80893 capi_buildvalue = Py_BuildValue("fi",work,info);
80894/*closepyobjfrom*/
80895/*end of closepyobjfrom*/
80896 } /*if (f2py_success) after callfortranroutine*/
80897/*cleanupfrompyobj*/
80898 /* End of cleaning variable ldc */
80899 /* End of cleaning variable lda */
80900 /* End of cleaning variable k */
80901 } /*CHECKSTRING(*trans=='N'||*trans=='T')*/
80902 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
80903 } /*if (f2py_success) of trans*/
80904 /* End of cleaning variable trans */
80905 } /*CHECKSTRING(*side=='L'||*side=='R')*/
80906 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
80907 } /*if (f2py_success) of side*/
80908 /* End of cleaning variable side */
80909 /* End of cleaning variable info */
80910 /* End of cleaning variable lwork */
80911 /* End of cleaning variable work */
80912 /* End of cleaning variable tau */
80913 /* End of cleaning variable c */
80914 /* End of cleaning variable a */
80915 /* End of cleaning variable l */
80916 } /*if (f2py_success) of n*/
80917 /* End of cleaning variable n */
80918 } /*if (f2py_success) of m*/
80919 /* End of cleaning variable m */
80920/*end of cleanupfrompyobj*/
80921 if (capi_buildvalue == NULL((void*)0)) {
80922/*routdebugfailure*/
80923 } else {
80924/*routdebugleave*/
80925 }
80926 CFUNCSMESS("Freeing memory.\n");
80927/*freemem*/
80928#ifdef F2PY_REPORT_ATEXIT
80929f2py_stop_clock();
80930#endif
80931 return capi_buildvalue;
80932}
80933/**************************** end of sormrz_lwork ****************************/
80934
80935/******************************** dormrz_lwork ********************************/
80936static char doc_f2py_rout__flapack_dormrz_lwork[] = "\
80937work,info = dormrz_lwork(m,n,[side,trans])\n\nWrapper for ``dormrz_lwork``.\
80938\n\nParameters\n----------\n"
80939"m : input int\n"
80940"n : input int\n"
80941"\nOther Parameters\n----------------\n"
80942"side : input string(len=1), optional\n Default: 'L'\n"
80943"trans : input string(len=1), optional\n Default: 'N'\n"
80944"\nReturns\n-------\n"
80945"work : float\n"
80946"info : int";
80947/* extern void F_FUNC(dormrz ,DORMRZ )(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT* ); */
80948static PyObject *f2py_rout__flapack_dormrz_lwork(const PyObject *capi_self,
80949 PyObject *capi_args,
80950 PyObject *capi_keywds,
80951 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint* )) {
80952 PyObject * volatile capi_buildvalue = NULL((void*)0);
80953 volatile int f2py_success = 1;
80954/*decl*/
80955
80956 string side = NULL((void*)0);
80957 int slen(side)capi_side_len;
80958 PyObject *side_capi = Py_None(&_Py_NoneStruct);
80959 string trans = NULL((void*)0);
80960 int slen(trans)capi_trans_len;
80961 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
80962 int m = 0;
80963 PyObject *m_capi = Py_None(&_Py_NoneStruct);
80964 int n = 0;
80965 PyObject *n_capi = Py_None(&_Py_NoneStruct);
80966 int k = 0;
80967 int l = 0;
80968 double a = 0;
80969 int lda = 0;
80970 double tau = 0;
80971 double c = 0;
80972 int ldc = 0;
80973 double work = 0;
80974 int lwork = 0;
80975 int info = 0;
80976 static char *capi_kwlist[] = {"m","n","side","trans",NULL((void*)0)};
80977
80978/*routdebugenter*/
80979#ifdef F2PY_REPORT_ATEXIT
80980f2py_start_clock();
80981#endif
80982 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
80983 "OO|OO:_flapack.dormrz_lwork",\
80984 capi_kwlist,&m_capi,&n_capi,&side_capi,&trans_capi))
80985 return NULL((void*)0);
80986/*frompyobj*/
80987 /* Processing variable m */
80988 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dormrz_lwork() 1st argument (m) can't be converted to int");
80989 if (f2py_success) {
80990 /* Processing variable n */
80991 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dormrz_lwork() 2nd argument (n) can't be converted to int");
80992 if (f2py_success) {
80993 /* Processing variable l */
80994 /* Processing variable a */
80995 /* Processing variable c */
80996 /* Processing variable tau */
80997 /* Processing variable work */
80998 /* Processing variable lwork */
80999 lwork = -1;
81000 /* Processing variable info */
81001 /* Processing variable side */
81002 slen(side)capi_side_len = 1;
81003 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.dormrz_lwork to C string");
81004 if (f2py_success) {
81005 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","dormrz_lwork:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dormrz_lwork:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
81006 /* Processing variable trans */
81007 slen(trans)capi_trans_len = 1;
81008 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.dormrz_lwork to C string");
81009 if (f2py_success) {
81010 CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","2nd keyword trans","dormrz_lwork:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dormrz_lwork:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'"
") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
81011 /* Processing variable k */
81012 k = (*side=='L'?m:n);
81013 /* Processing variable lda */
81014 lda = k;
81015 /* Processing variable ldc */
81016 ldc = m;
81017/*end of frompyobj*/
81018#ifdef F2PY_REPORT_ATEXIT
81019f2py_start_call_clock();
81020#endif
81021/*callfortranroutine*/
81022 (*f2py_func)(side,trans,&m,&n,&k,&l,&a,&lda,&tau,&c,&ldc,&work,&lwork,&info) ;
81023 /*(*f2py_func)(side,trans,&m,&n,&k,&l,&a,&lda,&tau,&c,&ldc,&work,&lwork,&info,slen(side),slen(trans));*/
81024if (PyErr_Occurred())
81025 f2py_success = 0;
81026#ifdef F2PY_REPORT_ATEXIT
81027f2py_stop_call_clock();
81028#endif
81029/*end of callfortranroutine*/
81030 if (f2py_success) {
81031/*pyobjfrom*/
81032/*end of pyobjfrom*/
81033 CFUNCSMESS("Building return value.\n");
81034 capi_buildvalue = Py_BuildValue("di",work,info);
81035/*closepyobjfrom*/
81036/*end of closepyobjfrom*/
81037 } /*if (f2py_success) after callfortranroutine*/
81038/*cleanupfrompyobj*/
81039 /* End of cleaning variable ldc */
81040 /* End of cleaning variable lda */
81041 /* End of cleaning variable k */
81042 } /*CHECKSTRING(*trans=='N'||*trans=='T')*/
81043 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
81044 } /*if (f2py_success) of trans*/
81045 /* End of cleaning variable trans */
81046 } /*CHECKSTRING(*side=='L'||*side=='R')*/
81047 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
81048 } /*if (f2py_success) of side*/
81049 /* End of cleaning variable side */
81050 /* End of cleaning variable info */
81051 /* End of cleaning variable lwork */
81052 /* End of cleaning variable work */
81053 /* End of cleaning variable tau */
81054 /* End of cleaning variable c */
81055 /* End of cleaning variable a */
81056 /* End of cleaning variable l */
81057 } /*if (f2py_success) of n*/
81058 /* End of cleaning variable n */
81059 } /*if (f2py_success) of m*/
81060 /* End of cleaning variable m */
81061/*end of cleanupfrompyobj*/
81062 if (capi_buildvalue == NULL((void*)0)) {
81063/*routdebugfailure*/
81064 } else {
81065/*routdebugleave*/
81066 }
81067 CFUNCSMESS("Freeing memory.\n");
81068/*freemem*/
81069#ifdef F2PY_REPORT_ATEXIT
81070f2py_stop_clock();
81071#endif
81072 return capi_buildvalue;
81073}
81074/**************************** end of dormrz_lwork ****************************/
81075
81076/******************************** cunmrz_lwork ********************************/
81077static char doc_f2py_rout__flapack_cunmrz_lwork[] = "\
81078work,info = cunmrz_lwork(m,n,[side,trans])\n\nWrapper for ``cunmrz_lwork``.\
81079\n\nParameters\n----------\n"
81080"m : input int\n"
81081"n : input int\n"
81082"\nOther Parameters\n----------------\n"
81083"side : input string(len=1), optional\n Default: 'L'\n"
81084"trans : input string(len=1), optional\n Default: 'N'\n"
81085"\nReturns\n-------\n"
81086"work : complex\n"
81087"info : int";
81088/* extern void F_FUNC(cunmrz ,CUNMRZ )(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,complex_float*,F_INT*,F_INT* ); */
81089static PyObject *f2py_rout__flapack_cunmrz_lwork(const PyObject *capi_self,
81090 PyObject *capi_args,
81091 PyObject *capi_keywds,
81092 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
81093 PyObject * volatile capi_buildvalue = NULL((void*)0);
81094 volatile int f2py_success = 1;
81095/*decl*/
81096
81097 string side = NULL((void*)0);
81098 int slen(side)capi_side_len;
81099 PyObject *side_capi = Py_None(&_Py_NoneStruct);
81100 string trans = NULL((void*)0);
81101 int slen(trans)capi_trans_len;
81102 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
81103 int m = 0;
81104 PyObject *m_capi = Py_None(&_Py_NoneStruct);
81105 int n = 0;
81106 PyObject *n_capi = Py_None(&_Py_NoneStruct);
81107 int k = 0;
81108 int l = 0;
81109 complex_float a;
81110 int lda = 0;
81111 complex_float tau;
81112 complex_float c;
81113 int ldc = 0;
81114 complex_float work;
81115 PyObject *work_capi = Py_None(&_Py_NoneStruct);
81116 int lwork = 0;
81117 int info = 0;
81118 static char *capi_kwlist[] = {"m","n","side","trans",NULL((void*)0)};
81119
81120/*routdebugenter*/
81121#ifdef F2PY_REPORT_ATEXIT
81122f2py_start_clock();
81123#endif
81124 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
81125 "OO|OO:_flapack.cunmrz_lwork",\
81126 capi_kwlist,&m_capi,&n_capi,&side_capi,&trans_capi))
81127 return NULL((void*)0);
81128/*frompyobj*/
81129 /* Processing variable m */
81130 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cunmrz_lwork() 1st argument (m) can't be converted to int");
81131 if (f2py_success) {
81132 /* Processing variable n */
81133 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cunmrz_lwork() 2nd argument (n) can't be converted to int");
81134 if (f2py_success) {
81135 /* Processing variable l */
81136 /* Processing variable a */
81137 /* Processing variable c */
81138 /* Processing variable tau */
81139 /* Processing variable work */
81140 /* Processing variable lwork */
81141 lwork = -1;
81142 /* Processing variable info */
81143 /* Processing variable side */
81144 slen(side)capi_side_len = 1;
81145 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.cunmrz_lwork to C string");
81146 if (f2py_success) {
81147 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","cunmrz_lwork:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cunmrz_lwork:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
81148 /* Processing variable trans */
81149 slen(trans)capi_trans_len = 1;
81150 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.cunmrz_lwork to C string");
81151 if (f2py_success) {
81152 CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","2nd keyword trans","cunmrz_lwork:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cunmrz_lwork:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'"
") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
81153 /* Processing variable k */
81154 k = (*side=='L'?m:n);
81155 /* Processing variable lda */
81156 lda = k;
81157 /* Processing variable ldc */
81158 ldc = m;
81159/*end of frompyobj*/
81160#ifdef F2PY_REPORT_ATEXIT
81161f2py_start_call_clock();
81162#endif
81163/*callfortranroutine*/
81164 (*f2py_func)(side,trans,&m,&n,&k,&l,&a,&lda,&tau,&c,&ldc,&work,&lwork,&info) ;
81165 /*(*f2py_func)(side,trans,&m,&n,&k,&l,&a,&lda,&tau,&c,&ldc,&work,&lwork,&info,slen(side),slen(trans));*/
81166if (PyErr_Occurred())
81167 f2py_success = 0;
81168#ifdef F2PY_REPORT_ATEXIT
81169f2py_stop_call_clock();
81170#endif
81171/*end of callfortranroutine*/
81172 if (f2py_success) {
81173/*pyobjfrom*/
81174 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
81175/*end of pyobjfrom*/
81176 CFUNCSMESS("Building return value.\n");
81177 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
81178/*closepyobjfrom*/
81179/*end of closepyobjfrom*/
81180 } /*if (f2py_success) after callfortranroutine*/
81181/*cleanupfrompyobj*/
81182 /* End of cleaning variable ldc */
81183 /* End of cleaning variable lda */
81184 /* End of cleaning variable k */
81185 } /*CHECKSTRING(*trans=='N'||*trans=='C')*/
81186 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
81187 } /*if (f2py_success) of trans*/
81188 /* End of cleaning variable trans */
81189 } /*CHECKSTRING(*side=='L'||*side=='R')*/
81190 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
81191 } /*if (f2py_success) of side*/
81192 /* End of cleaning variable side */
81193 /* End of cleaning variable info */
81194 /* End of cleaning variable lwork */
81195 /* End of cleaning variable work */
81196 /* End of cleaning variable tau */
81197 /* End of cleaning variable c */
81198 /* End of cleaning variable a */
81199 /* End of cleaning variable l */
81200 } /*if (f2py_success) of n*/
81201 /* End of cleaning variable n */
81202 } /*if (f2py_success) of m*/
81203 /* End of cleaning variable m */
81204/*end of cleanupfrompyobj*/
81205 if (capi_buildvalue == NULL((void*)0)) {
81206/*routdebugfailure*/
81207 } else {
81208/*routdebugleave*/
81209 }
81210 CFUNCSMESS("Freeing memory.\n");
81211/*freemem*/
81212#ifdef F2PY_REPORT_ATEXIT
81213f2py_stop_clock();
81214#endif
81215 return capi_buildvalue;
81216}
81217/**************************** end of cunmrz_lwork ****************************/
81218
81219/******************************** zunmrz_lwork ********************************/
81220static char doc_f2py_rout__flapack_zunmrz_lwork[] = "\
81221work,info = zunmrz_lwork(m,n,[side,trans])\n\nWrapper for ``zunmrz_lwork``.\
81222\n\nParameters\n----------\n"
81223"m : input int\n"
81224"n : input int\n"
81225"\nOther Parameters\n----------------\n"
81226"side : input string(len=1), optional\n Default: 'L'\n"
81227"trans : input string(len=1), optional\n Default: 'N'\n"
81228"\nReturns\n-------\n"
81229"work : complex\n"
81230"info : int";
81231/* extern void F_FUNC(zunmrz ,ZUNMRZ )(char*,char*,F_INT*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,complex_double*,F_INT*,F_INT* ); */
81232static PyObject *f2py_rout__flapack_zunmrz_lwork(const PyObject *capi_self,
81233 PyObject *capi_args,
81234 PyObject *capi_keywds,
81235 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
81236 PyObject * volatile capi_buildvalue = NULL((void*)0);
81237 volatile int f2py_success = 1;
81238/*decl*/
81239
81240 string side = NULL((void*)0);
81241 int slen(side)capi_side_len;
81242 PyObject *side_capi = Py_None(&_Py_NoneStruct);
81243 string trans = NULL((void*)0);
81244 int slen(trans)capi_trans_len;
81245 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
81246 int m = 0;
81247 PyObject *m_capi = Py_None(&_Py_NoneStruct);
81248 int n = 0;
81249 PyObject *n_capi = Py_None(&_Py_NoneStruct);
81250 int k = 0;
81251 int l = 0;
81252 complex_double a;
81253 int lda = 0;
81254 complex_double tau;
81255 complex_double c;
81256 int ldc = 0;
81257 complex_double work;
81258 PyObject *work_capi = Py_None(&_Py_NoneStruct);
81259 int lwork = 0;
81260 int info = 0;
81261 static char *capi_kwlist[] = {"m","n","side","trans",NULL((void*)0)};
81262
81263/*routdebugenter*/
81264#ifdef F2PY_REPORT_ATEXIT
81265f2py_start_clock();
81266#endif
81267 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
81268 "OO|OO:_flapack.zunmrz_lwork",\
81269 capi_kwlist,&m_capi,&n_capi,&side_capi,&trans_capi))
81270 return NULL((void*)0);
81271/*frompyobj*/
81272 /* Processing variable m */
81273 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zunmrz_lwork() 1st argument (m) can't be converted to int");
81274 if (f2py_success) {
81275 /* Processing variable n */
81276 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zunmrz_lwork() 2nd argument (n) can't be converted to int");
81277 if (f2py_success) {
81278 /* Processing variable l */
81279 /* Processing variable a */
81280 /* Processing variable c */
81281 /* Processing variable tau */
81282 /* Processing variable work */
81283 /* Processing variable lwork */
81284 lwork = -1;
81285 /* Processing variable info */
81286 /* Processing variable side */
81287 slen(side)capi_side_len = 1;
81288 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.zunmrz_lwork to C string");
81289 if (f2py_success) {
81290 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","1st keyword side","zunmrz_lwork:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zunmrz_lwork:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
81291 /* Processing variable trans */
81292 slen(trans)capi_trans_len = 1;
81293 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 2nd keyword `trans' of _flapack.zunmrz_lwork to C string");
81294 if (f2py_success) {
81295 CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","2nd keyword trans","zunmrz_lwork:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zunmrz_lwork:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'"
") failed for ""2nd keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
81296 /* Processing variable k */
81297 k = (*side=='L'?m:n);
81298 /* Processing variable lda */
81299 lda = k;
81300 /* Processing variable ldc */
81301 ldc = m;
81302/*end of frompyobj*/
81303#ifdef F2PY_REPORT_ATEXIT
81304f2py_start_call_clock();
81305#endif
81306/*callfortranroutine*/
81307 (*f2py_func)(side,trans,&m,&n,&k,&l,&a,&lda,&tau,&c,&ldc,&work,&lwork,&info) ;
81308 /*(*f2py_func)(side,trans,&m,&n,&k,&l,&a,&lda,&tau,&c,&ldc,&work,&lwork,&info,slen(side),slen(trans));*/
81309if (PyErr_Occurred())
81310 f2py_success = 0;
81311#ifdef F2PY_REPORT_ATEXIT
81312f2py_stop_call_clock();
81313#endif
81314/*end of callfortranroutine*/
81315 if (f2py_success) {
81316/*pyobjfrom*/
81317 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
81318/*end of pyobjfrom*/
81319 CFUNCSMESS("Building return value.\n");
81320 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
81321/*closepyobjfrom*/
81322/*end of closepyobjfrom*/
81323 } /*if (f2py_success) after callfortranroutine*/
81324/*cleanupfrompyobj*/
81325 /* End of cleaning variable ldc */
81326 /* End of cleaning variable lda */
81327 /* End of cleaning variable k */
81328 } /*CHECKSTRING(*trans=='N'||*trans=='C')*/
81329 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
81330 } /*if (f2py_success) of trans*/
81331 /* End of cleaning variable trans */
81332 } /*CHECKSTRING(*side=='L'||*side=='R')*/
81333 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
81334 } /*if (f2py_success) of side*/
81335 /* End of cleaning variable side */
81336 /* End of cleaning variable info */
81337 /* End of cleaning variable lwork */
81338 /* End of cleaning variable work */
81339 /* End of cleaning variable tau */
81340 /* End of cleaning variable c */
81341 /* End of cleaning variable a */
81342 /* End of cleaning variable l */
81343 } /*if (f2py_success) of n*/
81344 /* End of cleaning variable n */
81345 } /*if (f2py_success) of m*/
81346 /* End of cleaning variable m */
81347/*end of cleanupfrompyobj*/
81348 if (capi_buildvalue == NULL((void*)0)) {
81349/*routdebugfailure*/
81350 } else {
81351/*routdebugleave*/
81352 }
81353 CFUNCSMESS("Freeing memory.\n");
81354/*freemem*/
81355#ifdef F2PY_REPORT_ATEXIT
81356f2py_stop_clock();
81357#endif
81358 return capi_buildvalue;
81359}
81360/**************************** end of zunmrz_lwork ****************************/
81361
81362/*********************************** sorgrq ***********************************/
81363static char doc_f2py_rout__flapack_sorgrq[] = "\
81364q,work,info = sorgrq(a,tau,[lwork,overwrite_a])\n\nWrapper for ``sorgrq``.\
81365\n\nParameters\n----------\n"
81366"a : input rank-2 array('f') with bounds (m,n)\n"
81367"tau : input rank-1 array('f') with bounds (k)\n"
81368"\nOther Parameters\n----------------\n"
81369"overwrite_a : input int, optional\n Default: 0\n"
81370"lwork : input int, optional\n Default: max(3*m,1)\n"
81371"\nReturns\n-------\n"
81372"q : rank-2 array('f') with bounds (m,n) and a storage\n"
81373"work : rank-1 array('f') with bounds (MAX(lwork,1))\n"
81374"info : int";
81375/* extern void F_FUNC(sorgrq,SORGRQ)(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */
81376static PyObject *f2py_rout__flapack_sorgrq(const PyObject *capi_self,
81377 PyObject *capi_args,
81378 PyObject *capi_keywds,
81379 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
81380 PyObject * volatile capi_buildvalue = NULL((void*)0);
81381 volatile int f2py_success = 1;
81382/*decl*/
81383
81384 int m = 0;
81385 int n = 0;
81386 int k = 0;
81387 float *a = NULL((void*)0);
81388 npy_intp a_Dims[2] = {-1, -1};
81389 const int a_Rank = 2;
81390 PyArrayObject *capi_a_tmp = NULL((void*)0);
81391 int capi_a_intent = 0;
81392 int capi_overwrite_a = 0;
81393 PyObject *a_capi = Py_None(&_Py_NoneStruct);
81394 float *tau = NULL((void*)0);
81395 npy_intp tau_Dims[1] = {-1};
81396 const int tau_Rank = 1;
81397 PyArrayObject *capi_tau_tmp = NULL((void*)0);
81398 int capi_tau_intent = 0;
81399 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
81400 float *work = NULL((void*)0);
81401 npy_intp work_Dims[1] = {-1};
81402 const int work_Rank = 1;
81403 PyArrayObject *capi_work_tmp = NULL((void*)0);
81404 int capi_work_intent = 0;
81405 int lwork = 0;
81406 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
81407 int info = 0;
81408 static char *capi_kwlist[] = {"a","tau","lwork","overwrite_a",NULL((void*)0)};
81409
81410/*routdebugenter*/
81411#ifdef F2PY_REPORT_ATEXIT
81412f2py_start_clock();
81413#endif
81414 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
81415 "OO|Oi:_flapack.sorgrq",\
81416 capi_kwlist,&a_capi,&tau_capi,&lwork_capi,&capi_overwrite_a))
81417 return NULL((void*)0);
81418/*frompyobj*/
81419 /* Processing variable a */
81420 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
81421 ;
81422 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
81423 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
81424 if (capi_a_tmp == NULL((void*)0)) {
81425 if (!PyErr_Occurred())
81426 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sorgrq to C/Fortran array" );
81427 } else {
81428 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
81429
81430 /* Processing variable tau */
81431 ;
81432 capi_tau_intent |= F2PY_INTENT_IN1;
81433 capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,tau_capi);
81434 if (capi_tau_tmp == NULL((void*)0)) {
81435 if (!PyErr_Occurred())
81436 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.sorgrq to C/Fortran array" );
81437 } else {
81438 tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
81439
81440 /* Processing variable info */
81441 /* Processing variable m */
81442 m = shape(a,0)a_Dims[0];
81443 /* Processing variable n */
81444 n = shape(a,1)a_Dims[1];
81445 /* Processing variable k */
81446 k = shape(tau,0)tau_Dims[0];
81447 /* Processing variable lwork */
81448 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*m,1)((3*m > 1) ? (3*m) : (1)); else
81449 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sorgrq() 1st keyword (lwork) can't be converted to int");
81450 if (f2py_success) {
81451 CHECKSCALAR(lwork>=m||lwork==-1,"lwork>=m||lwork==-1","1st keyword lwork","sorgrq:lwork=%d",lwork)if (!(lwork>=m||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sorgrq:lwork=%d", "(""lwork>=m||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
81452 /* Processing variable work */
81453 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
81454 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
81455 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
81456 if (capi_work_tmp == NULL((void*)0)) {
81457 if (!PyErr_Occurred())
81458 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sorgrq to C/Fortran array" );
81459 } else {
81460 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
81461
81462/*end of frompyobj*/
81463#ifdef F2PY_REPORT_ATEXIT
81464f2py_start_call_clock();
81465#endif
81466/*callfortranroutine*/
81467 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
81468 (*f2py_func)(&m,&n,&k,a,&m,tau,work,&lwork,&info) ;
81469 /*(*f2py_func)(&m,&n,&k,a,tau,work,&lwork,&info);*/
81470 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
81471if (PyErr_Occurred())
81472 f2py_success = 0;
81473#ifdef F2PY_REPORT_ATEXIT
81474f2py_stop_call_clock();
81475#endif
81476/*end of callfortranroutine*/
81477 if (f2py_success) {
81478/*pyobjfrom*/
81479/*end of pyobjfrom*/
81480 CFUNCSMESS("Building return value.\n");
81481 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_work_tmp,info);
81482/*closepyobjfrom*/
81483/*end of closepyobjfrom*/
81484 } /*if (f2py_success) after callfortranroutine*/
81485/*cleanupfrompyobj*/
81486 } /*if (capi_work_tmp == NULL) ... else of work*/
81487 /* End of cleaning variable work */
81488 } /*CHECKSCALAR(lwork>=m||lwork==-1)*/
81489 } /*if (f2py_success) of lwork*/
81490 /* End of cleaning variable lwork */
81491 /* End of cleaning variable k */
81492 /* End of cleaning variable n */
81493 /* End of cleaning variable m */
81494 /* End of cleaning variable info */
81495 if((PyObject *)capi_tau_tmp!=tau_capi) {
81496 Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); }
81497 } /*if (capi_tau_tmp == NULL) ... else of tau*/
81498 /* End of cleaning variable tau */
81499 } /*if (capi_a_tmp == NULL) ... else of a*/
81500 /* End of cleaning variable a */
81501/*end of cleanupfrompyobj*/
81502 if (capi_buildvalue == NULL((void*)0)) {
81503/*routdebugfailure*/
81504 } else {
81505/*routdebugleave*/
81506 }
81507 CFUNCSMESS("Freeing memory.\n");
81508/*freemem*/
81509#ifdef F2PY_REPORT_ATEXIT
81510f2py_stop_clock();
81511#endif
81512 return capi_buildvalue;
81513}
81514/******************************* end of sorgrq *******************************/
81515
81516/*********************************** dorgrq ***********************************/
81517static char doc_f2py_rout__flapack_dorgrq[] = "\
81518q,work,info = dorgrq(a,tau,[lwork,overwrite_a])\n\nWrapper for ``dorgrq``.\
81519\n\nParameters\n----------\n"
81520"a : input rank-2 array('d') with bounds (m,n)\n"
81521"tau : input rank-1 array('d') with bounds (k)\n"
81522"\nOther Parameters\n----------------\n"
81523"overwrite_a : input int, optional\n Default: 0\n"
81524"lwork : input int, optional\n Default: max(3*m,1)\n"
81525"\nReturns\n-------\n"
81526"q : rank-2 array('d') with bounds (m,n) and a storage\n"
81527"work : rank-1 array('d') with bounds (MAX(lwork,1))\n"
81528"info : int";
81529/* extern void F_FUNC(dorgrq,DORGRQ)(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */
81530static PyObject *f2py_rout__flapack_dorgrq(const PyObject *capi_self,
81531 PyObject *capi_args,
81532 PyObject *capi_keywds,
81533 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
81534 PyObject * volatile capi_buildvalue = NULL((void*)0);
81535 volatile int f2py_success = 1;
81536/*decl*/
81537
81538 int m = 0;
81539 int n = 0;
81540 int k = 0;
81541 double *a = NULL((void*)0);
81542 npy_intp a_Dims[2] = {-1, -1};
81543 const int a_Rank = 2;
81544 PyArrayObject *capi_a_tmp = NULL((void*)0);
81545 int capi_a_intent = 0;
81546 int capi_overwrite_a = 0;
81547 PyObject *a_capi = Py_None(&_Py_NoneStruct);
81548 double *tau = NULL((void*)0);
81549 npy_intp tau_Dims[1] = {-1};
81550 const int tau_Rank = 1;
81551 PyArrayObject *capi_tau_tmp = NULL((void*)0);
81552 int capi_tau_intent = 0;
81553 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
81554 double *work = NULL((void*)0);
81555 npy_intp work_Dims[1] = {-1};
81556 const int work_Rank = 1;
81557 PyArrayObject *capi_work_tmp = NULL((void*)0);
81558 int capi_work_intent = 0;
81559 int lwork = 0;
81560 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
81561 int info = 0;
81562 static char *capi_kwlist[] = {"a","tau","lwork","overwrite_a",NULL((void*)0)};
81563
81564/*routdebugenter*/
81565#ifdef F2PY_REPORT_ATEXIT
81566f2py_start_clock();
81567#endif
81568 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
81569 "OO|Oi:_flapack.dorgrq",\
81570 capi_kwlist,&a_capi,&tau_capi,&lwork_capi,&capi_overwrite_a))
81571 return NULL((void*)0);
81572/*frompyobj*/
81573 /* Processing variable a */
81574 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
81575 ;
81576 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
81577 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
81578 if (capi_a_tmp == NULL((void*)0)) {
81579 if (!PyErr_Occurred())
81580 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dorgrq to C/Fortran array" );
81581 } else {
81582 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
81583
81584 /* Processing variable tau */
81585 ;
81586 capi_tau_intent |= F2PY_INTENT_IN1;
81587 capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,tau_capi);
81588 if (capi_tau_tmp == NULL((void*)0)) {
81589 if (!PyErr_Occurred())
81590 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.dorgrq to C/Fortran array" );
81591 } else {
81592 tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
81593
81594 /* Processing variable info */
81595 /* Processing variable m */
81596 m = shape(a,0)a_Dims[0];
81597 /* Processing variable n */
81598 n = shape(a,1)a_Dims[1];
81599 /* Processing variable k */
81600 k = shape(tau,0)tau_Dims[0];
81601 /* Processing variable lwork */
81602 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*m,1)((3*m > 1) ? (3*m) : (1)); else
81603 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dorgrq() 1st keyword (lwork) can't be converted to int");
81604 if (f2py_success) {
81605 CHECKSCALAR(lwork>=m||lwork==-1,"lwork>=m||lwork==-1","1st keyword lwork","dorgrq:lwork=%d",lwork)if (!(lwork>=m||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dorgrq:lwork=%d", "(""lwork>=m||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
81606 /* Processing variable work */
81607 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
81608 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
81609 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
81610 if (capi_work_tmp == NULL((void*)0)) {
81611 if (!PyErr_Occurred())
81612 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dorgrq to C/Fortran array" );
81613 } else {
81614 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
81615
81616/*end of frompyobj*/
81617#ifdef F2PY_REPORT_ATEXIT
81618f2py_start_call_clock();
81619#endif
81620/*callfortranroutine*/
81621 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
81622 (*f2py_func)(&m,&n,&k,a,&m,tau,work,&lwork,&info) ;
81623 /*(*f2py_func)(&m,&n,&k,a,tau,work,&lwork,&info);*/
81624 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
81625if (PyErr_Occurred())
81626 f2py_success = 0;
81627#ifdef F2PY_REPORT_ATEXIT
81628f2py_stop_call_clock();
81629#endif
81630/*end of callfortranroutine*/
81631 if (f2py_success) {
81632/*pyobjfrom*/
81633/*end of pyobjfrom*/
81634 CFUNCSMESS("Building return value.\n");
81635 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_work_tmp,info);
81636/*closepyobjfrom*/
81637/*end of closepyobjfrom*/
81638 } /*if (f2py_success) after callfortranroutine*/
81639/*cleanupfrompyobj*/
81640 } /*if (capi_work_tmp == NULL) ... else of work*/
81641 /* End of cleaning variable work */
81642 } /*CHECKSCALAR(lwork>=m||lwork==-1)*/
81643 } /*if (f2py_success) of lwork*/
81644 /* End of cleaning variable lwork */
81645 /* End of cleaning variable k */
81646 /* End of cleaning variable n */
81647 /* End of cleaning variable m */
81648 /* End of cleaning variable info */
81649 if((PyObject *)capi_tau_tmp!=tau_capi) {
81650 Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); }
81651 } /*if (capi_tau_tmp == NULL) ... else of tau*/
81652 /* End of cleaning variable tau */
81653 } /*if (capi_a_tmp == NULL) ... else of a*/
81654 /* End of cleaning variable a */
81655/*end of cleanupfrompyobj*/
81656 if (capi_buildvalue == NULL((void*)0)) {
81657/*routdebugfailure*/
81658 } else {
81659/*routdebugleave*/
81660 }
81661 CFUNCSMESS("Freeing memory.\n");
81662/*freemem*/
81663#ifdef F2PY_REPORT_ATEXIT
81664f2py_stop_clock();
81665#endif
81666 return capi_buildvalue;
81667}
81668/******************************* end of dorgrq *******************************/
81669
81670/*********************************** cungrq ***********************************/
81671static char doc_f2py_rout__flapack_cungrq[] = "\
81672q,work,info = cungrq(a,tau,[lwork,overwrite_a])\n\nWrapper for ``cungrq``.\
81673\n\nParameters\n----------\n"
81674"a : input rank-2 array('F') with bounds (m,n)\n"
81675"tau : input rank-1 array('F') with bounds (k)\n"
81676"\nOther Parameters\n----------------\n"
81677"overwrite_a : input int, optional\n Default: 0\n"
81678"lwork : input int, optional\n Default: max(3*m,1)\n"
81679"\nReturns\n-------\n"
81680"q : rank-2 array('F') with bounds (m,n) and a storage\n"
81681"work : rank-1 array('F') with bounds (MAX(lwork,1))\n"
81682"info : int";
81683/* extern void F_FUNC(cungrq,CUNGRQ)(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */
81684static PyObject *f2py_rout__flapack_cungrq(const PyObject *capi_self,
81685 PyObject *capi_args,
81686 PyObject *capi_keywds,
81687 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
81688 PyObject * volatile capi_buildvalue = NULL((void*)0);
81689 volatile int f2py_success = 1;
81690/*decl*/
81691
81692 int m = 0;
81693 int n = 0;
81694 int k = 0;
81695 complex_float *a = NULL((void*)0);
81696 npy_intp a_Dims[2] = {-1, -1};
81697 const int a_Rank = 2;
81698 PyArrayObject *capi_a_tmp = NULL((void*)0);
81699 int capi_a_intent = 0;
81700 int capi_overwrite_a = 0;
81701 PyObject *a_capi = Py_None(&_Py_NoneStruct);
81702 complex_float *tau = NULL((void*)0);
81703 npy_intp tau_Dims[1] = {-1};
81704 const int tau_Rank = 1;
81705 PyArrayObject *capi_tau_tmp = NULL((void*)0);
81706 int capi_tau_intent = 0;
81707 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
81708 complex_float *work = NULL((void*)0);
81709 npy_intp work_Dims[1] = {-1};
81710 const int work_Rank = 1;
81711 PyArrayObject *capi_work_tmp = NULL((void*)0);
81712 int capi_work_intent = 0;
81713 int lwork = 0;
81714 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
81715 int info = 0;
81716 static char *capi_kwlist[] = {"a","tau","lwork","overwrite_a",NULL((void*)0)};
81717
81718/*routdebugenter*/
81719#ifdef F2PY_REPORT_ATEXIT
81720f2py_start_clock();
81721#endif
81722 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
81723 "OO|Oi:_flapack.cungrq",\
81724 capi_kwlist,&a_capi,&tau_capi,&lwork_capi,&capi_overwrite_a))
81725 return NULL((void*)0);
81726/*frompyobj*/
81727 /* Processing variable a */
81728 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
81729 ;
81730 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
81731 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
81732 if (capi_a_tmp == NULL((void*)0)) {
81733 if (!PyErr_Occurred())
81734 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cungrq to C/Fortran array" );
81735 } else {
81736 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
81737
81738 /* Processing variable tau */
81739 ;
81740 capi_tau_intent |= F2PY_INTENT_IN1;
81741 capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,tau_capi);
81742 if (capi_tau_tmp == NULL((void*)0)) {
81743 if (!PyErr_Occurred())
81744 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.cungrq to C/Fortran array" );
81745 } else {
81746 tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
81747
81748 /* Processing variable info */
81749 /* Processing variable m */
81750 m = shape(a,0)a_Dims[0];
81751 /* Processing variable n */
81752 n = shape(a,1)a_Dims[1];
81753 /* Processing variable k */
81754 k = shape(tau,0)tau_Dims[0];
81755 /* Processing variable lwork */
81756 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*m,1)((3*m > 1) ? (3*m) : (1)); else
81757 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cungrq() 1st keyword (lwork) can't be converted to int");
81758 if (f2py_success) {
81759 CHECKSCALAR(lwork>=m||lwork==-1,"lwork>=m||lwork==-1","1st keyword lwork","cungrq:lwork=%d",lwork)if (!(lwork>=m||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cungrq:lwork=%d", "(""lwork>=m||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
81760 /* Processing variable work */
81761 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
81762 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
81763 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
81764 if (capi_work_tmp == NULL((void*)0)) {
81765 if (!PyErr_Occurred())
81766 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cungrq to C/Fortran array" );
81767 } else {
81768 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
81769
81770/*end of frompyobj*/
81771#ifdef F2PY_REPORT_ATEXIT
81772f2py_start_call_clock();
81773#endif
81774/*callfortranroutine*/
81775 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
81776 (*f2py_func)(&m,&n,&k,a,&m,tau,work,&lwork,&info) ;
81777 /*(*f2py_func)(&m,&n,&k,a,tau,work,&lwork,&info);*/
81778 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
81779if (PyErr_Occurred())
81780 f2py_success = 0;
81781#ifdef F2PY_REPORT_ATEXIT
81782f2py_stop_call_clock();
81783#endif
81784/*end of callfortranroutine*/
81785 if (f2py_success) {
81786/*pyobjfrom*/
81787/*end of pyobjfrom*/
81788 CFUNCSMESS("Building return value.\n");
81789 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_work_tmp,info);
81790/*closepyobjfrom*/
81791/*end of closepyobjfrom*/
81792 } /*if (f2py_success) after callfortranroutine*/
81793/*cleanupfrompyobj*/
81794 } /*if (capi_work_tmp == NULL) ... else of work*/
81795 /* End of cleaning variable work */
81796 } /*CHECKSCALAR(lwork>=m||lwork==-1)*/
81797 } /*if (f2py_success) of lwork*/
81798 /* End of cleaning variable lwork */
81799 /* End of cleaning variable k */
81800 /* End of cleaning variable n */
81801 /* End of cleaning variable m */
81802 /* End of cleaning variable info */
81803 if((PyObject *)capi_tau_tmp!=tau_capi) {
81804 Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); }
81805 } /*if (capi_tau_tmp == NULL) ... else of tau*/
81806 /* End of cleaning variable tau */
81807 } /*if (capi_a_tmp == NULL) ... else of a*/
81808 /* End of cleaning variable a */
81809/*end of cleanupfrompyobj*/
81810 if (capi_buildvalue == NULL((void*)0)) {
81811/*routdebugfailure*/
81812 } else {
81813/*routdebugleave*/
81814 }
81815 CFUNCSMESS("Freeing memory.\n");
81816/*freemem*/
81817#ifdef F2PY_REPORT_ATEXIT
81818f2py_stop_clock();
81819#endif
81820 return capi_buildvalue;
81821}
81822/******************************* end of cungrq *******************************/
81823
81824/*********************************** zungrq ***********************************/
81825static char doc_f2py_rout__flapack_zungrq[] = "\
81826q,work,info = zungrq(a,tau,[lwork,overwrite_a])\n\nWrapper for ``zungrq``.\
81827\n\nParameters\n----------\n"
81828"a : input rank-2 array('D') with bounds (m,n)\n"
81829"tau : input rank-1 array('D') with bounds (k)\n"
81830"\nOther Parameters\n----------------\n"
81831"overwrite_a : input int, optional\n Default: 0\n"
81832"lwork : input int, optional\n Default: max(3*m,1)\n"
81833"\nReturns\n-------\n"
81834"q : rank-2 array('D') with bounds (m,n) and a storage\n"
81835"work : rank-1 array('D') with bounds (MAX(lwork,1))\n"
81836"info : int";
81837/* extern void F_FUNC(zungrq,ZUNGRQ)(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */
81838static PyObject *f2py_rout__flapack_zungrq(const PyObject *capi_self,
81839 PyObject *capi_args,
81840 PyObject *capi_keywds,
81841 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
81842 PyObject * volatile capi_buildvalue = NULL((void*)0);
81843 volatile int f2py_success = 1;
81844/*decl*/
81845
81846 int m = 0;
81847 int n = 0;
81848 int k = 0;
81849 complex_double *a = NULL((void*)0);
81850 npy_intp a_Dims[2] = {-1, -1};
81851 const int a_Rank = 2;
81852 PyArrayObject *capi_a_tmp = NULL((void*)0);
81853 int capi_a_intent = 0;
81854 int capi_overwrite_a = 0;
81855 PyObject *a_capi = Py_None(&_Py_NoneStruct);
81856 complex_double *tau = NULL((void*)0);
81857 npy_intp tau_Dims[1] = {-1};
81858 const int tau_Rank = 1;
81859 PyArrayObject *capi_tau_tmp = NULL((void*)0);
81860 int capi_tau_intent = 0;
81861 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
81862 complex_double *work = NULL((void*)0);
81863 npy_intp work_Dims[1] = {-1};
81864 const int work_Rank = 1;
81865 PyArrayObject *capi_work_tmp = NULL((void*)0);
81866 int capi_work_intent = 0;
81867 int lwork = 0;
81868 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
81869 int info = 0;
81870 static char *capi_kwlist[] = {"a","tau","lwork","overwrite_a",NULL((void*)0)};
81871
81872/*routdebugenter*/
81873#ifdef F2PY_REPORT_ATEXIT
81874f2py_start_clock();
81875#endif
81876 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
81877 "OO|Oi:_flapack.zungrq",\
81878 capi_kwlist,&a_capi,&tau_capi,&lwork_capi,&capi_overwrite_a))
81879 return NULL((void*)0);
81880/*frompyobj*/
81881 /* Processing variable a */
81882 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
81883 ;
81884 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
81885 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
81886 if (capi_a_tmp == NULL((void*)0)) {
81887 if (!PyErr_Occurred())
81888 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zungrq to C/Fortran array" );
81889 } else {
81890 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
81891
81892 /* Processing variable tau */
81893 ;
81894 capi_tau_intent |= F2PY_INTENT_IN1;
81895 capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,tau_capi);
81896 if (capi_tau_tmp == NULL((void*)0)) {
81897 if (!PyErr_Occurred())
81898 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `tau' of _flapack.zungrq to C/Fortran array" );
81899 } else {
81900 tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
81901
81902 /* Processing variable info */
81903 /* Processing variable m */
81904 m = shape(a,0)a_Dims[0];
81905 /* Processing variable n */
81906 n = shape(a,1)a_Dims[1];
81907 /* Processing variable k */
81908 k = shape(tau,0)tau_Dims[0];
81909 /* Processing variable lwork */
81910 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(3*m,1)((3*m > 1) ? (3*m) : (1)); else
81911 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zungrq() 1st keyword (lwork) can't be converted to int");
81912 if (f2py_success) {
81913 CHECKSCALAR(lwork>=m||lwork==-1,"lwork>=m||lwork==-1","1st keyword lwork","zungrq:lwork=%d",lwork)if (!(lwork>=m||lwork==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zungrq:lwork=%d", "(""lwork>=m||lwork==-1"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
81914 /* Processing variable work */
81915 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
81916 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
81917 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
81918 if (capi_work_tmp == NULL((void*)0)) {
81919 if (!PyErr_Occurred())
81920 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zungrq to C/Fortran array" );
81921 } else {
81922 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
81923
81924/*end of frompyobj*/
81925#ifdef F2PY_REPORT_ATEXIT
81926f2py_start_call_clock();
81927#endif
81928/*callfortranroutine*/
81929 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
81930 (*f2py_func)(&m,&n,&k,a,&m,tau,work,&lwork,&info) ;
81931 /*(*f2py_func)(&m,&n,&k,a,tau,work,&lwork,&info);*/
81932 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
81933if (PyErr_Occurred())
81934 f2py_success = 0;
81935#ifdef F2PY_REPORT_ATEXIT
81936f2py_stop_call_clock();
81937#endif
81938/*end of callfortranroutine*/
81939 if (f2py_success) {
81940/*pyobjfrom*/
81941/*end of pyobjfrom*/
81942 CFUNCSMESS("Building return value.\n");
81943 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_work_tmp,info);
81944/*closepyobjfrom*/
81945/*end of closepyobjfrom*/
81946 } /*if (f2py_success) after callfortranroutine*/
81947/*cleanupfrompyobj*/
81948 } /*if (capi_work_tmp == NULL) ... else of work*/
81949 /* End of cleaning variable work */
81950 } /*CHECKSCALAR(lwork>=m||lwork==-1)*/
81951 } /*if (f2py_success) of lwork*/
81952 /* End of cleaning variable lwork */
81953 /* End of cleaning variable k */
81954 /* End of cleaning variable n */
81955 /* End of cleaning variable m */
81956 /* End of cleaning variable info */
81957 if((PyObject *)capi_tau_tmp!=tau_capi) {
81958 Py_XDECREF(capi_tau_tmp)_Py_XDECREF(((PyObject*)(capi_tau_tmp))); }
81959 } /*if (capi_tau_tmp == NULL) ... else of tau*/
81960 /* End of cleaning variable tau */
81961 } /*if (capi_a_tmp == NULL) ... else of a*/
81962 /* End of cleaning variable a */
81963/*end of cleanupfrompyobj*/
81964 if (capi_buildvalue == NULL((void*)0)) {
81965/*routdebugfailure*/
81966 } else {
81967/*routdebugleave*/
81968 }
81969 CFUNCSMESS("Freeing memory.\n");
81970/*freemem*/
81971#ifdef F2PY_REPORT_ATEXIT
81972f2py_stop_clock();
81973#endif
81974 return capi_buildvalue;
81975}
81976/******************************* end of zungrq *******************************/
81977
81978/*********************************** strtri ***********************************/
81979static char doc_f2py_rout__flapack_strtri[] = "\
81980inv_c,info = strtri(c,[lower,unitdiag,overwrite_c])\n\nWrapper for ``strtri``.\
81981\n\nParameters\n----------\n"
81982"c : input rank-2 array('f') with bounds (n,n)\n"
81983"\nOther Parameters\n----------------\n"
81984"overwrite_c : input int, optional\n Default: 0\n"
81985"lower : input int, optional\n Default: 0\n"
81986"unitdiag : input int, optional\n Default: 0\n"
81987"\nReturns\n-------\n"
81988"inv_c : rank-2 array('f') with bounds (n,n) and c storage\n"
81989"info : int";
81990/* extern void F_FUNC(strtri,STRTRI)(char*,char*,F_INT*,float*,F_INT*,F_INT* ); */
81991static PyObject *f2py_rout__flapack_strtri(const PyObject *capi_self,
81992 PyObject *capi_args,
81993 PyObject *capi_keywds,
81994 void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,F_INTint* )) {
81995 PyObject * volatile capi_buildvalue = NULL((void*)0);
81996 volatile int f2py_success = 1;
81997/*decl*/
81998
81999 int n = 0;
82000 float *c = NULL((void*)0);
82001 npy_intp c_Dims[2] = {-1, -1};
82002 const int c_Rank = 2;
82003 PyArrayObject *capi_c_tmp = NULL((void*)0);
82004 int capi_c_intent = 0;
82005 int capi_overwrite_c = 0;
82006 PyObject *c_capi = Py_None(&_Py_NoneStruct);
82007 int info = 0;
82008 int lower = 0;
82009 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
82010 int unitdiag = 0;
82011 PyObject *unitdiag_capi = Py_None(&_Py_NoneStruct);
82012 static char *capi_kwlist[] = {"c","lower","unitdiag","overwrite_c",NULL((void*)0)};
82013
82014/*routdebugenter*/
82015#ifdef F2PY_REPORT_ATEXIT
82016f2py_start_clock();
82017#endif
82018 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
82019 "O|OOi:_flapack.strtri",\
82020 capi_kwlist,&c_capi,&lower_capi,&unitdiag_capi,&capi_overwrite_c))
82021 return NULL((void*)0);
82022/*frompyobj*/
82023 /* Processing variable lower */
82024 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
82025 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.strtri() 1st keyword (lower) can't be converted to int");
82026 if (f2py_success) {
82027 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","strtri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""strtri:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
82028 /* Processing variable unitdiag */
82029 if (unitdiag_capi == Py_None(&_Py_NoneStruct)) unitdiag = 0; else
82030 f2py_success = int_from_pyobj(&unitdiag,unitdiag_capi,"_flapack.strtri() 2nd keyword (unitdiag) can't be converted to int");
82031 if (f2py_success) {
82032 CHECKSCALAR(unitdiag==0||unitdiag==1,"unitdiag==0||unitdiag==1","2nd keyword unitdiag","strtri:unitdiag=%d",unitdiag)if (!(unitdiag==0||unitdiag==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""strtri:unitdiag=%d", "(""unitdiag==0||unitdiag==1"") failed for "
"2nd keyword unitdiag", unitdiag); PyErr_SetString(_flapack_error
,errstring); } else
{
82033 /* Processing variable c */
82034 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
82035 ;
82036 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
82037 capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
82038 if (capi_c_tmp == NULL((void*)0)) {
82039 if (!PyErr_Occurred())
82040 PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.strtri to C/Fortran array" );
82041 } else {
82042 c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
82043
82044 CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c");
} else
{
82045 /* Processing variable info */
82046 /* Processing variable n */
82047 n = shape(c,0)c_Dims[0];
82048/*end of frompyobj*/
82049#ifdef F2PY_REPORT_ATEXIT
82050f2py_start_call_clock();
82051#endif
82052/*callfortranroutine*/
82053 (*f2py_func)((lower?"L":"U"),(unitdiag?"U":"N"),&n,c,&n,&info) ;
82054 /*(*f2py_func)(&n,c,&info,&lower,&unitdiag);*/
82055if (PyErr_Occurred())
82056 f2py_success = 0;
82057#ifdef F2PY_REPORT_ATEXIT
82058f2py_stop_call_clock();
82059#endif
82060/*end of callfortranroutine*/
82061 if (f2py_success) {
82062/*pyobjfrom*/
82063/*end of pyobjfrom*/
82064 CFUNCSMESS("Building return value.\n");
82065 capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info);
82066/*closepyobjfrom*/
82067/*end of closepyobjfrom*/
82068 } /*if (f2py_success) after callfortranroutine*/
82069/*cleanupfrompyobj*/
82070 /* End of cleaning variable n */
82071 /* End of cleaning variable info */
82072 } /*CHECKARRAY(shape(c,0)==shape(c,1))*/
82073 } /*if (capi_c_tmp == NULL) ... else of c*/
82074 /* End of cleaning variable c */
82075 } /*CHECKSCALAR(unitdiag==0||unitdiag==1)*/
82076 } /*if (f2py_success) of unitdiag*/
82077 /* End of cleaning variable unitdiag */
82078 } /*CHECKSCALAR(lower==0||lower==1)*/
82079 } /*if (f2py_success) of lower*/
82080 /* End of cleaning variable lower */
82081/*end of cleanupfrompyobj*/
82082 if (capi_buildvalue == NULL((void*)0)) {
82083/*routdebugfailure*/
82084 } else {
82085/*routdebugleave*/
82086 }
82087 CFUNCSMESS("Freeing memory.\n");
82088/*freemem*/
82089#ifdef F2PY_REPORT_ATEXIT
82090f2py_stop_clock();
82091#endif
82092 return capi_buildvalue;
82093}
82094/******************************* end of strtri *******************************/
82095
82096/*********************************** dtrtri ***********************************/
82097static char doc_f2py_rout__flapack_dtrtri[] = "\
82098inv_c,info = dtrtri(c,[lower,unitdiag,overwrite_c])\n\nWrapper for ``dtrtri``.\
82099\n\nParameters\n----------\n"
82100"c : input rank-2 array('d') with bounds (n,n)\n"
82101"\nOther Parameters\n----------------\n"
82102"overwrite_c : input int, optional\n Default: 0\n"
82103"lower : input int, optional\n Default: 0\n"
82104"unitdiag : input int, optional\n Default: 0\n"
82105"\nReturns\n-------\n"
82106"inv_c : rank-2 array('d') with bounds (n,n) and c storage\n"
82107"info : int";
82108/* extern void F_FUNC(dtrtri,DTRTRI)(char*,char*,F_INT*,double*,F_INT*,F_INT* ); */
82109static PyObject *f2py_rout__flapack_dtrtri(const PyObject *capi_self,
82110 PyObject *capi_args,
82111 PyObject *capi_keywds,
82112 void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,F_INTint* )) {
82113 PyObject * volatile capi_buildvalue = NULL((void*)0);
82114 volatile int f2py_success = 1;
82115/*decl*/
82116
82117 int n = 0;
82118 double *c = NULL((void*)0);
82119 npy_intp c_Dims[2] = {-1, -1};
82120 const int c_Rank = 2;
82121 PyArrayObject *capi_c_tmp = NULL((void*)0);
82122 int capi_c_intent = 0;
82123 int capi_overwrite_c = 0;
82124 PyObject *c_capi = Py_None(&_Py_NoneStruct);
82125 int info = 0;
82126 int lower = 0;
82127 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
82128 int unitdiag = 0;
82129 PyObject *unitdiag_capi = Py_None(&_Py_NoneStruct);
82130 static char *capi_kwlist[] = {"c","lower","unitdiag","overwrite_c",NULL((void*)0)};
82131
82132/*routdebugenter*/
82133#ifdef F2PY_REPORT_ATEXIT
82134f2py_start_clock();
82135#endif
82136 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
82137 "O|OOi:_flapack.dtrtri",\
82138 capi_kwlist,&c_capi,&lower_capi,&unitdiag_capi,&capi_overwrite_c))
82139 return NULL((void*)0);
82140/*frompyobj*/
82141 /* Processing variable lower */
82142 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
82143 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dtrtri() 1st keyword (lower) can't be converted to int");
82144 if (f2py_success) {
82145 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dtrtri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtrtri:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
82146 /* Processing variable unitdiag */
82147 if (unitdiag_capi == Py_None(&_Py_NoneStruct)) unitdiag = 0; else
82148 f2py_success = int_from_pyobj(&unitdiag,unitdiag_capi,"_flapack.dtrtri() 2nd keyword (unitdiag) can't be converted to int");
82149 if (f2py_success) {
82150 CHECKSCALAR(unitdiag==0||unitdiag==1,"unitdiag==0||unitdiag==1","2nd keyword unitdiag","dtrtri:unitdiag=%d",unitdiag)if (!(unitdiag==0||unitdiag==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtrtri:unitdiag=%d", "(""unitdiag==0||unitdiag==1"") failed for "
"2nd keyword unitdiag", unitdiag); PyErr_SetString(_flapack_error
,errstring); } else
{
82151 /* Processing variable c */
82152 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
82153 ;
82154 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
82155 capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
82156 if (capi_c_tmp == NULL((void*)0)) {
82157 if (!PyErr_Occurred())
82158 PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.dtrtri to C/Fortran array" );
82159 } else {
82160 c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
82161
82162 CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c");
} else
{
82163 /* Processing variable info */
82164 /* Processing variable n */
82165 n = shape(c,0)c_Dims[0];
82166/*end of frompyobj*/
82167#ifdef F2PY_REPORT_ATEXIT
82168f2py_start_call_clock();
82169#endif
82170/*callfortranroutine*/
82171 (*f2py_func)((lower?"L":"U"),(unitdiag?"U":"N"),&n,c,&n,&info) ;
82172 /*(*f2py_func)(&n,c,&info,&lower,&unitdiag);*/
82173if (PyErr_Occurred())
82174 f2py_success = 0;
82175#ifdef F2PY_REPORT_ATEXIT
82176f2py_stop_call_clock();
82177#endif
82178/*end of callfortranroutine*/
82179 if (f2py_success) {
82180/*pyobjfrom*/
82181/*end of pyobjfrom*/
82182 CFUNCSMESS("Building return value.\n");
82183 capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info);
82184/*closepyobjfrom*/
82185/*end of closepyobjfrom*/
82186 } /*if (f2py_success) after callfortranroutine*/
82187/*cleanupfrompyobj*/
82188 /* End of cleaning variable n */
82189 /* End of cleaning variable info */
82190 } /*CHECKARRAY(shape(c,0)==shape(c,1))*/
82191 } /*if (capi_c_tmp == NULL) ... else of c*/
82192 /* End of cleaning variable c */
82193 } /*CHECKSCALAR(unitdiag==0||unitdiag==1)*/
82194 } /*if (f2py_success) of unitdiag*/
82195 /* End of cleaning variable unitdiag */
82196 } /*CHECKSCALAR(lower==0||lower==1)*/
82197 } /*if (f2py_success) of lower*/
82198 /* End of cleaning variable lower */
82199/*end of cleanupfrompyobj*/
82200 if (capi_buildvalue == NULL((void*)0)) {
82201/*routdebugfailure*/
82202 } else {
82203/*routdebugleave*/
82204 }
82205 CFUNCSMESS("Freeing memory.\n");
82206/*freemem*/
82207#ifdef F2PY_REPORT_ATEXIT
82208f2py_stop_clock();
82209#endif
82210 return capi_buildvalue;
82211}
82212/******************************* end of dtrtri *******************************/
82213
82214/*********************************** ctrtri ***********************************/
82215static char doc_f2py_rout__flapack_ctrtri[] = "\
82216inv_c,info = ctrtri(c,[lower,unitdiag,overwrite_c])\n\nWrapper for ``ctrtri``.\
82217\n\nParameters\n----------\n"
82218"c : input rank-2 array('F') with bounds (n,n)\n"
82219"\nOther Parameters\n----------------\n"
82220"overwrite_c : input int, optional\n Default: 0\n"
82221"lower : input int, optional\n Default: 0\n"
82222"unitdiag : input int, optional\n Default: 0\n"
82223"\nReturns\n-------\n"
82224"inv_c : rank-2 array('F') with bounds (n,n) and c storage\n"
82225"info : int";
82226/* extern void F_FUNC(ctrtri,CTRTRI)(char*,char*,F_INT*,complex_float*,F_INT*,F_INT* ); */
82227static PyObject *f2py_rout__flapack_ctrtri(const PyObject *capi_self,
82228 PyObject *capi_args,
82229 PyObject *capi_keywds,
82230 void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
82231 PyObject * volatile capi_buildvalue = NULL((void*)0);
82232 volatile int f2py_success = 1;
82233/*decl*/
82234
82235 int n = 0;
82236 complex_float *c = NULL((void*)0);
82237 npy_intp c_Dims[2] = {-1, -1};
82238 const int c_Rank = 2;
82239 PyArrayObject *capi_c_tmp = NULL((void*)0);
82240 int capi_c_intent = 0;
82241 int capi_overwrite_c = 0;
82242 PyObject *c_capi = Py_None(&_Py_NoneStruct);
82243 int info = 0;
82244 int lower = 0;
82245 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
82246 int unitdiag = 0;
82247 PyObject *unitdiag_capi = Py_None(&_Py_NoneStruct);
82248 static char *capi_kwlist[] = {"c","lower","unitdiag","overwrite_c",NULL((void*)0)};
82249
82250/*routdebugenter*/
82251#ifdef F2PY_REPORT_ATEXIT
82252f2py_start_clock();
82253#endif
82254 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
82255 "O|OOi:_flapack.ctrtri",\
82256 capi_kwlist,&c_capi,&lower_capi,&unitdiag_capi,&capi_overwrite_c))
82257 return NULL((void*)0);
82258/*frompyobj*/
82259 /* Processing variable lower */
82260 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
82261 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ctrtri() 1st keyword (lower) can't be converted to int");
82262 if (f2py_success) {
82263 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ctrtri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctrtri:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
82264 /* Processing variable unitdiag */
82265 if (unitdiag_capi == Py_None(&_Py_NoneStruct)) unitdiag = 0; else
82266 f2py_success = int_from_pyobj(&unitdiag,unitdiag_capi,"_flapack.ctrtri() 2nd keyword (unitdiag) can't be converted to int");
82267 if (f2py_success) {
82268 CHECKSCALAR(unitdiag==0||unitdiag==1,"unitdiag==0||unitdiag==1","2nd keyword unitdiag","ctrtri:unitdiag=%d",unitdiag)if (!(unitdiag==0||unitdiag==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctrtri:unitdiag=%d", "(""unitdiag==0||unitdiag==1"") failed for "
"2nd keyword unitdiag", unitdiag); PyErr_SetString(_flapack_error
,errstring); } else
{
82269 /* Processing variable c */
82270 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
82271 ;
82272 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
82273 capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
82274 if (capi_c_tmp == NULL((void*)0)) {
82275 if (!PyErr_Occurred())
82276 PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.ctrtri to C/Fortran array" );
82277 } else {
82278 c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
82279
82280 CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c");
} else
{
82281 /* Processing variable info */
82282 /* Processing variable n */
82283 n = shape(c,0)c_Dims[0];
82284/*end of frompyobj*/
82285#ifdef F2PY_REPORT_ATEXIT
82286f2py_start_call_clock();
82287#endif
82288/*callfortranroutine*/
82289 (*f2py_func)((lower?"L":"U"),(unitdiag?"U":"N"),&n,c,&n,&info) ;
82290 /*(*f2py_func)(&n,c,&info,&lower,&unitdiag);*/
82291if (PyErr_Occurred())
82292 f2py_success = 0;
82293#ifdef F2PY_REPORT_ATEXIT
82294f2py_stop_call_clock();
82295#endif
82296/*end of callfortranroutine*/
82297 if (f2py_success) {
82298/*pyobjfrom*/
82299/*end of pyobjfrom*/
82300 CFUNCSMESS("Building return value.\n");
82301 capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info);
82302/*closepyobjfrom*/
82303/*end of closepyobjfrom*/
82304 } /*if (f2py_success) after callfortranroutine*/
82305/*cleanupfrompyobj*/
82306 /* End of cleaning variable n */
82307 /* End of cleaning variable info */
82308 } /*CHECKARRAY(shape(c,0)==shape(c,1))*/
82309 } /*if (capi_c_tmp == NULL) ... else of c*/
82310 /* End of cleaning variable c */
82311 } /*CHECKSCALAR(unitdiag==0||unitdiag==1)*/
82312 } /*if (f2py_success) of unitdiag*/
82313 /* End of cleaning variable unitdiag */
82314 } /*CHECKSCALAR(lower==0||lower==1)*/
82315 } /*if (f2py_success) of lower*/
82316 /* End of cleaning variable lower */
82317/*end of cleanupfrompyobj*/
82318 if (capi_buildvalue == NULL((void*)0)) {
82319/*routdebugfailure*/
82320 } else {
82321/*routdebugleave*/
82322 }
82323 CFUNCSMESS("Freeing memory.\n");
82324/*freemem*/
82325#ifdef F2PY_REPORT_ATEXIT
82326f2py_stop_clock();
82327#endif
82328 return capi_buildvalue;
82329}
82330/******************************* end of ctrtri *******************************/
82331
82332/*********************************** ztrtri ***********************************/
82333static char doc_f2py_rout__flapack_ztrtri[] = "\
82334inv_c,info = ztrtri(c,[lower,unitdiag,overwrite_c])\n\nWrapper for ``ztrtri``.\
82335\n\nParameters\n----------\n"
82336"c : input rank-2 array('D') with bounds (n,n)\n"
82337"\nOther Parameters\n----------------\n"
82338"overwrite_c : input int, optional\n Default: 0\n"
82339"lower : input int, optional\n Default: 0\n"
82340"unitdiag : input int, optional\n Default: 0\n"
82341"\nReturns\n-------\n"
82342"inv_c : rank-2 array('D') with bounds (n,n) and c storage\n"
82343"info : int";
82344/* extern void F_FUNC(ztrtri,ZTRTRI)(char*,char*,F_INT*,complex_double*,F_INT*,F_INT* ); */
82345static PyObject *f2py_rout__flapack_ztrtri(const PyObject *capi_self,
82346 PyObject *capi_args,
82347 PyObject *capi_keywds,
82348 void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
82349 PyObject * volatile capi_buildvalue = NULL((void*)0);
82350 volatile int f2py_success = 1;
82351/*decl*/
82352
82353 int n = 0;
82354 complex_double *c = NULL((void*)0);
82355 npy_intp c_Dims[2] = {-1, -1};
82356 const int c_Rank = 2;
82357 PyArrayObject *capi_c_tmp = NULL((void*)0);
82358 int capi_c_intent = 0;
82359 int capi_overwrite_c = 0;
82360 PyObject *c_capi = Py_None(&_Py_NoneStruct);
82361 int info = 0;
82362 int lower = 0;
82363 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
82364 int unitdiag = 0;
82365 PyObject *unitdiag_capi = Py_None(&_Py_NoneStruct);
82366 static char *capi_kwlist[] = {"c","lower","unitdiag","overwrite_c",NULL((void*)0)};
82367
82368/*routdebugenter*/
82369#ifdef F2PY_REPORT_ATEXIT
82370f2py_start_clock();
82371#endif
82372 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
82373 "O|OOi:_flapack.ztrtri",\
82374 capi_kwlist,&c_capi,&lower_capi,&unitdiag_capi,&capi_overwrite_c))
82375 return NULL((void*)0);
82376/*frompyobj*/
82377 /* Processing variable lower */
82378 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
82379 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ztrtri() 1st keyword (lower) can't be converted to int");
82380 if (f2py_success) {
82381 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","ztrtri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztrtri:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
82382 /* Processing variable unitdiag */
82383 if (unitdiag_capi == Py_None(&_Py_NoneStruct)) unitdiag = 0; else
82384 f2py_success = int_from_pyobj(&unitdiag,unitdiag_capi,"_flapack.ztrtri() 2nd keyword (unitdiag) can't be converted to int");
82385 if (f2py_success) {
82386 CHECKSCALAR(unitdiag==0||unitdiag==1,"unitdiag==0||unitdiag==1","2nd keyword unitdiag","ztrtri:unitdiag=%d",unitdiag)if (!(unitdiag==0||unitdiag==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztrtri:unitdiag=%d", "(""unitdiag==0||unitdiag==1"") failed for "
"2nd keyword unitdiag", unitdiag); PyErr_SetString(_flapack_error
,errstring); } else
{
82387 /* Processing variable c */
82388 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
82389 ;
82390 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
82391 capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
82392 if (capi_c_tmp == NULL((void*)0)) {
82393 if (!PyErr_Occurred())
82394 PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.ztrtri to C/Fortran array" );
82395 } else {
82396 c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
82397
82398 CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c");
} else
{
82399 /* Processing variable info */
82400 /* Processing variable n */
82401 n = shape(c,0)c_Dims[0];
82402/*end of frompyobj*/
82403#ifdef F2PY_REPORT_ATEXIT
82404f2py_start_call_clock();
82405#endif
82406/*callfortranroutine*/
82407 (*f2py_func)((lower?"L":"U"),(unitdiag?"U":"N"),&n,c,&n,&info) ;
82408 /*(*f2py_func)(&n,c,&info,&lower,&unitdiag);*/
82409if (PyErr_Occurred())
82410 f2py_success = 0;
82411#ifdef F2PY_REPORT_ATEXIT
82412f2py_stop_call_clock();
82413#endif
82414/*end of callfortranroutine*/
82415 if (f2py_success) {
82416/*pyobjfrom*/
82417/*end of pyobjfrom*/
82418 CFUNCSMESS("Building return value.\n");
82419 capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info);
82420/*closepyobjfrom*/
82421/*end of closepyobjfrom*/
82422 } /*if (f2py_success) after callfortranroutine*/
82423/*cleanupfrompyobj*/
82424 /* End of cleaning variable n */
82425 /* End of cleaning variable info */
82426 } /*CHECKARRAY(shape(c,0)==shape(c,1))*/
82427 } /*if (capi_c_tmp == NULL) ... else of c*/
82428 /* End of cleaning variable c */
82429 } /*CHECKSCALAR(unitdiag==0||unitdiag==1)*/
82430 } /*if (f2py_success) of unitdiag*/
82431 /* End of cleaning variable unitdiag */
82432 } /*CHECKSCALAR(lower==0||lower==1)*/
82433 } /*if (f2py_success) of lower*/
82434 /* End of cleaning variable lower */
82435/*end of cleanupfrompyobj*/
82436 if (capi_buildvalue == NULL((void*)0)) {
82437/*routdebugfailure*/
82438 } else {
82439/*routdebugleave*/
82440 }
82441 CFUNCSMESS("Freeing memory.\n");
82442/*freemem*/
82443#ifdef F2PY_REPORT_ATEXIT
82444f2py_stop_clock();
82445#endif
82446 return capi_buildvalue;
82447}
82448/******************************* end of ztrtri *******************************/
82449
82450/*********************************** strsyl ***********************************/
82451static char doc_f2py_rout__flapack_strsyl[] = "\
82452x,scale,info = strsyl(a,b,c,[trana,tranb,isgn,overwrite_c])\n\nWrapper for ``strsyl``.\
82453\n\nParameters\n----------\n"
82454"a : input rank-2 array('f') with bounds (m,m)\n"
82455"b : input rank-2 array('f') with bounds (n,n)\n"
82456"c : input rank-2 array('f') with bounds (m,n)\n"
82457"\nOther Parameters\n----------------\n"
82458"trana : input string(len=1), optional\n Default: 'N'\n"
82459"tranb : input string(len=1), optional\n Default: 'N'\n"
82460"isgn : input int, optional\n Default: 1\n"
82461"overwrite_c : input int, optional\n Default: 0\n"
82462"\nReturns\n-------\n"
82463"x : rank-2 array('f') with bounds (m,n) and c storage\n"
82464"scale : float\n"
82465"info : int";
82466/* extern void F_FUNC(strsyl,STRSYL)(char*,char*,F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT*,float*,F_INT* ); */
82467static PyObject *f2py_rout__flapack_strsyl(const PyObject *capi_self,
82468 PyObject *capi_args,
82469 PyObject *capi_keywds,
82470 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,F_INTint* )) {
82471 PyObject * volatile capi_buildvalue = NULL((void*)0);
82472 volatile int f2py_success = 1;
82473/*decl*/
82474
82475 string trana = NULL((void*)0);
82476 int slen(trana)capi_trana_len;
82477 PyObject *trana_capi = Py_None(&_Py_NoneStruct);
82478 string tranb = NULL((void*)0);
82479 int slen(tranb)capi_tranb_len;
82480 PyObject *tranb_capi = Py_None(&_Py_NoneStruct);
82481 int isgn = 0;
82482 PyObject *isgn_capi = Py_None(&_Py_NoneStruct);
82483 int m = 0;
82484 int n = 0;
82485 float *a = NULL((void*)0);
82486 npy_intp a_Dims[2] = {-1, -1};
82487 const int a_Rank = 2;
82488 PyArrayObject *capi_a_tmp = NULL((void*)0);
82489 int capi_a_intent = 0;
82490 PyObject *a_capi = Py_None(&_Py_NoneStruct);
82491 int lda = 0;
82492 float *b = NULL((void*)0);
82493 npy_intp b_Dims[2] = {-1, -1};
82494 const int b_Rank = 2;
82495 PyArrayObject *capi_b_tmp = NULL((void*)0);
82496 int capi_b_intent = 0;
82497 PyObject *b_capi = Py_None(&_Py_NoneStruct);
82498 int ldb = 0;
82499 float *c = NULL((void*)0);
82500 npy_intp c_Dims[2] = {-1, -1};
82501 const int c_Rank = 2;
82502 PyArrayObject *capi_c_tmp = NULL((void*)0);
82503 int capi_c_intent = 0;
82504 int capi_overwrite_c = 0;
82505 PyObject *c_capi = Py_None(&_Py_NoneStruct);
82506 int ldc = 0;
82507 float scale = 0;
82508 int info = 0;
82509 static char *capi_kwlist[] = {"a","b","c","trana","tranb","isgn","overwrite_c",NULL((void*)0)};
82510
82511/*routdebugenter*/
82512#ifdef F2PY_REPORT_ATEXIT
82513f2py_start_clock();
82514#endif
82515 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
82516 "OOO|OOOi:_flapack.strsyl",\
82517 capi_kwlist,&a_capi,&b_capi,&c_capi,&trana_capi,&tranb_capi,&isgn_capi,&capi_overwrite_c))
82518 return NULL((void*)0);
82519/*frompyobj*/
82520 /* Processing variable isgn */
82521 if (isgn_capi == Py_None(&_Py_NoneStruct)) isgn = 1; else
82522 f2py_success = int_from_pyobj(&isgn,isgn_capi,"_flapack.strsyl() 3rd keyword (isgn) can't be converted to int");
82523 if (f2py_success) {
82524 CHECKSCALAR(isgn==1||isgn==-1,"isgn==1||isgn==-1","3rd keyword isgn","strsyl:isgn=%d",isgn)if (!(isgn==1||isgn==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""strsyl:isgn=%d", "(""isgn==1||isgn==-1"") failed for "
"3rd keyword isgn", isgn); PyErr_SetString(_flapack_error,errstring
); } else
{
82525 /* Processing variable a */
82526 ;
82527 capi_a_intent |= F2PY_INTENT_IN1;
82528 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
82529 if (capi_a_tmp == NULL((void*)0)) {
82530 if (!PyErr_Occurred())
82531 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.strsyl to C/Fortran array" );
82532 } else {
82533 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
82534
82535 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
82536 /* Processing variable b */
82537 ;
82538 capi_b_intent |= F2PY_INTENT_IN1;
82539 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
82540 if (capi_b_tmp == NULL((void*)0)) {
82541 if (!PyErr_Occurred())
82542 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.strsyl to C/Fortran array" );
82543 } else {
82544 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
82545
82546 CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b");
} else
{
82547 /* Processing variable scale */
82548 /* Processing variable info */
82549 /* Processing variable m */
82550 m = shape(a,0)a_Dims[0];
82551 /* Processing variable n */
82552 n = shape(b,0)b_Dims[0];
82553 /* Processing variable lda */
82554 lda = shape(a,0)a_Dims[0];
82555 /* Processing variable ldb */
82556 ldb = shape(b,0)b_Dims[0];
82557 /* Processing variable c */
82558 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
82559 c_Dims[0]=m,c_Dims[1]=n;
82560 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
82561 capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
82562 if (capi_c_tmp == NULL((void*)0)) {
82563 if (!PyErr_Occurred())
82564 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.strsyl to C/Fortran array" );
82565 } else {
82566 c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
82567
82568 /* Processing variable ldc */
82569 ldc = shape(c,0)c_Dims[0];
82570 /* Processing variable trana */
82571 slen(trana)capi_trana_len = 1;
82572 f2py_success = string_from_pyobj(&trana,&slen(trana)capi_trana_len,"N",trana_capi,"string_from_pyobj failed in converting 1st keyword `trana' of _flapack.strsyl to C string");
82573 if (f2py_success) {
82574 CHECKSTRING(*trana=='N'||*trana=='T'||*trana=='C',"*trana=='N'||*trana=='T'||*trana=='C'","1st keyword trana","strsyl:slen(trana)=%d trana=\"%s\"",trana)if (!(*trana=='N'||*trana=='T'||*trana=='C')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""strsyl:slen(trana)=%d trana=\"%s\""
, "(""*trana=='N'||*trana=='T'||*trana=='C'"") failed for ""1st keyword trana"
, capi_trana_len, trana); PyErr_SetString(_flapack_error, errstring
); } else
{
82575 /* Processing variable tranb */
82576 slen(tranb)capi_tranb_len = 1;
82577 f2py_success = string_from_pyobj(&tranb,&slen(tranb)capi_tranb_len,"N",tranb_capi,"string_from_pyobj failed in converting 2nd keyword `tranb' of _flapack.strsyl to C string");
82578 if (f2py_success) {
82579 CHECKSTRING(*tranb=='N'||*tranb=='T'||*tranb=='C',"*tranb=='N'||*tranb=='T'||*tranb=='C'","2nd keyword tranb","strsyl:slen(tranb)=%d tranb=\"%s\"",tranb)if (!(*tranb=='N'||*tranb=='T'||*tranb=='C')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""strsyl:slen(tranb)=%d tranb=\"%s\""
, "(""*tranb=='N'||*tranb=='T'||*tranb=='C'"") failed for ""2nd keyword tranb"
, capi_tranb_len, tranb); PyErr_SetString(_flapack_error, errstring
); } else
{
82580/*end of frompyobj*/
82581#ifdef F2PY_REPORT_ATEXIT
82582f2py_start_call_clock();
82583#endif
82584/*callfortranroutine*/
82585 (*f2py_func)(trana,tranb,&isgn,&m,&n,a,&lda,b,&ldb,c,&ldc,&scale,&info) ;
82586 /*(*f2py_func)(trana,tranb,&isgn,&m,&n,a,&lda,b,&ldb,c,&ldc,&scale,&info,slen(trana),slen(tranb));*/
82587if (PyErr_Occurred())
82588 f2py_success = 0;
82589#ifdef F2PY_REPORT_ATEXIT
82590f2py_stop_call_clock();
82591#endif
82592/*end of callfortranroutine*/
82593 if (f2py_success) {
82594/*pyobjfrom*/
82595/*end of pyobjfrom*/
82596 CFUNCSMESS("Building return value.\n");
82597 capi_buildvalue = Py_BuildValue("Nfi",capi_c_tmp,scale,info);
82598/*closepyobjfrom*/
82599/*end of closepyobjfrom*/
82600 } /*if (f2py_success) after callfortranroutine*/
82601/*cleanupfrompyobj*/
82602 } /*CHECKSTRING(*tranb=='N'||*tranb=='T'||*tranb=='C')*/
82603 STRINGFREE(tranb)do {if (!(tranb == ((void*)0))) free(tranb);} while (0);
82604 } /*if (f2py_success) of tranb*/
82605 /* End of cleaning variable tranb */
82606 } /*CHECKSTRING(*trana=='N'||*trana=='T'||*trana=='C')*/
82607 STRINGFREE(trana)do {if (!(trana == ((void*)0))) free(trana);} while (0);
82608 } /*if (f2py_success) of trana*/
82609 /* End of cleaning variable trana */
82610 /* End of cleaning variable ldc */
82611 } /*if (capi_c_tmp == NULL) ... else of c*/
82612 /* End of cleaning variable c */
82613 /* End of cleaning variable ldb */
82614 /* End of cleaning variable lda */
82615 /* End of cleaning variable n */
82616 /* End of cleaning variable m */
82617 /* End of cleaning variable info */
82618 /* End of cleaning variable scale */
82619 } /*CHECKARRAY(shape(b,0)==shape(b,1))*/
82620 if((PyObject *)capi_b_tmp!=b_capi) {
82621 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
82622 } /*if (capi_b_tmp == NULL) ... else of b*/
82623 /* End of cleaning variable b */
82624 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
82625 if((PyObject *)capi_a_tmp!=a_capi) {
82626 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
82627 } /*if (capi_a_tmp == NULL) ... else of a*/
82628 /* End of cleaning variable a */
82629 } /*CHECKSCALAR(isgn==1||isgn==-1)*/
82630 } /*if (f2py_success) of isgn*/
82631 /* End of cleaning variable isgn */
82632/*end of cleanupfrompyobj*/
82633 if (capi_buildvalue == NULL((void*)0)) {
82634/*routdebugfailure*/
82635 } else {
82636/*routdebugleave*/
82637 }
82638 CFUNCSMESS("Freeing memory.\n");
82639/*freemem*/
82640#ifdef F2PY_REPORT_ATEXIT
82641f2py_stop_clock();
82642#endif
82643 return capi_buildvalue;
82644}
82645/******************************* end of strsyl *******************************/
82646
82647/*********************************** dtrsyl ***********************************/
82648static char doc_f2py_rout__flapack_dtrsyl[] = "\
82649x,scale,info = dtrsyl(a,b,c,[trana,tranb,isgn,overwrite_c])\n\nWrapper for ``dtrsyl``.\
82650\n\nParameters\n----------\n"
82651"a : input rank-2 array('d') with bounds (m,m)\n"
82652"b : input rank-2 array('d') with bounds (n,n)\n"
82653"c : input rank-2 array('d') with bounds (m,n)\n"
82654"\nOther Parameters\n----------------\n"
82655"trana : input string(len=1), optional\n Default: 'N'\n"
82656"tranb : input string(len=1), optional\n Default: 'N'\n"
82657"isgn : input int, optional\n Default: 1\n"
82658"overwrite_c : input int, optional\n Default: 0\n"
82659"\nReturns\n-------\n"
82660"x : rank-2 array('d') with bounds (m,n) and c storage\n"
82661"scale : float\n"
82662"info : int";
82663/* extern void F_FUNC(dtrsyl,DTRSYL)(char*,char*,F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT*,double*,F_INT* ); */
82664static PyObject *f2py_rout__flapack_dtrsyl(const PyObject *capi_self,
82665 PyObject *capi_args,
82666 PyObject *capi_keywds,
82667 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,F_INTint* )) {
82668 PyObject * volatile capi_buildvalue = NULL((void*)0);
82669 volatile int f2py_success = 1;
82670/*decl*/
82671
82672 string trana = NULL((void*)0);
82673 int slen(trana)capi_trana_len;
82674 PyObject *trana_capi = Py_None(&_Py_NoneStruct);
82675 string tranb = NULL((void*)0);
82676 int slen(tranb)capi_tranb_len;
82677 PyObject *tranb_capi = Py_None(&_Py_NoneStruct);
82678 int isgn = 0;
82679 PyObject *isgn_capi = Py_None(&_Py_NoneStruct);
82680 int m = 0;
82681 int n = 0;
82682 double *a = NULL((void*)0);
82683 npy_intp a_Dims[2] = {-1, -1};
82684 const int a_Rank = 2;
82685 PyArrayObject *capi_a_tmp = NULL((void*)0);
82686 int capi_a_intent = 0;
82687 PyObject *a_capi = Py_None(&_Py_NoneStruct);
82688 int lda = 0;
82689 double *b = NULL((void*)0);
82690 npy_intp b_Dims[2] = {-1, -1};
82691 const int b_Rank = 2;
82692 PyArrayObject *capi_b_tmp = NULL((void*)0);
82693 int capi_b_intent = 0;
82694 PyObject *b_capi = Py_None(&_Py_NoneStruct);
82695 int ldb = 0;
82696 double *c = NULL((void*)0);
82697 npy_intp c_Dims[2] = {-1, -1};
82698 const int c_Rank = 2;
82699 PyArrayObject *capi_c_tmp = NULL((void*)0);
82700 int capi_c_intent = 0;
82701 int capi_overwrite_c = 0;
82702 PyObject *c_capi = Py_None(&_Py_NoneStruct);
82703 int ldc = 0;
82704 double scale = 0;
82705 int info = 0;
82706 static char *capi_kwlist[] = {"a","b","c","trana","tranb","isgn","overwrite_c",NULL((void*)0)};
82707
82708/*routdebugenter*/
82709#ifdef F2PY_REPORT_ATEXIT
82710f2py_start_clock();
82711#endif
82712 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
82713 "OOO|OOOi:_flapack.dtrsyl",\
82714 capi_kwlist,&a_capi,&b_capi,&c_capi,&trana_capi,&tranb_capi,&isgn_capi,&capi_overwrite_c))
82715 return NULL((void*)0);
82716/*frompyobj*/
82717 /* Processing variable isgn */
82718 if (isgn_capi == Py_None(&_Py_NoneStruct)) isgn = 1; else
82719 f2py_success = int_from_pyobj(&isgn,isgn_capi,"_flapack.dtrsyl() 3rd keyword (isgn) can't be converted to int");
82720 if (f2py_success) {
82721 CHECKSCALAR(isgn==1||isgn==-1,"isgn==1||isgn==-1","3rd keyword isgn","dtrsyl:isgn=%d",isgn)if (!(isgn==1||isgn==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtrsyl:isgn=%d", "(""isgn==1||isgn==-1"") failed for "
"3rd keyword isgn", isgn); PyErr_SetString(_flapack_error,errstring
); } else
{
82722 /* Processing variable a */
82723 ;
82724 capi_a_intent |= F2PY_INTENT_IN1;
82725 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
82726 if (capi_a_tmp == NULL((void*)0)) {
82727 if (!PyErr_Occurred())
82728 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dtrsyl to C/Fortran array" );
82729 } else {
82730 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
82731
82732 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
82733 /* Processing variable b */
82734 ;
82735 capi_b_intent |= F2PY_INTENT_IN1;
82736 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
82737 if (capi_b_tmp == NULL((void*)0)) {
82738 if (!PyErr_Occurred())
82739 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dtrsyl to C/Fortran array" );
82740 } else {
82741 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
82742
82743 CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b");
} else
{
82744 /* Processing variable scale */
82745 /* Processing variable info */
82746 /* Processing variable m */
82747 m = shape(a,0)a_Dims[0];
82748 /* Processing variable n */
82749 n = shape(b,0)b_Dims[0];
82750 /* Processing variable lda */
82751 lda = shape(a,0)a_Dims[0];
82752 /* Processing variable ldb */
82753 ldb = shape(b,0)b_Dims[0];
82754 /* Processing variable c */
82755 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
82756 c_Dims[0]=m,c_Dims[1]=n;
82757 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
82758 capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
82759 if (capi_c_tmp == NULL((void*)0)) {
82760 if (!PyErr_Occurred())
82761 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.dtrsyl to C/Fortran array" );
82762 } else {
82763 c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
82764
82765 /* Processing variable ldc */
82766 ldc = shape(c,0)c_Dims[0];
82767 /* Processing variable trana */
82768 slen(trana)capi_trana_len = 1;
82769 f2py_success = string_from_pyobj(&trana,&slen(trana)capi_trana_len,"N",trana_capi,"string_from_pyobj failed in converting 1st keyword `trana' of _flapack.dtrsyl to C string");
82770 if (f2py_success) {
82771 CHECKSTRING(*trana=='N'||*trana=='T'||*trana=='C',"*trana=='N'||*trana=='T'||*trana=='C'","1st keyword trana","dtrsyl:slen(trana)=%d trana=\"%s\"",trana)if (!(*trana=='N'||*trana=='T'||*trana=='C')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dtrsyl:slen(trana)=%d trana=\"%s\""
, "(""*trana=='N'||*trana=='T'||*trana=='C'"") failed for ""1st keyword trana"
, capi_trana_len, trana); PyErr_SetString(_flapack_error, errstring
); } else
{
82772 /* Processing variable tranb */
82773 slen(tranb)capi_tranb_len = 1;
82774 f2py_success = string_from_pyobj(&tranb,&slen(tranb)capi_tranb_len,"N",tranb_capi,"string_from_pyobj failed in converting 2nd keyword `tranb' of _flapack.dtrsyl to C string");
82775 if (f2py_success) {
82776 CHECKSTRING(*tranb=='N'||*tranb=='T'||*tranb=='C',"*tranb=='N'||*tranb=='T'||*tranb=='C'","2nd keyword tranb","dtrsyl:slen(tranb)=%d tranb=\"%s\"",tranb)if (!(*tranb=='N'||*tranb=='T'||*tranb=='C')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dtrsyl:slen(tranb)=%d tranb=\"%s\""
, "(""*tranb=='N'||*tranb=='T'||*tranb=='C'"") failed for ""2nd keyword tranb"
, capi_tranb_len, tranb); PyErr_SetString(_flapack_error, errstring
); } else
{
82777/*end of frompyobj*/
82778#ifdef F2PY_REPORT_ATEXIT
82779f2py_start_call_clock();
82780#endif
82781/*callfortranroutine*/
82782 (*f2py_func)(trana,tranb,&isgn,&m,&n,a,&lda,b,&ldb,c,&ldc,&scale,&info) ;
82783 /*(*f2py_func)(trana,tranb,&isgn,&m,&n,a,&lda,b,&ldb,c,&ldc,&scale,&info,slen(trana),slen(tranb));*/
82784if (PyErr_Occurred())
82785 f2py_success = 0;
82786#ifdef F2PY_REPORT_ATEXIT
82787f2py_stop_call_clock();
82788#endif
82789/*end of callfortranroutine*/
82790 if (f2py_success) {
82791/*pyobjfrom*/
82792/*end of pyobjfrom*/
82793 CFUNCSMESS("Building return value.\n");
82794 capi_buildvalue = Py_BuildValue("Ndi",capi_c_tmp,scale,info);
82795/*closepyobjfrom*/
82796/*end of closepyobjfrom*/
82797 } /*if (f2py_success) after callfortranroutine*/
82798/*cleanupfrompyobj*/
82799 } /*CHECKSTRING(*tranb=='N'||*tranb=='T'||*tranb=='C')*/
82800 STRINGFREE(tranb)do {if (!(tranb == ((void*)0))) free(tranb);} while (0);
82801 } /*if (f2py_success) of tranb*/
82802 /* End of cleaning variable tranb */
82803 } /*CHECKSTRING(*trana=='N'||*trana=='T'||*trana=='C')*/
82804 STRINGFREE(trana)do {if (!(trana == ((void*)0))) free(trana);} while (0);
82805 } /*if (f2py_success) of trana*/
82806 /* End of cleaning variable trana */
82807 /* End of cleaning variable ldc */
82808 } /*if (capi_c_tmp == NULL) ... else of c*/
82809 /* End of cleaning variable c */
82810 /* End of cleaning variable ldb */
82811 /* End of cleaning variable lda */
82812 /* End of cleaning variable n */
82813 /* End of cleaning variable m */
82814 /* End of cleaning variable info */
82815 /* End of cleaning variable scale */
82816 } /*CHECKARRAY(shape(b,0)==shape(b,1))*/
82817 if((PyObject *)capi_b_tmp!=b_capi) {
82818 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
82819 } /*if (capi_b_tmp == NULL) ... else of b*/
82820 /* End of cleaning variable b */
82821 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
82822 if((PyObject *)capi_a_tmp!=a_capi) {
82823 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
82824 } /*if (capi_a_tmp == NULL) ... else of a*/
82825 /* End of cleaning variable a */
82826 } /*CHECKSCALAR(isgn==1||isgn==-1)*/
82827 } /*if (f2py_success) of isgn*/
82828 /* End of cleaning variable isgn */
82829/*end of cleanupfrompyobj*/
82830 if (capi_buildvalue == NULL((void*)0)) {
82831/*routdebugfailure*/
82832 } else {
82833/*routdebugleave*/
82834 }
82835 CFUNCSMESS("Freeing memory.\n");
82836/*freemem*/
82837#ifdef F2PY_REPORT_ATEXIT
82838f2py_stop_clock();
82839#endif
82840 return capi_buildvalue;
82841}
82842/******************************* end of dtrsyl *******************************/
82843
82844/*********************************** ctrsyl ***********************************/
82845static char doc_f2py_rout__flapack_ctrsyl[] = "\
82846x,scale,info = ctrsyl(a,b,c,[trana,tranb,isgn,overwrite_c])\n\nWrapper for ``ctrsyl``.\
82847\n\nParameters\n----------\n"
82848"a : input rank-2 array('F') with bounds (m,m)\n"
82849"b : input rank-2 array('F') with bounds (n,n)\n"
82850"c : input rank-2 array('F') with bounds (m,n)\n"
82851"\nOther Parameters\n----------------\n"
82852"trana : input string(len=1), optional\n Default: 'N'\n"
82853"tranb : input string(len=1), optional\n Default: 'N'\n"
82854"isgn : input int, optional\n Default: 1\n"
82855"overwrite_c : input int, optional\n Default: 0\n"
82856"\nReturns\n-------\n"
82857"x : rank-2 array('F') with bounds (m,n) and c storage\n"
82858"scale : float\n"
82859"info : int";
82860/* extern void F_FUNC(ctrsyl,CTRSYL)(char*,char*,F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT* ); */
82861static PyObject *f2py_rout__flapack_ctrsyl(const PyObject *capi_self,
82862 PyObject *capi_args,
82863 PyObject *capi_keywds,
82864 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint* )) {
82865 PyObject * volatile capi_buildvalue = NULL((void*)0);
82866 volatile int f2py_success = 1;
82867/*decl*/
82868
82869 string trana = NULL((void*)0);
82870 int slen(trana)capi_trana_len;
82871 PyObject *trana_capi = Py_None(&_Py_NoneStruct);
82872 string tranb = NULL((void*)0);
82873 int slen(tranb)capi_tranb_len;
82874 PyObject *tranb_capi = Py_None(&_Py_NoneStruct);
82875 int isgn = 0;
82876 PyObject *isgn_capi = Py_None(&_Py_NoneStruct);
82877 int m = 0;
82878 int n = 0;
82879 complex_float *a = NULL((void*)0);
82880 npy_intp a_Dims[2] = {-1, -1};
82881 const int a_Rank = 2;
82882 PyArrayObject *capi_a_tmp = NULL((void*)0);
82883 int capi_a_intent = 0;
82884 PyObject *a_capi = Py_None(&_Py_NoneStruct);
82885 int lda = 0;
82886 complex_float *b = NULL((void*)0);
82887 npy_intp b_Dims[2] = {-1, -1};
82888 const int b_Rank = 2;
82889 PyArrayObject *capi_b_tmp = NULL((void*)0);
82890 int capi_b_intent = 0;
82891 PyObject *b_capi = Py_None(&_Py_NoneStruct);
82892 int ldb = 0;
82893 complex_float *c = NULL((void*)0);
82894 npy_intp c_Dims[2] = {-1, -1};
82895 const int c_Rank = 2;
82896 PyArrayObject *capi_c_tmp = NULL((void*)0);
82897 int capi_c_intent = 0;
82898 int capi_overwrite_c = 0;
82899 PyObject *c_capi = Py_None(&_Py_NoneStruct);
82900 int ldc = 0;
82901 float scale = 0;
82902 int info = 0;
82903 static char *capi_kwlist[] = {"a","b","c","trana","tranb","isgn","overwrite_c",NULL((void*)0)};
82904
82905/*routdebugenter*/
82906#ifdef F2PY_REPORT_ATEXIT
82907f2py_start_clock();
82908#endif
82909 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
82910 "OOO|OOOi:_flapack.ctrsyl",\
82911 capi_kwlist,&a_capi,&b_capi,&c_capi,&trana_capi,&tranb_capi,&isgn_capi,&capi_overwrite_c))
82912 return NULL((void*)0);
82913/*frompyobj*/
82914 /* Processing variable isgn */
82915 if (isgn_capi == Py_None(&_Py_NoneStruct)) isgn = 1; else
82916 f2py_success = int_from_pyobj(&isgn,isgn_capi,"_flapack.ctrsyl() 3rd keyword (isgn) can't be converted to int");
82917 if (f2py_success) {
82918 CHECKSCALAR(isgn==1||isgn==-1,"isgn==1||isgn==-1","3rd keyword isgn","ctrsyl:isgn=%d",isgn)if (!(isgn==1||isgn==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctrsyl:isgn=%d", "(""isgn==1||isgn==-1"") failed for "
"3rd keyword isgn", isgn); PyErr_SetString(_flapack_error,errstring
); } else
{
82919 /* Processing variable a */
82920 ;
82921 capi_a_intent |= F2PY_INTENT_IN1;
82922 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
82923 if (capi_a_tmp == NULL((void*)0)) {
82924 if (!PyErr_Occurred())
82925 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ctrsyl to C/Fortran array" );
82926 } else {
82927 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
82928
82929 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
82930 /* Processing variable b */
82931 ;
82932 capi_b_intent |= F2PY_INTENT_IN1;
82933 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
82934 if (capi_b_tmp == NULL((void*)0)) {
82935 if (!PyErr_Occurred())
82936 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ctrsyl to C/Fortran array" );
82937 } else {
82938 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
82939
82940 CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b");
} else
{
82941 /* Processing variable scale */
82942 /* Processing variable info */
82943 /* Processing variable m */
82944 m = shape(a,0)a_Dims[0];
82945 /* Processing variable n */
82946 n = shape(b,0)b_Dims[0];
82947 /* Processing variable lda */
82948 lda = shape(a,0)a_Dims[0];
82949 /* Processing variable ldb */
82950 ldb = shape(b,0)b_Dims[0];
82951 /* Processing variable c */
82952 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
82953 c_Dims[0]=m,c_Dims[1]=n;
82954 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
82955 capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
82956 if (capi_c_tmp == NULL((void*)0)) {
82957 if (!PyErr_Occurred())
82958 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.ctrsyl to C/Fortran array" );
82959 } else {
82960 c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
82961
82962 /* Processing variable ldc */
82963 ldc = shape(c,0)c_Dims[0];
82964 /* Processing variable trana */
82965 slen(trana)capi_trana_len = 1;
82966 f2py_success = string_from_pyobj(&trana,&slen(trana)capi_trana_len,"N",trana_capi,"string_from_pyobj failed in converting 1st keyword `trana' of _flapack.ctrsyl to C string");
82967 if (f2py_success) {
82968 CHECKSTRING(*trana=='N'||*trana=='T'||*trana=='C',"*trana=='N'||*trana=='T'||*trana=='C'","1st keyword trana","ctrsyl:slen(trana)=%d trana=\"%s\"",trana)if (!(*trana=='N'||*trana=='T'||*trana=='C')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ctrsyl:slen(trana)=%d trana=\"%s\""
, "(""*trana=='N'||*trana=='T'||*trana=='C'"") failed for ""1st keyword trana"
, capi_trana_len, trana); PyErr_SetString(_flapack_error, errstring
); } else
{
82969 /* Processing variable tranb */
82970 slen(tranb)capi_tranb_len = 1;
82971 f2py_success = string_from_pyobj(&tranb,&slen(tranb)capi_tranb_len,"N",tranb_capi,"string_from_pyobj failed in converting 2nd keyword `tranb' of _flapack.ctrsyl to C string");
82972 if (f2py_success) {
82973 CHECKSTRING(*tranb=='N'||*tranb=='T'||*tranb=='C',"*tranb=='N'||*tranb=='T'||*tranb=='C'","2nd keyword tranb","ctrsyl:slen(tranb)=%d tranb=\"%s\"",tranb)if (!(*tranb=='N'||*tranb=='T'||*tranb=='C')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ctrsyl:slen(tranb)=%d tranb=\"%s\""
, "(""*tranb=='N'||*tranb=='T'||*tranb=='C'"") failed for ""2nd keyword tranb"
, capi_tranb_len, tranb); PyErr_SetString(_flapack_error, errstring
); } else
{
82974/*end of frompyobj*/
82975#ifdef F2PY_REPORT_ATEXIT
82976f2py_start_call_clock();
82977#endif
82978/*callfortranroutine*/
82979 (*f2py_func)(trana,tranb,&isgn,&m,&n,a,&lda,b,&ldb,c,&ldc,&scale,&info) ;
82980 /*(*f2py_func)(trana,tranb,&isgn,&m,&n,a,&lda,b,&ldb,c,&ldc,&scale,&info,slen(trana),slen(tranb));*/
82981if (PyErr_Occurred())
82982 f2py_success = 0;
82983#ifdef F2PY_REPORT_ATEXIT
82984f2py_stop_call_clock();
82985#endif
82986/*end of callfortranroutine*/
82987 if (f2py_success) {
82988/*pyobjfrom*/
82989/*end of pyobjfrom*/
82990 CFUNCSMESS("Building return value.\n");
82991 capi_buildvalue = Py_BuildValue("Nfi",capi_c_tmp,scale,info);
82992/*closepyobjfrom*/
82993/*end of closepyobjfrom*/
82994 } /*if (f2py_success) after callfortranroutine*/
82995/*cleanupfrompyobj*/
82996 } /*CHECKSTRING(*tranb=='N'||*tranb=='T'||*tranb=='C')*/
82997 STRINGFREE(tranb)do {if (!(tranb == ((void*)0))) free(tranb);} while (0);
82998 } /*if (f2py_success) of tranb*/
82999 /* End of cleaning variable tranb */
83000 } /*CHECKSTRING(*trana=='N'||*trana=='T'||*trana=='C')*/
83001 STRINGFREE(trana)do {if (!(trana == ((void*)0))) free(trana);} while (0);
83002 } /*if (f2py_success) of trana*/
83003 /* End of cleaning variable trana */
83004 /* End of cleaning variable ldc */
83005 } /*if (capi_c_tmp == NULL) ... else of c*/
83006 /* End of cleaning variable c */
83007 /* End of cleaning variable ldb */
83008 /* End of cleaning variable lda */
83009 /* End of cleaning variable n */
83010 /* End of cleaning variable m */
83011 /* End of cleaning variable info */
83012 /* End of cleaning variable scale */
83013 } /*CHECKARRAY(shape(b,0)==shape(b,1))*/
83014 if((PyObject *)capi_b_tmp!=b_capi) {
83015 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
83016 } /*if (capi_b_tmp == NULL) ... else of b*/
83017 /* End of cleaning variable b */
83018 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
83019 if((PyObject *)capi_a_tmp!=a_capi) {
83020 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
83021 } /*if (capi_a_tmp == NULL) ... else of a*/
83022 /* End of cleaning variable a */
83023 } /*CHECKSCALAR(isgn==1||isgn==-1)*/
83024 } /*if (f2py_success) of isgn*/
83025 /* End of cleaning variable isgn */
83026/*end of cleanupfrompyobj*/
83027 if (capi_buildvalue == NULL((void*)0)) {
83028/*routdebugfailure*/
83029 } else {
83030/*routdebugleave*/
83031 }
83032 CFUNCSMESS("Freeing memory.\n");
83033/*freemem*/
83034#ifdef F2PY_REPORT_ATEXIT
83035f2py_stop_clock();
83036#endif
83037 return capi_buildvalue;
83038}
83039/******************************* end of ctrsyl *******************************/
83040
83041/*********************************** ztrsyl ***********************************/
83042static char doc_f2py_rout__flapack_ztrsyl[] = "\
83043x,scale,info = ztrsyl(a,b,c,[trana,tranb,isgn,overwrite_c])\n\nWrapper for ``ztrsyl``.\
83044\n\nParameters\n----------\n"
83045"a : input rank-2 array('D') with bounds (m,m)\n"
83046"b : input rank-2 array('D') with bounds (n,n)\n"
83047"c : input rank-2 array('D') with bounds (m,n)\n"
83048"\nOther Parameters\n----------------\n"
83049"trana : input string(len=1), optional\n Default: 'N'\n"
83050"tranb : input string(len=1), optional\n Default: 'N'\n"
83051"isgn : input int, optional\n Default: 1\n"
83052"overwrite_c : input int, optional\n Default: 0\n"
83053"\nReturns\n-------\n"
83054"x : rank-2 array('D') with bounds (m,n) and c storage\n"
83055"scale : float\n"
83056"info : int";
83057/* extern void F_FUNC(ztrsyl,ZTRSYL)(char*,char*,F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT* ); */
83058static PyObject *f2py_rout__flapack_ztrsyl(const PyObject *capi_self,
83059 PyObject *capi_args,
83060 PyObject *capi_keywds,
83061 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint* )) {
83062 PyObject * volatile capi_buildvalue = NULL((void*)0);
83063 volatile int f2py_success = 1;
83064/*decl*/
83065
83066 string trana = NULL((void*)0);
83067 int slen(trana)capi_trana_len;
83068 PyObject *trana_capi = Py_None(&_Py_NoneStruct);
83069 string tranb = NULL((void*)0);
83070 int slen(tranb)capi_tranb_len;
83071 PyObject *tranb_capi = Py_None(&_Py_NoneStruct);
83072 int isgn = 0;
83073 PyObject *isgn_capi = Py_None(&_Py_NoneStruct);
83074 int m = 0;
83075 int n = 0;
83076 complex_double *a = NULL((void*)0);
83077 npy_intp a_Dims[2] = {-1, -1};
83078 const int a_Rank = 2;
83079 PyArrayObject *capi_a_tmp = NULL((void*)0);
83080 int capi_a_intent = 0;
83081 PyObject *a_capi = Py_None(&_Py_NoneStruct);
83082 int lda = 0;
83083 complex_double *b = NULL((void*)0);
83084 npy_intp b_Dims[2] = {-1, -1};
83085 const int b_Rank = 2;
83086 PyArrayObject *capi_b_tmp = NULL((void*)0);
83087 int capi_b_intent = 0;
83088 PyObject *b_capi = Py_None(&_Py_NoneStruct);
83089 int ldb = 0;
83090 complex_double *c = NULL((void*)0);
83091 npy_intp c_Dims[2] = {-1, -1};
83092 const int c_Rank = 2;
83093 PyArrayObject *capi_c_tmp = NULL((void*)0);
83094 int capi_c_intent = 0;
83095 int capi_overwrite_c = 0;
83096 PyObject *c_capi = Py_None(&_Py_NoneStruct);
83097 int ldc = 0;
83098 double scale = 0;
83099 int info = 0;
83100 static char *capi_kwlist[] = {"a","b","c","trana","tranb","isgn","overwrite_c",NULL((void*)0)};
83101
83102/*routdebugenter*/
83103#ifdef F2PY_REPORT_ATEXIT
83104f2py_start_clock();
83105#endif
83106 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
83107 "OOO|OOOi:_flapack.ztrsyl",\
83108 capi_kwlist,&a_capi,&b_capi,&c_capi,&trana_capi,&tranb_capi,&isgn_capi,&capi_overwrite_c))
83109 return NULL((void*)0);
83110/*frompyobj*/
83111 /* Processing variable isgn */
83112 if (isgn_capi == Py_None(&_Py_NoneStruct)) isgn = 1; else
83113 f2py_success = int_from_pyobj(&isgn,isgn_capi,"_flapack.ztrsyl() 3rd keyword (isgn) can't be converted to int");
83114 if (f2py_success) {
83115 CHECKSCALAR(isgn==1||isgn==-1,"isgn==1||isgn==-1","3rd keyword isgn","ztrsyl:isgn=%d",isgn)if (!(isgn==1||isgn==-1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztrsyl:isgn=%d", "(""isgn==1||isgn==-1"") failed for "
"3rd keyword isgn", isgn); PyErr_SetString(_flapack_error,errstring
); } else
{
83116 /* Processing variable a */
83117 ;
83118 capi_a_intent |= F2PY_INTENT_IN1;
83119 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
83120 if (capi_a_tmp == NULL((void*)0)) {
83121 if (!PyErr_Occurred())
83122 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ztrsyl to C/Fortran array" );
83123 } else {
83124 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
83125
83126 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
83127 /* Processing variable b */
83128 ;
83129 capi_b_intent |= F2PY_INTENT_IN1;
83130 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
83131 if (capi_b_tmp == NULL((void*)0)) {
83132 if (!PyErr_Occurred())
83133 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.ztrsyl to C/Fortran array" );
83134 } else {
83135 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
83136
83137 CHECKARRAY(shape(b,0)==shape(b,1),"shape(b,0)==shape(b,1)","2nd argument b")if (!(b_Dims[0]==b_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(b,0)==shape(b,1)"") failed for ""2nd argument b");
} else
{
83138 /* Processing variable scale */
83139 /* Processing variable info */
83140 /* Processing variable m */
83141 m = shape(a,0)a_Dims[0];
83142 /* Processing variable n */
83143 n = shape(b,0)b_Dims[0];
83144 /* Processing variable lda */
83145 lda = shape(a,0)a_Dims[0];
83146 /* Processing variable ldb */
83147 ldb = shape(b,0)b_Dims[0];
83148 /* Processing variable c */
83149 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
83150 c_Dims[0]=m,c_Dims[1]=n;
83151 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
83152 capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
83153 if (capi_c_tmp == NULL((void*)0)) {
83154 if (!PyErr_Occurred())
83155 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.ztrsyl to C/Fortran array" );
83156 } else {
83157 c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
83158
83159 /* Processing variable ldc */
83160 ldc = shape(c,0)c_Dims[0];
83161 /* Processing variable trana */
83162 slen(trana)capi_trana_len = 1;
83163 f2py_success = string_from_pyobj(&trana,&slen(trana)capi_trana_len,"N",trana_capi,"string_from_pyobj failed in converting 1st keyword `trana' of _flapack.ztrsyl to C string");
83164 if (f2py_success) {
83165 CHECKSTRING(*trana=='N'||*trana=='T'||*trana=='C',"*trana=='N'||*trana=='T'||*trana=='C'","1st keyword trana","ztrsyl:slen(trana)=%d trana=\"%s\"",trana)if (!(*trana=='N'||*trana=='T'||*trana=='C')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ztrsyl:slen(trana)=%d trana=\"%s\""
, "(""*trana=='N'||*trana=='T'||*trana=='C'"") failed for ""1st keyword trana"
, capi_trana_len, trana); PyErr_SetString(_flapack_error, errstring
); } else
{
83166 /* Processing variable tranb */
83167 slen(tranb)capi_tranb_len = 1;
83168 f2py_success = string_from_pyobj(&tranb,&slen(tranb)capi_tranb_len,"N",tranb_capi,"string_from_pyobj failed in converting 2nd keyword `tranb' of _flapack.ztrsyl to C string");
83169 if (f2py_success) {
83170 CHECKSTRING(*tranb=='N'||*tranb=='T'||*tranb=='C',"*tranb=='N'||*tranb=='T'||*tranb=='C'","2nd keyword tranb","ztrsyl:slen(tranb)=%d tranb=\"%s\"",tranb)if (!(*tranb=='N'||*tranb=='T'||*tranb=='C')) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ztrsyl:slen(tranb)=%d tranb=\"%s\""
, "(""*tranb=='N'||*tranb=='T'||*tranb=='C'"") failed for ""2nd keyword tranb"
, capi_tranb_len, tranb); PyErr_SetString(_flapack_error, errstring
); } else
{
83171/*end of frompyobj*/
83172#ifdef F2PY_REPORT_ATEXIT
83173f2py_start_call_clock();
83174#endif
83175/*callfortranroutine*/
83176 (*f2py_func)(trana,tranb,&isgn,&m,&n,a,&lda,b,&ldb,c,&ldc,&scale,&info) ;
83177 /*(*f2py_func)(trana,tranb,&isgn,&m,&n,a,&lda,b,&ldb,c,&ldc,&scale,&info,slen(trana),slen(tranb));*/
83178if (PyErr_Occurred())
83179 f2py_success = 0;
83180#ifdef F2PY_REPORT_ATEXIT
83181f2py_stop_call_clock();
83182#endif
83183/*end of callfortranroutine*/
83184 if (f2py_success) {
83185/*pyobjfrom*/
83186/*end of pyobjfrom*/
83187 CFUNCSMESS("Building return value.\n");
83188 capi_buildvalue = Py_BuildValue("Ndi",capi_c_tmp,scale,info);
83189/*closepyobjfrom*/
83190/*end of closepyobjfrom*/
83191 } /*if (f2py_success) after callfortranroutine*/
83192/*cleanupfrompyobj*/
83193 } /*CHECKSTRING(*tranb=='N'||*tranb=='T'||*tranb=='C')*/
83194 STRINGFREE(tranb)do {if (!(tranb == ((void*)0))) free(tranb);} while (0);
83195 } /*if (f2py_success) of tranb*/
83196 /* End of cleaning variable tranb */
83197 } /*CHECKSTRING(*trana=='N'||*trana=='T'||*trana=='C')*/
83198 STRINGFREE(trana)do {if (!(trana == ((void*)0))) free(trana);} while (0);
83199 } /*if (f2py_success) of trana*/
83200 /* End of cleaning variable trana */
83201 /* End of cleaning variable ldc */
83202 } /*if (capi_c_tmp == NULL) ... else of c*/
83203 /* End of cleaning variable c */
83204 /* End of cleaning variable ldb */
83205 /* End of cleaning variable lda */
83206 /* End of cleaning variable n */
83207 /* End of cleaning variable m */
83208 /* End of cleaning variable info */
83209 /* End of cleaning variable scale */
83210 } /*CHECKARRAY(shape(b,0)==shape(b,1))*/
83211 if((PyObject *)capi_b_tmp!=b_capi) {
83212 Py_XDECREF(capi_b_tmp)_Py_XDECREF(((PyObject*)(capi_b_tmp))); }
83213 } /*if (capi_b_tmp == NULL) ... else of b*/
83214 /* End of cleaning variable b */
83215 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
83216 if((PyObject *)capi_a_tmp!=a_capi) {
83217 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
83218 } /*if (capi_a_tmp == NULL) ... else of a*/
83219 /* End of cleaning variable a */
83220 } /*CHECKSCALAR(isgn==1||isgn==-1)*/
83221 } /*if (f2py_success) of isgn*/
83222 /* End of cleaning variable isgn */
83223/*end of cleanupfrompyobj*/
83224 if (capi_buildvalue == NULL((void*)0)) {
83225/*routdebugfailure*/
83226 } else {
83227/*routdebugleave*/
83228 }
83229 CFUNCSMESS("Freeing memory.\n");
83230/*freemem*/
83231#ifdef F2PY_REPORT_ATEXIT
83232f2py_stop_clock();
83233#endif
83234 return capi_buildvalue;
83235}
83236/******************************* end of ztrsyl *******************************/
83237
83238/*********************************** chbevd ***********************************/
83239static char doc_f2py_rout__flapack_chbevd[] = "\
83240w,z,info = chbevd(ab,[compute_v,lower,ldab,lrwork,liwork,overwrite_ab])\n\nWrapper for ``chbevd``.\
83241\n\nParameters\n----------\n"
83242"ab : input rank-2 array('F') with bounds (ldab,n)\n"
83243"\nOther Parameters\n----------------\n"
83244"overwrite_ab : input int, optional\n Default: 1\n"
83245"compute_v : input int, optional\n Default: 1\n"
83246"lower : input int, optional\n Default: 0\n"
83247"ldab : input int, optional\n Default: shape(ab,0)\n"
83248"lrwork : input int, optional\n Default: (compute_v?1+5*n+2*n*n:n)\n"
83249"liwork : input int, optional\n Default: (compute_v?3+5*n:1)\n"
83250"\nReturns\n-------\n"
83251"w : rank-1 array('f') with bounds (n)\n"
83252"z : rank-2 array('F') with bounds (ldz,ldz)\n"
83253"info : int";
83254/* extern void F_FUNC(chbevd,CHBEVD)(char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
83255static PyObject *f2py_rout__flapack_chbevd(const PyObject *capi_self,
83256 PyObject *capi_args,
83257 PyObject *capi_keywds,
83258 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
83259 PyObject * volatile capi_buildvalue = NULL((void*)0);
83260 volatile int f2py_success = 1;
83261/*decl*/
83262
83263 complex_float *ab = NULL((void*)0);
83264 npy_intp ab_Dims[2] = {-1, -1};
83265 const int ab_Rank = 2;
83266 PyArrayObject *capi_ab_tmp = NULL((void*)0);
83267 int capi_ab_intent = 0;
83268 int capi_overwrite_ab = 1;
83269 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
83270 int compute_v = 0;
83271 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
83272 int lower = 0;
83273 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
83274 int n = 0;
83275 int ldab = 0;
83276 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
83277 int kd = 0;
83278 float *w = NULL((void*)0);
83279 npy_intp w_Dims[1] = {-1};
83280 const int w_Rank = 1;
83281 PyArrayObject *capi_w_tmp = NULL((void*)0);
83282 int capi_w_intent = 0;
83283 complex_float *z = NULL((void*)0);
83284 npy_intp z_Dims[2] = {-1, -1};
83285 const int z_Rank = 2;
83286 PyArrayObject *capi_z_tmp = NULL((void*)0);
83287 int capi_z_intent = 0;
83288 int ldz = 0;
83289 complex_float *work = NULL((void*)0);
83290 npy_intp work_Dims[1] = {-1};
83291 const int work_Rank = 1;
83292 PyArrayObject *capi_work_tmp = NULL((void*)0);
83293 int capi_work_intent = 0;
83294 int lwork = 0;
83295 float *rwork = NULL((void*)0);
83296 npy_intp rwork_Dims[1] = {-1};
83297 const int rwork_Rank = 1;
83298 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
83299 int capi_rwork_intent = 0;
83300 int lrwork = 0;
83301 PyObject *lrwork_capi = Py_None(&_Py_NoneStruct);
83302 int *iwork = NULL((void*)0);
83303 npy_intp iwork_Dims[1] = {-1};
83304 const int iwork_Rank = 1;
83305 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
83306 int capi_iwork_intent = 0;
83307 int liwork = 0;
83308 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
83309 int info = 0;
83310 static char *capi_kwlist[] = {"ab","compute_v","lower","ldab","lrwork","liwork","overwrite_ab",NULL((void*)0)};
83311
83312/*routdebugenter*/
83313#ifdef F2PY_REPORT_ATEXIT
83314f2py_start_clock();
83315#endif
83316 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
83317 "O|OOOOOi:_flapack.chbevd",\
83318 capi_kwlist,&ab_capi,&compute_v_capi,&lower_capi,&ldab_capi,&lrwork_capi,&liwork_capi,&capi_overwrite_ab))
83319 return NULL((void*)0);
83320/*frompyobj*/
83321 /* Processing variable ab */
83322 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
83323 ;
83324 capi_ab_intent |= F2PY_INTENT_IN1;
83325 capi_ab_tmp = array_from_pyobj(NPY_CFLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
83326 if (capi_ab_tmp == NULL((void*)0)) {
83327 if (!PyErr_Occurred())
83328 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.chbevd to C/Fortran array" );
83329 } else {
83330 ab = (complex_float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
83331
83332 /* Processing variable compute_v */
83333 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
83334 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.chbevd() 1st keyword (compute_v) can't be converted to int");
83335 if (f2py_success) {
83336 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","chbevd:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chbevd:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
83337 /* Processing variable lower */
83338 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
83339 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chbevd() 2nd keyword (lower) can't be converted to int");
83340 if (f2py_success) {
83341 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","chbevd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chbevd:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
83342 /* Processing variable info */
83343 /* Processing variable ldab */
83344 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
83345 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.chbevd() 3rd keyword (ldab) can't be converted to int");
83346 if (f2py_success) {
83347 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","chbevd:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chbevd:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
83348 /* Processing variable n */
83349 n = shape(ab,1)ab_Dims[1];
83350 CHECKSCALAR(n>0,"n>0","hidden n","chbevd:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chbevd:n=%d", "(""n>0"") failed for ""hidden n",
n); PyErr_SetString(_flapack_error,errstring); } else
{
83351 /* Processing variable kd */
83352 kd = shape(ab,0)ab_Dims[0]-1;
83353 /* Processing variable w */
83354 w_Dims[0]=n;
83355 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
83356 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
83357 if (capi_w_tmp == NULL((void*)0)) {
83358 if (!PyErr_Occurred())
83359 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.chbevd to C/Fortran array" );
83360 } else {
83361 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
83362
83363 /* Processing variable ldz */
83364 ldz = (compute_v?n:1);
83365 /* Processing variable z */
83366 z_Dims[0]=ldz,z_Dims[1]=ldz;
83367 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
83368 capi_z_tmp = array_from_pyobj(NPY_CFLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
83369 if (capi_z_tmp == NULL((void*)0)) {
83370 if (!PyErr_Occurred())
83371 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.chbevd to C/Fortran array" );
83372 } else {
83373 z = (complex_float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
83374
83375 /* Processing variable lwork */
83376 lwork = max((compute_v?2*n*n:n),1)(((compute_v?2*n*n:n) > 1) ? ((compute_v?2*n*n:n)) : (1));
83377 /* Processing variable work */
83378 work_Dims[0]=lwork;
83379 capi_work_intent |= F2PY_INTENT_HIDE8;
83380 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
83381 if (capi_work_tmp == NULL((void*)0)) {
83382 if (!PyErr_Occurred())
83383 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.chbevd to C/Fortran array" );
83384 } else {
83385 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
83386
83387 /* Processing variable lrwork */
83388 if (lrwork_capi == Py_None(&_Py_NoneStruct)) lrwork = (compute_v?1+5*n+2*n*n:n); else
83389 f2py_success = int_from_pyobj(&lrwork,lrwork_capi,"_flapack.chbevd() 4th keyword (lrwork) can't be converted to int");
83390 if (f2py_success) {
83391 CHECKSCALAR(lrwork>=(compute_v?1+5*n+2*n*n:n),"lrwork>=(compute_v?1+5*n+2*n*n:n)","4th keyword lrwork","chbevd:lrwork=%d",lrwork)if (!(lrwork>=(compute_v?1+5*n+2*n*n:n))) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""chbevd:lrwork=%d", "(""lrwork>=(compute_v?1+5*n+2*n*n:n)"
") failed for ""4th keyword lrwork", lrwork); PyErr_SetString
(_flapack_error,errstring); } else
{
83392 /* Processing variable rwork */
83393 rwork_Dims[0]=lrwork;
83394 capi_rwork_intent |= F2PY_INTENT_HIDE8;
83395 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
83396 if (capi_rwork_tmp == NULL((void*)0)) {
83397 if (!PyErr_Occurred())
83398 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.chbevd to C/Fortran array" );
83399 } else {
83400 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
83401
83402 /* Processing variable liwork */
83403 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (compute_v?3+5*n:1); else
83404 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.chbevd() 5th keyword (liwork) can't be converted to int");
83405 if (f2py_success) {
83406 CHECKSCALAR(liwork>=(compute_v?3+5*n:1),"liwork>=(compute_v?3+5*n:1)","5th keyword liwork","chbevd:liwork=%d",liwork)if (!(liwork>=(compute_v?3+5*n:1))) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""chbevd:liwork=%d", "(""liwork>=(compute_v?3+5*n:1)"
") failed for ""5th keyword liwork", liwork); PyErr_SetString
(_flapack_error,errstring); } else
{
83407 /* Processing variable iwork */
83408 iwork_Dims[0]=liwork;
83409 capi_iwork_intent |= F2PY_INTENT_HIDE8;
83410 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
83411 if (capi_iwork_tmp == NULL((void*)0)) {
83412 if (!PyErr_Occurred())
83413 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.chbevd to C/Fortran array" );
83414 } else {
83415 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
83416
83417/*end of frompyobj*/
83418#ifdef F2PY_REPORT_ATEXIT
83419f2py_start_call_clock();
83420#endif
83421/*callfortranroutine*/
83422 (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,&kd,ab,&ldab,w,z,&ldz,work,&lwork,rwork,&lrwork,iwork,&liwork,&info) ;
83423 /*(*f2py_func)(ab,&compute_v,&lower,&n,&ldab,&kd,w,z,&ldz,work,&lwork,rwork,&lrwork,iwork,&liwork,&info);*/
83424if (PyErr_Occurred())
83425 f2py_success = 0;
83426#ifdef F2PY_REPORT_ATEXIT
83427f2py_stop_call_clock();
83428#endif
83429/*end of callfortranroutine*/
83430 if (f2py_success) {
83431/*pyobjfrom*/
83432/*end of pyobjfrom*/
83433 CFUNCSMESS("Building return value.\n");
83434 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_z_tmp,info);
83435/*closepyobjfrom*/
83436/*end of closepyobjfrom*/
83437 } /*if (f2py_success) after callfortranroutine*/
83438/*cleanupfrompyobj*/
83439 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
83440 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
83441 /* End of cleaning variable iwork */
83442 } /*CHECKSCALAR(liwork>=(compute_v?3+5*n:1))*/
83443 } /*if (f2py_success) of liwork*/
83444 /* End of cleaning variable liwork */
83445 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
83446 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
83447 /* End of cleaning variable rwork */
83448 } /*CHECKSCALAR(lrwork>=(compute_v?1+5*n+2*n*n:n))*/
83449 } /*if (f2py_success) of lrwork*/
83450 /* End of cleaning variable lrwork */
83451 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
83452 } /*if (capi_work_tmp == NULL) ... else of work*/
83453 /* End of cleaning variable work */
83454 /* End of cleaning variable lwork */
83455 } /*if (capi_z_tmp == NULL) ... else of z*/
83456 /* End of cleaning variable z */
83457 /* End of cleaning variable ldz */
83458 } /*if (capi_w_tmp == NULL) ... else of w*/
83459 /* End of cleaning variable w */
83460 /* End of cleaning variable kd */
83461 } /*CHECKSCALAR(n>0)*/
83462 /* End of cleaning variable n */
83463 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
83464 } /*if (f2py_success) of ldab*/
83465 /* End of cleaning variable ldab */
83466 /* End of cleaning variable info */
83467 } /*CHECKSCALAR(lower==0||lower==1)*/
83468 } /*if (f2py_success) of lower*/
83469 /* End of cleaning variable lower */
83470 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
83471 } /*if (f2py_success) of compute_v*/
83472 /* End of cleaning variable compute_v */
83473 if((PyObject *)capi_ab_tmp!=ab_capi) {
83474 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
83475 } /*if (capi_ab_tmp == NULL) ... else of ab*/
83476 /* End of cleaning variable ab */
83477/*end of cleanupfrompyobj*/
83478 if (capi_buildvalue == NULL((void*)0)) {
83479/*routdebugfailure*/
83480 } else {
83481/*routdebugleave*/
83482 }
83483 CFUNCSMESS("Freeing memory.\n");
83484/*freemem*/
83485#ifdef F2PY_REPORT_ATEXIT
83486f2py_stop_clock();
83487#endif
83488 return capi_buildvalue;
83489}
83490/******************************* end of chbevd *******************************/
83491
83492/*********************************** zhbevd ***********************************/
83493static char doc_f2py_rout__flapack_zhbevd[] = "\
83494w,z,info = zhbevd(ab,[compute_v,lower,ldab,lrwork,liwork,overwrite_ab])\n\nWrapper for ``zhbevd``.\
83495\n\nParameters\n----------\n"
83496"ab : input rank-2 array('D') with bounds (ldab,n)\n"
83497"\nOther Parameters\n----------------\n"
83498"overwrite_ab : input int, optional\n Default: 1\n"
83499"compute_v : input int, optional\n Default: 1\n"
83500"lower : input int, optional\n Default: 0\n"
83501"ldab : input int, optional\n Default: shape(ab,0)\n"
83502"lrwork : input int, optional\n Default: (compute_v?1+5*n+2*n*n:n)\n"
83503"liwork : input int, optional\n Default: (compute_v?3+5*n:1)\n"
83504"\nReturns\n-------\n"
83505"w : rank-1 array('d') with bounds (n)\n"
83506"z : rank-2 array('D') with bounds (ldz,ldz)\n"
83507"info : int";
83508/* extern void F_FUNC(zhbevd,ZHBEVD)(char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
83509static PyObject *f2py_rout__flapack_zhbevd(const PyObject *capi_self,
83510 PyObject *capi_args,
83511 PyObject *capi_keywds,
83512 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
83513 PyObject * volatile capi_buildvalue = NULL((void*)0);
83514 volatile int f2py_success = 1;
83515/*decl*/
83516
83517 complex_double *ab = NULL((void*)0);
83518 npy_intp ab_Dims[2] = {-1, -1};
83519 const int ab_Rank = 2;
83520 PyArrayObject *capi_ab_tmp = NULL((void*)0);
83521 int capi_ab_intent = 0;
83522 int capi_overwrite_ab = 1;
83523 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
83524 int compute_v = 0;
83525 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
83526 int lower = 0;
83527 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
83528 int n = 0;
83529 int ldab = 0;
83530 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
83531 int kd = 0;
83532 double *w = NULL((void*)0);
83533 npy_intp w_Dims[1] = {-1};
83534 const int w_Rank = 1;
83535 PyArrayObject *capi_w_tmp = NULL((void*)0);
83536 int capi_w_intent = 0;
83537 complex_double *z = NULL((void*)0);
83538 npy_intp z_Dims[2] = {-1, -1};
83539 const int z_Rank = 2;
83540 PyArrayObject *capi_z_tmp = NULL((void*)0);
83541 int capi_z_intent = 0;
83542 int ldz = 0;
83543 complex_double *work = NULL((void*)0);
83544 npy_intp work_Dims[1] = {-1};
83545 const int work_Rank = 1;
83546 PyArrayObject *capi_work_tmp = NULL((void*)0);
83547 int capi_work_intent = 0;
83548 int lwork = 0;
83549 double *rwork = NULL((void*)0);
83550 npy_intp rwork_Dims[1] = {-1};
83551 const int rwork_Rank = 1;
83552 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
83553 int capi_rwork_intent = 0;
83554 int lrwork = 0;
83555 PyObject *lrwork_capi = Py_None(&_Py_NoneStruct);
83556 int *iwork = NULL((void*)0);
83557 npy_intp iwork_Dims[1] = {-1};
83558 const int iwork_Rank = 1;
83559 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
83560 int capi_iwork_intent = 0;
83561 int liwork = 0;
83562 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
83563 int info = 0;
83564 static char *capi_kwlist[] = {"ab","compute_v","lower","ldab","lrwork","liwork","overwrite_ab",NULL((void*)0)};
83565
83566/*routdebugenter*/
83567#ifdef F2PY_REPORT_ATEXIT
83568f2py_start_clock();
83569#endif
83570 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
83571 "O|OOOOOi:_flapack.zhbevd",\
83572 capi_kwlist,&ab_capi,&compute_v_capi,&lower_capi,&ldab_capi,&lrwork_capi,&liwork_capi,&capi_overwrite_ab))
83573 return NULL((void*)0);
83574/*frompyobj*/
83575 /* Processing variable ab */
83576 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
83577 ;
83578 capi_ab_intent |= F2PY_INTENT_IN1;
83579 capi_ab_tmp = array_from_pyobj(NPY_CDOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
83580 if (capi_ab_tmp == NULL((void*)0)) {
83581 if (!PyErr_Occurred())
83582 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.zhbevd to C/Fortran array" );
83583 } else {
83584 ab = (complex_double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
83585
83586 /* Processing variable compute_v */
83587 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
83588 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.zhbevd() 1st keyword (compute_v) can't be converted to int");
83589 if (f2py_success) {
83590 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","zhbevd:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhbevd:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
83591 /* Processing variable lower */
83592 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
83593 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhbevd() 2nd keyword (lower) can't be converted to int");
83594 if (f2py_success) {
83595 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","zhbevd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhbevd:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
83596 /* Processing variable info */
83597 /* Processing variable ldab */
83598 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
83599 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.zhbevd() 3rd keyword (ldab) can't be converted to int");
83600 if (f2py_success) {
83601 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","zhbevd:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhbevd:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
83602 /* Processing variable n */
83603 n = shape(ab,1)ab_Dims[1];
83604 CHECKSCALAR(n>0,"n>0","hidden n","zhbevd:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhbevd:n=%d", "(""n>0"") failed for ""hidden n",
n); PyErr_SetString(_flapack_error,errstring); } else
{
83605 /* Processing variable kd */
83606 kd = shape(ab,0)ab_Dims[0]-1;
83607 /* Processing variable w */
83608 w_Dims[0]=n;
83609 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
83610 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
83611 if (capi_w_tmp == NULL((void*)0)) {
83612 if (!PyErr_Occurred())
83613 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zhbevd to C/Fortran array" );
83614 } else {
83615 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
83616
83617 /* Processing variable ldz */
83618 ldz = (compute_v?n:1);
83619 /* Processing variable z */
83620 z_Dims[0]=ldz,z_Dims[1]=ldz;
83621 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
83622 capi_z_tmp = array_from_pyobj(NPY_CDOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
83623 if (capi_z_tmp == NULL((void*)0)) {
83624 if (!PyErr_Occurred())
83625 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.zhbevd to C/Fortran array" );
83626 } else {
83627 z = (complex_double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
83628
83629 /* Processing variable lwork */
83630 lwork = max((compute_v?2*n*n:n),1)(((compute_v?2*n*n:n) > 1) ? ((compute_v?2*n*n:n)) : (1));
83631 /* Processing variable work */
83632 work_Dims[0]=lwork;
83633 capi_work_intent |= F2PY_INTENT_HIDE8;
83634 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
83635 if (capi_work_tmp == NULL((void*)0)) {
83636 if (!PyErr_Occurred())
83637 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zhbevd to C/Fortran array" );
83638 } else {
83639 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
83640
83641 /* Processing variable lrwork */
83642 if (lrwork_capi == Py_None(&_Py_NoneStruct)) lrwork = (compute_v?1+5*n+2*n*n:n); else
83643 f2py_success = int_from_pyobj(&lrwork,lrwork_capi,"_flapack.zhbevd() 4th keyword (lrwork) can't be converted to int");
83644 if (f2py_success) {
83645 CHECKSCALAR(lrwork>=(compute_v?1+5*n+2*n*n:n),"lrwork>=(compute_v?1+5*n+2*n*n:n)","4th keyword lrwork","zhbevd:lrwork=%d",lrwork)if (!(lrwork>=(compute_v?1+5*n+2*n*n:n))) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zhbevd:lrwork=%d", "(""lrwork>=(compute_v?1+5*n+2*n*n:n)"
") failed for ""4th keyword lrwork", lrwork); PyErr_SetString
(_flapack_error,errstring); } else
{
83646 /* Processing variable rwork */
83647 rwork_Dims[0]=lrwork;
83648 capi_rwork_intent |= F2PY_INTENT_HIDE8;
83649 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
83650 if (capi_rwork_tmp == NULL((void*)0)) {
83651 if (!PyErr_Occurred())
83652 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zhbevd to C/Fortran array" );
83653 } else {
83654 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
83655
83656 /* Processing variable liwork */
83657 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (compute_v?3+5*n:1); else
83658 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.zhbevd() 5th keyword (liwork) can't be converted to int");
83659 if (f2py_success) {
83660 CHECKSCALAR(liwork>=(compute_v?3+5*n:1),"liwork>=(compute_v?3+5*n:1)","5th keyword liwork","zhbevd:liwork=%d",liwork)if (!(liwork>=(compute_v?3+5*n:1))) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zhbevd:liwork=%d", "(""liwork>=(compute_v?3+5*n:1)"
") failed for ""5th keyword liwork", liwork); PyErr_SetString
(_flapack_error,errstring); } else
{
83661 /* Processing variable iwork */
83662 iwork_Dims[0]=liwork;
83663 capi_iwork_intent |= F2PY_INTENT_HIDE8;
83664 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
83665 if (capi_iwork_tmp == NULL((void*)0)) {
83666 if (!PyErr_Occurred())
83667 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.zhbevd to C/Fortran array" );
83668 } else {
83669 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
83670
83671/*end of frompyobj*/
83672#ifdef F2PY_REPORT_ATEXIT
83673f2py_start_call_clock();
83674#endif
83675/*callfortranroutine*/
83676 (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,&kd,ab,&ldab,w,z,&ldz,work,&lwork,rwork,&lrwork,iwork,&liwork,&info) ;
83677 /*(*f2py_func)(ab,&compute_v,&lower,&n,&ldab,&kd,w,z,&ldz,work,&lwork,rwork,&lrwork,iwork,&liwork,&info);*/
83678if (PyErr_Occurred())
83679 f2py_success = 0;
83680#ifdef F2PY_REPORT_ATEXIT
83681f2py_stop_call_clock();
83682#endif
83683/*end of callfortranroutine*/
83684 if (f2py_success) {
83685/*pyobjfrom*/
83686/*end of pyobjfrom*/
83687 CFUNCSMESS("Building return value.\n");
83688 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_z_tmp,info);
83689/*closepyobjfrom*/
83690/*end of closepyobjfrom*/
83691 } /*if (f2py_success) after callfortranroutine*/
83692/*cleanupfrompyobj*/
83693 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
83694 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
83695 /* End of cleaning variable iwork */
83696 } /*CHECKSCALAR(liwork>=(compute_v?3+5*n:1))*/
83697 } /*if (f2py_success) of liwork*/
83698 /* End of cleaning variable liwork */
83699 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
83700 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
83701 /* End of cleaning variable rwork */
83702 } /*CHECKSCALAR(lrwork>=(compute_v?1+5*n+2*n*n:n))*/
83703 } /*if (f2py_success) of lrwork*/
83704 /* End of cleaning variable lrwork */
83705 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
83706 } /*if (capi_work_tmp == NULL) ... else of work*/
83707 /* End of cleaning variable work */
83708 /* End of cleaning variable lwork */
83709 } /*if (capi_z_tmp == NULL) ... else of z*/
83710 /* End of cleaning variable z */
83711 /* End of cleaning variable ldz */
83712 } /*if (capi_w_tmp == NULL) ... else of w*/
83713 /* End of cleaning variable w */
83714 /* End of cleaning variable kd */
83715 } /*CHECKSCALAR(n>0)*/
83716 /* End of cleaning variable n */
83717 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
83718 } /*if (f2py_success) of ldab*/
83719 /* End of cleaning variable ldab */
83720 /* End of cleaning variable info */
83721 } /*CHECKSCALAR(lower==0||lower==1)*/
83722 } /*if (f2py_success) of lower*/
83723 /* End of cleaning variable lower */
83724 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
83725 } /*if (f2py_success) of compute_v*/
83726 /* End of cleaning variable compute_v */
83727 if((PyObject *)capi_ab_tmp!=ab_capi) {
83728 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
83729 } /*if (capi_ab_tmp == NULL) ... else of ab*/
83730 /* End of cleaning variable ab */
83731/*end of cleanupfrompyobj*/
83732 if (capi_buildvalue == NULL((void*)0)) {
83733/*routdebugfailure*/
83734 } else {
83735/*routdebugleave*/
83736 }
83737 CFUNCSMESS("Freeing memory.\n");
83738/*freemem*/
83739#ifdef F2PY_REPORT_ATEXIT
83740f2py_stop_clock();
83741#endif
83742 return capi_buildvalue;
83743}
83744/******************************* end of zhbevd *******************************/
83745
83746/*********************************** chbevx ***********************************/
83747static char doc_f2py_rout__flapack_chbevx[] = "\
83748w,z,m,ifail,info = chbevx(ab,vl,vu,il,iu,[ldab,compute_v,range,lower,abstol,mmax,overwrite_ab])\n\nWrapper for ``chbevx``.\
83749\n\nParameters\n----------\n"
83750"ab : input rank-2 array('F') with bounds (ldab,n)\n"
83751"vl : input float\n"
83752"vu : input float\n"
83753"il : input int\n"
83754"iu : input int\n"
83755"\nOther Parameters\n----------------\n"
83756"overwrite_ab : input int, optional\n Default: 1\n"
83757"ldab : input int, optional\n Default: shape(ab,0)\n"
83758"compute_v : input int, optional\n Default: 1\n"
83759"range : input int, optional\n Default: 0\n"
83760"lower : input int, optional\n Default: 0\n"
83761"abstol : input float, optional\n Default: 0.0\n"
83762"mmax : input int, optional\n Default: (compute_v?(range==2?(iu-il+1):n):1)\n"
83763"\nReturns\n-------\n"
83764"w : rank-1 array('f') with bounds (n)\n"
83765"z : rank-2 array('F') with bounds (ldz,mmax)\n"
83766"m : int\n"
83767"ifail : rank-1 array('i') with bounds ((compute_v?n:1))\n"
83768"info : int";
83769/* extern void F_FUNC(chbevx,CHBEVX)(char*,char*,char*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,complex_float*,F_INT*,complex_float*,float*,F_INT*,F_INT*,F_INT* ); */
83770static PyObject *f2py_rout__flapack_chbevx(const PyObject *capi_self,
83771 PyObject *capi_args,
83772 PyObject *capi_keywds,
83773 void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,complex_float*,F_INTint*,complex_float*,float*,F_INTint*,F_INTint*,F_INTint* )) {
83774 PyObject * volatile capi_buildvalue = NULL((void*)0);
83775 volatile int f2py_success = 1;
83776/*decl*/
83777
83778 complex_float *ab = NULL((void*)0);
83779 npy_intp ab_Dims[2] = {-1, -1};
83780 const int ab_Rank = 2;
83781 PyArrayObject *capi_ab_tmp = NULL((void*)0);
83782 int capi_ab_intent = 0;
83783 int capi_overwrite_ab = 1;
83784 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
83785 int ldab = 0;
83786 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
83787 int compute_v = 0;
83788 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
83789 int range = 0;
83790 PyObject *range_capi = Py_None(&_Py_NoneStruct);
83791 int lower = 0;
83792 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
83793 int n = 0;
83794 int kd = 0;
83795 complex_float *q = NULL((void*)0);
83796 npy_intp q_Dims[2] = {-1, -1};
83797 const int q_Rank = 2;
83798 PyArrayObject *capi_q_tmp = NULL((void*)0);
83799 int capi_q_intent = 0;
83800 int ldq = 0;
83801 float vl = 0;
83802 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
83803 float vu = 0;
83804 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
83805 int il = 0;
83806 PyObject *il_capi = Py_None(&_Py_NoneStruct);
83807 int iu = 0;
83808 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
83809 float abstol = 0;
83810 PyObject *abstol_capi = Py_None(&_Py_NoneStruct);
83811 float *w = NULL((void*)0);
83812 npy_intp w_Dims[1] = {-1};
83813 const int w_Rank = 1;
83814 PyArrayObject *capi_w_tmp = NULL((void*)0);
83815 int capi_w_intent = 0;
83816 complex_float *z = NULL((void*)0);
83817 npy_intp z_Dims[2] = {-1, -1};
83818 const int z_Rank = 2;
83819 PyArrayObject *capi_z_tmp = NULL((void*)0);
83820 int capi_z_intent = 0;
83821 int m = 0;
83822 int mmax = 0;
83823 PyObject *mmax_capi = Py_None(&_Py_NoneStruct);
83824 int ldz = 0;
83825 complex_float *work = NULL((void*)0);
83826 npy_intp work_Dims[1] = {-1};
83827 const int work_Rank = 1;
83828 PyArrayObject *capi_work_tmp = NULL((void*)0);
83829 int capi_work_intent = 0;
83830 float *rwork = NULL((void*)0);
83831 npy_intp rwork_Dims[1] = {-1};
83832 const int rwork_Rank = 1;
83833 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
83834 int capi_rwork_intent = 0;
83835 int *iwork = NULL((void*)0);
83836 npy_intp iwork_Dims[1] = {-1};
83837 const int iwork_Rank = 1;
83838 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
83839 int capi_iwork_intent = 0;
83840 int *ifail = NULL((void*)0);
83841 npy_intp ifail_Dims[1] = {-1};
83842 const int ifail_Rank = 1;
83843 PyArrayObject *capi_ifail_tmp = NULL((void*)0);
83844 int capi_ifail_intent = 0;
83845 int info = 0;
83846 static char *capi_kwlist[] = {"ab","vl","vu","il","iu","ldab","compute_v","range","lower","abstol","mmax","overwrite_ab",NULL((void*)0)};
83847
83848/*routdebugenter*/
83849#ifdef F2PY_REPORT_ATEXIT
83850f2py_start_clock();
83851#endif
83852 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
83853 "OOOOO|OOOOOOi:_flapack.chbevx",\
83854 capi_kwlist,&ab_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&ldab_capi,&compute_v_capi,&range_capi,&lower_capi,&abstol_capi,&mmax_capi,&capi_overwrite_ab))
83855 return NULL((void*)0);
83856/*frompyobj*/
83857 /* Processing variable compute_v */
83858 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
83859 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.chbevx() 2nd keyword (compute_v) can't be converted to int");
83860 if (f2py_success) {
83861 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","2nd keyword compute_v","chbevx:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chbevx:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""2nd keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
83862 /* Processing variable lower */
83863 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
83864 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.chbevx() 4th keyword (lower) can't be converted to int");
83865 if (f2py_success) {
83866 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","4th keyword lower","chbevx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chbevx:lower=%d", "(""lower==0||lower==1"") failed for "
"4th keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
83867 /* Processing variable range */
83868 if (range_capi == Py_None(&_Py_NoneStruct)) range = 0; else
83869 f2py_success = int_from_pyobj(&range,range_capi,"_flapack.chbevx() 3rd keyword (range) can't be converted to int");
83870 if (f2py_success) {
83871 CHECKSCALAR(range==2||range==1||range==0,"range==2||range==1||range==0","3rd keyword range","chbevx:range=%d",range)if (!(range==2||range==1||range==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chbevx:range=%d", "(""range==2||range==1||range==0"
") failed for ""3rd keyword range", range); PyErr_SetString(_flapack_error
,errstring); } else
{
83872 /* Processing variable ab */
83873 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
83874 ;
83875 capi_ab_intent |= F2PY_INTENT_IN1;
83876 capi_ab_tmp = array_from_pyobj(NPY_CFLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
83877 if (capi_ab_tmp == NULL((void*)0)) {
83878 if (!PyErr_Occurred())
83879 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.chbevx to C/Fortran array" );
83880 } else {
83881 ab = (complex_float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
83882
83883 /* Processing variable vl */
83884 f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.chbevx() 2nd argument (vl) can't be converted to float");
83885 if (f2py_success) {
83886 /* Processing variable vu */
83887 f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.chbevx() 3rd argument (vu) can't be converted to float");
83888 if (f2py_success) {
83889 /* Processing variable abstol */
83890 if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else
83891 f2py_success = float_from_pyobj(&abstol,abstol_capi,"_flapack.chbevx() 5th keyword (abstol) can't be converted to float");
83892 if (f2py_success) {
83893 /* Processing variable m */
83894 /* Processing variable info */
83895 /* Processing variable ldab */
83896 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
83897 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.chbevx() 1st keyword (ldab) can't be converted to int");
83898 if (f2py_success) {
83899 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","1st keyword ldab","chbevx:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chbevx:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"1st keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
83900 /* Processing variable n */
83901 n = shape(ab,1)ab_Dims[1];
83902 /* Processing variable kd */
83903 kd = shape(ab,0)ab_Dims[0]-1;
83904 /* Processing variable ldq */
83905 ldq = (compute_v?n:1);
83906 /* Processing variable q */
83907 q_Dims[0]=ldq,q_Dims[1]=ldq;
83908 capi_q_intent |= F2PY_INTENT_HIDE8;
83909 capi_q_tmp = array_from_pyobj(NPY_CFLOAT,q_Dims,q_Rank,capi_q_intent,Py_None(&_Py_NoneStruct));
83910 if (capi_q_tmp == NULL((void*)0)) {
83911 if (!PyErr_Occurred())
83912 PyErr_SetString(_flapack_error,"failed in converting hidden `q' of _flapack.chbevx to C/Fortran array" );
83913 } else {
83914 q = (complex_float *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data));
83915
83916 /* Processing variable il */
83917 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.chbevx() 4th argument (il) can't be converted to int");
83918 if (f2py_success) {
83919 CHECKSCALAR((il>=1 && il<=n),"(il>=1 && il<=n)","4th argument il","chbevx:il=%d",il)if (!((il>=1 && il<=n))) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""chbevx:il=%d", "(""(il>=1 && il<=n)"
") failed for ""4th argument il", il); PyErr_SetString(_flapack_error
,errstring); } else
{
83920 /* Processing variable iu */
83921 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.chbevx() 5th argument (iu) can't be converted to int");
83922 if (f2py_success) {
83923 CHECKSCALAR((iu>=1 && iu<=n && iu>=il),"(iu>=1 && iu<=n && iu>=il)","5th argument iu","chbevx:iu=%d",iu)if (!((iu>=1 && iu<=n && iu>=il))) {
char errstring[256]; __builtin___sprintf_chk (errstring, 2 -
1, __builtin_object_size (errstring, 2 > 1), "%s: ""chbevx:iu=%d"
, "(""(iu>=1 && iu<=n && iu>=il)"") failed for "
"5th argument iu", iu); PyErr_SetString(_flapack_error,errstring
); } else
{
83924 /* Processing variable w */
83925 w_Dims[0]=n;
83926 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
83927 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
83928 if (capi_w_tmp == NULL((void*)0)) {
83929 if (!PyErr_Occurred())
83930 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.chbevx to C/Fortran array" );
83931 } else {
83932 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
83933
83934 /* Processing variable ldz */
83935 ldz = (compute_v?n:1);
83936 /* Processing variable mmax */
83937 if (mmax_capi == Py_None(&_Py_NoneStruct)) mmax = (compute_v?(range==2?(iu-il+1):n):1); else
83938 f2py_success = int_from_pyobj(&mmax,mmax_capi,"_flapack.chbevx() 6th keyword (mmax) can't be converted to int");
83939 if (f2py_success) {
83940 /* Processing variable work */
83941 work_Dims[0]=n;
83942 capi_work_intent |= F2PY_INTENT_HIDE8;
83943 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
83944 if (capi_work_tmp == NULL((void*)0)) {
83945 if (!PyErr_Occurred())
83946 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.chbevx to C/Fortran array" );
83947 } else {
83948 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
83949
83950 /* Processing variable rwork */
83951 rwork_Dims[0]=7 * n;
83952 capi_rwork_intent |= F2PY_INTENT_HIDE8;
83953 capi_rwork_tmp = array_from_pyobj(NPY_FLOAT,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
83954 if (capi_rwork_tmp == NULL((void*)0)) {
83955 if (!PyErr_Occurred())
83956 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.chbevx to C/Fortran array" );
83957 } else {
83958 rwork = (float *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
83959
83960 /* Processing variable iwork */
83961 iwork_Dims[0]=5 * n;
83962 capi_iwork_intent |= F2PY_INTENT_HIDE8;
83963 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
83964 if (capi_iwork_tmp == NULL((void*)0)) {
83965 if (!PyErr_Occurred())
83966 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.chbevx to C/Fortran array" );
83967 } else {
83968 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
83969
83970 /* Processing variable ifail */
83971 ifail_Dims[0]=(compute_v?n:1);
83972 capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
83973 capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct));
83974 if (capi_ifail_tmp == NULL((void*)0)) {
83975 if (!PyErr_Occurred())
83976 PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.chbevx to C/Fortran array" );
83977 } else {
83978 ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data));
83979
83980 /* Processing variable z */
83981 z_Dims[0]=ldz,z_Dims[1]=mmax;
83982 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
83983 capi_z_tmp = array_from_pyobj(NPY_CFLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
83984 if (capi_z_tmp == NULL((void*)0)) {
83985 if (!PyErr_Occurred())
83986 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.chbevx to C/Fortran array" );
83987 } else {
83988 z = (complex_float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
83989
83990/*end of frompyobj*/
83991#ifdef F2PY_REPORT_ATEXIT
83992f2py_start_call_clock();
83993#endif
83994/*callfortranroutine*/
83995 (*f2py_func)((compute_v?"V":"N"),(range>0?(range==1?"V":"I"):"A"),(lower?"L":"U"),&n,&kd,ab,&ldab,q,&ldq,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,rwork,iwork,ifail,&info) ;
83996 /*(*f2py_func)(ab,&ldab,&compute_v,&range,&lower,&n,&kd,q,&ldq,&vl,&vu,&il,&iu,&abstol,w,z,&m,&mmax,&ldz,work,rwork,iwork,ifail,&info);*/
83997if (PyErr_Occurred())
83998 f2py_success = 0;
83999#ifdef F2PY_REPORT_ATEXIT
84000f2py_stop_call_clock();
84001#endif
84002/*end of callfortranroutine*/
84003 if (f2py_success) {
84004/*pyobjfrom*/
84005/*end of pyobjfrom*/
84006 CFUNCSMESS("Building return value.\n");
84007 capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info);
84008/*closepyobjfrom*/
84009/*end of closepyobjfrom*/
84010 } /*if (f2py_success) after callfortranroutine*/
84011/*cleanupfrompyobj*/
84012 } /*if (capi_z_tmp == NULL) ... else of z*/
84013 /* End of cleaning variable z */
84014 } /*if (capi_ifail_tmp == NULL) ... else of ifail*/
84015 /* End of cleaning variable ifail */
84016 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
84017 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
84018 /* End of cleaning variable iwork */
84019 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
84020 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
84021 /* End of cleaning variable rwork */
84022 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
84023 } /*if (capi_work_tmp == NULL) ... else of work*/
84024 /* End of cleaning variable work */
84025 } /*if (f2py_success) of mmax*/
84026 /* End of cleaning variable mmax */
84027 /* End of cleaning variable ldz */
84028 } /*if (capi_w_tmp == NULL) ... else of w*/
84029 /* End of cleaning variable w */
84030 } /*CHECKSCALAR((iu>=1 && iu<=n && iu>=il))*/
84031 } /*if (f2py_success) of iu*/
84032 /* End of cleaning variable iu */
84033 } /*CHECKSCALAR((il>=1 && il<=n))*/
84034 } /*if (f2py_success) of il*/
84035 /* End of cleaning variable il */
84036 Py_XDECREF(capi_q_tmp)_Py_XDECREF(((PyObject*)(capi_q_tmp)));
84037 } /*if (capi_q_tmp == NULL) ... else of q*/
84038 /* End of cleaning variable q */
84039 /* End of cleaning variable ldq */
84040 /* End of cleaning variable kd */
84041 /* End of cleaning variable n */
84042 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
84043 } /*if (f2py_success) of ldab*/
84044 /* End of cleaning variable ldab */
84045 /* End of cleaning variable info */
84046 /* End of cleaning variable m */
84047 } /*if (f2py_success) of abstol*/
84048 /* End of cleaning variable abstol */
84049 } /*if (f2py_success) of vu*/
84050 /* End of cleaning variable vu */
84051 } /*if (f2py_success) of vl*/
84052 /* End of cleaning variable vl */
84053 if((PyObject *)capi_ab_tmp!=ab_capi) {
84054 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
84055 } /*if (capi_ab_tmp == NULL) ... else of ab*/
84056 /* End of cleaning variable ab */
84057 } /*CHECKSCALAR(range==2||range==1||range==0)*/
84058 } /*if (f2py_success) of range*/
84059 /* End of cleaning variable range */
84060 } /*CHECKSCALAR(lower==0||lower==1)*/
84061 } /*if (f2py_success) of lower*/
84062 /* End of cleaning variable lower */
84063 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
84064 } /*if (f2py_success) of compute_v*/
84065 /* End of cleaning variable compute_v */
84066/*end of cleanupfrompyobj*/
84067 if (capi_buildvalue == NULL((void*)0)) {
84068/*routdebugfailure*/
84069 } else {
84070/*routdebugleave*/
84071 }
84072 CFUNCSMESS("Freeing memory.\n");
84073/*freemem*/
84074#ifdef F2PY_REPORT_ATEXIT
84075f2py_stop_clock();
84076#endif
84077 return capi_buildvalue;
84078}
84079/******************************* end of chbevx *******************************/
84080
84081/*********************************** zhbevx ***********************************/
84082static char doc_f2py_rout__flapack_zhbevx[] = "\
84083w,z,m,ifail,info = zhbevx(ab,vl,vu,il,iu,[ldab,compute_v,range,lower,abstol,mmax,overwrite_ab])\n\nWrapper for ``zhbevx``.\
84084\n\nParameters\n----------\n"
84085"ab : input rank-2 array('D') with bounds (ldab,n)\n"
84086"vl : input float\n"
84087"vu : input float\n"
84088"il : input int\n"
84089"iu : input int\n"
84090"\nOther Parameters\n----------------\n"
84091"overwrite_ab : input int, optional\n Default: 1\n"
84092"ldab : input int, optional\n Default: shape(ab,0)\n"
84093"compute_v : input int, optional\n Default: 1\n"
84094"range : input int, optional\n Default: 0\n"
84095"lower : input int, optional\n Default: 0\n"
84096"abstol : input float, optional\n Default: 0.0\n"
84097"mmax : input int, optional\n Default: (compute_v?(range==2?(iu-il+1):n):1)\n"
84098"\nReturns\n-------\n"
84099"w : rank-1 array('d') with bounds (n)\n"
84100"z : rank-2 array('D') with bounds (ldz,mmax)\n"
84101"m : int\n"
84102"ifail : rank-1 array('i') with bounds ((compute_v?n:1))\n"
84103"info : int";
84104/* extern void F_FUNC(zhbevx,ZHBEVX)(char*,char*,char*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,complex_double*,F_INT*,complex_double*,double*,F_INT*,F_INT*,F_INT* ); */
84105static PyObject *f2py_rout__flapack_zhbevx(const PyObject *capi_self,
84106 PyObject *capi_args,
84107 PyObject *capi_keywds,
84108 void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,complex_double*,F_INTint*,complex_double*,double*,F_INTint*,F_INTint*,F_INTint* )) {
84109 PyObject * volatile capi_buildvalue = NULL((void*)0);
84110 volatile int f2py_success = 1;
84111/*decl*/
84112
84113 complex_double *ab = NULL((void*)0);
84114 npy_intp ab_Dims[2] = {-1, -1};
84115 const int ab_Rank = 2;
84116 PyArrayObject *capi_ab_tmp = NULL((void*)0);
84117 int capi_ab_intent = 0;
84118 int capi_overwrite_ab = 1;
84119 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
84120 int ldab = 0;
84121 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
84122 int compute_v = 0;
84123 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
84124 int range = 0;
84125 PyObject *range_capi = Py_None(&_Py_NoneStruct);
84126 int lower = 0;
84127 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
84128 int n = 0;
84129 int kd = 0;
84130 complex_double *q = NULL((void*)0);
84131 npy_intp q_Dims[2] = {-1, -1};
84132 const int q_Rank = 2;
84133 PyArrayObject *capi_q_tmp = NULL((void*)0);
84134 int capi_q_intent = 0;
84135 int ldq = 0;
84136 double vl = 0;
84137 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
84138 double vu = 0;
84139 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
84140 int il = 0;
84141 PyObject *il_capi = Py_None(&_Py_NoneStruct);
84142 int iu = 0;
84143 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
84144 double abstol = 0;
84145 PyObject *abstol_capi = Py_None(&_Py_NoneStruct);
84146 double *w = NULL((void*)0);
84147 npy_intp w_Dims[1] = {-1};
84148 const int w_Rank = 1;
84149 PyArrayObject *capi_w_tmp = NULL((void*)0);
84150 int capi_w_intent = 0;
84151 complex_double *z = NULL((void*)0);
84152 npy_intp z_Dims[2] = {-1, -1};
84153 const int z_Rank = 2;
84154 PyArrayObject *capi_z_tmp = NULL((void*)0);
84155 int capi_z_intent = 0;
84156 int m = 0;
84157 int mmax = 0;
84158 PyObject *mmax_capi = Py_None(&_Py_NoneStruct);
84159 int ldz = 0;
84160 complex_double *work = NULL((void*)0);
84161 npy_intp work_Dims[1] = {-1};
84162 const int work_Rank = 1;
84163 PyArrayObject *capi_work_tmp = NULL((void*)0);
84164 int capi_work_intent = 0;
84165 double *rwork = NULL((void*)0);
84166 npy_intp rwork_Dims[1] = {-1};
84167 const int rwork_Rank = 1;
84168 PyArrayObject *capi_rwork_tmp = NULL((void*)0);
84169 int capi_rwork_intent = 0;
84170 int *iwork = NULL((void*)0);
84171 npy_intp iwork_Dims[1] = {-1};
84172 const int iwork_Rank = 1;
84173 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
84174 int capi_iwork_intent = 0;
84175 int *ifail = NULL((void*)0);
84176 npy_intp ifail_Dims[1] = {-1};
84177 const int ifail_Rank = 1;
84178 PyArrayObject *capi_ifail_tmp = NULL((void*)0);
84179 int capi_ifail_intent = 0;
84180 int info = 0;
84181 static char *capi_kwlist[] = {"ab","vl","vu","il","iu","ldab","compute_v","range","lower","abstol","mmax","overwrite_ab",NULL((void*)0)};
84182
84183/*routdebugenter*/
84184#ifdef F2PY_REPORT_ATEXIT
84185f2py_start_clock();
84186#endif
84187 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
84188 "OOOOO|OOOOOOi:_flapack.zhbevx",\
84189 capi_kwlist,&ab_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&ldab_capi,&compute_v_capi,&range_capi,&lower_capi,&abstol_capi,&mmax_capi,&capi_overwrite_ab))
84190 return NULL((void*)0);
84191/*frompyobj*/
84192 /* Processing variable compute_v */
84193 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
84194 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.zhbevx() 2nd keyword (compute_v) can't be converted to int");
84195 if (f2py_success) {
84196 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","2nd keyword compute_v","zhbevx:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhbevx:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""2nd keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
84197 /* Processing variable lower */
84198 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
84199 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zhbevx() 4th keyword (lower) can't be converted to int");
84200 if (f2py_success) {
84201 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","4th keyword lower","zhbevx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhbevx:lower=%d", "(""lower==0||lower==1"") failed for "
"4th keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
84202 /* Processing variable range */
84203 if (range_capi == Py_None(&_Py_NoneStruct)) range = 0; else
84204 f2py_success = int_from_pyobj(&range,range_capi,"_flapack.zhbevx() 3rd keyword (range) can't be converted to int");
84205 if (f2py_success) {
84206 CHECKSCALAR(range==2||range==1||range==0,"range==2||range==1||range==0","3rd keyword range","zhbevx:range=%d",range)if (!(range==2||range==1||range==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhbevx:range=%d", "(""range==2||range==1||range==0"
") failed for ""3rd keyword range", range); PyErr_SetString(_flapack_error
,errstring); } else
{
84207 /* Processing variable ab */
84208 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
84209 ;
84210 capi_ab_intent |= F2PY_INTENT_IN1;
84211 capi_ab_tmp = array_from_pyobj(NPY_CDOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
84212 if (capi_ab_tmp == NULL((void*)0)) {
84213 if (!PyErr_Occurred())
84214 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.zhbevx to C/Fortran array" );
84215 } else {
84216 ab = (complex_double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
84217
84218 /* Processing variable vl */
84219 f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.zhbevx() 2nd argument (vl) can't be converted to double");
84220 if (f2py_success) {
84221 /* Processing variable vu */
84222 f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.zhbevx() 3rd argument (vu) can't be converted to double");
84223 if (f2py_success) {
84224 /* Processing variable abstol */
84225 if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else
84226 f2py_success = double_from_pyobj(&abstol,abstol_capi,"_flapack.zhbevx() 5th keyword (abstol) can't be converted to double");
84227 if (f2py_success) {
84228 /* Processing variable m */
84229 /* Processing variable info */
84230 /* Processing variable ldab */
84231 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
84232 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.zhbevx() 1st keyword (ldab) can't be converted to int");
84233 if (f2py_success) {
84234 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","1st keyword ldab","zhbevx:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhbevx:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"1st keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
84235 /* Processing variable n */
84236 n = shape(ab,1)ab_Dims[1];
84237 /* Processing variable kd */
84238 kd = shape(ab,0)ab_Dims[0]-1;
84239 /* Processing variable ldq */
84240 ldq = (compute_v?n:1);
84241 /* Processing variable q */
84242 q_Dims[0]=ldq,q_Dims[1]=ldq;
84243 capi_q_intent |= F2PY_INTENT_HIDE8;
84244 capi_q_tmp = array_from_pyobj(NPY_CDOUBLE,q_Dims,q_Rank,capi_q_intent,Py_None(&_Py_NoneStruct));
84245 if (capi_q_tmp == NULL((void*)0)) {
84246 if (!PyErr_Occurred())
84247 PyErr_SetString(_flapack_error,"failed in converting hidden `q' of _flapack.zhbevx to C/Fortran array" );
84248 } else {
84249 q = (complex_double *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data));
84250
84251 /* Processing variable il */
84252 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.zhbevx() 4th argument (il) can't be converted to int");
84253 if (f2py_success) {
84254 CHECKSCALAR((il>=1 && il<=n),"(il>=1 && il<=n)","4th argument il","zhbevx:il=%d",il)if (!((il>=1 && il<=n))) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zhbevx:il=%d", "(""(il>=1 && il<=n)"
") failed for ""4th argument il", il); PyErr_SetString(_flapack_error
,errstring); } else
{
84255 /* Processing variable iu */
84256 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.zhbevx() 5th argument (iu) can't be converted to int");
84257 if (f2py_success) {
84258 CHECKSCALAR((iu>=1 && iu<=n && iu>=il),"(iu>=1 && iu<=n && iu>=il)","5th argument iu","zhbevx:iu=%d",iu)if (!((iu>=1 && iu<=n && iu>=il))) {
char errstring[256]; __builtin___sprintf_chk (errstring, 2 -
1, __builtin_object_size (errstring, 2 > 1), "%s: ""zhbevx:iu=%d"
, "(""(iu>=1 && iu<=n && iu>=il)"") failed for "
"5th argument iu", iu); PyErr_SetString(_flapack_error,errstring
); } else
{
84259 /* Processing variable w */
84260 w_Dims[0]=n;
84261 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
84262 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
84263 if (capi_w_tmp == NULL((void*)0)) {
84264 if (!PyErr_Occurred())
84265 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.zhbevx to C/Fortran array" );
84266 } else {
84267 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
84268
84269 /* Processing variable ldz */
84270 ldz = (compute_v?n:1);
84271 /* Processing variable mmax */
84272 if (mmax_capi == Py_None(&_Py_NoneStruct)) mmax = (compute_v?(range==2?(iu-il+1):n):1); else
84273 f2py_success = int_from_pyobj(&mmax,mmax_capi,"_flapack.zhbevx() 6th keyword (mmax) can't be converted to int");
84274 if (f2py_success) {
84275 /* Processing variable work */
84276 work_Dims[0]=n;
84277 capi_work_intent |= F2PY_INTENT_HIDE8;
84278 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
84279 if (capi_work_tmp == NULL((void*)0)) {
84280 if (!PyErr_Occurred())
84281 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zhbevx to C/Fortran array" );
84282 } else {
84283 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
84284
84285 /* Processing variable rwork */
84286 rwork_Dims[0]=7 * n;
84287 capi_rwork_intent |= F2PY_INTENT_HIDE8;
84288 capi_rwork_tmp = array_from_pyobj(NPY_DOUBLE,rwork_Dims,rwork_Rank,capi_rwork_intent,Py_None(&_Py_NoneStruct));
84289 if (capi_rwork_tmp == NULL((void*)0)) {
84290 if (!PyErr_Occurred())
84291 PyErr_SetString(_flapack_error,"failed in converting hidden `rwork' of _flapack.zhbevx to C/Fortran array" );
84292 } else {
84293 rwork = (double *)(PyArray_DATA(capi_rwork_tmp)((void *)((PyArrayObject_fields *)(capi_rwork_tmp))->data));
84294
84295 /* Processing variable iwork */
84296 iwork_Dims[0]=5 * n;
84297 capi_iwork_intent |= F2PY_INTENT_HIDE8;
84298 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
84299 if (capi_iwork_tmp == NULL((void*)0)) {
84300 if (!PyErr_Occurred())
84301 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.zhbevx to C/Fortran array" );
84302 } else {
84303 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
84304
84305 /* Processing variable ifail */
84306 ifail_Dims[0]=(compute_v?n:1);
84307 capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
84308 capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct));
84309 if (capi_ifail_tmp == NULL((void*)0)) {
84310 if (!PyErr_Occurred())
84311 PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.zhbevx to C/Fortran array" );
84312 } else {
84313 ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data));
84314
84315 /* Processing variable z */
84316 z_Dims[0]=ldz,z_Dims[1]=mmax;
84317 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
84318 capi_z_tmp = array_from_pyobj(NPY_CDOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
84319 if (capi_z_tmp == NULL((void*)0)) {
84320 if (!PyErr_Occurred())
84321 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.zhbevx to C/Fortran array" );
84322 } else {
84323 z = (complex_double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
84324
84325/*end of frompyobj*/
84326#ifdef F2PY_REPORT_ATEXIT
84327f2py_start_call_clock();
84328#endif
84329/*callfortranroutine*/
84330 (*f2py_func)((compute_v?"V":"N"),(range>0?(range==1?"V":"I"):"A"),(lower?"L":"U"),&n,&kd,ab,&ldab,q,&ldq,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,rwork,iwork,ifail,&info) ;
84331 /*(*f2py_func)(ab,&ldab,&compute_v,&range,&lower,&n,&kd,q,&ldq,&vl,&vu,&il,&iu,&abstol,w,z,&m,&mmax,&ldz,work,rwork,iwork,ifail,&info);*/
84332if (PyErr_Occurred())
84333 f2py_success = 0;
84334#ifdef F2PY_REPORT_ATEXIT
84335f2py_stop_call_clock();
84336#endif
84337/*end of callfortranroutine*/
84338 if (f2py_success) {
84339/*pyobjfrom*/
84340/*end of pyobjfrom*/
84341 CFUNCSMESS("Building return value.\n");
84342 capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info);
84343/*closepyobjfrom*/
84344/*end of closepyobjfrom*/
84345 } /*if (f2py_success) after callfortranroutine*/
84346/*cleanupfrompyobj*/
84347 } /*if (capi_z_tmp == NULL) ... else of z*/
84348 /* End of cleaning variable z */
84349 } /*if (capi_ifail_tmp == NULL) ... else of ifail*/
84350 /* End of cleaning variable ifail */
84351 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
84352 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
84353 /* End of cleaning variable iwork */
84354 Py_XDECREF(capi_rwork_tmp)_Py_XDECREF(((PyObject*)(capi_rwork_tmp)));
84355 } /*if (capi_rwork_tmp == NULL) ... else of rwork*/
84356 /* End of cleaning variable rwork */
84357 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
84358 } /*if (capi_work_tmp == NULL) ... else of work*/
84359 /* End of cleaning variable work */
84360 } /*if (f2py_success) of mmax*/
84361 /* End of cleaning variable mmax */
84362 /* End of cleaning variable ldz */
84363 } /*if (capi_w_tmp == NULL) ... else of w*/
84364 /* End of cleaning variable w */
84365 } /*CHECKSCALAR((iu>=1 && iu<=n && iu>=il))*/
84366 } /*if (f2py_success) of iu*/
84367 /* End of cleaning variable iu */
84368 } /*CHECKSCALAR((il>=1 && il<=n))*/
84369 } /*if (f2py_success) of il*/
84370 /* End of cleaning variable il */
84371 Py_XDECREF(capi_q_tmp)_Py_XDECREF(((PyObject*)(capi_q_tmp)));
84372 } /*if (capi_q_tmp == NULL) ... else of q*/
84373 /* End of cleaning variable q */
84374 /* End of cleaning variable ldq */
84375 /* End of cleaning variable kd */
84376 /* End of cleaning variable n */
84377 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
84378 } /*if (f2py_success) of ldab*/
84379 /* End of cleaning variable ldab */
84380 /* End of cleaning variable info */
84381 /* End of cleaning variable m */
84382 } /*if (f2py_success) of abstol*/
84383 /* End of cleaning variable abstol */
84384 } /*if (f2py_success) of vu*/
84385 /* End of cleaning variable vu */
84386 } /*if (f2py_success) of vl*/
84387 /* End of cleaning variable vl */
84388 if((PyObject *)capi_ab_tmp!=ab_capi) {
84389 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
84390 } /*if (capi_ab_tmp == NULL) ... else of ab*/
84391 /* End of cleaning variable ab */
84392 } /*CHECKSCALAR(range==2||range==1||range==0)*/
84393 } /*if (f2py_success) of range*/
84394 /* End of cleaning variable range */
84395 } /*CHECKSCALAR(lower==0||lower==1)*/
84396 } /*if (f2py_success) of lower*/
84397 /* End of cleaning variable lower */
84398 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
84399 } /*if (f2py_success) of compute_v*/
84400 /* End of cleaning variable compute_v */
84401/*end of cleanupfrompyobj*/
84402 if (capi_buildvalue == NULL((void*)0)) {
84403/*routdebugfailure*/
84404 } else {
84405/*routdebugleave*/
84406 }
84407 CFUNCSMESS("Freeing memory.\n");
84408/*freemem*/
84409#ifdef F2PY_REPORT_ATEXIT
84410f2py_stop_clock();
84411#endif
84412 return capi_buildvalue;
84413}
84414/******************************* end of zhbevx *******************************/
84415
84416/*********************************** sgglse ***********************************/
84417static char doc_f2py_rout__flapack_sgglse[] = "\
84418t,r,res,x,info = sgglse(a,b,c,d,[lwork,overwrite_a,overwrite_b,overwrite_c,overwrite_d])\n\nWrapper for ``sgglse``.\
84419\n\nParameters\n----------\n"
84420"a : input rank-2 array('f') with bounds (m,n)\n"
84421"b : input rank-2 array('f') with bounds (p,n)\n"
84422"c : input rank-1 array('f') with bounds (m)\n"
84423"d : input rank-1 array('f') with bounds (p)\n"
84424"\nOther Parameters\n----------------\n"
84425"overwrite_a : input int, optional\n Default: 0\n"
84426"overwrite_b : input int, optional\n Default: 0\n"
84427"overwrite_c : input int, optional\n Default: 0\n"
84428"overwrite_d : input int, optional\n Default: 0\n"
84429"lwork : input int, optional\n Default: max(m+n+p,1)\n"
84430"\nReturns\n-------\n"
84431"t : rank-2 array('f') with bounds (m,n) and a storage\n"
84432"r : rank-2 array('f') with bounds (p,n) and b storage\n"
84433"res : rank-1 array('f') with bounds (m) and c storage\n"
84434"x : rank-1 array('f') with bounds (n)\n"
84435"info : int";
84436/* extern void F_FUNC(sgglse,SGGLSE)(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT* ); */
84437static PyObject *f2py_rout__flapack_sgglse(const PyObject *capi_self,
84438 PyObject *capi_args,
84439 PyObject *capi_keywds,
84440 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* )) {
84441 PyObject * volatile capi_buildvalue = NULL((void*)0);
84442 volatile int f2py_success = 1;
84443/*decl*/
84444
84445 int m = 0;
84446 int n = 0;
84447 int p = 0;
84448 float *a = NULL((void*)0);
84449 npy_intp a_Dims[2] = {-1, -1};
84450 const int a_Rank = 2;
84451 PyArrayObject *capi_a_tmp = NULL((void*)0);
84452 int capi_a_intent = 0;
84453 int capi_overwrite_a = 0;
84454 PyObject *a_capi = Py_None(&_Py_NoneStruct);
84455 int lda = 0;
84456 float *b = NULL((void*)0);
84457 npy_intp b_Dims[2] = {-1, -1};
84458 const int b_Rank = 2;
84459 PyArrayObject *capi_b_tmp = NULL((void*)0);
84460 int capi_b_intent = 0;
84461 int capi_overwrite_b = 0;
84462 PyObject *b_capi = Py_None(&_Py_NoneStruct);
84463 int ldb = 0;
84464 float *c = NULL((void*)0);
84465 npy_intp c_Dims[1] = {-1};
84466 const int c_Rank = 1;
84467 PyArrayObject *capi_c_tmp = NULL((void*)0);
84468 int capi_c_intent = 0;
84469 int capi_overwrite_c = 0;
84470 PyObject *c_capi = Py_None(&_Py_NoneStruct);
84471 float *d = NULL((void*)0);
84472 npy_intp d_Dims[1] = {-1};
84473 const int d_Rank = 1;
84474 PyArrayObject *capi_d_tmp = NULL((void*)0);
84475 int capi_d_intent = 0;
84476 int capi_overwrite_d = 0;
84477 PyObject *d_capi = Py_None(&_Py_NoneStruct);
84478 float *x = NULL((void*)0);
84479 npy_intp x_Dims[1] = {-1};
84480 const int x_Rank = 1;
84481 PyArrayObject *capi_x_tmp = NULL((void*)0);
84482 int capi_x_intent = 0;
84483 float *work = NULL((void*)0);
84484 npy_intp work_Dims[1] = {-1};
84485 const int work_Rank = 1;
84486 PyArrayObject *capi_work_tmp = NULL((void*)0);
84487 int capi_work_intent = 0;
84488 int lwork = 0;
84489 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
84490 int info = 0;
84491 static char *capi_kwlist[] = {"a","b","c","d","lwork","overwrite_a","overwrite_b","overwrite_c","overwrite_d",NULL((void*)0)};
84492
84493/*routdebugenter*/
84494#ifdef F2PY_REPORT_ATEXIT
84495f2py_start_clock();
84496#endif
84497 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
84498 "OOOO|Oiiii:_flapack.sgglse",\
84499 capi_kwlist,&a_capi,&b_capi,&c_capi,&d_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_c,&capi_overwrite_d))
84500 return NULL((void*)0);
84501/*frompyobj*/
84502 /* Processing variable info */
84503 /* Processing variable a */
84504 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
84505 ;
84506 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
84507 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
84508 if (capi_a_tmp == NULL((void*)0)) {
84509 if (!PyErr_Occurred())
84510 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.sgglse to C/Fortran array" );
84511 } else {
84512 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
84513
84514 /* Processing variable m */
84515 m = shape(a,0)a_Dims[0];
84516 CHECKSCALAR(m>=0,"m>=0","hidden m","sgglse:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgglse:m=%d", "(""m>=0"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
84517 /* Processing variable n */
84518 n = shape(a,1)a_Dims[1];
84519 CHECKSCALAR(n>=0,"n>=0","hidden n","sgglse:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgglse:n=%d", "(""n>=0"") failed for ""hidden n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
84520 /* Processing variable lda */
84521 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
84522 /* Processing variable b */
84523 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
84524 b_Dims[1]=n;
84525 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
84526 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
84527 if (capi_b_tmp == NULL((void*)0)) {
84528 if (!PyErr_Occurred())
84529 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.sgglse to C/Fortran array" );
84530 } else {
84531 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
84532
84533 /* Processing variable ldb */
84534 ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1));
84535 /* Processing variable p */
84536 p = shape(b,0)b_Dims[0];
84537 CHECKSCALAR((p>=n-m)&&(p>=0),"(p>=n-m)&&(p>=0)","hidden p","sgglse:p=%d",p)if (!((p>=n-m)&&(p>=0))) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""sgglse:p=%d", "(""(p>=n-m)&&(p>=0)"
") failed for ""hidden p", p); PyErr_SetString(_flapack_error
,errstring); } else
{
84538 /* Processing variable c */
84539 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
84540 c_Dims[0]=m;
84541 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
84542 capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
84543 if (capi_c_tmp == NULL((void*)0)) {
84544 if (!PyErr_Occurred())
84545 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.sgglse to C/Fortran array" );
84546 } else {
84547 c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
84548
84549 /* Processing variable d */
84550 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
84551 d_Dims[0]=p;
84552 capi_d_intent |= F2PY_INTENT_IN1;
84553 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
84554 if (capi_d_tmp == NULL((void*)0)) {
84555 if (!PyErr_Occurred())
84556 PyErr_SetString(_flapack_error,"failed in converting 4th argument `d' of _flapack.sgglse to C/Fortran array" );
84557 } else {
84558 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
84559
84560 /* Processing variable x */
84561 x_Dims[0]=n;
84562 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
84563 capi_x_tmp = array_from_pyobj(NPY_FLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
84564 if (capi_x_tmp == NULL((void*)0)) {
84565 if (!PyErr_Occurred())
84566 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.sgglse to C/Fortran array" );
84567 } else {
84568 x = (float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
84569
84570 /* Processing variable lwork */
84571 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(m+n+p,1)((m+n+p > 1) ? (m+n+p) : (1)); else
84572 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sgglse() 1st keyword (lwork) can't be converted to int");
84573 if (f2py_success) {
84574 CHECKSCALAR((lwork==-1)||(lwork>=1),"(lwork==-1)||(lwork>=1)","1st keyword lwork","sgglse:lwork=%d",lwork)if (!((lwork==-1)||(lwork>=1))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgglse:lwork=%d", "(""(lwork==-1)||(lwork>=1)"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
84575 /* Processing variable work */
84576 work_Dims[0]=lwork;
84577 capi_work_intent |= F2PY_INTENT_HIDE8;
84578 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
84579 if (capi_work_tmp == NULL((void*)0)) {
84580 if (!PyErr_Occurred())
84581 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sgglse to C/Fortran array" );
84582 } else {
84583 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
84584
84585/*end of frompyobj*/
84586#ifdef F2PY_REPORT_ATEXIT
84587f2py_start_call_clock();
84588#endif
84589/*callfortranroutine*/
84590 (*f2py_func)(&m,&n,&p,a,&lda,b,&ldb,c,d,x,work,&lwork,&info) ;
84591 /*(*f2py_func)(&m,&n,&p,a,&lda,b,&ldb,c,d,x,work,&lwork,&info);*/
84592if (PyErr_Occurred())
84593 f2py_success = 0;
84594#ifdef F2PY_REPORT_ATEXIT
84595f2py_stop_call_clock();
84596#endif
84597/*end of callfortranroutine*/
84598 if (f2py_success) {
84599/*pyobjfrom*/
84600/*end of pyobjfrom*/
84601 CFUNCSMESS("Building return value.\n");
84602 capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_b_tmp,capi_c_tmp,capi_x_tmp,info);
84603/*closepyobjfrom*/
84604/*end of closepyobjfrom*/
84605 } /*if (f2py_success) after callfortranroutine*/
84606/*cleanupfrompyobj*/
84607 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
84608 } /*if (capi_work_tmp == NULL) ... else of work*/
84609 /* End of cleaning variable work */
84610 } /*CHECKSCALAR((lwork==-1)||(lwork>=1))*/
84611 } /*if (f2py_success) of lwork*/
84612 /* End of cleaning variable lwork */
84613 } /*if (capi_x_tmp == NULL) ... else of x*/
84614 /* End of cleaning variable x */
84615 if((PyObject *)capi_d_tmp!=d_capi) {
84616 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
84617 } /*if (capi_d_tmp == NULL) ... else of d*/
84618 /* End of cleaning variable d */
84619 } /*if (capi_c_tmp == NULL) ... else of c*/
84620 /* End of cleaning variable c */
84621 } /*CHECKSCALAR((p>=n-m)&&(p>=0))*/
84622 /* End of cleaning variable p */
84623 /* End of cleaning variable ldb */
84624 } /*if (capi_b_tmp == NULL) ... else of b*/
84625 /* End of cleaning variable b */
84626 /* End of cleaning variable lda */
84627 } /*CHECKSCALAR(n>=0)*/
84628 /* End of cleaning variable n */
84629 } /*CHECKSCALAR(m>=0)*/
84630 /* End of cleaning variable m */
84631 } /*if (capi_a_tmp == NULL) ... else of a*/
84632 /* End of cleaning variable a */
84633 /* End of cleaning variable info */
84634/*end of cleanupfrompyobj*/
84635 if (capi_buildvalue == NULL((void*)0)) {
84636/*routdebugfailure*/
84637 } else {
84638/*routdebugleave*/
84639 }
84640 CFUNCSMESS("Freeing memory.\n");
84641/*freemem*/
84642#ifdef F2PY_REPORT_ATEXIT
84643f2py_stop_clock();
84644#endif
84645 return capi_buildvalue;
84646}
84647/******************************* end of sgglse *******************************/
84648
84649/*********************************** dgglse ***********************************/
84650static char doc_f2py_rout__flapack_dgglse[] = "\
84651t,r,res,x,info = dgglse(a,b,c,d,[lwork,overwrite_a,overwrite_b,overwrite_c,overwrite_d])\n\nWrapper for ``dgglse``.\
84652\n\nParameters\n----------\n"
84653"a : input rank-2 array('d') with bounds (m,n)\n"
84654"b : input rank-2 array('d') with bounds (p,n)\n"
84655"c : input rank-1 array('d') with bounds (m)\n"
84656"d : input rank-1 array('d') with bounds (p)\n"
84657"\nOther Parameters\n----------------\n"
84658"overwrite_a : input int, optional\n Default: 0\n"
84659"overwrite_b : input int, optional\n Default: 0\n"
84660"overwrite_c : input int, optional\n Default: 0\n"
84661"overwrite_d : input int, optional\n Default: 0\n"
84662"lwork : input int, optional\n Default: max(m+n+p,1)\n"
84663"\nReturns\n-------\n"
84664"t : rank-2 array('d') with bounds (m,n) and a storage\n"
84665"r : rank-2 array('d') with bounds (p,n) and b storage\n"
84666"res : rank-1 array('d') with bounds (m) and c storage\n"
84667"x : rank-1 array('d') with bounds (n)\n"
84668"info : int";
84669/* extern void F_FUNC(dgglse,DGGLSE)(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT* ); */
84670static PyObject *f2py_rout__flapack_dgglse(const PyObject *capi_self,
84671 PyObject *capi_args,
84672 PyObject *capi_keywds,
84673 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* )) {
84674 PyObject * volatile capi_buildvalue = NULL((void*)0);
84675 volatile int f2py_success = 1;
84676/*decl*/
84677
84678 int m = 0;
84679 int n = 0;
84680 int p = 0;
84681 double *a = NULL((void*)0);
84682 npy_intp a_Dims[2] = {-1, -1};
84683 const int a_Rank = 2;
84684 PyArrayObject *capi_a_tmp = NULL((void*)0);
84685 int capi_a_intent = 0;
84686 int capi_overwrite_a = 0;
84687 PyObject *a_capi = Py_None(&_Py_NoneStruct);
84688 int lda = 0;
84689 double *b = NULL((void*)0);
84690 npy_intp b_Dims[2] = {-1, -1};
84691 const int b_Rank = 2;
84692 PyArrayObject *capi_b_tmp = NULL((void*)0);
84693 int capi_b_intent = 0;
84694 int capi_overwrite_b = 0;
84695 PyObject *b_capi = Py_None(&_Py_NoneStruct);
84696 int ldb = 0;
84697 double *c = NULL((void*)0);
84698 npy_intp c_Dims[1] = {-1};
84699 const int c_Rank = 1;
84700 PyArrayObject *capi_c_tmp = NULL((void*)0);
84701 int capi_c_intent = 0;
84702 int capi_overwrite_c = 0;
84703 PyObject *c_capi = Py_None(&_Py_NoneStruct);
84704 double *d = NULL((void*)0);
84705 npy_intp d_Dims[1] = {-1};
84706 const int d_Rank = 1;
84707 PyArrayObject *capi_d_tmp = NULL((void*)0);
84708 int capi_d_intent = 0;
84709 int capi_overwrite_d = 0;
84710 PyObject *d_capi = Py_None(&_Py_NoneStruct);
84711 double *x = NULL((void*)0);
84712 npy_intp x_Dims[1] = {-1};
84713 const int x_Rank = 1;
84714 PyArrayObject *capi_x_tmp = NULL((void*)0);
84715 int capi_x_intent = 0;
84716 double *work = NULL((void*)0);
84717 npy_intp work_Dims[1] = {-1};
84718 const int work_Rank = 1;
84719 PyArrayObject *capi_work_tmp = NULL((void*)0);
84720 int capi_work_intent = 0;
84721 int lwork = 0;
84722 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
84723 int info = 0;
84724 static char *capi_kwlist[] = {"a","b","c","d","lwork","overwrite_a","overwrite_b","overwrite_c","overwrite_d",NULL((void*)0)};
84725
84726/*routdebugenter*/
84727#ifdef F2PY_REPORT_ATEXIT
84728f2py_start_clock();
84729#endif
84730 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
84731 "OOOO|Oiiii:_flapack.dgglse",\
84732 capi_kwlist,&a_capi,&b_capi,&c_capi,&d_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_c,&capi_overwrite_d))
84733 return NULL((void*)0);
84734/*frompyobj*/
84735 /* Processing variable info */
84736 /* Processing variable a */
84737 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
84738 ;
84739 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
84740 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
84741 if (capi_a_tmp == NULL((void*)0)) {
84742 if (!PyErr_Occurred())
84743 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dgglse to C/Fortran array" );
84744 } else {
84745 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
84746
84747 /* Processing variable m */
84748 m = shape(a,0)a_Dims[0];
84749 CHECKSCALAR(m>=0,"m>=0","hidden m","dgglse:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgglse:m=%d", "(""m>=0"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
84750 /* Processing variable n */
84751 n = shape(a,1)a_Dims[1];
84752 CHECKSCALAR(n>=0,"n>=0","hidden n","dgglse:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgglse:n=%d", "(""n>=0"") failed for ""hidden n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
84753 /* Processing variable lda */
84754 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
84755 /* Processing variable b */
84756 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
84757 b_Dims[1]=n;
84758 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
84759 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
84760 if (capi_b_tmp == NULL((void*)0)) {
84761 if (!PyErr_Occurred())
84762 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.dgglse to C/Fortran array" );
84763 } else {
84764 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
84765
84766 /* Processing variable ldb */
84767 ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1));
84768 /* Processing variable p */
84769 p = shape(b,0)b_Dims[0];
84770 CHECKSCALAR((p>=n-m)&&(p>=0),"(p>=n-m)&&(p>=0)","hidden p","dgglse:p=%d",p)if (!((p>=n-m)&&(p>=0))) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dgglse:p=%d", "(""(p>=n-m)&&(p>=0)"
") failed for ""hidden p", p); PyErr_SetString(_flapack_error
,errstring); } else
{
84771 /* Processing variable c */
84772 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
84773 c_Dims[0]=m;
84774 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
84775 capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
84776 if (capi_c_tmp == NULL((void*)0)) {
84777 if (!PyErr_Occurred())
84778 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.dgglse to C/Fortran array" );
84779 } else {
84780 c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
84781
84782 /* Processing variable d */
84783 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
84784 d_Dims[0]=p;
84785 capi_d_intent |= F2PY_INTENT_IN1;
84786 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
84787 if (capi_d_tmp == NULL((void*)0)) {
84788 if (!PyErr_Occurred())
84789 PyErr_SetString(_flapack_error,"failed in converting 4th argument `d' of _flapack.dgglse to C/Fortran array" );
84790 } else {
84791 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
84792
84793 /* Processing variable x */
84794 x_Dims[0]=n;
84795 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
84796 capi_x_tmp = array_from_pyobj(NPY_DOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
84797 if (capi_x_tmp == NULL((void*)0)) {
84798 if (!PyErr_Occurred())
84799 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.dgglse to C/Fortran array" );
84800 } else {
84801 x = (double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
84802
84803 /* Processing variable lwork */
84804 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(m+n+p,1)((m+n+p > 1) ? (m+n+p) : (1)); else
84805 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dgglse() 1st keyword (lwork) can't be converted to int");
84806 if (f2py_success) {
84807 CHECKSCALAR((lwork==-1)||(lwork>=1),"(lwork==-1)||(lwork>=1)","1st keyword lwork","dgglse:lwork=%d",lwork)if (!((lwork==-1)||(lwork>=1))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgglse:lwork=%d", "(""(lwork==-1)||(lwork>=1)"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
84808 /* Processing variable work */
84809 work_Dims[0]=lwork;
84810 capi_work_intent |= F2PY_INTENT_HIDE8;
84811 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
84812 if (capi_work_tmp == NULL((void*)0)) {
84813 if (!PyErr_Occurred())
84814 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dgglse to C/Fortran array" );
84815 } else {
84816 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
84817
84818/*end of frompyobj*/
84819#ifdef F2PY_REPORT_ATEXIT
84820f2py_start_call_clock();
84821#endif
84822/*callfortranroutine*/
84823 (*f2py_func)(&m,&n,&p,a,&lda,b,&ldb,c,d,x,work,&lwork,&info) ;
84824 /*(*f2py_func)(&m,&n,&p,a,&lda,b,&ldb,c,d,x,work,&lwork,&info);*/
84825if (PyErr_Occurred())
84826 f2py_success = 0;
84827#ifdef F2PY_REPORT_ATEXIT
84828f2py_stop_call_clock();
84829#endif
84830/*end of callfortranroutine*/
84831 if (f2py_success) {
84832/*pyobjfrom*/
84833/*end of pyobjfrom*/
84834 CFUNCSMESS("Building return value.\n");
84835 capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_b_tmp,capi_c_tmp,capi_x_tmp,info);
84836/*closepyobjfrom*/
84837/*end of closepyobjfrom*/
84838 } /*if (f2py_success) after callfortranroutine*/
84839/*cleanupfrompyobj*/
84840 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
84841 } /*if (capi_work_tmp == NULL) ... else of work*/
84842 /* End of cleaning variable work */
84843 } /*CHECKSCALAR((lwork==-1)||(lwork>=1))*/
84844 } /*if (f2py_success) of lwork*/
84845 /* End of cleaning variable lwork */
84846 } /*if (capi_x_tmp == NULL) ... else of x*/
84847 /* End of cleaning variable x */
84848 if((PyObject *)capi_d_tmp!=d_capi) {
84849 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
84850 } /*if (capi_d_tmp == NULL) ... else of d*/
84851 /* End of cleaning variable d */
84852 } /*if (capi_c_tmp == NULL) ... else of c*/
84853 /* End of cleaning variable c */
84854 } /*CHECKSCALAR((p>=n-m)&&(p>=0))*/
84855 /* End of cleaning variable p */
84856 /* End of cleaning variable ldb */
84857 } /*if (capi_b_tmp == NULL) ... else of b*/
84858 /* End of cleaning variable b */
84859 /* End of cleaning variable lda */
84860 } /*CHECKSCALAR(n>=0)*/
84861 /* End of cleaning variable n */
84862 } /*CHECKSCALAR(m>=0)*/
84863 /* End of cleaning variable m */
84864 } /*if (capi_a_tmp == NULL) ... else of a*/
84865 /* End of cleaning variable a */
84866 /* End of cleaning variable info */
84867/*end of cleanupfrompyobj*/
84868 if (capi_buildvalue == NULL((void*)0)) {
84869/*routdebugfailure*/
84870 } else {
84871/*routdebugleave*/
84872 }
84873 CFUNCSMESS("Freeing memory.\n");
84874/*freemem*/
84875#ifdef F2PY_REPORT_ATEXIT
84876f2py_stop_clock();
84877#endif
84878 return capi_buildvalue;
84879}
84880/******************************* end of dgglse *******************************/
84881
84882/*********************************** cgglse ***********************************/
84883static char doc_f2py_rout__flapack_cgglse[] = "\
84884t,r,res,x,info = cgglse(a,b,c,d,[lwork,overwrite_a,overwrite_b,overwrite_c,overwrite_d])\n\nWrapper for ``cgglse``.\
84885\n\nParameters\n----------\n"
84886"a : input rank-2 array('F') with bounds (m,n)\n"
84887"b : input rank-2 array('F') with bounds (p,n)\n"
84888"c : input rank-1 array('F') with bounds (m)\n"
84889"d : input rank-1 array('F') with bounds (p)\n"
84890"\nOther Parameters\n----------------\n"
84891"overwrite_a : input int, optional\n Default: 0\n"
84892"overwrite_b : input int, optional\n Default: 0\n"
84893"overwrite_c : input int, optional\n Default: 0\n"
84894"overwrite_d : input int, optional\n Default: 0\n"
84895"lwork : input int, optional\n Default: max(m+n+p,1)\n"
84896"\nReturns\n-------\n"
84897"t : rank-2 array('F') with bounds (m,n) and a storage\n"
84898"r : rank-2 array('F') with bounds (p,n) and b storage\n"
84899"res : rank-1 array('F') with bounds (m) and c storage\n"
84900"x : rank-1 array('F') with bounds (n)\n"
84901"info : int";
84902/* extern void F_FUNC(cgglse,CGGLSE)(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,complex_float*,complex_float*,F_INT*,F_INT* ); */
84903static PyObject *f2py_rout__flapack_cgglse(const PyObject *capi_self,
84904 PyObject *capi_args,
84905 PyObject *capi_keywds,
84906 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
84907 PyObject * volatile capi_buildvalue = NULL((void*)0);
84908 volatile int f2py_success = 1;
84909/*decl*/
84910
84911 int m = 0;
84912 int n = 0;
84913 int p = 0;
84914 complex_float *a = NULL((void*)0);
84915 npy_intp a_Dims[2] = {-1, -1};
84916 const int a_Rank = 2;
84917 PyArrayObject *capi_a_tmp = NULL((void*)0);
84918 int capi_a_intent = 0;
84919 int capi_overwrite_a = 0;
84920 PyObject *a_capi = Py_None(&_Py_NoneStruct);
84921 int lda = 0;
84922 complex_float *b = NULL((void*)0);
84923 npy_intp b_Dims[2] = {-1, -1};
84924 const int b_Rank = 2;
84925 PyArrayObject *capi_b_tmp = NULL((void*)0);
84926 int capi_b_intent = 0;
84927 int capi_overwrite_b = 0;
84928 PyObject *b_capi = Py_None(&_Py_NoneStruct);
84929 int ldb = 0;
84930 complex_float *c = NULL((void*)0);
84931 npy_intp c_Dims[1] = {-1};
84932 const int c_Rank = 1;
84933 PyArrayObject *capi_c_tmp = NULL((void*)0);
84934 int capi_c_intent = 0;
84935 int capi_overwrite_c = 0;
84936 PyObject *c_capi = Py_None(&_Py_NoneStruct);
84937 complex_float *d = NULL((void*)0);
84938 npy_intp d_Dims[1] = {-1};
84939 const int d_Rank = 1;
84940 PyArrayObject *capi_d_tmp = NULL((void*)0);
84941 int capi_d_intent = 0;
84942 int capi_overwrite_d = 0;
84943 PyObject *d_capi = Py_None(&_Py_NoneStruct);
84944 complex_float *x = NULL((void*)0);
84945 npy_intp x_Dims[1] = {-1};
84946 const int x_Rank = 1;
84947 PyArrayObject *capi_x_tmp = NULL((void*)0);
84948 int capi_x_intent = 0;
84949 complex_float *work = NULL((void*)0);
84950 npy_intp work_Dims[1] = {-1};
84951 const int work_Rank = 1;
84952 PyArrayObject *capi_work_tmp = NULL((void*)0);
84953 int capi_work_intent = 0;
84954 int lwork = 0;
84955 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
84956 int info = 0;
84957 static char *capi_kwlist[] = {"a","b","c","d","lwork","overwrite_a","overwrite_b","overwrite_c","overwrite_d",NULL((void*)0)};
84958
84959/*routdebugenter*/
84960#ifdef F2PY_REPORT_ATEXIT
84961f2py_start_clock();
84962#endif
84963 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
84964 "OOOO|Oiiii:_flapack.cgglse",\
84965 capi_kwlist,&a_capi,&b_capi,&c_capi,&d_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_c,&capi_overwrite_d))
84966 return NULL((void*)0);
84967/*frompyobj*/
84968 /* Processing variable info */
84969 /* Processing variable a */
84970 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
84971 ;
84972 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
84973 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
84974 if (capi_a_tmp == NULL((void*)0)) {
84975 if (!PyErr_Occurred())
84976 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.cgglse to C/Fortran array" );
84977 } else {
84978 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
84979
84980 /* Processing variable m */
84981 m = shape(a,0)a_Dims[0];
84982 CHECKSCALAR(m>=0,"m>=0","hidden m","cgglse:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgglse:m=%d", "(""m>=0"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
84983 /* Processing variable n */
84984 n = shape(a,1)a_Dims[1];
84985 CHECKSCALAR(n>=0,"n>=0","hidden n","cgglse:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgglse:n=%d", "(""n>=0"") failed for ""hidden n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
84986 /* Processing variable lda */
84987 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
84988 /* Processing variable b */
84989 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
84990 b_Dims[1]=n;
84991 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
84992 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
84993 if (capi_b_tmp == NULL((void*)0)) {
84994 if (!PyErr_Occurred())
84995 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.cgglse to C/Fortran array" );
84996 } else {
84997 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
84998
84999 /* Processing variable ldb */
85000 ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1));
85001 /* Processing variable p */
85002 p = shape(b,0)b_Dims[0];
85003 CHECKSCALAR((p>=n-m)&&(p>=0),"(p>=n-m)&&(p>=0)","hidden p","cgglse:p=%d",p)if (!((p>=n-m)&&(p>=0))) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""cgglse:p=%d", "(""(p>=n-m)&&(p>=0)"
") failed for ""hidden p", p); PyErr_SetString(_flapack_error
,errstring); } else
{
85004 /* Processing variable c */
85005 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
85006 c_Dims[0]=m;
85007 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
85008 capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
85009 if (capi_c_tmp == NULL((void*)0)) {
85010 if (!PyErr_Occurred())
85011 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.cgglse to C/Fortran array" );
85012 } else {
85013 c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
85014
85015 /* Processing variable d */
85016 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
85017 d_Dims[0]=p;
85018 capi_d_intent |= F2PY_INTENT_IN1;
85019 capi_d_tmp = array_from_pyobj(NPY_CFLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
85020 if (capi_d_tmp == NULL((void*)0)) {
85021 if (!PyErr_Occurred())
85022 PyErr_SetString(_flapack_error,"failed in converting 4th argument `d' of _flapack.cgglse to C/Fortran array" );
85023 } else {
85024 d = (complex_float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
85025
85026 /* Processing variable x */
85027 x_Dims[0]=n;
85028 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
85029 capi_x_tmp = array_from_pyobj(NPY_CFLOAT,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
85030 if (capi_x_tmp == NULL((void*)0)) {
85031 if (!PyErr_Occurred())
85032 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.cgglse to C/Fortran array" );
85033 } else {
85034 x = (complex_float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
85035
85036 /* Processing variable lwork */
85037 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(m+n+p,1)((m+n+p > 1) ? (m+n+p) : (1)); else
85038 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.cgglse() 1st keyword (lwork) can't be converted to int");
85039 if (f2py_success) {
85040 CHECKSCALAR((lwork==-1)||(lwork>=1),"(lwork==-1)||(lwork>=1)","1st keyword lwork","cgglse:lwork=%d",lwork)if (!((lwork==-1)||(lwork>=1))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgglse:lwork=%d", "(""(lwork==-1)||(lwork>=1)"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
85041 /* Processing variable work */
85042 work_Dims[0]=lwork;
85043 capi_work_intent |= F2PY_INTENT_HIDE8;
85044 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
85045 if (capi_work_tmp == NULL((void*)0)) {
85046 if (!PyErr_Occurred())
85047 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cgglse to C/Fortran array" );
85048 } else {
85049 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
85050
85051/*end of frompyobj*/
85052#ifdef F2PY_REPORT_ATEXIT
85053f2py_start_call_clock();
85054#endif
85055/*callfortranroutine*/
85056 (*f2py_func)(&m,&n,&p,a,&lda,b,&ldb,c,d,x,work,&lwork,&info) ;
85057 /*(*f2py_func)(&m,&n,&p,a,&lda,b,&ldb,c,d,x,work,&lwork,&info);*/
85058if (PyErr_Occurred())
85059 f2py_success = 0;
85060#ifdef F2PY_REPORT_ATEXIT
85061f2py_stop_call_clock();
85062#endif
85063/*end of callfortranroutine*/
85064 if (f2py_success) {
85065/*pyobjfrom*/
85066/*end of pyobjfrom*/
85067 CFUNCSMESS("Building return value.\n");
85068 capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_b_tmp,capi_c_tmp,capi_x_tmp,info);
85069/*closepyobjfrom*/
85070/*end of closepyobjfrom*/
85071 } /*if (f2py_success) after callfortranroutine*/
85072/*cleanupfrompyobj*/
85073 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
85074 } /*if (capi_work_tmp == NULL) ... else of work*/
85075 /* End of cleaning variable work */
85076 } /*CHECKSCALAR((lwork==-1)||(lwork>=1))*/
85077 } /*if (f2py_success) of lwork*/
85078 /* End of cleaning variable lwork */
85079 } /*if (capi_x_tmp == NULL) ... else of x*/
85080 /* End of cleaning variable x */
85081 if((PyObject *)capi_d_tmp!=d_capi) {
85082 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
85083 } /*if (capi_d_tmp == NULL) ... else of d*/
85084 /* End of cleaning variable d */
85085 } /*if (capi_c_tmp == NULL) ... else of c*/
85086 /* End of cleaning variable c */
85087 } /*CHECKSCALAR((p>=n-m)&&(p>=0))*/
85088 /* End of cleaning variable p */
85089 /* End of cleaning variable ldb */
85090 } /*if (capi_b_tmp == NULL) ... else of b*/
85091 /* End of cleaning variable b */
85092 /* End of cleaning variable lda */
85093 } /*CHECKSCALAR(n>=0)*/
85094 /* End of cleaning variable n */
85095 } /*CHECKSCALAR(m>=0)*/
85096 /* End of cleaning variable m */
85097 } /*if (capi_a_tmp == NULL) ... else of a*/
85098 /* End of cleaning variable a */
85099 /* End of cleaning variable info */
85100/*end of cleanupfrompyobj*/
85101 if (capi_buildvalue == NULL((void*)0)) {
85102/*routdebugfailure*/
85103 } else {
85104/*routdebugleave*/
85105 }
85106 CFUNCSMESS("Freeing memory.\n");
85107/*freemem*/
85108#ifdef F2PY_REPORT_ATEXIT
85109f2py_stop_clock();
85110#endif
85111 return capi_buildvalue;
85112}
85113/******************************* end of cgglse *******************************/
85114
85115/*********************************** zgglse ***********************************/
85116static char doc_f2py_rout__flapack_zgglse[] = "\
85117t,r,res,x,info = zgglse(a,b,c,d,[lwork,overwrite_a,overwrite_b,overwrite_c,overwrite_d])\n\nWrapper for ``zgglse``.\
85118\n\nParameters\n----------\n"
85119"a : input rank-2 array('D') with bounds (m,n)\n"
85120"b : input rank-2 array('D') with bounds (p,n)\n"
85121"c : input rank-1 array('D') with bounds (m)\n"
85122"d : input rank-1 array('D') with bounds (p)\n"
85123"\nOther Parameters\n----------------\n"
85124"overwrite_a : input int, optional\n Default: 0\n"
85125"overwrite_b : input int, optional\n Default: 0\n"
85126"overwrite_c : input int, optional\n Default: 0\n"
85127"overwrite_d : input int, optional\n Default: 0\n"
85128"lwork : input int, optional\n Default: max(m+n+p,1)\n"
85129"\nReturns\n-------\n"
85130"t : rank-2 array('D') with bounds (m,n) and a storage\n"
85131"r : rank-2 array('D') with bounds (p,n) and b storage\n"
85132"res : rank-1 array('D') with bounds (m) and c storage\n"
85133"x : rank-1 array('D') with bounds (n)\n"
85134"info : int";
85135/* extern void F_FUNC(zgglse,ZGGLSE)(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,complex_double*,complex_double*,F_INT*,F_INT* ); */
85136static PyObject *f2py_rout__flapack_zgglse(const PyObject *capi_self,
85137 PyObject *capi_args,
85138 PyObject *capi_keywds,
85139 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
85140 PyObject * volatile capi_buildvalue = NULL((void*)0);
85141 volatile int f2py_success = 1;
85142/*decl*/
85143
85144 int m = 0;
85145 int n = 0;
85146 int p = 0;
85147 complex_double *a = NULL((void*)0);
85148 npy_intp a_Dims[2] = {-1, -1};
85149 const int a_Rank = 2;
85150 PyArrayObject *capi_a_tmp = NULL((void*)0);
85151 int capi_a_intent = 0;
85152 int capi_overwrite_a = 0;
85153 PyObject *a_capi = Py_None(&_Py_NoneStruct);
85154 int lda = 0;
85155 complex_double *b = NULL((void*)0);
85156 npy_intp b_Dims[2] = {-1, -1};
85157 const int b_Rank = 2;
85158 PyArrayObject *capi_b_tmp = NULL((void*)0);
85159 int capi_b_intent = 0;
85160 int capi_overwrite_b = 0;
85161 PyObject *b_capi = Py_None(&_Py_NoneStruct);
85162 int ldb = 0;
85163 complex_double *c = NULL((void*)0);
85164 npy_intp c_Dims[1] = {-1};
85165 const int c_Rank = 1;
85166 PyArrayObject *capi_c_tmp = NULL((void*)0);
85167 int capi_c_intent = 0;
85168 int capi_overwrite_c = 0;
85169 PyObject *c_capi = Py_None(&_Py_NoneStruct);
85170 complex_double *d = NULL((void*)0);
85171 npy_intp d_Dims[1] = {-1};
85172 const int d_Rank = 1;
85173 PyArrayObject *capi_d_tmp = NULL((void*)0);
85174 int capi_d_intent = 0;
85175 int capi_overwrite_d = 0;
85176 PyObject *d_capi = Py_None(&_Py_NoneStruct);
85177 complex_double *x = NULL((void*)0);
85178 npy_intp x_Dims[1] = {-1};
85179 const int x_Rank = 1;
85180 PyArrayObject *capi_x_tmp = NULL((void*)0);
85181 int capi_x_intent = 0;
85182 complex_double *work = NULL((void*)0);
85183 npy_intp work_Dims[1] = {-1};
85184 const int work_Rank = 1;
85185 PyArrayObject *capi_work_tmp = NULL((void*)0);
85186 int capi_work_intent = 0;
85187 int lwork = 0;
85188 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
85189 int info = 0;
85190 static char *capi_kwlist[] = {"a","b","c","d","lwork","overwrite_a","overwrite_b","overwrite_c","overwrite_d",NULL((void*)0)};
85191
85192/*routdebugenter*/
85193#ifdef F2PY_REPORT_ATEXIT
85194f2py_start_clock();
85195#endif
85196 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
85197 "OOOO|Oiiii:_flapack.zgglse",\
85198 capi_kwlist,&a_capi,&b_capi,&c_capi,&d_capi,&lwork_capi,&capi_overwrite_a,&capi_overwrite_b,&capi_overwrite_c,&capi_overwrite_d))
85199 return NULL((void*)0);
85200/*frompyobj*/
85201 /* Processing variable info */
85202 /* Processing variable a */
85203 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
85204 ;
85205 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
85206 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
85207 if (capi_a_tmp == NULL((void*)0)) {
85208 if (!PyErr_Occurred())
85209 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zgglse to C/Fortran array" );
85210 } else {
85211 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
85212
85213 /* Processing variable m */
85214 m = shape(a,0)a_Dims[0];
85215 CHECKSCALAR(m>=0,"m>=0","hidden m","zgglse:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgglse:m=%d", "(""m>=0"") failed for ""hidden m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
85216 /* Processing variable n */
85217 n = shape(a,1)a_Dims[1];
85218 CHECKSCALAR(n>=0,"n>=0","hidden n","zgglse:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgglse:n=%d", "(""n>=0"") failed for ""hidden n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
85219 /* Processing variable lda */
85220 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
85221 /* Processing variable b */
85222 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
85223 b_Dims[1]=n;
85224 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
85225 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
85226 if (capi_b_tmp == NULL((void*)0)) {
85227 if (!PyErr_Occurred())
85228 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `b' of _flapack.zgglse to C/Fortran array" );
85229 } else {
85230 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
85231
85232 /* Processing variable ldb */
85233 ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1));
85234 /* Processing variable p */
85235 p = shape(b,0)b_Dims[0];
85236 CHECKSCALAR((p>=n-m)&&(p>=0),"(p>=n-m)&&(p>=0)","hidden p","zgglse:p=%d",p)if (!((p>=n-m)&&(p>=0))) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zgglse:p=%d", "(""(p>=n-m)&&(p>=0)"
") failed for ""hidden p", p); PyErr_SetString(_flapack_error
,errstring); } else
{
85237 /* Processing variable c */
85238 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
85239 c_Dims[0]=m;
85240 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
85241 capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
85242 if (capi_c_tmp == NULL((void*)0)) {
85243 if (!PyErr_Occurred())
85244 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.zgglse to C/Fortran array" );
85245 } else {
85246 c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
85247
85248 /* Processing variable d */
85249 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
85250 d_Dims[0]=p;
85251 capi_d_intent |= F2PY_INTENT_IN1;
85252 capi_d_tmp = array_from_pyobj(NPY_CDOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
85253 if (capi_d_tmp == NULL((void*)0)) {
85254 if (!PyErr_Occurred())
85255 PyErr_SetString(_flapack_error,"failed in converting 4th argument `d' of _flapack.zgglse to C/Fortran array" );
85256 } else {
85257 d = (complex_double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
85258
85259 /* Processing variable x */
85260 x_Dims[0]=n;
85261 capi_x_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
85262 capi_x_tmp = array_from_pyobj(NPY_CDOUBLE,x_Dims,x_Rank,capi_x_intent,Py_None(&_Py_NoneStruct));
85263 if (capi_x_tmp == NULL((void*)0)) {
85264 if (!PyErr_Occurred())
85265 PyErr_SetString(_flapack_error,"failed in converting hidden `x' of _flapack.zgglse to C/Fortran array" );
85266 } else {
85267 x = (complex_double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
85268
85269 /* Processing variable lwork */
85270 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max(m+n+p,1)((m+n+p > 1) ? (m+n+p) : (1)); else
85271 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.zgglse() 1st keyword (lwork) can't be converted to int");
85272 if (f2py_success) {
85273 CHECKSCALAR((lwork==-1)||(lwork>=1),"(lwork==-1)||(lwork>=1)","1st keyword lwork","zgglse:lwork=%d",lwork)if (!((lwork==-1)||(lwork>=1))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgglse:lwork=%d", "(""(lwork==-1)||(lwork>=1)"") failed for "
"1st keyword lwork", lwork); PyErr_SetString(_flapack_error,errstring
); } else
{
85274 /* Processing variable work */
85275 work_Dims[0]=lwork;
85276 capi_work_intent |= F2PY_INTENT_HIDE8;
85277 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
85278 if (capi_work_tmp == NULL((void*)0)) {
85279 if (!PyErr_Occurred())
85280 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zgglse to C/Fortran array" );
85281 } else {
85282 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
85283
85284/*end of frompyobj*/
85285#ifdef F2PY_REPORT_ATEXIT
85286f2py_start_call_clock();
85287#endif
85288/*callfortranroutine*/
85289 (*f2py_func)(&m,&n,&p,a,&lda,b,&ldb,c,d,x,work,&lwork,&info) ;
85290 /*(*f2py_func)(&m,&n,&p,a,&lda,b,&ldb,c,d,x,work,&lwork,&info);*/
85291if (PyErr_Occurred())
85292 f2py_success = 0;
85293#ifdef F2PY_REPORT_ATEXIT
85294f2py_stop_call_clock();
85295#endif
85296/*end of callfortranroutine*/
85297 if (f2py_success) {
85298/*pyobjfrom*/
85299/*end of pyobjfrom*/
85300 CFUNCSMESS("Building return value.\n");
85301 capi_buildvalue = Py_BuildValue("NNNNi",capi_a_tmp,capi_b_tmp,capi_c_tmp,capi_x_tmp,info);
85302/*closepyobjfrom*/
85303/*end of closepyobjfrom*/
85304 } /*if (f2py_success) after callfortranroutine*/
85305/*cleanupfrompyobj*/
85306 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
85307 } /*if (capi_work_tmp == NULL) ... else of work*/
85308 /* End of cleaning variable work */
85309 } /*CHECKSCALAR((lwork==-1)||(lwork>=1))*/
85310 } /*if (f2py_success) of lwork*/
85311 /* End of cleaning variable lwork */
85312 } /*if (capi_x_tmp == NULL) ... else of x*/
85313 /* End of cleaning variable x */
85314 if((PyObject *)capi_d_tmp!=d_capi) {
85315 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
85316 } /*if (capi_d_tmp == NULL) ... else of d*/
85317 /* End of cleaning variable d */
85318 } /*if (capi_c_tmp == NULL) ... else of c*/
85319 /* End of cleaning variable c */
85320 } /*CHECKSCALAR((p>=n-m)&&(p>=0))*/
85321 /* End of cleaning variable p */
85322 /* End of cleaning variable ldb */
85323 } /*if (capi_b_tmp == NULL) ... else of b*/
85324 /* End of cleaning variable b */
85325 /* End of cleaning variable lda */
85326 } /*CHECKSCALAR(n>=0)*/
85327 /* End of cleaning variable n */
85328 } /*CHECKSCALAR(m>=0)*/
85329 /* End of cleaning variable m */
85330 } /*if (capi_a_tmp == NULL) ... else of a*/
85331 /* End of cleaning variable a */
85332 /* End of cleaning variable info */
85333/*end of cleanupfrompyobj*/
85334 if (capi_buildvalue == NULL((void*)0)) {
85335/*routdebugfailure*/
85336 } else {
85337/*routdebugleave*/
85338 }
85339 CFUNCSMESS("Freeing memory.\n");
85340/*freemem*/
85341#ifdef F2PY_REPORT_ATEXIT
85342f2py_stop_clock();
85343#endif
85344 return capi_buildvalue;
85345}
85346/******************************* end of zgglse *******************************/
85347
85348/******************************** sgglse_lwork ********************************/
85349static char doc_f2py_rout__flapack_sgglse_lwork[] = "\
85350work,info = sgglse_lwork(m,n,p)\n\nWrapper for ``sgglse_lwork``.\
85351\n\nParameters\n----------\n"
85352"m : input int\n"
85353"n : input int\n"
85354"p : input int\n"
85355"\nReturns\n-------\n"
85356"work : float\n"
85357"info : int";
85358/* extern void F_FUNC(sgglse ,SGGLSE )(F_INT*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT* ); */
85359static PyObject *f2py_rout__flapack_sgglse_lwork(const PyObject *capi_self,
85360 PyObject *capi_args,
85361 PyObject *capi_keywds,
85362 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* )) {
85363 PyObject * volatile capi_buildvalue = NULL((void*)0);
85364 volatile int f2py_success = 1;
85365/*decl*/
85366
85367 int m = 0;
85368 PyObject *m_capi = Py_None(&_Py_NoneStruct);
85369 int n = 0;
85370 PyObject *n_capi = Py_None(&_Py_NoneStruct);
85371 int p = 0;
85372 PyObject *p_capi = Py_None(&_Py_NoneStruct);
85373 float a = 0;
85374 int lda = 0;
85375 float b = 0;
85376 int ldb = 0;
85377 float c = 0;
85378 float d = 0;
85379 float x = 0;
85380 float work = 0;
85381 int lwork = 0;
85382 int info = 0;
85383 static char *capi_kwlist[] = {"m","n","p",NULL((void*)0)};
85384
85385/*routdebugenter*/
85386#ifdef F2PY_REPORT_ATEXIT
85387f2py_start_clock();
85388#endif
85389 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
85390 "OOO:_flapack.sgglse_lwork",\
85391 capi_kwlist,&m_capi,&n_capi,&p_capi))
85392 return NULL((void*)0);
85393/*frompyobj*/
85394 /* Processing variable m */
85395 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.sgglse_lwork() 1st argument (m) can't be converted to int");
85396 if (f2py_success) {
85397 CHECKSCALAR(m>=0,"m>=0","1st argument m","sgglse_lwork:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgglse_lwork:m=%d", "(""m>=0"") failed for ""1st argument m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
85398 /* Processing variable n */
85399 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sgglse_lwork() 2nd argument (n) can't be converted to int");
85400 if (f2py_success) {
85401 CHECKSCALAR(n>=0,"n>=0","2nd argument n","sgglse_lwork:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sgglse_lwork:n=%d", "(""n>=0"") failed for ""2nd argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
85402 /* Processing variable info */
85403 /* Processing variable work */
85404 /* Processing variable a */
85405 /* Processing variable b */
85406 /* Processing variable c */
85407 /* Processing variable d */
85408 /* Processing variable x */
85409 /* Processing variable lwork */
85410 lwork = -1;
85411 /* Processing variable p */
85412 f2py_success = int_from_pyobj(&p,p_capi,"_flapack.sgglse_lwork() 3rd argument (p) can't be converted to int");
85413 if (f2py_success) {
85414 CHECKSCALAR((p>=n-m)&&(p>=0)&&p<=n,"(p>=n-m)&&(p>=0)&&p<=n","3rd argument p","sgglse_lwork:p=%d",p)if (!((p>=n-m)&&(p>=0)&&p<=n)) { char
errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""sgglse_lwork:p=%d", "(""(p>=n-m)&&(p>=0)&&p<=n"
") failed for ""3rd argument p", p); PyErr_SetString(_flapack_error
,errstring); } else
{
85415 /* Processing variable lda */
85416 lda = max(1,m)((1 > m) ? (1) : (m));
85417 /* Processing variable ldb */
85418 ldb = max(1,p)((1 > p) ? (1) : (p));
85419/*end of frompyobj*/
85420#ifdef F2PY_REPORT_ATEXIT
85421f2py_start_call_clock();
85422#endif
85423/*callfortranroutine*/
85424 (*f2py_func)(&m,&n,&p,&a,&lda,&b,&ldb,&c,&d,&x,&work,&lwork,&info) ;
85425 /*(*f2py_func)(&m,&n,&p,&a,&lda,&b,&ldb,&c,&d,&x,&work,&lwork,&info);*/
85426if (PyErr_Occurred())
85427 f2py_success = 0;
85428#ifdef F2PY_REPORT_ATEXIT
85429f2py_stop_call_clock();
85430#endif
85431/*end of callfortranroutine*/
85432 if (f2py_success) {
85433/*pyobjfrom*/
85434/*end of pyobjfrom*/
85435 CFUNCSMESS("Building return value.\n");
85436 capi_buildvalue = Py_BuildValue("fi",work,info);
85437/*closepyobjfrom*/
85438/*end of closepyobjfrom*/
85439 } /*if (f2py_success) after callfortranroutine*/
85440/*cleanupfrompyobj*/
85441 /* End of cleaning variable ldb */
85442 /* End of cleaning variable lda */
85443 } /*CHECKSCALAR((p>=n-m)&&(p>=0)&&p<=n)*/
85444 } /*if (f2py_success) of p*/
85445 /* End of cleaning variable p */
85446 /* End of cleaning variable lwork */
85447 /* End of cleaning variable x */
85448 /* End of cleaning variable d */
85449 /* End of cleaning variable c */
85450 /* End of cleaning variable b */
85451 /* End of cleaning variable a */
85452 /* End of cleaning variable work */
85453 /* End of cleaning variable info */
85454 } /*CHECKSCALAR(n>=0)*/
85455 } /*if (f2py_success) of n*/
85456 /* End of cleaning variable n */
85457 } /*CHECKSCALAR(m>=0)*/
85458 } /*if (f2py_success) of m*/
85459 /* End of cleaning variable m */
85460/*end of cleanupfrompyobj*/
85461 if (capi_buildvalue == NULL((void*)0)) {
85462/*routdebugfailure*/
85463 } else {
85464/*routdebugleave*/
85465 }
85466 CFUNCSMESS("Freeing memory.\n");
85467/*freemem*/
85468#ifdef F2PY_REPORT_ATEXIT
85469f2py_stop_clock();
85470#endif
85471 return capi_buildvalue;
85472}
85473/**************************** end of sgglse_lwork ****************************/
85474
85475/******************************** dgglse_lwork ********************************/
85476static char doc_f2py_rout__flapack_dgglse_lwork[] = "\
85477work,info = dgglse_lwork(m,n,p)\n\nWrapper for ``dgglse_lwork``.\
85478\n\nParameters\n----------\n"
85479"m : input int\n"
85480"n : input int\n"
85481"p : input int\n"
85482"\nReturns\n-------\n"
85483"work : float\n"
85484"info : int";
85485/* extern void F_FUNC(dgglse ,DGGLSE )(F_INT*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT* ); */
85486static PyObject *f2py_rout__flapack_dgglse_lwork(const PyObject *capi_self,
85487 PyObject *capi_args,
85488 PyObject *capi_keywds,
85489 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* )) {
85490 PyObject * volatile capi_buildvalue = NULL((void*)0);
85491 volatile int f2py_success = 1;
85492/*decl*/
85493
85494 int m = 0;
85495 PyObject *m_capi = Py_None(&_Py_NoneStruct);
85496 int n = 0;
85497 PyObject *n_capi = Py_None(&_Py_NoneStruct);
85498 int p = 0;
85499 PyObject *p_capi = Py_None(&_Py_NoneStruct);
85500 double a = 0;
85501 int lda = 0;
85502 double b = 0;
85503 int ldb = 0;
85504 double c = 0;
85505 double d = 0;
85506 double x = 0;
85507 double work = 0;
85508 int lwork = 0;
85509 int info = 0;
85510 static char *capi_kwlist[] = {"m","n","p",NULL((void*)0)};
85511
85512/*routdebugenter*/
85513#ifdef F2PY_REPORT_ATEXIT
85514f2py_start_clock();
85515#endif
85516 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
85517 "OOO:_flapack.dgglse_lwork",\
85518 capi_kwlist,&m_capi,&n_capi,&p_capi))
85519 return NULL((void*)0);
85520/*frompyobj*/
85521 /* Processing variable m */
85522 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dgglse_lwork() 1st argument (m) can't be converted to int");
85523 if (f2py_success) {
85524 CHECKSCALAR(m>=0,"m>=0","1st argument m","dgglse_lwork:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgglse_lwork:m=%d", "(""m>=0"") failed for ""1st argument m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
85525 /* Processing variable n */
85526 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dgglse_lwork() 2nd argument (n) can't be converted to int");
85527 if (f2py_success) {
85528 CHECKSCALAR(n>=0,"n>=0","2nd argument n","dgglse_lwork:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dgglse_lwork:n=%d", "(""n>=0"") failed for ""2nd argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
85529 /* Processing variable info */
85530 /* Processing variable work */
85531 /* Processing variable a */
85532 /* Processing variable b */
85533 /* Processing variable c */
85534 /* Processing variable d */
85535 /* Processing variable x */
85536 /* Processing variable lwork */
85537 lwork = -1;
85538 /* Processing variable p */
85539 f2py_success = int_from_pyobj(&p,p_capi,"_flapack.dgglse_lwork() 3rd argument (p) can't be converted to int");
85540 if (f2py_success) {
85541 CHECKSCALAR((p>=n-m)&&(p>=0)&&p<=n,"(p>=n-m)&&(p>=0)&&p<=n","3rd argument p","dgglse_lwork:p=%d",p)if (!((p>=n-m)&&(p>=0)&&p<=n)) { char
errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dgglse_lwork:p=%d", "(""(p>=n-m)&&(p>=0)&&p<=n"
") failed for ""3rd argument p", p); PyErr_SetString(_flapack_error
,errstring); } else
{
85542 /* Processing variable lda */
85543 lda = max(1,m)((1 > m) ? (1) : (m));
85544 /* Processing variable ldb */
85545 ldb = max(1,p)((1 > p) ? (1) : (p));
85546/*end of frompyobj*/
85547#ifdef F2PY_REPORT_ATEXIT
85548f2py_start_call_clock();
85549#endif
85550/*callfortranroutine*/
85551 (*f2py_func)(&m,&n,&p,&a,&lda,&b,&ldb,&c,&d,&x,&work,&lwork,&info) ;
85552 /*(*f2py_func)(&m,&n,&p,&a,&lda,&b,&ldb,&c,&d,&x,&work,&lwork,&info);*/
85553if (PyErr_Occurred())
85554 f2py_success = 0;
85555#ifdef F2PY_REPORT_ATEXIT
85556f2py_stop_call_clock();
85557#endif
85558/*end of callfortranroutine*/
85559 if (f2py_success) {
85560/*pyobjfrom*/
85561/*end of pyobjfrom*/
85562 CFUNCSMESS("Building return value.\n");
85563 capi_buildvalue = Py_BuildValue("di",work,info);
85564/*closepyobjfrom*/
85565/*end of closepyobjfrom*/
85566 } /*if (f2py_success) after callfortranroutine*/
85567/*cleanupfrompyobj*/
85568 /* End of cleaning variable ldb */
85569 /* End of cleaning variable lda */
85570 } /*CHECKSCALAR((p>=n-m)&&(p>=0)&&p<=n)*/
85571 } /*if (f2py_success) of p*/
85572 /* End of cleaning variable p */
85573 /* End of cleaning variable lwork */
85574 /* End of cleaning variable x */
85575 /* End of cleaning variable d */
85576 /* End of cleaning variable c */
85577 /* End of cleaning variable b */
85578 /* End of cleaning variable a */
85579 /* End of cleaning variable work */
85580 /* End of cleaning variable info */
85581 } /*CHECKSCALAR(n>=0)*/
85582 } /*if (f2py_success) of n*/
85583 /* End of cleaning variable n */
85584 } /*CHECKSCALAR(m>=0)*/
85585 } /*if (f2py_success) of m*/
85586 /* End of cleaning variable m */
85587/*end of cleanupfrompyobj*/
85588 if (capi_buildvalue == NULL((void*)0)) {
85589/*routdebugfailure*/
85590 } else {
85591/*routdebugleave*/
85592 }
85593 CFUNCSMESS("Freeing memory.\n");
85594/*freemem*/
85595#ifdef F2PY_REPORT_ATEXIT
85596f2py_stop_clock();
85597#endif
85598 return capi_buildvalue;
85599}
85600/**************************** end of dgglse_lwork ****************************/
85601
85602/******************************** cgglse_lwork ********************************/
85603static char doc_f2py_rout__flapack_cgglse_lwork[] = "\
85604work,info = cgglse_lwork(m,n,p)\n\nWrapper for ``cgglse_lwork``.\
85605\n\nParameters\n----------\n"
85606"m : input int\n"
85607"n : input int\n"
85608"p : input int\n"
85609"\nReturns\n-------\n"
85610"work : complex\n"
85611"info : int";
85612/* extern void F_FUNC(cgglse ,CGGLSE )(F_INT*,F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,complex_float*,complex_float*,F_INT*,F_INT* ); */
85613static PyObject *f2py_rout__flapack_cgglse_lwork(const PyObject *capi_self,
85614 PyObject *capi_args,
85615 PyObject *capi_keywds,
85616 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
85617 PyObject * volatile capi_buildvalue = NULL((void*)0);
85618 volatile int f2py_success = 1;
85619/*decl*/
85620
85621 int m = 0;
85622 PyObject *m_capi = Py_None(&_Py_NoneStruct);
85623 int n = 0;
85624 PyObject *n_capi = Py_None(&_Py_NoneStruct);
85625 int p = 0;
85626 PyObject *p_capi = Py_None(&_Py_NoneStruct);
85627 complex_float a;
85628 int lda = 0;
85629 complex_float b;
85630 int ldb = 0;
85631 complex_float c;
85632 complex_float d;
85633 complex_float x;
85634 complex_float work;
85635 PyObject *work_capi = Py_None(&_Py_NoneStruct);
85636 int lwork = 0;
85637 int info = 0;
85638 static char *capi_kwlist[] = {"m","n","p",NULL((void*)0)};
85639
85640/*routdebugenter*/
85641#ifdef F2PY_REPORT_ATEXIT
85642f2py_start_clock();
85643#endif
85644 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
85645 "OOO:_flapack.cgglse_lwork",\
85646 capi_kwlist,&m_capi,&n_capi,&p_capi))
85647 return NULL((void*)0);
85648/*frompyobj*/
85649 /* Processing variable m */
85650 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.cgglse_lwork() 1st argument (m) can't be converted to int");
85651 if (f2py_success) {
85652 CHECKSCALAR(m>=0,"m>=0","1st argument m","cgglse_lwork:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgglse_lwork:m=%d", "(""m>=0"") failed for ""1st argument m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
85653 /* Processing variable n */
85654 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cgglse_lwork() 2nd argument (n) can't be converted to int");
85655 if (f2py_success) {
85656 CHECKSCALAR(n>=0,"n>=0","2nd argument n","cgglse_lwork:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cgglse_lwork:n=%d", "(""n>=0"") failed for ""2nd argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
85657 /* Processing variable info */
85658 /* Processing variable work */
85659 /* Processing variable a */
85660 /* Processing variable b */
85661 /* Processing variable c */
85662 /* Processing variable d */
85663 /* Processing variable x */
85664 /* Processing variable lwork */
85665 lwork = -1;
85666 /* Processing variable p */
85667 f2py_success = int_from_pyobj(&p,p_capi,"_flapack.cgglse_lwork() 3rd argument (p) can't be converted to int");
85668 if (f2py_success) {
85669 CHECKSCALAR((p>=n-m)&&(p>=0)&&p<=n,"(p>=n-m)&&(p>=0)&&p<=n","3rd argument p","cgglse_lwork:p=%d",p)if (!((p>=n-m)&&(p>=0)&&p<=n)) { char
errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""cgglse_lwork:p=%d", "(""(p>=n-m)&&(p>=0)&&p<=n"
") failed for ""3rd argument p", p); PyErr_SetString(_flapack_error
,errstring); } else
{
85670 /* Processing variable lda */
85671 lda = max(1,m)((1 > m) ? (1) : (m));
85672 /* Processing variable ldb */
85673 ldb = max(1,p)((1 > p) ? (1) : (p));
85674/*end of frompyobj*/
85675#ifdef F2PY_REPORT_ATEXIT
85676f2py_start_call_clock();
85677#endif
85678/*callfortranroutine*/
85679 (*f2py_func)(&m,&n,&p,&a,&lda,&b,&ldb,&c,&d,&x,&work,&lwork,&info) ;
85680 /*(*f2py_func)(&m,&n,&p,&a,&lda,&b,&ldb,&c,&d,&x,&work,&lwork,&info);*/
85681if (PyErr_Occurred())
85682 f2py_success = 0;
85683#ifdef F2PY_REPORT_ATEXIT
85684f2py_stop_call_clock();
85685#endif
85686/*end of callfortranroutine*/
85687 if (f2py_success) {
85688/*pyobjfrom*/
85689 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
85690/*end of pyobjfrom*/
85691 CFUNCSMESS("Building return value.\n");
85692 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
85693/*closepyobjfrom*/
85694/*end of closepyobjfrom*/
85695 } /*if (f2py_success) after callfortranroutine*/
85696/*cleanupfrompyobj*/
85697 /* End of cleaning variable ldb */
85698 /* End of cleaning variable lda */
85699 } /*CHECKSCALAR((p>=n-m)&&(p>=0)&&p<=n)*/
85700 } /*if (f2py_success) of p*/
85701 /* End of cleaning variable p */
85702 /* End of cleaning variable lwork */
85703 /* End of cleaning variable x */
85704 /* End of cleaning variable d */
85705 /* End of cleaning variable c */
85706 /* End of cleaning variable b */
85707 /* End of cleaning variable a */
85708 /* End of cleaning variable work */
85709 /* End of cleaning variable info */
85710 } /*CHECKSCALAR(n>=0)*/
85711 } /*if (f2py_success) of n*/
85712 /* End of cleaning variable n */
85713 } /*CHECKSCALAR(m>=0)*/
85714 } /*if (f2py_success) of m*/
85715 /* End of cleaning variable m */
85716/*end of cleanupfrompyobj*/
85717 if (capi_buildvalue == NULL((void*)0)) {
85718/*routdebugfailure*/
85719 } else {
85720/*routdebugleave*/
85721 }
85722 CFUNCSMESS("Freeing memory.\n");
85723/*freemem*/
85724#ifdef F2PY_REPORT_ATEXIT
85725f2py_stop_clock();
85726#endif
85727 return capi_buildvalue;
85728}
85729/**************************** end of cgglse_lwork ****************************/
85730
85731/******************************** zgglse_lwork ********************************/
85732static char doc_f2py_rout__flapack_zgglse_lwork[] = "\
85733work,info = zgglse_lwork(m,n,p)\n\nWrapper for ``zgglse_lwork``.\
85734\n\nParameters\n----------\n"
85735"m : input int\n"
85736"n : input int\n"
85737"p : input int\n"
85738"\nReturns\n-------\n"
85739"work : complex\n"
85740"info : int";
85741/* extern void F_FUNC(zgglse ,ZGGLSE )(F_INT*,F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,complex_double*,complex_double*,F_INT*,F_INT* ); */
85742static PyObject *f2py_rout__flapack_zgglse_lwork(const PyObject *capi_self,
85743 PyObject *capi_args,
85744 PyObject *capi_keywds,
85745 void (*f2py_func)(F_INTint*,F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
85746 PyObject * volatile capi_buildvalue = NULL((void*)0);
85747 volatile int f2py_success = 1;
85748/*decl*/
85749
85750 int m = 0;
85751 PyObject *m_capi = Py_None(&_Py_NoneStruct);
85752 int n = 0;
85753 PyObject *n_capi = Py_None(&_Py_NoneStruct);
85754 int p = 0;
85755 PyObject *p_capi = Py_None(&_Py_NoneStruct);
85756 complex_double a;
85757 int lda = 0;
85758 complex_double b;
85759 int ldb = 0;
85760 complex_double c;
85761 complex_double d;
85762 complex_double x;
85763 complex_double work;
85764 PyObject *work_capi = Py_None(&_Py_NoneStruct);
85765 int lwork = 0;
85766 int info = 0;
85767 static char *capi_kwlist[] = {"m","n","p",NULL((void*)0)};
85768
85769/*routdebugenter*/
85770#ifdef F2PY_REPORT_ATEXIT
85771f2py_start_clock();
85772#endif
85773 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
85774 "OOO:_flapack.zgglse_lwork",\
85775 capi_kwlist,&m_capi,&n_capi,&p_capi))
85776 return NULL((void*)0);
85777/*frompyobj*/
85778 /* Processing variable m */
85779 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.zgglse_lwork() 1st argument (m) can't be converted to int");
85780 if (f2py_success) {
85781 CHECKSCALAR(m>=0,"m>=0","1st argument m","zgglse_lwork:m=%d",m)if (!(m>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgglse_lwork:m=%d", "(""m>=0"") failed for ""1st argument m"
, m); PyErr_SetString(_flapack_error,errstring); } else
{
85782 /* Processing variable n */
85783 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zgglse_lwork() 2nd argument (n) can't be converted to int");
85784 if (f2py_success) {
85785 CHECKSCALAR(n>=0,"n>=0","2nd argument n","zgglse_lwork:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zgglse_lwork:n=%d", "(""n>=0"") failed for ""2nd argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
85786 /* Processing variable info */
85787 /* Processing variable work */
85788 /* Processing variable a */
85789 /* Processing variable b */
85790 /* Processing variable c */
85791 /* Processing variable d */
85792 /* Processing variable x */
85793 /* Processing variable lwork */
85794 lwork = -1;
85795 /* Processing variable p */
85796 f2py_success = int_from_pyobj(&p,p_capi,"_flapack.zgglse_lwork() 3rd argument (p) can't be converted to int");
85797 if (f2py_success) {
85798 CHECKSCALAR((p>=n-m)&&(p>=0)&&p<=n,"(p>=n-m)&&(p>=0)&&p<=n","3rd argument p","zgglse_lwork:p=%d",p)if (!((p>=n-m)&&(p>=0)&&p<=n)) { char
errstring[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zgglse_lwork:p=%d", "(""(p>=n-m)&&(p>=0)&&p<=n"
") failed for ""3rd argument p", p); PyErr_SetString(_flapack_error
,errstring); } else
{
85799 /* Processing variable lda */
85800 lda = max(1,m)((1 > m) ? (1) : (m));
85801 /* Processing variable ldb */
85802 ldb = max(1,p)((1 > p) ? (1) : (p));
85803/*end of frompyobj*/
85804#ifdef F2PY_REPORT_ATEXIT
85805f2py_start_call_clock();
85806#endif
85807/*callfortranroutine*/
85808 (*f2py_func)(&m,&n,&p,&a,&lda,&b,&ldb,&c,&d,&x,&work,&lwork,&info) ;
85809 /*(*f2py_func)(&m,&n,&p,&a,&lda,&b,&ldb,&c,&d,&x,&work,&lwork,&info);*/
85810if (PyErr_Occurred())
85811 f2py_success = 0;
85812#ifdef F2PY_REPORT_ATEXIT
85813f2py_stop_call_clock();
85814#endif
85815/*end of callfortranroutine*/
85816 if (f2py_success) {
85817/*pyobjfrom*/
85818 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
85819/*end of pyobjfrom*/
85820 CFUNCSMESS("Building return value.\n");
85821 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
85822/*closepyobjfrom*/
85823/*end of closepyobjfrom*/
85824 } /*if (f2py_success) after callfortranroutine*/
85825/*cleanupfrompyobj*/
85826 /* End of cleaning variable ldb */
85827 /* End of cleaning variable lda */
85828 } /*CHECKSCALAR((p>=n-m)&&(p>=0)&&p<=n)*/
85829 } /*if (f2py_success) of p*/
85830 /* End of cleaning variable p */
85831 /* End of cleaning variable lwork */
85832 /* End of cleaning variable x */
85833 /* End of cleaning variable d */
85834 /* End of cleaning variable c */
85835 /* End of cleaning variable b */
85836 /* End of cleaning variable a */
85837 /* End of cleaning variable work */
85838 /* End of cleaning variable info */
85839 } /*CHECKSCALAR(n>=0)*/
85840 } /*if (f2py_success) of n*/
85841 /* End of cleaning variable n */
85842 } /*CHECKSCALAR(m>=0)*/
85843 } /*if (f2py_success) of m*/
85844 /* End of cleaning variable m */
85845/*end of cleanupfrompyobj*/
85846 if (capi_buildvalue == NULL((void*)0)) {
85847/*routdebugfailure*/
85848 } else {
85849/*routdebugleave*/
85850 }
85851 CFUNCSMESS("Freeing memory.\n");
85852/*freemem*/
85853#ifdef F2PY_REPORT_ATEXIT
85854f2py_stop_clock();
85855#endif
85856 return capi_buildvalue;
85857}
85858/**************************** end of zgglse_lwork ****************************/
85859
85860/*********************************** sppcon ***********************************/
85861static char doc_f2py_rout__flapack_sppcon[] = "\
85862rcond,info = sppcon(n,ap,anorm,[lower])\n\nWrapper for ``sppcon``.\
85863\n\nParameters\n----------\n"
85864"n : input int\n"
85865"ap : input rank-1 array('f') with bounds (L)\n"
85866"anorm : input float\n"
85867"\nOther Parameters\n----------------\n"
85868"lower : input int, optional\n Default: 0\n"
85869"\nReturns\n-------\n"
85870"rcond : float\n"
85871"info : int";
85872/* extern void F_FUNC(sppcon,SPPCON)(char*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT* ); */
85873static PyObject *f2py_rout__flapack_sppcon(const PyObject *capi_self,
85874 PyObject *capi_args,
85875 PyObject *capi_keywds,
85876 void (*f2py_func)(char*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint* )) {
85877 PyObject * volatile capi_buildvalue = NULL((void*)0);
85878 volatile int f2py_success = 1;
85879/*decl*/
85880
85881 int lower = 0;
85882 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
85883 int n = 0;
85884 PyObject *n_capi = Py_None(&_Py_NoneStruct);
85885 float *ap = NULL((void*)0);
85886 npy_intp ap_Dims[1] = {-1};
85887 const int ap_Rank = 1;
85888 PyArrayObject *capi_ap_tmp = NULL((void*)0);
85889 int capi_ap_intent = 0;
85890 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
85891 float anorm = 0;
85892 PyObject *anorm_capi = Py_None(&_Py_NoneStruct);
85893 float rcond = 0;
85894 float *work = NULL((void*)0);
85895 npy_intp work_Dims[1] = {-1};
85896 const int work_Rank = 1;
85897 PyArrayObject *capi_work_tmp = NULL((void*)0);
85898 int capi_work_intent = 0;
85899 int *irwork = NULL((void*)0);
85900 npy_intp irwork_Dims[1] = {-1};
85901 const int irwork_Rank = 1;
85902 PyArrayObject *capi_irwork_tmp = NULL((void*)0);
85903 int capi_irwork_intent = 0;
85904 int info = 0;
85905 int L = 0;
85906 static char *capi_kwlist[] = {"n","ap","anorm","lower",NULL((void*)0)};
85907
85908/*routdebugenter*/
85909#ifdef F2PY_REPORT_ATEXIT
85910f2py_start_clock();
85911#endif
85912 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
85913 "OOO|O:_flapack.sppcon",\
85914 capi_kwlist,&n_capi,&ap_capi,&anorm_capi,&lower_capi))
85915 return NULL((void*)0);
85916/*frompyobj*/
85917 /* Processing variable lower */
85918 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
85919 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.sppcon() 1st keyword (lower) can't be converted to int");
85920 if (f2py_success) {
85921 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","sppcon:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sppcon:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
85922 /* Processing variable n */
85923 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sppcon() 1st argument (n) can't be converted to int");
85924 if (f2py_success) {
85925 CHECKSCALAR(n>=0,"n>=0","1st argument n","sppcon:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sppcon:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
85926 /* Processing variable ap */
85927 ;
85928 capi_ap_intent |= F2PY_INTENT_IN1;
85929 capi_ap_tmp = array_from_pyobj(NPY_FLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
85930 if (capi_ap_tmp == NULL((void*)0)) {
85931 if (!PyErr_Occurred())
85932 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.sppcon to C/Fortran array" );
85933 } else {
85934 ap = (float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
85935
85936 /* Processing variable anorm */
85937 f2py_success = float_from_pyobj(&anorm,anorm_capi,"_flapack.sppcon() 3rd argument (anorm) can't be converted to float");
85938 if (f2py_success) {
85939 /* Processing variable rcond */
85940 /* Processing variable info */
85941 /* Processing variable L */
85942 L = len(ap)ap_Dims[0];
85943 CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","sppcon:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sppcon:L=%d", "(""L>=(n*(n+1)/2)"") failed for "
"hidden L", L); PyErr_SetString(_flapack_error,errstring); } else
{
85944 /* Processing variable work */
85945 work_Dims[0]=3 * n;
85946 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
85947 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
85948 if (capi_work_tmp == NULL((void*)0)) {
85949 if (!PyErr_Occurred())
85950 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sppcon to C/Fortran array" );
85951 } else {
85952 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
85953
85954 /* Processing variable irwork */
85955 irwork_Dims[0]=n;
85956 capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
85957 capi_irwork_tmp = array_from_pyobj(NPY_INT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct));
85958 if (capi_irwork_tmp == NULL((void*)0)) {
85959 if (!PyErr_Occurred())
85960 PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.sppcon to C/Fortran array" );
85961 } else {
85962 irwork = (int *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data
)
);
85963
85964/*end of frompyobj*/
85965#ifdef F2PY_REPORT_ATEXIT
85966f2py_start_call_clock();
85967#endif
85968/*callfortranroutine*/
85969 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
85970 (*f2py_func)((lower?"L":"U"),&n,ap,&anorm,&rcond,work,irwork,&info) ;
85971 /*(*f2py_func)(&lower,&n,ap,&anorm,&rcond,work,irwork,&info,&L);*/
85972 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
85973if (PyErr_Occurred())
85974 f2py_success = 0;
85975#ifdef F2PY_REPORT_ATEXIT
85976f2py_stop_call_clock();
85977#endif
85978/*end of callfortranroutine*/
85979 if (f2py_success) {
85980/*pyobjfrom*/
85981/*end of pyobjfrom*/
85982 CFUNCSMESS("Building return value.\n");
85983 capi_buildvalue = Py_BuildValue("fi",rcond,info);
85984/*closepyobjfrom*/
85985/*end of closepyobjfrom*/
85986 } /*if (f2py_success) after callfortranroutine*/
85987/*cleanupfrompyobj*/
85988 Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp)));
85989 } /*if (capi_irwork_tmp == NULL) ... else of irwork*/
85990 /* End of cleaning variable irwork */
85991 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
85992 } /*if (capi_work_tmp == NULL) ... else of work*/
85993 /* End of cleaning variable work */
85994 } /*CHECKSCALAR(L>=(n*(n+1)/2))*/
85995 /* End of cleaning variable L */
85996 /* End of cleaning variable info */
85997 /* End of cleaning variable rcond */
85998 } /*if (f2py_success) of anorm*/
85999 /* End of cleaning variable anorm */
86000 if((PyObject *)capi_ap_tmp!=ap_capi) {
86001 Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); }
86002 } /*if (capi_ap_tmp == NULL) ... else of ap*/
86003 /* End of cleaning variable ap */
86004 } /*CHECKSCALAR(n>=0)*/
86005 } /*if (f2py_success) of n*/
86006 /* End of cleaning variable n */
86007 } /*CHECKSCALAR(lower==0||lower==1)*/
86008 } /*if (f2py_success) of lower*/
86009 /* End of cleaning variable lower */
86010/*end of cleanupfrompyobj*/
86011 if (capi_buildvalue == NULL((void*)0)) {
86012/*routdebugfailure*/
86013 } else {
86014/*routdebugleave*/
86015 }
86016 CFUNCSMESS("Freeing memory.\n");
86017/*freemem*/
86018#ifdef F2PY_REPORT_ATEXIT
86019f2py_stop_clock();
86020#endif
86021 return capi_buildvalue;
86022}
86023/******************************* end of sppcon *******************************/
86024
86025/*********************************** dppcon ***********************************/
86026static char doc_f2py_rout__flapack_dppcon[] = "\
86027rcond,info = dppcon(n,ap,anorm,[lower])\n\nWrapper for ``dppcon``.\
86028\n\nParameters\n----------\n"
86029"n : input int\n"
86030"ap : input rank-1 array('d') with bounds (L)\n"
86031"anorm : input float\n"
86032"\nOther Parameters\n----------------\n"
86033"lower : input int, optional\n Default: 0\n"
86034"\nReturns\n-------\n"
86035"rcond : float\n"
86036"info : int";
86037/* extern void F_FUNC(dppcon,DPPCON)(char*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT* ); */
86038static PyObject *f2py_rout__flapack_dppcon(const PyObject *capi_self,
86039 PyObject *capi_args,
86040 PyObject *capi_keywds,
86041 void (*f2py_func)(char*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint* )) {
86042 PyObject * volatile capi_buildvalue = NULL((void*)0);
86043 volatile int f2py_success = 1;
86044/*decl*/
86045
86046 int lower = 0;
86047 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
86048 int n = 0;
86049 PyObject *n_capi = Py_None(&_Py_NoneStruct);
86050 double *ap = NULL((void*)0);
86051 npy_intp ap_Dims[1] = {-1};
86052 const int ap_Rank = 1;
86053 PyArrayObject *capi_ap_tmp = NULL((void*)0);
86054 int capi_ap_intent = 0;
86055 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
86056 double anorm = 0;
86057 PyObject *anorm_capi = Py_None(&_Py_NoneStruct);
86058 double rcond = 0;
86059 double *work = NULL((void*)0);
86060 npy_intp work_Dims[1] = {-1};
86061 const int work_Rank = 1;
86062 PyArrayObject *capi_work_tmp = NULL((void*)0);
86063 int capi_work_intent = 0;
86064 int *irwork = NULL((void*)0);
86065 npy_intp irwork_Dims[1] = {-1};
86066 const int irwork_Rank = 1;
86067 PyArrayObject *capi_irwork_tmp = NULL((void*)0);
86068 int capi_irwork_intent = 0;
86069 int info = 0;
86070 int L = 0;
86071 static char *capi_kwlist[] = {"n","ap","anorm","lower",NULL((void*)0)};
86072
86073/*routdebugenter*/
86074#ifdef F2PY_REPORT_ATEXIT
86075f2py_start_clock();
86076#endif
86077 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
86078 "OOO|O:_flapack.dppcon",\
86079 capi_kwlist,&n_capi,&ap_capi,&anorm_capi,&lower_capi))
86080 return NULL((void*)0);
86081/*frompyobj*/
86082 /* Processing variable lower */
86083 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
86084 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dppcon() 1st keyword (lower) can't be converted to int");
86085 if (f2py_success) {
86086 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dppcon:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dppcon:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
86087 /* Processing variable n */
86088 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dppcon() 1st argument (n) can't be converted to int");
86089 if (f2py_success) {
86090 CHECKSCALAR(n>=0,"n>=0","1st argument n","dppcon:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dppcon:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
86091 /* Processing variable ap */
86092 ;
86093 capi_ap_intent |= F2PY_INTENT_IN1;
86094 capi_ap_tmp = array_from_pyobj(NPY_DOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
86095 if (capi_ap_tmp == NULL((void*)0)) {
86096 if (!PyErr_Occurred())
86097 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.dppcon to C/Fortran array" );
86098 } else {
86099 ap = (double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
86100
86101 /* Processing variable anorm */
86102 f2py_success = double_from_pyobj(&anorm,anorm_capi,"_flapack.dppcon() 3rd argument (anorm) can't be converted to double");
86103 if (f2py_success) {
86104 /* Processing variable rcond */
86105 /* Processing variable info */
86106 /* Processing variable L */
86107 L = len(ap)ap_Dims[0];
86108 CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","dppcon:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dppcon:L=%d", "(""L>=(n*(n+1)/2)"") failed for "
"hidden L", L); PyErr_SetString(_flapack_error,errstring); } else
{
86109 /* Processing variable work */
86110 work_Dims[0]=3 * n;
86111 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
86112 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
86113 if (capi_work_tmp == NULL((void*)0)) {
86114 if (!PyErr_Occurred())
86115 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dppcon to C/Fortran array" );
86116 } else {
86117 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
86118
86119 /* Processing variable irwork */
86120 irwork_Dims[0]=n;
86121 capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
86122 capi_irwork_tmp = array_from_pyobj(NPY_INT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct));
86123 if (capi_irwork_tmp == NULL((void*)0)) {
86124 if (!PyErr_Occurred())
86125 PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.dppcon to C/Fortran array" );
86126 } else {
86127 irwork = (int *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data
)
);
86128
86129/*end of frompyobj*/
86130#ifdef F2PY_REPORT_ATEXIT
86131f2py_start_call_clock();
86132#endif
86133/*callfortranroutine*/
86134 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
86135 (*f2py_func)((lower?"L":"U"),&n,ap,&anorm,&rcond,work,irwork,&info) ;
86136 /*(*f2py_func)(&lower,&n,ap,&anorm,&rcond,work,irwork,&info,&L);*/
86137 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
86138if (PyErr_Occurred())
86139 f2py_success = 0;
86140#ifdef F2PY_REPORT_ATEXIT
86141f2py_stop_call_clock();
86142#endif
86143/*end of callfortranroutine*/
86144 if (f2py_success) {
86145/*pyobjfrom*/
86146/*end of pyobjfrom*/
86147 CFUNCSMESS("Building return value.\n");
86148 capi_buildvalue = Py_BuildValue("di",rcond,info);
86149/*closepyobjfrom*/
86150/*end of closepyobjfrom*/
86151 } /*if (f2py_success) after callfortranroutine*/
86152/*cleanupfrompyobj*/
86153 Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp)));
86154 } /*if (capi_irwork_tmp == NULL) ... else of irwork*/
86155 /* End of cleaning variable irwork */
86156 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
86157 } /*if (capi_work_tmp == NULL) ... else of work*/
86158 /* End of cleaning variable work */
86159 } /*CHECKSCALAR(L>=(n*(n+1)/2))*/
86160 /* End of cleaning variable L */
86161 /* End of cleaning variable info */
86162 /* End of cleaning variable rcond */
86163 } /*if (f2py_success) of anorm*/
86164 /* End of cleaning variable anorm */
86165 if((PyObject *)capi_ap_tmp!=ap_capi) {
86166 Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); }
86167 } /*if (capi_ap_tmp == NULL) ... else of ap*/
86168 /* End of cleaning variable ap */
86169 } /*CHECKSCALAR(n>=0)*/
86170 } /*if (f2py_success) of n*/
86171 /* End of cleaning variable n */
86172 } /*CHECKSCALAR(lower==0||lower==1)*/
86173 } /*if (f2py_success) of lower*/
86174 /* End of cleaning variable lower */
86175/*end of cleanupfrompyobj*/
86176 if (capi_buildvalue == NULL((void*)0)) {
86177/*routdebugfailure*/
86178 } else {
86179/*routdebugleave*/
86180 }
86181 CFUNCSMESS("Freeing memory.\n");
86182/*freemem*/
86183#ifdef F2PY_REPORT_ATEXIT
86184f2py_stop_clock();
86185#endif
86186 return capi_buildvalue;
86187}
86188/******************************* end of dppcon *******************************/
86189
86190/*********************************** cppcon ***********************************/
86191static char doc_f2py_rout__flapack_cppcon[] = "\
86192rcond,info = cppcon(n,ap,anorm,[lower])\n\nWrapper for ``cppcon``.\
86193\n\nParameters\n----------\n"
86194"n : input int\n"
86195"ap : input rank-1 array('F') with bounds (L)\n"
86196"anorm : input float\n"
86197"\nOther Parameters\n----------------\n"
86198"lower : input int, optional\n Default: 0\n"
86199"\nReturns\n-------\n"
86200"rcond : float\n"
86201"info : int";
86202/* extern void F_FUNC(cppcon,CPPCON)(char*,F_INT*,complex_float*,float*,float*,complex_float*,float*,F_INT* ); */
86203static PyObject *f2py_rout__flapack_cppcon(const PyObject *capi_self,
86204 PyObject *capi_args,
86205 PyObject *capi_keywds,
86206 void (*f2py_func)(char*,F_INTint*,complex_float*,float*,float*,complex_float*,float*,F_INTint* )) {
86207 PyObject * volatile capi_buildvalue = NULL((void*)0);
86208 volatile int f2py_success = 1;
86209/*decl*/
86210
86211 int lower = 0;
86212 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
86213 int n = 0;
86214 PyObject *n_capi = Py_None(&_Py_NoneStruct);
86215 complex_float *ap = NULL((void*)0);
86216 npy_intp ap_Dims[1] = {-1};
86217 const int ap_Rank = 1;
86218 PyArrayObject *capi_ap_tmp = NULL((void*)0);
86219 int capi_ap_intent = 0;
86220 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
86221 float anorm = 0;
86222 PyObject *anorm_capi = Py_None(&_Py_NoneStruct);
86223 float rcond = 0;
86224 complex_float *work = NULL((void*)0);
86225 npy_intp work_Dims[1] = {-1};
86226 const int work_Rank = 1;
86227 PyArrayObject *capi_work_tmp = NULL((void*)0);
86228 int capi_work_intent = 0;
86229 float *irwork = NULL((void*)0);
86230 npy_intp irwork_Dims[1] = {-1};
86231 const int irwork_Rank = 1;
86232 PyArrayObject *capi_irwork_tmp = NULL((void*)0);
86233 int capi_irwork_intent = 0;
86234 int info = 0;
86235 int L = 0;
86236 static char *capi_kwlist[] = {"n","ap","anorm","lower",NULL((void*)0)};
86237
86238/*routdebugenter*/
86239#ifdef F2PY_REPORT_ATEXIT
86240f2py_start_clock();
86241#endif
86242 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
86243 "OOO|O:_flapack.cppcon",\
86244 capi_kwlist,&n_capi,&ap_capi,&anorm_capi,&lower_capi))
86245 return NULL((void*)0);
86246/*frompyobj*/
86247 /* Processing variable lower */
86248 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
86249 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cppcon() 1st keyword (lower) can't be converted to int");
86250 if (f2py_success) {
86251 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cppcon:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cppcon:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
86252 /* Processing variable n */
86253 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cppcon() 1st argument (n) can't be converted to int");
86254 if (f2py_success) {
86255 CHECKSCALAR(n>=0,"n>=0","1st argument n","cppcon:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cppcon:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
86256 /* Processing variable ap */
86257 ;
86258 capi_ap_intent |= F2PY_INTENT_IN1;
86259 capi_ap_tmp = array_from_pyobj(NPY_CFLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
86260 if (capi_ap_tmp == NULL((void*)0)) {
86261 if (!PyErr_Occurred())
86262 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.cppcon to C/Fortran array" );
86263 } else {
86264 ap = (complex_float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
86265
86266 /* Processing variable anorm */
86267 f2py_success = float_from_pyobj(&anorm,anorm_capi,"_flapack.cppcon() 3rd argument (anorm) can't be converted to float");
86268 if (f2py_success) {
86269 /* Processing variable rcond */
86270 /* Processing variable info */
86271 /* Processing variable L */
86272 L = len(ap)ap_Dims[0];
86273 CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","cppcon:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cppcon:L=%d", "(""L>=(n*(n+1)/2)"") failed for "
"hidden L", L); PyErr_SetString(_flapack_error,errstring); } else
{
86274 /* Processing variable work */
86275 work_Dims[0]=2 * n;
86276 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
86277 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
86278 if (capi_work_tmp == NULL((void*)0)) {
86279 if (!PyErr_Occurred())
86280 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.cppcon to C/Fortran array" );
86281 } else {
86282 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
86283
86284 /* Processing variable irwork */
86285 irwork_Dims[0]=n;
86286 capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
86287 capi_irwork_tmp = array_from_pyobj(NPY_FLOAT,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct));
86288 if (capi_irwork_tmp == NULL((void*)0)) {
86289 if (!PyErr_Occurred())
86290 PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.cppcon to C/Fortran array" );
86291 } else {
86292 irwork = (float *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data
)
);
86293
86294/*end of frompyobj*/
86295#ifdef F2PY_REPORT_ATEXIT
86296f2py_start_call_clock();
86297#endif
86298/*callfortranroutine*/
86299 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
86300 (*f2py_func)((lower?"L":"U"),&n,ap,&anorm,&rcond,work,irwork,&info) ;
86301 /*(*f2py_func)(&lower,&n,ap,&anorm,&rcond,work,irwork,&info,&L);*/
86302 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
86303if (PyErr_Occurred())
86304 f2py_success = 0;
86305#ifdef F2PY_REPORT_ATEXIT
86306f2py_stop_call_clock();
86307#endif
86308/*end of callfortranroutine*/
86309 if (f2py_success) {
86310/*pyobjfrom*/
86311/*end of pyobjfrom*/
86312 CFUNCSMESS("Building return value.\n");
86313 capi_buildvalue = Py_BuildValue("fi",rcond,info);
86314/*closepyobjfrom*/
86315/*end of closepyobjfrom*/
86316 } /*if (f2py_success) after callfortranroutine*/
86317/*cleanupfrompyobj*/
86318 Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp)));
86319 } /*if (capi_irwork_tmp == NULL) ... else of irwork*/
86320 /* End of cleaning variable irwork */
86321 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
86322 } /*if (capi_work_tmp == NULL) ... else of work*/
86323 /* End of cleaning variable work */
86324 } /*CHECKSCALAR(L>=(n*(n+1)/2))*/
86325 /* End of cleaning variable L */
86326 /* End of cleaning variable info */
86327 /* End of cleaning variable rcond */
86328 } /*if (f2py_success) of anorm*/
86329 /* End of cleaning variable anorm */
86330 if((PyObject *)capi_ap_tmp!=ap_capi) {
86331 Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); }
86332 } /*if (capi_ap_tmp == NULL) ... else of ap*/
86333 /* End of cleaning variable ap */
86334 } /*CHECKSCALAR(n>=0)*/
86335 } /*if (f2py_success) of n*/
86336 /* End of cleaning variable n */
86337 } /*CHECKSCALAR(lower==0||lower==1)*/
86338 } /*if (f2py_success) of lower*/
86339 /* End of cleaning variable lower */
86340/*end of cleanupfrompyobj*/
86341 if (capi_buildvalue == NULL((void*)0)) {
86342/*routdebugfailure*/
86343 } else {
86344/*routdebugleave*/
86345 }
86346 CFUNCSMESS("Freeing memory.\n");
86347/*freemem*/
86348#ifdef F2PY_REPORT_ATEXIT
86349f2py_stop_clock();
86350#endif
86351 return capi_buildvalue;
86352}
86353/******************************* end of cppcon *******************************/
86354
86355/*********************************** zppcon ***********************************/
86356static char doc_f2py_rout__flapack_zppcon[] = "\
86357rcond,info = zppcon(n,ap,anorm,[lower])\n\nWrapper for ``zppcon``.\
86358\n\nParameters\n----------\n"
86359"n : input int\n"
86360"ap : input rank-1 array('D') with bounds (L)\n"
86361"anorm : input float\n"
86362"\nOther Parameters\n----------------\n"
86363"lower : input int, optional\n Default: 0\n"
86364"\nReturns\n-------\n"
86365"rcond : float\n"
86366"info : int";
86367/* extern void F_FUNC(zppcon,ZPPCON)(char*,F_INT*,complex_double*,double*,double*,complex_double*,double*,F_INT* ); */
86368static PyObject *f2py_rout__flapack_zppcon(const PyObject *capi_self,
86369 PyObject *capi_args,
86370 PyObject *capi_keywds,
86371 void (*f2py_func)(char*,F_INTint*,complex_double*,double*,double*,complex_double*,double*,F_INTint* )) {
86372 PyObject * volatile capi_buildvalue = NULL((void*)0);
86373 volatile int f2py_success = 1;
86374/*decl*/
86375
86376 int lower = 0;
86377 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
86378 int n = 0;
86379 PyObject *n_capi = Py_None(&_Py_NoneStruct);
86380 complex_double *ap = NULL((void*)0);
86381 npy_intp ap_Dims[1] = {-1};
86382 const int ap_Rank = 1;
86383 PyArrayObject *capi_ap_tmp = NULL((void*)0);
86384 int capi_ap_intent = 0;
86385 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
86386 double anorm = 0;
86387 PyObject *anorm_capi = Py_None(&_Py_NoneStruct);
86388 double rcond = 0;
86389 complex_double *work = NULL((void*)0);
86390 npy_intp work_Dims[1] = {-1};
86391 const int work_Rank = 1;
86392 PyArrayObject *capi_work_tmp = NULL((void*)0);
86393 int capi_work_intent = 0;
86394 double *irwork = NULL((void*)0);
86395 npy_intp irwork_Dims[1] = {-1};
86396 const int irwork_Rank = 1;
86397 PyArrayObject *capi_irwork_tmp = NULL((void*)0);
86398 int capi_irwork_intent = 0;
86399 int info = 0;
86400 int L = 0;
86401 static char *capi_kwlist[] = {"n","ap","anorm","lower",NULL((void*)0)};
86402
86403/*routdebugenter*/
86404#ifdef F2PY_REPORT_ATEXIT
86405f2py_start_clock();
86406#endif
86407 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
86408 "OOO|O:_flapack.zppcon",\
86409 capi_kwlist,&n_capi,&ap_capi,&anorm_capi,&lower_capi))
86410 return NULL((void*)0);
86411/*frompyobj*/
86412 /* Processing variable lower */
86413 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
86414 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zppcon() 1st keyword (lower) can't be converted to int");
86415 if (f2py_success) {
86416 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zppcon:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zppcon:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
86417 /* Processing variable n */
86418 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zppcon() 1st argument (n) can't be converted to int");
86419 if (f2py_success) {
86420 CHECKSCALAR(n>=0,"n>=0","1st argument n","zppcon:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zppcon:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
86421 /* Processing variable ap */
86422 ;
86423 capi_ap_intent |= F2PY_INTENT_IN1;
86424 capi_ap_tmp = array_from_pyobj(NPY_CDOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
86425 if (capi_ap_tmp == NULL((void*)0)) {
86426 if (!PyErr_Occurred())
86427 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.zppcon to C/Fortran array" );
86428 } else {
86429 ap = (complex_double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
86430
86431 /* Processing variable anorm */
86432 f2py_success = double_from_pyobj(&anorm,anorm_capi,"_flapack.zppcon() 3rd argument (anorm) can't be converted to double");
86433 if (f2py_success) {
86434 /* Processing variable rcond */
86435 /* Processing variable info */
86436 /* Processing variable L */
86437 L = len(ap)ap_Dims[0];
86438 CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","zppcon:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zppcon:L=%d", "(""L>=(n*(n+1)/2)"") failed for "
"hidden L", L); PyErr_SetString(_flapack_error,errstring); } else
{
86439 /* Processing variable work */
86440 work_Dims[0]=2 * n;
86441 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
86442 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
86443 if (capi_work_tmp == NULL((void*)0)) {
86444 if (!PyErr_Occurred())
86445 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zppcon to C/Fortran array" );
86446 } else {
86447 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
86448
86449 /* Processing variable irwork */
86450 irwork_Dims[0]=n;
86451 capi_irwork_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
86452 capi_irwork_tmp = array_from_pyobj(NPY_DOUBLE,irwork_Dims,irwork_Rank,capi_irwork_intent,Py_None(&_Py_NoneStruct));
86453 if (capi_irwork_tmp == NULL((void*)0)) {
86454 if (!PyErr_Occurred())
86455 PyErr_SetString(_flapack_error,"failed in converting hidden `irwork' of _flapack.zppcon to C/Fortran array" );
86456 } else {
86457 irwork = (double *)(PyArray_DATA(capi_irwork_tmp)((void *)((PyArrayObject_fields *)(capi_irwork_tmp))->data
)
);
86458
86459/*end of frompyobj*/
86460#ifdef F2PY_REPORT_ATEXIT
86461f2py_start_call_clock();
86462#endif
86463/*callfortranroutine*/
86464 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
86465 (*f2py_func)((lower?"L":"U"),&n,ap,&anorm,&rcond,work,irwork,&info) ;
86466 /*(*f2py_func)(&lower,&n,ap,&anorm,&rcond,work,irwork,&info,&L);*/
86467 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
86468if (PyErr_Occurred())
86469 f2py_success = 0;
86470#ifdef F2PY_REPORT_ATEXIT
86471f2py_stop_call_clock();
86472#endif
86473/*end of callfortranroutine*/
86474 if (f2py_success) {
86475/*pyobjfrom*/
86476/*end of pyobjfrom*/
86477 CFUNCSMESS("Building return value.\n");
86478 capi_buildvalue = Py_BuildValue("di",rcond,info);
86479/*closepyobjfrom*/
86480/*end of closepyobjfrom*/
86481 } /*if (f2py_success) after callfortranroutine*/
86482/*cleanupfrompyobj*/
86483 Py_XDECREF(capi_irwork_tmp)_Py_XDECREF(((PyObject*)(capi_irwork_tmp)));
86484 } /*if (capi_irwork_tmp == NULL) ... else of irwork*/
86485 /* End of cleaning variable irwork */
86486 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
86487 } /*if (capi_work_tmp == NULL) ... else of work*/
86488 /* End of cleaning variable work */
86489 } /*CHECKSCALAR(L>=(n*(n+1)/2))*/
86490 /* End of cleaning variable L */
86491 /* End of cleaning variable info */
86492 /* End of cleaning variable rcond */
86493 } /*if (f2py_success) of anorm*/
86494 /* End of cleaning variable anorm */
86495 if((PyObject *)capi_ap_tmp!=ap_capi) {
86496 Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); }
86497 } /*if (capi_ap_tmp == NULL) ... else of ap*/
86498 /* End of cleaning variable ap */
86499 } /*CHECKSCALAR(n>=0)*/
86500 } /*if (f2py_success) of n*/
86501 /* End of cleaning variable n */
86502 } /*CHECKSCALAR(lower==0||lower==1)*/
86503 } /*if (f2py_success) of lower*/
86504 /* End of cleaning variable lower */
86505/*end of cleanupfrompyobj*/
86506 if (capi_buildvalue == NULL((void*)0)) {
86507/*routdebugfailure*/
86508 } else {
86509/*routdebugleave*/
86510 }
86511 CFUNCSMESS("Freeing memory.\n");
86512/*freemem*/
86513#ifdef F2PY_REPORT_ATEXIT
86514f2py_stop_clock();
86515#endif
86516 return capi_buildvalue;
86517}
86518/******************************* end of zppcon *******************************/
86519
86520/*********************************** sppsv ***********************************/
86521static char doc_f2py_rout__flapack_sppsv[] = "\
86522x,info = sppsv(n,ap,b,[lower,overwrite_b])\n\nWrapper for ``sppsv``.\
86523\n\nParameters\n----------\n"
86524"n : input int\n"
86525"ap : input rank-1 array('f') with bounds (L)\n"
86526"b : input rank-2 array('f') with bounds (ldb,nrhs)\n"
86527"\nOther Parameters\n----------------\n"
86528"lower : input int, optional\n Default: 0\n"
86529"overwrite_b : input int, optional\n Default: 0\n"
86530"\nReturns\n-------\n"
86531"x : rank-2 array('f') with bounds (ldb,nrhs) and b storage\n"
86532"info : int";
86533/* extern void F_FUNC(sppsv,SPPSV)(char*,F_INT*,F_INT*,float*,float*,F_INT*,F_INT* ); */
86534static PyObject *f2py_rout__flapack_sppsv(const PyObject *capi_self,
86535 PyObject *capi_args,
86536 PyObject *capi_keywds,
86537 void (*f2py_func)(char*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
86538 PyObject * volatile capi_buildvalue = NULL((void*)0);
86539 volatile int f2py_success = 1;
86540/*decl*/
86541
86542 int lower = 0;
86543 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
86544 int n = 0;
86545 PyObject *n_capi = Py_None(&_Py_NoneStruct);
86546 int nrhs = 0;
86547 float *ap = NULL((void*)0);
86548 npy_intp ap_Dims[1] = {-1};
86549 const int ap_Rank = 1;
86550 PyArrayObject *capi_ap_tmp = NULL((void*)0);
86551 int capi_ap_intent = 0;
86552 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
86553 float *b = NULL((void*)0);
86554 npy_intp b_Dims[2] = {-1, -1};
86555 const int b_Rank = 2;
86556 PyArrayObject *capi_b_tmp = NULL((void*)0);
86557 int capi_b_intent = 0;
86558 int capi_overwrite_b = 0;
86559 PyObject *b_capi = Py_None(&_Py_NoneStruct);
86560 int ldb = 0;
86561 int info = 0;
86562 int L = 0;
86563 static char *capi_kwlist[] = {"n","ap","b","lower","overwrite_b",NULL((void*)0)};
86564
86565/*routdebugenter*/
86566#ifdef F2PY_REPORT_ATEXIT
86567f2py_start_clock();
86568#endif
86569 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
86570 "OOO|Oi:_flapack.sppsv",\
86571 capi_kwlist,&n_capi,&ap_capi,&b_capi,&lower_capi,&capi_overwrite_b))
86572 return NULL((void*)0);
86573/*frompyobj*/
86574 /* Processing variable lower */
86575 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
86576 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.sppsv() 1st keyword (lower) can't be converted to int");
86577 if (f2py_success) {
86578 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","sppsv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sppsv:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
86579 /* Processing variable n */
86580 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.sppsv() 1st argument (n) can't be converted to int");
86581 if (f2py_success) {
86582 CHECKSCALAR(n>=0,"n>=0","1st argument n","sppsv:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sppsv:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
86583 /* Processing variable ap */
86584 ;
86585 capi_ap_intent |= F2PY_INTENT_IN1;
86586 capi_ap_tmp = array_from_pyobj(NPY_FLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
86587 if (capi_ap_tmp == NULL((void*)0)) {
86588 if (!PyErr_Occurred())
86589 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.sppsv to C/Fortran array" );
86590 } else {
86591 ap = (float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
86592
86593 /* Processing variable b */
86594 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
86595 ;
86596 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
86597 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
86598 if (capi_b_tmp == NULL((void*)0)) {
86599 if (!PyErr_Occurred())
86600 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.sppsv to C/Fortran array" );
86601 } else {
86602 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
86603
86604 /* Processing variable info */
86605 /* Processing variable ldb */
86606 ldb = max(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
86607 /* Processing variable nrhs */
86608 nrhs = shape(b,1)b_Dims[1];
86609 /* Processing variable L */
86610 L = len(ap)ap_Dims[0];
86611 CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","sppsv:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sppsv:L=%d", "(""L>=(n*(n+1)/2)"") failed for ""hidden L"
, L); PyErr_SetString(_flapack_error,errstring); } else
{
86612/*end of frompyobj*/
86613#ifdef F2PY_REPORT_ATEXIT
86614f2py_start_call_clock();
86615#endif
86616/*callfortranroutine*/
86617 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
86618 (*f2py_func)((lower?"L":"U"),&n,&nrhs,ap,b,&ldb,&info) ;
86619 /*(*f2py_func)(&lower,&n,&nrhs,ap,b,&ldb,&info,&L);*/
86620 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
86621if (PyErr_Occurred())
86622 f2py_success = 0;
86623#ifdef F2PY_REPORT_ATEXIT
86624f2py_stop_call_clock();
86625#endif
86626/*end of callfortranroutine*/
86627 if (f2py_success) {
86628/*pyobjfrom*/
86629/*end of pyobjfrom*/
86630 CFUNCSMESS("Building return value.\n");
86631 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
86632/*closepyobjfrom*/
86633/*end of closepyobjfrom*/
86634 } /*if (f2py_success) after callfortranroutine*/
86635/*cleanupfrompyobj*/
86636 } /*CHECKSCALAR(L>=(n*(n+1)/2))*/
86637 /* End of cleaning variable L */
86638 /* End of cleaning variable nrhs */
86639 /* End of cleaning variable ldb */
86640 /* End of cleaning variable info */
86641 } /*if (capi_b_tmp == NULL) ... else of b*/
86642 /* End of cleaning variable b */
86643 if((PyObject *)capi_ap_tmp!=ap_capi) {
86644 Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); }
86645 } /*if (capi_ap_tmp == NULL) ... else of ap*/
86646 /* End of cleaning variable ap */
86647 } /*CHECKSCALAR(n>=0)*/
86648 } /*if (f2py_success) of n*/
86649 /* End of cleaning variable n */
86650 } /*CHECKSCALAR(lower==0||lower==1)*/
86651 } /*if (f2py_success) of lower*/
86652 /* End of cleaning variable lower */
86653/*end of cleanupfrompyobj*/
86654 if (capi_buildvalue == NULL((void*)0)) {
86655/*routdebugfailure*/
86656 } else {
86657/*routdebugleave*/
86658 }
86659 CFUNCSMESS("Freeing memory.\n");
86660/*freemem*/
86661#ifdef F2PY_REPORT_ATEXIT
86662f2py_stop_clock();
86663#endif
86664 return capi_buildvalue;
86665}
86666/******************************** end of sppsv ********************************/
86667
86668/*********************************** dppsv ***********************************/
86669static char doc_f2py_rout__flapack_dppsv[] = "\
86670x,info = dppsv(n,ap,b,[lower,overwrite_b])\n\nWrapper for ``dppsv``.\
86671\n\nParameters\n----------\n"
86672"n : input int\n"
86673"ap : input rank-1 array('d') with bounds (L)\n"
86674"b : input rank-2 array('d') with bounds (ldb,nrhs)\n"
86675"\nOther Parameters\n----------------\n"
86676"lower : input int, optional\n Default: 0\n"
86677"overwrite_b : input int, optional\n Default: 0\n"
86678"\nReturns\n-------\n"
86679"x : rank-2 array('d') with bounds (ldb,nrhs) and b storage\n"
86680"info : int";
86681/* extern void F_FUNC(dppsv,DPPSV)(char*,F_INT*,F_INT*,double*,double*,F_INT*,F_INT* ); */
86682static PyObject *f2py_rout__flapack_dppsv(const PyObject *capi_self,
86683 PyObject *capi_args,
86684 PyObject *capi_keywds,
86685 void (*f2py_func)(char*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
86686 PyObject * volatile capi_buildvalue = NULL((void*)0);
86687 volatile int f2py_success = 1;
86688/*decl*/
86689
86690 int lower = 0;
86691 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
86692 int n = 0;
86693 PyObject *n_capi = Py_None(&_Py_NoneStruct);
86694 int nrhs = 0;
86695 double *ap = NULL((void*)0);
86696 npy_intp ap_Dims[1] = {-1};
86697 const int ap_Rank = 1;
86698 PyArrayObject *capi_ap_tmp = NULL((void*)0);
86699 int capi_ap_intent = 0;
86700 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
86701 double *b = NULL((void*)0);
86702 npy_intp b_Dims[2] = {-1, -1};
86703 const int b_Rank = 2;
86704 PyArrayObject *capi_b_tmp = NULL((void*)0);
86705 int capi_b_intent = 0;
86706 int capi_overwrite_b = 0;
86707 PyObject *b_capi = Py_None(&_Py_NoneStruct);
86708 int ldb = 0;
86709 int info = 0;
86710 int L = 0;
86711 static char *capi_kwlist[] = {"n","ap","b","lower","overwrite_b",NULL((void*)0)};
86712
86713/*routdebugenter*/
86714#ifdef F2PY_REPORT_ATEXIT
86715f2py_start_clock();
86716#endif
86717 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
86718 "OOO|Oi:_flapack.dppsv",\
86719 capi_kwlist,&n_capi,&ap_capi,&b_capi,&lower_capi,&capi_overwrite_b))
86720 return NULL((void*)0);
86721/*frompyobj*/
86722 /* Processing variable lower */
86723 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
86724 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dppsv() 1st keyword (lower) can't be converted to int");
86725 if (f2py_success) {
86726 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dppsv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dppsv:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
86727 /* Processing variable n */
86728 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dppsv() 1st argument (n) can't be converted to int");
86729 if (f2py_success) {
86730 CHECKSCALAR(n>=0,"n>=0","1st argument n","dppsv:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dppsv:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
86731 /* Processing variable ap */
86732 ;
86733 capi_ap_intent |= F2PY_INTENT_IN1;
86734 capi_ap_tmp = array_from_pyobj(NPY_DOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
86735 if (capi_ap_tmp == NULL((void*)0)) {
86736 if (!PyErr_Occurred())
86737 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.dppsv to C/Fortran array" );
86738 } else {
86739 ap = (double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
86740
86741 /* Processing variable b */
86742 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
86743 ;
86744 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
86745 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
86746 if (capi_b_tmp == NULL((void*)0)) {
86747 if (!PyErr_Occurred())
86748 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.dppsv to C/Fortran array" );
86749 } else {
86750 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
86751
86752 /* Processing variable info */
86753 /* Processing variable ldb */
86754 ldb = max(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
86755 /* Processing variable nrhs */
86756 nrhs = shape(b,1)b_Dims[1];
86757 /* Processing variable L */
86758 L = len(ap)ap_Dims[0];
86759 CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","dppsv:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dppsv:L=%d", "(""L>=(n*(n+1)/2)"") failed for ""hidden L"
, L); PyErr_SetString(_flapack_error,errstring); } else
{
86760/*end of frompyobj*/
86761#ifdef F2PY_REPORT_ATEXIT
86762f2py_start_call_clock();
86763#endif
86764/*callfortranroutine*/
86765 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
86766 (*f2py_func)((lower?"L":"U"),&n,&nrhs,ap,b,&ldb,&info) ;
86767 /*(*f2py_func)(&lower,&n,&nrhs,ap,b,&ldb,&info,&L);*/
86768 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
86769if (PyErr_Occurred())
86770 f2py_success = 0;
86771#ifdef F2PY_REPORT_ATEXIT
86772f2py_stop_call_clock();
86773#endif
86774/*end of callfortranroutine*/
86775 if (f2py_success) {
86776/*pyobjfrom*/
86777/*end of pyobjfrom*/
86778 CFUNCSMESS("Building return value.\n");
86779 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
86780/*closepyobjfrom*/
86781/*end of closepyobjfrom*/
86782 } /*if (f2py_success) after callfortranroutine*/
86783/*cleanupfrompyobj*/
86784 } /*CHECKSCALAR(L>=(n*(n+1)/2))*/
86785 /* End of cleaning variable L */
86786 /* End of cleaning variable nrhs */
86787 /* End of cleaning variable ldb */
86788 /* End of cleaning variable info */
86789 } /*if (capi_b_tmp == NULL) ... else of b*/
86790 /* End of cleaning variable b */
86791 if((PyObject *)capi_ap_tmp!=ap_capi) {
86792 Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); }
86793 } /*if (capi_ap_tmp == NULL) ... else of ap*/
86794 /* End of cleaning variable ap */
86795 } /*CHECKSCALAR(n>=0)*/
86796 } /*if (f2py_success) of n*/
86797 /* End of cleaning variable n */
86798 } /*CHECKSCALAR(lower==0||lower==1)*/
86799 } /*if (f2py_success) of lower*/
86800 /* End of cleaning variable lower */
86801/*end of cleanupfrompyobj*/
86802 if (capi_buildvalue == NULL((void*)0)) {
86803/*routdebugfailure*/
86804 } else {
86805/*routdebugleave*/
86806 }
86807 CFUNCSMESS("Freeing memory.\n");
86808/*freemem*/
86809#ifdef F2PY_REPORT_ATEXIT
86810f2py_stop_clock();
86811#endif
86812 return capi_buildvalue;
86813}
86814/******************************** end of dppsv ********************************/
86815
86816/*********************************** cppsv ***********************************/
86817static char doc_f2py_rout__flapack_cppsv[] = "\
86818x,info = cppsv(n,ap,b,[lower,overwrite_b])\n\nWrapper for ``cppsv``.\
86819\n\nParameters\n----------\n"
86820"n : input int\n"
86821"ap : input rank-1 array('F') with bounds (L)\n"
86822"b : input rank-2 array('F') with bounds (ldb,nrhs)\n"
86823"\nOther Parameters\n----------------\n"
86824"lower : input int, optional\n Default: 0\n"
86825"overwrite_b : input int, optional\n Default: 0\n"
86826"\nReturns\n-------\n"
86827"x : rank-2 array('F') with bounds (ldb,nrhs) and b storage\n"
86828"info : int";
86829/* extern void F_FUNC(cppsv,CPPSV)(char*,F_INT*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */
86830static PyObject *f2py_rout__flapack_cppsv(const PyObject *capi_self,
86831 PyObject *capi_args,
86832 PyObject *capi_keywds,
86833 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
86834 PyObject * volatile capi_buildvalue = NULL((void*)0);
86835 volatile int f2py_success = 1;
86836/*decl*/
86837
86838 int lower = 0;
86839 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
86840 int n = 0;
86841 PyObject *n_capi = Py_None(&_Py_NoneStruct);
86842 int nrhs = 0;
86843 complex_float *ap = NULL((void*)0);
86844 npy_intp ap_Dims[1] = {-1};
86845 const int ap_Rank = 1;
86846 PyArrayObject *capi_ap_tmp = NULL((void*)0);
86847 int capi_ap_intent = 0;
86848 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
86849 complex_float *b = NULL((void*)0);
86850 npy_intp b_Dims[2] = {-1, -1};
86851 const int b_Rank = 2;
86852 PyArrayObject *capi_b_tmp = NULL((void*)0);
86853 int capi_b_intent = 0;
86854 int capi_overwrite_b = 0;
86855 PyObject *b_capi = Py_None(&_Py_NoneStruct);
86856 int ldb = 0;
86857 int info = 0;
86858 int L = 0;
86859 static char *capi_kwlist[] = {"n","ap","b","lower","overwrite_b",NULL((void*)0)};
86860
86861/*routdebugenter*/
86862#ifdef F2PY_REPORT_ATEXIT
86863f2py_start_clock();
86864#endif
86865 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
86866 "OOO|Oi:_flapack.cppsv",\
86867 capi_kwlist,&n_capi,&ap_capi,&b_capi,&lower_capi,&capi_overwrite_b))
86868 return NULL((void*)0);
86869/*frompyobj*/
86870 /* Processing variable lower */
86871 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
86872 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cppsv() 1st keyword (lower) can't be converted to int");
86873 if (f2py_success) {
86874 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cppsv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cppsv:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
86875 /* Processing variable n */
86876 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cppsv() 1st argument (n) can't be converted to int");
86877 if (f2py_success) {
86878 CHECKSCALAR(n>=0,"n>=0","1st argument n","cppsv:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cppsv:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
86879 /* Processing variable ap */
86880 ;
86881 capi_ap_intent |= F2PY_INTENT_IN1;
86882 capi_ap_tmp = array_from_pyobj(NPY_CFLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
86883 if (capi_ap_tmp == NULL((void*)0)) {
86884 if (!PyErr_Occurred())
86885 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.cppsv to C/Fortran array" );
86886 } else {
86887 ap = (complex_float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
86888
86889 /* Processing variable b */
86890 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
86891 ;
86892 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
86893 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
86894 if (capi_b_tmp == NULL((void*)0)) {
86895 if (!PyErr_Occurred())
86896 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.cppsv to C/Fortran array" );
86897 } else {
86898 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
86899
86900 /* Processing variable info */
86901 /* Processing variable ldb */
86902 ldb = max(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
86903 /* Processing variable nrhs */
86904 nrhs = shape(b,1)b_Dims[1];
86905 /* Processing variable L */
86906 L = len(ap)ap_Dims[0];
86907 CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","cppsv:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cppsv:L=%d", "(""L>=(n*(n+1)/2)"") failed for ""hidden L"
, L); PyErr_SetString(_flapack_error,errstring); } else
{
86908/*end of frompyobj*/
86909#ifdef F2PY_REPORT_ATEXIT
86910f2py_start_call_clock();
86911#endif
86912/*callfortranroutine*/
86913 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
86914 (*f2py_func)((lower?"L":"U"),&n,&nrhs,ap,b,&ldb,&info) ;
86915 /*(*f2py_func)(&lower,&n,&nrhs,ap,b,&ldb,&info,&L);*/
86916 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
86917if (PyErr_Occurred())
86918 f2py_success = 0;
86919#ifdef F2PY_REPORT_ATEXIT
86920f2py_stop_call_clock();
86921#endif
86922/*end of callfortranroutine*/
86923 if (f2py_success) {
86924/*pyobjfrom*/
86925/*end of pyobjfrom*/
86926 CFUNCSMESS("Building return value.\n");
86927 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
86928/*closepyobjfrom*/
86929/*end of closepyobjfrom*/
86930 } /*if (f2py_success) after callfortranroutine*/
86931/*cleanupfrompyobj*/
86932 } /*CHECKSCALAR(L>=(n*(n+1)/2))*/
86933 /* End of cleaning variable L */
86934 /* End of cleaning variable nrhs */
86935 /* End of cleaning variable ldb */
86936 /* End of cleaning variable info */
86937 } /*if (capi_b_tmp == NULL) ... else of b*/
86938 /* End of cleaning variable b */
86939 if((PyObject *)capi_ap_tmp!=ap_capi) {
86940 Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); }
86941 } /*if (capi_ap_tmp == NULL) ... else of ap*/
86942 /* End of cleaning variable ap */
86943 } /*CHECKSCALAR(n>=0)*/
86944 } /*if (f2py_success) of n*/
86945 /* End of cleaning variable n */
86946 } /*CHECKSCALAR(lower==0||lower==1)*/
86947 } /*if (f2py_success) of lower*/
86948 /* End of cleaning variable lower */
86949/*end of cleanupfrompyobj*/
86950 if (capi_buildvalue == NULL((void*)0)) {
86951/*routdebugfailure*/
86952 } else {
86953/*routdebugleave*/
86954 }
86955 CFUNCSMESS("Freeing memory.\n");
86956/*freemem*/
86957#ifdef F2PY_REPORT_ATEXIT
86958f2py_stop_clock();
86959#endif
86960 return capi_buildvalue;
86961}
86962/******************************** end of cppsv ********************************/
86963
86964/*********************************** zppsv ***********************************/
86965static char doc_f2py_rout__flapack_zppsv[] = "\
86966x,info = zppsv(n,ap,b,[lower,overwrite_b])\n\nWrapper for ``zppsv``.\
86967\n\nParameters\n----------\n"
86968"n : input int\n"
86969"ap : input rank-1 array('D') with bounds (L)\n"
86970"b : input rank-2 array('D') with bounds (ldb,nrhs)\n"
86971"\nOther Parameters\n----------------\n"
86972"lower : input int, optional\n Default: 0\n"
86973"overwrite_b : input int, optional\n Default: 0\n"
86974"\nReturns\n-------\n"
86975"x : rank-2 array('D') with bounds (ldb,nrhs) and b storage\n"
86976"info : int";
86977/* extern void F_FUNC(zppsv,ZPPSV)(char*,F_INT*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */
86978static PyObject *f2py_rout__flapack_zppsv(const PyObject *capi_self,
86979 PyObject *capi_args,
86980 PyObject *capi_keywds,
86981 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
86982 PyObject * volatile capi_buildvalue = NULL((void*)0);
86983 volatile int f2py_success = 1;
86984/*decl*/
86985
86986 int lower = 0;
86987 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
86988 int n = 0;
86989 PyObject *n_capi = Py_None(&_Py_NoneStruct);
86990 int nrhs = 0;
86991 complex_double *ap = NULL((void*)0);
86992 npy_intp ap_Dims[1] = {-1};
86993 const int ap_Rank = 1;
86994 PyArrayObject *capi_ap_tmp = NULL((void*)0);
86995 int capi_ap_intent = 0;
86996 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
86997 complex_double *b = NULL((void*)0);
86998 npy_intp b_Dims[2] = {-1, -1};
86999 const int b_Rank = 2;
87000 PyArrayObject *capi_b_tmp = NULL((void*)0);
87001 int capi_b_intent = 0;
87002 int capi_overwrite_b = 0;
87003 PyObject *b_capi = Py_None(&_Py_NoneStruct);
87004 int ldb = 0;
87005 int info = 0;
87006 int L = 0;
87007 static char *capi_kwlist[] = {"n","ap","b","lower","overwrite_b",NULL((void*)0)};
87008
87009/*routdebugenter*/
87010#ifdef F2PY_REPORT_ATEXIT
87011f2py_start_clock();
87012#endif
87013 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
87014 "OOO|Oi:_flapack.zppsv",\
87015 capi_kwlist,&n_capi,&ap_capi,&b_capi,&lower_capi,&capi_overwrite_b))
87016 return NULL((void*)0);
87017/*frompyobj*/
87018 /* Processing variable lower */
87019 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
87020 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zppsv() 1st keyword (lower) can't be converted to int");
87021 if (f2py_success) {
87022 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zppsv:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zppsv:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
87023 /* Processing variable n */
87024 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zppsv() 1st argument (n) can't be converted to int");
87025 if (f2py_success) {
87026 CHECKSCALAR(n>=0,"n>=0","1st argument n","zppsv:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zppsv:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
87027 /* Processing variable ap */
87028 ;
87029 capi_ap_intent |= F2PY_INTENT_IN1;
87030 capi_ap_tmp = array_from_pyobj(NPY_CDOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
87031 if (capi_ap_tmp == NULL((void*)0)) {
87032 if (!PyErr_Occurred())
87033 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.zppsv to C/Fortran array" );
87034 } else {
87035 ap = (complex_double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
87036
87037 /* Processing variable b */
87038 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
87039 ;
87040 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
87041 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
87042 if (capi_b_tmp == NULL((void*)0)) {
87043 if (!PyErr_Occurred())
87044 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.zppsv to C/Fortran array" );
87045 } else {
87046 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
87047
87048 /* Processing variable info */
87049 /* Processing variable ldb */
87050 ldb = max(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
87051 /* Processing variable nrhs */
87052 nrhs = shape(b,1)b_Dims[1];
87053 /* Processing variable L */
87054 L = len(ap)ap_Dims[0];
87055 CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","zppsv:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zppsv:L=%d", "(""L>=(n*(n+1)/2)"") failed for ""hidden L"
, L); PyErr_SetString(_flapack_error,errstring); } else
{
87056/*end of frompyobj*/
87057#ifdef F2PY_REPORT_ATEXIT
87058f2py_start_call_clock();
87059#endif
87060/*callfortranroutine*/
87061 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
87062 (*f2py_func)((lower?"L":"U"),&n,&nrhs,ap,b,&ldb,&info) ;
87063 /*(*f2py_func)(&lower,&n,&nrhs,ap,b,&ldb,&info,&L);*/
87064 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
87065if (PyErr_Occurred())
87066 f2py_success = 0;
87067#ifdef F2PY_REPORT_ATEXIT
87068f2py_stop_call_clock();
87069#endif
87070/*end of callfortranroutine*/
87071 if (f2py_success) {
87072/*pyobjfrom*/
87073/*end of pyobjfrom*/
87074 CFUNCSMESS("Building return value.\n");
87075 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
87076/*closepyobjfrom*/
87077/*end of closepyobjfrom*/
87078 } /*if (f2py_success) after callfortranroutine*/
87079/*cleanupfrompyobj*/
87080 } /*CHECKSCALAR(L>=(n*(n+1)/2))*/
87081 /* End of cleaning variable L */
87082 /* End of cleaning variable nrhs */
87083 /* End of cleaning variable ldb */
87084 /* End of cleaning variable info */
87085 } /*if (capi_b_tmp == NULL) ... else of b*/
87086 /* End of cleaning variable b */
87087 if((PyObject *)capi_ap_tmp!=ap_capi) {
87088 Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); }
87089 } /*if (capi_ap_tmp == NULL) ... else of ap*/
87090 /* End of cleaning variable ap */
87091 } /*CHECKSCALAR(n>=0)*/
87092 } /*if (f2py_success) of n*/
87093 /* End of cleaning variable n */
87094 } /*CHECKSCALAR(lower==0||lower==1)*/
87095 } /*if (f2py_success) of lower*/
87096 /* End of cleaning variable lower */
87097/*end of cleanupfrompyobj*/
87098 if (capi_buildvalue == NULL((void*)0)) {
87099/*routdebugfailure*/
87100 } else {
87101/*routdebugleave*/
87102 }
87103 CFUNCSMESS("Freeing memory.\n");
87104/*freemem*/
87105#ifdef F2PY_REPORT_ATEXIT
87106f2py_stop_clock();
87107#endif
87108 return capi_buildvalue;
87109}
87110/******************************** end of zppsv ********************************/
87111
87112/*********************************** spptrf ***********************************/
87113static char doc_f2py_rout__flapack_spptrf[] = "\
87114ul,info = spptrf(n,ap,[lower,overwrite_ap])\n\nWrapper for ``spptrf``.\
87115\n\nParameters\n----------\n"
87116"n : input int\n"
87117"ap : input rank-1 array('f') with bounds (L)\n"
87118"\nOther Parameters\n----------------\n"
87119"lower : input int, optional\n Default: 0\n"
87120"overwrite_ap : input int, optional\n Default: 0\n"
87121"\nReturns\n-------\n"
87122"ul : rank-1 array('f') with bounds (L) and ap storage\n"
87123"info : int";
87124/* extern void F_FUNC(spptrf,SPPTRF)(char*,F_INT*,float*,F_INT* ); */
87125static PyObject *f2py_rout__flapack_spptrf(const PyObject *capi_self,
87126 PyObject *capi_args,
87127 PyObject *capi_keywds,
87128 void (*f2py_func)(char*,F_INTint*,float*,F_INTint* )) {
87129 PyObject * volatile capi_buildvalue = NULL((void*)0);
87130 volatile int f2py_success = 1;
87131/*decl*/
87132
87133 int lower = 0;
87134 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
87135 int n = 0;
87136 PyObject *n_capi = Py_None(&_Py_NoneStruct);
87137 float *ap = NULL((void*)0);
87138 npy_intp ap_Dims[1] = {-1};
87139 const int ap_Rank = 1;
87140 PyArrayObject *capi_ap_tmp = NULL((void*)0);
87141 int capi_ap_intent = 0;
87142 int capi_overwrite_ap = 0;
87143 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
87144 int info = 0;
87145 int L = 0;
87146 static char *capi_kwlist[] = {"n","ap","lower","overwrite_ap",NULL((void*)0)};
87147
87148/*routdebugenter*/
87149#ifdef F2PY_REPORT_ATEXIT
87150f2py_start_clock();
87151#endif
87152 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
87153 "OO|Oi:_flapack.spptrf",\
87154 capi_kwlist,&n_capi,&ap_capi,&lower_capi,&capi_overwrite_ap))
87155 return NULL((void*)0);
87156/*frompyobj*/
87157 /* Processing variable lower */
87158 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
87159 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spptrf() 1st keyword (lower) can't be converted to int");
87160 if (f2py_success) {
87161 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","spptrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spptrf:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
87162 /* Processing variable n */
87163 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.spptrf() 1st argument (n) can't be converted to int");
87164 if (f2py_success) {
87165 CHECKSCALAR(n>=0,"n>=0","1st argument n","spptrf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spptrf:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
87166 /* Processing variable ap */
87167 capi_ap_intent |= (capi_overwrite_ap?0:F2PY_INTENT_COPY32);
87168 ;
87169 capi_ap_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
87170 capi_ap_tmp = array_from_pyobj(NPY_FLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
87171 if (capi_ap_tmp == NULL((void*)0)) {
87172 if (!PyErr_Occurred())
87173 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.spptrf to C/Fortran array" );
87174 } else {
87175 ap = (float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
87176
87177 /* Processing variable info */
87178 /* Processing variable L */
87179 L = len(ap)ap_Dims[0];
87180 CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","spptrf:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spptrf:L=%d", "(""L>=(n*(n+1)/2)"") failed for "
"hidden L", L); PyErr_SetString(_flapack_error,errstring); } else
{
87181/*end of frompyobj*/
87182#ifdef F2PY_REPORT_ATEXIT
87183f2py_start_call_clock();
87184#endif
87185/*callfortranroutine*/
87186 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
87187 (*f2py_func)((lower?"L":"U"),&n,ap,&info) ;
87188 /*(*f2py_func)(&lower,&n,ap,&info,&L);*/
87189 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
87190if (PyErr_Occurred())
87191 f2py_success = 0;
87192#ifdef F2PY_REPORT_ATEXIT
87193f2py_stop_call_clock();
87194#endif
87195/*end of callfortranroutine*/
87196 if (f2py_success) {
87197/*pyobjfrom*/
87198/*end of pyobjfrom*/
87199 CFUNCSMESS("Building return value.\n");
87200 capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info);
87201/*closepyobjfrom*/
87202/*end of closepyobjfrom*/
87203 } /*if (f2py_success) after callfortranroutine*/
87204/*cleanupfrompyobj*/
87205 } /*CHECKSCALAR(L>=(n*(n+1)/2))*/
87206 /* End of cleaning variable L */
87207 /* End of cleaning variable info */
87208 } /*if (capi_ap_tmp == NULL) ... else of ap*/
87209 /* End of cleaning variable ap */
87210 } /*CHECKSCALAR(n>=0)*/
87211 } /*if (f2py_success) of n*/
87212 /* End of cleaning variable n */
87213 } /*CHECKSCALAR(lower==0||lower==1)*/
87214 } /*if (f2py_success) of lower*/
87215 /* End of cleaning variable lower */
87216/*end of cleanupfrompyobj*/
87217 if (capi_buildvalue == NULL((void*)0)) {
87218/*routdebugfailure*/
87219 } else {
87220/*routdebugleave*/
87221 }
87222 CFUNCSMESS("Freeing memory.\n");
87223/*freemem*/
87224#ifdef F2PY_REPORT_ATEXIT
87225f2py_stop_clock();
87226#endif
87227 return capi_buildvalue;
87228}
87229/******************************* end of spptrf *******************************/
87230
87231/*********************************** dpptrf ***********************************/
87232static char doc_f2py_rout__flapack_dpptrf[] = "\
87233ul,info = dpptrf(n,ap,[lower,overwrite_ap])\n\nWrapper for ``dpptrf``.\
87234\n\nParameters\n----------\n"
87235"n : input int\n"
87236"ap : input rank-1 array('d') with bounds (L)\n"
87237"\nOther Parameters\n----------------\n"
87238"lower : input int, optional\n Default: 0\n"
87239"overwrite_ap : input int, optional\n Default: 0\n"
87240"\nReturns\n-------\n"
87241"ul : rank-1 array('d') with bounds (L) and ap storage\n"
87242"info : int";
87243/* extern void F_FUNC(dpptrf,DPPTRF)(char*,F_INT*,double*,F_INT* ); */
87244static PyObject *f2py_rout__flapack_dpptrf(const PyObject *capi_self,
87245 PyObject *capi_args,
87246 PyObject *capi_keywds,
87247 void (*f2py_func)(char*,F_INTint*,double*,F_INTint* )) {
87248 PyObject * volatile capi_buildvalue = NULL((void*)0);
87249 volatile int f2py_success = 1;
87250/*decl*/
87251
87252 int lower = 0;
87253 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
87254 int n = 0;
87255 PyObject *n_capi = Py_None(&_Py_NoneStruct);
87256 double *ap = NULL((void*)0);
87257 npy_intp ap_Dims[1] = {-1};
87258 const int ap_Rank = 1;
87259 PyArrayObject *capi_ap_tmp = NULL((void*)0);
87260 int capi_ap_intent = 0;
87261 int capi_overwrite_ap = 0;
87262 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
87263 int info = 0;
87264 int L = 0;
87265 static char *capi_kwlist[] = {"n","ap","lower","overwrite_ap",NULL((void*)0)};
87266
87267/*routdebugenter*/
87268#ifdef F2PY_REPORT_ATEXIT
87269f2py_start_clock();
87270#endif
87271 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
87272 "OO|Oi:_flapack.dpptrf",\
87273 capi_kwlist,&n_capi,&ap_capi,&lower_capi,&capi_overwrite_ap))
87274 return NULL((void*)0);
87275/*frompyobj*/
87276 /* Processing variable lower */
87277 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
87278 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpptrf() 1st keyword (lower) can't be converted to int");
87279 if (f2py_success) {
87280 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dpptrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpptrf:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
87281 /* Processing variable n */
87282 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dpptrf() 1st argument (n) can't be converted to int");
87283 if (f2py_success) {
87284 CHECKSCALAR(n>=0,"n>=0","1st argument n","dpptrf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpptrf:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
87285 /* Processing variable ap */
87286 capi_ap_intent |= (capi_overwrite_ap?0:F2PY_INTENT_COPY32);
87287 ;
87288 capi_ap_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
87289 capi_ap_tmp = array_from_pyobj(NPY_DOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
87290 if (capi_ap_tmp == NULL((void*)0)) {
87291 if (!PyErr_Occurred())
87292 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.dpptrf to C/Fortran array" );
87293 } else {
87294 ap = (double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
87295
87296 /* Processing variable info */
87297 /* Processing variable L */
87298 L = len(ap)ap_Dims[0];
87299 CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","dpptrf:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpptrf:L=%d", "(""L>=(n*(n+1)/2)"") failed for "
"hidden L", L); PyErr_SetString(_flapack_error,errstring); } else
{
87300/*end of frompyobj*/
87301#ifdef F2PY_REPORT_ATEXIT
87302f2py_start_call_clock();
87303#endif
87304/*callfortranroutine*/
87305 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
87306 (*f2py_func)((lower?"L":"U"),&n,ap,&info) ;
87307 /*(*f2py_func)(&lower,&n,ap,&info,&L);*/
87308 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
87309if (PyErr_Occurred())
87310 f2py_success = 0;
87311#ifdef F2PY_REPORT_ATEXIT
87312f2py_stop_call_clock();
87313#endif
87314/*end of callfortranroutine*/
87315 if (f2py_success) {
87316/*pyobjfrom*/
87317/*end of pyobjfrom*/
87318 CFUNCSMESS("Building return value.\n");
87319 capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info);
87320/*closepyobjfrom*/
87321/*end of closepyobjfrom*/
87322 } /*if (f2py_success) after callfortranroutine*/
87323/*cleanupfrompyobj*/
87324 } /*CHECKSCALAR(L>=(n*(n+1)/2))*/
87325 /* End of cleaning variable L */
87326 /* End of cleaning variable info */
87327 } /*if (capi_ap_tmp == NULL) ... else of ap*/
87328 /* End of cleaning variable ap */
87329 } /*CHECKSCALAR(n>=0)*/
87330 } /*if (f2py_success) of n*/
87331 /* End of cleaning variable n */
87332 } /*CHECKSCALAR(lower==0||lower==1)*/
87333 } /*if (f2py_success) of lower*/
87334 /* End of cleaning variable lower */
87335/*end of cleanupfrompyobj*/
87336 if (capi_buildvalue == NULL((void*)0)) {
87337/*routdebugfailure*/
87338 } else {
87339/*routdebugleave*/
87340 }
87341 CFUNCSMESS("Freeing memory.\n");
87342/*freemem*/
87343#ifdef F2PY_REPORT_ATEXIT
87344f2py_stop_clock();
87345#endif
87346 return capi_buildvalue;
87347}
87348/******************************* end of dpptrf *******************************/
87349
87350/*********************************** cpptrf ***********************************/
87351static char doc_f2py_rout__flapack_cpptrf[] = "\
87352ul,info = cpptrf(n,ap,[lower,overwrite_ap])\n\nWrapper for ``cpptrf``.\
87353\n\nParameters\n----------\n"
87354"n : input int\n"
87355"ap : input rank-1 array('F') with bounds (L)\n"
87356"\nOther Parameters\n----------------\n"
87357"lower : input int, optional\n Default: 0\n"
87358"overwrite_ap : input int, optional\n Default: 0\n"
87359"\nReturns\n-------\n"
87360"ul : rank-1 array('F') with bounds (L) and ap storage\n"
87361"info : int";
87362/* extern void F_FUNC(cpptrf,CPPTRF)(char*,F_INT*,complex_float*,F_INT* ); */
87363static PyObject *f2py_rout__flapack_cpptrf(const PyObject *capi_self,
87364 PyObject *capi_args,
87365 PyObject *capi_keywds,
87366 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint* )) {
87367 PyObject * volatile capi_buildvalue = NULL((void*)0);
87368 volatile int f2py_success = 1;
87369/*decl*/
87370
87371 int lower = 0;
87372 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
87373 int n = 0;
87374 PyObject *n_capi = Py_None(&_Py_NoneStruct);
87375 complex_float *ap = NULL((void*)0);
87376 npy_intp ap_Dims[1] = {-1};
87377 const int ap_Rank = 1;
87378 PyArrayObject *capi_ap_tmp = NULL((void*)0);
87379 int capi_ap_intent = 0;
87380 int capi_overwrite_ap = 0;
87381 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
87382 int info = 0;
87383 int L = 0;
87384 static char *capi_kwlist[] = {"n","ap","lower","overwrite_ap",NULL((void*)0)};
87385
87386/*routdebugenter*/
87387#ifdef F2PY_REPORT_ATEXIT
87388f2py_start_clock();
87389#endif
87390 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
87391 "OO|Oi:_flapack.cpptrf",\
87392 capi_kwlist,&n_capi,&ap_capi,&lower_capi,&capi_overwrite_ap))
87393 return NULL((void*)0);
87394/*frompyobj*/
87395 /* Processing variable lower */
87396 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
87397 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpptrf() 1st keyword (lower) can't be converted to int");
87398 if (f2py_success) {
87399 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cpptrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpptrf:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
87400 /* Processing variable n */
87401 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cpptrf() 1st argument (n) can't be converted to int");
87402 if (f2py_success) {
87403 CHECKSCALAR(n>=0,"n>=0","1st argument n","cpptrf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpptrf:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
87404 /* Processing variable ap */
87405 capi_ap_intent |= (capi_overwrite_ap?0:F2PY_INTENT_COPY32);
87406 ;
87407 capi_ap_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
87408 capi_ap_tmp = array_from_pyobj(NPY_CFLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
87409 if (capi_ap_tmp == NULL((void*)0)) {
87410 if (!PyErr_Occurred())
87411 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.cpptrf to C/Fortran array" );
87412 } else {
87413 ap = (complex_float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
87414
87415 /* Processing variable info */
87416 /* Processing variable L */
87417 L = len(ap)ap_Dims[0];
87418 CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","cpptrf:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpptrf:L=%d", "(""L>=(n*(n+1)/2)"") failed for "
"hidden L", L); PyErr_SetString(_flapack_error,errstring); } else
{
87419/*end of frompyobj*/
87420#ifdef F2PY_REPORT_ATEXIT
87421f2py_start_call_clock();
87422#endif
87423/*callfortranroutine*/
87424 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
87425 (*f2py_func)((lower?"L":"U"),&n,ap,&info) ;
87426 /*(*f2py_func)(&lower,&n,ap,&info,&L);*/
87427 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
87428if (PyErr_Occurred())
87429 f2py_success = 0;
87430#ifdef F2PY_REPORT_ATEXIT
87431f2py_stop_call_clock();
87432#endif
87433/*end of callfortranroutine*/
87434 if (f2py_success) {
87435/*pyobjfrom*/
87436/*end of pyobjfrom*/
87437 CFUNCSMESS("Building return value.\n");
87438 capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info);
87439/*closepyobjfrom*/
87440/*end of closepyobjfrom*/
87441 } /*if (f2py_success) after callfortranroutine*/
87442/*cleanupfrompyobj*/
87443 } /*CHECKSCALAR(L>=(n*(n+1)/2))*/
87444 /* End of cleaning variable L */
87445 /* End of cleaning variable info */
87446 } /*if (capi_ap_tmp == NULL) ... else of ap*/
87447 /* End of cleaning variable ap */
87448 } /*CHECKSCALAR(n>=0)*/
87449 } /*if (f2py_success) of n*/
87450 /* End of cleaning variable n */
87451 } /*CHECKSCALAR(lower==0||lower==1)*/
87452 } /*if (f2py_success) of lower*/
87453 /* End of cleaning variable lower */
87454/*end of cleanupfrompyobj*/
87455 if (capi_buildvalue == NULL((void*)0)) {
87456/*routdebugfailure*/
87457 } else {
87458/*routdebugleave*/
87459 }
87460 CFUNCSMESS("Freeing memory.\n");
87461/*freemem*/
87462#ifdef F2PY_REPORT_ATEXIT
87463f2py_stop_clock();
87464#endif
87465 return capi_buildvalue;
87466}
87467/******************************* end of cpptrf *******************************/
87468
87469/*********************************** zpptrf ***********************************/
87470static char doc_f2py_rout__flapack_zpptrf[] = "\
87471ul,info = zpptrf(n,ap,[lower,overwrite_ap])\n\nWrapper for ``zpptrf``.\
87472\n\nParameters\n----------\n"
87473"n : input int\n"
87474"ap : input rank-1 array('D') with bounds (L)\n"
87475"\nOther Parameters\n----------------\n"
87476"lower : input int, optional\n Default: 0\n"
87477"overwrite_ap : input int, optional\n Default: 0\n"
87478"\nReturns\n-------\n"
87479"ul : rank-1 array('D') with bounds (L) and ap storage\n"
87480"info : int";
87481/* extern void F_FUNC(zpptrf,ZPPTRF)(char*,F_INT*,complex_double*,F_INT* ); */
87482static PyObject *f2py_rout__flapack_zpptrf(const PyObject *capi_self,
87483 PyObject *capi_args,
87484 PyObject *capi_keywds,
87485 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint* )) {
87486 PyObject * volatile capi_buildvalue = NULL((void*)0);
87487 volatile int f2py_success = 1;
87488/*decl*/
87489
87490 int lower = 0;
87491 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
87492 int n = 0;
87493 PyObject *n_capi = Py_None(&_Py_NoneStruct);
87494 complex_double *ap = NULL((void*)0);
87495 npy_intp ap_Dims[1] = {-1};
87496 const int ap_Rank = 1;
87497 PyArrayObject *capi_ap_tmp = NULL((void*)0);
87498 int capi_ap_intent = 0;
87499 int capi_overwrite_ap = 0;
87500 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
87501 int info = 0;
87502 int L = 0;
87503 static char *capi_kwlist[] = {"n","ap","lower","overwrite_ap",NULL((void*)0)};
87504
87505/*routdebugenter*/
87506#ifdef F2PY_REPORT_ATEXIT
87507f2py_start_clock();
87508#endif
87509 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
87510 "OO|Oi:_flapack.zpptrf",\
87511 capi_kwlist,&n_capi,&ap_capi,&lower_capi,&capi_overwrite_ap))
87512 return NULL((void*)0);
87513/*frompyobj*/
87514 /* Processing variable lower */
87515 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
87516 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpptrf() 1st keyword (lower) can't be converted to int");
87517 if (f2py_success) {
87518 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zpptrf:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpptrf:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
87519 /* Processing variable n */
87520 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zpptrf() 1st argument (n) can't be converted to int");
87521 if (f2py_success) {
87522 CHECKSCALAR(n>=0,"n>=0","1st argument n","zpptrf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpptrf:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
87523 /* Processing variable ap */
87524 capi_ap_intent |= (capi_overwrite_ap?0:F2PY_INTENT_COPY32);
87525 ;
87526 capi_ap_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
87527 capi_ap_tmp = array_from_pyobj(NPY_CDOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
87528 if (capi_ap_tmp == NULL((void*)0)) {
87529 if (!PyErr_Occurred())
87530 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.zpptrf to C/Fortran array" );
87531 } else {
87532 ap = (complex_double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
87533
87534 /* Processing variable info */
87535 /* Processing variable L */
87536 L = len(ap)ap_Dims[0];
87537 CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","zpptrf:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpptrf:L=%d", "(""L>=(n*(n+1)/2)"") failed for "
"hidden L", L); PyErr_SetString(_flapack_error,errstring); } else
{
87538/*end of frompyobj*/
87539#ifdef F2PY_REPORT_ATEXIT
87540f2py_start_call_clock();
87541#endif
87542/*callfortranroutine*/
87543 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
87544 (*f2py_func)((lower?"L":"U"),&n,ap,&info) ;
87545 /*(*f2py_func)(&lower,&n,ap,&info,&L);*/
87546 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
87547if (PyErr_Occurred())
87548 f2py_success = 0;
87549#ifdef F2PY_REPORT_ATEXIT
87550f2py_stop_call_clock();
87551#endif
87552/*end of callfortranroutine*/
87553 if (f2py_success) {
87554/*pyobjfrom*/
87555/*end of pyobjfrom*/
87556 CFUNCSMESS("Building return value.\n");
87557 capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info);
87558/*closepyobjfrom*/
87559/*end of closepyobjfrom*/
87560 } /*if (f2py_success) after callfortranroutine*/
87561/*cleanupfrompyobj*/
87562 } /*CHECKSCALAR(L>=(n*(n+1)/2))*/
87563 /* End of cleaning variable L */
87564 /* End of cleaning variable info */
87565 } /*if (capi_ap_tmp == NULL) ... else of ap*/
87566 /* End of cleaning variable ap */
87567 } /*CHECKSCALAR(n>=0)*/
87568 } /*if (f2py_success) of n*/
87569 /* End of cleaning variable n */
87570 } /*CHECKSCALAR(lower==0||lower==1)*/
87571 } /*if (f2py_success) of lower*/
87572 /* End of cleaning variable lower */
87573/*end of cleanupfrompyobj*/
87574 if (capi_buildvalue == NULL((void*)0)) {
87575/*routdebugfailure*/
87576 } else {
87577/*routdebugleave*/
87578 }
87579 CFUNCSMESS("Freeing memory.\n");
87580/*freemem*/
87581#ifdef F2PY_REPORT_ATEXIT
87582f2py_stop_clock();
87583#endif
87584 return capi_buildvalue;
87585}
87586/******************************* end of zpptrf *******************************/
87587
87588/*********************************** spptri ***********************************/
87589static char doc_f2py_rout__flapack_spptri[] = "\
87590uli,info = spptri(n,ap,[lower,overwrite_ap])\n\nWrapper for ``spptri``.\
87591\n\nParameters\n----------\n"
87592"n : input int\n"
87593"ap : input rank-1 array('f') with bounds (L)\n"
87594"\nOther Parameters\n----------------\n"
87595"lower : input int, optional\n Default: 0\n"
87596"overwrite_ap : input int, optional\n Default: 0\n"
87597"\nReturns\n-------\n"
87598"uli : rank-1 array('f') with bounds (L) and ap storage\n"
87599"info : int";
87600/* extern void F_FUNC(spptri,SPPTRI)(char*,F_INT*,float*,F_INT* ); */
87601static PyObject *f2py_rout__flapack_spptri(const PyObject *capi_self,
87602 PyObject *capi_args,
87603 PyObject *capi_keywds,
87604 void (*f2py_func)(char*,F_INTint*,float*,F_INTint* )) {
87605 PyObject * volatile capi_buildvalue = NULL((void*)0);
87606 volatile int f2py_success = 1;
87607/*decl*/
87608
87609 int lower = 0;
87610 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
87611 int n = 0;
87612 PyObject *n_capi = Py_None(&_Py_NoneStruct);
87613 float *ap = NULL((void*)0);
87614 npy_intp ap_Dims[1] = {-1};
87615 const int ap_Rank = 1;
87616 PyArrayObject *capi_ap_tmp = NULL((void*)0);
87617 int capi_ap_intent = 0;
87618 int capi_overwrite_ap = 0;
87619 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
87620 int info = 0;
87621 int L = 0;
87622 static char *capi_kwlist[] = {"n","ap","lower","overwrite_ap",NULL((void*)0)};
87623
87624/*routdebugenter*/
87625#ifdef F2PY_REPORT_ATEXIT
87626f2py_start_clock();
87627#endif
87628 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
87629 "OO|Oi:_flapack.spptri",\
87630 capi_kwlist,&n_capi,&ap_capi,&lower_capi,&capi_overwrite_ap))
87631 return NULL((void*)0);
87632/*frompyobj*/
87633 /* Processing variable lower */
87634 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
87635 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spptri() 1st keyword (lower) can't be converted to int");
87636 if (f2py_success) {
87637 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","spptri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spptri:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
87638 /* Processing variable n */
87639 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.spptri() 1st argument (n) can't be converted to int");
87640 if (f2py_success) {
87641 CHECKSCALAR(n>=0,"n>=0","1st argument n","spptri:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spptri:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
87642 /* Processing variable ap */
87643 capi_ap_intent |= (capi_overwrite_ap?0:F2PY_INTENT_COPY32);
87644 ;
87645 capi_ap_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
87646 capi_ap_tmp = array_from_pyobj(NPY_FLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
87647 if (capi_ap_tmp == NULL((void*)0)) {
87648 if (!PyErr_Occurred())
87649 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.spptri to C/Fortran array" );
87650 } else {
87651 ap = (float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
87652
87653 /* Processing variable info */
87654 /* Processing variable L */
87655 L = len(ap)ap_Dims[0];
87656 CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","spptri:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spptri:L=%d", "(""L>=(n*(n+1)/2)"") failed for "
"hidden L", L); PyErr_SetString(_flapack_error,errstring); } else
{
87657/*end of frompyobj*/
87658#ifdef F2PY_REPORT_ATEXIT
87659f2py_start_call_clock();
87660#endif
87661/*callfortranroutine*/
87662 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
87663 (*f2py_func)((lower?"L":"U"),&n,ap,&info) ;
87664 /*(*f2py_func)(&lower,&n,ap,&info,&L);*/
87665 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
87666if (PyErr_Occurred())
87667 f2py_success = 0;
87668#ifdef F2PY_REPORT_ATEXIT
87669f2py_stop_call_clock();
87670#endif
87671/*end of callfortranroutine*/
87672 if (f2py_success) {
87673/*pyobjfrom*/
87674/*end of pyobjfrom*/
87675 CFUNCSMESS("Building return value.\n");
87676 capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info);
87677/*closepyobjfrom*/
87678/*end of closepyobjfrom*/
87679 } /*if (f2py_success) after callfortranroutine*/
87680/*cleanupfrompyobj*/
87681 } /*CHECKSCALAR(L>=(n*(n+1)/2))*/
87682 /* End of cleaning variable L */
87683 /* End of cleaning variable info */
87684 } /*if (capi_ap_tmp == NULL) ... else of ap*/
87685 /* End of cleaning variable ap */
87686 } /*CHECKSCALAR(n>=0)*/
87687 } /*if (f2py_success) of n*/
87688 /* End of cleaning variable n */
87689 } /*CHECKSCALAR(lower==0||lower==1)*/
87690 } /*if (f2py_success) of lower*/
87691 /* End of cleaning variable lower */
87692/*end of cleanupfrompyobj*/
87693 if (capi_buildvalue == NULL((void*)0)) {
87694/*routdebugfailure*/
87695 } else {
87696/*routdebugleave*/
87697 }
87698 CFUNCSMESS("Freeing memory.\n");
87699/*freemem*/
87700#ifdef F2PY_REPORT_ATEXIT
87701f2py_stop_clock();
87702#endif
87703 return capi_buildvalue;
87704}
87705/******************************* end of spptri *******************************/
87706
87707/*********************************** dpptri ***********************************/
87708static char doc_f2py_rout__flapack_dpptri[] = "\
87709uli,info = dpptri(n,ap,[lower,overwrite_ap])\n\nWrapper for ``dpptri``.\
87710\n\nParameters\n----------\n"
87711"n : input int\n"
87712"ap : input rank-1 array('d') with bounds (L)\n"
87713"\nOther Parameters\n----------------\n"
87714"lower : input int, optional\n Default: 0\n"
87715"overwrite_ap : input int, optional\n Default: 0\n"
87716"\nReturns\n-------\n"
87717"uli : rank-1 array('d') with bounds (L) and ap storage\n"
87718"info : int";
87719/* extern void F_FUNC(dpptri,DPPTRI)(char*,F_INT*,double*,F_INT* ); */
87720static PyObject *f2py_rout__flapack_dpptri(const PyObject *capi_self,
87721 PyObject *capi_args,
87722 PyObject *capi_keywds,
87723 void (*f2py_func)(char*,F_INTint*,double*,F_INTint* )) {
87724 PyObject * volatile capi_buildvalue = NULL((void*)0);
87725 volatile int f2py_success = 1;
87726/*decl*/
87727
87728 int lower = 0;
87729 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
87730 int n = 0;
87731 PyObject *n_capi = Py_None(&_Py_NoneStruct);
87732 double *ap = NULL((void*)0);
87733 npy_intp ap_Dims[1] = {-1};
87734 const int ap_Rank = 1;
87735 PyArrayObject *capi_ap_tmp = NULL((void*)0);
87736 int capi_ap_intent = 0;
87737 int capi_overwrite_ap = 0;
87738 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
87739 int info = 0;
87740 int L = 0;
87741 static char *capi_kwlist[] = {"n","ap","lower","overwrite_ap",NULL((void*)0)};
87742
87743/*routdebugenter*/
87744#ifdef F2PY_REPORT_ATEXIT
87745f2py_start_clock();
87746#endif
87747 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
87748 "OO|Oi:_flapack.dpptri",\
87749 capi_kwlist,&n_capi,&ap_capi,&lower_capi,&capi_overwrite_ap))
87750 return NULL((void*)0);
87751/*frompyobj*/
87752 /* Processing variable lower */
87753 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
87754 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpptri() 1st keyword (lower) can't be converted to int");
87755 if (f2py_success) {
87756 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dpptri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpptri:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
87757 /* Processing variable n */
87758 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dpptri() 1st argument (n) can't be converted to int");
87759 if (f2py_success) {
87760 CHECKSCALAR(n>=0,"n>=0","1st argument n","dpptri:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpptri:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
87761 /* Processing variable ap */
87762 capi_ap_intent |= (capi_overwrite_ap?0:F2PY_INTENT_COPY32);
87763 ;
87764 capi_ap_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
87765 capi_ap_tmp = array_from_pyobj(NPY_DOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
87766 if (capi_ap_tmp == NULL((void*)0)) {
87767 if (!PyErr_Occurred())
87768 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.dpptri to C/Fortran array" );
87769 } else {
87770 ap = (double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
87771
87772 /* Processing variable info */
87773 /* Processing variable L */
87774 L = len(ap)ap_Dims[0];
87775 CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","dpptri:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpptri:L=%d", "(""L>=(n*(n+1)/2)"") failed for "
"hidden L", L); PyErr_SetString(_flapack_error,errstring); } else
{
87776/*end of frompyobj*/
87777#ifdef F2PY_REPORT_ATEXIT
87778f2py_start_call_clock();
87779#endif
87780/*callfortranroutine*/
87781 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
87782 (*f2py_func)((lower?"L":"U"),&n,ap,&info) ;
87783 /*(*f2py_func)(&lower,&n,ap,&info,&L);*/
87784 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
87785if (PyErr_Occurred())
87786 f2py_success = 0;
87787#ifdef F2PY_REPORT_ATEXIT
87788f2py_stop_call_clock();
87789#endif
87790/*end of callfortranroutine*/
87791 if (f2py_success) {
87792/*pyobjfrom*/
87793/*end of pyobjfrom*/
87794 CFUNCSMESS("Building return value.\n");
87795 capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info);
87796/*closepyobjfrom*/
87797/*end of closepyobjfrom*/
87798 } /*if (f2py_success) after callfortranroutine*/
87799/*cleanupfrompyobj*/
87800 } /*CHECKSCALAR(L>=(n*(n+1)/2))*/
87801 /* End of cleaning variable L */
87802 /* End of cleaning variable info */
87803 } /*if (capi_ap_tmp == NULL) ... else of ap*/
87804 /* End of cleaning variable ap */
87805 } /*CHECKSCALAR(n>=0)*/
87806 } /*if (f2py_success) of n*/
87807 /* End of cleaning variable n */
87808 } /*CHECKSCALAR(lower==0||lower==1)*/
87809 } /*if (f2py_success) of lower*/
87810 /* End of cleaning variable lower */
87811/*end of cleanupfrompyobj*/
87812 if (capi_buildvalue == NULL((void*)0)) {
87813/*routdebugfailure*/
87814 } else {
87815/*routdebugleave*/
87816 }
87817 CFUNCSMESS("Freeing memory.\n");
87818/*freemem*/
87819#ifdef F2PY_REPORT_ATEXIT
87820f2py_stop_clock();
87821#endif
87822 return capi_buildvalue;
87823}
87824/******************************* end of dpptri *******************************/
87825
87826/*********************************** cpptri ***********************************/
87827static char doc_f2py_rout__flapack_cpptri[] = "\
87828uli,info = cpptri(n,ap,[lower,overwrite_ap])\n\nWrapper for ``cpptri``.\
87829\n\nParameters\n----------\n"
87830"n : input int\n"
87831"ap : input rank-1 array('F') with bounds (L)\n"
87832"\nOther Parameters\n----------------\n"
87833"lower : input int, optional\n Default: 0\n"
87834"overwrite_ap : input int, optional\n Default: 0\n"
87835"\nReturns\n-------\n"
87836"uli : rank-1 array('F') with bounds (L) and ap storage\n"
87837"info : int";
87838/* extern void F_FUNC(cpptri,CPPTRI)(char*,F_INT*,complex_float*,F_INT* ); */
87839static PyObject *f2py_rout__flapack_cpptri(const PyObject *capi_self,
87840 PyObject *capi_args,
87841 PyObject *capi_keywds,
87842 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint* )) {
87843 PyObject * volatile capi_buildvalue = NULL((void*)0);
87844 volatile int f2py_success = 1;
87845/*decl*/
87846
87847 int lower = 0;
87848 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
87849 int n = 0;
87850 PyObject *n_capi = Py_None(&_Py_NoneStruct);
87851 complex_float *ap = NULL((void*)0);
87852 npy_intp ap_Dims[1] = {-1};
87853 const int ap_Rank = 1;
87854 PyArrayObject *capi_ap_tmp = NULL((void*)0);
87855 int capi_ap_intent = 0;
87856 int capi_overwrite_ap = 0;
87857 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
87858 int info = 0;
87859 int L = 0;
87860 static char *capi_kwlist[] = {"n","ap","lower","overwrite_ap",NULL((void*)0)};
87861
87862/*routdebugenter*/
87863#ifdef F2PY_REPORT_ATEXIT
87864f2py_start_clock();
87865#endif
87866 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
87867 "OO|Oi:_flapack.cpptri",\
87868 capi_kwlist,&n_capi,&ap_capi,&lower_capi,&capi_overwrite_ap))
87869 return NULL((void*)0);
87870/*frompyobj*/
87871 /* Processing variable lower */
87872 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
87873 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpptri() 1st keyword (lower) can't be converted to int");
87874 if (f2py_success) {
87875 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cpptri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpptri:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
87876 /* Processing variable n */
87877 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cpptri() 1st argument (n) can't be converted to int");
87878 if (f2py_success) {
87879 CHECKSCALAR(n>=0,"n>=0","1st argument n","cpptri:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpptri:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
87880 /* Processing variable ap */
87881 capi_ap_intent |= (capi_overwrite_ap?0:F2PY_INTENT_COPY32);
87882 ;
87883 capi_ap_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
87884 capi_ap_tmp = array_from_pyobj(NPY_CFLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
87885 if (capi_ap_tmp == NULL((void*)0)) {
87886 if (!PyErr_Occurred())
87887 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.cpptri to C/Fortran array" );
87888 } else {
87889 ap = (complex_float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
87890
87891 /* Processing variable info */
87892 /* Processing variable L */
87893 L = len(ap)ap_Dims[0];
87894 CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","cpptri:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpptri:L=%d", "(""L>=(n*(n+1)/2)"") failed for "
"hidden L", L); PyErr_SetString(_flapack_error,errstring); } else
{
87895/*end of frompyobj*/
87896#ifdef F2PY_REPORT_ATEXIT
87897f2py_start_call_clock();
87898#endif
87899/*callfortranroutine*/
87900 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
87901 (*f2py_func)((lower?"L":"U"),&n,ap,&info) ;
87902 /*(*f2py_func)(&lower,&n,ap,&info,&L);*/
87903 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
87904if (PyErr_Occurred())
87905 f2py_success = 0;
87906#ifdef F2PY_REPORT_ATEXIT
87907f2py_stop_call_clock();
87908#endif
87909/*end of callfortranroutine*/
87910 if (f2py_success) {
87911/*pyobjfrom*/
87912/*end of pyobjfrom*/
87913 CFUNCSMESS("Building return value.\n");
87914 capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info);
87915/*closepyobjfrom*/
87916/*end of closepyobjfrom*/
87917 } /*if (f2py_success) after callfortranroutine*/
87918/*cleanupfrompyobj*/
87919 } /*CHECKSCALAR(L>=(n*(n+1)/2))*/
87920 /* End of cleaning variable L */
87921 /* End of cleaning variable info */
87922 } /*if (capi_ap_tmp == NULL) ... else of ap*/
87923 /* End of cleaning variable ap */
87924 } /*CHECKSCALAR(n>=0)*/
87925 } /*if (f2py_success) of n*/
87926 /* End of cleaning variable n */
87927 } /*CHECKSCALAR(lower==0||lower==1)*/
87928 } /*if (f2py_success) of lower*/
87929 /* End of cleaning variable lower */
87930/*end of cleanupfrompyobj*/
87931 if (capi_buildvalue == NULL((void*)0)) {
87932/*routdebugfailure*/
87933 } else {
87934/*routdebugleave*/
87935 }
87936 CFUNCSMESS("Freeing memory.\n");
87937/*freemem*/
87938#ifdef F2PY_REPORT_ATEXIT
87939f2py_stop_clock();
87940#endif
87941 return capi_buildvalue;
87942}
87943/******************************* end of cpptri *******************************/
87944
87945/*********************************** zpptri ***********************************/
87946static char doc_f2py_rout__flapack_zpptri[] = "\
87947uli,info = zpptri(n,ap,[lower,overwrite_ap])\n\nWrapper for ``zpptri``.\
87948\n\nParameters\n----------\n"
87949"n : input int\n"
87950"ap : input rank-1 array('D') with bounds (L)\n"
87951"\nOther Parameters\n----------------\n"
87952"lower : input int, optional\n Default: 0\n"
87953"overwrite_ap : input int, optional\n Default: 0\n"
87954"\nReturns\n-------\n"
87955"uli : rank-1 array('D') with bounds (L) and ap storage\n"
87956"info : int";
87957/* extern void F_FUNC(zpptri,ZPPTRI)(char*,F_INT*,complex_double*,F_INT* ); */
87958static PyObject *f2py_rout__flapack_zpptri(const PyObject *capi_self,
87959 PyObject *capi_args,
87960 PyObject *capi_keywds,
87961 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint* )) {
87962 PyObject * volatile capi_buildvalue = NULL((void*)0);
87963 volatile int f2py_success = 1;
87964/*decl*/
87965
87966 int lower = 0;
87967 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
87968 int n = 0;
87969 PyObject *n_capi = Py_None(&_Py_NoneStruct);
87970 complex_double *ap = NULL((void*)0);
87971 npy_intp ap_Dims[1] = {-1};
87972 const int ap_Rank = 1;
87973 PyArrayObject *capi_ap_tmp = NULL((void*)0);
87974 int capi_ap_intent = 0;
87975 int capi_overwrite_ap = 0;
87976 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
87977 int info = 0;
87978 int L = 0;
87979 static char *capi_kwlist[] = {"n","ap","lower","overwrite_ap",NULL((void*)0)};
87980
87981/*routdebugenter*/
87982#ifdef F2PY_REPORT_ATEXIT
87983f2py_start_clock();
87984#endif
87985 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
87986 "OO|Oi:_flapack.zpptri",\
87987 capi_kwlist,&n_capi,&ap_capi,&lower_capi,&capi_overwrite_ap))
87988 return NULL((void*)0);
87989/*frompyobj*/
87990 /* Processing variable lower */
87991 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
87992 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpptri() 1st keyword (lower) can't be converted to int");
87993 if (f2py_success) {
87994 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zpptri:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpptri:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
87995 /* Processing variable n */
87996 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zpptri() 1st argument (n) can't be converted to int");
87997 if (f2py_success) {
87998 CHECKSCALAR(n>=0,"n>=0","1st argument n","zpptri:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpptri:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
87999 /* Processing variable ap */
88000 capi_ap_intent |= (capi_overwrite_ap?0:F2PY_INTENT_COPY32);
88001 ;
88002 capi_ap_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
88003 capi_ap_tmp = array_from_pyobj(NPY_CDOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
88004 if (capi_ap_tmp == NULL((void*)0)) {
88005 if (!PyErr_Occurred())
88006 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.zpptri to C/Fortran array" );
88007 } else {
88008 ap = (complex_double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
88009
88010 /* Processing variable info */
88011 /* Processing variable L */
88012 L = len(ap)ap_Dims[0];
88013 CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","zpptri:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpptri:L=%d", "(""L>=(n*(n+1)/2)"") failed for "
"hidden L", L); PyErr_SetString(_flapack_error,errstring); } else
{
88014/*end of frompyobj*/
88015#ifdef F2PY_REPORT_ATEXIT
88016f2py_start_call_clock();
88017#endif
88018/*callfortranroutine*/
88019 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
88020 (*f2py_func)((lower?"L":"U"),&n,ap,&info) ;
88021 /*(*f2py_func)(&lower,&n,ap,&info,&L);*/
88022 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
88023if (PyErr_Occurred())
88024 f2py_success = 0;
88025#ifdef F2PY_REPORT_ATEXIT
88026f2py_stop_call_clock();
88027#endif
88028/*end of callfortranroutine*/
88029 if (f2py_success) {
88030/*pyobjfrom*/
88031/*end of pyobjfrom*/
88032 CFUNCSMESS("Building return value.\n");
88033 capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info);
88034/*closepyobjfrom*/
88035/*end of closepyobjfrom*/
88036 } /*if (f2py_success) after callfortranroutine*/
88037/*cleanupfrompyobj*/
88038 } /*CHECKSCALAR(L>=(n*(n+1)/2))*/
88039 /* End of cleaning variable L */
88040 /* End of cleaning variable info */
88041 } /*if (capi_ap_tmp == NULL) ... else of ap*/
88042 /* End of cleaning variable ap */
88043 } /*CHECKSCALAR(n>=0)*/
88044 } /*if (f2py_success) of n*/
88045 /* End of cleaning variable n */
88046 } /*CHECKSCALAR(lower==0||lower==1)*/
88047 } /*if (f2py_success) of lower*/
88048 /* End of cleaning variable lower */
88049/*end of cleanupfrompyobj*/
88050 if (capi_buildvalue == NULL((void*)0)) {
88051/*routdebugfailure*/
88052 } else {
88053/*routdebugleave*/
88054 }
88055 CFUNCSMESS("Freeing memory.\n");
88056/*freemem*/
88057#ifdef F2PY_REPORT_ATEXIT
88058f2py_stop_clock();
88059#endif
88060 return capi_buildvalue;
88061}
88062/******************************* end of zpptri *******************************/
88063
88064/*********************************** spptrs ***********************************/
88065static char doc_f2py_rout__flapack_spptrs[] = "\
88066x,info = spptrs(n,ap,b,[lower,overwrite_b])\n\nWrapper for ``spptrs``.\
88067\n\nParameters\n----------\n"
88068"n : input int\n"
88069"ap : input rank-1 array('f') with bounds (L)\n"
88070"b : input rank-2 array('f') with bounds (ldb,nrhs)\n"
88071"\nOther Parameters\n----------------\n"
88072"lower : input int, optional\n Default: 0\n"
88073"overwrite_b : input int, optional\n Default: 0\n"
88074"\nReturns\n-------\n"
88075"x : rank-2 array('f') with bounds (ldb,nrhs) and b storage\n"
88076"info : int";
88077/* extern void F_FUNC(spptrs,SPPTRS)(char*,F_INT*,F_INT*,float*,float*,F_INT*,F_INT* ); */
88078static PyObject *f2py_rout__flapack_spptrs(const PyObject *capi_self,
88079 PyObject *capi_args,
88080 PyObject *capi_keywds,
88081 void (*f2py_func)(char*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
88082 PyObject * volatile capi_buildvalue = NULL((void*)0);
88083 volatile int f2py_success = 1;
88084/*decl*/
88085
88086 int lower = 0;
88087 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
88088 int n = 0;
88089 PyObject *n_capi = Py_None(&_Py_NoneStruct);
88090 int nrhs = 0;
88091 float *ap = NULL((void*)0);
88092 npy_intp ap_Dims[1] = {-1};
88093 const int ap_Rank = 1;
88094 PyArrayObject *capi_ap_tmp = NULL((void*)0);
88095 int capi_ap_intent = 0;
88096 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
88097 float *b = NULL((void*)0);
88098 npy_intp b_Dims[2] = {-1, -1};
88099 const int b_Rank = 2;
88100 PyArrayObject *capi_b_tmp = NULL((void*)0);
88101 int capi_b_intent = 0;
88102 int capi_overwrite_b = 0;
88103 PyObject *b_capi = Py_None(&_Py_NoneStruct);
88104 int ldb = 0;
88105 int info = 0;
88106 int L = 0;
88107 static char *capi_kwlist[] = {"n","ap","b","lower","overwrite_b",NULL((void*)0)};
88108
88109/*routdebugenter*/
88110#ifdef F2PY_REPORT_ATEXIT
88111f2py_start_clock();
88112#endif
88113 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
88114 "OOO|Oi:_flapack.spptrs",\
88115 capi_kwlist,&n_capi,&ap_capi,&b_capi,&lower_capi,&capi_overwrite_b))
88116 return NULL((void*)0);
88117/*frompyobj*/
88118 /* Processing variable lower */
88119 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
88120 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.spptrs() 1st keyword (lower) can't be converted to int");
88121 if (f2py_success) {
88122 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","spptrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spptrs:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
88123 /* Processing variable n */
88124 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.spptrs() 1st argument (n) can't be converted to int");
88125 if (f2py_success) {
88126 CHECKSCALAR(n>=0,"n>=0","1st argument n","spptrs:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spptrs:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
88127 /* Processing variable ap */
88128 ;
88129 capi_ap_intent |= F2PY_INTENT_IN1;
88130 capi_ap_tmp = array_from_pyobj(NPY_FLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
88131 if (capi_ap_tmp == NULL((void*)0)) {
88132 if (!PyErr_Occurred())
88133 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.spptrs to C/Fortran array" );
88134 } else {
88135 ap = (float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
88136
88137 /* Processing variable b */
88138 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
88139 ;
88140 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
88141 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
88142 if (capi_b_tmp == NULL((void*)0)) {
88143 if (!PyErr_Occurred())
88144 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.spptrs to C/Fortran array" );
88145 } else {
88146 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
88147
88148 /* Processing variable info */
88149 /* Processing variable ldb */
88150 ldb = max(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
88151 /* Processing variable nrhs */
88152 nrhs = shape(b,1)b_Dims[1];
88153 /* Processing variable L */
88154 L = len(ap)ap_Dims[0];
88155 CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","spptrs:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spptrs:L=%d", "(""L>=(n*(n+1)/2)"") failed for "
"hidden L", L); PyErr_SetString(_flapack_error,errstring); } else
{
88156/*end of frompyobj*/
88157#ifdef F2PY_REPORT_ATEXIT
88158f2py_start_call_clock();
88159#endif
88160/*callfortranroutine*/
88161 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
88162 (*f2py_func)((lower?"L":"U"),&n,&nrhs,ap,b,&ldb,&info) ;
88163 /*(*f2py_func)(&lower,&n,&nrhs,ap,b,&ldb,&info,&L);*/
88164 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
88165if (PyErr_Occurred())
88166 f2py_success = 0;
88167#ifdef F2PY_REPORT_ATEXIT
88168f2py_stop_call_clock();
88169#endif
88170/*end of callfortranroutine*/
88171 if (f2py_success) {
88172/*pyobjfrom*/
88173/*end of pyobjfrom*/
88174 CFUNCSMESS("Building return value.\n");
88175 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
88176/*closepyobjfrom*/
88177/*end of closepyobjfrom*/
88178 } /*if (f2py_success) after callfortranroutine*/
88179/*cleanupfrompyobj*/
88180 } /*CHECKSCALAR(L>=(n*(n+1)/2))*/
88181 /* End of cleaning variable L */
88182 /* End of cleaning variable nrhs */
88183 /* End of cleaning variable ldb */
88184 /* End of cleaning variable info */
88185 } /*if (capi_b_tmp == NULL) ... else of b*/
88186 /* End of cleaning variable b */
88187 if((PyObject *)capi_ap_tmp!=ap_capi) {
88188 Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); }
88189 } /*if (capi_ap_tmp == NULL) ... else of ap*/
88190 /* End of cleaning variable ap */
88191 } /*CHECKSCALAR(n>=0)*/
88192 } /*if (f2py_success) of n*/
88193 /* End of cleaning variable n */
88194 } /*CHECKSCALAR(lower==0||lower==1)*/
88195 } /*if (f2py_success) of lower*/
88196 /* End of cleaning variable lower */
88197/*end of cleanupfrompyobj*/
88198 if (capi_buildvalue == NULL((void*)0)) {
88199/*routdebugfailure*/
88200 } else {
88201/*routdebugleave*/
88202 }
88203 CFUNCSMESS("Freeing memory.\n");
88204/*freemem*/
88205#ifdef F2PY_REPORT_ATEXIT
88206f2py_stop_clock();
88207#endif
88208 return capi_buildvalue;
88209}
88210/******************************* end of spptrs *******************************/
88211
88212/*********************************** dpptrs ***********************************/
88213static char doc_f2py_rout__flapack_dpptrs[] = "\
88214x,info = dpptrs(n,ap,b,[lower,overwrite_b])\n\nWrapper for ``dpptrs``.\
88215\n\nParameters\n----------\n"
88216"n : input int\n"
88217"ap : input rank-1 array('d') with bounds (L)\n"
88218"b : input rank-2 array('d') with bounds (ldb,nrhs)\n"
88219"\nOther Parameters\n----------------\n"
88220"lower : input int, optional\n Default: 0\n"
88221"overwrite_b : input int, optional\n Default: 0\n"
88222"\nReturns\n-------\n"
88223"x : rank-2 array('d') with bounds (ldb,nrhs) and b storage\n"
88224"info : int";
88225/* extern void F_FUNC(dpptrs,DPPTRS)(char*,F_INT*,F_INT*,double*,double*,F_INT*,F_INT* ); */
88226static PyObject *f2py_rout__flapack_dpptrs(const PyObject *capi_self,
88227 PyObject *capi_args,
88228 PyObject *capi_keywds,
88229 void (*f2py_func)(char*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
88230 PyObject * volatile capi_buildvalue = NULL((void*)0);
88231 volatile int f2py_success = 1;
88232/*decl*/
88233
88234 int lower = 0;
88235 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
88236 int n = 0;
88237 PyObject *n_capi = Py_None(&_Py_NoneStruct);
88238 int nrhs = 0;
88239 double *ap = NULL((void*)0);
88240 npy_intp ap_Dims[1] = {-1};
88241 const int ap_Rank = 1;
88242 PyArrayObject *capi_ap_tmp = NULL((void*)0);
88243 int capi_ap_intent = 0;
88244 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
88245 double *b = NULL((void*)0);
88246 npy_intp b_Dims[2] = {-1, -1};
88247 const int b_Rank = 2;
88248 PyArrayObject *capi_b_tmp = NULL((void*)0);
88249 int capi_b_intent = 0;
88250 int capi_overwrite_b = 0;
88251 PyObject *b_capi = Py_None(&_Py_NoneStruct);
88252 int ldb = 0;
88253 int info = 0;
88254 int L = 0;
88255 static char *capi_kwlist[] = {"n","ap","b","lower","overwrite_b",NULL((void*)0)};
88256
88257/*routdebugenter*/
88258#ifdef F2PY_REPORT_ATEXIT
88259f2py_start_clock();
88260#endif
88261 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
88262 "OOO|Oi:_flapack.dpptrs",\
88263 capi_kwlist,&n_capi,&ap_capi,&b_capi,&lower_capi,&capi_overwrite_b))
88264 return NULL((void*)0);
88265/*frompyobj*/
88266 /* Processing variable lower */
88267 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
88268 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dpptrs() 1st keyword (lower) can't be converted to int");
88269 if (f2py_success) {
88270 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dpptrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpptrs:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
88271 /* Processing variable n */
88272 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dpptrs() 1st argument (n) can't be converted to int");
88273 if (f2py_success) {
88274 CHECKSCALAR(n>=0,"n>=0","1st argument n","dpptrs:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpptrs:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
88275 /* Processing variable ap */
88276 ;
88277 capi_ap_intent |= F2PY_INTENT_IN1;
88278 capi_ap_tmp = array_from_pyobj(NPY_DOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
88279 if (capi_ap_tmp == NULL((void*)0)) {
88280 if (!PyErr_Occurred())
88281 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.dpptrs to C/Fortran array" );
88282 } else {
88283 ap = (double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
88284
88285 /* Processing variable b */
88286 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
88287 ;
88288 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
88289 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
88290 if (capi_b_tmp == NULL((void*)0)) {
88291 if (!PyErr_Occurred())
88292 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.dpptrs to C/Fortran array" );
88293 } else {
88294 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
88295
88296 /* Processing variable info */
88297 /* Processing variable ldb */
88298 ldb = max(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
88299 /* Processing variable nrhs */
88300 nrhs = shape(b,1)b_Dims[1];
88301 /* Processing variable L */
88302 L = len(ap)ap_Dims[0];
88303 CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","dpptrs:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpptrs:L=%d", "(""L>=(n*(n+1)/2)"") failed for "
"hidden L", L); PyErr_SetString(_flapack_error,errstring); } else
{
88304/*end of frompyobj*/
88305#ifdef F2PY_REPORT_ATEXIT
88306f2py_start_call_clock();
88307#endif
88308/*callfortranroutine*/
88309 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
88310 (*f2py_func)((lower?"L":"U"),&n,&nrhs,ap,b,&ldb,&info) ;
88311 /*(*f2py_func)(&lower,&n,&nrhs,ap,b,&ldb,&info,&L);*/
88312 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
88313if (PyErr_Occurred())
88314 f2py_success = 0;
88315#ifdef F2PY_REPORT_ATEXIT
88316f2py_stop_call_clock();
88317#endif
88318/*end of callfortranroutine*/
88319 if (f2py_success) {
88320/*pyobjfrom*/
88321/*end of pyobjfrom*/
88322 CFUNCSMESS("Building return value.\n");
88323 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
88324/*closepyobjfrom*/
88325/*end of closepyobjfrom*/
88326 } /*if (f2py_success) after callfortranroutine*/
88327/*cleanupfrompyobj*/
88328 } /*CHECKSCALAR(L>=(n*(n+1)/2))*/
88329 /* End of cleaning variable L */
88330 /* End of cleaning variable nrhs */
88331 /* End of cleaning variable ldb */
88332 /* End of cleaning variable info */
88333 } /*if (capi_b_tmp == NULL) ... else of b*/
88334 /* End of cleaning variable b */
88335 if((PyObject *)capi_ap_tmp!=ap_capi) {
88336 Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); }
88337 } /*if (capi_ap_tmp == NULL) ... else of ap*/
88338 /* End of cleaning variable ap */
88339 } /*CHECKSCALAR(n>=0)*/
88340 } /*if (f2py_success) of n*/
88341 /* End of cleaning variable n */
88342 } /*CHECKSCALAR(lower==0||lower==1)*/
88343 } /*if (f2py_success) of lower*/
88344 /* End of cleaning variable lower */
88345/*end of cleanupfrompyobj*/
88346 if (capi_buildvalue == NULL((void*)0)) {
88347/*routdebugfailure*/
88348 } else {
88349/*routdebugleave*/
88350 }
88351 CFUNCSMESS("Freeing memory.\n");
88352/*freemem*/
88353#ifdef F2PY_REPORT_ATEXIT
88354f2py_stop_clock();
88355#endif
88356 return capi_buildvalue;
88357}
88358/******************************* end of dpptrs *******************************/
88359
88360/*********************************** cpptrs ***********************************/
88361static char doc_f2py_rout__flapack_cpptrs[] = "\
88362x,info = cpptrs(n,ap,b,[lower,overwrite_b])\n\nWrapper for ``cpptrs``.\
88363\n\nParameters\n----------\n"
88364"n : input int\n"
88365"ap : input rank-1 array('F') with bounds (L)\n"
88366"b : input rank-2 array('F') with bounds (ldb,nrhs)\n"
88367"\nOther Parameters\n----------------\n"
88368"lower : input int, optional\n Default: 0\n"
88369"overwrite_b : input int, optional\n Default: 0\n"
88370"\nReturns\n-------\n"
88371"x : rank-2 array('F') with bounds (ldb,nrhs) and b storage\n"
88372"info : int";
88373/* extern void F_FUNC(cpptrs,CPPTRS)(char*,F_INT*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */
88374static PyObject *f2py_rout__flapack_cpptrs(const PyObject *capi_self,
88375 PyObject *capi_args,
88376 PyObject *capi_keywds,
88377 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
88378 PyObject * volatile capi_buildvalue = NULL((void*)0);
88379 volatile int f2py_success = 1;
88380/*decl*/
88381
88382 int lower = 0;
88383 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
88384 int n = 0;
88385 PyObject *n_capi = Py_None(&_Py_NoneStruct);
88386 int nrhs = 0;
88387 complex_float *ap = NULL((void*)0);
88388 npy_intp ap_Dims[1] = {-1};
88389 const int ap_Rank = 1;
88390 PyArrayObject *capi_ap_tmp = NULL((void*)0);
88391 int capi_ap_intent = 0;
88392 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
88393 complex_float *b = NULL((void*)0);
88394 npy_intp b_Dims[2] = {-1, -1};
88395 const int b_Rank = 2;
88396 PyArrayObject *capi_b_tmp = NULL((void*)0);
88397 int capi_b_intent = 0;
88398 int capi_overwrite_b = 0;
88399 PyObject *b_capi = Py_None(&_Py_NoneStruct);
88400 int ldb = 0;
88401 int info = 0;
88402 int L = 0;
88403 static char *capi_kwlist[] = {"n","ap","b","lower","overwrite_b",NULL((void*)0)};
88404
88405/*routdebugenter*/
88406#ifdef F2PY_REPORT_ATEXIT
88407f2py_start_clock();
88408#endif
88409 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
88410 "OOO|Oi:_flapack.cpptrs",\
88411 capi_kwlist,&n_capi,&ap_capi,&b_capi,&lower_capi,&capi_overwrite_b))
88412 return NULL((void*)0);
88413/*frompyobj*/
88414 /* Processing variable lower */
88415 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
88416 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.cpptrs() 1st keyword (lower) can't be converted to int");
88417 if (f2py_success) {
88418 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","cpptrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpptrs:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
88419 /* Processing variable n */
88420 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cpptrs() 1st argument (n) can't be converted to int");
88421 if (f2py_success) {
88422 CHECKSCALAR(n>=0,"n>=0","1st argument n","cpptrs:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpptrs:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
88423 /* Processing variable ap */
88424 ;
88425 capi_ap_intent |= F2PY_INTENT_IN1;
88426 capi_ap_tmp = array_from_pyobj(NPY_CFLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
88427 if (capi_ap_tmp == NULL((void*)0)) {
88428 if (!PyErr_Occurred())
88429 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.cpptrs to C/Fortran array" );
88430 } else {
88431 ap = (complex_float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
88432
88433 /* Processing variable b */
88434 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
88435 ;
88436 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
88437 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
88438 if (capi_b_tmp == NULL((void*)0)) {
88439 if (!PyErr_Occurred())
88440 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.cpptrs to C/Fortran array" );
88441 } else {
88442 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
88443
88444 /* Processing variable info */
88445 /* Processing variable ldb */
88446 ldb = max(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
88447 /* Processing variable nrhs */
88448 nrhs = shape(b,1)b_Dims[1];
88449 /* Processing variable L */
88450 L = len(ap)ap_Dims[0];
88451 CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","cpptrs:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpptrs:L=%d", "(""L>=(n*(n+1)/2)"") failed for "
"hidden L", L); PyErr_SetString(_flapack_error,errstring); } else
{
88452/*end of frompyobj*/
88453#ifdef F2PY_REPORT_ATEXIT
88454f2py_start_call_clock();
88455#endif
88456/*callfortranroutine*/
88457 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
88458 (*f2py_func)((lower?"L":"U"),&n,&nrhs,ap,b,&ldb,&info) ;
88459 /*(*f2py_func)(&lower,&n,&nrhs,ap,b,&ldb,&info,&L);*/
88460 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
88461if (PyErr_Occurred())
88462 f2py_success = 0;
88463#ifdef F2PY_REPORT_ATEXIT
88464f2py_stop_call_clock();
88465#endif
88466/*end of callfortranroutine*/
88467 if (f2py_success) {
88468/*pyobjfrom*/
88469/*end of pyobjfrom*/
88470 CFUNCSMESS("Building return value.\n");
88471 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
88472/*closepyobjfrom*/
88473/*end of closepyobjfrom*/
88474 } /*if (f2py_success) after callfortranroutine*/
88475/*cleanupfrompyobj*/
88476 } /*CHECKSCALAR(L>=(n*(n+1)/2))*/
88477 /* End of cleaning variable L */
88478 /* End of cleaning variable nrhs */
88479 /* End of cleaning variable ldb */
88480 /* End of cleaning variable info */
88481 } /*if (capi_b_tmp == NULL) ... else of b*/
88482 /* End of cleaning variable b */
88483 if((PyObject *)capi_ap_tmp!=ap_capi) {
88484 Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); }
88485 } /*if (capi_ap_tmp == NULL) ... else of ap*/
88486 /* End of cleaning variable ap */
88487 } /*CHECKSCALAR(n>=0)*/
88488 } /*if (f2py_success) of n*/
88489 /* End of cleaning variable n */
88490 } /*CHECKSCALAR(lower==0||lower==1)*/
88491 } /*if (f2py_success) of lower*/
88492 /* End of cleaning variable lower */
88493/*end of cleanupfrompyobj*/
88494 if (capi_buildvalue == NULL((void*)0)) {
88495/*routdebugfailure*/
88496 } else {
88497/*routdebugleave*/
88498 }
88499 CFUNCSMESS("Freeing memory.\n");
88500/*freemem*/
88501#ifdef F2PY_REPORT_ATEXIT
88502f2py_stop_clock();
88503#endif
88504 return capi_buildvalue;
88505}
88506/******************************* end of cpptrs *******************************/
88507
88508/*********************************** zpptrs ***********************************/
88509static char doc_f2py_rout__flapack_zpptrs[] = "\
88510x,info = zpptrs(n,ap,b,[lower,overwrite_b])\n\nWrapper for ``zpptrs``.\
88511\n\nParameters\n----------\n"
88512"n : input int\n"
88513"ap : input rank-1 array('D') with bounds (L)\n"
88514"b : input rank-2 array('D') with bounds (ldb,nrhs)\n"
88515"\nOther Parameters\n----------------\n"
88516"lower : input int, optional\n Default: 0\n"
88517"overwrite_b : input int, optional\n Default: 0\n"
88518"\nReturns\n-------\n"
88519"x : rank-2 array('D') with bounds (ldb,nrhs) and b storage\n"
88520"info : int";
88521/* extern void F_FUNC(zpptrs,ZPPTRS)(char*,F_INT*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */
88522static PyObject *f2py_rout__flapack_zpptrs(const PyObject *capi_self,
88523 PyObject *capi_args,
88524 PyObject *capi_keywds,
88525 void (*f2py_func)(char*,F_INTint*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
88526 PyObject * volatile capi_buildvalue = NULL((void*)0);
88527 volatile int f2py_success = 1;
88528/*decl*/
88529
88530 int lower = 0;
88531 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
88532 int n = 0;
88533 PyObject *n_capi = Py_None(&_Py_NoneStruct);
88534 int nrhs = 0;
88535 complex_double *ap = NULL((void*)0);
88536 npy_intp ap_Dims[1] = {-1};
88537 const int ap_Rank = 1;
88538 PyArrayObject *capi_ap_tmp = NULL((void*)0);
88539 int capi_ap_intent = 0;
88540 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
88541 complex_double *b = NULL((void*)0);
88542 npy_intp b_Dims[2] = {-1, -1};
88543 const int b_Rank = 2;
88544 PyArrayObject *capi_b_tmp = NULL((void*)0);
88545 int capi_b_intent = 0;
88546 int capi_overwrite_b = 0;
88547 PyObject *b_capi = Py_None(&_Py_NoneStruct);
88548 int ldb = 0;
88549 int info = 0;
88550 int L = 0;
88551 static char *capi_kwlist[] = {"n","ap","b","lower","overwrite_b",NULL((void*)0)};
88552
88553/*routdebugenter*/
88554#ifdef F2PY_REPORT_ATEXIT
88555f2py_start_clock();
88556#endif
88557 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
88558 "OOO|Oi:_flapack.zpptrs",\
88559 capi_kwlist,&n_capi,&ap_capi,&b_capi,&lower_capi,&capi_overwrite_b))
88560 return NULL((void*)0);
88561/*frompyobj*/
88562 /* Processing variable lower */
88563 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
88564 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zpptrs() 1st keyword (lower) can't be converted to int");
88565 if (f2py_success) {
88566 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zpptrs:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpptrs:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
88567 /* Processing variable n */
88568 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zpptrs() 1st argument (n) can't be converted to int");
88569 if (f2py_success) {
88570 CHECKSCALAR(n>=0,"n>=0","1st argument n","zpptrs:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpptrs:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
88571 /* Processing variable ap */
88572 ;
88573 capi_ap_intent |= F2PY_INTENT_IN1;
88574 capi_ap_tmp = array_from_pyobj(NPY_CDOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
88575 if (capi_ap_tmp == NULL((void*)0)) {
88576 if (!PyErr_Occurred())
88577 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.zpptrs to C/Fortran array" );
88578 } else {
88579 ap = (complex_double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
88580
88581 /* Processing variable b */
88582 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
88583 ;
88584 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
88585 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
88586 if (capi_b_tmp == NULL((void*)0)) {
88587 if (!PyErr_Occurred())
88588 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.zpptrs to C/Fortran array" );
88589 } else {
88590 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
88591
88592 /* Processing variable info */
88593 /* Processing variable ldb */
88594 ldb = max(1, shape(b,0))((1 > b_Dims[0]) ? (1) : (b_Dims[0]));
88595 /* Processing variable nrhs */
88596 nrhs = shape(b,1)b_Dims[1];
88597 /* Processing variable L */
88598 L = len(ap)ap_Dims[0];
88599 CHECKSCALAR(L>=(n*(n+1)/2),"L>=(n*(n+1)/2)","hidden L","zpptrs:L=%d",L)if (!(L>=(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpptrs:L=%d", "(""L>=(n*(n+1)/2)"") failed for "
"hidden L", L); PyErr_SetString(_flapack_error,errstring); } else
{
88600/*end of frompyobj*/
88601#ifdef F2PY_REPORT_ATEXIT
88602f2py_start_call_clock();
88603#endif
88604/*callfortranroutine*/
88605 Py_BEGIN_ALLOW_THREADS{ PyThreadState *_save; _save = PyEval_SaveThread();
88606 (*f2py_func)((lower?"L":"U"),&n,&nrhs,ap,b,&ldb,&info) ;
88607 /*(*f2py_func)(&lower,&n,&nrhs,ap,b,&ldb,&info,&L);*/
88608 Py_END_ALLOW_THREADSPyEval_RestoreThread(_save); }
88609if (PyErr_Occurred())
88610 f2py_success = 0;
88611#ifdef F2PY_REPORT_ATEXIT
88612f2py_stop_call_clock();
88613#endif
88614/*end of callfortranroutine*/
88615 if (f2py_success) {
88616/*pyobjfrom*/
88617/*end of pyobjfrom*/
88618 CFUNCSMESS("Building return value.\n");
88619 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
88620/*closepyobjfrom*/
88621/*end of closepyobjfrom*/
88622 } /*if (f2py_success) after callfortranroutine*/
88623/*cleanupfrompyobj*/
88624 } /*CHECKSCALAR(L>=(n*(n+1)/2))*/
88625 /* End of cleaning variable L */
88626 /* End of cleaning variable nrhs */
88627 /* End of cleaning variable ldb */
88628 /* End of cleaning variable info */
88629 } /*if (capi_b_tmp == NULL) ... else of b*/
88630 /* End of cleaning variable b */
88631 if((PyObject *)capi_ap_tmp!=ap_capi) {
88632 Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); }
88633 } /*if (capi_ap_tmp == NULL) ... else of ap*/
88634 /* End of cleaning variable ap */
88635 } /*CHECKSCALAR(n>=0)*/
88636 } /*if (f2py_success) of n*/
88637 /* End of cleaning variable n */
88638 } /*CHECKSCALAR(lower==0||lower==1)*/
88639 } /*if (f2py_success) of lower*/
88640 /* End of cleaning variable lower */
88641/*end of cleanupfrompyobj*/
88642 if (capi_buildvalue == NULL((void*)0)) {
88643/*routdebugfailure*/
88644 } else {
88645/*routdebugleave*/
88646 }
88647 CFUNCSMESS("Freeing memory.\n");
88648/*freemem*/
88649#ifdef F2PY_REPORT_ATEXIT
88650f2py_stop_clock();
88651#endif
88652 return capi_buildvalue;
88653}
88654/******************************* end of zpptrs *******************************/
88655
88656/*********************************** ssbev ***********************************/
88657static char doc_f2py_rout__flapack_ssbev[] = "\
88658w,z,info = ssbev(ab,[compute_v,lower,ldab,overwrite_ab])\n\nWrapper for ``ssbev``.\
88659\n\nParameters\n----------\n"
88660"ab : input rank-2 array('f') with bounds (ldab,n)\n"
88661"\nOther Parameters\n----------------\n"
88662"overwrite_ab : input int, optional\n Default: 1\n"
88663"compute_v : input int, optional\n Default: 1\n"
88664"lower : input int, optional\n Default: 0\n"
88665"ldab : input int, optional\n Default: shape(ab,0)\n"
88666"\nReturns\n-------\n"
88667"w : rank-1 array('f') with bounds (n)\n"
88668"z : rank-2 array('f') with bounds (ldz,ldz)\n"
88669"info : int";
88670/* extern void F_FUNC(ssbev,SSBEV)(char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT* ); */
88671static PyObject *f2py_rout__flapack_ssbev(const PyObject *capi_self,
88672 PyObject *capi_args,
88673 PyObject *capi_keywds,
88674 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint* )) {
88675 PyObject * volatile capi_buildvalue = NULL((void*)0);
88676 volatile int f2py_success = 1;
88677/*decl*/
88678
88679 float *ab = NULL((void*)0);
88680 npy_intp ab_Dims[2] = {-1, -1};
88681 const int ab_Rank = 2;
88682 PyArrayObject *capi_ab_tmp = NULL((void*)0);
88683 int capi_ab_intent = 0;
88684 int capi_overwrite_ab = 1;
88685 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
88686 int compute_v = 0;
88687 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
88688 int lower = 0;
88689 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
88690 int n = 0;
88691 int ldab = 0;
88692 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
88693 int kd = 0;
88694 float *w = NULL((void*)0);
88695 npy_intp w_Dims[1] = {-1};
88696 const int w_Rank = 1;
88697 PyArrayObject *capi_w_tmp = NULL((void*)0);
88698 int capi_w_intent = 0;
88699 float *z = NULL((void*)0);
88700 npy_intp z_Dims[2] = {-1, -1};
88701 const int z_Rank = 2;
88702 PyArrayObject *capi_z_tmp = NULL((void*)0);
88703 int capi_z_intent = 0;
88704 int ldz = 0;
88705 float *work = NULL((void*)0);
88706 npy_intp work_Dims[1] = {-1};
88707 const int work_Rank = 1;
88708 PyArrayObject *capi_work_tmp = NULL((void*)0);
88709 int capi_work_intent = 0;
88710 int info = 0;
88711 static char *capi_kwlist[] = {"ab","compute_v","lower","ldab","overwrite_ab",NULL((void*)0)};
88712
88713/*routdebugenter*/
88714#ifdef F2PY_REPORT_ATEXIT
88715f2py_start_clock();
88716#endif
88717 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
88718 "O|OOOi:_flapack.ssbev",\
88719 capi_kwlist,&ab_capi,&compute_v_capi,&lower_capi,&ldab_capi,&capi_overwrite_ab))
88720 return NULL((void*)0);
88721/*frompyobj*/
88722 /* Processing variable ab */
88723 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
88724 ;
88725 capi_ab_intent |= F2PY_INTENT_IN1;
88726 capi_ab_tmp = array_from_pyobj(NPY_FLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
88727 if (capi_ab_tmp == NULL((void*)0)) {
88728 if (!PyErr_Occurred())
88729 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.ssbev to C/Fortran array" );
88730 } else {
88731 ab = (float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
88732
88733 /* Processing variable compute_v */
88734 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
88735 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.ssbev() 1st keyword (compute_v) can't be converted to int");
88736 if (f2py_success) {
88737 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","ssbev:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssbev:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
88738 /* Processing variable lower */
88739 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
88740 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssbev() 2nd keyword (lower) can't be converted to int");
88741 if (f2py_success) {
88742 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","ssbev:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssbev:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
88743 /* Processing variable info */
88744 /* Processing variable ldab */
88745 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
88746 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.ssbev() 3rd keyword (ldab) can't be converted to int");
88747 if (f2py_success) {
88748 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","ssbev:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssbev:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
88749 /* Processing variable n */
88750 n = shape(ab,1)ab_Dims[1];
88751 /* Processing variable kd */
88752 kd = shape(ab,0)ab_Dims[0]-1;
88753 /* Processing variable w */
88754 w_Dims[0]=n;
88755 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
88756 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
88757 if (capi_w_tmp == NULL((void*)0)) {
88758 if (!PyErr_Occurred())
88759 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.ssbev to C/Fortran array" );
88760 } else {
88761 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
88762
88763 /* Processing variable ldz */
88764 ldz = (compute_v?n:1);
88765 /* Processing variable z */
88766 z_Dims[0]=ldz,z_Dims[1]=ldz;
88767 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
88768 capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
88769 if (capi_z_tmp == NULL((void*)0)) {
88770 if (!PyErr_Occurred())
88771 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.ssbev to C/Fortran array" );
88772 } else {
88773 z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
88774
88775 /* Processing variable work */
88776 work_Dims[0]=MAX(1,3*n-1)((1 > 3*n-1) ? (1) : (3*n-1));
88777 capi_work_intent |= F2PY_INTENT_HIDE8;
88778 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
88779 if (capi_work_tmp == NULL((void*)0)) {
88780 if (!PyErr_Occurred())
88781 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssbev to C/Fortran array" );
88782 } else {
88783 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
88784
88785/*end of frompyobj*/
88786#ifdef F2PY_REPORT_ATEXIT
88787f2py_start_call_clock();
88788#endif
88789/*callfortranroutine*/
88790 (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,&kd,ab,&ldab,w,z,&ldz,work,&info) ;
88791 /*(*f2py_func)(ab,&compute_v,&lower,&n,&ldab,&kd,w,z,&ldz,work,&info);*/
88792if (PyErr_Occurred())
88793 f2py_success = 0;
88794#ifdef F2PY_REPORT_ATEXIT
88795f2py_stop_call_clock();
88796#endif
88797/*end of callfortranroutine*/
88798 if (f2py_success) {
88799/*pyobjfrom*/
88800/*end of pyobjfrom*/
88801 CFUNCSMESS("Building return value.\n");
88802 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_z_tmp,info);
88803/*closepyobjfrom*/
88804/*end of closepyobjfrom*/
88805 } /*if (f2py_success) after callfortranroutine*/
88806/*cleanupfrompyobj*/
88807 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
88808 } /*if (capi_work_tmp == NULL) ... else of work*/
88809 /* End of cleaning variable work */
88810 } /*if (capi_z_tmp == NULL) ... else of z*/
88811 /* End of cleaning variable z */
88812 /* End of cleaning variable ldz */
88813 } /*if (capi_w_tmp == NULL) ... else of w*/
88814 /* End of cleaning variable w */
88815 /* End of cleaning variable kd */
88816 /* End of cleaning variable n */
88817 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
88818 } /*if (f2py_success) of ldab*/
88819 /* End of cleaning variable ldab */
88820 /* End of cleaning variable info */
88821 } /*CHECKSCALAR(lower==0||lower==1)*/
88822 } /*if (f2py_success) of lower*/
88823 /* End of cleaning variable lower */
88824 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
88825 } /*if (f2py_success) of compute_v*/
88826 /* End of cleaning variable compute_v */
88827 if((PyObject *)capi_ab_tmp!=ab_capi) {
88828 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
88829 } /*if (capi_ab_tmp == NULL) ... else of ab*/
88830 /* End of cleaning variable ab */
88831/*end of cleanupfrompyobj*/
88832 if (capi_buildvalue == NULL((void*)0)) {
88833/*routdebugfailure*/
88834 } else {
88835/*routdebugleave*/
88836 }
88837 CFUNCSMESS("Freeing memory.\n");
88838/*freemem*/
88839#ifdef F2PY_REPORT_ATEXIT
88840f2py_stop_clock();
88841#endif
88842 return capi_buildvalue;
88843}
88844/******************************** end of ssbev ********************************/
88845
88846/*********************************** dsbev ***********************************/
88847static char doc_f2py_rout__flapack_dsbev[] = "\
88848w,z,info = dsbev(ab,[compute_v,lower,ldab,overwrite_ab])\n\nWrapper for ``dsbev``.\
88849\n\nParameters\n----------\n"
88850"ab : input rank-2 array('d') with bounds (ldab,n)\n"
88851"\nOther Parameters\n----------------\n"
88852"overwrite_ab : input int, optional\n Default: 1\n"
88853"compute_v : input int, optional\n Default: 1\n"
88854"lower : input int, optional\n Default: 0\n"
88855"ldab : input int, optional\n Default: shape(ab,0)\n"
88856"\nReturns\n-------\n"
88857"w : rank-1 array('d') with bounds (n)\n"
88858"z : rank-2 array('d') with bounds (ldz,ldz)\n"
88859"info : int";
88860/* extern void F_FUNC(dsbev,DSBEV)(char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT* ); */
88861static PyObject *f2py_rout__flapack_dsbev(const PyObject *capi_self,
88862 PyObject *capi_args,
88863 PyObject *capi_keywds,
88864 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint* )) {
88865 PyObject * volatile capi_buildvalue = NULL((void*)0);
88866 volatile int f2py_success = 1;
88867/*decl*/
88868
88869 double *ab = NULL((void*)0);
88870 npy_intp ab_Dims[2] = {-1, -1};
88871 const int ab_Rank = 2;
88872 PyArrayObject *capi_ab_tmp = NULL((void*)0);
88873 int capi_ab_intent = 0;
88874 int capi_overwrite_ab = 1;
88875 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
88876 int compute_v = 0;
88877 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
88878 int lower = 0;
88879 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
88880 int n = 0;
88881 int ldab = 0;
88882 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
88883 int kd = 0;
88884 double *w = NULL((void*)0);
88885 npy_intp w_Dims[1] = {-1};
88886 const int w_Rank = 1;
88887 PyArrayObject *capi_w_tmp = NULL((void*)0);
88888 int capi_w_intent = 0;
88889 double *z = NULL((void*)0);
88890 npy_intp z_Dims[2] = {-1, -1};
88891 const int z_Rank = 2;
88892 PyArrayObject *capi_z_tmp = NULL((void*)0);
88893 int capi_z_intent = 0;
88894 int ldz = 0;
88895 double *work = NULL((void*)0);
88896 npy_intp work_Dims[1] = {-1};
88897 const int work_Rank = 1;
88898 PyArrayObject *capi_work_tmp = NULL((void*)0);
88899 int capi_work_intent = 0;
88900 int info = 0;
88901 static char *capi_kwlist[] = {"ab","compute_v","lower","ldab","overwrite_ab",NULL((void*)0)};
88902
88903/*routdebugenter*/
88904#ifdef F2PY_REPORT_ATEXIT
88905f2py_start_clock();
88906#endif
88907 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
88908 "O|OOOi:_flapack.dsbev",\
88909 capi_kwlist,&ab_capi,&compute_v_capi,&lower_capi,&ldab_capi,&capi_overwrite_ab))
88910 return NULL((void*)0);
88911/*frompyobj*/
88912 /* Processing variable ab */
88913 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
88914 ;
88915 capi_ab_intent |= F2PY_INTENT_IN1;
88916 capi_ab_tmp = array_from_pyobj(NPY_DOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
88917 if (capi_ab_tmp == NULL((void*)0)) {
88918 if (!PyErr_Occurred())
88919 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.dsbev to C/Fortran array" );
88920 } else {
88921 ab = (double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
88922
88923 /* Processing variable compute_v */
88924 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
88925 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dsbev() 1st keyword (compute_v) can't be converted to int");
88926 if (f2py_success) {
88927 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","dsbev:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsbev:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
88928 /* Processing variable lower */
88929 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
88930 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsbev() 2nd keyword (lower) can't be converted to int");
88931 if (f2py_success) {
88932 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","dsbev:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsbev:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
88933 /* Processing variable info */
88934 /* Processing variable ldab */
88935 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
88936 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.dsbev() 3rd keyword (ldab) can't be converted to int");
88937 if (f2py_success) {
88938 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","dsbev:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsbev:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
88939 /* Processing variable n */
88940 n = shape(ab,1)ab_Dims[1];
88941 /* Processing variable kd */
88942 kd = shape(ab,0)ab_Dims[0]-1;
88943 /* Processing variable w */
88944 w_Dims[0]=n;
88945 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
88946 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
88947 if (capi_w_tmp == NULL((void*)0)) {
88948 if (!PyErr_Occurred())
88949 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dsbev to C/Fortran array" );
88950 } else {
88951 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
88952
88953 /* Processing variable ldz */
88954 ldz = (compute_v?n:1);
88955 /* Processing variable z */
88956 z_Dims[0]=ldz,z_Dims[1]=ldz;
88957 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
88958 capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
88959 if (capi_z_tmp == NULL((void*)0)) {
88960 if (!PyErr_Occurred())
88961 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.dsbev to C/Fortran array" );
88962 } else {
88963 z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
88964
88965 /* Processing variable work */
88966 work_Dims[0]=MAX(1,3*n-1)((1 > 3*n-1) ? (1) : (3*n-1));
88967 capi_work_intent |= F2PY_INTENT_HIDE8;
88968 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
88969 if (capi_work_tmp == NULL((void*)0)) {
88970 if (!PyErr_Occurred())
88971 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsbev to C/Fortran array" );
88972 } else {
88973 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
88974
88975/*end of frompyobj*/
88976#ifdef F2PY_REPORT_ATEXIT
88977f2py_start_call_clock();
88978#endif
88979/*callfortranroutine*/
88980 (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,&kd,ab,&ldab,w,z,&ldz,work,&info) ;
88981 /*(*f2py_func)(ab,&compute_v,&lower,&n,&ldab,&kd,w,z,&ldz,work,&info);*/
88982if (PyErr_Occurred())
88983 f2py_success = 0;
88984#ifdef F2PY_REPORT_ATEXIT
88985f2py_stop_call_clock();
88986#endif
88987/*end of callfortranroutine*/
88988 if (f2py_success) {
88989/*pyobjfrom*/
88990/*end of pyobjfrom*/
88991 CFUNCSMESS("Building return value.\n");
88992 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_z_tmp,info);
88993/*closepyobjfrom*/
88994/*end of closepyobjfrom*/
88995 } /*if (f2py_success) after callfortranroutine*/
88996/*cleanupfrompyobj*/
88997 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
88998 } /*if (capi_work_tmp == NULL) ... else of work*/
88999 /* End of cleaning variable work */
89000 } /*if (capi_z_tmp == NULL) ... else of z*/
89001 /* End of cleaning variable z */
89002 /* End of cleaning variable ldz */
89003 } /*if (capi_w_tmp == NULL) ... else of w*/
89004 /* End of cleaning variable w */
89005 /* End of cleaning variable kd */
89006 /* End of cleaning variable n */
89007 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
89008 } /*if (f2py_success) of ldab*/
89009 /* End of cleaning variable ldab */
89010 /* End of cleaning variable info */
89011 } /*CHECKSCALAR(lower==0||lower==1)*/
89012 } /*if (f2py_success) of lower*/
89013 /* End of cleaning variable lower */
89014 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
89015 } /*if (f2py_success) of compute_v*/
89016 /* End of cleaning variable compute_v */
89017 if((PyObject *)capi_ab_tmp!=ab_capi) {
89018 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
89019 } /*if (capi_ab_tmp == NULL) ... else of ab*/
89020 /* End of cleaning variable ab */
89021/*end of cleanupfrompyobj*/
89022 if (capi_buildvalue == NULL((void*)0)) {
89023/*routdebugfailure*/
89024 } else {
89025/*routdebugleave*/
89026 }
89027 CFUNCSMESS("Freeing memory.\n");
89028/*freemem*/
89029#ifdef F2PY_REPORT_ATEXIT
89030f2py_stop_clock();
89031#endif
89032 return capi_buildvalue;
89033}
89034/******************************** end of dsbev ********************************/
89035
89036/*********************************** ssbevd ***********************************/
89037static char doc_f2py_rout__flapack_ssbevd[] = "\
89038w,z,info = ssbevd(ab,[compute_v,lower,ldab,liwork,overwrite_ab])\n\nWrapper for ``ssbevd``.\
89039\n\nParameters\n----------\n"
89040"ab : input rank-2 array('f') with bounds (ldab,n)\n"
89041"\nOther Parameters\n----------------\n"
89042"overwrite_ab : input int, optional\n Default: 1\n"
89043"compute_v : input int, optional\n Default: 1\n"
89044"lower : input int, optional\n Default: 0\n"
89045"ldab : input int, optional\n Default: shape(ab,0)\n"
89046"liwork : input int, optional\n Default: (compute_v?3+5*n:1)\n"
89047"\nReturns\n-------\n"
89048"w : rank-1 array('f') with bounds (n)\n"
89049"z : rank-2 array('f') with bounds (ldz,ldz)\n"
89050"info : int";
89051/* extern void F_FUNC(ssbevd,SSBEVD)(char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
89052static PyObject *f2py_rout__flapack_ssbevd(const PyObject *capi_self,
89053 PyObject *capi_args,
89054 PyObject *capi_keywds,
89055 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
89056 PyObject * volatile capi_buildvalue = NULL((void*)0);
89057 volatile int f2py_success = 1;
89058/*decl*/
89059
89060 float *ab = NULL((void*)0);
89061 npy_intp ab_Dims[2] = {-1, -1};
89062 const int ab_Rank = 2;
89063 PyArrayObject *capi_ab_tmp = NULL((void*)0);
89064 int capi_ab_intent = 0;
89065 int capi_overwrite_ab = 1;
89066 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
89067 int compute_v = 0;
89068 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
89069 int lower = 0;
89070 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
89071 int n = 0;
89072 int ldab = 0;
89073 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
89074 int kd = 0;
89075 float *w = NULL((void*)0);
89076 npy_intp w_Dims[1] = {-1};
89077 const int w_Rank = 1;
89078 PyArrayObject *capi_w_tmp = NULL((void*)0);
89079 int capi_w_intent = 0;
89080 float *z = NULL((void*)0);
89081 npy_intp z_Dims[2] = {-1, -1};
89082 const int z_Rank = 2;
89083 PyArrayObject *capi_z_tmp = NULL((void*)0);
89084 int capi_z_intent = 0;
89085 int ldz = 0;
89086 float *work = NULL((void*)0);
89087 npy_intp work_Dims[1] = {-1};
89088 const int work_Rank = 1;
89089 PyArrayObject *capi_work_tmp = NULL((void*)0);
89090 int capi_work_intent = 0;
89091 int lwork = 0;
89092 int *iwork = NULL((void*)0);
89093 npy_intp iwork_Dims[1] = {-1};
89094 const int iwork_Rank = 1;
89095 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
89096 int capi_iwork_intent = 0;
89097 int liwork = 0;
89098 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
89099 int info = 0;
89100 static char *capi_kwlist[] = {"ab","compute_v","lower","ldab","liwork","overwrite_ab",NULL((void*)0)};
89101
89102/*routdebugenter*/
89103#ifdef F2PY_REPORT_ATEXIT
89104f2py_start_clock();
89105#endif
89106 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
89107 "O|OOOOi:_flapack.ssbevd",\
89108 capi_kwlist,&ab_capi,&compute_v_capi,&lower_capi,&ldab_capi,&liwork_capi,&capi_overwrite_ab))
89109 return NULL((void*)0);
89110/*frompyobj*/
89111 /* Processing variable ab */
89112 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
89113 ;
89114 capi_ab_intent |= F2PY_INTENT_IN1;
89115 capi_ab_tmp = array_from_pyobj(NPY_FLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
89116 if (capi_ab_tmp == NULL((void*)0)) {
89117 if (!PyErr_Occurred())
89118 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.ssbevd to C/Fortran array" );
89119 } else {
89120 ab = (float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
89121
89122 /* Processing variable compute_v */
89123 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
89124 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.ssbevd() 1st keyword (compute_v) can't be converted to int");
89125 if (f2py_success) {
89126 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","ssbevd:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssbevd:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
89127 /* Processing variable lower */
89128 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
89129 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssbevd() 2nd keyword (lower) can't be converted to int");
89130 if (f2py_success) {
89131 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","ssbevd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssbevd:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
89132 /* Processing variable info */
89133 /* Processing variable ldab */
89134 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
89135 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.ssbevd() 3rd keyword (ldab) can't be converted to int");
89136 if (f2py_success) {
89137 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","ssbevd:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssbevd:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
89138 /* Processing variable n */
89139 n = shape(ab,1)ab_Dims[1];
89140 /* Processing variable kd */
89141 kd = shape(ab,0)ab_Dims[0]-1;
89142 /* Processing variable w */
89143 w_Dims[0]=n;
89144 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
89145 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
89146 if (capi_w_tmp == NULL((void*)0)) {
89147 if (!PyErr_Occurred())
89148 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.ssbevd to C/Fortran array" );
89149 } else {
89150 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
89151
89152 /* Processing variable ldz */
89153 ldz = (compute_v?n:1);
89154 /* Processing variable lwork */
89155 lwork = max((compute_v?1+5*n+2*n*n:2*n),1)(((compute_v?1+5*n+2*n*n:2*n) > 1) ? ((compute_v?1+5*n+2*n
*n:2*n)) : (1))
;
89156 /* Processing variable work */
89157 work_Dims[0]=lwork;
89158 capi_work_intent |= F2PY_INTENT_HIDE8;
89159 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
89160 if (capi_work_tmp == NULL((void*)0)) {
89161 if (!PyErr_Occurred())
89162 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssbevd to C/Fortran array" );
89163 } else {
89164 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
89165
89166 /* Processing variable liwork */
89167 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (compute_v?3+5*n:1); else
89168 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.ssbevd() 4th keyword (liwork) can't be converted to int");
89169 if (f2py_success) {
89170 CHECKSCALAR(liwork>=(compute_v?3+5*n:1),"liwork>=(compute_v?3+5*n:1)","4th keyword liwork","ssbevd:liwork=%d",liwork)if (!(liwork>=(compute_v?3+5*n:1))) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ssbevd:liwork=%d", "(""liwork>=(compute_v?3+5*n:1)"
") failed for ""4th keyword liwork", liwork); PyErr_SetString
(_flapack_error,errstring); } else
{
89171 /* Processing variable iwork */
89172 iwork_Dims[0]=liwork;
89173 capi_iwork_intent |= F2PY_INTENT_HIDE8;
89174 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
89175 if (capi_iwork_tmp == NULL((void*)0)) {
89176 if (!PyErr_Occurred())
89177 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.ssbevd to C/Fortran array" );
89178 } else {
89179 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
89180
89181 /* Processing variable z */
89182 z_Dims[0]=ldz,z_Dims[1]=ldz;
89183 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
89184 capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
89185 if (capi_z_tmp == NULL((void*)0)) {
89186 if (!PyErr_Occurred())
89187 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.ssbevd to C/Fortran array" );
89188 } else {
89189 z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
89190
89191/*end of frompyobj*/
89192#ifdef F2PY_REPORT_ATEXIT
89193f2py_start_call_clock();
89194#endif
89195/*callfortranroutine*/
89196 (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,&kd,ab,&ldab,w,z,&ldz,work,&lwork,iwork,&liwork,&info) ;
89197 /*(*f2py_func)(ab,&compute_v,&lower,&n,&ldab,&kd,w,z,&ldz,work,&lwork,iwork,&liwork,&info);*/
89198if (PyErr_Occurred())
89199 f2py_success = 0;
89200#ifdef F2PY_REPORT_ATEXIT
89201f2py_stop_call_clock();
89202#endif
89203/*end of callfortranroutine*/
89204 if (f2py_success) {
89205/*pyobjfrom*/
89206/*end of pyobjfrom*/
89207 CFUNCSMESS("Building return value.\n");
89208 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_z_tmp,info);
89209/*closepyobjfrom*/
89210/*end of closepyobjfrom*/
89211 } /*if (f2py_success) after callfortranroutine*/
89212/*cleanupfrompyobj*/
89213 } /*if (capi_z_tmp == NULL) ... else of z*/
89214 /* End of cleaning variable z */
89215 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
89216 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
89217 /* End of cleaning variable iwork */
89218 } /*CHECKSCALAR(liwork>=(compute_v?3+5*n:1))*/
89219 } /*if (f2py_success) of liwork*/
89220 /* End of cleaning variable liwork */
89221 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
89222 } /*if (capi_work_tmp == NULL) ... else of work*/
89223 /* End of cleaning variable work */
89224 /* End of cleaning variable lwork */
89225 /* End of cleaning variable ldz */
89226 } /*if (capi_w_tmp == NULL) ... else of w*/
89227 /* End of cleaning variable w */
89228 /* End of cleaning variable kd */
89229 /* End of cleaning variable n */
89230 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
89231 } /*if (f2py_success) of ldab*/
89232 /* End of cleaning variable ldab */
89233 /* End of cleaning variable info */
89234 } /*CHECKSCALAR(lower==0||lower==1)*/
89235 } /*if (f2py_success) of lower*/
89236 /* End of cleaning variable lower */
89237 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
89238 } /*if (f2py_success) of compute_v*/
89239 /* End of cleaning variable compute_v */
89240 if((PyObject *)capi_ab_tmp!=ab_capi) {
89241 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
89242 } /*if (capi_ab_tmp == NULL) ... else of ab*/
89243 /* End of cleaning variable ab */
89244/*end of cleanupfrompyobj*/
89245 if (capi_buildvalue == NULL((void*)0)) {
89246/*routdebugfailure*/
89247 } else {
89248/*routdebugleave*/
89249 }
89250 CFUNCSMESS("Freeing memory.\n");
89251/*freemem*/
89252#ifdef F2PY_REPORT_ATEXIT
89253f2py_stop_clock();
89254#endif
89255 return capi_buildvalue;
89256}
89257/******************************* end of ssbevd *******************************/
89258
89259/*********************************** dsbevd ***********************************/
89260static char doc_f2py_rout__flapack_dsbevd[] = "\
89261w,z,info = dsbevd(ab,[compute_v,lower,ldab,liwork,overwrite_ab])\n\nWrapper for ``dsbevd``.\
89262\n\nParameters\n----------\n"
89263"ab : input rank-2 array('d') with bounds (ldab,n)\n"
89264"\nOther Parameters\n----------------\n"
89265"overwrite_ab : input int, optional\n Default: 1\n"
89266"compute_v : input int, optional\n Default: 1\n"
89267"lower : input int, optional\n Default: 0\n"
89268"ldab : input int, optional\n Default: shape(ab,0)\n"
89269"liwork : input int, optional\n Default: (compute_v?3+5*n:1)\n"
89270"\nReturns\n-------\n"
89271"w : rank-1 array('d') with bounds (n)\n"
89272"z : rank-2 array('d') with bounds (ldz,ldz)\n"
89273"info : int";
89274/* extern void F_FUNC(dsbevd,DSBEVD)(char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
89275static PyObject *f2py_rout__flapack_dsbevd(const PyObject *capi_self,
89276 PyObject *capi_args,
89277 PyObject *capi_keywds,
89278 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
89279 PyObject * volatile capi_buildvalue = NULL((void*)0);
89280 volatile int f2py_success = 1;
89281/*decl*/
89282
89283 double *ab = NULL((void*)0);
89284 npy_intp ab_Dims[2] = {-1, -1};
89285 const int ab_Rank = 2;
89286 PyArrayObject *capi_ab_tmp = NULL((void*)0);
89287 int capi_ab_intent = 0;
89288 int capi_overwrite_ab = 1;
89289 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
89290 int compute_v = 0;
89291 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
89292 int lower = 0;
89293 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
89294 int n = 0;
89295 int ldab = 0;
89296 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
89297 int kd = 0;
89298 double *w = NULL((void*)0);
89299 npy_intp w_Dims[1] = {-1};
89300 const int w_Rank = 1;
89301 PyArrayObject *capi_w_tmp = NULL((void*)0);
89302 int capi_w_intent = 0;
89303 double *z = NULL((void*)0);
89304 npy_intp z_Dims[2] = {-1, -1};
89305 const int z_Rank = 2;
89306 PyArrayObject *capi_z_tmp = NULL((void*)0);
89307 int capi_z_intent = 0;
89308 int ldz = 0;
89309 double *work = NULL((void*)0);
89310 npy_intp work_Dims[1] = {-1};
89311 const int work_Rank = 1;
89312 PyArrayObject *capi_work_tmp = NULL((void*)0);
89313 int capi_work_intent = 0;
89314 int lwork = 0;
89315 int *iwork = NULL((void*)0);
89316 npy_intp iwork_Dims[1] = {-1};
89317 const int iwork_Rank = 1;
89318 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
89319 int capi_iwork_intent = 0;
89320 int liwork = 0;
89321 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
89322 int info = 0;
89323 static char *capi_kwlist[] = {"ab","compute_v","lower","ldab","liwork","overwrite_ab",NULL((void*)0)};
89324
89325/*routdebugenter*/
89326#ifdef F2PY_REPORT_ATEXIT
89327f2py_start_clock();
89328#endif
89329 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
89330 "O|OOOOi:_flapack.dsbevd",\
89331 capi_kwlist,&ab_capi,&compute_v_capi,&lower_capi,&ldab_capi,&liwork_capi,&capi_overwrite_ab))
89332 return NULL((void*)0);
89333/*frompyobj*/
89334 /* Processing variable ab */
89335 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
89336 ;
89337 capi_ab_intent |= F2PY_INTENT_IN1;
89338 capi_ab_tmp = array_from_pyobj(NPY_DOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
89339 if (capi_ab_tmp == NULL((void*)0)) {
89340 if (!PyErr_Occurred())
89341 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.dsbevd to C/Fortran array" );
89342 } else {
89343 ab = (double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
89344
89345 /* Processing variable compute_v */
89346 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
89347 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dsbevd() 1st keyword (compute_v) can't be converted to int");
89348 if (f2py_success) {
89349 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","1st keyword compute_v","dsbevd:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsbevd:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""1st keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
89350 /* Processing variable lower */
89351 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
89352 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsbevd() 2nd keyword (lower) can't be converted to int");
89353 if (f2py_success) {
89354 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","2nd keyword lower","dsbevd:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsbevd:lower=%d", "(""lower==0||lower==1"") failed for "
"2nd keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
89355 /* Processing variable info */
89356 /* Processing variable ldab */
89357 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
89358 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.dsbevd() 3rd keyword (ldab) can't be converted to int");
89359 if (f2py_success) {
89360 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","3rd keyword ldab","dsbevd:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsbevd:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"3rd keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
89361 /* Processing variable n */
89362 n = shape(ab,1)ab_Dims[1];
89363 /* Processing variable kd */
89364 kd = shape(ab,0)ab_Dims[0]-1;
89365 /* Processing variable w */
89366 w_Dims[0]=n;
89367 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
89368 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
89369 if (capi_w_tmp == NULL((void*)0)) {
89370 if (!PyErr_Occurred())
89371 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dsbevd to C/Fortran array" );
89372 } else {
89373 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
89374
89375 /* Processing variable ldz */
89376 ldz = (compute_v?n:1);
89377 /* Processing variable lwork */
89378 lwork = max((compute_v?1+5*n+2*n*n:2*n),1)(((compute_v?1+5*n+2*n*n:2*n) > 1) ? ((compute_v?1+5*n+2*n
*n:2*n)) : (1))
;
89379 /* Processing variable work */
89380 work_Dims[0]=lwork;
89381 capi_work_intent |= F2PY_INTENT_HIDE8;
89382 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
89383 if (capi_work_tmp == NULL((void*)0)) {
89384 if (!PyErr_Occurred())
89385 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsbevd to C/Fortran array" );
89386 } else {
89387 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
89388
89389 /* Processing variable liwork */
89390 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (compute_v?3+5*n:1); else
89391 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.dsbevd() 4th keyword (liwork) can't be converted to int");
89392 if (f2py_success) {
89393 CHECKSCALAR(liwork>=(compute_v?3+5*n:1),"liwork>=(compute_v?3+5*n:1)","4th keyword liwork","dsbevd:liwork=%d",liwork)if (!(liwork>=(compute_v?3+5*n:1))) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dsbevd:liwork=%d", "(""liwork>=(compute_v?3+5*n:1)"
") failed for ""4th keyword liwork", liwork); PyErr_SetString
(_flapack_error,errstring); } else
{
89394 /* Processing variable iwork */
89395 iwork_Dims[0]=liwork;
89396 capi_iwork_intent |= F2PY_INTENT_HIDE8;
89397 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
89398 if (capi_iwork_tmp == NULL((void*)0)) {
89399 if (!PyErr_Occurred())
89400 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dsbevd to C/Fortran array" );
89401 } else {
89402 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
89403
89404 /* Processing variable z */
89405 z_Dims[0]=ldz,z_Dims[1]=ldz;
89406 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
89407 capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
89408 if (capi_z_tmp == NULL((void*)0)) {
89409 if (!PyErr_Occurred())
89410 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.dsbevd to C/Fortran array" );
89411 } else {
89412 z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
89413
89414/*end of frompyobj*/
89415#ifdef F2PY_REPORT_ATEXIT
89416f2py_start_call_clock();
89417#endif
89418/*callfortranroutine*/
89419 (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,&kd,ab,&ldab,w,z,&ldz,work,&lwork,iwork,&liwork,&info) ;
89420 /*(*f2py_func)(ab,&compute_v,&lower,&n,&ldab,&kd,w,z,&ldz,work,&lwork,iwork,&liwork,&info);*/
89421if (PyErr_Occurred())
89422 f2py_success = 0;
89423#ifdef F2PY_REPORT_ATEXIT
89424f2py_stop_call_clock();
89425#endif
89426/*end of callfortranroutine*/
89427 if (f2py_success) {
89428/*pyobjfrom*/
89429/*end of pyobjfrom*/
89430 CFUNCSMESS("Building return value.\n");
89431 capi_buildvalue = Py_BuildValue("NNi",capi_w_tmp,capi_z_tmp,info);
89432/*closepyobjfrom*/
89433/*end of closepyobjfrom*/
89434 } /*if (f2py_success) after callfortranroutine*/
89435/*cleanupfrompyobj*/
89436 } /*if (capi_z_tmp == NULL) ... else of z*/
89437 /* End of cleaning variable z */
89438 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
89439 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
89440 /* End of cleaning variable iwork */
89441 } /*CHECKSCALAR(liwork>=(compute_v?3+5*n:1))*/
89442 } /*if (f2py_success) of liwork*/
89443 /* End of cleaning variable liwork */
89444 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
89445 } /*if (capi_work_tmp == NULL) ... else of work*/
89446 /* End of cleaning variable work */
89447 /* End of cleaning variable lwork */
89448 /* End of cleaning variable ldz */
89449 } /*if (capi_w_tmp == NULL) ... else of w*/
89450 /* End of cleaning variable w */
89451 /* End of cleaning variable kd */
89452 /* End of cleaning variable n */
89453 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
89454 } /*if (f2py_success) of ldab*/
89455 /* End of cleaning variable ldab */
89456 /* End of cleaning variable info */
89457 } /*CHECKSCALAR(lower==0||lower==1)*/
89458 } /*if (f2py_success) of lower*/
89459 /* End of cleaning variable lower */
89460 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
89461 } /*if (f2py_success) of compute_v*/
89462 /* End of cleaning variable compute_v */
89463 if((PyObject *)capi_ab_tmp!=ab_capi) {
89464 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
89465 } /*if (capi_ab_tmp == NULL) ... else of ab*/
89466 /* End of cleaning variable ab */
89467/*end of cleanupfrompyobj*/
89468 if (capi_buildvalue == NULL((void*)0)) {
89469/*routdebugfailure*/
89470 } else {
89471/*routdebugleave*/
89472 }
89473 CFUNCSMESS("Freeing memory.\n");
89474/*freemem*/
89475#ifdef F2PY_REPORT_ATEXIT
89476f2py_stop_clock();
89477#endif
89478 return capi_buildvalue;
89479}
89480/******************************* end of dsbevd *******************************/
89481
89482/*********************************** ssbevx ***********************************/
89483static char doc_f2py_rout__flapack_ssbevx[] = "\
89484w,z,m,ifail,info = ssbevx(ab,vl,vu,il,iu,[ldab,compute_v,range,lower,abstol,mmax,overwrite_ab])\n\nWrapper for ``ssbevx``.\
89485\n\nParameters\n----------\n"
89486"ab : input rank-2 array('f') with bounds (ldab,n)\n"
89487"vl : input float\n"
89488"vu : input float\n"
89489"il : input int\n"
89490"iu : input int\n"
89491"\nOther Parameters\n----------------\n"
89492"overwrite_ab : input int, optional\n Default: 1\n"
89493"ldab : input int, optional\n Default: shape(ab,0)\n"
89494"compute_v : input int, optional\n Default: 1\n"
89495"range : input int, optional\n Default: 0\n"
89496"lower : input int, optional\n Default: 0\n"
89497"abstol : input float, optional\n Default: 0.0\n"
89498"mmax : input int, optional\n Default: (compute_v?(range==2?(iu-il+1):n):1)\n"
89499"\nReturns\n-------\n"
89500"w : rank-1 array('f') with bounds (n)\n"
89501"z : rank-2 array('f') with bounds (ldz,mmax)\n"
89502"m : int\n"
89503"ifail : rank-1 array('i') with bounds ((compute_v?n:1))\n"
89504"info : int";
89505/* extern void F_FUNC(ssbevx,SSBEVX)(char*,char*,char*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,float*, F_INT*,F_INT*,F_INT* ); */
89506static PyObject *f2py_rout__flapack_ssbevx(const PyObject *capi_self,
89507 PyObject *capi_args,
89508 PyObject *capi_keywds,
89509 void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,float*, F_INTint*,F_INTint*,F_INTint* )) {
89510 PyObject * volatile capi_buildvalue = NULL((void*)0);
89511 volatile int f2py_success = 1;
89512/*decl*/
89513
89514 float *ab = NULL((void*)0);
89515 npy_intp ab_Dims[2] = {-1, -1};
89516 const int ab_Rank = 2;
89517 PyArrayObject *capi_ab_tmp = NULL((void*)0);
89518 int capi_ab_intent = 0;
89519 int capi_overwrite_ab = 1;
89520 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
89521 int ldab = 0;
89522 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
89523 int compute_v = 0;
89524 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
89525 int range = 0;
89526 PyObject *range_capi = Py_None(&_Py_NoneStruct);
89527 int lower = 0;
89528 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
89529 int n = 0;
89530 int kd = 0;
89531 float *q = NULL((void*)0);
89532 npy_intp q_Dims[2] = {-1, -1};
89533 const int q_Rank = 2;
89534 PyArrayObject *capi_q_tmp = NULL((void*)0);
89535 int capi_q_intent = 0;
89536 int ldq = 0;
89537 float vl = 0;
89538 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
89539 float vu = 0;
89540 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
89541 int il = 0;
89542 PyObject *il_capi = Py_None(&_Py_NoneStruct);
89543 int iu = 0;
89544 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
89545 float abstol = 0;
89546 PyObject *abstol_capi = Py_None(&_Py_NoneStruct);
89547 float *w = NULL((void*)0);
89548 npy_intp w_Dims[1] = {-1};
89549 const int w_Rank = 1;
89550 PyArrayObject *capi_w_tmp = NULL((void*)0);
89551 int capi_w_intent = 0;
89552 float *z = NULL((void*)0);
89553 npy_intp z_Dims[2] = {-1, -1};
89554 const int z_Rank = 2;
89555 PyArrayObject *capi_z_tmp = NULL((void*)0);
89556 int capi_z_intent = 0;
89557 int m = 0;
89558 int mmax = 0;
89559 PyObject *mmax_capi = Py_None(&_Py_NoneStruct);
89560 int ldz = 0;
89561 float *work = NULL((void*)0);
89562 npy_intp work_Dims[1] = {-1};
89563 const int work_Rank = 1;
89564 PyArrayObject *capi_work_tmp = NULL((void*)0);
89565 int capi_work_intent = 0;
89566 int *iwork = NULL((void*)0);
89567 npy_intp iwork_Dims[1] = {-1};
89568 const int iwork_Rank = 1;
89569 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
89570 int capi_iwork_intent = 0;
89571 int *ifail = NULL((void*)0);
89572 npy_intp ifail_Dims[1] = {-1};
89573 const int ifail_Rank = 1;
89574 PyArrayObject *capi_ifail_tmp = NULL((void*)0);
89575 int capi_ifail_intent = 0;
89576 int info = 0;
89577 static char *capi_kwlist[] = {"ab","vl","vu","il","iu","ldab","compute_v","range","lower","abstol","mmax","overwrite_ab",NULL((void*)0)};
89578
89579/*routdebugenter*/
89580#ifdef F2PY_REPORT_ATEXIT
89581f2py_start_clock();
89582#endif
89583 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
89584 "OOOOO|OOOOOOi:_flapack.ssbevx",\
89585 capi_kwlist,&ab_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&ldab_capi,&compute_v_capi,&range_capi,&lower_capi,&abstol_capi,&mmax_capi,&capi_overwrite_ab))
89586 return NULL((void*)0);
89587/*frompyobj*/
89588 /* Processing variable compute_v */
89589 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
89590 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.ssbevx() 2nd keyword (compute_v) can't be converted to int");
89591 if (f2py_success) {
89592 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","2nd keyword compute_v","ssbevx:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssbevx:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""2nd keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
89593 /* Processing variable lower */
89594 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
89595 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.ssbevx() 4th keyword (lower) can't be converted to int");
89596 if (f2py_success) {
89597 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","4th keyword lower","ssbevx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssbevx:lower=%d", "(""lower==0||lower==1"") failed for "
"4th keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
89598 /* Processing variable range */
89599 if (range_capi == Py_None(&_Py_NoneStruct)) range = 0; else
89600 f2py_success = int_from_pyobj(&range,range_capi,"_flapack.ssbevx() 3rd keyword (range) can't be converted to int");
89601 if (f2py_success) {
89602 CHECKSCALAR(range==2||range==1||range==0,"range==2||range==1||range==0","3rd keyword range","ssbevx:range=%d",range)if (!(range==2||range==1||range==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssbevx:range=%d", "(""range==2||range==1||range==0"
") failed for ""3rd keyword range", range); PyErr_SetString(_flapack_error
,errstring); } else
{
89603 /* Processing variable ab */
89604 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
89605 ;
89606 capi_ab_intent |= F2PY_INTENT_IN1;
89607 capi_ab_tmp = array_from_pyobj(NPY_FLOAT,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
89608 if (capi_ab_tmp == NULL((void*)0)) {
89609 if (!PyErr_Occurred())
89610 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.ssbevx to C/Fortran array" );
89611 } else {
89612 ab = (float *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
89613
89614 /* Processing variable vl */
89615 f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.ssbevx() 2nd argument (vl) can't be converted to float");
89616 if (f2py_success) {
89617 /* Processing variable vu */
89618 f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.ssbevx() 3rd argument (vu) can't be converted to float");
89619 if (f2py_success) {
89620 /* Processing variable abstol */
89621 if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else
89622 f2py_success = float_from_pyobj(&abstol,abstol_capi,"_flapack.ssbevx() 5th keyword (abstol) can't be converted to float");
89623 if (f2py_success) {
89624 /* Processing variable m */
89625 /* Processing variable info */
89626 /* Processing variable ldab */
89627 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
89628 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.ssbevx() 1st keyword (ldab) can't be converted to int");
89629 if (f2py_success) {
89630 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","1st keyword ldab","ssbevx:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssbevx:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"1st keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
89631 /* Processing variable n */
89632 n = shape(ab,1)ab_Dims[1];
89633 /* Processing variable kd */
89634 kd = shape(ab,0)ab_Dims[0]-1;
89635 /* Processing variable ldq */
89636 ldq = (compute_v?n:1);
89637 /* Processing variable q */
89638 q_Dims[0]=ldq,q_Dims[1]=ldq;
89639 capi_q_intent |= F2PY_INTENT_HIDE8;
89640 capi_q_tmp = array_from_pyobj(NPY_FLOAT,q_Dims,q_Rank,capi_q_intent,Py_None(&_Py_NoneStruct));
89641 if (capi_q_tmp == NULL((void*)0)) {
89642 if (!PyErr_Occurred())
89643 PyErr_SetString(_flapack_error,"failed in converting hidden `q' of _flapack.ssbevx to C/Fortran array" );
89644 } else {
89645 q = (float *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data));
89646
89647 /* Processing variable il */
89648 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.ssbevx() 4th argument (il) can't be converted to int");
89649 if (f2py_success) {
89650 CHECKSCALAR((il>=1 && il<=n),"(il>=1 && il<=n)","4th argument il","ssbevx:il=%d",il)if (!((il>=1 && il<=n))) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ssbevx:il=%d", "(""(il>=1 && il<=n)"
") failed for ""4th argument il", il); PyErr_SetString(_flapack_error
,errstring); } else
{
89651 /* Processing variable iu */
89652 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.ssbevx() 5th argument (iu) can't be converted to int");
89653 if (f2py_success) {
89654 CHECKSCALAR((iu>=1 && iu<=n && iu>=il),"(iu>=1 && iu<=n && iu>=il)","5th argument iu","ssbevx:iu=%d",iu)if (!((iu>=1 && iu<=n && iu>=il))) {
char errstring[256]; __builtin___sprintf_chk (errstring, 2 -
1, __builtin_object_size (errstring, 2 > 1), "%s: ""ssbevx:iu=%d"
, "(""(iu>=1 && iu<=n && iu>=il)"") failed for "
"5th argument iu", iu); PyErr_SetString(_flapack_error,errstring
); } else
{
89655 /* Processing variable w */
89656 w_Dims[0]=n;
89657 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
89658 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
89659 if (capi_w_tmp == NULL((void*)0)) {
89660 if (!PyErr_Occurred())
89661 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.ssbevx to C/Fortran array" );
89662 } else {
89663 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
89664
89665 /* Processing variable ldz */
89666 ldz = (compute_v?n:1);
89667 /* Processing variable mmax */
89668 if (mmax_capi == Py_None(&_Py_NoneStruct)) mmax = (compute_v?(range==2?(iu-il+1):n):1); else
89669 f2py_success = int_from_pyobj(&mmax,mmax_capi,"_flapack.ssbevx() 6th keyword (mmax) can't be converted to int");
89670 if (f2py_success) {
89671 /* Processing variable work */
89672 work_Dims[0]=7 * n;
89673 capi_work_intent |= F2PY_INTENT_HIDE8;
89674 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
89675 if (capi_work_tmp == NULL((void*)0)) {
89676 if (!PyErr_Occurred())
89677 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ssbevx to C/Fortran array" );
89678 } else {
89679 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
89680
89681 /* Processing variable iwork */
89682 iwork_Dims[0]=5 * n;
89683 capi_iwork_intent |= F2PY_INTENT_HIDE8;
89684 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
89685 if (capi_iwork_tmp == NULL((void*)0)) {
89686 if (!PyErr_Occurred())
89687 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.ssbevx to C/Fortran array" );
89688 } else {
89689 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
89690
89691 /* Processing variable ifail */
89692 ifail_Dims[0]=(compute_v?n:1);
89693 capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
89694 capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct));
89695 if (capi_ifail_tmp == NULL((void*)0)) {
89696 if (!PyErr_Occurred())
89697 PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.ssbevx to C/Fortran array" );
89698 } else {
89699 ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data));
89700
89701 /* Processing variable z */
89702 z_Dims[0]=ldz,z_Dims[1]=mmax;
89703 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
89704 capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
89705 if (capi_z_tmp == NULL((void*)0)) {
89706 if (!PyErr_Occurred())
89707 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.ssbevx to C/Fortran array" );
89708 } else {
89709 z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
89710
89711/*end of frompyobj*/
89712#ifdef F2PY_REPORT_ATEXIT
89713f2py_start_call_clock();
89714#endif
89715/*callfortranroutine*/
89716 (*f2py_func)((compute_v?"V":"N"),(range>0?(range==1?"V":"I"):"A"),(lower?"L":"U"),&n,&kd,ab,&ldab,q,&ldq,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,iwork,ifail,&info) ;
89717 /*(*f2py_func)(ab,&ldab,&compute_v,&range,&lower,&n,&kd,q,&ldq,&vl,&vu,&il,&iu,&abstol,w,z,&m,&mmax,&ldz,work,iwork,ifail,&info);*/
89718if (PyErr_Occurred())
89719 f2py_success = 0;
89720#ifdef F2PY_REPORT_ATEXIT
89721f2py_stop_call_clock();
89722#endif
89723/*end of callfortranroutine*/
89724 if (f2py_success) {
89725/*pyobjfrom*/
89726/*end of pyobjfrom*/
89727 CFUNCSMESS("Building return value.\n");
89728 capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info);
89729/*closepyobjfrom*/
89730/*end of closepyobjfrom*/
89731 } /*if (f2py_success) after callfortranroutine*/
89732/*cleanupfrompyobj*/
89733 } /*if (capi_z_tmp == NULL) ... else of z*/
89734 /* End of cleaning variable z */
89735 } /*if (capi_ifail_tmp == NULL) ... else of ifail*/
89736 /* End of cleaning variable ifail */
89737 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
89738 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
89739 /* End of cleaning variable iwork */
89740 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
89741 } /*if (capi_work_tmp == NULL) ... else of work*/
89742 /* End of cleaning variable work */
89743 } /*if (f2py_success) of mmax*/
89744 /* End of cleaning variable mmax */
89745 /* End of cleaning variable ldz */
89746 } /*if (capi_w_tmp == NULL) ... else of w*/
89747 /* End of cleaning variable w */
89748 } /*CHECKSCALAR((iu>=1 && iu<=n && iu>=il))*/
89749 } /*if (f2py_success) of iu*/
89750 /* End of cleaning variable iu */
89751 } /*CHECKSCALAR((il>=1 && il<=n))*/
89752 } /*if (f2py_success) of il*/
89753 /* End of cleaning variable il */
89754 Py_XDECREF(capi_q_tmp)_Py_XDECREF(((PyObject*)(capi_q_tmp)));
89755 } /*if (capi_q_tmp == NULL) ... else of q*/
89756 /* End of cleaning variable q */
89757 /* End of cleaning variable ldq */
89758 /* End of cleaning variable kd */
89759 /* End of cleaning variable n */
89760 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
89761 } /*if (f2py_success) of ldab*/
89762 /* End of cleaning variable ldab */
89763 /* End of cleaning variable info */
89764 /* End of cleaning variable m */
89765 } /*if (f2py_success) of abstol*/
89766 /* End of cleaning variable abstol */
89767 } /*if (f2py_success) of vu*/
89768 /* End of cleaning variable vu */
89769 } /*if (f2py_success) of vl*/
89770 /* End of cleaning variable vl */
89771 if((PyObject *)capi_ab_tmp!=ab_capi) {
89772 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
89773 } /*if (capi_ab_tmp == NULL) ... else of ab*/
89774 /* End of cleaning variable ab */
89775 } /*CHECKSCALAR(range==2||range==1||range==0)*/
89776 } /*if (f2py_success) of range*/
89777 /* End of cleaning variable range */
89778 } /*CHECKSCALAR(lower==0||lower==1)*/
89779 } /*if (f2py_success) of lower*/
89780 /* End of cleaning variable lower */
89781 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
89782 } /*if (f2py_success) of compute_v*/
89783 /* End of cleaning variable compute_v */
89784/*end of cleanupfrompyobj*/
89785 if (capi_buildvalue == NULL((void*)0)) {
89786/*routdebugfailure*/
89787 } else {
89788/*routdebugleave*/
89789 }
89790 CFUNCSMESS("Freeing memory.\n");
89791/*freemem*/
89792#ifdef F2PY_REPORT_ATEXIT
89793f2py_stop_clock();
89794#endif
89795 return capi_buildvalue;
89796}
89797/******************************* end of ssbevx *******************************/
89798
89799/*********************************** dsbevx ***********************************/
89800static char doc_f2py_rout__flapack_dsbevx[] = "\
89801w,z,m,ifail,info = dsbevx(ab,vl,vu,il,iu,[ldab,compute_v,range,lower,abstol,mmax,overwrite_ab])\n\nWrapper for ``dsbevx``.\
89802\n\nParameters\n----------\n"
89803"ab : input rank-2 array('d') with bounds (ldab,n)\n"
89804"vl : input float\n"
89805"vu : input float\n"
89806"il : input int\n"
89807"iu : input int\n"
89808"\nOther Parameters\n----------------\n"
89809"overwrite_ab : input int, optional\n Default: 1\n"
89810"ldab : input int, optional\n Default: shape(ab,0)\n"
89811"compute_v : input int, optional\n Default: 1\n"
89812"range : input int, optional\n Default: 0\n"
89813"lower : input int, optional\n Default: 0\n"
89814"abstol : input float, optional\n Default: 0.0\n"
89815"mmax : input int, optional\n Default: (compute_v?(range==2?(iu-il+1):n):1)\n"
89816"\nReturns\n-------\n"
89817"w : rank-1 array('d') with bounds (n)\n"
89818"z : rank-2 array('d') with bounds (ldz,mmax)\n"
89819"m : int\n"
89820"ifail : rank-1 array('i') with bounds ((compute_v?n:1))\n"
89821"info : int";
89822/* extern void F_FUNC(dsbevx,DSBEVX)(char*,char*,char*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,double*, F_INT*,F_INT*,F_INT* ); */
89823static PyObject *f2py_rout__flapack_dsbevx(const PyObject *capi_self,
89824 PyObject *capi_args,
89825 PyObject *capi_keywds,
89826 void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,double*, F_INTint*,F_INTint*,F_INTint* )) {
89827 PyObject * volatile capi_buildvalue = NULL((void*)0);
89828 volatile int f2py_success = 1;
89829/*decl*/
89830
89831 double *ab = NULL((void*)0);
89832 npy_intp ab_Dims[2] = {-1, -1};
89833 const int ab_Rank = 2;
89834 PyArrayObject *capi_ab_tmp = NULL((void*)0);
89835 int capi_ab_intent = 0;
89836 int capi_overwrite_ab = 1;
89837 PyObject *ab_capi = Py_None(&_Py_NoneStruct);
89838 int ldab = 0;
89839 PyObject *ldab_capi = Py_None(&_Py_NoneStruct);
89840 int compute_v = 0;
89841 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
89842 int range = 0;
89843 PyObject *range_capi = Py_None(&_Py_NoneStruct);
89844 int lower = 0;
89845 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
89846 int n = 0;
89847 int kd = 0;
89848 double *q = NULL((void*)0);
89849 npy_intp q_Dims[2] = {-1, -1};
89850 const int q_Rank = 2;
89851 PyArrayObject *capi_q_tmp = NULL((void*)0);
89852 int capi_q_intent = 0;
89853 int ldq = 0;
89854 double vl = 0;
89855 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
89856 double vu = 0;
89857 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
89858 int il = 0;
89859 PyObject *il_capi = Py_None(&_Py_NoneStruct);
89860 int iu = 0;
89861 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
89862 double abstol = 0;
89863 PyObject *abstol_capi = Py_None(&_Py_NoneStruct);
89864 double *w = NULL((void*)0);
89865 npy_intp w_Dims[1] = {-1};
89866 const int w_Rank = 1;
89867 PyArrayObject *capi_w_tmp = NULL((void*)0);
89868 int capi_w_intent = 0;
89869 double *z = NULL((void*)0);
89870 npy_intp z_Dims[2] = {-1, -1};
89871 const int z_Rank = 2;
89872 PyArrayObject *capi_z_tmp = NULL((void*)0);
89873 int capi_z_intent = 0;
89874 int m = 0;
89875 int mmax = 0;
89876 PyObject *mmax_capi = Py_None(&_Py_NoneStruct);
89877 int ldz = 0;
89878 double *work = NULL((void*)0);
89879 npy_intp work_Dims[1] = {-1};
89880 const int work_Rank = 1;
89881 PyArrayObject *capi_work_tmp = NULL((void*)0);
89882 int capi_work_intent = 0;
89883 int *iwork = NULL((void*)0);
89884 npy_intp iwork_Dims[1] = {-1};
89885 const int iwork_Rank = 1;
89886 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
89887 int capi_iwork_intent = 0;
89888 int *ifail = NULL((void*)0);
89889 npy_intp ifail_Dims[1] = {-1};
89890 const int ifail_Rank = 1;
89891 PyArrayObject *capi_ifail_tmp = NULL((void*)0);
89892 int capi_ifail_intent = 0;
89893 int info = 0;
89894 static char *capi_kwlist[] = {"ab","vl","vu","il","iu","ldab","compute_v","range","lower","abstol","mmax","overwrite_ab",NULL((void*)0)};
89895
89896/*routdebugenter*/
89897#ifdef F2PY_REPORT_ATEXIT
89898f2py_start_clock();
89899#endif
89900 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
89901 "OOOOO|OOOOOOi:_flapack.dsbevx",\
89902 capi_kwlist,&ab_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&ldab_capi,&compute_v_capi,&range_capi,&lower_capi,&abstol_capi,&mmax_capi,&capi_overwrite_ab))
89903 return NULL((void*)0);
89904/*frompyobj*/
89905 /* Processing variable compute_v */
89906 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
89907 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dsbevx() 2nd keyword (compute_v) can't be converted to int");
89908 if (f2py_success) {
89909 CHECKSCALAR(compute_v==1||compute_v==0,"compute_v==1||compute_v==0","2nd keyword compute_v","dsbevx:compute_v=%d",compute_v)if (!(compute_v==1||compute_v==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsbevx:compute_v=%d", "(""compute_v==1||compute_v==0"
") failed for ""2nd keyword compute_v", compute_v); PyErr_SetString
(_flapack_error,errstring); } else
{
89910 /* Processing variable lower */
89911 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
89912 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dsbevx() 4th keyword (lower) can't be converted to int");
89913 if (f2py_success) {
89914 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","4th keyword lower","dsbevx:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsbevx:lower=%d", "(""lower==0||lower==1"") failed for "
"4th keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
89915 /* Processing variable range */
89916 if (range_capi == Py_None(&_Py_NoneStruct)) range = 0; else
89917 f2py_success = int_from_pyobj(&range,range_capi,"_flapack.dsbevx() 3rd keyword (range) can't be converted to int");
89918 if (f2py_success) {
89919 CHECKSCALAR(range==2||range==1||range==0,"range==2||range==1||range==0","3rd keyword range","dsbevx:range=%d",range)if (!(range==2||range==1||range==0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsbevx:range=%d", "(""range==2||range==1||range==0"
") failed for ""3rd keyword range", range); PyErr_SetString(_flapack_error
,errstring); } else
{
89920 /* Processing variable ab */
89921 capi_ab_intent |= (capi_overwrite_ab?0:F2PY_INTENT_COPY32);
89922 ;
89923 capi_ab_intent |= F2PY_INTENT_IN1;
89924 capi_ab_tmp = array_from_pyobj(NPY_DOUBLE,ab_Dims,ab_Rank,capi_ab_intent,ab_capi);
89925 if (capi_ab_tmp == NULL((void*)0)) {
89926 if (!PyErr_Occurred())
89927 PyErr_SetString(_flapack_error,"failed in converting 1st argument `ab' of _flapack.dsbevx to C/Fortran array" );
89928 } else {
89929 ab = (double *)(PyArray_DATA(capi_ab_tmp)((void *)((PyArrayObject_fields *)(capi_ab_tmp))->data));
89930
89931 /* Processing variable vl */
89932 f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.dsbevx() 2nd argument (vl) can't be converted to double");
89933 if (f2py_success) {
89934 /* Processing variable vu */
89935 f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.dsbevx() 3rd argument (vu) can't be converted to double");
89936 if (f2py_success) {
89937 /* Processing variable abstol */
89938 if (abstol_capi == Py_None(&_Py_NoneStruct)) abstol = 0.0; else
89939 f2py_success = double_from_pyobj(&abstol,abstol_capi,"_flapack.dsbevx() 5th keyword (abstol) can't be converted to double");
89940 if (f2py_success) {
89941 /* Processing variable m */
89942 /* Processing variable info */
89943 /* Processing variable ldab */
89944 if (ldab_capi == Py_None(&_Py_NoneStruct)) ldab = shape(ab,0)ab_Dims[0]; else
89945 f2py_success = int_from_pyobj(&ldab,ldab_capi,"_flapack.dsbevx() 1st keyword (ldab) can't be converted to int");
89946 if (f2py_success) {
89947 CHECKSCALAR(shape(ab,0)==ldab,"shape(ab,0)==ldab","1st keyword ldab","dsbevx:ldab=%d",ldab)if (!(ab_Dims[0]==ldab)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsbevx:ldab=%d", "(""shape(ab,0)==ldab"") failed for "
"1st keyword ldab", ldab); PyErr_SetString(_flapack_error,errstring
); } else
{
89948 /* Processing variable n */
89949 n = shape(ab,1)ab_Dims[1];
89950 /* Processing variable kd */
89951 kd = shape(ab,0)ab_Dims[0]-1;
89952 /* Processing variable ldq */
89953 ldq = (compute_v?n:1);
89954 /* Processing variable q */
89955 q_Dims[0]=ldq,q_Dims[1]=ldq;
89956 capi_q_intent |= F2PY_INTENT_HIDE8;
89957 capi_q_tmp = array_from_pyobj(NPY_DOUBLE,q_Dims,q_Rank,capi_q_intent,Py_None(&_Py_NoneStruct));
89958 if (capi_q_tmp == NULL((void*)0)) {
89959 if (!PyErr_Occurred())
89960 PyErr_SetString(_flapack_error,"failed in converting hidden `q' of _flapack.dsbevx to C/Fortran array" );
89961 } else {
89962 q = (double *)(PyArray_DATA(capi_q_tmp)((void *)((PyArrayObject_fields *)(capi_q_tmp))->data));
89963
89964 /* Processing variable il */
89965 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.dsbevx() 4th argument (il) can't be converted to int");
89966 if (f2py_success) {
89967 CHECKSCALAR((il>=1 && il<=n),"(il>=1 && il<=n)","4th argument il","dsbevx:il=%d",il)if (!((il>=1 && il<=n))) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dsbevx:il=%d", "(""(il>=1 && il<=n)"
") failed for ""4th argument il", il); PyErr_SetString(_flapack_error
,errstring); } else
{
89968 /* Processing variable iu */
89969 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.dsbevx() 5th argument (iu) can't be converted to int");
89970 if (f2py_success) {
89971 CHECKSCALAR((iu>=1 && iu<=n && iu>=il),"(iu>=1 && iu<=n && iu>=il)","5th argument iu","dsbevx:iu=%d",iu)if (!((iu>=1 && iu<=n && iu>=il))) {
char errstring[256]; __builtin___sprintf_chk (errstring, 2 -
1, __builtin_object_size (errstring, 2 > 1), "%s: ""dsbevx:iu=%d"
, "(""(iu>=1 && iu<=n && iu>=il)"") failed for "
"5th argument iu", iu); PyErr_SetString(_flapack_error,errstring
); } else
{
89972 /* Processing variable w */
89973 w_Dims[0]=n;
89974 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
89975 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
89976 if (capi_w_tmp == NULL((void*)0)) {
89977 if (!PyErr_Occurred())
89978 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dsbevx to C/Fortran array" );
89979 } else {
89980 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
89981
89982 /* Processing variable ldz */
89983 ldz = (compute_v?n:1);
89984 /* Processing variable mmax */
89985 if (mmax_capi == Py_None(&_Py_NoneStruct)) mmax = (compute_v?(range==2?(iu-il+1):n):1); else
89986 f2py_success = int_from_pyobj(&mmax,mmax_capi,"_flapack.dsbevx() 6th keyword (mmax) can't be converted to int");
89987 if (f2py_success) {
89988 /* Processing variable work */
89989 work_Dims[0]=7 * n;
89990 capi_work_intent |= F2PY_INTENT_HIDE8;
89991 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
89992 if (capi_work_tmp == NULL((void*)0)) {
89993 if (!PyErr_Occurred())
89994 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dsbevx to C/Fortran array" );
89995 } else {
89996 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
89997
89998 /* Processing variable iwork */
89999 iwork_Dims[0]=5 * n;
90000 capi_iwork_intent |= F2PY_INTENT_HIDE8;
90001 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
90002 if (capi_iwork_tmp == NULL((void*)0)) {
90003 if (!PyErr_Occurred())
90004 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dsbevx to C/Fortran array" );
90005 } else {
90006 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
90007
90008 /* Processing variable ifail */
90009 ifail_Dims[0]=(compute_v?n:1);
90010 capi_ifail_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
90011 capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct));
90012 if (capi_ifail_tmp == NULL((void*)0)) {
90013 if (!PyErr_Occurred())
90014 PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.dsbevx to C/Fortran array" );
90015 } else {
90016 ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data));
90017
90018 /* Processing variable z */
90019 z_Dims[0]=ldz,z_Dims[1]=mmax;
90020 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
90021 capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
90022 if (capi_z_tmp == NULL((void*)0)) {
90023 if (!PyErr_Occurred())
90024 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.dsbevx to C/Fortran array" );
90025 } else {
90026 z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
90027
90028/*end of frompyobj*/
90029#ifdef F2PY_REPORT_ATEXIT
90030f2py_start_call_clock();
90031#endif
90032/*callfortranroutine*/
90033 (*f2py_func)((compute_v?"V":"N"),(range>0?(range==1?"V":"I"):"A"),(lower?"L":"U"),&n,&kd,ab,&ldab,q,&ldq,&vl,&vu,&il,&iu,&abstol,&m,w,z,&ldz,work,iwork,ifail,&info) ;
90034 /*(*f2py_func)(ab,&ldab,&compute_v,&range,&lower,&n,&kd,q,&ldq,&vl,&vu,&il,&iu,&abstol,w,z,&m,&mmax,&ldz,work,iwork,ifail,&info);*/
90035if (PyErr_Occurred())
90036 f2py_success = 0;
90037#ifdef F2PY_REPORT_ATEXIT
90038f2py_stop_call_clock();
90039#endif
90040/*end of callfortranroutine*/
90041 if (f2py_success) {
90042/*pyobjfrom*/
90043/*end of pyobjfrom*/
90044 CFUNCSMESS("Building return value.\n");
90045 capi_buildvalue = Py_BuildValue("NNiNi",capi_w_tmp,capi_z_tmp,m,capi_ifail_tmp,info);
90046/*closepyobjfrom*/
90047/*end of closepyobjfrom*/
90048 } /*if (f2py_success) after callfortranroutine*/
90049/*cleanupfrompyobj*/
90050 } /*if (capi_z_tmp == NULL) ... else of z*/
90051 /* End of cleaning variable z */
90052 } /*if (capi_ifail_tmp == NULL) ... else of ifail*/
90053 /* End of cleaning variable ifail */
90054 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
90055 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
90056 /* End of cleaning variable iwork */
90057 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
90058 } /*if (capi_work_tmp == NULL) ... else of work*/
90059 /* End of cleaning variable work */
90060 } /*if (f2py_success) of mmax*/
90061 /* End of cleaning variable mmax */
90062 /* End of cleaning variable ldz */
90063 } /*if (capi_w_tmp == NULL) ... else of w*/
90064 /* End of cleaning variable w */
90065 } /*CHECKSCALAR((iu>=1 && iu<=n && iu>=il))*/
90066 } /*if (f2py_success) of iu*/
90067 /* End of cleaning variable iu */
90068 } /*CHECKSCALAR((il>=1 && il<=n))*/
90069 } /*if (f2py_success) of il*/
90070 /* End of cleaning variable il */
90071 Py_XDECREF(capi_q_tmp)_Py_XDECREF(((PyObject*)(capi_q_tmp)));
90072 } /*if (capi_q_tmp == NULL) ... else of q*/
90073 /* End of cleaning variable q */
90074 /* End of cleaning variable ldq */
90075 /* End of cleaning variable kd */
90076 /* End of cleaning variable n */
90077 } /*CHECKSCALAR(shape(ab,0)==ldab)*/
90078 } /*if (f2py_success) of ldab*/
90079 /* End of cleaning variable ldab */
90080 /* End of cleaning variable info */
90081 /* End of cleaning variable m */
90082 } /*if (f2py_success) of abstol*/
90083 /* End of cleaning variable abstol */
90084 } /*if (f2py_success) of vu*/
90085 /* End of cleaning variable vu */
90086 } /*if (f2py_success) of vl*/
90087 /* End of cleaning variable vl */
90088 if((PyObject *)capi_ab_tmp!=ab_capi) {
90089 Py_XDECREF(capi_ab_tmp)_Py_XDECREF(((PyObject*)(capi_ab_tmp))); }
90090 } /*if (capi_ab_tmp == NULL) ... else of ab*/
90091 /* End of cleaning variable ab */
90092 } /*CHECKSCALAR(range==2||range==1||range==0)*/
90093 } /*if (f2py_success) of range*/
90094 /* End of cleaning variable range */
90095 } /*CHECKSCALAR(lower==0||lower==1)*/
90096 } /*if (f2py_success) of lower*/
90097 /* End of cleaning variable lower */
90098 } /*CHECKSCALAR(compute_v==1||compute_v==0)*/
90099 } /*if (f2py_success) of compute_v*/
90100 /* End of cleaning variable compute_v */
90101/*end of cleanupfrompyobj*/
90102 if (capi_buildvalue == NULL((void*)0)) {
90103/*routdebugfailure*/
90104 } else {
90105/*routdebugleave*/
90106 }
90107 CFUNCSMESS("Freeing memory.\n");
90108/*freemem*/
90109#ifdef F2PY_REPORT_ATEXIT
90110f2py_stop_clock();
90111#endif
90112 return capi_buildvalue;
90113}
90114/******************************* end of dsbevx *******************************/
90115
90116/*********************************** sstebz ***********************************/
90117static char doc_f2py_rout__flapack_sstebz[] = "\
90118m,w,iblock,isplit,info = sstebz(d,e,range,vl,vu,il,iu,tol,order)\n\nWrapper for ``sstebz``.\
90119\n\nParameters\n----------\n"
90120"d : input rank-1 array('f') with bounds (n)\n"
90121"e : input rank-1 array('f') with bounds (n - 1)\n"
90122"range : input int\n"
90123"vl : input float\n"
90124"vu : input float\n"
90125"il : input int\n"
90126"iu : input int\n"
90127"tol : input float\n"
90128"order : input string(len=1)\n"
90129"\nReturns\n-------\n"
90130"m : int\n"
90131"w : rank-1 array('f') with bounds (n)\n"
90132"iblock : rank-1 array('i') with bounds (n)\n"
90133"isplit : rank-1 array('i') with bounds (n)\n"
90134"info : int";
90135/* extern void F_FUNC(sstebz,SSTEBZ)(char*,char*,F_INT*,float*,float*,F_INT*,F_INT*,float*,float*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,F_INT* ); */
90136static PyObject *f2py_rout__flapack_sstebz(const PyObject *capi_self,
90137 PyObject *capi_args,
90138 PyObject *capi_keywds,
90139 void (*f2py_func)(char*,char*,F_INTint*,float*,float*,F_INTint*,F_INTint*,float*,float*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint* )) {
90140 PyObject * volatile capi_buildvalue = NULL((void*)0);
90141 volatile int f2py_success = 1;
90142/*decl*/
90143
90144 float *d = NULL((void*)0);
90145 npy_intp d_Dims[1] = {-1};
90146 const int d_Rank = 1;
90147 PyArrayObject *capi_d_tmp = NULL((void*)0);
90148 int capi_d_intent = 0;
90149 PyObject *d_capi = Py_None(&_Py_NoneStruct);
90150 float *e = NULL((void*)0);
90151 npy_intp e_Dims[1] = {-1};
90152 const int e_Rank = 1;
90153 PyArrayObject *capi_e_tmp = NULL((void*)0);
90154 int capi_e_intent = 0;
90155 PyObject *e_capi = Py_None(&_Py_NoneStruct);
90156 int range = 0;
90157 PyObject *range_capi = Py_None(&_Py_NoneStruct);
90158 float vl = 0;
90159 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
90160 float vu = 0;
90161 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
90162 int il = 0;
90163 PyObject *il_capi = Py_None(&_Py_NoneStruct);
90164 int iu = 0;
90165 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
90166 float tol = 0;
90167 PyObject *tol_capi = Py_None(&_Py_NoneStruct);
90168 string order = NULL((void*)0);
90169 int slen(order)capi_order_len;
90170 PyObject *order_capi = Py_None(&_Py_NoneStruct);
90171 int n = 0;
90172 float *work = NULL((void*)0);
90173 npy_intp work_Dims[1] = {-1};
90174 const int work_Rank = 1;
90175 PyArrayObject *capi_work_tmp = NULL((void*)0);
90176 int capi_work_intent = 0;
90177 int *iwork = NULL((void*)0);
90178 npy_intp iwork_Dims[1] = {-1};
90179 const int iwork_Rank = 1;
90180 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
90181 int capi_iwork_intent = 0;
90182 int m = 0;
90183 int nsplit = 0;
90184 float *w = NULL((void*)0);
90185 npy_intp w_Dims[1] = {-1};
90186 const int w_Rank = 1;
90187 PyArrayObject *capi_w_tmp = NULL((void*)0);
90188 int capi_w_intent = 0;
90189 int *iblock = NULL((void*)0);
90190 npy_intp iblock_Dims[1] = {-1};
90191 const int iblock_Rank = 1;
90192 PyArrayObject *capi_iblock_tmp = NULL((void*)0);
90193 int capi_iblock_intent = 0;
90194 int *isplit = NULL((void*)0);
90195 npy_intp isplit_Dims[1] = {-1};
90196 const int isplit_Rank = 1;
90197 PyArrayObject *capi_isplit_tmp = NULL((void*)0);
90198 int capi_isplit_intent = 0;
90199 int info = 0;
90200 static char *capi_kwlist[] = {"d","e","range","vl","vu","il","iu","tol","order",NULL((void*)0)};
90201
90202/*routdebugenter*/
90203#ifdef F2PY_REPORT_ATEXIT
90204f2py_start_clock();
90205#endif
90206 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
90207 "OOOOOOOOO:_flapack.sstebz",\
90208 capi_kwlist,&d_capi,&e_capi,&range_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&tol_capi,&order_capi))
90209 return NULL((void*)0);
90210/*frompyobj*/
90211 /* Processing variable d */
90212 ;
90213 capi_d_intent |= F2PY_INTENT_IN1;
90214 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
90215 if (capi_d_tmp == NULL((void*)0)) {
90216 if (!PyErr_Occurred())
90217 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.sstebz to C/Fortran array" );
90218 } else {
90219 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
90220
90221 /* Processing variable vl */
90222 f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.sstebz() 4th argument (vl) can't be converted to float");
90223 if (f2py_success) {
90224 /* Processing variable vu */
90225 f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.sstebz() 5th argument (vu) can't be converted to float");
90226 if (f2py_success) {
90227 /* Processing variable order */
90228 slen(order)capi_order_len = 1;
90229 f2py_success = string_from_pyobj(&order,&slen(order)capi_order_len,"",order_capi,"string_from_pyobj failed in converting 9th argument `order' of _flapack.sstebz to C string");
90230 if (f2py_success) {
90231 /* Processing variable il */
90232 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.sstebz() 6th argument (il) can't be converted to int");
90233 if (f2py_success) {
90234 /* Processing variable iu */
90235 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.sstebz() 7th argument (iu) can't be converted to int");
90236 if (f2py_success) {
90237 /* Processing variable tol */
90238 f2py_success = float_from_pyobj(&tol,tol_capi,"_flapack.sstebz() 8th argument (tol) can't be converted to float");
90239 if (f2py_success) {
90240 /* Processing variable range */
90241 f2py_success = int_from_pyobj(&range,range_capi,"_flapack.sstebz() 3rd argument (range) can't be converted to int");
90242 if (f2py_success) {
90243 /* Processing variable m */
90244 /* Processing variable nsplit */
90245 /* Processing variable info */
90246 /* Processing variable n */
90247 n = shape(d,0)d_Dims[0];
90248 CHECKSCALAR(n>0,"n>0","hidden n","sstebz:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sstebz:n=%d", "(""n>0"") failed for ""hidden n",
n); PyErr_SetString(_flapack_error,errstring); } else
{
90249 /* Processing variable work */
90250 work_Dims[0]=4 * n;
90251 capi_work_intent |= F2PY_INTENT_HIDE8;
90252 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
90253 if (capi_work_tmp == NULL((void*)0)) {
90254 if (!PyErr_Occurred())
90255 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sstebz to C/Fortran array" );
90256 } else {
90257 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
90258
90259 /* Processing variable iwork */
90260 iwork_Dims[0]=3 * n;
90261 capi_iwork_intent |= F2PY_INTENT_HIDE8;
90262 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
90263 if (capi_iwork_tmp == NULL((void*)0)) {
90264 if (!PyErr_Occurred())
90265 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.sstebz to C/Fortran array" );
90266 } else {
90267 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
90268
90269 /* Processing variable w */
90270 w_Dims[0]=n;
90271 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
90272 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
90273 if (capi_w_tmp == NULL((void*)0)) {
90274 if (!PyErr_Occurred())
90275 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.sstebz to C/Fortran array" );
90276 } else {
90277 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
90278
90279 /* Processing variable iblock */
90280 iblock_Dims[0]=n;
90281 capi_iblock_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
90282 capi_iblock_tmp = array_from_pyobj(NPY_INT,iblock_Dims,iblock_Rank,capi_iblock_intent,Py_None(&_Py_NoneStruct));
90283 if (capi_iblock_tmp == NULL((void*)0)) {
90284 if (!PyErr_Occurred())
90285 PyErr_SetString(_flapack_error,"failed in converting hidden `iblock' of _flapack.sstebz to C/Fortran array" );
90286 } else {
90287 iblock = (int *)(PyArray_DATA(capi_iblock_tmp)((void *)((PyArrayObject_fields *)(capi_iblock_tmp))->data
)
);
90288
90289 /* Processing variable isplit */
90290 isplit_Dims[0]=n;
90291 capi_isplit_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
90292 capi_isplit_tmp = array_from_pyobj(NPY_INT,isplit_Dims,isplit_Rank,capi_isplit_intent,Py_None(&_Py_NoneStruct));
90293 if (capi_isplit_tmp == NULL((void*)0)) {
90294 if (!PyErr_Occurred())
90295 PyErr_SetString(_flapack_error,"failed in converting hidden `isplit' of _flapack.sstebz to C/Fortran array" );
90296 } else {
90297 isplit = (int *)(PyArray_DATA(capi_isplit_tmp)((void *)((PyArrayObject_fields *)(capi_isplit_tmp))->data
)
);
90298
90299 /* Processing variable e */
90300 e_Dims[0]=n - 1;
90301 capi_e_intent |= F2PY_INTENT_IN1;
90302 capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi);
90303 if (capi_e_tmp == NULL((void*)0)) {
90304 if (!PyErr_Occurred())
90305 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.sstebz to C/Fortran array" );
90306 } else {
90307 e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
90308
90309/*end of frompyobj*/
90310#ifdef F2PY_REPORT_ATEXIT
90311f2py_start_call_clock();
90312#endif
90313/*callfortranroutine*/
90314 (*f2py_func)((range>0?(range==1?"V":"I"):"A"),order,&n,&vl,&vu,&il,&iu,&tol,d,e,&m,&nsplit,w,iblock,isplit,work,iwork,&info) ;
90315 /*(*f2py_func)(d,e,&range,&vl,&vu,&il,&iu,&tol,order,&n,work,iwork,&m,&nsplit,w,iblock,isplit,&info,slen(order));*/
90316if (PyErr_Occurred())
90317 f2py_success = 0;
90318#ifdef F2PY_REPORT_ATEXIT
90319f2py_stop_call_clock();
90320#endif
90321/*end of callfortranroutine*/
90322 if (f2py_success) {
90323/*pyobjfrom*/
90324/*end of pyobjfrom*/
90325 CFUNCSMESS("Building return value.\n");
90326 capi_buildvalue = Py_BuildValue("iNNNi",m,capi_w_tmp,capi_iblock_tmp,capi_isplit_tmp,info);
90327/*closepyobjfrom*/
90328/*end of closepyobjfrom*/
90329 } /*if (f2py_success) after callfortranroutine*/
90330/*cleanupfrompyobj*/
90331 if((PyObject *)capi_e_tmp!=e_capi) {
90332 Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); }
90333 } /*if (capi_e_tmp == NULL) ... else of e*/
90334 /* End of cleaning variable e */
90335 } /*if (capi_isplit_tmp == NULL) ... else of isplit*/
90336 /* End of cleaning variable isplit */
90337 } /*if (capi_iblock_tmp == NULL) ... else of iblock*/
90338 /* End of cleaning variable iblock */
90339 } /*if (capi_w_tmp == NULL) ... else of w*/
90340 /* End of cleaning variable w */
90341 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
90342 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
90343 /* End of cleaning variable iwork */
90344 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
90345 } /*if (capi_work_tmp == NULL) ... else of work*/
90346 /* End of cleaning variable work */
90347 } /*CHECKSCALAR(n>0)*/
90348 /* End of cleaning variable n */
90349 /* End of cleaning variable info */
90350 /* End of cleaning variable nsplit */
90351 /* End of cleaning variable m */
90352 } /*if (f2py_success) of range*/
90353 /* End of cleaning variable range */
90354 } /*if (f2py_success) of tol*/
90355 /* End of cleaning variable tol */
90356 } /*if (f2py_success) of iu*/
90357 /* End of cleaning variable iu */
90358 } /*if (f2py_success) of il*/
90359 /* End of cleaning variable il */
90360 STRINGFREE(order)do {if (!(order == ((void*)0))) free(order);} while (0);
90361 } /*if (f2py_success) of order*/
90362 /* End of cleaning variable order */
90363 } /*if (f2py_success) of vu*/
90364 /* End of cleaning variable vu */
90365 } /*if (f2py_success) of vl*/
90366 /* End of cleaning variable vl */
90367 if((PyObject *)capi_d_tmp!=d_capi) {
90368 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
90369 } /*if (capi_d_tmp == NULL) ... else of d*/
90370 /* End of cleaning variable d */
90371/*end of cleanupfrompyobj*/
90372 if (capi_buildvalue == NULL((void*)0)) {
90373/*routdebugfailure*/
90374 } else {
90375/*routdebugleave*/
90376 }
90377 CFUNCSMESS("Freeing memory.\n");
90378/*freemem*/
90379#ifdef F2PY_REPORT_ATEXIT
90380f2py_stop_clock();
90381#endif
90382 return capi_buildvalue;
90383}
90384/******************************* end of sstebz *******************************/
90385
90386/*********************************** dstebz ***********************************/
90387static char doc_f2py_rout__flapack_dstebz[] = "\
90388m,w,iblock,isplit,info = dstebz(d,e,range,vl,vu,il,iu,tol,order)\n\nWrapper for ``dstebz``.\
90389\n\nParameters\n----------\n"
90390"d : input rank-1 array('d') with bounds (n)\n"
90391"e : input rank-1 array('d') with bounds (n - 1)\n"
90392"range : input int\n"
90393"vl : input float\n"
90394"vu : input float\n"
90395"il : input int\n"
90396"iu : input int\n"
90397"tol : input float\n"
90398"order : input string(len=1)\n"
90399"\nReturns\n-------\n"
90400"m : int\n"
90401"w : rank-1 array('d') with bounds (n)\n"
90402"iblock : rank-1 array('i') with bounds (n)\n"
90403"isplit : rank-1 array('i') with bounds (n)\n"
90404"info : int";
90405/* extern void F_FUNC(dstebz,DSTEBZ)(char*,char*,F_INT*,double*,double*,F_INT*,F_INT*,double*,double*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,F_INT* ); */
90406static PyObject *f2py_rout__flapack_dstebz(const PyObject *capi_self,
90407 PyObject *capi_args,
90408 PyObject *capi_keywds,
90409 void (*f2py_func)(char*,char*,F_INTint*,double*,double*,F_INTint*,F_INTint*,double*,double*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint* )) {
90410 PyObject * volatile capi_buildvalue = NULL((void*)0);
90411 volatile int f2py_success = 1;
90412/*decl*/
90413
90414 double *d = NULL((void*)0);
90415 npy_intp d_Dims[1] = {-1};
90416 const int d_Rank = 1;
90417 PyArrayObject *capi_d_tmp = NULL((void*)0);
90418 int capi_d_intent = 0;
90419 PyObject *d_capi = Py_None(&_Py_NoneStruct);
90420 double *e = NULL((void*)0);
90421 npy_intp e_Dims[1] = {-1};
90422 const int e_Rank = 1;
90423 PyArrayObject *capi_e_tmp = NULL((void*)0);
90424 int capi_e_intent = 0;
90425 PyObject *e_capi = Py_None(&_Py_NoneStruct);
90426 int range = 0;
90427 PyObject *range_capi = Py_None(&_Py_NoneStruct);
90428 double vl = 0;
90429 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
90430 double vu = 0;
90431 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
90432 int il = 0;
90433 PyObject *il_capi = Py_None(&_Py_NoneStruct);
90434 int iu = 0;
90435 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
90436 double tol = 0;
90437 PyObject *tol_capi = Py_None(&_Py_NoneStruct);
90438 string order = NULL((void*)0);
90439 int slen(order)capi_order_len;
90440 PyObject *order_capi = Py_None(&_Py_NoneStruct);
90441 int n = 0;
90442 double *work = NULL((void*)0);
90443 npy_intp work_Dims[1] = {-1};
90444 const int work_Rank = 1;
90445 PyArrayObject *capi_work_tmp = NULL((void*)0);
90446 int capi_work_intent = 0;
90447 int *iwork = NULL((void*)0);
90448 npy_intp iwork_Dims[1] = {-1};
90449 const int iwork_Rank = 1;
90450 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
90451 int capi_iwork_intent = 0;
90452 int m = 0;
90453 int nsplit = 0;
90454 double *w = NULL((void*)0);
90455 npy_intp w_Dims[1] = {-1};
90456 const int w_Rank = 1;
90457 PyArrayObject *capi_w_tmp = NULL((void*)0);
90458 int capi_w_intent = 0;
90459 int *iblock = NULL((void*)0);
90460 npy_intp iblock_Dims[1] = {-1};
90461 const int iblock_Rank = 1;
90462 PyArrayObject *capi_iblock_tmp = NULL((void*)0);
90463 int capi_iblock_intent = 0;
90464 int *isplit = NULL((void*)0);
90465 npy_intp isplit_Dims[1] = {-1};
90466 const int isplit_Rank = 1;
90467 PyArrayObject *capi_isplit_tmp = NULL((void*)0);
90468 int capi_isplit_intent = 0;
90469 int info = 0;
90470 static char *capi_kwlist[] = {"d","e","range","vl","vu","il","iu","tol","order",NULL((void*)0)};
90471
90472/*routdebugenter*/
90473#ifdef F2PY_REPORT_ATEXIT
90474f2py_start_clock();
90475#endif
90476 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
90477 "OOOOOOOOO:_flapack.dstebz",\
90478 capi_kwlist,&d_capi,&e_capi,&range_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&tol_capi,&order_capi))
90479 return NULL((void*)0);
90480/*frompyobj*/
90481 /* Processing variable d */
90482 ;
90483 capi_d_intent |= F2PY_INTENT_IN1;
90484 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
90485 if (capi_d_tmp == NULL((void*)0)) {
90486 if (!PyErr_Occurred())
90487 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dstebz to C/Fortran array" );
90488 } else {
90489 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
90490
90491 /* Processing variable vl */
90492 f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.dstebz() 4th argument (vl) can't be converted to double");
90493 if (f2py_success) {
90494 /* Processing variable vu */
90495 f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.dstebz() 5th argument (vu) can't be converted to double");
90496 if (f2py_success) {
90497 /* Processing variable order */
90498 slen(order)capi_order_len = 1;
90499 f2py_success = string_from_pyobj(&order,&slen(order)capi_order_len,"",order_capi,"string_from_pyobj failed in converting 9th argument `order' of _flapack.dstebz to C string");
90500 if (f2py_success) {
90501 /* Processing variable il */
90502 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.dstebz() 6th argument (il) can't be converted to int");
90503 if (f2py_success) {
90504 /* Processing variable iu */
90505 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.dstebz() 7th argument (iu) can't be converted to int");
90506 if (f2py_success) {
90507 /* Processing variable tol */
90508 f2py_success = double_from_pyobj(&tol,tol_capi,"_flapack.dstebz() 8th argument (tol) can't be converted to double");
90509 if (f2py_success) {
90510 /* Processing variable range */
90511 f2py_success = int_from_pyobj(&range,range_capi,"_flapack.dstebz() 3rd argument (range) can't be converted to int");
90512 if (f2py_success) {
90513 /* Processing variable m */
90514 /* Processing variable nsplit */
90515 /* Processing variable info */
90516 /* Processing variable n */
90517 n = shape(d,0)d_Dims[0];
90518 CHECKSCALAR(n>0,"n>0","hidden n","dstebz:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dstebz:n=%d", "(""n>0"") failed for ""hidden n",
n); PyErr_SetString(_flapack_error,errstring); } else
{
90519 /* Processing variable work */
90520 work_Dims[0]=4 * n;
90521 capi_work_intent |= F2PY_INTENT_HIDE8;
90522 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
90523 if (capi_work_tmp == NULL((void*)0)) {
90524 if (!PyErr_Occurred())
90525 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dstebz to C/Fortran array" );
90526 } else {
90527 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
90528
90529 /* Processing variable iwork */
90530 iwork_Dims[0]=3 * n;
90531 capi_iwork_intent |= F2PY_INTENT_HIDE8;
90532 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
90533 if (capi_iwork_tmp == NULL((void*)0)) {
90534 if (!PyErr_Occurred())
90535 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dstebz to C/Fortran array" );
90536 } else {
90537 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
90538
90539 /* Processing variable w */
90540 w_Dims[0]=n;
90541 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
90542 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
90543 if (capi_w_tmp == NULL((void*)0)) {
90544 if (!PyErr_Occurred())
90545 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dstebz to C/Fortran array" );
90546 } else {
90547 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
90548
90549 /* Processing variable iblock */
90550 iblock_Dims[0]=n;
90551 capi_iblock_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
90552 capi_iblock_tmp = array_from_pyobj(NPY_INT,iblock_Dims,iblock_Rank,capi_iblock_intent,Py_None(&_Py_NoneStruct));
90553 if (capi_iblock_tmp == NULL((void*)0)) {
90554 if (!PyErr_Occurred())
90555 PyErr_SetString(_flapack_error,"failed in converting hidden `iblock' of _flapack.dstebz to C/Fortran array" );
90556 } else {
90557 iblock = (int *)(PyArray_DATA(capi_iblock_tmp)((void *)((PyArrayObject_fields *)(capi_iblock_tmp))->data
)
);
90558
90559 /* Processing variable isplit */
90560 isplit_Dims[0]=n;
90561 capi_isplit_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
90562 capi_isplit_tmp = array_from_pyobj(NPY_INT,isplit_Dims,isplit_Rank,capi_isplit_intent,Py_None(&_Py_NoneStruct));
90563 if (capi_isplit_tmp == NULL((void*)0)) {
90564 if (!PyErr_Occurred())
90565 PyErr_SetString(_flapack_error,"failed in converting hidden `isplit' of _flapack.dstebz to C/Fortran array" );
90566 } else {
90567 isplit = (int *)(PyArray_DATA(capi_isplit_tmp)((void *)((PyArrayObject_fields *)(capi_isplit_tmp))->data
)
);
90568
90569 /* Processing variable e */
90570 e_Dims[0]=n - 1;
90571 capi_e_intent |= F2PY_INTENT_IN1;
90572 capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi);
90573 if (capi_e_tmp == NULL((void*)0)) {
90574 if (!PyErr_Occurred())
90575 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dstebz to C/Fortran array" );
90576 } else {
90577 e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
90578
90579/*end of frompyobj*/
90580#ifdef F2PY_REPORT_ATEXIT
90581f2py_start_call_clock();
90582#endif
90583/*callfortranroutine*/
90584 (*f2py_func)((range>0?(range==1?"V":"I"):"A"),order,&n,&vl,&vu,&il,&iu,&tol,d,e,&m,&nsplit,w,iblock,isplit,work,iwork,&info) ;
90585 /*(*f2py_func)(d,e,&range,&vl,&vu,&il,&iu,&tol,order,&n,work,iwork,&m,&nsplit,w,iblock,isplit,&info,slen(order));*/
90586if (PyErr_Occurred())
90587 f2py_success = 0;
90588#ifdef F2PY_REPORT_ATEXIT
90589f2py_stop_call_clock();
90590#endif
90591/*end of callfortranroutine*/
90592 if (f2py_success) {
90593/*pyobjfrom*/
90594/*end of pyobjfrom*/
90595 CFUNCSMESS("Building return value.\n");
90596 capi_buildvalue = Py_BuildValue("iNNNi",m,capi_w_tmp,capi_iblock_tmp,capi_isplit_tmp,info);
90597/*closepyobjfrom*/
90598/*end of closepyobjfrom*/
90599 } /*if (f2py_success) after callfortranroutine*/
90600/*cleanupfrompyobj*/
90601 if((PyObject *)capi_e_tmp!=e_capi) {
90602 Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); }
90603 } /*if (capi_e_tmp == NULL) ... else of e*/
90604 /* End of cleaning variable e */
90605 } /*if (capi_isplit_tmp == NULL) ... else of isplit*/
90606 /* End of cleaning variable isplit */
90607 } /*if (capi_iblock_tmp == NULL) ... else of iblock*/
90608 /* End of cleaning variable iblock */
90609 } /*if (capi_w_tmp == NULL) ... else of w*/
90610 /* End of cleaning variable w */
90611 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
90612 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
90613 /* End of cleaning variable iwork */
90614 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
90615 } /*if (capi_work_tmp == NULL) ... else of work*/
90616 /* End of cleaning variable work */
90617 } /*CHECKSCALAR(n>0)*/
90618 /* End of cleaning variable n */
90619 /* End of cleaning variable info */
90620 /* End of cleaning variable nsplit */
90621 /* End of cleaning variable m */
90622 } /*if (f2py_success) of range*/
90623 /* End of cleaning variable range */
90624 } /*if (f2py_success) of tol*/
90625 /* End of cleaning variable tol */
90626 } /*if (f2py_success) of iu*/
90627 /* End of cleaning variable iu */
90628 } /*if (f2py_success) of il*/
90629 /* End of cleaning variable il */
90630 STRINGFREE(order)do {if (!(order == ((void*)0))) free(order);} while (0);
90631 } /*if (f2py_success) of order*/
90632 /* End of cleaning variable order */
90633 } /*if (f2py_success) of vu*/
90634 /* End of cleaning variable vu */
90635 } /*if (f2py_success) of vl*/
90636 /* End of cleaning variable vl */
90637 if((PyObject *)capi_d_tmp!=d_capi) {
90638 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
90639 } /*if (capi_d_tmp == NULL) ... else of d*/
90640 /* End of cleaning variable d */
90641/*end of cleanupfrompyobj*/
90642 if (capi_buildvalue == NULL((void*)0)) {
90643/*routdebugfailure*/
90644 } else {
90645/*routdebugleave*/
90646 }
90647 CFUNCSMESS("Freeing memory.\n");
90648/*freemem*/
90649#ifdef F2PY_REPORT_ATEXIT
90650f2py_stop_clock();
90651#endif
90652 return capi_buildvalue;
90653}
90654/******************************* end of dstebz *******************************/
90655
90656/*********************************** ssterf ***********************************/
90657static char doc_f2py_rout__flapack_ssterf[] = "\
90658vals,info = ssterf(d,e,[overwrite_d,overwrite_e])\n\nWrapper for ``ssterf``.\
90659\n\nParameters\n----------\n"
90660"d : input rank-1 array('f') with bounds (n)\n"
90661"e : input rank-1 array('f') with bounds (n - 1)\n"
90662"\nOther Parameters\n----------------\n"
90663"overwrite_d : input int, optional\n Default: 0\n"
90664"overwrite_e : input int, optional\n Default: 0\n"
90665"\nReturns\n-------\n"
90666"vals : rank-1 array('f') with bounds (n) and d storage\n"
90667"info : int";
90668/* extern void F_FUNC(ssterf,SSTERF)(F_INT*,float*,float*,F_INT* ); */
90669static PyObject *f2py_rout__flapack_ssterf(const PyObject *capi_self,
90670 PyObject *capi_args,
90671 PyObject *capi_keywds,
90672 void (*f2py_func)(F_INTint*,float*,float*,F_INTint* )) {
90673 PyObject * volatile capi_buildvalue = NULL((void*)0);
90674 volatile int f2py_success = 1;
90675/*decl*/
90676
90677 float *d = NULL((void*)0);
90678 npy_intp d_Dims[1] = {-1};
90679 const int d_Rank = 1;
90680 PyArrayObject *capi_d_tmp = NULL((void*)0);
90681 int capi_d_intent = 0;
90682 int capi_overwrite_d = 0;
90683 PyObject *d_capi = Py_None(&_Py_NoneStruct);
90684 float *e = NULL((void*)0);
90685 npy_intp e_Dims[1] = {-1};
90686 const int e_Rank = 1;
90687 PyArrayObject *capi_e_tmp = NULL((void*)0);
90688 int capi_e_intent = 0;
90689 int capi_overwrite_e = 0;
90690 PyObject *e_capi = Py_None(&_Py_NoneStruct);
90691 int n = 0;
90692 int info = 0;
90693 static char *capi_kwlist[] = {"d","e","overwrite_d","overwrite_e",NULL((void*)0)};
90694
90695/*routdebugenter*/
90696#ifdef F2PY_REPORT_ATEXIT
90697f2py_start_clock();
90698#endif
90699 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
90700 "OO|ii:_flapack.ssterf",\
90701 capi_kwlist,&d_capi,&e_capi,&capi_overwrite_d,&capi_overwrite_e))
90702 return NULL((void*)0);
90703/*frompyobj*/
90704 /* Processing variable d */
90705 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
90706 ;
90707 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
90708 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
90709 if (capi_d_tmp == NULL((void*)0)) {
90710 if (!PyErr_Occurred())
90711 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.ssterf to C/Fortran array" );
90712 } else {
90713 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
90714
90715 /* Processing variable info */
90716 /* Processing variable n */
90717 n = shape(d,0)d_Dims[0];
90718 /* Processing variable e */
90719 capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32);
90720 e_Dims[0]=n - 1;
90721 capi_e_intent |= F2PY_INTENT_IN1;
90722 capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi);
90723 if (capi_e_tmp == NULL((void*)0)) {
90724 if (!PyErr_Occurred())
90725 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.ssterf to C/Fortran array" );
90726 } else {
90727 e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
90728
90729/*end of frompyobj*/
90730#ifdef F2PY_REPORT_ATEXIT
90731f2py_start_call_clock();
90732#endif
90733/*callfortranroutine*/
90734 (*f2py_func)(&n,d,e,&info) ;
90735 /*(*f2py_func)(d,e,&n,&info);*/
90736if (PyErr_Occurred())
90737 f2py_success = 0;
90738#ifdef F2PY_REPORT_ATEXIT
90739f2py_stop_call_clock();
90740#endif
90741/*end of callfortranroutine*/
90742 if (f2py_success) {
90743/*pyobjfrom*/
90744/*end of pyobjfrom*/
90745 CFUNCSMESS("Building return value.\n");
90746 capi_buildvalue = Py_BuildValue("Ni",capi_d_tmp,info);
90747/*closepyobjfrom*/
90748/*end of closepyobjfrom*/
90749 } /*if (f2py_success) after callfortranroutine*/
90750/*cleanupfrompyobj*/
90751 if((PyObject *)capi_e_tmp!=e_capi) {
90752 Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); }
90753 } /*if (capi_e_tmp == NULL) ... else of e*/
90754 /* End of cleaning variable e */
90755 /* End of cleaning variable n */
90756 /* End of cleaning variable info */
90757 } /*if (capi_d_tmp == NULL) ... else of d*/
90758 /* End of cleaning variable d */
90759/*end of cleanupfrompyobj*/
90760 if (capi_buildvalue == NULL((void*)0)) {
90761/*routdebugfailure*/
90762 } else {
90763/*routdebugleave*/
90764 }
90765 CFUNCSMESS("Freeing memory.\n");
90766/*freemem*/
90767#ifdef F2PY_REPORT_ATEXIT
90768f2py_stop_clock();
90769#endif
90770 return capi_buildvalue;
90771}
90772/******************************* end of ssterf *******************************/
90773
90774/*********************************** dsterf ***********************************/
90775static char doc_f2py_rout__flapack_dsterf[] = "\
90776vals,info = dsterf(d,e,[overwrite_d,overwrite_e])\n\nWrapper for ``dsterf``.\
90777\n\nParameters\n----------\n"
90778"d : input rank-1 array('d') with bounds (n)\n"
90779"e : input rank-1 array('d') with bounds (n - 1)\n"
90780"\nOther Parameters\n----------------\n"
90781"overwrite_d : input int, optional\n Default: 0\n"
90782"overwrite_e : input int, optional\n Default: 0\n"
90783"\nReturns\n-------\n"
90784"vals : rank-1 array('d') with bounds (n) and d storage\n"
90785"info : int";
90786/* extern void F_FUNC(dsterf,DSTERF)(F_INT*,double*,double*,F_INT* ); */
90787static PyObject *f2py_rout__flapack_dsterf(const PyObject *capi_self,
90788 PyObject *capi_args,
90789 PyObject *capi_keywds,
90790 void (*f2py_func)(F_INTint*,double*,double*,F_INTint* )) {
90791 PyObject * volatile capi_buildvalue = NULL((void*)0);
90792 volatile int f2py_success = 1;
90793/*decl*/
90794
90795 double *d = NULL((void*)0);
90796 npy_intp d_Dims[1] = {-1};
90797 const int d_Rank = 1;
90798 PyArrayObject *capi_d_tmp = NULL((void*)0);
90799 int capi_d_intent = 0;
90800 int capi_overwrite_d = 0;
90801 PyObject *d_capi = Py_None(&_Py_NoneStruct);
90802 double *e = NULL((void*)0);
90803 npy_intp e_Dims[1] = {-1};
90804 const int e_Rank = 1;
90805 PyArrayObject *capi_e_tmp = NULL((void*)0);
90806 int capi_e_intent = 0;
90807 int capi_overwrite_e = 0;
90808 PyObject *e_capi = Py_None(&_Py_NoneStruct);
90809 int n = 0;
90810 int info = 0;
90811 static char *capi_kwlist[] = {"d","e","overwrite_d","overwrite_e",NULL((void*)0)};
90812
90813/*routdebugenter*/
90814#ifdef F2PY_REPORT_ATEXIT
90815f2py_start_clock();
90816#endif
90817 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
90818 "OO|ii:_flapack.dsterf",\
90819 capi_kwlist,&d_capi,&e_capi,&capi_overwrite_d,&capi_overwrite_e))
90820 return NULL((void*)0);
90821/*frompyobj*/
90822 /* Processing variable d */
90823 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
90824 ;
90825 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
90826 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
90827 if (capi_d_tmp == NULL((void*)0)) {
90828 if (!PyErr_Occurred())
90829 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dsterf to C/Fortran array" );
90830 } else {
90831 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
90832
90833 /* Processing variable info */
90834 /* Processing variable n */
90835 n = shape(d,0)d_Dims[0];
90836 /* Processing variable e */
90837 capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32);
90838 e_Dims[0]=n - 1;
90839 capi_e_intent |= F2PY_INTENT_IN1;
90840 capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi);
90841 if (capi_e_tmp == NULL((void*)0)) {
90842 if (!PyErr_Occurred())
90843 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dsterf to C/Fortran array" );
90844 } else {
90845 e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
90846
90847/*end of frompyobj*/
90848#ifdef F2PY_REPORT_ATEXIT
90849f2py_start_call_clock();
90850#endif
90851/*callfortranroutine*/
90852 (*f2py_func)(&n,d,e,&info) ;
90853 /*(*f2py_func)(d,e,&n,&info);*/
90854if (PyErr_Occurred())
90855 f2py_success = 0;
90856#ifdef F2PY_REPORT_ATEXIT
90857f2py_stop_call_clock();
90858#endif
90859/*end of callfortranroutine*/
90860 if (f2py_success) {
90861/*pyobjfrom*/
90862/*end of pyobjfrom*/
90863 CFUNCSMESS("Building return value.\n");
90864 capi_buildvalue = Py_BuildValue("Ni",capi_d_tmp,info);
90865/*closepyobjfrom*/
90866/*end of closepyobjfrom*/
90867 } /*if (f2py_success) after callfortranroutine*/
90868/*cleanupfrompyobj*/
90869 if((PyObject *)capi_e_tmp!=e_capi) {
90870 Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); }
90871 } /*if (capi_e_tmp == NULL) ... else of e*/
90872 /* End of cleaning variable e */
90873 /* End of cleaning variable n */
90874 /* End of cleaning variable info */
90875 } /*if (capi_d_tmp == NULL) ... else of d*/
90876 /* End of cleaning variable d */
90877/*end of cleanupfrompyobj*/
90878 if (capi_buildvalue == NULL((void*)0)) {
90879/*routdebugfailure*/
90880 } else {
90881/*routdebugleave*/
90882 }
90883 CFUNCSMESS("Freeing memory.\n");
90884/*freemem*/
90885#ifdef F2PY_REPORT_ATEXIT
90886f2py_stop_clock();
90887#endif
90888 return capi_buildvalue;
90889}
90890/******************************* end of dsterf *******************************/
90891
90892/*********************************** sstein ***********************************/
90893static char doc_f2py_rout__flapack_sstein[] = "\
90894z,info = sstein(d,e,w,iblock,isplit)\n\nWrapper for ``sstein``.\
90895\n\nParameters\n----------\n"
90896"d : input rank-1 array('f') with bounds (n)\n"
90897"e : input rank-1 array('f') with bounds (n - 1)\n"
90898"w : input rank-1 array('f') with bounds (m)\n"
90899"iblock : input rank-1 array('i') with bounds (n)\n"
90900"isplit : input rank-1 array('i') with bounds (n)\n"
90901"\nReturns\n-------\n"
90902"z : rank-2 array('f') with bounds (ldz,m)\n"
90903"info : int";
90904/* extern void F_FUNC(sstein,SSTEIN)(F_INT*,float*,float*,F_INT*,float*,F_INT*,F_INT*,float*,F_INT*,float*,F_INT*,F_INT*,F_INT* ); */
90905static PyObject *f2py_rout__flapack_sstein(const PyObject *capi_self,
90906 PyObject *capi_args,
90907 PyObject *capi_keywds,
90908 void (*f2py_func)(F_INTint*,float*,float*,F_INTint*,float*,F_INTint*,F_INTint*,float*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint* )) {
90909 PyObject * volatile capi_buildvalue = NULL((void*)0);
90910 volatile int f2py_success = 1;
90911/*decl*/
90912
90913 float *d = NULL((void*)0);
90914 npy_intp d_Dims[1] = {-1};
90915 const int d_Rank = 1;
90916 PyArrayObject *capi_d_tmp = NULL((void*)0);
90917 int capi_d_intent = 0;
90918 PyObject *d_capi = Py_None(&_Py_NoneStruct);
90919 float *e = NULL((void*)0);
90920 npy_intp e_Dims[1] = {-1};
90921 const int e_Rank = 1;
90922 PyArrayObject *capi_e_tmp = NULL((void*)0);
90923 int capi_e_intent = 0;
90924 PyObject *e_capi = Py_None(&_Py_NoneStruct);
90925 float *w = NULL((void*)0);
90926 npy_intp w_Dims[1] = {-1};
90927 const int w_Rank = 1;
90928 PyArrayObject *capi_w_tmp = NULL((void*)0);
90929 int capi_w_intent = 0;
90930 PyObject *w_capi = Py_None(&_Py_NoneStruct);
90931 int *iblock = NULL((void*)0);
90932 npy_intp iblock_Dims[1] = {-1};
90933 const int iblock_Rank = 1;
90934 PyArrayObject *capi_iblock_tmp = NULL((void*)0);
90935 int capi_iblock_intent = 0;
90936 PyObject *iblock_capi = Py_None(&_Py_NoneStruct);
90937 int *isplit = NULL((void*)0);
90938 npy_intp isplit_Dims[1] = {-1};
90939 const int isplit_Rank = 1;
90940 PyArrayObject *capi_isplit_tmp = NULL((void*)0);
90941 int capi_isplit_intent = 0;
90942 PyObject *isplit_capi = Py_None(&_Py_NoneStruct);
90943 int m = 0;
90944 int n = 0;
90945 float *z = NULL((void*)0);
90946 npy_intp z_Dims[2] = {-1, -1};
90947 const int z_Rank = 2;
90948 PyArrayObject *capi_z_tmp = NULL((void*)0);
90949 int capi_z_intent = 0;
90950 int ldz = 0;
90951 float *work = NULL((void*)0);
90952 npy_intp work_Dims[1] = {-1};
90953 const int work_Rank = 1;
90954 PyArrayObject *capi_work_tmp = NULL((void*)0);
90955 int capi_work_intent = 0;
90956 int *iwork = NULL((void*)0);
90957 npy_intp iwork_Dims[1] = {-1};
90958 const int iwork_Rank = 1;
90959 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
90960 int capi_iwork_intent = 0;
90961 int *ifail = NULL((void*)0);
90962 npy_intp ifail_Dims[1] = {-1};
90963 const int ifail_Rank = 1;
90964 PyArrayObject *capi_ifail_tmp = NULL((void*)0);
90965 int capi_ifail_intent = 0;
90966 int info = 0;
90967 static char *capi_kwlist[] = {"d","e","w","iblock","isplit",NULL((void*)0)};
90968
90969/*routdebugenter*/
90970#ifdef F2PY_REPORT_ATEXIT
90971f2py_start_clock();
90972#endif
90973 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
90974 "OOOOO:_flapack.sstein",\
90975 capi_kwlist,&d_capi,&e_capi,&w_capi,&iblock_capi,&isplit_capi))
90976 return NULL((void*)0);
90977/*frompyobj*/
90978 /* Processing variable d */
90979 ;
90980 capi_d_intent |= F2PY_INTENT_IN1;
90981 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
90982 if (capi_d_tmp == NULL((void*)0)) {
90983 if (!PyErr_Occurred())
90984 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.sstein to C/Fortran array" );
90985 } else {
90986 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
90987
90988 /* Processing variable w */
90989 ;
90990 capi_w_intent |= F2PY_INTENT_IN1;
90991 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,w_capi);
90992 if (capi_w_tmp == NULL((void*)0)) {
90993 if (!PyErr_Occurred())
90994 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `w' of _flapack.sstein to C/Fortran array" );
90995 } else {
90996 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
90997
90998 /* Processing variable info */
90999 /* Processing variable m */
91000 m = shape(w,0)w_Dims[0];
91001 /* Processing variable n */
91002 n = shape(d,0)d_Dims[0];
91003 CHECKSCALAR(n>0,"n>0","hidden n","sstein:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sstein:n=%d", "(""n>0"") failed for ""hidden n",
n); PyErr_SetString(_flapack_error,errstring); } else
{
91004 /* Processing variable iblock */
91005 iblock_Dims[0]=n;
91006 capi_iblock_intent |= F2PY_INTENT_IN1;
91007 capi_iblock_tmp = array_from_pyobj(NPY_INT,iblock_Dims,iblock_Rank,capi_iblock_intent,iblock_capi);
91008 if (capi_iblock_tmp == NULL((void*)0)) {
91009 if (!PyErr_Occurred())
91010 PyErr_SetString(_flapack_error,"failed in converting 4th argument `iblock' of _flapack.sstein to C/Fortran array" );
91011 } else {
91012 iblock = (int *)(PyArray_DATA(capi_iblock_tmp)((void *)((PyArrayObject_fields *)(capi_iblock_tmp))->data
)
);
91013
91014 /* Processing variable isplit */
91015 isplit_Dims[0]=n;
91016 capi_isplit_intent |= F2PY_INTENT_IN1;
91017 capi_isplit_tmp = array_from_pyobj(NPY_INT,isplit_Dims,isplit_Rank,capi_isplit_intent,isplit_capi);
91018 if (capi_isplit_tmp == NULL((void*)0)) {
91019 if (!PyErr_Occurred())
91020 PyErr_SetString(_flapack_error,"failed in converting 5th argument `isplit' of _flapack.sstein to C/Fortran array" );
91021 } else {
91022 isplit = (int *)(PyArray_DATA(capi_isplit_tmp)((void *)((PyArrayObject_fields *)(capi_isplit_tmp))->data
)
);
91023
91024 /* Processing variable ldz */
91025 ldz = n;
91026 /* Processing variable work */
91027 work_Dims[0]=5 * n;
91028 capi_work_intent |= F2PY_INTENT_HIDE8;
91029 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
91030 if (capi_work_tmp == NULL((void*)0)) {
91031 if (!PyErr_Occurred())
91032 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sstein to C/Fortran array" );
91033 } else {
91034 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
91035
91036 /* Processing variable iwork */
91037 iwork_Dims[0]=n;
91038 capi_iwork_intent |= F2PY_INTENT_HIDE8;
91039 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
91040 if (capi_iwork_tmp == NULL((void*)0)) {
91041 if (!PyErr_Occurred())
91042 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.sstein to C/Fortran array" );
91043 } else {
91044 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
91045
91046 /* Processing variable ifail */
91047 ifail_Dims[0]=m;
91048 capi_ifail_intent |= F2PY_INTENT_HIDE8;
91049 capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct));
91050 if (capi_ifail_tmp == NULL((void*)0)) {
91051 if (!PyErr_Occurred())
91052 PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.sstein to C/Fortran array" );
91053 } else {
91054 ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data));
91055
91056 /* Processing variable e */
91057 e_Dims[0]=n - 1;
91058 capi_e_intent |= F2PY_INTENT_IN1;
91059 capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi);
91060 if (capi_e_tmp == NULL((void*)0)) {
91061 if (!PyErr_Occurred())
91062 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.sstein to C/Fortran array" );
91063 } else {
91064 e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
91065
91066 /* Processing variable z */
91067 z_Dims[0]=ldz,z_Dims[1]=m;
91068 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
91069 capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
91070 if (capi_z_tmp == NULL((void*)0)) {
91071 if (!PyErr_Occurred())
91072 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.sstein to C/Fortran array" );
91073 } else {
91074 z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
91075
91076/*end of frompyobj*/
91077#ifdef F2PY_REPORT_ATEXIT
91078f2py_start_call_clock();
91079#endif
91080/*callfortranroutine*/
91081 (*f2py_func)(&n,d,e,&m,w,iblock,isplit,z,&ldz,work,iwork,ifail,&info) ;
91082 /*(*f2py_func)(d,e,w,iblock,isplit,&m,&n,z,&ldz,work,iwork,ifail,&info);*/
91083if (PyErr_Occurred())
91084 f2py_success = 0;
91085#ifdef F2PY_REPORT_ATEXIT
91086f2py_stop_call_clock();
91087#endif
91088/*end of callfortranroutine*/
91089 if (f2py_success) {
91090/*pyobjfrom*/
91091/*end of pyobjfrom*/
91092 CFUNCSMESS("Building return value.\n");
91093 capi_buildvalue = Py_BuildValue("Ni",capi_z_tmp,info);
91094/*closepyobjfrom*/
91095/*end of closepyobjfrom*/
91096 } /*if (f2py_success) after callfortranroutine*/
91097/*cleanupfrompyobj*/
91098 } /*if (capi_z_tmp == NULL) ... else of z*/
91099 /* End of cleaning variable z */
91100 if((PyObject *)capi_e_tmp!=e_capi) {
91101 Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); }
91102 } /*if (capi_e_tmp == NULL) ... else of e*/
91103 /* End of cleaning variable e */
91104 Py_XDECREF(capi_ifail_tmp)_Py_XDECREF(((PyObject*)(capi_ifail_tmp)));
91105 } /*if (capi_ifail_tmp == NULL) ... else of ifail*/
91106 /* End of cleaning variable ifail */
91107 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
91108 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
91109 /* End of cleaning variable iwork */
91110 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
91111 } /*if (capi_work_tmp == NULL) ... else of work*/
91112 /* End of cleaning variable work */
91113 /* End of cleaning variable ldz */
91114 if((PyObject *)capi_isplit_tmp!=isplit_capi) {
91115 Py_XDECREF(capi_isplit_tmp)_Py_XDECREF(((PyObject*)(capi_isplit_tmp))); }
91116 } /*if (capi_isplit_tmp == NULL) ... else of isplit*/
91117 /* End of cleaning variable isplit */
91118 if((PyObject *)capi_iblock_tmp!=iblock_capi) {
91119 Py_XDECREF(capi_iblock_tmp)_Py_XDECREF(((PyObject*)(capi_iblock_tmp))); }
91120 } /*if (capi_iblock_tmp == NULL) ... else of iblock*/
91121 /* End of cleaning variable iblock */
91122 } /*CHECKSCALAR(n>0)*/
91123 /* End of cleaning variable n */
91124 /* End of cleaning variable m */
91125 /* End of cleaning variable info */
91126 if((PyObject *)capi_w_tmp!=w_capi) {
91127 Py_XDECREF(capi_w_tmp)_Py_XDECREF(((PyObject*)(capi_w_tmp))); }
91128 } /*if (capi_w_tmp == NULL) ... else of w*/
91129 /* End of cleaning variable w */
91130 if((PyObject *)capi_d_tmp!=d_capi) {
91131 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
91132 } /*if (capi_d_tmp == NULL) ... else of d*/
91133 /* End of cleaning variable d */
91134/*end of cleanupfrompyobj*/
91135 if (capi_buildvalue == NULL((void*)0)) {
91136/*routdebugfailure*/
91137 } else {
91138/*routdebugleave*/
91139 }
91140 CFUNCSMESS("Freeing memory.\n");
91141/*freemem*/
91142#ifdef F2PY_REPORT_ATEXIT
91143f2py_stop_clock();
91144#endif
91145 return capi_buildvalue;
91146}
91147/******************************* end of sstein *******************************/
91148
91149/*********************************** dstein ***********************************/
91150static char doc_f2py_rout__flapack_dstein[] = "\
91151z,info = dstein(d,e,w,iblock,isplit)\n\nWrapper for ``dstein``.\
91152\n\nParameters\n----------\n"
91153"d : input rank-1 array('d') with bounds (n)\n"
91154"e : input rank-1 array('d') with bounds (n - 1)\n"
91155"w : input rank-1 array('d') with bounds (m)\n"
91156"iblock : input rank-1 array('i') with bounds (n)\n"
91157"isplit : input rank-1 array('i') with bounds (n)\n"
91158"\nReturns\n-------\n"
91159"z : rank-2 array('d') with bounds (ldz,m)\n"
91160"info : int";
91161/* extern void F_FUNC(dstein,DSTEIN)(F_INT*,double*,double*,F_INT*,double*,F_INT*,F_INT*,double*,F_INT*,double*,F_INT*,F_INT*,F_INT* ); */
91162static PyObject *f2py_rout__flapack_dstein(const PyObject *capi_self,
91163 PyObject *capi_args,
91164 PyObject *capi_keywds,
91165 void (*f2py_func)(F_INTint*,double*,double*,F_INTint*,double*,F_INTint*,F_INTint*,double*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint* )) {
91166 PyObject * volatile capi_buildvalue = NULL((void*)0);
91167 volatile int f2py_success = 1;
91168/*decl*/
91169
91170 double *d = NULL((void*)0);
91171 npy_intp d_Dims[1] = {-1};
91172 const int d_Rank = 1;
91173 PyArrayObject *capi_d_tmp = NULL((void*)0);
91174 int capi_d_intent = 0;
91175 PyObject *d_capi = Py_None(&_Py_NoneStruct);
91176 double *e = NULL((void*)0);
91177 npy_intp e_Dims[1] = {-1};
91178 const int e_Rank = 1;
91179 PyArrayObject *capi_e_tmp = NULL((void*)0);
91180 int capi_e_intent = 0;
91181 PyObject *e_capi = Py_None(&_Py_NoneStruct);
91182 double *w = NULL((void*)0);
91183 npy_intp w_Dims[1] = {-1};
91184 const int w_Rank = 1;
91185 PyArrayObject *capi_w_tmp = NULL((void*)0);
91186 int capi_w_intent = 0;
91187 PyObject *w_capi = Py_None(&_Py_NoneStruct);
91188 int *iblock = NULL((void*)0);
91189 npy_intp iblock_Dims[1] = {-1};
91190 const int iblock_Rank = 1;
91191 PyArrayObject *capi_iblock_tmp = NULL((void*)0);
91192 int capi_iblock_intent = 0;
91193 PyObject *iblock_capi = Py_None(&_Py_NoneStruct);
91194 int *isplit = NULL((void*)0);
91195 npy_intp isplit_Dims[1] = {-1};
91196 const int isplit_Rank = 1;
91197 PyArrayObject *capi_isplit_tmp = NULL((void*)0);
91198 int capi_isplit_intent = 0;
91199 PyObject *isplit_capi = Py_None(&_Py_NoneStruct);
91200 int m = 0;
91201 int n = 0;
91202 double *z = NULL((void*)0);
91203 npy_intp z_Dims[2] = {-1, -1};
91204 const int z_Rank = 2;
91205 PyArrayObject *capi_z_tmp = NULL((void*)0);
91206 int capi_z_intent = 0;
91207 int ldz = 0;
91208 double *work = NULL((void*)0);
91209 npy_intp work_Dims[1] = {-1};
91210 const int work_Rank = 1;
91211 PyArrayObject *capi_work_tmp = NULL((void*)0);
91212 int capi_work_intent = 0;
91213 int *iwork = NULL((void*)0);
91214 npy_intp iwork_Dims[1] = {-1};
91215 const int iwork_Rank = 1;
91216 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
91217 int capi_iwork_intent = 0;
91218 int *ifail = NULL((void*)0);
91219 npy_intp ifail_Dims[1] = {-1};
91220 const int ifail_Rank = 1;
91221 PyArrayObject *capi_ifail_tmp = NULL((void*)0);
91222 int capi_ifail_intent = 0;
91223 int info = 0;
91224 static char *capi_kwlist[] = {"d","e","w","iblock","isplit",NULL((void*)0)};
91225
91226/*routdebugenter*/
91227#ifdef F2PY_REPORT_ATEXIT
91228f2py_start_clock();
91229#endif
91230 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
91231 "OOOOO:_flapack.dstein",\
91232 capi_kwlist,&d_capi,&e_capi,&w_capi,&iblock_capi,&isplit_capi))
91233 return NULL((void*)0);
91234/*frompyobj*/
91235 /* Processing variable d */
91236 ;
91237 capi_d_intent |= F2PY_INTENT_IN1;
91238 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
91239 if (capi_d_tmp == NULL((void*)0)) {
91240 if (!PyErr_Occurred())
91241 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dstein to C/Fortran array" );
91242 } else {
91243 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
91244
91245 /* Processing variable w */
91246 ;
91247 capi_w_intent |= F2PY_INTENT_IN1;
91248 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,w_capi);
91249 if (capi_w_tmp == NULL((void*)0)) {
91250 if (!PyErr_Occurred())
91251 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `w' of _flapack.dstein to C/Fortran array" );
91252 } else {
91253 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
91254
91255 /* Processing variable info */
91256 /* Processing variable m */
91257 m = shape(w,0)w_Dims[0];
91258 /* Processing variable n */
91259 n = shape(d,0)d_Dims[0];
91260 CHECKSCALAR(n>0,"n>0","hidden n","dstein:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dstein:n=%d", "(""n>0"") failed for ""hidden n",
n); PyErr_SetString(_flapack_error,errstring); } else
{
91261 /* Processing variable iblock */
91262 iblock_Dims[0]=n;
91263 capi_iblock_intent |= F2PY_INTENT_IN1;
91264 capi_iblock_tmp = array_from_pyobj(NPY_INT,iblock_Dims,iblock_Rank,capi_iblock_intent,iblock_capi);
91265 if (capi_iblock_tmp == NULL((void*)0)) {
91266 if (!PyErr_Occurred())
91267 PyErr_SetString(_flapack_error,"failed in converting 4th argument `iblock' of _flapack.dstein to C/Fortran array" );
91268 } else {
91269 iblock = (int *)(PyArray_DATA(capi_iblock_tmp)((void *)((PyArrayObject_fields *)(capi_iblock_tmp))->data
)
);
91270
91271 /* Processing variable isplit */
91272 isplit_Dims[0]=n;
91273 capi_isplit_intent |= F2PY_INTENT_IN1;
91274 capi_isplit_tmp = array_from_pyobj(NPY_INT,isplit_Dims,isplit_Rank,capi_isplit_intent,isplit_capi);
91275 if (capi_isplit_tmp == NULL((void*)0)) {
91276 if (!PyErr_Occurred())
91277 PyErr_SetString(_flapack_error,"failed in converting 5th argument `isplit' of _flapack.dstein to C/Fortran array" );
91278 } else {
91279 isplit = (int *)(PyArray_DATA(capi_isplit_tmp)((void *)((PyArrayObject_fields *)(capi_isplit_tmp))->data
)
);
91280
91281 /* Processing variable ldz */
91282 ldz = n;
91283 /* Processing variable work */
91284 work_Dims[0]=5 * n;
91285 capi_work_intent |= F2PY_INTENT_HIDE8;
91286 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
91287 if (capi_work_tmp == NULL((void*)0)) {
91288 if (!PyErr_Occurred())
91289 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dstein to C/Fortran array" );
91290 } else {
91291 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
91292
91293 /* Processing variable iwork */
91294 iwork_Dims[0]=n;
91295 capi_iwork_intent |= F2PY_INTENT_HIDE8;
91296 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
91297 if (capi_iwork_tmp == NULL((void*)0)) {
91298 if (!PyErr_Occurred())
91299 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dstein to C/Fortran array" );
91300 } else {
91301 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
91302
91303 /* Processing variable ifail */
91304 ifail_Dims[0]=m;
91305 capi_ifail_intent |= F2PY_INTENT_HIDE8;
91306 capi_ifail_tmp = array_from_pyobj(NPY_INT,ifail_Dims,ifail_Rank,capi_ifail_intent,Py_None(&_Py_NoneStruct));
91307 if (capi_ifail_tmp == NULL((void*)0)) {
91308 if (!PyErr_Occurred())
91309 PyErr_SetString(_flapack_error,"failed in converting hidden `ifail' of _flapack.dstein to C/Fortran array" );
91310 } else {
91311 ifail = (int *)(PyArray_DATA(capi_ifail_tmp)((void *)((PyArrayObject_fields *)(capi_ifail_tmp))->data));
91312
91313 /* Processing variable e */
91314 e_Dims[0]=n - 1;
91315 capi_e_intent |= F2PY_INTENT_IN1;
91316 capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi);
91317 if (capi_e_tmp == NULL((void*)0)) {
91318 if (!PyErr_Occurred())
91319 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dstein to C/Fortran array" );
91320 } else {
91321 e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
91322
91323 /* Processing variable z */
91324 z_Dims[0]=ldz,z_Dims[1]=m;
91325 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
91326 capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
91327 if (capi_z_tmp == NULL((void*)0)) {
91328 if (!PyErr_Occurred())
91329 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.dstein to C/Fortran array" );
91330 } else {
91331 z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
91332
91333/*end of frompyobj*/
91334#ifdef F2PY_REPORT_ATEXIT
91335f2py_start_call_clock();
91336#endif
91337/*callfortranroutine*/
91338 (*f2py_func)(&n,d,e,&m,w,iblock,isplit,z,&ldz,work,iwork,ifail,&info) ;
91339 /*(*f2py_func)(d,e,w,iblock,isplit,&m,&n,z,&ldz,work,iwork,ifail,&info);*/
91340if (PyErr_Occurred())
91341 f2py_success = 0;
91342#ifdef F2PY_REPORT_ATEXIT
91343f2py_stop_call_clock();
91344#endif
91345/*end of callfortranroutine*/
91346 if (f2py_success) {
91347/*pyobjfrom*/
91348/*end of pyobjfrom*/
91349 CFUNCSMESS("Building return value.\n");
91350 capi_buildvalue = Py_BuildValue("Ni",capi_z_tmp,info);
91351/*closepyobjfrom*/
91352/*end of closepyobjfrom*/
91353 } /*if (f2py_success) after callfortranroutine*/
91354/*cleanupfrompyobj*/
91355 } /*if (capi_z_tmp == NULL) ... else of z*/
91356 /* End of cleaning variable z */
91357 if((PyObject *)capi_e_tmp!=e_capi) {
91358 Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); }
91359 } /*if (capi_e_tmp == NULL) ... else of e*/
91360 /* End of cleaning variable e */
91361 Py_XDECREF(capi_ifail_tmp)_Py_XDECREF(((PyObject*)(capi_ifail_tmp)));
91362 } /*if (capi_ifail_tmp == NULL) ... else of ifail*/
91363 /* End of cleaning variable ifail */
91364 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
91365 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
91366 /* End of cleaning variable iwork */
91367 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
91368 } /*if (capi_work_tmp == NULL) ... else of work*/
91369 /* End of cleaning variable work */
91370 /* End of cleaning variable ldz */
91371 if((PyObject *)capi_isplit_tmp!=isplit_capi) {
91372 Py_XDECREF(capi_isplit_tmp)_Py_XDECREF(((PyObject*)(capi_isplit_tmp))); }
91373 } /*if (capi_isplit_tmp == NULL) ... else of isplit*/
91374 /* End of cleaning variable isplit */
91375 if((PyObject *)capi_iblock_tmp!=iblock_capi) {
91376 Py_XDECREF(capi_iblock_tmp)_Py_XDECREF(((PyObject*)(capi_iblock_tmp))); }
91377 } /*if (capi_iblock_tmp == NULL) ... else of iblock*/
91378 /* End of cleaning variable iblock */
91379 } /*CHECKSCALAR(n>0)*/
91380 /* End of cleaning variable n */
91381 /* End of cleaning variable m */
91382 /* End of cleaning variable info */
91383 if((PyObject *)capi_w_tmp!=w_capi) {
91384 Py_XDECREF(capi_w_tmp)_Py_XDECREF(((PyObject*)(capi_w_tmp))); }
91385 } /*if (capi_w_tmp == NULL) ... else of w*/
91386 /* End of cleaning variable w */
91387 if((PyObject *)capi_d_tmp!=d_capi) {
91388 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
91389 } /*if (capi_d_tmp == NULL) ... else of d*/
91390 /* End of cleaning variable d */
91391/*end of cleanupfrompyobj*/
91392 if (capi_buildvalue == NULL((void*)0)) {
91393/*routdebugfailure*/
91394 } else {
91395/*routdebugleave*/
91396 }
91397 CFUNCSMESS("Freeing memory.\n");
91398/*freemem*/
91399#ifdef F2PY_REPORT_ATEXIT
91400f2py_stop_clock();
91401#endif
91402 return capi_buildvalue;
91403}
91404/******************************* end of dstein *******************************/
91405
91406/*********************************** sstemr ***********************************/
91407static char doc_f2py_rout__flapack_sstemr[] = "\
91408m,w,z,info = sstemr(d,e,range,vl,vu,il,iu,[compute_v,lwork,liwork,overwrite_d])\n\nWrapper for ``sstemr``.\
91409\n\nParameters\n----------\n"
91410"d : input rank-1 array('f') with bounds (n)\n"
91411"e : input rank-1 array('f') with bounds (n)\n"
91412"range : input int\n"
91413"vl : input float\n"
91414"vu : input float\n"
91415"il : input int\n"
91416"iu : input int\n"
91417"\nOther Parameters\n----------------\n"
91418"overwrite_d : input int, optional\n Default: 0\n"
91419"compute_v : input int, optional\n Default: 1\n"
91420"lwork : input int, optional\n Default: max((compute_v?18*n:12*n),1)\n"
91421"liwork : input int, optional\n Default: (compute_v?10*n:8*n)\n"
91422"\nReturns\n-------\n"
91423"m : int\n"
91424"w : rank-1 array('f') with bounds (n)\n"
91425"z : rank-2 array('f') with bounds (n,n)\n"
91426"info : int";
91427/* extern void F_FUNC(sstemr,SSTEMR)(char*,char*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT*,F_INT*,float*,float*,F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
91428static PyObject *f2py_rout__flapack_sstemr(const PyObject *capi_self,
91429 PyObject *capi_args,
91430 PyObject *capi_keywds,
91431 void (*f2py_func)(char*,char*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
91432 PyObject * volatile capi_buildvalue = NULL((void*)0);
91433 volatile int f2py_success = 1;
91434/*decl*/
91435
91436 float *d = NULL((void*)0);
91437 npy_intp d_Dims[1] = {-1};
91438 const int d_Rank = 1;
91439 PyArrayObject *capi_d_tmp = NULL((void*)0);
91440 int capi_d_intent = 0;
91441 int capi_overwrite_d = 0;
91442 PyObject *d_capi = Py_None(&_Py_NoneStruct);
91443 float *e = NULL((void*)0);
91444 npy_intp e_Dims[1] = {-1};
91445 const int e_Rank = 1;
91446 PyArrayObject *capi_e_tmp = NULL((void*)0);
91447 int capi_e_intent = 0;
91448 PyObject *e_capi = Py_None(&_Py_NoneStruct);
91449 int range = 0;
91450 PyObject *range_capi = Py_None(&_Py_NoneStruct);
91451 float vl = 0;
91452 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
91453 float vu = 0;
91454 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
91455 int il = 0;
91456 PyObject *il_capi = Py_None(&_Py_NoneStruct);
91457 int iu = 0;
91458 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
91459 int compute_v = 0;
91460 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
91461 int n = 0;
91462 int m = 0;
91463 float *w = NULL((void*)0);
91464 npy_intp w_Dims[1] = {-1};
91465 const int w_Rank = 1;
91466 PyArrayObject *capi_w_tmp = NULL((void*)0);
91467 int capi_w_intent = 0;
91468 float *z = NULL((void*)0);
91469 npy_intp z_Dims[2] = {-1, -1};
91470 const int z_Rank = 2;
91471 PyArrayObject *capi_z_tmp = NULL((void*)0);
91472 int capi_z_intent = 0;
91473 int ldz = 0;
91474 int nzc = 0;
91475 int *isuppz = NULL((void*)0);
91476 npy_intp isuppz_Dims[1] = {-1};
91477 const int isuppz_Rank = 1;
91478 PyArrayObject *capi_isuppz_tmp = NULL((void*)0);
91479 int capi_isuppz_intent = 0;
91480 int tryrac = 0;
91481 float *work = NULL((void*)0);
91482 npy_intp work_Dims[1] = {-1};
91483 const int work_Rank = 1;
91484 PyArrayObject *capi_work_tmp = NULL((void*)0);
91485 int capi_work_intent = 0;
91486 int lwork = 0;
91487 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
91488 int *iwork = NULL((void*)0);
91489 npy_intp iwork_Dims[1] = {-1};
91490 const int iwork_Rank = 1;
91491 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
91492 int capi_iwork_intent = 0;
91493 int liwork = 0;
91494 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
91495 int info = 0;
91496 static char *capi_kwlist[] = {"d","e","range","vl","vu","il","iu","compute_v","lwork","liwork","overwrite_d",NULL((void*)0)};
91497
91498/*routdebugenter*/
91499#ifdef F2PY_REPORT_ATEXIT
91500f2py_start_clock();
91501#endif
91502 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
91503 "OOOOOOO|OOOi:_flapack.sstemr",\
91504 capi_kwlist,&d_capi,&e_capi,&range_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&compute_v_capi,&lwork_capi,&liwork_capi,&capi_overwrite_d))
91505 return NULL((void*)0);
91506/*frompyobj*/
91507 /* Processing variable d */
91508 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
91509 ;
91510 capi_d_intent |= F2PY_INTENT_IN1;
91511 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
91512 if (capi_d_tmp == NULL((void*)0)) {
91513 if (!PyErr_Occurred())
91514 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.sstemr to C/Fortran array" );
91515 } else {
91516 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
91517
91518 /* Processing variable range */
91519 f2py_success = int_from_pyobj(&range,range_capi,"_flapack.sstemr() 3rd argument (range) can't be converted to int");
91520 if (f2py_success) {
91521 /* Processing variable vl */
91522 f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.sstemr() 4th argument (vl) can't be converted to float");
91523 if (f2py_success) {
91524 /* Processing variable vu */
91525 f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.sstemr() 5th argument (vu) can't be converted to float");
91526 if (f2py_success) {
91527 /* Processing variable il */
91528 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.sstemr() 6th argument (il) can't be converted to int");
91529 if (f2py_success) {
91530 /* Processing variable iu */
91531 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.sstemr() 7th argument (iu) can't be converted to int");
91532 if (f2py_success) {
91533 /* Processing variable compute_v */
91534 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
91535 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.sstemr() 1st keyword (compute_v) can't be converted to int");
91536 if (f2py_success) {
91537 /* Processing variable m */
91538 /* Processing variable tryrac */
91539 tryrac = 1;
91540 /* Processing variable info */
91541 /* Processing variable n */
91542 n = shape(d,0)d_Dims[0];
91543 CHECKSCALAR(n>0,"n>0","hidden n","sstemr:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sstemr:n=%d", "(""n>0"") failed for ""hidden n",
n); PyErr_SetString(_flapack_error,errstring); } else
{
91544 /* Processing variable w */
91545 w_Dims[0]=n;
91546 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
91547 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
91548 if (capi_w_tmp == NULL((void*)0)) {
91549 if (!PyErr_Occurred())
91550 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.sstemr to C/Fortran array" );
91551 } else {
91552 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
91553
91554 /* Processing variable z */
91555 z_Dims[0]=n,z_Dims[1]=n;
91556 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
91557 capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
91558 if (capi_z_tmp == NULL((void*)0)) {
91559 if (!PyErr_Occurred())
91560 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.sstemr to C/Fortran array" );
91561 } else {
91562 z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
91563
91564 /* Processing variable ldz */
91565 ldz = (compute_v?n:1);
91566 /* Processing variable nzc */
91567 nzc = n;
91568 /* Processing variable isuppz */
91569 isuppz_Dims[0]=(compute_v?2*n:1);
91570 capi_isuppz_intent |= F2PY_INTENT_HIDE8;
91571 capi_isuppz_tmp = array_from_pyobj(NPY_INT,isuppz_Dims,isuppz_Rank,capi_isuppz_intent,Py_None(&_Py_NoneStruct));
91572 if (capi_isuppz_tmp == NULL((void*)0)) {
91573 if (!PyErr_Occurred())
91574 PyErr_SetString(_flapack_error,"failed in converting hidden `isuppz' of _flapack.sstemr to C/Fortran array" );
91575 } else {
91576 isuppz = (int *)(PyArray_DATA(capi_isuppz_tmp)((void *)((PyArrayObject_fields *)(capi_isuppz_tmp))->data
)
);
91577
91578 /* Processing variable lwork */
91579 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max((compute_v?18*n:12*n),1)(((compute_v?18*n:12*n) > 1) ? ((compute_v?18*n:12*n)) : (
1))
; else
91580 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.sstemr() 2nd keyword (lwork) can't be converted to int");
91581 if (f2py_success) {
91582 CHECKSCALAR(lwork>=(compute_v?18*n:12*n),"lwork>=(compute_v?18*n:12*n)","2nd keyword lwork","sstemr:lwork=%d",lwork)if (!(lwork>=(compute_v?18*n:12*n))) { char errstring[256]
; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""sstemr:lwork=%d", "(""lwork>=(compute_v?18*n:12*n)"
") failed for ""2nd keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
91583 /* Processing variable work */
91584 work_Dims[0]=lwork;
91585 capi_work_intent |= F2PY_INTENT_HIDE8;
91586 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
91587 if (capi_work_tmp == NULL((void*)0)) {
91588 if (!PyErr_Occurred())
91589 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sstemr to C/Fortran array" );
91590 } else {
91591 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
91592
91593 /* Processing variable liwork */
91594 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (compute_v?10*n:8*n); else
91595 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.sstemr() 3rd keyword (liwork) can't be converted to int");
91596 if (f2py_success) {
91597 CHECKSCALAR(liwork>=(compute_v?10*n:8*n),"liwork>=(compute_v?10*n:8*n)","3rd keyword liwork","sstemr:liwork=%d",liwork)if (!(liwork>=(compute_v?10*n:8*n))) { char errstring[256]
; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""sstemr:liwork=%d", "(""liwork>=(compute_v?10*n:8*n)"
") failed for ""3rd keyword liwork", liwork); PyErr_SetString
(_flapack_error,errstring); } else
{
91598 /* Processing variable iwork */
91599 iwork_Dims[0]=liwork;
91600 capi_iwork_intent |= F2PY_INTENT_HIDE8;
91601 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
91602 if (capi_iwork_tmp == NULL((void*)0)) {
91603 if (!PyErr_Occurred())
91604 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.sstemr to C/Fortran array" );
91605 } else {
91606 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
91607
91608 /* Processing variable e */
91609 e_Dims[0]=n;
91610 capi_e_intent |= F2PY_INTENT_IN1;
91611 capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi);
91612 if (capi_e_tmp == NULL((void*)0)) {
91613 if (!PyErr_Occurred())
91614 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.sstemr to C/Fortran array" );
91615 } else {
91616 e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
91617
91618/*end of frompyobj*/
91619#ifdef F2PY_REPORT_ATEXIT
91620f2py_start_call_clock();
91621#endif
91622/*callfortranroutine*/
91623 (*f2py_func)((compute_v?"V":"N"),(range>0?(range==1?"V":"I"):"A"),&n,d,e,&vl,&vu,&il,&iu,&m,w,z,&ldz,&nzc,isuppz,&tryrac,work,&lwork,iwork,&liwork,&info) ;
91624 /*(*f2py_func)(d,e,&range,&vl,&vu,&il,&iu,&compute_v,&n,&m,w,z,&ldz,&nzc,isuppz,&tryrac,work,&lwork,iwork,&liwork,&info);*/
91625if (PyErr_Occurred())
91626 f2py_success = 0;
91627#ifdef F2PY_REPORT_ATEXIT
91628f2py_stop_call_clock();
91629#endif
91630/*end of callfortranroutine*/
91631 if (f2py_success) {
91632/*pyobjfrom*/
91633/*end of pyobjfrom*/
91634 CFUNCSMESS("Building return value.\n");
91635 capi_buildvalue = Py_BuildValue("iNNi",m,capi_w_tmp,capi_z_tmp,info);
91636/*closepyobjfrom*/
91637/*end of closepyobjfrom*/
91638 } /*if (f2py_success) after callfortranroutine*/
91639/*cleanupfrompyobj*/
91640 if((PyObject *)capi_e_tmp!=e_capi) {
91641 Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); }
91642 } /*if (capi_e_tmp == NULL) ... else of e*/
91643 /* End of cleaning variable e */
91644 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
91645 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
91646 /* End of cleaning variable iwork */
91647 } /*CHECKSCALAR(liwork>=(compute_v?10*n:8*n))*/
91648 } /*if (f2py_success) of liwork*/
91649 /* End of cleaning variable liwork */
91650 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
91651 } /*if (capi_work_tmp == NULL) ... else of work*/
91652 /* End of cleaning variable work */
91653 } /*CHECKSCALAR(lwork>=(compute_v?18*n:12*n))*/
91654 } /*if (f2py_success) of lwork*/
91655 /* End of cleaning variable lwork */
91656 Py_XDECREF(capi_isuppz_tmp)_Py_XDECREF(((PyObject*)(capi_isuppz_tmp)));
91657 } /*if (capi_isuppz_tmp == NULL) ... else of isuppz*/
91658 /* End of cleaning variable isuppz */
91659 /* End of cleaning variable nzc */
91660 /* End of cleaning variable ldz */
91661 } /*if (capi_z_tmp == NULL) ... else of z*/
91662 /* End of cleaning variable z */
91663 } /*if (capi_w_tmp == NULL) ... else of w*/
91664 /* End of cleaning variable w */
91665 } /*CHECKSCALAR(n>0)*/
91666 /* End of cleaning variable n */
91667 /* End of cleaning variable info */
91668 /* End of cleaning variable tryrac */
91669 /* End of cleaning variable m */
91670 } /*if (f2py_success) of compute_v*/
91671 /* End of cleaning variable compute_v */
91672 } /*if (f2py_success) of iu*/
91673 /* End of cleaning variable iu */
91674 } /*if (f2py_success) of il*/
91675 /* End of cleaning variable il */
91676 } /*if (f2py_success) of vu*/
91677 /* End of cleaning variable vu */
91678 } /*if (f2py_success) of vl*/
91679 /* End of cleaning variable vl */
91680 } /*if (f2py_success) of range*/
91681 /* End of cleaning variable range */
91682 if((PyObject *)capi_d_tmp!=d_capi) {
91683 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
91684 } /*if (capi_d_tmp == NULL) ... else of d*/
91685 /* End of cleaning variable d */
91686/*end of cleanupfrompyobj*/
91687 if (capi_buildvalue == NULL((void*)0)) {
91688/*routdebugfailure*/
91689 } else {
91690/*routdebugleave*/
91691 }
91692 CFUNCSMESS("Freeing memory.\n");
91693/*freemem*/
91694#ifdef F2PY_REPORT_ATEXIT
91695f2py_stop_clock();
91696#endif
91697 return capi_buildvalue;
91698}
91699/******************************* end of sstemr *******************************/
91700
91701/*********************************** dstemr ***********************************/
91702static char doc_f2py_rout__flapack_dstemr[] = "\
91703m,w,z,info = dstemr(d,e,range,vl,vu,il,iu,[compute_v,lwork,liwork,overwrite_d])\n\nWrapper for ``dstemr``.\
91704\n\nParameters\n----------\n"
91705"d : input rank-1 array('d') with bounds (n)\n"
91706"e : input rank-1 array('d') with bounds (n)\n"
91707"range : input int\n"
91708"vl : input float\n"
91709"vu : input float\n"
91710"il : input int\n"
91711"iu : input int\n"
91712"\nOther Parameters\n----------------\n"
91713"overwrite_d : input int, optional\n Default: 0\n"
91714"compute_v : input int, optional\n Default: 1\n"
91715"lwork : input int, optional\n Default: max((compute_v?18*n:12*n),1)\n"
91716"liwork : input int, optional\n Default: (compute_v?10*n:8*n)\n"
91717"\nReturns\n-------\n"
91718"m : int\n"
91719"w : rank-1 array('d') with bounds (n)\n"
91720"z : rank-2 array('d') with bounds (n,n)\n"
91721"info : int";
91722/* extern void F_FUNC(dstemr,DSTEMR)(char*,char*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT*,F_INT*,double*,double*,F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
91723static PyObject *f2py_rout__flapack_dstemr(const PyObject *capi_self,
91724 PyObject *capi_args,
91725 PyObject *capi_keywds,
91726 void (*f2py_func)(char*,char*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
91727 PyObject * volatile capi_buildvalue = NULL((void*)0);
91728 volatile int f2py_success = 1;
91729/*decl*/
91730
91731 double *d = NULL((void*)0);
91732 npy_intp d_Dims[1] = {-1};
91733 const int d_Rank = 1;
91734 PyArrayObject *capi_d_tmp = NULL((void*)0);
91735 int capi_d_intent = 0;
91736 int capi_overwrite_d = 0;
91737 PyObject *d_capi = Py_None(&_Py_NoneStruct);
91738 double *e = NULL((void*)0);
91739 npy_intp e_Dims[1] = {-1};
91740 const int e_Rank = 1;
91741 PyArrayObject *capi_e_tmp = NULL((void*)0);
91742 int capi_e_intent = 0;
91743 PyObject *e_capi = Py_None(&_Py_NoneStruct);
91744 int range = 0;
91745 PyObject *range_capi = Py_None(&_Py_NoneStruct);
91746 double vl = 0;
91747 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
91748 double vu = 0;
91749 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
91750 int il = 0;
91751 PyObject *il_capi = Py_None(&_Py_NoneStruct);
91752 int iu = 0;
91753 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
91754 int compute_v = 0;
91755 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
91756 int n = 0;
91757 int m = 0;
91758 double *w = NULL((void*)0);
91759 npy_intp w_Dims[1] = {-1};
91760 const int w_Rank = 1;
91761 PyArrayObject *capi_w_tmp = NULL((void*)0);
91762 int capi_w_intent = 0;
91763 double *z = NULL((void*)0);
91764 npy_intp z_Dims[2] = {-1, -1};
91765 const int z_Rank = 2;
91766 PyArrayObject *capi_z_tmp = NULL((void*)0);
91767 int capi_z_intent = 0;
91768 int ldz = 0;
91769 int nzc = 0;
91770 int *isuppz = NULL((void*)0);
91771 npy_intp isuppz_Dims[1] = {-1};
91772 const int isuppz_Rank = 1;
91773 PyArrayObject *capi_isuppz_tmp = NULL((void*)0);
91774 int capi_isuppz_intent = 0;
91775 int tryrac = 0;
91776 double *work = NULL((void*)0);
91777 npy_intp work_Dims[1] = {-1};
91778 const int work_Rank = 1;
91779 PyArrayObject *capi_work_tmp = NULL((void*)0);
91780 int capi_work_intent = 0;
91781 int lwork = 0;
91782 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
91783 int *iwork = NULL((void*)0);
91784 npy_intp iwork_Dims[1] = {-1};
91785 const int iwork_Rank = 1;
91786 PyArrayObject *capi_iwork_tmp = NULL((void*)0);
91787 int capi_iwork_intent = 0;
91788 int liwork = 0;
91789 PyObject *liwork_capi = Py_None(&_Py_NoneStruct);
91790 int info = 0;
91791 static char *capi_kwlist[] = {"d","e","range","vl","vu","il","iu","compute_v","lwork","liwork","overwrite_d",NULL((void*)0)};
91792
91793/*routdebugenter*/
91794#ifdef F2PY_REPORT_ATEXIT
91795f2py_start_clock();
91796#endif
91797 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
91798 "OOOOOOO|OOOi:_flapack.dstemr",\
91799 capi_kwlist,&d_capi,&e_capi,&range_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&compute_v_capi,&lwork_capi,&liwork_capi,&capi_overwrite_d))
91800 return NULL((void*)0);
91801/*frompyobj*/
91802 /* Processing variable d */
91803 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
91804 ;
91805 capi_d_intent |= F2PY_INTENT_IN1;
91806 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
91807 if (capi_d_tmp == NULL((void*)0)) {
91808 if (!PyErr_Occurred())
91809 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dstemr to C/Fortran array" );
91810 } else {
91811 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
91812
91813 /* Processing variable range */
91814 f2py_success = int_from_pyobj(&range,range_capi,"_flapack.dstemr() 3rd argument (range) can't be converted to int");
91815 if (f2py_success) {
91816 /* Processing variable vl */
91817 f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.dstemr() 4th argument (vl) can't be converted to double");
91818 if (f2py_success) {
91819 /* Processing variable vu */
91820 f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.dstemr() 5th argument (vu) can't be converted to double");
91821 if (f2py_success) {
91822 /* Processing variable il */
91823 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.dstemr() 6th argument (il) can't be converted to int");
91824 if (f2py_success) {
91825 /* Processing variable iu */
91826 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.dstemr() 7th argument (iu) can't be converted to int");
91827 if (f2py_success) {
91828 /* Processing variable compute_v */
91829 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
91830 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dstemr() 1st keyword (compute_v) can't be converted to int");
91831 if (f2py_success) {
91832 /* Processing variable m */
91833 /* Processing variable tryrac */
91834 tryrac = 1;
91835 /* Processing variable info */
91836 /* Processing variable n */
91837 n = shape(d,0)d_Dims[0];
91838 CHECKSCALAR(n>0,"n>0","hidden n","dstemr:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dstemr:n=%d", "(""n>0"") failed for ""hidden n",
n); PyErr_SetString(_flapack_error,errstring); } else
{
91839 /* Processing variable w */
91840 w_Dims[0]=n;
91841 capi_w_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
91842 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
91843 if (capi_w_tmp == NULL((void*)0)) {
91844 if (!PyErr_Occurred())
91845 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dstemr to C/Fortran array" );
91846 } else {
91847 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
91848
91849 /* Processing variable z */
91850 z_Dims[0]=n,z_Dims[1]=n;
91851 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
91852 capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
91853 if (capi_z_tmp == NULL((void*)0)) {
91854 if (!PyErr_Occurred())
91855 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.dstemr to C/Fortran array" );
91856 } else {
91857 z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
91858
91859 /* Processing variable ldz */
91860 ldz = (compute_v?n:1);
91861 /* Processing variable nzc */
91862 nzc = n;
91863 /* Processing variable isuppz */
91864 isuppz_Dims[0]=(compute_v?2*n:1);
91865 capi_isuppz_intent |= F2PY_INTENT_HIDE8;
91866 capi_isuppz_tmp = array_from_pyobj(NPY_INT,isuppz_Dims,isuppz_Rank,capi_isuppz_intent,Py_None(&_Py_NoneStruct));
91867 if (capi_isuppz_tmp == NULL((void*)0)) {
91868 if (!PyErr_Occurred())
91869 PyErr_SetString(_flapack_error,"failed in converting hidden `isuppz' of _flapack.dstemr to C/Fortran array" );
91870 } else {
91871 isuppz = (int *)(PyArray_DATA(capi_isuppz_tmp)((void *)((PyArrayObject_fields *)(capi_isuppz_tmp))->data
)
);
91872
91873 /* Processing variable lwork */
91874 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = max((compute_v?18*n:12*n),1)(((compute_v?18*n:12*n) > 1) ? ((compute_v?18*n:12*n)) : (
1))
; else
91875 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dstemr() 2nd keyword (lwork) can't be converted to int");
91876 if (f2py_success) {
91877 CHECKSCALAR(lwork>=(compute_v?18*n:12*n),"lwork>=(compute_v?18*n:12*n)","2nd keyword lwork","dstemr:lwork=%d",lwork)if (!(lwork>=(compute_v?18*n:12*n))) { char errstring[256]
; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dstemr:lwork=%d", "(""lwork>=(compute_v?18*n:12*n)"
") failed for ""2nd keyword lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
91878 /* Processing variable work */
91879 work_Dims[0]=lwork;
91880 capi_work_intent |= F2PY_INTENT_HIDE8;
91881 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
91882 if (capi_work_tmp == NULL((void*)0)) {
91883 if (!PyErr_Occurred())
91884 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dstemr to C/Fortran array" );
91885 } else {
91886 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
91887
91888 /* Processing variable liwork */
91889 if (liwork_capi == Py_None(&_Py_NoneStruct)) liwork = (compute_v?10*n:8*n); else
91890 f2py_success = int_from_pyobj(&liwork,liwork_capi,"_flapack.dstemr() 3rd keyword (liwork) can't be converted to int");
91891 if (f2py_success) {
91892 CHECKSCALAR(liwork>=(compute_v?10*n:8*n),"liwork>=(compute_v?10*n:8*n)","3rd keyword liwork","dstemr:liwork=%d",liwork)if (!(liwork>=(compute_v?10*n:8*n))) { char errstring[256]
; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dstemr:liwork=%d", "(""liwork>=(compute_v?10*n:8*n)"
") failed for ""3rd keyword liwork", liwork); PyErr_SetString
(_flapack_error,errstring); } else
{
91893 /* Processing variable iwork */
91894 iwork_Dims[0]=liwork;
91895 capi_iwork_intent |= F2PY_INTENT_HIDE8;
91896 capi_iwork_tmp = array_from_pyobj(NPY_INT,iwork_Dims,iwork_Rank,capi_iwork_intent,Py_None(&_Py_NoneStruct));
91897 if (capi_iwork_tmp == NULL((void*)0)) {
91898 if (!PyErr_Occurred())
91899 PyErr_SetString(_flapack_error,"failed in converting hidden `iwork' of _flapack.dstemr to C/Fortran array" );
91900 } else {
91901 iwork = (int *)(PyArray_DATA(capi_iwork_tmp)((void *)((PyArrayObject_fields *)(capi_iwork_tmp))->data));
91902
91903 /* Processing variable e */
91904 e_Dims[0]=n;
91905 capi_e_intent |= F2PY_INTENT_IN1;
91906 capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi);
91907 if (capi_e_tmp == NULL((void*)0)) {
91908 if (!PyErr_Occurred())
91909 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dstemr to C/Fortran array" );
91910 } else {
91911 e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
91912
91913/*end of frompyobj*/
91914#ifdef F2PY_REPORT_ATEXIT
91915f2py_start_call_clock();
91916#endif
91917/*callfortranroutine*/
91918 (*f2py_func)((compute_v?"V":"N"),(range>0?(range==1?"V":"I"):"A"),&n,d,e,&vl,&vu,&il,&iu,&m,w,z,&ldz,&nzc,isuppz,&tryrac,work,&lwork,iwork,&liwork,&info) ;
91919 /*(*f2py_func)(d,e,&range,&vl,&vu,&il,&iu,&compute_v,&n,&m,w,z,&ldz,&nzc,isuppz,&tryrac,work,&lwork,iwork,&liwork,&info);*/
91920if (PyErr_Occurred())
91921 f2py_success = 0;
91922#ifdef F2PY_REPORT_ATEXIT
91923f2py_stop_call_clock();
91924#endif
91925/*end of callfortranroutine*/
91926 if (f2py_success) {
91927/*pyobjfrom*/
91928/*end of pyobjfrom*/
91929 CFUNCSMESS("Building return value.\n");
91930 capi_buildvalue = Py_BuildValue("iNNi",m,capi_w_tmp,capi_z_tmp,info);
91931/*closepyobjfrom*/
91932/*end of closepyobjfrom*/
91933 } /*if (f2py_success) after callfortranroutine*/
91934/*cleanupfrompyobj*/
91935 if((PyObject *)capi_e_tmp!=e_capi) {
91936 Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); }
91937 } /*if (capi_e_tmp == NULL) ... else of e*/
91938 /* End of cleaning variable e */
91939 Py_XDECREF(capi_iwork_tmp)_Py_XDECREF(((PyObject*)(capi_iwork_tmp)));
91940 } /*if (capi_iwork_tmp == NULL) ... else of iwork*/
91941 /* End of cleaning variable iwork */
91942 } /*CHECKSCALAR(liwork>=(compute_v?10*n:8*n))*/
91943 } /*if (f2py_success) of liwork*/
91944 /* End of cleaning variable liwork */
91945 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
91946 } /*if (capi_work_tmp == NULL) ... else of work*/
91947 /* End of cleaning variable work */
91948 } /*CHECKSCALAR(lwork>=(compute_v?18*n:12*n))*/
91949 } /*if (f2py_success) of lwork*/
91950 /* End of cleaning variable lwork */
91951 Py_XDECREF(capi_isuppz_tmp)_Py_XDECREF(((PyObject*)(capi_isuppz_tmp)));
91952 } /*if (capi_isuppz_tmp == NULL) ... else of isuppz*/
91953 /* End of cleaning variable isuppz */
91954 /* End of cleaning variable nzc */
91955 /* End of cleaning variable ldz */
91956 } /*if (capi_z_tmp == NULL) ... else of z*/
91957 /* End of cleaning variable z */
91958 } /*if (capi_w_tmp == NULL) ... else of w*/
91959 /* End of cleaning variable w */
91960 } /*CHECKSCALAR(n>0)*/
91961 /* End of cleaning variable n */
91962 /* End of cleaning variable info */
91963 /* End of cleaning variable tryrac */
91964 /* End of cleaning variable m */
91965 } /*if (f2py_success) of compute_v*/
91966 /* End of cleaning variable compute_v */
91967 } /*if (f2py_success) of iu*/
91968 /* End of cleaning variable iu */
91969 } /*if (f2py_success) of il*/
91970 /* End of cleaning variable il */
91971 } /*if (f2py_success) of vu*/
91972 /* End of cleaning variable vu */
91973 } /*if (f2py_success) of vl*/
91974 /* End of cleaning variable vl */
91975 } /*if (f2py_success) of range*/
91976 /* End of cleaning variable range */
91977 if((PyObject *)capi_d_tmp!=d_capi) {
91978 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
91979 } /*if (capi_d_tmp == NULL) ... else of d*/
91980 /* End of cleaning variable d */
91981/*end of cleanupfrompyobj*/
91982 if (capi_buildvalue == NULL((void*)0)) {
91983/*routdebugfailure*/
91984 } else {
91985/*routdebugleave*/
91986 }
91987 CFUNCSMESS("Freeing memory.\n");
91988/*freemem*/
91989#ifdef F2PY_REPORT_ATEXIT
91990f2py_stop_clock();
91991#endif
91992 return capi_buildvalue;
91993}
91994/******************************* end of dstemr *******************************/
91995
91996/******************************** sstemr_lwork ********************************/
91997static char doc_f2py_rout__flapack_sstemr_lwork[] = "\
91998work,iwork,info = sstemr_lwork(d,e,range,vl,vu,il,iu,[compute_v,overwrite_d,overwrite_e])\n\nWrapper for ``sstemr_lwork``.\
91999\n\nParameters\n----------\n"
92000"d : input rank-1 array('f') with bounds (n)\n"
92001"e : input rank-1 array('f') with bounds (n)\n"
92002"range : input int\n"
92003"vl : input float\n"
92004"vu : input float\n"
92005"il : input int\n"
92006"iu : input int\n"
92007"\nOther Parameters\n----------------\n"
92008"overwrite_d : input int, optional\n Default: 0\n"
92009"overwrite_e : input int, optional\n Default: 0\n"
92010"compute_v : input int, optional\n Default: 1\n"
92011"\nReturns\n-------\n"
92012"work : float\n"
92013"iwork : int\n"
92014"info : int";
92015/* extern void F_FUNC(cstemr ,CSTEMR )(char*,char*,F_INT*,float*,float*,float*,float*,F_INT*,F_INT*,F_INT*,float*,float*,F_INT*,F_INT*,F_INT*,F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT* ); */
92016static PyObject *f2py_rout__flapack_sstemr_lwork(const PyObject *capi_self,
92017 PyObject *capi_args,
92018 PyObject *capi_keywds,
92019 void (*f2py_func)(char*,char*,F_INTint*,float*,float*,float*,float*,F_INTint*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
92020 PyObject * volatile capi_buildvalue = NULL((void*)0);
92021 volatile int f2py_success = 1;
92022/*decl*/
92023
92024 float *d = NULL((void*)0);
92025 npy_intp d_Dims[1] = {-1};
92026 const int d_Rank = 1;
92027 PyArrayObject *capi_d_tmp = NULL((void*)0);
92028 int capi_d_intent = 0;
92029 int capi_overwrite_d = 0;
92030 PyObject *d_capi = Py_None(&_Py_NoneStruct);
92031 float *e = NULL((void*)0);
92032 npy_intp e_Dims[1] = {-1};
92033 const int e_Rank = 1;
92034 PyArrayObject *capi_e_tmp = NULL((void*)0);
92035 int capi_e_intent = 0;
92036 int capi_overwrite_e = 0;
92037 PyObject *e_capi = Py_None(&_Py_NoneStruct);
92038 int range = 0;
92039 PyObject *range_capi = Py_None(&_Py_NoneStruct);
92040 float vl = 0;
92041 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
92042 float vu = 0;
92043 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
92044 int il = 0;
92045 PyObject *il_capi = Py_None(&_Py_NoneStruct);
92046 int iu = 0;
92047 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
92048 int compute_v = 0;
92049 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
92050 int n = 0;
92051 int m = 0;
92052 float *w = NULL((void*)0);
92053 npy_intp w_Dims[1] = {-1};
92054 const int w_Rank = 1;
92055 PyArrayObject *capi_w_tmp = NULL((void*)0);
92056 int capi_w_intent = 0;
92057 float *z = NULL((void*)0);
92058 npy_intp z_Dims[2] = {-1, -1};
92059 const int z_Rank = 2;
92060 PyArrayObject *capi_z_tmp = NULL((void*)0);
92061 int capi_z_intent = 0;
92062 int ldz = 0;
92063 int nzc = 0;
92064 int *isuppz = NULL((void*)0);
92065 npy_intp isuppz_Dims[1] = {-1};
92066 const int isuppz_Rank = 1;
92067 PyArrayObject *capi_isuppz_tmp = NULL((void*)0);
92068 int capi_isuppz_intent = 0;
92069 int tryrac = 0;
92070 float work = 0;
92071 int lwork = 0;
92072 int iwork = 0;
92073 int liwork = 0;
92074 int info = 0;
92075 static char *capi_kwlist[] = {"d","e","range","vl","vu","il","iu","compute_v","overwrite_d","overwrite_e",NULL((void*)0)};
92076
92077/*routdebugenter*/
92078#ifdef F2PY_REPORT_ATEXIT
92079f2py_start_clock();
92080#endif
92081 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
92082 "OOOOOOO|Oii:_flapack.sstemr_lwork",\
92083 capi_kwlist,&d_capi,&e_capi,&range_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&compute_v_capi,&capi_overwrite_d,&capi_overwrite_e))
92084 return NULL((void*)0);
92085/*frompyobj*/
92086 /* Processing variable d */
92087 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
92088 ;
92089 capi_d_intent |= F2PY_INTENT_IN1;
92090 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
92091 if (capi_d_tmp == NULL((void*)0)) {
92092 if (!PyErr_Occurred())
92093 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.sstemr_lwork to C/Fortran array" );
92094 } else {
92095 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
92096
92097 /* Processing variable range */
92098 f2py_success = int_from_pyobj(&range,range_capi,"_flapack.sstemr_lwork() 3rd argument (range) can't be converted to int");
92099 if (f2py_success) {
92100 /* Processing variable vl */
92101 f2py_success = float_from_pyobj(&vl,vl_capi,"_flapack.sstemr_lwork() 4th argument (vl) can't be converted to float");
92102 if (f2py_success) {
92103 /* Processing variable vu */
92104 f2py_success = float_from_pyobj(&vu,vu_capi,"_flapack.sstemr_lwork() 5th argument (vu) can't be converted to float");
92105 if (f2py_success) {
92106 /* Processing variable il */
92107 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.sstemr_lwork() 6th argument (il) can't be converted to int");
92108 if (f2py_success) {
92109 /* Processing variable iu */
92110 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.sstemr_lwork() 7th argument (iu) can't be converted to int");
92111 if (f2py_success) {
92112 /* Processing variable compute_v */
92113 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
92114 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.sstemr_lwork() 1st keyword (compute_v) can't be converted to int");
92115 if (f2py_success) {
92116 /* Processing variable m */
92117 /* Processing variable tryrac */
92118 tryrac = 1;
92119 /* Processing variable work */
92120 /* Processing variable liwork */
92121 liwork = -1;
92122 /* Processing variable iwork */
92123 /* Processing variable info */
92124 /* Processing variable n */
92125 n = shape(d,0)d_Dims[0];
92126 CHECKSCALAR(n>0,"n>0","hidden n","sstemr_lwork:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sstemr_lwork:n=%d", "(""n>0"") failed for ""hidden n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
92127 /* Processing variable w */
92128 w_Dims[0]=n;
92129 capi_w_intent |= F2PY_INTENT_HIDE8;
92130 capi_w_tmp = array_from_pyobj(NPY_FLOAT,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
92131 if (capi_w_tmp == NULL((void*)0)) {
92132 if (!PyErr_Occurred())
92133 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.sstemr_lwork to C/Fortran array" );
92134 } else {
92135 w = (float *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
92136
92137 /* Processing variable z */
92138 z_Dims[0]=n,z_Dims[1]=n;
92139 capi_z_intent |= F2PY_INTENT_HIDE8;
92140 capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
92141 if (capi_z_tmp == NULL((void*)0)) {
92142 if (!PyErr_Occurred())
92143 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.sstemr_lwork to C/Fortran array" );
92144 } else {
92145 z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
92146
92147 /* Processing variable ldz */
92148 ldz = (compute_v?n:1);
92149 /* Processing variable nzc */
92150 nzc = n;
92151 /* Processing variable isuppz */
92152 isuppz_Dims[0]=(compute_v?2*n:1);
92153 capi_isuppz_intent |= F2PY_INTENT_HIDE8;
92154 capi_isuppz_tmp = array_from_pyobj(NPY_INT,isuppz_Dims,isuppz_Rank,capi_isuppz_intent,Py_None(&_Py_NoneStruct));
92155 if (capi_isuppz_tmp == NULL((void*)0)) {
92156 if (!PyErr_Occurred())
92157 PyErr_SetString(_flapack_error,"failed in converting hidden `isuppz' of _flapack.sstemr_lwork to C/Fortran array" );
92158 } else {
92159 isuppz = (int *)(PyArray_DATA(capi_isuppz_tmp)((void *)((PyArrayObject_fields *)(capi_isuppz_tmp))->data
)
);
92160
92161 /* Processing variable lwork */
92162 lwork = -1;
92163 /* Processing variable e */
92164 capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32);
92165 e_Dims[0]=n;
92166 capi_e_intent |= F2PY_INTENT_IN1;
92167 capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi);
92168 if (capi_e_tmp == NULL((void*)0)) {
92169 if (!PyErr_Occurred())
92170 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.sstemr_lwork to C/Fortran array" );
92171 } else {
92172 e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
92173
92174/*end of frompyobj*/
92175#ifdef F2PY_REPORT_ATEXIT
92176f2py_start_call_clock();
92177#endif
92178/*callfortranroutine*/
92179 (*f2py_func)((compute_v?"V":"N"),(range>0?(range==1?"V":"I"):"A"),&n,d,e,&vl,&vu,&il,&iu,&m,w,z,&ldz,&nzc,isuppz,&tryrac,&work,&lwork,&iwork,&liwork,&info) ;
92180 /*(*f2py_func)(d,e,&range,&vl,&vu,&il,&iu,&compute_v,&n,&m,w,z,&ldz,&nzc,isuppz,&tryrac,&work,&lwork,&iwork,&liwork,&info);*/
92181if (PyErr_Occurred())
92182 f2py_success = 0;
92183#ifdef F2PY_REPORT_ATEXIT
92184f2py_stop_call_clock();
92185#endif
92186/*end of callfortranroutine*/
92187 if (f2py_success) {
92188/*pyobjfrom*/
92189/*end of pyobjfrom*/
92190 CFUNCSMESS("Building return value.\n");
92191 capi_buildvalue = Py_BuildValue("fii",work,iwork,info);
92192/*closepyobjfrom*/
92193/*end of closepyobjfrom*/
92194 } /*if (f2py_success) after callfortranroutine*/
92195/*cleanupfrompyobj*/
92196 if((PyObject *)capi_e_tmp!=e_capi) {
92197 Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); }
92198 } /*if (capi_e_tmp == NULL) ... else of e*/
92199 /* End of cleaning variable e */
92200 /* End of cleaning variable lwork */
92201 Py_XDECREF(capi_isuppz_tmp)_Py_XDECREF(((PyObject*)(capi_isuppz_tmp)));
92202 } /*if (capi_isuppz_tmp == NULL) ... else of isuppz*/
92203 /* End of cleaning variable isuppz */
92204 /* End of cleaning variable nzc */
92205 /* End of cleaning variable ldz */
92206 Py_XDECREF(capi_z_tmp)_Py_XDECREF(((PyObject*)(capi_z_tmp)));
92207 } /*if (capi_z_tmp == NULL) ... else of z*/
92208 /* End of cleaning variable z */
92209 Py_XDECREF(capi_w_tmp)_Py_XDECREF(((PyObject*)(capi_w_tmp)));
92210 } /*if (capi_w_tmp == NULL) ... else of w*/
92211 /* End of cleaning variable w */
92212 } /*CHECKSCALAR(n>0)*/
92213 /* End of cleaning variable n */
92214 /* End of cleaning variable info */
92215 /* End of cleaning variable iwork */
92216 /* End of cleaning variable liwork */
92217 /* End of cleaning variable work */
92218 /* End of cleaning variable tryrac */
92219 /* End of cleaning variable m */
92220 } /*if (f2py_success) of compute_v*/
92221 /* End of cleaning variable compute_v */
92222 } /*if (f2py_success) of iu*/
92223 /* End of cleaning variable iu */
92224 } /*if (f2py_success) of il*/
92225 /* End of cleaning variable il */
92226 } /*if (f2py_success) of vu*/
92227 /* End of cleaning variable vu */
92228 } /*if (f2py_success) of vl*/
92229 /* End of cleaning variable vl */
92230 } /*if (f2py_success) of range*/
92231 /* End of cleaning variable range */
92232 if((PyObject *)capi_d_tmp!=d_capi) {
92233 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
92234 } /*if (capi_d_tmp == NULL) ... else of d*/
92235 /* End of cleaning variable d */
92236/*end of cleanupfrompyobj*/
92237 if (capi_buildvalue == NULL((void*)0)) {
92238/*routdebugfailure*/
92239 } else {
92240/*routdebugleave*/
92241 }
92242 CFUNCSMESS("Freeing memory.\n");
92243/*freemem*/
92244#ifdef F2PY_REPORT_ATEXIT
92245f2py_stop_clock();
92246#endif
92247 return capi_buildvalue;
92248}
92249/**************************** end of sstemr_lwork ****************************/
92250
92251/******************************** dstemr_lwork ********************************/
92252static char doc_f2py_rout__flapack_dstemr_lwork[] = "\
92253work,iwork,info = dstemr_lwork(d,e,range,vl,vu,il,iu,[compute_v,overwrite_d,overwrite_e])\n\nWrapper for ``dstemr_lwork``.\
92254\n\nParameters\n----------\n"
92255"d : input rank-1 array('d') with bounds (n)\n"
92256"e : input rank-1 array('d') with bounds (n)\n"
92257"range : input int\n"
92258"vl : input float\n"
92259"vu : input float\n"
92260"il : input int\n"
92261"iu : input int\n"
92262"\nOther Parameters\n----------------\n"
92263"overwrite_d : input int, optional\n Default: 0\n"
92264"overwrite_e : input int, optional\n Default: 0\n"
92265"compute_v : input int, optional\n Default: 1\n"
92266"\nReturns\n-------\n"
92267"work : float\n"
92268"iwork : int\n"
92269"info : int";
92270/* extern void F_FUNC(zstemr ,ZSTEMR )(char*,char*,F_INT*,double*,double*,double*,double*,F_INT*,F_INT*,F_INT*,double*,double*,F_INT*,F_INT*,F_INT*,F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT* ); */
92271static PyObject *f2py_rout__flapack_dstemr_lwork(const PyObject *capi_self,
92272 PyObject *capi_args,
92273 PyObject *capi_keywds,
92274 void (*f2py_func)(char*,char*,F_INTint*,double*,double*,double*,double*,F_INTint*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
92275 PyObject * volatile capi_buildvalue = NULL((void*)0);
92276 volatile int f2py_success = 1;
92277/*decl*/
92278
92279 double *d = NULL((void*)0);
92280 npy_intp d_Dims[1] = {-1};
92281 const int d_Rank = 1;
92282 PyArrayObject *capi_d_tmp = NULL((void*)0);
92283 int capi_d_intent = 0;
92284 int capi_overwrite_d = 0;
92285 PyObject *d_capi = Py_None(&_Py_NoneStruct);
92286 double *e = NULL((void*)0);
92287 npy_intp e_Dims[1] = {-1};
92288 const int e_Rank = 1;
92289 PyArrayObject *capi_e_tmp = NULL((void*)0);
92290 int capi_e_intent = 0;
92291 int capi_overwrite_e = 0;
92292 PyObject *e_capi = Py_None(&_Py_NoneStruct);
92293 int range = 0;
92294 PyObject *range_capi = Py_None(&_Py_NoneStruct);
92295 double vl = 0;
92296 PyObject *vl_capi = Py_None(&_Py_NoneStruct);
92297 double vu = 0;
92298 PyObject *vu_capi = Py_None(&_Py_NoneStruct);
92299 int il = 0;
92300 PyObject *il_capi = Py_None(&_Py_NoneStruct);
92301 int iu = 0;
92302 PyObject *iu_capi = Py_None(&_Py_NoneStruct);
92303 int compute_v = 0;
92304 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
92305 int n = 0;
92306 int m = 0;
92307 double *w = NULL((void*)0);
92308 npy_intp w_Dims[1] = {-1};
92309 const int w_Rank = 1;
92310 PyArrayObject *capi_w_tmp = NULL((void*)0);
92311 int capi_w_intent = 0;
92312 double *z = NULL((void*)0);
92313 npy_intp z_Dims[2] = {-1, -1};
92314 const int z_Rank = 2;
92315 PyArrayObject *capi_z_tmp = NULL((void*)0);
92316 int capi_z_intent = 0;
92317 int ldz = 0;
92318 int nzc = 0;
92319 int *isuppz = NULL((void*)0);
92320 npy_intp isuppz_Dims[1] = {-1};
92321 const int isuppz_Rank = 1;
92322 PyArrayObject *capi_isuppz_tmp = NULL((void*)0);
92323 int capi_isuppz_intent = 0;
92324 int tryrac = 0;
92325 double work = 0;
92326 int lwork = 0;
92327 int iwork = 0;
92328 int liwork = 0;
92329 int info = 0;
92330 static char *capi_kwlist[] = {"d","e","range","vl","vu","il","iu","compute_v","overwrite_d","overwrite_e",NULL((void*)0)};
92331
92332/*routdebugenter*/
92333#ifdef F2PY_REPORT_ATEXIT
92334f2py_start_clock();
92335#endif
92336 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
92337 "OOOOOOO|Oii:_flapack.dstemr_lwork",\
92338 capi_kwlist,&d_capi,&e_capi,&range_capi,&vl_capi,&vu_capi,&il_capi,&iu_capi,&compute_v_capi,&capi_overwrite_d,&capi_overwrite_e))
92339 return NULL((void*)0);
92340/*frompyobj*/
92341 /* Processing variable d */
92342 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
92343 ;
92344 capi_d_intent |= F2PY_INTENT_IN1;
92345 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
92346 if (capi_d_tmp == NULL((void*)0)) {
92347 if (!PyErr_Occurred())
92348 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dstemr_lwork to C/Fortran array" );
92349 } else {
92350 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
92351
92352 /* Processing variable range */
92353 f2py_success = int_from_pyobj(&range,range_capi,"_flapack.dstemr_lwork() 3rd argument (range) can't be converted to int");
92354 if (f2py_success) {
92355 /* Processing variable vl */
92356 f2py_success = double_from_pyobj(&vl,vl_capi,"_flapack.dstemr_lwork() 4th argument (vl) can't be converted to double");
92357 if (f2py_success) {
92358 /* Processing variable vu */
92359 f2py_success = double_from_pyobj(&vu,vu_capi,"_flapack.dstemr_lwork() 5th argument (vu) can't be converted to double");
92360 if (f2py_success) {
92361 /* Processing variable il */
92362 f2py_success = int_from_pyobj(&il,il_capi,"_flapack.dstemr_lwork() 6th argument (il) can't be converted to int");
92363 if (f2py_success) {
92364 /* Processing variable iu */
92365 f2py_success = int_from_pyobj(&iu,iu_capi,"_flapack.dstemr_lwork() 7th argument (iu) can't be converted to int");
92366 if (f2py_success) {
92367 /* Processing variable compute_v */
92368 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
92369 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dstemr_lwork() 1st keyword (compute_v) can't be converted to int");
92370 if (f2py_success) {
92371 /* Processing variable m */
92372 /* Processing variable tryrac */
92373 tryrac = 1;
92374 /* Processing variable work */
92375 /* Processing variable liwork */
92376 liwork = -1;
92377 /* Processing variable iwork */
92378 /* Processing variable info */
92379 /* Processing variable n */
92380 n = shape(d,0)d_Dims[0];
92381 CHECKSCALAR(n>0,"n>0","hidden n","dstemr_lwork:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dstemr_lwork:n=%d", "(""n>0"") failed for ""hidden n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
92382 /* Processing variable w */
92383 w_Dims[0]=n;
92384 capi_w_intent |= F2PY_INTENT_HIDE8;
92385 capi_w_tmp = array_from_pyobj(NPY_DOUBLE,w_Dims,w_Rank,capi_w_intent,Py_None(&_Py_NoneStruct));
92386 if (capi_w_tmp == NULL((void*)0)) {
92387 if (!PyErr_Occurred())
92388 PyErr_SetString(_flapack_error,"failed in converting hidden `w' of _flapack.dstemr_lwork to C/Fortran array" );
92389 } else {
92390 w = (double *)(PyArray_DATA(capi_w_tmp)((void *)((PyArrayObject_fields *)(capi_w_tmp))->data));
92391
92392 /* Processing variable z */
92393 z_Dims[0]=n,z_Dims[1]=n;
92394 capi_z_intent |= F2PY_INTENT_HIDE8;
92395 capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
92396 if (capi_z_tmp == NULL((void*)0)) {
92397 if (!PyErr_Occurred())
92398 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.dstemr_lwork to C/Fortran array" );
92399 } else {
92400 z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
92401
92402 /* Processing variable ldz */
92403 ldz = (compute_v?n:1);
92404 /* Processing variable nzc */
92405 nzc = n;
92406 /* Processing variable isuppz */
92407 isuppz_Dims[0]=(compute_v?2*n:1);
92408 capi_isuppz_intent |= F2PY_INTENT_HIDE8;
92409 capi_isuppz_tmp = array_from_pyobj(NPY_INT,isuppz_Dims,isuppz_Rank,capi_isuppz_intent,Py_None(&_Py_NoneStruct));
92410 if (capi_isuppz_tmp == NULL((void*)0)) {
92411 if (!PyErr_Occurred())
92412 PyErr_SetString(_flapack_error,"failed in converting hidden `isuppz' of _flapack.dstemr_lwork to C/Fortran array" );
92413 } else {
92414 isuppz = (int *)(PyArray_DATA(capi_isuppz_tmp)((void *)((PyArrayObject_fields *)(capi_isuppz_tmp))->data
)
);
92415
92416 /* Processing variable lwork */
92417 lwork = -1;
92418 /* Processing variable e */
92419 capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32);
92420 e_Dims[0]=n;
92421 capi_e_intent |= F2PY_INTENT_IN1;
92422 capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi);
92423 if (capi_e_tmp == NULL((void*)0)) {
92424 if (!PyErr_Occurred())
92425 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dstemr_lwork to C/Fortran array" );
92426 } else {
92427 e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
92428
92429/*end of frompyobj*/
92430#ifdef F2PY_REPORT_ATEXIT
92431f2py_start_call_clock();
92432#endif
92433/*callfortranroutine*/
92434 (*f2py_func)((compute_v?"V":"N"),(range>0?(range==1?"V":"I"):"A"),&n,d,e,&vl,&vu,&il,&iu,&m,w,z,&ldz,&nzc,isuppz,&tryrac,&work,&lwork,&iwork,&liwork,&info) ;
92435 /*(*f2py_func)(d,e,&range,&vl,&vu,&il,&iu,&compute_v,&n,&m,w,z,&ldz,&nzc,isuppz,&tryrac,&work,&lwork,&iwork,&liwork,&info);*/
92436if (PyErr_Occurred())
92437 f2py_success = 0;
92438#ifdef F2PY_REPORT_ATEXIT
92439f2py_stop_call_clock();
92440#endif
92441/*end of callfortranroutine*/
92442 if (f2py_success) {
92443/*pyobjfrom*/
92444/*end of pyobjfrom*/
92445 CFUNCSMESS("Building return value.\n");
92446 capi_buildvalue = Py_BuildValue("dii",work,iwork,info);
92447/*closepyobjfrom*/
92448/*end of closepyobjfrom*/
92449 } /*if (f2py_success) after callfortranroutine*/
92450/*cleanupfrompyobj*/
92451 if((PyObject *)capi_e_tmp!=e_capi) {
92452 Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); }
92453 } /*if (capi_e_tmp == NULL) ... else of e*/
92454 /* End of cleaning variable e */
92455 /* End of cleaning variable lwork */
92456 Py_XDECREF(capi_isuppz_tmp)_Py_XDECREF(((PyObject*)(capi_isuppz_tmp)));
92457 } /*if (capi_isuppz_tmp == NULL) ... else of isuppz*/
92458 /* End of cleaning variable isuppz */
92459 /* End of cleaning variable nzc */
92460 /* End of cleaning variable ldz */
92461 Py_XDECREF(capi_z_tmp)_Py_XDECREF(((PyObject*)(capi_z_tmp)));
92462 } /*if (capi_z_tmp == NULL) ... else of z*/
92463 /* End of cleaning variable z */
92464 Py_XDECREF(capi_w_tmp)_Py_XDECREF(((PyObject*)(capi_w_tmp)));
92465 } /*if (capi_w_tmp == NULL) ... else of w*/
92466 /* End of cleaning variable w */
92467 } /*CHECKSCALAR(n>0)*/
92468 /* End of cleaning variable n */
92469 /* End of cleaning variable info */
92470 /* End of cleaning variable iwork */
92471 /* End of cleaning variable liwork */
92472 /* End of cleaning variable work */
92473 /* End of cleaning variable tryrac */
92474 /* End of cleaning variable m */
92475 } /*if (f2py_success) of compute_v*/
92476 /* End of cleaning variable compute_v */
92477 } /*if (f2py_success) of iu*/
92478 /* End of cleaning variable iu */
92479 } /*if (f2py_success) of il*/
92480 /* End of cleaning variable il */
92481 } /*if (f2py_success) of vu*/
92482 /* End of cleaning variable vu */
92483 } /*if (f2py_success) of vl*/
92484 /* End of cleaning variable vl */
92485 } /*if (f2py_success) of range*/
92486 /* End of cleaning variable range */
92487 if((PyObject *)capi_d_tmp!=d_capi) {
92488 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
92489 } /*if (capi_d_tmp == NULL) ... else of d*/
92490 /* End of cleaning variable d */
92491/*end of cleanupfrompyobj*/
92492 if (capi_buildvalue == NULL((void*)0)) {
92493/*routdebugfailure*/
92494 } else {
92495/*routdebugleave*/
92496 }
92497 CFUNCSMESS("Freeing memory.\n");
92498/*freemem*/
92499#ifdef F2PY_REPORT_ATEXIT
92500f2py_stop_clock();
92501#endif
92502 return capi_buildvalue;
92503}
92504/**************************** end of dstemr_lwork ****************************/
92505
92506/*********************************** sstev ***********************************/
92507static char doc_f2py_rout__flapack_sstev[] = "\
92508vals,z,info = sstev(d,e,[compute_v,overwrite_d,overwrite_e])\n\nWrapper for ``sstev``.\
92509\n\nParameters\n----------\n"
92510"d : input rank-1 array('f') with bounds (n)\n"
92511"e : input rank-1 array('f') with bounds (MAX(n-1,1))\n"
92512"\nOther Parameters\n----------------\n"
92513"overwrite_d : input int, optional\n Default: 0\n"
92514"overwrite_e : input int, optional\n Default: 0\n"
92515"compute_v : input int, optional\n Default: 1\n"
92516"\nReturns\n-------\n"
92517"vals : rank-1 array('f') with bounds (n) and d storage\n"
92518"z : rank-2 array('f') with bounds (ldz,(compute_v?n:1))\n"
92519"info : int";
92520/* extern void F_FUNC(sstev,SSTEV)(char*,F_INT*,float*,float*,float*,F_INT*,float*,F_INT* ); */
92521static PyObject *f2py_rout__flapack_sstev(const PyObject *capi_self,
92522 PyObject *capi_args,
92523 PyObject *capi_keywds,
92524 void (*f2py_func)(char*,F_INTint*,float*,float*,float*,F_INTint*,float*,F_INTint* )) {
92525 PyObject * volatile capi_buildvalue = NULL((void*)0);
92526 volatile int f2py_success = 1;
92527/*decl*/
92528
92529 float *d = NULL((void*)0);
92530 npy_intp d_Dims[1] = {-1};
92531 const int d_Rank = 1;
92532 PyArrayObject *capi_d_tmp = NULL((void*)0);
92533 int capi_d_intent = 0;
92534 int capi_overwrite_d = 0;
92535 PyObject *d_capi = Py_None(&_Py_NoneStruct);
92536 float *e = NULL((void*)0);
92537 npy_intp e_Dims[1] = {-1};
92538 const int e_Rank = 1;
92539 PyArrayObject *capi_e_tmp = NULL((void*)0);
92540 int capi_e_intent = 0;
92541 int capi_overwrite_e = 0;
92542 PyObject *e_capi = Py_None(&_Py_NoneStruct);
92543 int compute_v = 0;
92544 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
92545 int n = 0;
92546 float *z = NULL((void*)0);
92547 npy_intp z_Dims[2] = {-1, -1};
92548 const int z_Rank = 2;
92549 PyArrayObject *capi_z_tmp = NULL((void*)0);
92550 int capi_z_intent = 0;
92551 int ldz = 0;
92552 float *work = NULL((void*)0);
92553 npy_intp work_Dims[1] = {-1};
92554 const int work_Rank = 1;
92555 PyArrayObject *capi_work_tmp = NULL((void*)0);
92556 int capi_work_intent = 0;
92557 int info = 0;
92558 static char *capi_kwlist[] = {"d","e","compute_v","overwrite_d","overwrite_e",NULL((void*)0)};
92559
92560/*routdebugenter*/
92561#ifdef F2PY_REPORT_ATEXIT
92562f2py_start_clock();
92563#endif
92564 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
92565 "OO|Oii:_flapack.sstev",\
92566 capi_kwlist,&d_capi,&e_capi,&compute_v_capi,&capi_overwrite_d,&capi_overwrite_e))
92567 return NULL((void*)0);
92568/*frompyobj*/
92569 /* Processing variable compute_v */
92570 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
92571 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.sstev() 1st keyword (compute_v) can't be converted to int");
92572 if (f2py_success) {
92573 /* Processing variable d */
92574 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
92575 ;
92576 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
92577 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
92578 if (capi_d_tmp == NULL((void*)0)) {
92579 if (!PyErr_Occurred())
92580 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.sstev to C/Fortran array" );
92581 } else {
92582 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
92583
92584 /* Processing variable info */
92585 /* Processing variable n */
92586 n = shape(d,0)d_Dims[0];
92587 CHECKSCALAR(n>0,"n>0","hidden n","sstev:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""sstev:n=%d", "(""n>0"") failed for ""hidden n", n
); PyErr_SetString(_flapack_error,errstring); } else
{
92588 /* Processing variable e */
92589 capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32);
92590 e_Dims[0]=MAX(n-1,1)((n-1 > 1) ? (n-1) : (1));
92591 capi_e_intent |= F2PY_INTENT_IN1;
92592 capi_e_tmp = array_from_pyobj(NPY_FLOAT,e_Dims,e_Rank,capi_e_intent,e_capi);
92593 if (capi_e_tmp == NULL((void*)0)) {
92594 if (!PyErr_Occurred())
92595 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.sstev to C/Fortran array" );
92596 } else {
92597 e = (float *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
92598
92599 /* Processing variable ldz */
92600 ldz = (compute_v?n:1);
92601 /* Processing variable z */
92602 z_Dims[0]=ldz,z_Dims[1]=(compute_v?n:1);
92603 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
92604 capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
92605 if (capi_z_tmp == NULL((void*)0)) {
92606 if (!PyErr_Occurred())
92607 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.sstev to C/Fortran array" );
92608 } else {
92609 z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
92610
92611 /* Processing variable work */
92612 work_Dims[0]=(compute_v?MAX(1,2*n-2)((1 > 2*n-2) ? (1) : (2*n-2)):1);
92613 capi_work_intent |= F2PY_INTENT_HIDE8;
92614 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
92615 if (capi_work_tmp == NULL((void*)0)) {
92616 if (!PyErr_Occurred())
92617 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.sstev to C/Fortran array" );
92618 } else {
92619 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
92620
92621/*end of frompyobj*/
92622#ifdef F2PY_REPORT_ATEXIT
92623f2py_start_call_clock();
92624#endif
92625/*callfortranroutine*/
92626 (*f2py_func)((compute_v?"V":"N"),&n,d,e,z,&ldz,work,&info) ;
92627 /*(*f2py_func)(d,e,&compute_v,&n,z,&ldz,work,&info);*/
92628if (PyErr_Occurred())
92629 f2py_success = 0;
92630#ifdef F2PY_REPORT_ATEXIT
92631f2py_stop_call_clock();
92632#endif
92633/*end of callfortranroutine*/
92634 if (f2py_success) {
92635/*pyobjfrom*/
92636/*end of pyobjfrom*/
92637 CFUNCSMESS("Building return value.\n");
92638 capi_buildvalue = Py_BuildValue("NNi",capi_d_tmp,capi_z_tmp,info);
92639/*closepyobjfrom*/
92640/*end of closepyobjfrom*/
92641 } /*if (f2py_success) after callfortranroutine*/
92642/*cleanupfrompyobj*/
92643 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
92644 } /*if (capi_work_tmp == NULL) ... else of work*/
92645 /* End of cleaning variable work */
92646 } /*if (capi_z_tmp == NULL) ... else of z*/
92647 /* End of cleaning variable z */
92648 /* End of cleaning variable ldz */
92649 if((PyObject *)capi_e_tmp!=e_capi) {
92650 Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); }
92651 } /*if (capi_e_tmp == NULL) ... else of e*/
92652 /* End of cleaning variable e */
92653 } /*CHECKSCALAR(n>0)*/
92654 /* End of cleaning variable n */
92655 /* End of cleaning variable info */
92656 } /*if (capi_d_tmp == NULL) ... else of d*/
92657 /* End of cleaning variable d */
92658 } /*if (f2py_success) of compute_v*/
92659 /* End of cleaning variable compute_v */
92660/*end of cleanupfrompyobj*/
92661 if (capi_buildvalue == NULL((void*)0)) {
92662/*routdebugfailure*/
92663 } else {
92664/*routdebugleave*/
92665 }
92666 CFUNCSMESS("Freeing memory.\n");
92667/*freemem*/
92668#ifdef F2PY_REPORT_ATEXIT
92669f2py_stop_clock();
92670#endif
92671 return capi_buildvalue;
92672}
92673/******************************** end of sstev ********************************/
92674
92675/*********************************** dstev ***********************************/
92676static char doc_f2py_rout__flapack_dstev[] = "\
92677vals,z,info = dstev(d,e,[compute_v,overwrite_d,overwrite_e])\n\nWrapper for ``dstev``.\
92678\n\nParameters\n----------\n"
92679"d : input rank-1 array('d') with bounds (n)\n"
92680"e : input rank-1 array('d') with bounds (MAX(n-1,1))\n"
92681"\nOther Parameters\n----------------\n"
92682"overwrite_d : input int, optional\n Default: 0\n"
92683"overwrite_e : input int, optional\n Default: 0\n"
92684"compute_v : input int, optional\n Default: 1\n"
92685"\nReturns\n-------\n"
92686"vals : rank-1 array('d') with bounds (n) and d storage\n"
92687"z : rank-2 array('d') with bounds (ldz,(compute_v?n:1))\n"
92688"info : int";
92689/* extern void F_FUNC(dstev,DSTEV)(char*,F_INT*,double*,double*,double*,F_INT*,double*,F_INT* ); */
92690static PyObject *f2py_rout__flapack_dstev(const PyObject *capi_self,
92691 PyObject *capi_args,
92692 PyObject *capi_keywds,
92693 void (*f2py_func)(char*,F_INTint*,double*,double*,double*,F_INTint*,double*,F_INTint* )) {
92694 PyObject * volatile capi_buildvalue = NULL((void*)0);
92695 volatile int f2py_success = 1;
92696/*decl*/
92697
92698 double *d = NULL((void*)0);
92699 npy_intp d_Dims[1] = {-1};
92700 const int d_Rank = 1;
92701 PyArrayObject *capi_d_tmp = NULL((void*)0);
92702 int capi_d_intent = 0;
92703 int capi_overwrite_d = 0;
92704 PyObject *d_capi = Py_None(&_Py_NoneStruct);
92705 double *e = NULL((void*)0);
92706 npy_intp e_Dims[1] = {-1};
92707 const int e_Rank = 1;
92708 PyArrayObject *capi_e_tmp = NULL((void*)0);
92709 int capi_e_intent = 0;
92710 int capi_overwrite_e = 0;
92711 PyObject *e_capi = Py_None(&_Py_NoneStruct);
92712 int compute_v = 0;
92713 PyObject *compute_v_capi = Py_None(&_Py_NoneStruct);
92714 int n = 0;
92715 double *z = NULL((void*)0);
92716 npy_intp z_Dims[2] = {-1, -1};
92717 const int z_Rank = 2;
92718 PyArrayObject *capi_z_tmp = NULL((void*)0);
92719 int capi_z_intent = 0;
92720 int ldz = 0;
92721 double *work = NULL((void*)0);
92722 npy_intp work_Dims[1] = {-1};
92723 const int work_Rank = 1;
92724 PyArrayObject *capi_work_tmp = NULL((void*)0);
92725 int capi_work_intent = 0;
92726 int info = 0;
92727 static char *capi_kwlist[] = {"d","e","compute_v","overwrite_d","overwrite_e",NULL((void*)0)};
92728
92729/*routdebugenter*/
92730#ifdef F2PY_REPORT_ATEXIT
92731f2py_start_clock();
92732#endif
92733 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
92734 "OO|Oii:_flapack.dstev",\
92735 capi_kwlist,&d_capi,&e_capi,&compute_v_capi,&capi_overwrite_d,&capi_overwrite_e))
92736 return NULL((void*)0);
92737/*frompyobj*/
92738 /* Processing variable compute_v */
92739 if (compute_v_capi == Py_None(&_Py_NoneStruct)) compute_v = 1; else
92740 f2py_success = int_from_pyobj(&compute_v,compute_v_capi,"_flapack.dstev() 1st keyword (compute_v) can't be converted to int");
92741 if (f2py_success) {
92742 /* Processing variable d */
92743 capi_d_intent |= (capi_overwrite_d?0:F2PY_INTENT_COPY32);
92744 ;
92745 capi_d_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
92746 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
92747 if (capi_d_tmp == NULL((void*)0)) {
92748 if (!PyErr_Occurred())
92749 PyErr_SetString(_flapack_error,"failed in converting 1st argument `d' of _flapack.dstev to C/Fortran array" );
92750 } else {
92751 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
92752
92753 /* Processing variable info */
92754 /* Processing variable n */
92755 n = shape(d,0)d_Dims[0];
92756 CHECKSCALAR(n>0,"n>0","hidden n","dstev:n=%d",n)if (!(n>0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dstev:n=%d", "(""n>0"") failed for ""hidden n", n
); PyErr_SetString(_flapack_error,errstring); } else
{
92757 /* Processing variable e */
92758 capi_e_intent |= (capi_overwrite_e?0:F2PY_INTENT_COPY32);
92759 e_Dims[0]=MAX(n-1,1)((n-1 > 1) ? (n-1) : (1));
92760 capi_e_intent |= F2PY_INTENT_IN1;
92761 capi_e_tmp = array_from_pyobj(NPY_DOUBLE,e_Dims,e_Rank,capi_e_intent,e_capi);
92762 if (capi_e_tmp == NULL((void*)0)) {
92763 if (!PyErr_Occurred())
92764 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `e' of _flapack.dstev to C/Fortran array" );
92765 } else {
92766 e = (double *)(PyArray_DATA(capi_e_tmp)((void *)((PyArrayObject_fields *)(capi_e_tmp))->data));
92767
92768 /* Processing variable ldz */
92769 ldz = (compute_v?n:1);
92770 /* Processing variable z */
92771 z_Dims[0]=ldz,z_Dims[1]=(compute_v?n:1);
92772 capi_z_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
92773 capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,Py_None(&_Py_NoneStruct));
92774 if (capi_z_tmp == NULL((void*)0)) {
92775 if (!PyErr_Occurred())
92776 PyErr_SetString(_flapack_error,"failed in converting hidden `z' of _flapack.dstev to C/Fortran array" );
92777 } else {
92778 z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
92779
92780 /* Processing variable work */
92781 work_Dims[0]=(compute_v?MAX(1,2*n-2)((1 > 2*n-2) ? (1) : (2*n-2)):1);
92782 capi_work_intent |= F2PY_INTENT_HIDE8;
92783 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
92784 if (capi_work_tmp == NULL((void*)0)) {
92785 if (!PyErr_Occurred())
92786 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dstev to C/Fortran array" );
92787 } else {
92788 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
92789
92790/*end of frompyobj*/
92791#ifdef F2PY_REPORT_ATEXIT
92792f2py_start_call_clock();
92793#endif
92794/*callfortranroutine*/
92795 (*f2py_func)((compute_v?"V":"N"),&n,d,e,z,&ldz,work,&info) ;
92796 /*(*f2py_func)(d,e,&compute_v,&n,z,&ldz,work,&info);*/
92797if (PyErr_Occurred())
92798 f2py_success = 0;
92799#ifdef F2PY_REPORT_ATEXIT
92800f2py_stop_call_clock();
92801#endif
92802/*end of callfortranroutine*/
92803 if (f2py_success) {
92804/*pyobjfrom*/
92805/*end of pyobjfrom*/
92806 CFUNCSMESS("Building return value.\n");
92807 capi_buildvalue = Py_BuildValue("NNi",capi_d_tmp,capi_z_tmp,info);
92808/*closepyobjfrom*/
92809/*end of closepyobjfrom*/
92810 } /*if (f2py_success) after callfortranroutine*/
92811/*cleanupfrompyobj*/
92812 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
92813 } /*if (capi_work_tmp == NULL) ... else of work*/
92814 /* End of cleaning variable work */
92815 } /*if (capi_z_tmp == NULL) ... else of z*/
92816 /* End of cleaning variable z */
92817 /* End of cleaning variable ldz */
92818 if((PyObject *)capi_e_tmp!=e_capi) {
92819 Py_XDECREF(capi_e_tmp)_Py_XDECREF(((PyObject*)(capi_e_tmp))); }
92820 } /*if (capi_e_tmp == NULL) ... else of e*/
92821 /* End of cleaning variable e */
92822 } /*CHECKSCALAR(n>0)*/
92823 /* End of cleaning variable n */
92824 /* End of cleaning variable info */
92825 } /*if (capi_d_tmp == NULL) ... else of d*/
92826 /* End of cleaning variable d */
92827 } /*if (f2py_success) of compute_v*/
92828 /* End of cleaning variable compute_v */
92829/*end of cleanupfrompyobj*/
92830 if (capi_buildvalue == NULL((void*)0)) {
92831/*routdebugfailure*/
92832 } else {
92833/*routdebugleave*/
92834 }
92835 CFUNCSMESS("Freeing memory.\n");
92836/*freemem*/
92837#ifdef F2PY_REPORT_ATEXIT
92838f2py_stop_clock();
92839#endif
92840 return capi_buildvalue;
92841}
92842/******************************** end of dstev ********************************/
92843
92844/*********************************** ssfrk ***********************************/
92845static char doc_f2py_rout__flapack_ssfrk[] = "\
92846cout = ssfrk(n,k,alpha,a,beta,c,[transr,uplo,trans,overwrite_c])\n\nWrapper for ``ssfrk``.\
92847\n\nParameters\n----------\n"
92848"n : input int\n"
92849"k : input int\n"
92850"alpha : input float\n"
92851"a : input rank-2 array('f') with bounds (lda,ka)\n"
92852"beta : input float\n"
92853"c : input rank-1 array('f') with bounds (nt)\n"
92854"\nOther Parameters\n----------------\n"
92855"transr : input string(len=1), optional\n Default: 'N'\n"
92856"uplo : input string(len=1), optional\n Default: 'U'\n"
92857"trans : input string(len=1), optional\n Default: 'N'\n"
92858"overwrite_c : input int, optional\n Default: 0\n"
92859"\nReturns\n-------\n"
92860"cout : rank-1 array('f') with bounds (nt) and c storage";
92861/* extern void F_FUNC(ssfrk,SSFRK)(char*,char*,char*,F_INT*,F_INT*,float*,float*,F_INT*,float*,float* ); */
92862static PyObject *f2py_rout__flapack_ssfrk(const PyObject *capi_self,
92863 PyObject *capi_args,
92864 PyObject *capi_keywds,
92865 void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,float*,float*,F_INTint*,float*,float* )) {
92866 PyObject * volatile capi_buildvalue = NULL((void*)0);
92867 volatile int f2py_success = 1;
92868/*decl*/
92869
92870 string transr = NULL((void*)0);
92871 int slen(transr)capi_transr_len;
92872 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
92873 string uplo = NULL((void*)0);
92874 int slen(uplo)capi_uplo_len;
92875 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
92876 string trans = NULL((void*)0);
92877 int slen(trans)capi_trans_len;
92878 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
92879 int n = 0;
92880 PyObject *n_capi = Py_None(&_Py_NoneStruct);
92881 int k = 0;
92882 PyObject *k_capi = Py_None(&_Py_NoneStruct);
92883 int nt = 0;
92884 int ka = 0;
92885 float alpha = 0;
92886 PyObject *alpha_capi = Py_None(&_Py_NoneStruct);
92887 float *a = NULL((void*)0);
92888 npy_intp a_Dims[2] = {-1, -1};
92889 const int a_Rank = 2;
92890 PyArrayObject *capi_a_tmp = NULL((void*)0);
92891 int capi_a_intent = 0;
92892 PyObject *a_capi = Py_None(&_Py_NoneStruct);
92893 int lda = 0;
92894 float beta = 0;
92895 PyObject *beta_capi = Py_None(&_Py_NoneStruct);
92896 float *c = NULL((void*)0);
92897 npy_intp c_Dims[1] = {-1};
92898 const int c_Rank = 1;
92899 PyArrayObject *capi_c_tmp = NULL((void*)0);
92900 int capi_c_intent = 0;
92901 int capi_overwrite_c = 0;
92902 PyObject *c_capi = Py_None(&_Py_NoneStruct);
92903 static char *capi_kwlist[] = {"n","k","alpha","a","beta","c","transr","uplo","trans","overwrite_c",NULL((void*)0)};
92904
92905/*routdebugenter*/
92906#ifdef F2PY_REPORT_ATEXIT
92907f2py_start_clock();
92908#endif
92909 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
92910 "OOOOOO|OOOi:_flapack.ssfrk",\
92911 capi_kwlist,&n_capi,&k_capi,&alpha_capi,&a_capi,&beta_capi,&c_capi,&transr_capi,&uplo_capi,&trans_capi,&capi_overwrite_c))
92912 return NULL((void*)0);
92913/*frompyobj*/
92914 /* Processing variable uplo */
92915 slen(uplo)capi_uplo_len = 1;
92916 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.ssfrk to C string");
92917 if (f2py_success) {
92918 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","ssfrk:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssfrk:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
92919 /* Processing variable n */
92920 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ssfrk() 1st argument (n) can't be converted to int");
92921 if (f2py_success) {
92922 CHECKSCALAR(n>=0,"n>=0","1st argument n","ssfrk:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssfrk:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
92923 /* Processing variable k */
92924 f2py_success = int_from_pyobj(&k,k_capi,"_flapack.ssfrk() 2nd argument (k) can't be converted to int");
92925 if (f2py_success) {
92926 CHECKSCALAR(k>=0,"k>=0","2nd argument k","ssfrk:k=%d",k)if (!(k>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssfrk:k=%d", "(""k>=0"") failed for ""2nd argument k"
, k); PyErr_SetString(_flapack_error,errstring); } else
{
92927 /* Processing variable alpha */
92928 f2py_success = float_from_pyobj(&alpha,alpha_capi,"_flapack.ssfrk() 3rd argument (alpha) can't be converted to float");
92929 if (f2py_success) {
92930 /* Processing variable beta */
92931 f2py_success = float_from_pyobj(&beta,beta_capi,"_flapack.ssfrk() 5th argument (beta) can't be converted to float");
92932 if (f2py_success) {
92933 /* Processing variable a */
92934 ;
92935 capi_a_intent |= F2PY_INTENT_IN1;
92936 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
92937 if (capi_a_tmp == NULL((void*)0)) {
92938 if (!PyErr_Occurred())
92939 PyErr_SetString(_flapack_error,"failed in converting 4th argument `a' of _flapack.ssfrk to C/Fortran array" );
92940 } else {
92941 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
92942
92943 /* Processing variable c */
92944 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
92945 ;
92946 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
92947 capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
92948 if (capi_c_tmp == NULL((void*)0)) {
92949 if (!PyErr_Occurred())
92950 PyErr_SetString(_flapack_error,"failed in converting 6th argument `c' of _flapack.ssfrk to C/Fortran array" );
92951 } else {
92952 c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
92953
92954 /* Processing variable transr */
92955 slen(transr)capi_transr_len = 1;
92956 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ssfrk to C string");
92957 if (f2py_success) {
92958 CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","ssfrk:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssfrk:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
92959 /* Processing variable trans */
92960 slen(trans)capi_trans_len = 1;
92961 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 3rd keyword `trans' of _flapack.ssfrk to C string");
92962 if (f2py_success) {
92963 CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","3rd keyword trans","ssfrk:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssfrk:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'"
") failed for ""3rd keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
92964 /* Processing variable ka */
92965 ka = shape(a,1)a_Dims[1];
92966 CHECKSCALAR(ka==(*trans=='N'?k:n),"ka==(*trans=='N'?k:n)","hidden ka","ssfrk:ka=%d",ka)if (!(ka==(*trans=='N'?k:n))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssfrk:ka=%d", "(""ka==(*trans=='N'?k:n)"") failed for "
"hidden ka", ka); PyErr_SetString(_flapack_error,errstring); }
else
{
92967 /* Processing variable lda */
92968 lda = MAX((*trans=='N'?n:k),1)(((*trans=='N'?n:k) > 1) ? ((*trans=='N'?n:k)) : (1));
92969 /* Processing variable nt */
92970 nt = shape(c,0)c_Dims[0];
92971 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","ssfrk:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ssfrk:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
92972/*end of frompyobj*/
92973#ifdef F2PY_REPORT_ATEXIT
92974f2py_start_call_clock();
92975#endif
92976/*callfortranroutine*/
92977 (*f2py_func)(transr,uplo,trans,&n,&k,&alpha,a,&lda,&beta,c) ;
92978 /*(*f2py_func)(transr,uplo,trans,&n,&k,&nt,&ka,&alpha,a,&lda,&beta,c,slen(transr),slen(uplo),slen(trans));*/
92979if (PyErr_Occurred())
92980 f2py_success = 0;
92981#ifdef F2PY_REPORT_ATEXIT
92982f2py_stop_call_clock();
92983#endif
92984/*end of callfortranroutine*/
92985 if (f2py_success) {
92986/*pyobjfrom*/
92987/*end of pyobjfrom*/
92988 CFUNCSMESS("Building return value.\n");
92989 capi_buildvalue = Py_BuildValue("N",capi_c_tmp);
92990/*closepyobjfrom*/
92991/*end of closepyobjfrom*/
92992 } /*if (f2py_success) after callfortranroutine*/
92993/*cleanupfrompyobj*/
92994 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
92995 /* End of cleaning variable nt */
92996 /* End of cleaning variable lda */
92997 } /*CHECKSCALAR(ka==(*trans=='N'?k:n))*/
92998 /* End of cleaning variable ka */
92999 } /*CHECKSTRING(*trans=='N'||*trans=='T')*/
93000 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
93001 } /*if (f2py_success) of trans*/
93002 /* End of cleaning variable trans */
93003 } /*CHECKSTRING(*transr=='N'||*transr=='T')*/
93004 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
93005 } /*if (f2py_success) of transr*/
93006 /* End of cleaning variable transr */
93007 } /*if (capi_c_tmp == NULL) ... else of c*/
93008 /* End of cleaning variable c */
93009 if((PyObject *)capi_a_tmp!=a_capi) {
93010 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
93011 } /*if (capi_a_tmp == NULL) ... else of a*/
93012 /* End of cleaning variable a */
93013 } /*if (f2py_success) of beta*/
93014 /* End of cleaning variable beta */
93015 } /*if (f2py_success) of alpha*/
93016 /* End of cleaning variable alpha */
93017 } /*CHECKSCALAR(k>=0)*/
93018 } /*if (f2py_success) of k*/
93019 /* End of cleaning variable k */
93020 } /*CHECKSCALAR(n>=0)*/
93021 } /*if (f2py_success) of n*/
93022 /* End of cleaning variable n */
93023 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
93024 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
93025 } /*if (f2py_success) of uplo*/
93026 /* End of cleaning variable uplo */
93027/*end of cleanupfrompyobj*/
93028 if (capi_buildvalue == NULL((void*)0)) {
93029/*routdebugfailure*/
93030 } else {
93031/*routdebugleave*/
93032 }
93033 CFUNCSMESS("Freeing memory.\n");
93034/*freemem*/
93035#ifdef F2PY_REPORT_ATEXIT
93036f2py_stop_clock();
93037#endif
93038 return capi_buildvalue;
93039}
93040/******************************** end of ssfrk ********************************/
93041
93042/*********************************** dsfrk ***********************************/
93043static char doc_f2py_rout__flapack_dsfrk[] = "\
93044cout = dsfrk(n,k,alpha,a,beta,c,[transr,uplo,trans,overwrite_c])\n\nWrapper for ``dsfrk``.\
93045\n\nParameters\n----------\n"
93046"n : input int\n"
93047"k : input int\n"
93048"alpha : input float\n"
93049"a : input rank-2 array('d') with bounds (lda,ka)\n"
93050"beta : input float\n"
93051"c : input rank-1 array('d') with bounds (nt)\n"
93052"\nOther Parameters\n----------------\n"
93053"transr : input string(len=1), optional\n Default: 'N'\n"
93054"uplo : input string(len=1), optional\n Default: 'U'\n"
93055"trans : input string(len=1), optional\n Default: 'N'\n"
93056"overwrite_c : input int, optional\n Default: 0\n"
93057"\nReturns\n-------\n"
93058"cout : rank-1 array('d') with bounds (nt) and c storage";
93059/* extern void F_FUNC(dsfrk,DSFRK)(char*,char*,char*,F_INT*,F_INT*,double*,double*,F_INT*,double*,double* ); */
93060static PyObject *f2py_rout__flapack_dsfrk(const PyObject *capi_self,
93061 PyObject *capi_args,
93062 PyObject *capi_keywds,
93063 void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,double*,double*,F_INTint*,double*,double* )) {
93064 PyObject * volatile capi_buildvalue = NULL((void*)0);
93065 volatile int f2py_success = 1;
93066/*decl*/
93067
93068 string transr = NULL((void*)0);
93069 int slen(transr)capi_transr_len;
93070 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
93071 string uplo = NULL((void*)0);
93072 int slen(uplo)capi_uplo_len;
93073 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
93074 string trans = NULL((void*)0);
93075 int slen(trans)capi_trans_len;
93076 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
93077 int n = 0;
93078 PyObject *n_capi = Py_None(&_Py_NoneStruct);
93079 int k = 0;
93080 PyObject *k_capi = Py_None(&_Py_NoneStruct);
93081 int nt = 0;
93082 int ka = 0;
93083 double alpha = 0;
93084 PyObject *alpha_capi = Py_None(&_Py_NoneStruct);
93085 double *a = NULL((void*)0);
93086 npy_intp a_Dims[2] = {-1, -1};
93087 const int a_Rank = 2;
93088 PyArrayObject *capi_a_tmp = NULL((void*)0);
93089 int capi_a_intent = 0;
93090 PyObject *a_capi = Py_None(&_Py_NoneStruct);
93091 int lda = 0;
93092 double beta = 0;
93093 PyObject *beta_capi = Py_None(&_Py_NoneStruct);
93094 double *c = NULL((void*)0);
93095 npy_intp c_Dims[1] = {-1};
93096 const int c_Rank = 1;
93097 PyArrayObject *capi_c_tmp = NULL((void*)0);
93098 int capi_c_intent = 0;
93099 int capi_overwrite_c = 0;
93100 PyObject *c_capi = Py_None(&_Py_NoneStruct);
93101 static char *capi_kwlist[] = {"n","k","alpha","a","beta","c","transr","uplo","trans","overwrite_c",NULL((void*)0)};
93102
93103/*routdebugenter*/
93104#ifdef F2PY_REPORT_ATEXIT
93105f2py_start_clock();
93106#endif
93107 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
93108 "OOOOOO|OOOi:_flapack.dsfrk",\
93109 capi_kwlist,&n_capi,&k_capi,&alpha_capi,&a_capi,&beta_capi,&c_capi,&transr_capi,&uplo_capi,&trans_capi,&capi_overwrite_c))
93110 return NULL((void*)0);
93111/*frompyobj*/
93112 /* Processing variable uplo */
93113 slen(uplo)capi_uplo_len = 1;
93114 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.dsfrk to C string");
93115 if (f2py_success) {
93116 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","dsfrk:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsfrk:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
93117 /* Processing variable n */
93118 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dsfrk() 1st argument (n) can't be converted to int");
93119 if (f2py_success) {
93120 CHECKSCALAR(n>=0,"n>=0","1st argument n","dsfrk:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsfrk:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
93121 /* Processing variable k */
93122 f2py_success = int_from_pyobj(&k,k_capi,"_flapack.dsfrk() 2nd argument (k) can't be converted to int");
93123 if (f2py_success) {
93124 CHECKSCALAR(k>=0,"k>=0","2nd argument k","dsfrk:k=%d",k)if (!(k>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsfrk:k=%d", "(""k>=0"") failed for ""2nd argument k"
, k); PyErr_SetString(_flapack_error,errstring); } else
{
93125 /* Processing variable alpha */
93126 f2py_success = double_from_pyobj(&alpha,alpha_capi,"_flapack.dsfrk() 3rd argument (alpha) can't be converted to double");
93127 if (f2py_success) {
93128 /* Processing variable beta */
93129 f2py_success = double_from_pyobj(&beta,beta_capi,"_flapack.dsfrk() 5th argument (beta) can't be converted to double");
93130 if (f2py_success) {
93131 /* Processing variable a */
93132 ;
93133 capi_a_intent |= F2PY_INTENT_IN1;
93134 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
93135 if (capi_a_tmp == NULL((void*)0)) {
93136 if (!PyErr_Occurred())
93137 PyErr_SetString(_flapack_error,"failed in converting 4th argument `a' of _flapack.dsfrk to C/Fortran array" );
93138 } else {
93139 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
93140
93141 /* Processing variable c */
93142 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
93143 ;
93144 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
93145 capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
93146 if (capi_c_tmp == NULL((void*)0)) {
93147 if (!PyErr_Occurred())
93148 PyErr_SetString(_flapack_error,"failed in converting 6th argument `c' of _flapack.dsfrk to C/Fortran array" );
93149 } else {
93150 c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
93151
93152 /* Processing variable transr */
93153 slen(transr)capi_transr_len = 1;
93154 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.dsfrk to C string");
93155 if (f2py_success) {
93156 CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","dsfrk:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsfrk:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
93157 /* Processing variable trans */
93158 slen(trans)capi_trans_len = 1;
93159 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 3rd keyword `trans' of _flapack.dsfrk to C string");
93160 if (f2py_success) {
93161 CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","3rd keyword trans","dsfrk:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsfrk:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'"
") failed for ""3rd keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
93162 /* Processing variable ka */
93163 ka = shape(a,1)a_Dims[1];
93164 CHECKSCALAR(ka==(*trans=='N'?k:n),"ka==(*trans=='N'?k:n)","hidden ka","dsfrk:ka=%d",ka)if (!(ka==(*trans=='N'?k:n))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsfrk:ka=%d", "(""ka==(*trans=='N'?k:n)"") failed for "
"hidden ka", ka); PyErr_SetString(_flapack_error,errstring); }
else
{
93165 /* Processing variable lda */
93166 lda = MAX((*trans=='N'?n:k),1)(((*trans=='N'?n:k) > 1) ? ((*trans=='N'?n:k)) : (1));
93167 /* Processing variable nt */
93168 nt = shape(c,0)c_Dims[0];
93169 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","dsfrk:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dsfrk:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
93170/*end of frompyobj*/
93171#ifdef F2PY_REPORT_ATEXIT
93172f2py_start_call_clock();
93173#endif
93174/*callfortranroutine*/
93175 (*f2py_func)(transr,uplo,trans,&n,&k,&alpha,a,&lda,&beta,c) ;
93176 /*(*f2py_func)(transr,uplo,trans,&n,&k,&nt,&ka,&alpha,a,&lda,&beta,c,slen(transr),slen(uplo),slen(trans));*/
93177if (PyErr_Occurred())
93178 f2py_success = 0;
93179#ifdef F2PY_REPORT_ATEXIT
93180f2py_stop_call_clock();
93181#endif
93182/*end of callfortranroutine*/
93183 if (f2py_success) {
93184/*pyobjfrom*/
93185/*end of pyobjfrom*/
93186 CFUNCSMESS("Building return value.\n");
93187 capi_buildvalue = Py_BuildValue("N",capi_c_tmp);
93188/*closepyobjfrom*/
93189/*end of closepyobjfrom*/
93190 } /*if (f2py_success) after callfortranroutine*/
93191/*cleanupfrompyobj*/
93192 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
93193 /* End of cleaning variable nt */
93194 /* End of cleaning variable lda */
93195 } /*CHECKSCALAR(ka==(*trans=='N'?k:n))*/
93196 /* End of cleaning variable ka */
93197 } /*CHECKSTRING(*trans=='N'||*trans=='T')*/
93198 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
93199 } /*if (f2py_success) of trans*/
93200 /* End of cleaning variable trans */
93201 } /*CHECKSTRING(*transr=='N'||*transr=='T')*/
93202 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
93203 } /*if (f2py_success) of transr*/
93204 /* End of cleaning variable transr */
93205 } /*if (capi_c_tmp == NULL) ... else of c*/
93206 /* End of cleaning variable c */
93207 if((PyObject *)capi_a_tmp!=a_capi) {
93208 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
93209 } /*if (capi_a_tmp == NULL) ... else of a*/
93210 /* End of cleaning variable a */
93211 } /*if (f2py_success) of beta*/
93212 /* End of cleaning variable beta */
93213 } /*if (f2py_success) of alpha*/
93214 /* End of cleaning variable alpha */
93215 } /*CHECKSCALAR(k>=0)*/
93216 } /*if (f2py_success) of k*/
93217 /* End of cleaning variable k */
93218 } /*CHECKSCALAR(n>=0)*/
93219 } /*if (f2py_success) of n*/
93220 /* End of cleaning variable n */
93221 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
93222 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
93223 } /*if (f2py_success) of uplo*/
93224 /* End of cleaning variable uplo */
93225/*end of cleanupfrompyobj*/
93226 if (capi_buildvalue == NULL((void*)0)) {
93227/*routdebugfailure*/
93228 } else {
93229/*routdebugleave*/
93230 }
93231 CFUNCSMESS("Freeing memory.\n");
93232/*freemem*/
93233#ifdef F2PY_REPORT_ATEXIT
93234f2py_stop_clock();
93235#endif
93236 return capi_buildvalue;
93237}
93238/******************************** end of dsfrk ********************************/
93239
93240/*********************************** chfrk ***********************************/
93241static char doc_f2py_rout__flapack_chfrk[] = "\
93242cout = chfrk(n,k,alpha,a,beta,c,[transr,uplo,trans,overwrite_c])\n\nWrapper for ``chfrk``.\
93243\n\nParameters\n----------\n"
93244"n : input int\n"
93245"k : input int\n"
93246"alpha : input float\n"
93247"a : input rank-2 array('F') with bounds (lda,ka)\n"
93248"beta : input float\n"
93249"c : input rank-1 array('F') with bounds (nt)\n"
93250"\nOther Parameters\n----------------\n"
93251"transr : input string(len=1), optional\n Default: 'N'\n"
93252"uplo : input string(len=1), optional\n Default: 'U'\n"
93253"trans : input string(len=1), optional\n Default: 'N'\n"
93254"overwrite_c : input int, optional\n Default: 0\n"
93255"\nReturns\n-------\n"
93256"cout : rank-1 array('F') with bounds (nt) and c storage";
93257/* extern void F_FUNC(chfrk,CHFRK)(char*,char*,char*,F_INT*,F_INT*,float*,complex_float*,F_INT*,float*,complex_float* ); */
93258static PyObject *f2py_rout__flapack_chfrk(const PyObject *capi_self,
93259 PyObject *capi_args,
93260 PyObject *capi_keywds,
93261 void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,float*,complex_float*,F_INTint*,float*,complex_float* )) {
93262 PyObject * volatile capi_buildvalue = NULL((void*)0);
93263 volatile int f2py_success = 1;
93264/*decl*/
93265
93266 string transr = NULL((void*)0);
93267 int slen(transr)capi_transr_len;
93268 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
93269 string uplo = NULL((void*)0);
93270 int slen(uplo)capi_uplo_len;
93271 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
93272 string trans = NULL((void*)0);
93273 int slen(trans)capi_trans_len;
93274 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
93275 int n = 0;
93276 PyObject *n_capi = Py_None(&_Py_NoneStruct);
93277 int k = 0;
93278 PyObject *k_capi = Py_None(&_Py_NoneStruct);
93279 int nt = 0;
93280 int ka = 0;
93281 float alpha = 0;
93282 PyObject *alpha_capi = Py_None(&_Py_NoneStruct);
93283 complex_float *a = NULL((void*)0);
93284 npy_intp a_Dims[2] = {-1, -1};
93285 const int a_Rank = 2;
93286 PyArrayObject *capi_a_tmp = NULL((void*)0);
93287 int capi_a_intent = 0;
93288 PyObject *a_capi = Py_None(&_Py_NoneStruct);
93289 int lda = 0;
93290 float beta = 0;
93291 PyObject *beta_capi = Py_None(&_Py_NoneStruct);
93292 complex_float *c = NULL((void*)0);
93293 npy_intp c_Dims[1] = {-1};
93294 const int c_Rank = 1;
93295 PyArrayObject *capi_c_tmp = NULL((void*)0);
93296 int capi_c_intent = 0;
93297 int capi_overwrite_c = 0;
93298 PyObject *c_capi = Py_None(&_Py_NoneStruct);
93299 static char *capi_kwlist[] = {"n","k","alpha","a","beta","c","transr","uplo","trans","overwrite_c",NULL((void*)0)};
93300
93301/*routdebugenter*/
93302#ifdef F2PY_REPORT_ATEXIT
93303f2py_start_clock();
93304#endif
93305 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
93306 "OOOOOO|OOOi:_flapack.chfrk",\
93307 capi_kwlist,&n_capi,&k_capi,&alpha_capi,&a_capi,&beta_capi,&c_capi,&transr_capi,&uplo_capi,&trans_capi,&capi_overwrite_c))
93308 return NULL((void*)0);
93309/*frompyobj*/
93310 /* Processing variable uplo */
93311 slen(uplo)capi_uplo_len = 1;
93312 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.chfrk to C string");
93313 if (f2py_success) {
93314 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","chfrk:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chfrk:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
93315 /* Processing variable n */
93316 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.chfrk() 1st argument (n) can't be converted to int");
93317 if (f2py_success) {
93318 CHECKSCALAR(n>=0,"n>=0","1st argument n","chfrk:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chfrk:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
93319 /* Processing variable k */
93320 f2py_success = int_from_pyobj(&k,k_capi,"_flapack.chfrk() 2nd argument (k) can't be converted to int");
93321 if (f2py_success) {
93322 CHECKSCALAR(k>=0,"k>=0","2nd argument k","chfrk:k=%d",k)if (!(k>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chfrk:k=%d", "(""k>=0"") failed for ""2nd argument k"
, k); PyErr_SetString(_flapack_error,errstring); } else
{
93323 /* Processing variable alpha */
93324 f2py_success = float_from_pyobj(&alpha,alpha_capi,"_flapack.chfrk() 3rd argument (alpha) can't be converted to float");
93325 if (f2py_success) {
93326 /* Processing variable beta */
93327 f2py_success = float_from_pyobj(&beta,beta_capi,"_flapack.chfrk() 5th argument (beta) can't be converted to float");
93328 if (f2py_success) {
93329 /* Processing variable a */
93330 ;
93331 capi_a_intent |= F2PY_INTENT_IN1;
93332 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
93333 if (capi_a_tmp == NULL((void*)0)) {
93334 if (!PyErr_Occurred())
93335 PyErr_SetString(_flapack_error,"failed in converting 4th argument `a' of _flapack.chfrk to C/Fortran array" );
93336 } else {
93337 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
93338
93339 /* Processing variable c */
93340 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
93341 ;
93342 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
93343 capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
93344 if (capi_c_tmp == NULL((void*)0)) {
93345 if (!PyErr_Occurred())
93346 PyErr_SetString(_flapack_error,"failed in converting 6th argument `c' of _flapack.chfrk to C/Fortran array" );
93347 } else {
93348 c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
93349
93350 /* Processing variable transr */
93351 slen(transr)capi_transr_len = 1;
93352 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.chfrk to C string");
93353 if (f2py_success) {
93354 CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","chfrk:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chfrk:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
93355 /* Processing variable trans */
93356 slen(trans)capi_trans_len = 1;
93357 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 3rd keyword `trans' of _flapack.chfrk to C string");
93358 if (f2py_success) {
93359 CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","3rd keyword trans","chfrk:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chfrk:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'"
") failed for ""3rd keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
93360 /* Processing variable ka */
93361 ka = shape(a,1)a_Dims[1];
93362 CHECKSCALAR(ka==(*trans=='N'?k:n),"ka==(*trans=='N'?k:n)","hidden ka","chfrk:ka=%d",ka)if (!(ka==(*trans=='N'?k:n))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chfrk:ka=%d", "(""ka==(*trans=='N'?k:n)"") failed for "
"hidden ka", ka); PyErr_SetString(_flapack_error,errstring); }
else
{
93363 /* Processing variable lda */
93364 lda = MAX((*trans=='N'?n:k),1)(((*trans=='N'?n:k) > 1) ? ((*trans=='N'?n:k)) : (1));
93365 /* Processing variable nt */
93366 nt = shape(c,0)c_Dims[0];
93367 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","chfrk:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""chfrk:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
93368/*end of frompyobj*/
93369#ifdef F2PY_REPORT_ATEXIT
93370f2py_start_call_clock();
93371#endif
93372/*callfortranroutine*/
93373 (*f2py_func)(transr,uplo,trans,&n,&k,&alpha,a,&lda,&beta,c) ;
93374 /*(*f2py_func)(transr,uplo,trans,&n,&k,&nt,&ka,&alpha,a,&lda,&beta,c,slen(transr),slen(uplo),slen(trans));*/
93375if (PyErr_Occurred())
93376 f2py_success = 0;
93377#ifdef F2PY_REPORT_ATEXIT
93378f2py_stop_call_clock();
93379#endif
93380/*end of callfortranroutine*/
93381 if (f2py_success) {
93382/*pyobjfrom*/
93383/*end of pyobjfrom*/
93384 CFUNCSMESS("Building return value.\n");
93385 capi_buildvalue = Py_BuildValue("N",capi_c_tmp);
93386/*closepyobjfrom*/
93387/*end of closepyobjfrom*/
93388 } /*if (f2py_success) after callfortranroutine*/
93389/*cleanupfrompyobj*/
93390 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
93391 /* End of cleaning variable nt */
93392 /* End of cleaning variable lda */
93393 } /*CHECKSCALAR(ka==(*trans=='N'?k:n))*/
93394 /* End of cleaning variable ka */
93395 } /*CHECKSTRING(*trans=='N'||*trans=='C')*/
93396 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
93397 } /*if (f2py_success) of trans*/
93398 /* End of cleaning variable trans */
93399 } /*CHECKSTRING(*transr=='N'||*transr=='C')*/
93400 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
93401 } /*if (f2py_success) of transr*/
93402 /* End of cleaning variable transr */
93403 } /*if (capi_c_tmp == NULL) ... else of c*/
93404 /* End of cleaning variable c */
93405 if((PyObject *)capi_a_tmp!=a_capi) {
93406 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
93407 } /*if (capi_a_tmp == NULL) ... else of a*/
93408 /* End of cleaning variable a */
93409 } /*if (f2py_success) of beta*/
93410 /* End of cleaning variable beta */
93411 } /*if (f2py_success) of alpha*/
93412 /* End of cleaning variable alpha */
93413 } /*CHECKSCALAR(k>=0)*/
93414 } /*if (f2py_success) of k*/
93415 /* End of cleaning variable k */
93416 } /*CHECKSCALAR(n>=0)*/
93417 } /*if (f2py_success) of n*/
93418 /* End of cleaning variable n */
93419 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
93420 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
93421 } /*if (f2py_success) of uplo*/
93422 /* End of cleaning variable uplo */
93423/*end of cleanupfrompyobj*/
93424 if (capi_buildvalue == NULL((void*)0)) {
93425/*routdebugfailure*/
93426 } else {
93427/*routdebugleave*/
93428 }
93429 CFUNCSMESS("Freeing memory.\n");
93430/*freemem*/
93431#ifdef F2PY_REPORT_ATEXIT
93432f2py_stop_clock();
93433#endif
93434 return capi_buildvalue;
93435}
93436/******************************** end of chfrk ********************************/
93437
93438/*********************************** zhfrk ***********************************/
93439static char doc_f2py_rout__flapack_zhfrk[] = "\
93440cout = zhfrk(n,k,alpha,a,beta,c,[transr,uplo,trans,overwrite_c])\n\nWrapper for ``zhfrk``.\
93441\n\nParameters\n----------\n"
93442"n : input int\n"
93443"k : input int\n"
93444"alpha : input float\n"
93445"a : input rank-2 array('D') with bounds (lda,ka)\n"
93446"beta : input float\n"
93447"c : input rank-1 array('D') with bounds (nt)\n"
93448"\nOther Parameters\n----------------\n"
93449"transr : input string(len=1), optional\n Default: 'N'\n"
93450"uplo : input string(len=1), optional\n Default: 'U'\n"
93451"trans : input string(len=1), optional\n Default: 'N'\n"
93452"overwrite_c : input int, optional\n Default: 0\n"
93453"\nReturns\n-------\n"
93454"cout : rank-1 array('D') with bounds (nt) and c storage";
93455/* extern void F_FUNC(zhfrk,ZHFRK)(char*,char*,char*,F_INT*,F_INT*,double*,complex_double*,F_INT*,double*,complex_double* ); */
93456static PyObject *f2py_rout__flapack_zhfrk(const PyObject *capi_self,
93457 PyObject *capi_args,
93458 PyObject *capi_keywds,
93459 void (*f2py_func)(char*,char*,char*,F_INTint*,F_INTint*,double*,complex_double*,F_INTint*,double*,complex_double* )) {
93460 PyObject * volatile capi_buildvalue = NULL((void*)0);
93461 volatile int f2py_success = 1;
93462/*decl*/
93463
93464 string transr = NULL((void*)0);
93465 int slen(transr)capi_transr_len;
93466 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
93467 string uplo = NULL((void*)0);
93468 int slen(uplo)capi_uplo_len;
93469 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
93470 string trans = NULL((void*)0);
93471 int slen(trans)capi_trans_len;
93472 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
93473 int n = 0;
93474 PyObject *n_capi = Py_None(&_Py_NoneStruct);
93475 int k = 0;
93476 PyObject *k_capi = Py_None(&_Py_NoneStruct);
93477 int nt = 0;
93478 int ka = 0;
93479 double alpha = 0;
93480 PyObject *alpha_capi = Py_None(&_Py_NoneStruct);
93481 complex_double *a = NULL((void*)0);
93482 npy_intp a_Dims[2] = {-1, -1};
93483 const int a_Rank = 2;
93484 PyArrayObject *capi_a_tmp = NULL((void*)0);
93485 int capi_a_intent = 0;
93486 PyObject *a_capi = Py_None(&_Py_NoneStruct);
93487 int lda = 0;
93488 double beta = 0;
93489 PyObject *beta_capi = Py_None(&_Py_NoneStruct);
93490 complex_double *c = NULL((void*)0);
93491 npy_intp c_Dims[1] = {-1};
93492 const int c_Rank = 1;
93493 PyArrayObject *capi_c_tmp = NULL((void*)0);
93494 int capi_c_intent = 0;
93495 int capi_overwrite_c = 0;
93496 PyObject *c_capi = Py_None(&_Py_NoneStruct);
93497 static char *capi_kwlist[] = {"n","k","alpha","a","beta","c","transr","uplo","trans","overwrite_c",NULL((void*)0)};
93498
93499/*routdebugenter*/
93500#ifdef F2PY_REPORT_ATEXIT
93501f2py_start_clock();
93502#endif
93503 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
93504 "OOOOOO|OOOi:_flapack.zhfrk",\
93505 capi_kwlist,&n_capi,&k_capi,&alpha_capi,&a_capi,&beta_capi,&c_capi,&transr_capi,&uplo_capi,&trans_capi,&capi_overwrite_c))
93506 return NULL((void*)0);
93507/*frompyobj*/
93508 /* Processing variable uplo */
93509 slen(uplo)capi_uplo_len = 1;
93510 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.zhfrk to C string");
93511 if (f2py_success) {
93512 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","zhfrk:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhfrk:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
93513 /* Processing variable n */
93514 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zhfrk() 1st argument (n) can't be converted to int");
93515 if (f2py_success) {
93516 CHECKSCALAR(n>=0,"n>=0","1st argument n","zhfrk:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhfrk:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
93517 /* Processing variable k */
93518 f2py_success = int_from_pyobj(&k,k_capi,"_flapack.zhfrk() 2nd argument (k) can't be converted to int");
93519 if (f2py_success) {
93520 CHECKSCALAR(k>=0,"k>=0","2nd argument k","zhfrk:k=%d",k)if (!(k>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhfrk:k=%d", "(""k>=0"") failed for ""2nd argument k"
, k); PyErr_SetString(_flapack_error,errstring); } else
{
93521 /* Processing variable alpha */
93522 f2py_success = double_from_pyobj(&alpha,alpha_capi,"_flapack.zhfrk() 3rd argument (alpha) can't be converted to double");
93523 if (f2py_success) {
93524 /* Processing variable beta */
93525 f2py_success = double_from_pyobj(&beta,beta_capi,"_flapack.zhfrk() 5th argument (beta) can't be converted to double");
93526 if (f2py_success) {
93527 /* Processing variable a */
93528 ;
93529 capi_a_intent |= F2PY_INTENT_IN1;
93530 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
93531 if (capi_a_tmp == NULL((void*)0)) {
93532 if (!PyErr_Occurred())
93533 PyErr_SetString(_flapack_error,"failed in converting 4th argument `a' of _flapack.zhfrk to C/Fortran array" );
93534 } else {
93535 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
93536
93537 /* Processing variable c */
93538 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
93539 ;
93540 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
93541 capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
93542 if (capi_c_tmp == NULL((void*)0)) {
93543 if (!PyErr_Occurred())
93544 PyErr_SetString(_flapack_error,"failed in converting 6th argument `c' of _flapack.zhfrk to C/Fortran array" );
93545 } else {
93546 c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
93547
93548 /* Processing variable transr */
93549 slen(transr)capi_transr_len = 1;
93550 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.zhfrk to C string");
93551 if (f2py_success) {
93552 CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","zhfrk:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhfrk:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
93553 /* Processing variable trans */
93554 slen(trans)capi_trans_len = 1;
93555 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 3rd keyword `trans' of _flapack.zhfrk to C string");
93556 if (f2py_success) {
93557 CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","3rd keyword trans","zhfrk:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhfrk:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'"
") failed for ""3rd keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
93558 /* Processing variable ka */
93559 ka = shape(a,1)a_Dims[1];
93560 CHECKSCALAR(ka==(*trans=='N'?k:n),"ka==(*trans=='N'?k:n)","hidden ka","zhfrk:ka=%d",ka)if (!(ka==(*trans=='N'?k:n))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhfrk:ka=%d", "(""ka==(*trans=='N'?k:n)"") failed for "
"hidden ka", ka); PyErr_SetString(_flapack_error,errstring); }
else
{
93561 /* Processing variable lda */
93562 lda = MAX((*trans=='N'?n:k),1)(((*trans=='N'?n:k) > 1) ? ((*trans=='N'?n:k)) : (1));
93563 /* Processing variable nt */
93564 nt = shape(c,0)c_Dims[0];
93565 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","zhfrk:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zhfrk:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
93566/*end of frompyobj*/
93567#ifdef F2PY_REPORT_ATEXIT
93568f2py_start_call_clock();
93569#endif
93570/*callfortranroutine*/
93571 (*f2py_func)(transr,uplo,trans,&n,&k,&alpha,a,&lda,&beta,c) ;
93572 /*(*f2py_func)(transr,uplo,trans,&n,&k,&nt,&ka,&alpha,a,&lda,&beta,c,slen(transr),slen(uplo),slen(trans));*/
93573if (PyErr_Occurred())
93574 f2py_success = 0;
93575#ifdef F2PY_REPORT_ATEXIT
93576f2py_stop_call_clock();
93577#endif
93578/*end of callfortranroutine*/
93579 if (f2py_success) {
93580/*pyobjfrom*/
93581/*end of pyobjfrom*/
93582 CFUNCSMESS("Building return value.\n");
93583 capi_buildvalue = Py_BuildValue("N",capi_c_tmp);
93584/*closepyobjfrom*/
93585/*end of closepyobjfrom*/
93586 } /*if (f2py_success) after callfortranroutine*/
93587/*cleanupfrompyobj*/
93588 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
93589 /* End of cleaning variable nt */
93590 /* End of cleaning variable lda */
93591 } /*CHECKSCALAR(ka==(*trans=='N'?k:n))*/
93592 /* End of cleaning variable ka */
93593 } /*CHECKSTRING(*trans=='N'||*trans=='C')*/
93594 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
93595 } /*if (f2py_success) of trans*/
93596 /* End of cleaning variable trans */
93597 } /*CHECKSTRING(*transr=='N'||*transr=='C')*/
93598 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
93599 } /*if (f2py_success) of transr*/
93600 /* End of cleaning variable transr */
93601 } /*if (capi_c_tmp == NULL) ... else of c*/
93602 /* End of cleaning variable c */
93603 if((PyObject *)capi_a_tmp!=a_capi) {
93604 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
93605 } /*if (capi_a_tmp == NULL) ... else of a*/
93606 /* End of cleaning variable a */
93607 } /*if (f2py_success) of beta*/
93608 /* End of cleaning variable beta */
93609 } /*if (f2py_success) of alpha*/
93610 /* End of cleaning variable alpha */
93611 } /*CHECKSCALAR(k>=0)*/
93612 } /*if (f2py_success) of k*/
93613 /* End of cleaning variable k */
93614 } /*CHECKSCALAR(n>=0)*/
93615 } /*if (f2py_success) of n*/
93616 /* End of cleaning variable n */
93617 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
93618 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
93619 } /*if (f2py_success) of uplo*/
93620 /* End of cleaning variable uplo */
93621/*end of cleanupfrompyobj*/
93622 if (capi_buildvalue == NULL((void*)0)) {
93623/*routdebugfailure*/
93624 } else {
93625/*routdebugleave*/
93626 }
93627 CFUNCSMESS("Freeing memory.\n");
93628/*freemem*/
93629#ifdef F2PY_REPORT_ATEXIT
93630f2py_stop_clock();
93631#endif
93632 return capi_buildvalue;
93633}
93634/******************************** end of zhfrk ********************************/
93635
93636/*********************************** stpttf ***********************************/
93637static char doc_f2py_rout__flapack_stpttf[] = "\
93638arf,info = stpttf(n,ap,[transr,uplo])\n\nWrapper for ``stpttf``.\
93639\n\nParameters\n----------\n"
93640"n : input int\n"
93641"ap : input rank-1 array('f') with bounds (nt)\n"
93642"\nOther Parameters\n----------------\n"
93643"transr : input string(len=1), optional\n Default: 'N'\n"
93644"uplo : input string(len=1), optional\n Default: 'U'\n"
93645"\nReturns\n-------\n"
93646"arf : rank-1 array('f') with bounds (nt)\n"
93647"info : int";
93648/* extern void F_FUNC(stpttf,STPTTF)(char*,char*,F_INT*,float*,float*,F_INT* ); */
93649static PyObject *f2py_rout__flapack_stpttf(const PyObject *capi_self,
93650 PyObject *capi_args,
93651 PyObject *capi_keywds,
93652 void (*f2py_func)(char*,char*,F_INTint*,float*,float*,F_INTint* )) {
93653 PyObject * volatile capi_buildvalue = NULL((void*)0);
93654 volatile int f2py_success = 1;
93655/*decl*/
93656
93657 string transr = NULL((void*)0);
93658 int slen(transr)capi_transr_len;
93659 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
93660 string uplo = NULL((void*)0);
93661 int slen(uplo)capi_uplo_len;
93662 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
93663 int n = 0;
93664 PyObject *n_capi = Py_None(&_Py_NoneStruct);
93665 int nt = 0;
93666 float *ap = NULL((void*)0);
93667 npy_intp ap_Dims[1] = {-1};
93668 const int ap_Rank = 1;
93669 PyArrayObject *capi_ap_tmp = NULL((void*)0);
93670 int capi_ap_intent = 0;
93671 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
93672 float *arf = NULL((void*)0);
93673 npy_intp arf_Dims[1] = {-1};
93674 const int arf_Rank = 1;
93675 PyArrayObject *capi_arf_tmp = NULL((void*)0);
93676 int capi_arf_intent = 0;
93677 int info = 0;
93678 static char *capi_kwlist[] = {"n","ap","transr","uplo",NULL((void*)0)};
93679
93680/*routdebugenter*/
93681#ifdef F2PY_REPORT_ATEXIT
93682f2py_start_clock();
93683#endif
93684 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
93685 "OO|OO:_flapack.stpttf",\
93686 capi_kwlist,&n_capi,&ap_capi,&transr_capi,&uplo_capi))
93687 return NULL((void*)0);
93688/*frompyobj*/
93689 /* Processing variable uplo */
93690 slen(uplo)capi_uplo_len = 1;
93691 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.stpttf to C string");
93692 if (f2py_success) {
93693 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","stpttf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stpttf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
93694 /* Processing variable n */
93695 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.stpttf() 1st argument (n) can't be converted to int");
93696 if (f2py_success) {
93697 CHECKSCALAR(n>=0,"n>=0","1st argument n","stpttf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stpttf:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
93698 /* Processing variable ap */
93699 ;
93700 capi_ap_intent |= F2PY_INTENT_IN1;
93701 capi_ap_tmp = array_from_pyobj(NPY_FLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
93702 if (capi_ap_tmp == NULL((void*)0)) {
93703 if (!PyErr_Occurred())
93704 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.stpttf to C/Fortran array" );
93705 } else {
93706 ap = (float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
93707
93708 /* Processing variable info */
93709 /* Processing variable transr */
93710 slen(transr)capi_transr_len = 1;
93711 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.stpttf to C string");
93712 if (f2py_success) {
93713 CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","stpttf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stpttf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
93714 /* Processing variable nt */
93715 nt = shape(ap,0)ap_Dims[0];
93716 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","stpttf:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stpttf:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
93717 /* Processing variable arf */
93718 arf_Dims[0]=nt;
93719 capi_arf_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
93720 capi_arf_tmp = array_from_pyobj(NPY_FLOAT,arf_Dims,arf_Rank,capi_arf_intent,Py_None(&_Py_NoneStruct));
93721 if (capi_arf_tmp == NULL((void*)0)) {
93722 if (!PyErr_Occurred())
93723 PyErr_SetString(_flapack_error,"failed in converting hidden `arf' of _flapack.stpttf to C/Fortran array" );
93724 } else {
93725 arf = (float *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data));
93726
93727/*end of frompyobj*/
93728#ifdef F2PY_REPORT_ATEXIT
93729f2py_start_call_clock();
93730#endif
93731/*callfortranroutine*/
93732 (*f2py_func)(transr,uplo,&n,ap,arf,&info) ;
93733 /*(*f2py_func)(transr,uplo,&n,&nt,ap,arf,&info,slen(transr),slen(uplo));*/
93734if (PyErr_Occurred())
93735 f2py_success = 0;
93736#ifdef F2PY_REPORT_ATEXIT
93737f2py_stop_call_clock();
93738#endif
93739/*end of callfortranroutine*/
93740 if (f2py_success) {
93741/*pyobjfrom*/
93742/*end of pyobjfrom*/
93743 CFUNCSMESS("Building return value.\n");
93744 capi_buildvalue = Py_BuildValue("Ni",capi_arf_tmp,info);
93745/*closepyobjfrom*/
93746/*end of closepyobjfrom*/
93747 } /*if (f2py_success) after callfortranroutine*/
93748/*cleanupfrompyobj*/
93749 } /*if (capi_arf_tmp == NULL) ... else of arf*/
93750 /* End of cleaning variable arf */
93751 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
93752 /* End of cleaning variable nt */
93753 } /*CHECKSTRING(*transr=='N'||*transr=='T')*/
93754 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
93755 } /*if (f2py_success) of transr*/
93756 /* End of cleaning variable transr */
93757 /* End of cleaning variable info */
93758 if((PyObject *)capi_ap_tmp!=ap_capi) {
93759 Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); }
93760 } /*if (capi_ap_tmp == NULL) ... else of ap*/
93761 /* End of cleaning variable ap */
93762 } /*CHECKSCALAR(n>=0)*/
93763 } /*if (f2py_success) of n*/
93764 /* End of cleaning variable n */
93765 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
93766 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
93767 } /*if (f2py_success) of uplo*/
93768 /* End of cleaning variable uplo */
93769/*end of cleanupfrompyobj*/
93770 if (capi_buildvalue == NULL((void*)0)) {
93771/*routdebugfailure*/
93772 } else {
93773/*routdebugleave*/
93774 }
93775 CFUNCSMESS("Freeing memory.\n");
93776/*freemem*/
93777#ifdef F2PY_REPORT_ATEXIT
93778f2py_stop_clock();
93779#endif
93780 return capi_buildvalue;
93781}
93782/******************************* end of stpttf *******************************/
93783
93784/*********************************** dtpttf ***********************************/
93785static char doc_f2py_rout__flapack_dtpttf[] = "\
93786arf,info = dtpttf(n,ap,[transr,uplo])\n\nWrapper for ``dtpttf``.\
93787\n\nParameters\n----------\n"
93788"n : input int\n"
93789"ap : input rank-1 array('d') with bounds (nt)\n"
93790"\nOther Parameters\n----------------\n"
93791"transr : input string(len=1), optional\n Default: 'N'\n"
93792"uplo : input string(len=1), optional\n Default: 'U'\n"
93793"\nReturns\n-------\n"
93794"arf : rank-1 array('d') with bounds (nt)\n"
93795"info : int";
93796/* extern void F_FUNC(dtpttf,DTPTTF)(char*,char*,F_INT*,double*,double*,F_INT* ); */
93797static PyObject *f2py_rout__flapack_dtpttf(const PyObject *capi_self,
93798 PyObject *capi_args,
93799 PyObject *capi_keywds,
93800 void (*f2py_func)(char*,char*,F_INTint*,double*,double*,F_INTint* )) {
93801 PyObject * volatile capi_buildvalue = NULL((void*)0);
93802 volatile int f2py_success = 1;
93803/*decl*/
93804
93805 string transr = NULL((void*)0);
93806 int slen(transr)capi_transr_len;
93807 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
93808 string uplo = NULL((void*)0);
93809 int slen(uplo)capi_uplo_len;
93810 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
93811 int n = 0;
93812 PyObject *n_capi = Py_None(&_Py_NoneStruct);
93813 int nt = 0;
93814 double *ap = NULL((void*)0);
93815 npy_intp ap_Dims[1] = {-1};
93816 const int ap_Rank = 1;
93817 PyArrayObject *capi_ap_tmp = NULL((void*)0);
93818 int capi_ap_intent = 0;
93819 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
93820 double *arf = NULL((void*)0);
93821 npy_intp arf_Dims[1] = {-1};
93822 const int arf_Rank = 1;
93823 PyArrayObject *capi_arf_tmp = NULL((void*)0);
93824 int capi_arf_intent = 0;
93825 int info = 0;
93826 static char *capi_kwlist[] = {"n","ap","transr","uplo",NULL((void*)0)};
93827
93828/*routdebugenter*/
93829#ifdef F2PY_REPORT_ATEXIT
93830f2py_start_clock();
93831#endif
93832 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
93833 "OO|OO:_flapack.dtpttf",\
93834 capi_kwlist,&n_capi,&ap_capi,&transr_capi,&uplo_capi))
93835 return NULL((void*)0);
93836/*frompyobj*/
93837 /* Processing variable uplo */
93838 slen(uplo)capi_uplo_len = 1;
93839 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.dtpttf to C string");
93840 if (f2py_success) {
93841 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","dtpttf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtpttf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
93842 /* Processing variable n */
93843 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dtpttf() 1st argument (n) can't be converted to int");
93844 if (f2py_success) {
93845 CHECKSCALAR(n>=0,"n>=0","1st argument n","dtpttf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtpttf:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
93846 /* Processing variable ap */
93847 ;
93848 capi_ap_intent |= F2PY_INTENT_IN1;
93849 capi_ap_tmp = array_from_pyobj(NPY_DOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
93850 if (capi_ap_tmp == NULL((void*)0)) {
93851 if (!PyErr_Occurred())
93852 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.dtpttf to C/Fortran array" );
93853 } else {
93854 ap = (double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
93855
93856 /* Processing variable info */
93857 /* Processing variable transr */
93858 slen(transr)capi_transr_len = 1;
93859 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.dtpttf to C string");
93860 if (f2py_success) {
93861 CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","dtpttf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtpttf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
93862 /* Processing variable nt */
93863 nt = shape(ap,0)ap_Dims[0];
93864 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","dtpttf:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtpttf:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
93865 /* Processing variable arf */
93866 arf_Dims[0]=nt;
93867 capi_arf_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
93868 capi_arf_tmp = array_from_pyobj(NPY_DOUBLE,arf_Dims,arf_Rank,capi_arf_intent,Py_None(&_Py_NoneStruct));
93869 if (capi_arf_tmp == NULL((void*)0)) {
93870 if (!PyErr_Occurred())
93871 PyErr_SetString(_flapack_error,"failed in converting hidden `arf' of _flapack.dtpttf to C/Fortran array" );
93872 } else {
93873 arf = (double *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data));
93874
93875/*end of frompyobj*/
93876#ifdef F2PY_REPORT_ATEXIT
93877f2py_start_call_clock();
93878#endif
93879/*callfortranroutine*/
93880 (*f2py_func)(transr,uplo,&n,ap,arf,&info) ;
93881 /*(*f2py_func)(transr,uplo,&n,&nt,ap,arf,&info,slen(transr),slen(uplo));*/
93882if (PyErr_Occurred())
93883 f2py_success = 0;
93884#ifdef F2PY_REPORT_ATEXIT
93885f2py_stop_call_clock();
93886#endif
93887/*end of callfortranroutine*/
93888 if (f2py_success) {
93889/*pyobjfrom*/
93890/*end of pyobjfrom*/
93891 CFUNCSMESS("Building return value.\n");
93892 capi_buildvalue = Py_BuildValue("Ni",capi_arf_tmp,info);
93893/*closepyobjfrom*/
93894/*end of closepyobjfrom*/
93895 } /*if (f2py_success) after callfortranroutine*/
93896/*cleanupfrompyobj*/
93897 } /*if (capi_arf_tmp == NULL) ... else of arf*/
93898 /* End of cleaning variable arf */
93899 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
93900 /* End of cleaning variable nt */
93901 } /*CHECKSTRING(*transr=='N'||*transr=='T')*/
93902 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
93903 } /*if (f2py_success) of transr*/
93904 /* End of cleaning variable transr */
93905 /* End of cleaning variable info */
93906 if((PyObject *)capi_ap_tmp!=ap_capi) {
93907 Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); }
93908 } /*if (capi_ap_tmp == NULL) ... else of ap*/
93909 /* End of cleaning variable ap */
93910 } /*CHECKSCALAR(n>=0)*/
93911 } /*if (f2py_success) of n*/
93912 /* End of cleaning variable n */
93913 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
93914 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
93915 } /*if (f2py_success) of uplo*/
93916 /* End of cleaning variable uplo */
93917/*end of cleanupfrompyobj*/
93918 if (capi_buildvalue == NULL((void*)0)) {
93919/*routdebugfailure*/
93920 } else {
93921/*routdebugleave*/
93922 }
93923 CFUNCSMESS("Freeing memory.\n");
93924/*freemem*/
93925#ifdef F2PY_REPORT_ATEXIT
93926f2py_stop_clock();
93927#endif
93928 return capi_buildvalue;
93929}
93930/******************************* end of dtpttf *******************************/
93931
93932/*********************************** ctpttf ***********************************/
93933static char doc_f2py_rout__flapack_ctpttf[] = "\
93934arf,info = ctpttf(n,ap,[transr,uplo])\n\nWrapper for ``ctpttf``.\
93935\n\nParameters\n----------\n"
93936"n : input int\n"
93937"ap : input rank-1 array('F') with bounds (nt)\n"
93938"\nOther Parameters\n----------------\n"
93939"transr : input string(len=1), optional\n Default: 'N'\n"
93940"uplo : input string(len=1), optional\n Default: 'U'\n"
93941"\nReturns\n-------\n"
93942"arf : rank-1 array('F') with bounds (nt)\n"
93943"info : int";
93944/* extern void F_FUNC(ctpttf,CTPTTF)(char*,char*,F_INT*,complex_float*,complex_float*,F_INT* ); */
93945static PyObject *f2py_rout__flapack_ctpttf(const PyObject *capi_self,
93946 PyObject *capi_args,
93947 PyObject *capi_keywds,
93948 void (*f2py_func)(char*,char*,F_INTint*,complex_float*,complex_float*,F_INTint* )) {
93949 PyObject * volatile capi_buildvalue = NULL((void*)0);
93950 volatile int f2py_success = 1;
93951/*decl*/
93952
93953 string transr = NULL((void*)0);
93954 int slen(transr)capi_transr_len;
93955 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
93956 string uplo = NULL((void*)0);
93957 int slen(uplo)capi_uplo_len;
93958 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
93959 int n = 0;
93960 PyObject *n_capi = Py_None(&_Py_NoneStruct);
93961 int nt = 0;
93962 complex_float *ap = NULL((void*)0);
93963 npy_intp ap_Dims[1] = {-1};
93964 const int ap_Rank = 1;
93965 PyArrayObject *capi_ap_tmp = NULL((void*)0);
93966 int capi_ap_intent = 0;
93967 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
93968 complex_float *arf = NULL((void*)0);
93969 npy_intp arf_Dims[1] = {-1};
93970 const int arf_Rank = 1;
93971 PyArrayObject *capi_arf_tmp = NULL((void*)0);
93972 int capi_arf_intent = 0;
93973 int info = 0;
93974 static char *capi_kwlist[] = {"n","ap","transr","uplo",NULL((void*)0)};
93975
93976/*routdebugenter*/
93977#ifdef F2PY_REPORT_ATEXIT
93978f2py_start_clock();
93979#endif
93980 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
93981 "OO|OO:_flapack.ctpttf",\
93982 capi_kwlist,&n_capi,&ap_capi,&transr_capi,&uplo_capi))
93983 return NULL((void*)0);
93984/*frompyobj*/
93985 /* Processing variable uplo */
93986 slen(uplo)capi_uplo_len = 1;
93987 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.ctpttf to C string");
93988 if (f2py_success) {
93989 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","ctpttf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctpttf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
93990 /* Processing variable n */
93991 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ctpttf() 1st argument (n) can't be converted to int");
93992 if (f2py_success) {
93993 CHECKSCALAR(n>=0,"n>=0","1st argument n","ctpttf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctpttf:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
93994 /* Processing variable ap */
93995 ;
93996 capi_ap_intent |= F2PY_INTENT_IN1;
93997 capi_ap_tmp = array_from_pyobj(NPY_CFLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
93998 if (capi_ap_tmp == NULL((void*)0)) {
93999 if (!PyErr_Occurred())
94000 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.ctpttf to C/Fortran array" );
94001 } else {
94002 ap = (complex_float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
94003
94004 /* Processing variable info */
94005 /* Processing variable transr */
94006 slen(transr)capi_transr_len = 1;
94007 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ctpttf to C string");
94008 if (f2py_success) {
94009 CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","ctpttf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctpttf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
94010 /* Processing variable nt */
94011 nt = shape(ap,0)ap_Dims[0];
94012 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","ctpttf:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctpttf:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
94013 /* Processing variable arf */
94014 arf_Dims[0]=nt;
94015 capi_arf_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
94016 capi_arf_tmp = array_from_pyobj(NPY_CFLOAT,arf_Dims,arf_Rank,capi_arf_intent,Py_None(&_Py_NoneStruct));
94017 if (capi_arf_tmp == NULL((void*)0)) {
94018 if (!PyErr_Occurred())
94019 PyErr_SetString(_flapack_error,"failed in converting hidden `arf' of _flapack.ctpttf to C/Fortran array" );
94020 } else {
94021 arf = (complex_float *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data));
94022
94023/*end of frompyobj*/
94024#ifdef F2PY_REPORT_ATEXIT
94025f2py_start_call_clock();
94026#endif
94027/*callfortranroutine*/
94028 (*f2py_func)(transr,uplo,&n,ap,arf,&info) ;
94029 /*(*f2py_func)(transr,uplo,&n,&nt,ap,arf,&info,slen(transr),slen(uplo));*/
94030if (PyErr_Occurred())
94031 f2py_success = 0;
94032#ifdef F2PY_REPORT_ATEXIT
94033f2py_stop_call_clock();
94034#endif
94035/*end of callfortranroutine*/
94036 if (f2py_success) {
94037/*pyobjfrom*/
94038/*end of pyobjfrom*/
94039 CFUNCSMESS("Building return value.\n");
94040 capi_buildvalue = Py_BuildValue("Ni",capi_arf_tmp,info);
94041/*closepyobjfrom*/
94042/*end of closepyobjfrom*/
94043 } /*if (f2py_success) after callfortranroutine*/
94044/*cleanupfrompyobj*/
94045 } /*if (capi_arf_tmp == NULL) ... else of arf*/
94046 /* End of cleaning variable arf */
94047 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
94048 /* End of cleaning variable nt */
94049 } /*CHECKSTRING(*transr=='N'||*transr=='C')*/
94050 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
94051 } /*if (f2py_success) of transr*/
94052 /* End of cleaning variable transr */
94053 /* End of cleaning variable info */
94054 if((PyObject *)capi_ap_tmp!=ap_capi) {
94055 Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); }
94056 } /*if (capi_ap_tmp == NULL) ... else of ap*/
94057 /* End of cleaning variable ap */
94058 } /*CHECKSCALAR(n>=0)*/
94059 } /*if (f2py_success) of n*/
94060 /* End of cleaning variable n */
94061 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
94062 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
94063 } /*if (f2py_success) of uplo*/
94064 /* End of cleaning variable uplo */
94065/*end of cleanupfrompyobj*/
94066 if (capi_buildvalue == NULL((void*)0)) {
94067/*routdebugfailure*/
94068 } else {
94069/*routdebugleave*/
94070 }
94071 CFUNCSMESS("Freeing memory.\n");
94072/*freemem*/
94073#ifdef F2PY_REPORT_ATEXIT
94074f2py_stop_clock();
94075#endif
94076 return capi_buildvalue;
94077}
94078/******************************* end of ctpttf *******************************/
94079
94080/*********************************** ztpttf ***********************************/
94081static char doc_f2py_rout__flapack_ztpttf[] = "\
94082arf,info = ztpttf(n,ap,[transr,uplo])\n\nWrapper for ``ztpttf``.\
94083\n\nParameters\n----------\n"
94084"n : input int\n"
94085"ap : input rank-1 array('D') with bounds (nt)\n"
94086"\nOther Parameters\n----------------\n"
94087"transr : input string(len=1), optional\n Default: 'N'\n"
94088"uplo : input string(len=1), optional\n Default: 'U'\n"
94089"\nReturns\n-------\n"
94090"arf : rank-1 array('D') with bounds (nt)\n"
94091"info : int";
94092/* extern void F_FUNC(ztpttf,ZTPTTF)(char*,char*,F_INT*,complex_double*,complex_double*,F_INT* ); */
94093static PyObject *f2py_rout__flapack_ztpttf(const PyObject *capi_self,
94094 PyObject *capi_args,
94095 PyObject *capi_keywds,
94096 void (*f2py_func)(char*,char*,F_INTint*,complex_double*,complex_double*,F_INTint* )) {
94097 PyObject * volatile capi_buildvalue = NULL((void*)0);
94098 volatile int f2py_success = 1;
94099/*decl*/
94100
94101 string transr = NULL((void*)0);
94102 int slen(transr)capi_transr_len;
94103 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
94104 string uplo = NULL((void*)0);
94105 int slen(uplo)capi_uplo_len;
94106 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
94107 int n = 0;
94108 PyObject *n_capi = Py_None(&_Py_NoneStruct);
94109 int nt = 0;
94110 complex_double *ap = NULL((void*)0);
94111 npy_intp ap_Dims[1] = {-1};
94112 const int ap_Rank = 1;
94113 PyArrayObject *capi_ap_tmp = NULL((void*)0);
94114 int capi_ap_intent = 0;
94115 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
94116 complex_double *arf = NULL((void*)0);
94117 npy_intp arf_Dims[1] = {-1};
94118 const int arf_Rank = 1;
94119 PyArrayObject *capi_arf_tmp = NULL((void*)0);
94120 int capi_arf_intent = 0;
94121 int info = 0;
94122 static char *capi_kwlist[] = {"n","ap","transr","uplo",NULL((void*)0)};
94123
94124/*routdebugenter*/
94125#ifdef F2PY_REPORT_ATEXIT
94126f2py_start_clock();
94127#endif
94128 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
94129 "OO|OO:_flapack.ztpttf",\
94130 capi_kwlist,&n_capi,&ap_capi,&transr_capi,&uplo_capi))
94131 return NULL((void*)0);
94132/*frompyobj*/
94133 /* Processing variable uplo */
94134 slen(uplo)capi_uplo_len = 1;
94135 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.ztpttf to C string");
94136 if (f2py_success) {
94137 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","ztpttf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztpttf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
94138 /* Processing variable n */
94139 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ztpttf() 1st argument (n) can't be converted to int");
94140 if (f2py_success) {
94141 CHECKSCALAR(n>=0,"n>=0","1st argument n","ztpttf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztpttf:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
94142 /* Processing variable ap */
94143 ;
94144 capi_ap_intent |= F2PY_INTENT_IN1;
94145 capi_ap_tmp = array_from_pyobj(NPY_CDOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
94146 if (capi_ap_tmp == NULL((void*)0)) {
94147 if (!PyErr_Occurred())
94148 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.ztpttf to C/Fortran array" );
94149 } else {
94150 ap = (complex_double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
94151
94152 /* Processing variable info */
94153 /* Processing variable transr */
94154 slen(transr)capi_transr_len = 1;
94155 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ztpttf to C string");
94156 if (f2py_success) {
94157 CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","ztpttf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztpttf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
94158 /* Processing variable nt */
94159 nt = shape(ap,0)ap_Dims[0];
94160 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","ztpttf:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztpttf:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
94161 /* Processing variable arf */
94162 arf_Dims[0]=nt;
94163 capi_arf_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
94164 capi_arf_tmp = array_from_pyobj(NPY_CDOUBLE,arf_Dims,arf_Rank,capi_arf_intent,Py_None(&_Py_NoneStruct));
94165 if (capi_arf_tmp == NULL((void*)0)) {
94166 if (!PyErr_Occurred())
94167 PyErr_SetString(_flapack_error,"failed in converting hidden `arf' of _flapack.ztpttf to C/Fortran array" );
94168 } else {
94169 arf = (complex_double *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data));
94170
94171/*end of frompyobj*/
94172#ifdef F2PY_REPORT_ATEXIT
94173f2py_start_call_clock();
94174#endif
94175/*callfortranroutine*/
94176 (*f2py_func)(transr,uplo,&n,ap,arf,&info) ;
94177 /*(*f2py_func)(transr,uplo,&n,&nt,ap,arf,&info,slen(transr),slen(uplo));*/
94178if (PyErr_Occurred())
94179 f2py_success = 0;
94180#ifdef F2PY_REPORT_ATEXIT
94181f2py_stop_call_clock();
94182#endif
94183/*end of callfortranroutine*/
94184 if (f2py_success) {
94185/*pyobjfrom*/
94186/*end of pyobjfrom*/
94187 CFUNCSMESS("Building return value.\n");
94188 capi_buildvalue = Py_BuildValue("Ni",capi_arf_tmp,info);
94189/*closepyobjfrom*/
94190/*end of closepyobjfrom*/
94191 } /*if (f2py_success) after callfortranroutine*/
94192/*cleanupfrompyobj*/
94193 } /*if (capi_arf_tmp == NULL) ... else of arf*/
94194 /* End of cleaning variable arf */
94195 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
94196 /* End of cleaning variable nt */
94197 } /*CHECKSTRING(*transr=='N'||*transr=='C')*/
94198 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
94199 } /*if (f2py_success) of transr*/
94200 /* End of cleaning variable transr */
94201 /* End of cleaning variable info */
94202 if((PyObject *)capi_ap_tmp!=ap_capi) {
94203 Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); }
94204 } /*if (capi_ap_tmp == NULL) ... else of ap*/
94205 /* End of cleaning variable ap */
94206 } /*CHECKSCALAR(n>=0)*/
94207 } /*if (f2py_success) of n*/
94208 /* End of cleaning variable n */
94209 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
94210 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
94211 } /*if (f2py_success) of uplo*/
94212 /* End of cleaning variable uplo */
94213/*end of cleanupfrompyobj*/
94214 if (capi_buildvalue == NULL((void*)0)) {
94215/*routdebugfailure*/
94216 } else {
94217/*routdebugleave*/
94218 }
94219 CFUNCSMESS("Freeing memory.\n");
94220/*freemem*/
94221#ifdef F2PY_REPORT_ATEXIT
94222f2py_stop_clock();
94223#endif
94224 return capi_buildvalue;
94225}
94226/******************************* end of ztpttf *******************************/
94227
94228/*********************************** stpttr ***********************************/
94229static char doc_f2py_rout__flapack_stpttr[] = "\
94230a,info = stpttr(n,ap,[uplo])\n\nWrapper for ``stpttr``.\
94231\n\nParameters\n----------\n"
94232"n : input int\n"
94233"ap : input rank-1 array('f') with bounds (nt)\n"
94234"\nOther Parameters\n----------------\n"
94235"uplo : input string(len=1), optional\n Default: 'U'\n"
94236"\nReturns\n-------\n"
94237"a : rank-2 array('f') with bounds (n,n)\n"
94238"info : int";
94239/* extern void F_FUNC(stpttr,STPTTR)(char*,F_INT*,float*,float*,F_INT*,F_INT* ); */
94240static PyObject *f2py_rout__flapack_stpttr(const PyObject *capi_self,
94241 PyObject *capi_args,
94242 PyObject *capi_keywds,
94243 void (*f2py_func)(char*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
94244 PyObject * volatile capi_buildvalue = NULL((void*)0);
94245 volatile int f2py_success = 1;
94246/*decl*/
94247
94248 string uplo = NULL((void*)0);
94249 int slen(uplo)capi_uplo_len;
94250 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
94251 int n = 0;
94252 PyObject *n_capi = Py_None(&_Py_NoneStruct);
94253 int nt = 0;
94254 float *ap = NULL((void*)0);
94255 npy_intp ap_Dims[1] = {-1};
94256 const int ap_Rank = 1;
94257 PyArrayObject *capi_ap_tmp = NULL((void*)0);
94258 int capi_ap_intent = 0;
94259 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
94260 float *a = NULL((void*)0);
94261 npy_intp a_Dims[2] = {-1, -1};
94262 const int a_Rank = 2;
94263 PyArrayObject *capi_a_tmp = NULL((void*)0);
94264 int capi_a_intent = 0;
94265 int lda = 0;
94266 int info = 0;
94267 static char *capi_kwlist[] = {"n","ap","uplo",NULL((void*)0)};
94268
94269/*routdebugenter*/
94270#ifdef F2PY_REPORT_ATEXIT
94271f2py_start_clock();
94272#endif
94273 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
94274 "OO|O:_flapack.stpttr",\
94275 capi_kwlist,&n_capi,&ap_capi,&uplo_capi))
94276 return NULL((void*)0);
94277/*frompyobj*/
94278 /* Processing variable uplo */
94279 slen(uplo)capi_uplo_len = 1;
94280 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.stpttr to C string");
94281 if (f2py_success) {
94282 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","stpttr:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stpttr:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
94283 /* Processing variable n */
94284 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.stpttr() 1st argument (n) can't be converted to int");
94285 if (f2py_success) {
94286 CHECKSCALAR(n>=0,"n>=0","1st argument n","stpttr:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stpttr:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
94287 /* Processing variable ap */
94288 ;
94289 capi_ap_intent |= F2PY_INTENT_IN1;
94290 capi_ap_tmp = array_from_pyobj(NPY_FLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
94291 if (capi_ap_tmp == NULL((void*)0)) {
94292 if (!PyErr_Occurred())
94293 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.stpttr to C/Fortran array" );
94294 } else {
94295 ap = (float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
94296
94297 /* Processing variable info */
94298 /* Processing variable nt */
94299 nt = shape(ap,0)ap_Dims[0];
94300 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","stpttr:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stpttr:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
94301 /* Processing variable a */
94302 a_Dims[0]=n,a_Dims[1]=n;
94303 capi_a_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
94304 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,Py_None(&_Py_NoneStruct));
94305 if (capi_a_tmp == NULL((void*)0)) {
94306 if (!PyErr_Occurred())
94307 PyErr_SetString(_flapack_error,"failed in converting hidden `a' of _flapack.stpttr to C/Fortran array" );
94308 } else {
94309 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
94310
94311 /* Processing variable lda */
94312 lda = MAX(n,1)((n > 1) ? (n) : (1));
94313/*end of frompyobj*/
94314#ifdef F2PY_REPORT_ATEXIT
94315f2py_start_call_clock();
94316#endif
94317/*callfortranroutine*/
94318 (*f2py_func)(uplo,&n,ap,a,&lda,&info) ;
94319 /*(*f2py_func)(uplo,&n,&nt,ap,a,&lda,&info,slen(uplo));*/
94320if (PyErr_Occurred())
94321 f2py_success = 0;
94322#ifdef F2PY_REPORT_ATEXIT
94323f2py_stop_call_clock();
94324#endif
94325/*end of callfortranroutine*/
94326 if (f2py_success) {
94327/*pyobjfrom*/
94328/*end of pyobjfrom*/
94329 CFUNCSMESS("Building return value.\n");
94330 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
94331/*closepyobjfrom*/
94332/*end of closepyobjfrom*/
94333 } /*if (f2py_success) after callfortranroutine*/
94334/*cleanupfrompyobj*/
94335 /* End of cleaning variable lda */
94336 } /*if (capi_a_tmp == NULL) ... else of a*/
94337 /* End of cleaning variable a */
94338 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
94339 /* End of cleaning variable nt */
94340 /* End of cleaning variable info */
94341 if((PyObject *)capi_ap_tmp!=ap_capi) {
94342 Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); }
94343 } /*if (capi_ap_tmp == NULL) ... else of ap*/
94344 /* End of cleaning variable ap */
94345 } /*CHECKSCALAR(n>=0)*/
94346 } /*if (f2py_success) of n*/
94347 /* End of cleaning variable n */
94348 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
94349 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
94350 } /*if (f2py_success) of uplo*/
94351 /* End of cleaning variable uplo */
94352/*end of cleanupfrompyobj*/
94353 if (capi_buildvalue == NULL((void*)0)) {
94354/*routdebugfailure*/
94355 } else {
94356/*routdebugleave*/
94357 }
94358 CFUNCSMESS("Freeing memory.\n");
94359/*freemem*/
94360#ifdef F2PY_REPORT_ATEXIT
94361f2py_stop_clock();
94362#endif
94363 return capi_buildvalue;
94364}
94365/******************************* end of stpttr *******************************/
94366
94367/*********************************** dtpttr ***********************************/
94368static char doc_f2py_rout__flapack_dtpttr[] = "\
94369a,info = dtpttr(n,ap,[uplo])\n\nWrapper for ``dtpttr``.\
94370\n\nParameters\n----------\n"
94371"n : input int\n"
94372"ap : input rank-1 array('d') with bounds (nt)\n"
94373"\nOther Parameters\n----------------\n"
94374"uplo : input string(len=1), optional\n Default: 'U'\n"
94375"\nReturns\n-------\n"
94376"a : rank-2 array('d') with bounds (n,n)\n"
94377"info : int";
94378/* extern void F_FUNC(dtpttr,DTPTTR)(char*,F_INT*,double*,double*,F_INT*,F_INT* ); */
94379static PyObject *f2py_rout__flapack_dtpttr(const PyObject *capi_self,
94380 PyObject *capi_args,
94381 PyObject *capi_keywds,
94382 void (*f2py_func)(char*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
94383 PyObject * volatile capi_buildvalue = NULL((void*)0);
94384 volatile int f2py_success = 1;
94385/*decl*/
94386
94387 string uplo = NULL((void*)0);
94388 int slen(uplo)capi_uplo_len;
94389 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
94390 int n = 0;
94391 PyObject *n_capi = Py_None(&_Py_NoneStruct);
94392 int nt = 0;
94393 double *ap = NULL((void*)0);
94394 npy_intp ap_Dims[1] = {-1};
94395 const int ap_Rank = 1;
94396 PyArrayObject *capi_ap_tmp = NULL((void*)0);
94397 int capi_ap_intent = 0;
94398 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
94399 double *a = NULL((void*)0);
94400 npy_intp a_Dims[2] = {-1, -1};
94401 const int a_Rank = 2;
94402 PyArrayObject *capi_a_tmp = NULL((void*)0);
94403 int capi_a_intent = 0;
94404 int lda = 0;
94405 int info = 0;
94406 static char *capi_kwlist[] = {"n","ap","uplo",NULL((void*)0)};
94407
94408/*routdebugenter*/
94409#ifdef F2PY_REPORT_ATEXIT
94410f2py_start_clock();
94411#endif
94412 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
94413 "OO|O:_flapack.dtpttr",\
94414 capi_kwlist,&n_capi,&ap_capi,&uplo_capi))
94415 return NULL((void*)0);
94416/*frompyobj*/
94417 /* Processing variable uplo */
94418 slen(uplo)capi_uplo_len = 1;
94419 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.dtpttr to C string");
94420 if (f2py_success) {
94421 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","dtpttr:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtpttr:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
94422 /* Processing variable n */
94423 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dtpttr() 1st argument (n) can't be converted to int");
94424 if (f2py_success) {
94425 CHECKSCALAR(n>=0,"n>=0","1st argument n","dtpttr:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtpttr:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
94426 /* Processing variable ap */
94427 ;
94428 capi_ap_intent |= F2PY_INTENT_IN1;
94429 capi_ap_tmp = array_from_pyobj(NPY_DOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
94430 if (capi_ap_tmp == NULL((void*)0)) {
94431 if (!PyErr_Occurred())
94432 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.dtpttr to C/Fortran array" );
94433 } else {
94434 ap = (double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
94435
94436 /* Processing variable info */
94437 /* Processing variable nt */
94438 nt = shape(ap,0)ap_Dims[0];
94439 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","dtpttr:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtpttr:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
94440 /* Processing variable a */
94441 a_Dims[0]=n,a_Dims[1]=n;
94442 capi_a_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
94443 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,Py_None(&_Py_NoneStruct));
94444 if (capi_a_tmp == NULL((void*)0)) {
94445 if (!PyErr_Occurred())
94446 PyErr_SetString(_flapack_error,"failed in converting hidden `a' of _flapack.dtpttr to C/Fortran array" );
94447 } else {
94448 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
94449
94450 /* Processing variable lda */
94451 lda = MAX(n,1)((n > 1) ? (n) : (1));
94452/*end of frompyobj*/
94453#ifdef F2PY_REPORT_ATEXIT
94454f2py_start_call_clock();
94455#endif
94456/*callfortranroutine*/
94457 (*f2py_func)(uplo,&n,ap,a,&lda,&info) ;
94458 /*(*f2py_func)(uplo,&n,&nt,ap,a,&lda,&info,slen(uplo));*/
94459if (PyErr_Occurred())
94460 f2py_success = 0;
94461#ifdef F2PY_REPORT_ATEXIT
94462f2py_stop_call_clock();
94463#endif
94464/*end of callfortranroutine*/
94465 if (f2py_success) {
94466/*pyobjfrom*/
94467/*end of pyobjfrom*/
94468 CFUNCSMESS("Building return value.\n");
94469 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
94470/*closepyobjfrom*/
94471/*end of closepyobjfrom*/
94472 } /*if (f2py_success) after callfortranroutine*/
94473/*cleanupfrompyobj*/
94474 /* End of cleaning variable lda */
94475 } /*if (capi_a_tmp == NULL) ... else of a*/
94476 /* End of cleaning variable a */
94477 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
94478 /* End of cleaning variable nt */
94479 /* End of cleaning variable info */
94480 if((PyObject *)capi_ap_tmp!=ap_capi) {
94481 Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); }
94482 } /*if (capi_ap_tmp == NULL) ... else of ap*/
94483 /* End of cleaning variable ap */
94484 } /*CHECKSCALAR(n>=0)*/
94485 } /*if (f2py_success) of n*/
94486 /* End of cleaning variable n */
94487 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
94488 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
94489 } /*if (f2py_success) of uplo*/
94490 /* End of cleaning variable uplo */
94491/*end of cleanupfrompyobj*/
94492 if (capi_buildvalue == NULL((void*)0)) {
94493/*routdebugfailure*/
94494 } else {
94495/*routdebugleave*/
94496 }
94497 CFUNCSMESS("Freeing memory.\n");
94498/*freemem*/
94499#ifdef F2PY_REPORT_ATEXIT
94500f2py_stop_clock();
94501#endif
94502 return capi_buildvalue;
94503}
94504/******************************* end of dtpttr *******************************/
94505
94506/*********************************** ctpttr ***********************************/
94507static char doc_f2py_rout__flapack_ctpttr[] = "\
94508a,info = ctpttr(n,ap,[uplo])\n\nWrapper for ``ctpttr``.\
94509\n\nParameters\n----------\n"
94510"n : input int\n"
94511"ap : input rank-1 array('F') with bounds (nt)\n"
94512"\nOther Parameters\n----------------\n"
94513"uplo : input string(len=1), optional\n Default: 'U'\n"
94514"\nReturns\n-------\n"
94515"a : rank-2 array('F') with bounds (n,n)\n"
94516"info : int";
94517/* extern void F_FUNC(ctpttr,CTPTTR)(char*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */
94518static PyObject *f2py_rout__flapack_ctpttr(const PyObject *capi_self,
94519 PyObject *capi_args,
94520 PyObject *capi_keywds,
94521 void (*f2py_func)(char*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
94522 PyObject * volatile capi_buildvalue = NULL((void*)0);
94523 volatile int f2py_success = 1;
94524/*decl*/
94525
94526 string uplo = NULL((void*)0);
94527 int slen(uplo)capi_uplo_len;
94528 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
94529 int n = 0;
94530 PyObject *n_capi = Py_None(&_Py_NoneStruct);
94531 int nt = 0;
94532 complex_float *ap = NULL((void*)0);
94533 npy_intp ap_Dims[1] = {-1};
94534 const int ap_Rank = 1;
94535 PyArrayObject *capi_ap_tmp = NULL((void*)0);
94536 int capi_ap_intent = 0;
94537 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
94538 complex_float *a = NULL((void*)0);
94539 npy_intp a_Dims[2] = {-1, -1};
94540 const int a_Rank = 2;
94541 PyArrayObject *capi_a_tmp = NULL((void*)0);
94542 int capi_a_intent = 0;
94543 int lda = 0;
94544 int info = 0;
94545 static char *capi_kwlist[] = {"n","ap","uplo",NULL((void*)0)};
94546
94547/*routdebugenter*/
94548#ifdef F2PY_REPORT_ATEXIT
94549f2py_start_clock();
94550#endif
94551 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
94552 "OO|O:_flapack.ctpttr",\
94553 capi_kwlist,&n_capi,&ap_capi,&uplo_capi))
94554 return NULL((void*)0);
94555/*frompyobj*/
94556 /* Processing variable uplo */
94557 slen(uplo)capi_uplo_len = 1;
94558 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.ctpttr to C string");
94559 if (f2py_success) {
94560 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","ctpttr:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctpttr:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
94561 /* Processing variable n */
94562 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ctpttr() 1st argument (n) can't be converted to int");
94563 if (f2py_success) {
94564 CHECKSCALAR(n>=0,"n>=0","1st argument n","ctpttr:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctpttr:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
94565 /* Processing variable ap */
94566 ;
94567 capi_ap_intent |= F2PY_INTENT_IN1;
94568 capi_ap_tmp = array_from_pyobj(NPY_CFLOAT,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
94569 if (capi_ap_tmp == NULL((void*)0)) {
94570 if (!PyErr_Occurred())
94571 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.ctpttr to C/Fortran array" );
94572 } else {
94573 ap = (complex_float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
94574
94575 /* Processing variable info */
94576 /* Processing variable nt */
94577 nt = shape(ap,0)ap_Dims[0];
94578 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","ctpttr:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctpttr:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
94579 /* Processing variable a */
94580 a_Dims[0]=n,a_Dims[1]=n;
94581 capi_a_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
94582 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,Py_None(&_Py_NoneStruct));
94583 if (capi_a_tmp == NULL((void*)0)) {
94584 if (!PyErr_Occurred())
94585 PyErr_SetString(_flapack_error,"failed in converting hidden `a' of _flapack.ctpttr to C/Fortran array" );
94586 } else {
94587 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
94588
94589 /* Processing variable lda */
94590 lda = MAX(n,1)((n > 1) ? (n) : (1));
94591/*end of frompyobj*/
94592#ifdef F2PY_REPORT_ATEXIT
94593f2py_start_call_clock();
94594#endif
94595/*callfortranroutine*/
94596 (*f2py_func)(uplo,&n,ap,a,&lda,&info) ;
94597 /*(*f2py_func)(uplo,&n,&nt,ap,a,&lda,&info,slen(uplo));*/
94598if (PyErr_Occurred())
94599 f2py_success = 0;
94600#ifdef F2PY_REPORT_ATEXIT
94601f2py_stop_call_clock();
94602#endif
94603/*end of callfortranroutine*/
94604 if (f2py_success) {
94605/*pyobjfrom*/
94606/*end of pyobjfrom*/
94607 CFUNCSMESS("Building return value.\n");
94608 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
94609/*closepyobjfrom*/
94610/*end of closepyobjfrom*/
94611 } /*if (f2py_success) after callfortranroutine*/
94612/*cleanupfrompyobj*/
94613 /* End of cleaning variable lda */
94614 } /*if (capi_a_tmp == NULL) ... else of a*/
94615 /* End of cleaning variable a */
94616 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
94617 /* End of cleaning variable nt */
94618 /* End of cleaning variable info */
94619 if((PyObject *)capi_ap_tmp!=ap_capi) {
94620 Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); }
94621 } /*if (capi_ap_tmp == NULL) ... else of ap*/
94622 /* End of cleaning variable ap */
94623 } /*CHECKSCALAR(n>=0)*/
94624 } /*if (f2py_success) of n*/
94625 /* End of cleaning variable n */
94626 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
94627 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
94628 } /*if (f2py_success) of uplo*/
94629 /* End of cleaning variable uplo */
94630/*end of cleanupfrompyobj*/
94631 if (capi_buildvalue == NULL((void*)0)) {
94632/*routdebugfailure*/
94633 } else {
94634/*routdebugleave*/
94635 }
94636 CFUNCSMESS("Freeing memory.\n");
94637/*freemem*/
94638#ifdef F2PY_REPORT_ATEXIT
94639f2py_stop_clock();
94640#endif
94641 return capi_buildvalue;
94642}
94643/******************************* end of ctpttr *******************************/
94644
94645/*********************************** ztpttr ***********************************/
94646static char doc_f2py_rout__flapack_ztpttr[] = "\
94647a,info = ztpttr(n,ap,[uplo])\n\nWrapper for ``ztpttr``.\
94648\n\nParameters\n----------\n"
94649"n : input int\n"
94650"ap : input rank-1 array('D') with bounds (nt)\n"
94651"\nOther Parameters\n----------------\n"
94652"uplo : input string(len=1), optional\n Default: 'U'\n"
94653"\nReturns\n-------\n"
94654"a : rank-2 array('D') with bounds (n,n)\n"
94655"info : int";
94656/* extern void F_FUNC(ztpttr,ZTPTTR)(char*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */
94657static PyObject *f2py_rout__flapack_ztpttr(const PyObject *capi_self,
94658 PyObject *capi_args,
94659 PyObject *capi_keywds,
94660 void (*f2py_func)(char*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
94661 PyObject * volatile capi_buildvalue = NULL((void*)0);
94662 volatile int f2py_success = 1;
94663/*decl*/
94664
94665 string uplo = NULL((void*)0);
94666 int slen(uplo)capi_uplo_len;
94667 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
94668 int n = 0;
94669 PyObject *n_capi = Py_None(&_Py_NoneStruct);
94670 int nt = 0;
94671 complex_double *ap = NULL((void*)0);
94672 npy_intp ap_Dims[1] = {-1};
94673 const int ap_Rank = 1;
94674 PyArrayObject *capi_ap_tmp = NULL((void*)0);
94675 int capi_ap_intent = 0;
94676 PyObject *ap_capi = Py_None(&_Py_NoneStruct);
94677 complex_double *a = NULL((void*)0);
94678 npy_intp a_Dims[2] = {-1, -1};
94679 const int a_Rank = 2;
94680 PyArrayObject *capi_a_tmp = NULL((void*)0);
94681 int capi_a_intent = 0;
94682 int lda = 0;
94683 int info = 0;
94684 static char *capi_kwlist[] = {"n","ap","uplo",NULL((void*)0)};
94685
94686/*routdebugenter*/
94687#ifdef F2PY_REPORT_ATEXIT
94688f2py_start_clock();
94689#endif
94690 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
94691 "OO|O:_flapack.ztpttr",\
94692 capi_kwlist,&n_capi,&ap_capi,&uplo_capi))
94693 return NULL((void*)0);
94694/*frompyobj*/
94695 /* Processing variable uplo */
94696 slen(uplo)capi_uplo_len = 1;
94697 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.ztpttr to C string");
94698 if (f2py_success) {
94699 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","ztpttr:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztpttr:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
94700 /* Processing variable n */
94701 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ztpttr() 1st argument (n) can't be converted to int");
94702 if (f2py_success) {
94703 CHECKSCALAR(n>=0,"n>=0","1st argument n","ztpttr:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztpttr:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
94704 /* Processing variable ap */
94705 ;
94706 capi_ap_intent |= F2PY_INTENT_IN1;
94707 capi_ap_tmp = array_from_pyobj(NPY_CDOUBLE,ap_Dims,ap_Rank,capi_ap_intent,ap_capi);
94708 if (capi_ap_tmp == NULL((void*)0)) {
94709 if (!PyErr_Occurred())
94710 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `ap' of _flapack.ztpttr to C/Fortran array" );
94711 } else {
94712 ap = (complex_double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
94713
94714 /* Processing variable info */
94715 /* Processing variable nt */
94716 nt = shape(ap,0)ap_Dims[0];
94717 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","ztpttr:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztpttr:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
94718 /* Processing variable a */
94719 a_Dims[0]=n,a_Dims[1]=n;
94720 capi_a_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
94721 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,Py_None(&_Py_NoneStruct));
94722 if (capi_a_tmp == NULL((void*)0)) {
94723 if (!PyErr_Occurred())
94724 PyErr_SetString(_flapack_error,"failed in converting hidden `a' of _flapack.ztpttr to C/Fortran array" );
94725 } else {
94726 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
94727
94728 /* Processing variable lda */
94729 lda = MAX(n,1)((n > 1) ? (n) : (1));
94730/*end of frompyobj*/
94731#ifdef F2PY_REPORT_ATEXIT
94732f2py_start_call_clock();
94733#endif
94734/*callfortranroutine*/
94735 (*f2py_func)(uplo,&n,ap,a,&lda,&info) ;
94736 /*(*f2py_func)(uplo,&n,&nt,ap,a,&lda,&info,slen(uplo));*/
94737if (PyErr_Occurred())
94738 f2py_success = 0;
94739#ifdef F2PY_REPORT_ATEXIT
94740f2py_stop_call_clock();
94741#endif
94742/*end of callfortranroutine*/
94743 if (f2py_success) {
94744/*pyobjfrom*/
94745/*end of pyobjfrom*/
94746 CFUNCSMESS("Building return value.\n");
94747 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
94748/*closepyobjfrom*/
94749/*end of closepyobjfrom*/
94750 } /*if (f2py_success) after callfortranroutine*/
94751/*cleanupfrompyobj*/
94752 /* End of cleaning variable lda */
94753 } /*if (capi_a_tmp == NULL) ... else of a*/
94754 /* End of cleaning variable a */
94755 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
94756 /* End of cleaning variable nt */
94757 /* End of cleaning variable info */
94758 if((PyObject *)capi_ap_tmp!=ap_capi) {
94759 Py_XDECREF(capi_ap_tmp)_Py_XDECREF(((PyObject*)(capi_ap_tmp))); }
94760 } /*if (capi_ap_tmp == NULL) ... else of ap*/
94761 /* End of cleaning variable ap */
94762 } /*CHECKSCALAR(n>=0)*/
94763 } /*if (f2py_success) of n*/
94764 /* End of cleaning variable n */
94765 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
94766 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
94767 } /*if (f2py_success) of uplo*/
94768 /* End of cleaning variable uplo */
94769/*end of cleanupfrompyobj*/
94770 if (capi_buildvalue == NULL((void*)0)) {
94771/*routdebugfailure*/
94772 } else {
94773/*routdebugleave*/
94774 }
94775 CFUNCSMESS("Freeing memory.\n");
94776/*freemem*/
94777#ifdef F2PY_REPORT_ATEXIT
94778f2py_stop_clock();
94779#endif
94780 return capi_buildvalue;
94781}
94782/******************************* end of ztpttr *******************************/
94783
94784/*********************************** stfttp ***********************************/
94785static char doc_f2py_rout__flapack_stfttp[] = "\
94786ap,info = stfttp(n,arf,[transr,uplo])\n\nWrapper for ``stfttp``.\
94787\n\nParameters\n----------\n"
94788"n : input int\n"
94789"arf : input rank-1 array('f') with bounds (nt)\n"
94790"\nOther Parameters\n----------------\n"
94791"transr : input string(len=1), optional\n Default: 'N'\n"
94792"uplo : input string(len=1), optional\n Default: 'U'\n"
94793"\nReturns\n-------\n"
94794"ap : rank-1 array('f') with bounds (nt)\n"
94795"info : int";
94796/* extern void F_FUNC(stfttp,STFTTP)(char*,char*,F_INT*,float*,float*,F_INT* ); */
94797static PyObject *f2py_rout__flapack_stfttp(const PyObject *capi_self,
94798 PyObject *capi_args,
94799 PyObject *capi_keywds,
94800 void (*f2py_func)(char*,char*,F_INTint*,float*,float*,F_INTint* )) {
94801 PyObject * volatile capi_buildvalue = NULL((void*)0);
94802 volatile int f2py_success = 1;
94803/*decl*/
94804
94805 string transr = NULL((void*)0);
94806 int slen(transr)capi_transr_len;
94807 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
94808 string uplo = NULL((void*)0);
94809 int slen(uplo)capi_uplo_len;
94810 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
94811 int n = 0;
94812 PyObject *n_capi = Py_None(&_Py_NoneStruct);
94813 int nt = 0;
94814 float *ap = NULL((void*)0);
94815 npy_intp ap_Dims[1] = {-1};
94816 const int ap_Rank = 1;
94817 PyArrayObject *capi_ap_tmp = NULL((void*)0);
94818 int capi_ap_intent = 0;
94819 float *arf = NULL((void*)0);
94820 npy_intp arf_Dims[1] = {-1};
94821 const int arf_Rank = 1;
94822 PyArrayObject *capi_arf_tmp = NULL((void*)0);
94823 int capi_arf_intent = 0;
94824 PyObject *arf_capi = Py_None(&_Py_NoneStruct);
94825 int info = 0;
94826 static char *capi_kwlist[] = {"n","arf","transr","uplo",NULL((void*)0)};
94827
94828/*routdebugenter*/
94829#ifdef F2PY_REPORT_ATEXIT
94830f2py_start_clock();
94831#endif
94832 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
94833 "OO|OO:_flapack.stfttp",\
94834 capi_kwlist,&n_capi,&arf_capi,&transr_capi,&uplo_capi))
94835 return NULL((void*)0);
94836/*frompyobj*/
94837 /* Processing variable uplo */
94838 slen(uplo)capi_uplo_len = 1;
94839 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.stfttp to C string");
94840 if (f2py_success) {
94841 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","stfttp:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stfttp:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
94842 /* Processing variable n */
94843 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.stfttp() 1st argument (n) can't be converted to int");
94844 if (f2py_success) {
94845 CHECKSCALAR(n>=0,"n>=0","1st argument n","stfttp:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stfttp:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
94846 /* Processing variable arf */
94847 ;
94848 capi_arf_intent |= F2PY_INTENT_IN1;
94849 capi_arf_tmp = array_from_pyobj(NPY_FLOAT,arf_Dims,arf_Rank,capi_arf_intent,arf_capi);
94850 if (capi_arf_tmp == NULL((void*)0)) {
94851 if (!PyErr_Occurred())
94852 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `arf' of _flapack.stfttp to C/Fortran array" );
94853 } else {
94854 arf = (float *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data));
94855
94856 /* Processing variable info */
94857 /* Processing variable transr */
94858 slen(transr)capi_transr_len = 1;
94859 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.stfttp to C string");
94860 if (f2py_success) {
94861 CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","stfttp:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stfttp:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
94862 /* Processing variable nt */
94863 nt = shape(arf,0)arf_Dims[0];
94864 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","stfttp:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stfttp:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
94865 /* Processing variable ap */
94866 ap_Dims[0]=nt;
94867 capi_ap_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
94868 capi_ap_tmp = array_from_pyobj(NPY_FLOAT,ap_Dims,ap_Rank,capi_ap_intent,Py_None(&_Py_NoneStruct));
94869 if (capi_ap_tmp == NULL((void*)0)) {
94870 if (!PyErr_Occurred())
94871 PyErr_SetString(_flapack_error,"failed in converting hidden `ap' of _flapack.stfttp to C/Fortran array" );
94872 } else {
94873 ap = (float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
94874
94875/*end of frompyobj*/
94876#ifdef F2PY_REPORT_ATEXIT
94877f2py_start_call_clock();
94878#endif
94879/*callfortranroutine*/
94880 (*f2py_func)(transr,uplo,&n,arf,ap,&info) ;
94881 /*(*f2py_func)(transr,uplo,&n,&nt,ap,arf,&info,slen(transr),slen(uplo));*/
94882if (PyErr_Occurred())
94883 f2py_success = 0;
94884#ifdef F2PY_REPORT_ATEXIT
94885f2py_stop_call_clock();
94886#endif
94887/*end of callfortranroutine*/
94888 if (f2py_success) {
94889/*pyobjfrom*/
94890/*end of pyobjfrom*/
94891 CFUNCSMESS("Building return value.\n");
94892 capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info);
94893/*closepyobjfrom*/
94894/*end of closepyobjfrom*/
94895 } /*if (f2py_success) after callfortranroutine*/
94896/*cleanupfrompyobj*/
94897 } /*if (capi_ap_tmp == NULL) ... else of ap*/
94898 /* End of cleaning variable ap */
94899 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
94900 /* End of cleaning variable nt */
94901 } /*CHECKSTRING(*transr=='N'||*transr=='T')*/
94902 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
94903 } /*if (f2py_success) of transr*/
94904 /* End of cleaning variable transr */
94905 /* End of cleaning variable info */
94906 if((PyObject *)capi_arf_tmp!=arf_capi) {
94907 Py_XDECREF(capi_arf_tmp)_Py_XDECREF(((PyObject*)(capi_arf_tmp))); }
94908 } /*if (capi_arf_tmp == NULL) ... else of arf*/
94909 /* End of cleaning variable arf */
94910 } /*CHECKSCALAR(n>=0)*/
94911 } /*if (f2py_success) of n*/
94912 /* End of cleaning variable n */
94913 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
94914 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
94915 } /*if (f2py_success) of uplo*/
94916 /* End of cleaning variable uplo */
94917/*end of cleanupfrompyobj*/
94918 if (capi_buildvalue == NULL((void*)0)) {
94919/*routdebugfailure*/
94920 } else {
94921/*routdebugleave*/
94922 }
94923 CFUNCSMESS("Freeing memory.\n");
94924/*freemem*/
94925#ifdef F2PY_REPORT_ATEXIT
94926f2py_stop_clock();
94927#endif
94928 return capi_buildvalue;
94929}
94930/******************************* end of stfttp *******************************/
94931
94932/*********************************** dtfttp ***********************************/
94933static char doc_f2py_rout__flapack_dtfttp[] = "\
94934ap,info = dtfttp(n,arf,[transr,uplo])\n\nWrapper for ``dtfttp``.\
94935\n\nParameters\n----------\n"
94936"n : input int\n"
94937"arf : input rank-1 array('d') with bounds (nt)\n"
94938"\nOther Parameters\n----------------\n"
94939"transr : input string(len=1), optional\n Default: 'N'\n"
94940"uplo : input string(len=1), optional\n Default: 'U'\n"
94941"\nReturns\n-------\n"
94942"ap : rank-1 array('d') with bounds (nt)\n"
94943"info : int";
94944/* extern void F_FUNC(dtfttp,DTFTTP)(char*,char*,F_INT*,double*,double*,F_INT* ); */
94945static PyObject *f2py_rout__flapack_dtfttp(const PyObject *capi_self,
94946 PyObject *capi_args,
94947 PyObject *capi_keywds,
94948 void (*f2py_func)(char*,char*,F_INTint*,double*,double*,F_INTint* )) {
94949 PyObject * volatile capi_buildvalue = NULL((void*)0);
94950 volatile int f2py_success = 1;
94951/*decl*/
94952
94953 string transr = NULL((void*)0);
94954 int slen(transr)capi_transr_len;
94955 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
94956 string uplo = NULL((void*)0);
94957 int slen(uplo)capi_uplo_len;
94958 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
94959 int n = 0;
94960 PyObject *n_capi = Py_None(&_Py_NoneStruct);
94961 int nt = 0;
94962 double *ap = NULL((void*)0);
94963 npy_intp ap_Dims[1] = {-1};
94964 const int ap_Rank = 1;
94965 PyArrayObject *capi_ap_tmp = NULL((void*)0);
94966 int capi_ap_intent = 0;
94967 double *arf = NULL((void*)0);
94968 npy_intp arf_Dims[1] = {-1};
94969 const int arf_Rank = 1;
94970 PyArrayObject *capi_arf_tmp = NULL((void*)0);
94971 int capi_arf_intent = 0;
94972 PyObject *arf_capi = Py_None(&_Py_NoneStruct);
94973 int info = 0;
94974 static char *capi_kwlist[] = {"n","arf","transr","uplo",NULL((void*)0)};
94975
94976/*routdebugenter*/
94977#ifdef F2PY_REPORT_ATEXIT
94978f2py_start_clock();
94979#endif
94980 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
94981 "OO|OO:_flapack.dtfttp",\
94982 capi_kwlist,&n_capi,&arf_capi,&transr_capi,&uplo_capi))
94983 return NULL((void*)0);
94984/*frompyobj*/
94985 /* Processing variable uplo */
94986 slen(uplo)capi_uplo_len = 1;
94987 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.dtfttp to C string");
94988 if (f2py_success) {
94989 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","dtfttp:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtfttp:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
94990 /* Processing variable n */
94991 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dtfttp() 1st argument (n) can't be converted to int");
94992 if (f2py_success) {
94993 CHECKSCALAR(n>=0,"n>=0","1st argument n","dtfttp:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtfttp:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
94994 /* Processing variable arf */
94995 ;
94996 capi_arf_intent |= F2PY_INTENT_IN1;
94997 capi_arf_tmp = array_from_pyobj(NPY_DOUBLE,arf_Dims,arf_Rank,capi_arf_intent,arf_capi);
94998 if (capi_arf_tmp == NULL((void*)0)) {
94999 if (!PyErr_Occurred())
95000 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `arf' of _flapack.dtfttp to C/Fortran array" );
95001 } else {
95002 arf = (double *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data));
95003
95004 /* Processing variable info */
95005 /* Processing variable transr */
95006 slen(transr)capi_transr_len = 1;
95007 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.dtfttp to C string");
95008 if (f2py_success) {
95009 CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","dtfttp:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtfttp:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
95010 /* Processing variable nt */
95011 nt = shape(arf,0)arf_Dims[0];
95012 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","dtfttp:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtfttp:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
95013 /* Processing variable ap */
95014 ap_Dims[0]=nt;
95015 capi_ap_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
95016 capi_ap_tmp = array_from_pyobj(NPY_DOUBLE,ap_Dims,ap_Rank,capi_ap_intent,Py_None(&_Py_NoneStruct));
95017 if (capi_ap_tmp == NULL((void*)0)) {
95018 if (!PyErr_Occurred())
95019 PyErr_SetString(_flapack_error,"failed in converting hidden `ap' of _flapack.dtfttp to C/Fortran array" );
95020 } else {
95021 ap = (double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
95022
95023/*end of frompyobj*/
95024#ifdef F2PY_REPORT_ATEXIT
95025f2py_start_call_clock();
95026#endif
95027/*callfortranroutine*/
95028 (*f2py_func)(transr,uplo,&n,arf,ap,&info) ;
95029 /*(*f2py_func)(transr,uplo,&n,&nt,ap,arf,&info,slen(transr),slen(uplo));*/
95030if (PyErr_Occurred())
95031 f2py_success = 0;
95032#ifdef F2PY_REPORT_ATEXIT
95033f2py_stop_call_clock();
95034#endif
95035/*end of callfortranroutine*/
95036 if (f2py_success) {
95037/*pyobjfrom*/
95038/*end of pyobjfrom*/
95039 CFUNCSMESS("Building return value.\n");
95040 capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info);
95041/*closepyobjfrom*/
95042/*end of closepyobjfrom*/
95043 } /*if (f2py_success) after callfortranroutine*/
95044/*cleanupfrompyobj*/
95045 } /*if (capi_ap_tmp == NULL) ... else of ap*/
95046 /* End of cleaning variable ap */
95047 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
95048 /* End of cleaning variable nt */
95049 } /*CHECKSTRING(*transr=='N'||*transr=='T')*/
95050 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
95051 } /*if (f2py_success) of transr*/
95052 /* End of cleaning variable transr */
95053 /* End of cleaning variable info */
95054 if((PyObject *)capi_arf_tmp!=arf_capi) {
95055 Py_XDECREF(capi_arf_tmp)_Py_XDECREF(((PyObject*)(capi_arf_tmp))); }
95056 } /*if (capi_arf_tmp == NULL) ... else of arf*/
95057 /* End of cleaning variable arf */
95058 } /*CHECKSCALAR(n>=0)*/
95059 } /*if (f2py_success) of n*/
95060 /* End of cleaning variable n */
95061 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
95062 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
95063 } /*if (f2py_success) of uplo*/
95064 /* End of cleaning variable uplo */
95065/*end of cleanupfrompyobj*/
95066 if (capi_buildvalue == NULL((void*)0)) {
95067/*routdebugfailure*/
95068 } else {
95069/*routdebugleave*/
95070 }
95071 CFUNCSMESS("Freeing memory.\n");
95072/*freemem*/
95073#ifdef F2PY_REPORT_ATEXIT
95074f2py_stop_clock();
95075#endif
95076 return capi_buildvalue;
95077}
95078/******************************* end of dtfttp *******************************/
95079
95080/*********************************** ctfttp ***********************************/
95081static char doc_f2py_rout__flapack_ctfttp[] = "\
95082ap,info = ctfttp(n,arf,[transr,uplo])\n\nWrapper for ``ctfttp``.\
95083\n\nParameters\n----------\n"
95084"n : input int\n"
95085"arf : input rank-1 array('F') with bounds (nt)\n"
95086"\nOther Parameters\n----------------\n"
95087"transr : input string(len=1), optional\n Default: 'N'\n"
95088"uplo : input string(len=1), optional\n Default: 'U'\n"
95089"\nReturns\n-------\n"
95090"ap : rank-1 array('F') with bounds (nt)\n"
95091"info : int";
95092/* extern void F_FUNC(ctfttp,CTFTTP)(char*,char*,F_INT*,complex_float*,complex_float*,F_INT* ); */
95093static PyObject *f2py_rout__flapack_ctfttp(const PyObject *capi_self,
95094 PyObject *capi_args,
95095 PyObject *capi_keywds,
95096 void (*f2py_func)(char*,char*,F_INTint*,complex_float*,complex_float*,F_INTint* )) {
95097 PyObject * volatile capi_buildvalue = NULL((void*)0);
95098 volatile int f2py_success = 1;
95099/*decl*/
95100
95101 string transr = NULL((void*)0);
95102 int slen(transr)capi_transr_len;
95103 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
95104 string uplo = NULL((void*)0);
95105 int slen(uplo)capi_uplo_len;
95106 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
95107 int n = 0;
95108 PyObject *n_capi = Py_None(&_Py_NoneStruct);
95109 int nt = 0;
95110 complex_float *ap = NULL((void*)0);
95111 npy_intp ap_Dims[1] = {-1};
95112 const int ap_Rank = 1;
95113 PyArrayObject *capi_ap_tmp = NULL((void*)0);
95114 int capi_ap_intent = 0;
95115 complex_float *arf = NULL((void*)0);
95116 npy_intp arf_Dims[1] = {-1};
95117 const int arf_Rank = 1;
95118 PyArrayObject *capi_arf_tmp = NULL((void*)0);
95119 int capi_arf_intent = 0;
95120 PyObject *arf_capi = Py_None(&_Py_NoneStruct);
95121 int info = 0;
95122 static char *capi_kwlist[] = {"n","arf","transr","uplo",NULL((void*)0)};
95123
95124/*routdebugenter*/
95125#ifdef F2PY_REPORT_ATEXIT
95126f2py_start_clock();
95127#endif
95128 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
95129 "OO|OO:_flapack.ctfttp",\
95130 capi_kwlist,&n_capi,&arf_capi,&transr_capi,&uplo_capi))
95131 return NULL((void*)0);
95132/*frompyobj*/
95133 /* Processing variable uplo */
95134 slen(uplo)capi_uplo_len = 1;
95135 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.ctfttp to C string");
95136 if (f2py_success) {
95137 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","ctfttp:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctfttp:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
95138 /* Processing variable n */
95139 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ctfttp() 1st argument (n) can't be converted to int");
95140 if (f2py_success) {
95141 CHECKSCALAR(n>=0,"n>=0","1st argument n","ctfttp:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctfttp:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
95142 /* Processing variable arf */
95143 ;
95144 capi_arf_intent |= F2PY_INTENT_IN1;
95145 capi_arf_tmp = array_from_pyobj(NPY_CFLOAT,arf_Dims,arf_Rank,capi_arf_intent,arf_capi);
95146 if (capi_arf_tmp == NULL((void*)0)) {
95147 if (!PyErr_Occurred())
95148 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `arf' of _flapack.ctfttp to C/Fortran array" );
95149 } else {
95150 arf = (complex_float *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data));
95151
95152 /* Processing variable info */
95153 /* Processing variable transr */
95154 slen(transr)capi_transr_len = 1;
95155 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ctfttp to C string");
95156 if (f2py_success) {
95157 CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","ctfttp:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctfttp:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
95158 /* Processing variable nt */
95159 nt = shape(arf,0)arf_Dims[0];
95160 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","ctfttp:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctfttp:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
95161 /* Processing variable ap */
95162 ap_Dims[0]=nt;
95163 capi_ap_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
95164 capi_ap_tmp = array_from_pyobj(NPY_CFLOAT,ap_Dims,ap_Rank,capi_ap_intent,Py_None(&_Py_NoneStruct));
95165 if (capi_ap_tmp == NULL((void*)0)) {
95166 if (!PyErr_Occurred())
95167 PyErr_SetString(_flapack_error,"failed in converting hidden `ap' of _flapack.ctfttp to C/Fortran array" );
95168 } else {
95169 ap = (complex_float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
95170
95171/*end of frompyobj*/
95172#ifdef F2PY_REPORT_ATEXIT
95173f2py_start_call_clock();
95174#endif
95175/*callfortranroutine*/
95176 (*f2py_func)(transr,uplo,&n,arf,ap,&info) ;
95177 /*(*f2py_func)(transr,uplo,&n,&nt,ap,arf,&info,slen(transr),slen(uplo));*/
95178if (PyErr_Occurred())
95179 f2py_success = 0;
95180#ifdef F2PY_REPORT_ATEXIT
95181f2py_stop_call_clock();
95182#endif
95183/*end of callfortranroutine*/
95184 if (f2py_success) {
95185/*pyobjfrom*/
95186/*end of pyobjfrom*/
95187 CFUNCSMESS("Building return value.\n");
95188 capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info);
95189/*closepyobjfrom*/
95190/*end of closepyobjfrom*/
95191 } /*if (f2py_success) after callfortranroutine*/
95192/*cleanupfrompyobj*/
95193 } /*if (capi_ap_tmp == NULL) ... else of ap*/
95194 /* End of cleaning variable ap */
95195 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
95196 /* End of cleaning variable nt */
95197 } /*CHECKSTRING(*transr=='N'||*transr=='C')*/
95198 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
95199 } /*if (f2py_success) of transr*/
95200 /* End of cleaning variable transr */
95201 /* End of cleaning variable info */
95202 if((PyObject *)capi_arf_tmp!=arf_capi) {
95203 Py_XDECREF(capi_arf_tmp)_Py_XDECREF(((PyObject*)(capi_arf_tmp))); }
95204 } /*if (capi_arf_tmp == NULL) ... else of arf*/
95205 /* End of cleaning variable arf */
95206 } /*CHECKSCALAR(n>=0)*/
95207 } /*if (f2py_success) of n*/
95208 /* End of cleaning variable n */
95209 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
95210 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
95211 } /*if (f2py_success) of uplo*/
95212 /* End of cleaning variable uplo */
95213/*end of cleanupfrompyobj*/
95214 if (capi_buildvalue == NULL((void*)0)) {
95215/*routdebugfailure*/
95216 } else {
95217/*routdebugleave*/
95218 }
95219 CFUNCSMESS("Freeing memory.\n");
95220/*freemem*/
95221#ifdef F2PY_REPORT_ATEXIT
95222f2py_stop_clock();
95223#endif
95224 return capi_buildvalue;
95225}
95226/******************************* end of ctfttp *******************************/
95227
95228/*********************************** ztfttp ***********************************/
95229static char doc_f2py_rout__flapack_ztfttp[] = "\
95230ap,info = ztfttp(n,arf,[transr,uplo])\n\nWrapper for ``ztfttp``.\
95231\n\nParameters\n----------\n"
95232"n : input int\n"
95233"arf : input rank-1 array('D') with bounds (nt)\n"
95234"\nOther Parameters\n----------------\n"
95235"transr : input string(len=1), optional\n Default: 'N'\n"
95236"uplo : input string(len=1), optional\n Default: 'U'\n"
95237"\nReturns\n-------\n"
95238"ap : rank-1 array('D') with bounds (nt)\n"
95239"info : int";
95240/* extern void F_FUNC(ztfttp,ZTFTTP)(char*,char*,F_INT*,complex_double*,complex_double*,F_INT* ); */
95241static PyObject *f2py_rout__flapack_ztfttp(const PyObject *capi_self,
95242 PyObject *capi_args,
95243 PyObject *capi_keywds,
95244 void (*f2py_func)(char*,char*,F_INTint*,complex_double*,complex_double*,F_INTint* )) {
95245 PyObject * volatile capi_buildvalue = NULL((void*)0);
95246 volatile int f2py_success = 1;
95247/*decl*/
95248
95249 string transr = NULL((void*)0);
95250 int slen(transr)capi_transr_len;
95251 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
95252 string uplo = NULL((void*)0);
95253 int slen(uplo)capi_uplo_len;
95254 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
95255 int n = 0;
95256 PyObject *n_capi = Py_None(&_Py_NoneStruct);
95257 int nt = 0;
95258 complex_double *ap = NULL((void*)0);
95259 npy_intp ap_Dims[1] = {-1};
95260 const int ap_Rank = 1;
95261 PyArrayObject *capi_ap_tmp = NULL((void*)0);
95262 int capi_ap_intent = 0;
95263 complex_double *arf = NULL((void*)0);
95264 npy_intp arf_Dims[1] = {-1};
95265 const int arf_Rank = 1;
95266 PyArrayObject *capi_arf_tmp = NULL((void*)0);
95267 int capi_arf_intent = 0;
95268 PyObject *arf_capi = Py_None(&_Py_NoneStruct);
95269 int info = 0;
95270 static char *capi_kwlist[] = {"n","arf","transr","uplo",NULL((void*)0)};
95271
95272/*routdebugenter*/
95273#ifdef F2PY_REPORT_ATEXIT
95274f2py_start_clock();
95275#endif
95276 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
95277 "OO|OO:_flapack.ztfttp",\
95278 capi_kwlist,&n_capi,&arf_capi,&transr_capi,&uplo_capi))
95279 return NULL((void*)0);
95280/*frompyobj*/
95281 /* Processing variable uplo */
95282 slen(uplo)capi_uplo_len = 1;
95283 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.ztfttp to C string");
95284 if (f2py_success) {
95285 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","ztfttp:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztfttp:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
95286 /* Processing variable n */
95287 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ztfttp() 1st argument (n) can't be converted to int");
95288 if (f2py_success) {
95289 CHECKSCALAR(n>=0,"n>=0","1st argument n","ztfttp:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztfttp:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
95290 /* Processing variable arf */
95291 ;
95292 capi_arf_intent |= F2PY_INTENT_IN1;
95293 capi_arf_tmp = array_from_pyobj(NPY_CDOUBLE,arf_Dims,arf_Rank,capi_arf_intent,arf_capi);
95294 if (capi_arf_tmp == NULL((void*)0)) {
95295 if (!PyErr_Occurred())
95296 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `arf' of _flapack.ztfttp to C/Fortran array" );
95297 } else {
95298 arf = (complex_double *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data));
95299
95300 /* Processing variable info */
95301 /* Processing variable transr */
95302 slen(transr)capi_transr_len = 1;
95303 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ztfttp to C string");
95304 if (f2py_success) {
95305 CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","ztfttp:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztfttp:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
95306 /* Processing variable nt */
95307 nt = shape(arf,0)arf_Dims[0];
95308 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","ztfttp:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztfttp:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
95309 /* Processing variable ap */
95310 ap_Dims[0]=nt;
95311 capi_ap_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
95312 capi_ap_tmp = array_from_pyobj(NPY_CDOUBLE,ap_Dims,ap_Rank,capi_ap_intent,Py_None(&_Py_NoneStruct));
95313 if (capi_ap_tmp == NULL((void*)0)) {
95314 if (!PyErr_Occurred())
95315 PyErr_SetString(_flapack_error,"failed in converting hidden `ap' of _flapack.ztfttp to C/Fortran array" );
95316 } else {
95317 ap = (complex_double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
95318
95319/*end of frompyobj*/
95320#ifdef F2PY_REPORT_ATEXIT
95321f2py_start_call_clock();
95322#endif
95323/*callfortranroutine*/
95324 (*f2py_func)(transr,uplo,&n,arf,ap,&info) ;
95325 /*(*f2py_func)(transr,uplo,&n,&nt,ap,arf,&info,slen(transr),slen(uplo));*/
95326if (PyErr_Occurred())
95327 f2py_success = 0;
95328#ifdef F2PY_REPORT_ATEXIT
95329f2py_stop_call_clock();
95330#endif
95331/*end of callfortranroutine*/
95332 if (f2py_success) {
95333/*pyobjfrom*/
95334/*end of pyobjfrom*/
95335 CFUNCSMESS("Building return value.\n");
95336 capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info);
95337/*closepyobjfrom*/
95338/*end of closepyobjfrom*/
95339 } /*if (f2py_success) after callfortranroutine*/
95340/*cleanupfrompyobj*/
95341 } /*if (capi_ap_tmp == NULL) ... else of ap*/
95342 /* End of cleaning variable ap */
95343 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
95344 /* End of cleaning variable nt */
95345 } /*CHECKSTRING(*transr=='N'||*transr=='C')*/
95346 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
95347 } /*if (f2py_success) of transr*/
95348 /* End of cleaning variable transr */
95349 /* End of cleaning variable info */
95350 if((PyObject *)capi_arf_tmp!=arf_capi) {
95351 Py_XDECREF(capi_arf_tmp)_Py_XDECREF(((PyObject*)(capi_arf_tmp))); }
95352 } /*if (capi_arf_tmp == NULL) ... else of arf*/
95353 /* End of cleaning variable arf */
95354 } /*CHECKSCALAR(n>=0)*/
95355 } /*if (f2py_success) of n*/
95356 /* End of cleaning variable n */
95357 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
95358 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
95359 } /*if (f2py_success) of uplo*/
95360 /* End of cleaning variable uplo */
95361/*end of cleanupfrompyobj*/
95362 if (capi_buildvalue == NULL((void*)0)) {
95363/*routdebugfailure*/
95364 } else {
95365/*routdebugleave*/
95366 }
95367 CFUNCSMESS("Freeing memory.\n");
95368/*freemem*/
95369#ifdef F2PY_REPORT_ATEXIT
95370f2py_stop_clock();
95371#endif
95372 return capi_buildvalue;
95373}
95374/******************************* end of ztfttp *******************************/
95375
95376/*********************************** stfttr ***********************************/
95377static char doc_f2py_rout__flapack_stfttr[] = "\
95378a,info = stfttr(n,arf,[transr,uplo])\n\nWrapper for ``stfttr``.\
95379\n\nParameters\n----------\n"
95380"n : input int\n"
95381"arf : input rank-1 array('f') with bounds (nt)\n"
95382"\nOther Parameters\n----------------\n"
95383"transr : input string(len=1), optional\n Default: 'N'\n"
95384"uplo : input string(len=1), optional\n Default: 'U'\n"
95385"\nReturns\n-------\n"
95386"a : rank-2 array('f') with bounds (lda,n)\n"
95387"info : int";
95388/* extern void F_FUNC(stfttr,STFTTR)(char*,char*,F_INT*,float*,float*,F_INT*,F_INT* ); */
95389static PyObject *f2py_rout__flapack_stfttr(const PyObject *capi_self,
95390 PyObject *capi_args,
95391 PyObject *capi_keywds,
95392 void (*f2py_func)(char*,char*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
95393 PyObject * volatile capi_buildvalue = NULL((void*)0);
95394 volatile int f2py_success = 1;
95395/*decl*/
95396
95397 string transr = NULL((void*)0);
95398 int slen(transr)capi_transr_len;
95399 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
95400 string uplo = NULL((void*)0);
95401 int slen(uplo)capi_uplo_len;
95402 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
95403 int n = 0;
95404 PyObject *n_capi = Py_None(&_Py_NoneStruct);
95405 int nt = 0;
95406 float *arf = NULL((void*)0);
95407 npy_intp arf_Dims[1] = {-1};
95408 const int arf_Rank = 1;
95409 PyArrayObject *capi_arf_tmp = NULL((void*)0);
95410 int capi_arf_intent = 0;
95411 PyObject *arf_capi = Py_None(&_Py_NoneStruct);
95412 float *a = NULL((void*)0);
95413 npy_intp a_Dims[2] = {-1, -1};
95414 const int a_Rank = 2;
95415 PyArrayObject *capi_a_tmp = NULL((void*)0);
95416 int capi_a_intent = 0;
95417 int lda = 0;
95418 int info = 0;
95419 static char *capi_kwlist[] = {"n","arf","transr","uplo",NULL((void*)0)};
95420
95421/*routdebugenter*/
95422#ifdef F2PY_REPORT_ATEXIT
95423f2py_start_clock();
95424#endif
95425 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
95426 "OO|OO:_flapack.stfttr",\
95427 capi_kwlist,&n_capi,&arf_capi,&transr_capi,&uplo_capi))
95428 return NULL((void*)0);
95429/*frompyobj*/
95430 /* Processing variable uplo */
95431 slen(uplo)capi_uplo_len = 1;
95432 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.stfttr to C string");
95433 if (f2py_success) {
95434 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","stfttr:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stfttr:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
95435 /* Processing variable n */
95436 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.stfttr() 1st argument (n) can't be converted to int");
95437 if (f2py_success) {
95438 CHECKSCALAR(n>=0,"n>=0","1st argument n","stfttr:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stfttr:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
95439 /* Processing variable arf */
95440 ;
95441 capi_arf_intent |= F2PY_INTENT_IN1;
95442 capi_arf_tmp = array_from_pyobj(NPY_FLOAT,arf_Dims,arf_Rank,capi_arf_intent,arf_capi);
95443 if (capi_arf_tmp == NULL((void*)0)) {
95444 if (!PyErr_Occurred())
95445 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `arf' of _flapack.stfttr to C/Fortran array" );
95446 } else {
95447 arf = (float *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data));
95448
95449 /* Processing variable info */
95450 /* Processing variable transr */
95451 slen(transr)capi_transr_len = 1;
95452 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.stfttr to C string");
95453 if (f2py_success) {
95454 CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","stfttr:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stfttr:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
95455 /* Processing variable nt */
95456 nt = shape(arf,0)arf_Dims[0];
95457 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","stfttr:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stfttr:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
95458 /* Processing variable lda */
95459 lda = MAX(n,1)((n > 1) ? (n) : (1));
95460 /* Processing variable a */
95461 a_Dims[0]=lda,a_Dims[1]=n;
95462 capi_a_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
95463 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,Py_None(&_Py_NoneStruct));
95464 if (capi_a_tmp == NULL((void*)0)) {
95465 if (!PyErr_Occurred())
95466 PyErr_SetString(_flapack_error,"failed in converting hidden `a' of _flapack.stfttr to C/Fortran array" );
95467 } else {
95468 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
95469
95470/*end of frompyobj*/
95471#ifdef F2PY_REPORT_ATEXIT
95472f2py_start_call_clock();
95473#endif
95474/*callfortranroutine*/
95475 (*f2py_func)(transr,uplo,&n,arf,a,&lda,&info) ;
95476 /*(*f2py_func)(transr,uplo,&n,&nt,arf,a,&lda,&info,slen(transr),slen(uplo));*/
95477if (PyErr_Occurred())
95478 f2py_success = 0;
95479#ifdef F2PY_REPORT_ATEXIT
95480f2py_stop_call_clock();
95481#endif
95482/*end of callfortranroutine*/
95483 if (f2py_success) {
95484/*pyobjfrom*/
95485/*end of pyobjfrom*/
95486 CFUNCSMESS("Building return value.\n");
95487 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
95488/*closepyobjfrom*/
95489/*end of closepyobjfrom*/
95490 } /*if (f2py_success) after callfortranroutine*/
95491/*cleanupfrompyobj*/
95492 } /*if (capi_a_tmp == NULL) ... else of a*/
95493 /* End of cleaning variable a */
95494 /* End of cleaning variable lda */
95495 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
95496 /* End of cleaning variable nt */
95497 } /*CHECKSTRING(*transr=='N'||*transr=='T')*/
95498 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
95499 } /*if (f2py_success) of transr*/
95500 /* End of cleaning variable transr */
95501 /* End of cleaning variable info */
95502 if((PyObject *)capi_arf_tmp!=arf_capi) {
95503 Py_XDECREF(capi_arf_tmp)_Py_XDECREF(((PyObject*)(capi_arf_tmp))); }
95504 } /*if (capi_arf_tmp == NULL) ... else of arf*/
95505 /* End of cleaning variable arf */
95506 } /*CHECKSCALAR(n>=0)*/
95507 } /*if (f2py_success) of n*/
95508 /* End of cleaning variable n */
95509 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
95510 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
95511 } /*if (f2py_success) of uplo*/
95512 /* End of cleaning variable uplo */
95513/*end of cleanupfrompyobj*/
95514 if (capi_buildvalue == NULL((void*)0)) {
95515/*routdebugfailure*/
95516 } else {
95517/*routdebugleave*/
95518 }
95519 CFUNCSMESS("Freeing memory.\n");
95520/*freemem*/
95521#ifdef F2PY_REPORT_ATEXIT
95522f2py_stop_clock();
95523#endif
95524 return capi_buildvalue;
95525}
95526/******************************* end of stfttr *******************************/
95527
95528/*********************************** dtfttr ***********************************/
95529static char doc_f2py_rout__flapack_dtfttr[] = "\
95530a,info = dtfttr(n,arf,[transr,uplo])\n\nWrapper for ``dtfttr``.\
95531\n\nParameters\n----------\n"
95532"n : input int\n"
95533"arf : input rank-1 array('d') with bounds (nt)\n"
95534"\nOther Parameters\n----------------\n"
95535"transr : input string(len=1), optional\n Default: 'N'\n"
95536"uplo : input string(len=1), optional\n Default: 'U'\n"
95537"\nReturns\n-------\n"
95538"a : rank-2 array('d') with bounds (lda,n)\n"
95539"info : int";
95540/* extern void F_FUNC(dtfttr,DTFTTR)(char*,char*,F_INT*,double*,double*,F_INT*,F_INT* ); */
95541static PyObject *f2py_rout__flapack_dtfttr(const PyObject *capi_self,
95542 PyObject *capi_args,
95543 PyObject *capi_keywds,
95544 void (*f2py_func)(char*,char*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
95545 PyObject * volatile capi_buildvalue = NULL((void*)0);
95546 volatile int f2py_success = 1;
95547/*decl*/
95548
95549 string transr = NULL((void*)0);
95550 int slen(transr)capi_transr_len;
95551 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
95552 string uplo = NULL((void*)0);
95553 int slen(uplo)capi_uplo_len;
95554 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
95555 int n = 0;
95556 PyObject *n_capi = Py_None(&_Py_NoneStruct);
95557 int nt = 0;
95558 double *arf = NULL((void*)0);
95559 npy_intp arf_Dims[1] = {-1};
95560 const int arf_Rank = 1;
95561 PyArrayObject *capi_arf_tmp = NULL((void*)0);
95562 int capi_arf_intent = 0;
95563 PyObject *arf_capi = Py_None(&_Py_NoneStruct);
95564 double *a = NULL((void*)0);
95565 npy_intp a_Dims[2] = {-1, -1};
95566 const int a_Rank = 2;
95567 PyArrayObject *capi_a_tmp = NULL((void*)0);
95568 int capi_a_intent = 0;
95569 int lda = 0;
95570 int info = 0;
95571 static char *capi_kwlist[] = {"n","arf","transr","uplo",NULL((void*)0)};
95572
95573/*routdebugenter*/
95574#ifdef F2PY_REPORT_ATEXIT
95575f2py_start_clock();
95576#endif
95577 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
95578 "OO|OO:_flapack.dtfttr",\
95579 capi_kwlist,&n_capi,&arf_capi,&transr_capi,&uplo_capi))
95580 return NULL((void*)0);
95581/*frompyobj*/
95582 /* Processing variable uplo */
95583 slen(uplo)capi_uplo_len = 1;
95584 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.dtfttr to C string");
95585 if (f2py_success) {
95586 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","dtfttr:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtfttr:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
95587 /* Processing variable n */
95588 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dtfttr() 1st argument (n) can't be converted to int");
95589 if (f2py_success) {
95590 CHECKSCALAR(n>=0,"n>=0","1st argument n","dtfttr:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtfttr:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
95591 /* Processing variable arf */
95592 ;
95593 capi_arf_intent |= F2PY_INTENT_IN1;
95594 capi_arf_tmp = array_from_pyobj(NPY_DOUBLE,arf_Dims,arf_Rank,capi_arf_intent,arf_capi);
95595 if (capi_arf_tmp == NULL((void*)0)) {
95596 if (!PyErr_Occurred())
95597 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `arf' of _flapack.dtfttr to C/Fortran array" );
95598 } else {
95599 arf = (double *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data));
95600
95601 /* Processing variable info */
95602 /* Processing variable transr */
95603 slen(transr)capi_transr_len = 1;
95604 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.dtfttr to C string");
95605 if (f2py_success) {
95606 CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","dtfttr:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtfttr:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
95607 /* Processing variable nt */
95608 nt = shape(arf,0)arf_Dims[0];
95609 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","dtfttr:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtfttr:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
95610 /* Processing variable lda */
95611 lda = MAX(n,1)((n > 1) ? (n) : (1));
95612 /* Processing variable a */
95613 a_Dims[0]=lda,a_Dims[1]=n;
95614 capi_a_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
95615 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,Py_None(&_Py_NoneStruct));
95616 if (capi_a_tmp == NULL((void*)0)) {
95617 if (!PyErr_Occurred())
95618 PyErr_SetString(_flapack_error,"failed in converting hidden `a' of _flapack.dtfttr to C/Fortran array" );
95619 } else {
95620 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
95621
95622/*end of frompyobj*/
95623#ifdef F2PY_REPORT_ATEXIT
95624f2py_start_call_clock();
95625#endif
95626/*callfortranroutine*/
95627 (*f2py_func)(transr,uplo,&n,arf,a,&lda,&info) ;
95628 /*(*f2py_func)(transr,uplo,&n,&nt,arf,a,&lda,&info,slen(transr),slen(uplo));*/
95629if (PyErr_Occurred())
95630 f2py_success = 0;
95631#ifdef F2PY_REPORT_ATEXIT
95632f2py_stop_call_clock();
95633#endif
95634/*end of callfortranroutine*/
95635 if (f2py_success) {
95636/*pyobjfrom*/
95637/*end of pyobjfrom*/
95638 CFUNCSMESS("Building return value.\n");
95639 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
95640/*closepyobjfrom*/
95641/*end of closepyobjfrom*/
95642 } /*if (f2py_success) after callfortranroutine*/
95643/*cleanupfrompyobj*/
95644 } /*if (capi_a_tmp == NULL) ... else of a*/
95645 /* End of cleaning variable a */
95646 /* End of cleaning variable lda */
95647 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
95648 /* End of cleaning variable nt */
95649 } /*CHECKSTRING(*transr=='N'||*transr=='T')*/
95650 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
95651 } /*if (f2py_success) of transr*/
95652 /* End of cleaning variable transr */
95653 /* End of cleaning variable info */
95654 if((PyObject *)capi_arf_tmp!=arf_capi) {
95655 Py_XDECREF(capi_arf_tmp)_Py_XDECREF(((PyObject*)(capi_arf_tmp))); }
95656 } /*if (capi_arf_tmp == NULL) ... else of arf*/
95657 /* End of cleaning variable arf */
95658 } /*CHECKSCALAR(n>=0)*/
95659 } /*if (f2py_success) of n*/
95660 /* End of cleaning variable n */
95661 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
95662 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
95663 } /*if (f2py_success) of uplo*/
95664 /* End of cleaning variable uplo */
95665/*end of cleanupfrompyobj*/
95666 if (capi_buildvalue == NULL((void*)0)) {
95667/*routdebugfailure*/
95668 } else {
95669/*routdebugleave*/
95670 }
95671 CFUNCSMESS("Freeing memory.\n");
95672/*freemem*/
95673#ifdef F2PY_REPORT_ATEXIT
95674f2py_stop_clock();
95675#endif
95676 return capi_buildvalue;
95677}
95678/******************************* end of dtfttr *******************************/
95679
95680/*********************************** ctfttr ***********************************/
95681static char doc_f2py_rout__flapack_ctfttr[] = "\
95682a,info = ctfttr(n,arf,[transr,uplo])\n\nWrapper for ``ctfttr``.\
95683\n\nParameters\n----------\n"
95684"n : input int\n"
95685"arf : input rank-1 array('F') with bounds (nt)\n"
95686"\nOther Parameters\n----------------\n"
95687"transr : input string(len=1), optional\n Default: 'N'\n"
95688"uplo : input string(len=1), optional\n Default: 'U'\n"
95689"\nReturns\n-------\n"
95690"a : rank-2 array('F') with bounds (lda,n)\n"
95691"info : int";
95692/* extern void F_FUNC(ctfttr,CTFTTR)(char*,char*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */
95693static PyObject *f2py_rout__flapack_ctfttr(const PyObject *capi_self,
95694 PyObject *capi_args,
95695 PyObject *capi_keywds,
95696 void (*f2py_func)(char*,char*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
95697 PyObject * volatile capi_buildvalue = NULL((void*)0);
95698 volatile int f2py_success = 1;
95699/*decl*/
95700
95701 string transr = NULL((void*)0);
95702 int slen(transr)capi_transr_len;
95703 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
95704 string uplo = NULL((void*)0);
95705 int slen(uplo)capi_uplo_len;
95706 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
95707 int n = 0;
95708 PyObject *n_capi = Py_None(&_Py_NoneStruct);
95709 int nt = 0;
95710 complex_float *arf = NULL((void*)0);
95711 npy_intp arf_Dims[1] = {-1};
95712 const int arf_Rank = 1;
95713 PyArrayObject *capi_arf_tmp = NULL((void*)0);
95714 int capi_arf_intent = 0;
95715 PyObject *arf_capi = Py_None(&_Py_NoneStruct);
95716 complex_float *a = NULL((void*)0);
95717 npy_intp a_Dims[2] = {-1, -1};
95718 const int a_Rank = 2;
95719 PyArrayObject *capi_a_tmp = NULL((void*)0);
95720 int capi_a_intent = 0;
95721 int lda = 0;
95722 int info = 0;
95723 static char *capi_kwlist[] = {"n","arf","transr","uplo",NULL((void*)0)};
95724
95725/*routdebugenter*/
95726#ifdef F2PY_REPORT_ATEXIT
95727f2py_start_clock();
95728#endif
95729 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
95730 "OO|OO:_flapack.ctfttr",\
95731 capi_kwlist,&n_capi,&arf_capi,&transr_capi,&uplo_capi))
95732 return NULL((void*)0);
95733/*frompyobj*/
95734 /* Processing variable uplo */
95735 slen(uplo)capi_uplo_len = 1;
95736 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.ctfttr to C string");
95737 if (f2py_success) {
95738 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","ctfttr:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctfttr:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
95739 /* Processing variable n */
95740 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ctfttr() 1st argument (n) can't be converted to int");
95741 if (f2py_success) {
95742 CHECKSCALAR(n>=0,"n>=0","1st argument n","ctfttr:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctfttr:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
95743 /* Processing variable arf */
95744 ;
95745 capi_arf_intent |= F2PY_INTENT_IN1;
95746 capi_arf_tmp = array_from_pyobj(NPY_CFLOAT,arf_Dims,arf_Rank,capi_arf_intent,arf_capi);
95747 if (capi_arf_tmp == NULL((void*)0)) {
95748 if (!PyErr_Occurred())
95749 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `arf' of _flapack.ctfttr to C/Fortran array" );
95750 } else {
95751 arf = (complex_float *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data));
95752
95753 /* Processing variable info */
95754 /* Processing variable transr */
95755 slen(transr)capi_transr_len = 1;
95756 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ctfttr to C string");
95757 if (f2py_success) {
95758 CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","ctfttr:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctfttr:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
95759 /* Processing variable nt */
95760 nt = shape(arf,0)arf_Dims[0];
95761 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","ctfttr:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctfttr:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
95762 /* Processing variable lda */
95763 lda = MAX(n,1)((n > 1) ? (n) : (1));
95764 /* Processing variable a */
95765 a_Dims[0]=lda,a_Dims[1]=n;
95766 capi_a_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
95767 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,Py_None(&_Py_NoneStruct));
95768 if (capi_a_tmp == NULL((void*)0)) {
95769 if (!PyErr_Occurred())
95770 PyErr_SetString(_flapack_error,"failed in converting hidden `a' of _flapack.ctfttr to C/Fortran array" );
95771 } else {
95772 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
95773
95774/*end of frompyobj*/
95775#ifdef F2PY_REPORT_ATEXIT
95776f2py_start_call_clock();
95777#endif
95778/*callfortranroutine*/
95779 (*f2py_func)(transr,uplo,&n,arf,a,&lda,&info) ;
95780 /*(*f2py_func)(transr,uplo,&n,&nt,arf,a,&lda,&info,slen(transr),slen(uplo));*/
95781if (PyErr_Occurred())
95782 f2py_success = 0;
95783#ifdef F2PY_REPORT_ATEXIT
95784f2py_stop_call_clock();
95785#endif
95786/*end of callfortranroutine*/
95787 if (f2py_success) {
95788/*pyobjfrom*/
95789/*end of pyobjfrom*/
95790 CFUNCSMESS("Building return value.\n");
95791 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
95792/*closepyobjfrom*/
95793/*end of closepyobjfrom*/
95794 } /*if (f2py_success) after callfortranroutine*/
95795/*cleanupfrompyobj*/
95796 } /*if (capi_a_tmp == NULL) ... else of a*/
95797 /* End of cleaning variable a */
95798 /* End of cleaning variable lda */
95799 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
95800 /* End of cleaning variable nt */
95801 } /*CHECKSTRING(*transr=='N'||*transr=='C')*/
95802 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
95803 } /*if (f2py_success) of transr*/
95804 /* End of cleaning variable transr */
95805 /* End of cleaning variable info */
95806 if((PyObject *)capi_arf_tmp!=arf_capi) {
95807 Py_XDECREF(capi_arf_tmp)_Py_XDECREF(((PyObject*)(capi_arf_tmp))); }
95808 } /*if (capi_arf_tmp == NULL) ... else of arf*/
95809 /* End of cleaning variable arf */
95810 } /*CHECKSCALAR(n>=0)*/
95811 } /*if (f2py_success) of n*/
95812 /* End of cleaning variable n */
95813 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
95814 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
95815 } /*if (f2py_success) of uplo*/
95816 /* End of cleaning variable uplo */
95817/*end of cleanupfrompyobj*/
95818 if (capi_buildvalue == NULL((void*)0)) {
95819/*routdebugfailure*/
95820 } else {
95821/*routdebugleave*/
95822 }
95823 CFUNCSMESS("Freeing memory.\n");
95824/*freemem*/
95825#ifdef F2PY_REPORT_ATEXIT
95826f2py_stop_clock();
95827#endif
95828 return capi_buildvalue;
95829}
95830/******************************* end of ctfttr *******************************/
95831
95832/*********************************** ztfttr ***********************************/
95833static char doc_f2py_rout__flapack_ztfttr[] = "\
95834a,info = ztfttr(n,arf,[transr,uplo])\n\nWrapper for ``ztfttr``.\
95835\n\nParameters\n----------\n"
95836"n : input int\n"
95837"arf : input rank-1 array('D') with bounds (nt)\n"
95838"\nOther Parameters\n----------------\n"
95839"transr : input string(len=1), optional\n Default: 'N'\n"
95840"uplo : input string(len=1), optional\n Default: 'U'\n"
95841"\nReturns\n-------\n"
95842"a : rank-2 array('D') with bounds (lda,n)\n"
95843"info : int";
95844/* extern void F_FUNC(ztfttr,ZTFTTR)(char*,char*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */
95845static PyObject *f2py_rout__flapack_ztfttr(const PyObject *capi_self,
95846 PyObject *capi_args,
95847 PyObject *capi_keywds,
95848 void (*f2py_func)(char*,char*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
95849 PyObject * volatile capi_buildvalue = NULL((void*)0);
95850 volatile int f2py_success = 1;
95851/*decl*/
95852
95853 string transr = NULL((void*)0);
95854 int slen(transr)capi_transr_len;
95855 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
95856 string uplo = NULL((void*)0);
95857 int slen(uplo)capi_uplo_len;
95858 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
95859 int n = 0;
95860 PyObject *n_capi = Py_None(&_Py_NoneStruct);
95861 int nt = 0;
95862 complex_double *arf = NULL((void*)0);
95863 npy_intp arf_Dims[1] = {-1};
95864 const int arf_Rank = 1;
95865 PyArrayObject *capi_arf_tmp = NULL((void*)0);
95866 int capi_arf_intent = 0;
95867 PyObject *arf_capi = Py_None(&_Py_NoneStruct);
95868 complex_double *a = NULL((void*)0);
95869 npy_intp a_Dims[2] = {-1, -1};
95870 const int a_Rank = 2;
95871 PyArrayObject *capi_a_tmp = NULL((void*)0);
95872 int capi_a_intent = 0;
95873 int lda = 0;
95874 int info = 0;
95875 static char *capi_kwlist[] = {"n","arf","transr","uplo",NULL((void*)0)};
95876
95877/*routdebugenter*/
95878#ifdef F2PY_REPORT_ATEXIT
95879f2py_start_clock();
95880#endif
95881 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
95882 "OO|OO:_flapack.ztfttr",\
95883 capi_kwlist,&n_capi,&arf_capi,&transr_capi,&uplo_capi))
95884 return NULL((void*)0);
95885/*frompyobj*/
95886 /* Processing variable uplo */
95887 slen(uplo)capi_uplo_len = 1;
95888 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.ztfttr to C string");
95889 if (f2py_success) {
95890 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","ztfttr:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztfttr:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
95891 /* Processing variable n */
95892 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ztfttr() 1st argument (n) can't be converted to int");
95893 if (f2py_success) {
95894 CHECKSCALAR(n>=0,"n>=0","1st argument n","ztfttr:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztfttr:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
95895 /* Processing variable arf */
95896 ;
95897 capi_arf_intent |= F2PY_INTENT_IN1;
95898 capi_arf_tmp = array_from_pyobj(NPY_CDOUBLE,arf_Dims,arf_Rank,capi_arf_intent,arf_capi);
95899 if (capi_arf_tmp == NULL((void*)0)) {
95900 if (!PyErr_Occurred())
95901 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `arf' of _flapack.ztfttr to C/Fortran array" );
95902 } else {
95903 arf = (complex_double *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data));
95904
95905 /* Processing variable info */
95906 /* Processing variable transr */
95907 slen(transr)capi_transr_len = 1;
95908 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ztfttr to C string");
95909 if (f2py_success) {
95910 CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","ztfttr:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztfttr:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
95911 /* Processing variable nt */
95912 nt = shape(arf,0)arf_Dims[0];
95913 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","ztfttr:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztfttr:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
95914 /* Processing variable lda */
95915 lda = MAX(n,1)((n > 1) ? (n) : (1));
95916 /* Processing variable a */
95917 a_Dims[0]=lda,a_Dims[1]=n;
95918 capi_a_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
95919 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,Py_None(&_Py_NoneStruct));
95920 if (capi_a_tmp == NULL((void*)0)) {
95921 if (!PyErr_Occurred())
95922 PyErr_SetString(_flapack_error,"failed in converting hidden `a' of _flapack.ztfttr to C/Fortran array" );
95923 } else {
95924 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
95925
95926/*end of frompyobj*/
95927#ifdef F2PY_REPORT_ATEXIT
95928f2py_start_call_clock();
95929#endif
95930/*callfortranroutine*/
95931 (*f2py_func)(transr,uplo,&n,arf,a,&lda,&info) ;
95932 /*(*f2py_func)(transr,uplo,&n,&nt,arf,a,&lda,&info,slen(transr),slen(uplo));*/
95933if (PyErr_Occurred())
95934 f2py_success = 0;
95935#ifdef F2PY_REPORT_ATEXIT
95936f2py_stop_call_clock();
95937#endif
95938/*end of callfortranroutine*/
95939 if (f2py_success) {
95940/*pyobjfrom*/
95941/*end of pyobjfrom*/
95942 CFUNCSMESS("Building return value.\n");
95943 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
95944/*closepyobjfrom*/
95945/*end of closepyobjfrom*/
95946 } /*if (f2py_success) after callfortranroutine*/
95947/*cleanupfrompyobj*/
95948 } /*if (capi_a_tmp == NULL) ... else of a*/
95949 /* End of cleaning variable a */
95950 /* End of cleaning variable lda */
95951 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
95952 /* End of cleaning variable nt */
95953 } /*CHECKSTRING(*transr=='N'||*transr=='C')*/
95954 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
95955 } /*if (f2py_success) of transr*/
95956 /* End of cleaning variable transr */
95957 /* End of cleaning variable info */
95958 if((PyObject *)capi_arf_tmp!=arf_capi) {
95959 Py_XDECREF(capi_arf_tmp)_Py_XDECREF(((PyObject*)(capi_arf_tmp))); }
95960 } /*if (capi_arf_tmp == NULL) ... else of arf*/
95961 /* End of cleaning variable arf */
95962 } /*CHECKSCALAR(n>=0)*/
95963 } /*if (f2py_success) of n*/
95964 /* End of cleaning variable n */
95965 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
95966 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
95967 } /*if (f2py_success) of uplo*/
95968 /* End of cleaning variable uplo */
95969/*end of cleanupfrompyobj*/
95970 if (capi_buildvalue == NULL((void*)0)) {
95971/*routdebugfailure*/
95972 } else {
95973/*routdebugleave*/
95974 }
95975 CFUNCSMESS("Freeing memory.\n");
95976/*freemem*/
95977#ifdef F2PY_REPORT_ATEXIT
95978f2py_stop_clock();
95979#endif
95980 return capi_buildvalue;
95981}
95982/******************************* end of ztfttr *******************************/
95983
95984/*********************************** strttf ***********************************/
95985static char doc_f2py_rout__flapack_strttf[] = "\
95986arf,info = strttf(a,[transr,uplo])\n\nWrapper for ``strttf``.\
95987\n\nParameters\n----------\n"
95988"a : input rank-2 array('f') with bounds (lda,n)\n"
95989"\nOther Parameters\n----------------\n"
95990"transr : input string(len=1), optional\n Default: 'N'\n"
95991"uplo : input string(len=1), optional\n Default: 'U'\n"
95992"\nReturns\n-------\n"
95993"arf : rank-1 array('f') with bounds (n*(n+1)/2)\n"
95994"info : int";
95995/* extern void F_FUNC(strttf,STRTTF)(char*,char*,F_INT*,float*,F_INT*,float*,F_INT* ); */
95996static PyObject *f2py_rout__flapack_strttf(const PyObject *capi_self,
95997 PyObject *capi_args,
95998 PyObject *capi_keywds,
95999 void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint*,float*,F_INTint* )) {
96000 PyObject * volatile capi_buildvalue = NULL((void*)0);
96001 volatile int f2py_success = 1;
96002/*decl*/
96003
96004 string transr = NULL((void*)0);
96005 int slen(transr)capi_transr_len;
96006 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
96007 string uplo = NULL((void*)0);
96008 int slen(uplo)capi_uplo_len;
96009 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
96010 int n = 0;
96011 float *a = NULL((void*)0);
96012 npy_intp a_Dims[2] = {-1, -1};
96013 const int a_Rank = 2;
96014 PyArrayObject *capi_a_tmp = NULL((void*)0);
96015 int capi_a_intent = 0;
96016 PyObject *a_capi = Py_None(&_Py_NoneStruct);
96017 int lda = 0;
96018 float *arf = NULL((void*)0);
96019 npy_intp arf_Dims[1] = {-1};
96020 const int arf_Rank = 1;
96021 PyArrayObject *capi_arf_tmp = NULL((void*)0);
96022 int capi_arf_intent = 0;
96023 int info = 0;
96024 static char *capi_kwlist[] = {"a","transr","uplo",NULL((void*)0)};
96025
96026/*routdebugenter*/
96027#ifdef F2PY_REPORT_ATEXIT
96028f2py_start_clock();
96029#endif
96030 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
96031 "O|OO:_flapack.strttf",\
96032 capi_kwlist,&a_capi,&transr_capi,&uplo_capi))
96033 return NULL((void*)0);
96034/*frompyobj*/
96035 /* Processing variable uplo */
96036 slen(uplo)capi_uplo_len = 1;
96037 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.strttf to C string");
96038 if (f2py_success) {
96039 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","strttf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""strttf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
96040 /* Processing variable a */
96041 ;
96042 capi_a_intent |= F2PY_INTENT_IN1;
96043 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
96044 if (capi_a_tmp == NULL((void*)0)) {
96045 if (!PyErr_Occurred())
96046 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.strttf to C/Fortran array" );
96047 } else {
96048 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
96049
96050 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
96051 /* Processing variable info */
96052 /* Processing variable n */
96053 n = shape(a,1)a_Dims[1];
96054 /* Processing variable lda */
96055 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
96056 /* Processing variable arf */
96057 arf_Dims[0]=n*(n+1)/2;
96058 capi_arf_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
96059 capi_arf_tmp = array_from_pyobj(NPY_FLOAT,arf_Dims,arf_Rank,capi_arf_intent,Py_None(&_Py_NoneStruct));
96060 if (capi_arf_tmp == NULL((void*)0)) {
96061 if (!PyErr_Occurred())
96062 PyErr_SetString(_flapack_error,"failed in converting hidden `arf' of _flapack.strttf to C/Fortran array" );
96063 } else {
96064 arf = (float *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data));
96065
96066 /* Processing variable transr */
96067 slen(transr)capi_transr_len = 1;
96068 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.strttf to C string");
96069 if (f2py_success) {
96070 CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","strttf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""strttf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
96071/*end of frompyobj*/
96072#ifdef F2PY_REPORT_ATEXIT
96073f2py_start_call_clock();
96074#endif
96075/*callfortranroutine*/
96076 (*f2py_func)(transr,uplo,&n,a,&lda,arf,&info) ;
96077 /*(*f2py_func)(transr,uplo,&n,a,&lda,arf,&info,slen(transr),slen(uplo));*/
96078if (PyErr_Occurred())
96079 f2py_success = 0;
96080#ifdef F2PY_REPORT_ATEXIT
96081f2py_stop_call_clock();
96082#endif
96083/*end of callfortranroutine*/
96084 if (f2py_success) {
96085/*pyobjfrom*/
96086/*end of pyobjfrom*/
96087 CFUNCSMESS("Building return value.\n");
96088 capi_buildvalue = Py_BuildValue("Ni",capi_arf_tmp,info);
96089/*closepyobjfrom*/
96090/*end of closepyobjfrom*/
96091 } /*if (f2py_success) after callfortranroutine*/
96092/*cleanupfrompyobj*/
96093 } /*CHECKSTRING(*transr=='N'||*transr=='T')*/
96094 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
96095 } /*if (f2py_success) of transr*/
96096 /* End of cleaning variable transr */
96097 } /*if (capi_arf_tmp == NULL) ... else of arf*/
96098 /* End of cleaning variable arf */
96099 /* End of cleaning variable lda */
96100 /* End of cleaning variable n */
96101 /* End of cleaning variable info */
96102 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
96103 if((PyObject *)capi_a_tmp!=a_capi) {
96104 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
96105 } /*if (capi_a_tmp == NULL) ... else of a*/
96106 /* End of cleaning variable a */
96107 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
96108 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
96109 } /*if (f2py_success) of uplo*/
96110 /* End of cleaning variable uplo */
96111/*end of cleanupfrompyobj*/
96112 if (capi_buildvalue == NULL((void*)0)) {
96113/*routdebugfailure*/
96114 } else {
96115/*routdebugleave*/
96116 }
96117 CFUNCSMESS("Freeing memory.\n");
96118/*freemem*/
96119#ifdef F2PY_REPORT_ATEXIT
96120f2py_stop_clock();
96121#endif
96122 return capi_buildvalue;
96123}
96124/******************************* end of strttf *******************************/
96125
96126/*********************************** dtrttf ***********************************/
96127static char doc_f2py_rout__flapack_dtrttf[] = "\
96128arf,info = dtrttf(a,[transr,uplo])\n\nWrapper for ``dtrttf``.\
96129\n\nParameters\n----------\n"
96130"a : input rank-2 array('d') with bounds (lda,n)\n"
96131"\nOther Parameters\n----------------\n"
96132"transr : input string(len=1), optional\n Default: 'N'\n"
96133"uplo : input string(len=1), optional\n Default: 'U'\n"
96134"\nReturns\n-------\n"
96135"arf : rank-1 array('d') with bounds (n*(n+1)/2)\n"
96136"info : int";
96137/* extern void F_FUNC(dtrttf,DTRTTF)(char*,char*,F_INT*,double*,F_INT*,double*,F_INT* ); */
96138static PyObject *f2py_rout__flapack_dtrttf(const PyObject *capi_self,
96139 PyObject *capi_args,
96140 PyObject *capi_keywds,
96141 void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint*,double*,F_INTint* )) {
96142 PyObject * volatile capi_buildvalue = NULL((void*)0);
96143 volatile int f2py_success = 1;
96144/*decl*/
96145
96146 string transr = NULL((void*)0);
96147 int slen(transr)capi_transr_len;
96148 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
96149 string uplo = NULL((void*)0);
96150 int slen(uplo)capi_uplo_len;
96151 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
96152 int n = 0;
96153 double *a = NULL((void*)0);
96154 npy_intp a_Dims[2] = {-1, -1};
96155 const int a_Rank = 2;
96156 PyArrayObject *capi_a_tmp = NULL((void*)0);
96157 int capi_a_intent = 0;
96158 PyObject *a_capi = Py_None(&_Py_NoneStruct);
96159 int lda = 0;
96160 double *arf = NULL((void*)0);
96161 npy_intp arf_Dims[1] = {-1};
96162 const int arf_Rank = 1;
96163 PyArrayObject *capi_arf_tmp = NULL((void*)0);
96164 int capi_arf_intent = 0;
96165 int info = 0;
96166 static char *capi_kwlist[] = {"a","transr","uplo",NULL((void*)0)};
96167
96168/*routdebugenter*/
96169#ifdef F2PY_REPORT_ATEXIT
96170f2py_start_clock();
96171#endif
96172 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
96173 "O|OO:_flapack.dtrttf",\
96174 capi_kwlist,&a_capi,&transr_capi,&uplo_capi))
96175 return NULL((void*)0);
96176/*frompyobj*/
96177 /* Processing variable uplo */
96178 slen(uplo)capi_uplo_len = 1;
96179 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.dtrttf to C string");
96180 if (f2py_success) {
96181 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","dtrttf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtrttf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
96182 /* Processing variable a */
96183 ;
96184 capi_a_intent |= F2PY_INTENT_IN1;
96185 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
96186 if (capi_a_tmp == NULL((void*)0)) {
96187 if (!PyErr_Occurred())
96188 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dtrttf to C/Fortran array" );
96189 } else {
96190 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
96191
96192 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
96193 /* Processing variable info */
96194 /* Processing variable n */
96195 n = shape(a,1)a_Dims[1];
96196 /* Processing variable lda */
96197 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
96198 /* Processing variable arf */
96199 arf_Dims[0]=n*(n+1)/2;
96200 capi_arf_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
96201 capi_arf_tmp = array_from_pyobj(NPY_DOUBLE,arf_Dims,arf_Rank,capi_arf_intent,Py_None(&_Py_NoneStruct));
96202 if (capi_arf_tmp == NULL((void*)0)) {
96203 if (!PyErr_Occurred())
96204 PyErr_SetString(_flapack_error,"failed in converting hidden `arf' of _flapack.dtrttf to C/Fortran array" );
96205 } else {
96206 arf = (double *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data));
96207
96208 /* Processing variable transr */
96209 slen(transr)capi_transr_len = 1;
96210 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.dtrttf to C string");
96211 if (f2py_success) {
96212 CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","dtrttf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtrttf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
96213/*end of frompyobj*/
96214#ifdef F2PY_REPORT_ATEXIT
96215f2py_start_call_clock();
96216#endif
96217/*callfortranroutine*/
96218 (*f2py_func)(transr,uplo,&n,a,&lda,arf,&info) ;
96219 /*(*f2py_func)(transr,uplo,&n,a,&lda,arf,&info,slen(transr),slen(uplo));*/
96220if (PyErr_Occurred())
96221 f2py_success = 0;
96222#ifdef F2PY_REPORT_ATEXIT
96223f2py_stop_call_clock();
96224#endif
96225/*end of callfortranroutine*/
96226 if (f2py_success) {
96227/*pyobjfrom*/
96228/*end of pyobjfrom*/
96229 CFUNCSMESS("Building return value.\n");
96230 capi_buildvalue = Py_BuildValue("Ni",capi_arf_tmp,info);
96231/*closepyobjfrom*/
96232/*end of closepyobjfrom*/
96233 } /*if (f2py_success) after callfortranroutine*/
96234/*cleanupfrompyobj*/
96235 } /*CHECKSTRING(*transr=='N'||*transr=='T')*/
96236 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
96237 } /*if (f2py_success) of transr*/
96238 /* End of cleaning variable transr */
96239 } /*if (capi_arf_tmp == NULL) ... else of arf*/
96240 /* End of cleaning variable arf */
96241 /* End of cleaning variable lda */
96242 /* End of cleaning variable n */
96243 /* End of cleaning variable info */
96244 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
96245 if((PyObject *)capi_a_tmp!=a_capi) {
96246 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
96247 } /*if (capi_a_tmp == NULL) ... else of a*/
96248 /* End of cleaning variable a */
96249 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
96250 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
96251 } /*if (f2py_success) of uplo*/
96252 /* End of cleaning variable uplo */
96253/*end of cleanupfrompyobj*/
96254 if (capi_buildvalue == NULL((void*)0)) {
96255/*routdebugfailure*/
96256 } else {
96257/*routdebugleave*/
96258 }
96259 CFUNCSMESS("Freeing memory.\n");
96260/*freemem*/
96261#ifdef F2PY_REPORT_ATEXIT
96262f2py_stop_clock();
96263#endif
96264 return capi_buildvalue;
96265}
96266/******************************* end of dtrttf *******************************/
96267
96268/*********************************** ctrttf ***********************************/
96269static char doc_f2py_rout__flapack_ctrttf[] = "\
96270arf,info = ctrttf(a,[transr,uplo])\n\nWrapper for ``ctrttf``.\
96271\n\nParameters\n----------\n"
96272"a : input rank-2 array('F') with bounds (lda,n)\n"
96273"\nOther Parameters\n----------------\n"
96274"transr : input string(len=1), optional\n Default: 'N'\n"
96275"uplo : input string(len=1), optional\n Default: 'U'\n"
96276"\nReturns\n-------\n"
96277"arf : rank-1 array('F') with bounds (n*(n+1)/2)\n"
96278"info : int";
96279/* extern void F_FUNC(ctrttf,CTRTTF)(char*,char*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT* ); */
96280static PyObject *f2py_rout__flapack_ctrttf(const PyObject *capi_self,
96281 PyObject *capi_args,
96282 PyObject *capi_keywds,
96283 void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* )) {
96284 PyObject * volatile capi_buildvalue = NULL((void*)0);
96285 volatile int f2py_success = 1;
96286/*decl*/
96287
96288 string transr = NULL((void*)0);
96289 int slen(transr)capi_transr_len;
96290 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
96291 string uplo = NULL((void*)0);
96292 int slen(uplo)capi_uplo_len;
96293 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
96294 int n = 0;
96295 complex_float *a = NULL((void*)0);
96296 npy_intp a_Dims[2] = {-1, -1};
96297 const int a_Rank = 2;
96298 PyArrayObject *capi_a_tmp = NULL((void*)0);
96299 int capi_a_intent = 0;
96300 PyObject *a_capi = Py_None(&_Py_NoneStruct);
96301 int lda = 0;
96302 complex_float *arf = NULL((void*)0);
96303 npy_intp arf_Dims[1] = {-1};
96304 const int arf_Rank = 1;
96305 PyArrayObject *capi_arf_tmp = NULL((void*)0);
96306 int capi_arf_intent = 0;
96307 int info = 0;
96308 static char *capi_kwlist[] = {"a","transr","uplo",NULL((void*)0)};
96309
96310/*routdebugenter*/
96311#ifdef F2PY_REPORT_ATEXIT
96312f2py_start_clock();
96313#endif
96314 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
96315 "O|OO:_flapack.ctrttf",\
96316 capi_kwlist,&a_capi,&transr_capi,&uplo_capi))
96317 return NULL((void*)0);
96318/*frompyobj*/
96319 /* Processing variable uplo */
96320 slen(uplo)capi_uplo_len = 1;
96321 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.ctrttf to C string");
96322 if (f2py_success) {
96323 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","ctrttf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctrttf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
96324 /* Processing variable a */
96325 ;
96326 capi_a_intent |= F2PY_INTENT_IN1;
96327 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
96328 if (capi_a_tmp == NULL((void*)0)) {
96329 if (!PyErr_Occurred())
96330 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ctrttf to C/Fortran array" );
96331 } else {
96332 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
96333
96334 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
96335 /* Processing variable info */
96336 /* Processing variable n */
96337 n = shape(a,1)a_Dims[1];
96338 /* Processing variable lda */
96339 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
96340 /* Processing variable arf */
96341 arf_Dims[0]=n*(n+1)/2;
96342 capi_arf_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
96343 capi_arf_tmp = array_from_pyobj(NPY_CFLOAT,arf_Dims,arf_Rank,capi_arf_intent,Py_None(&_Py_NoneStruct));
96344 if (capi_arf_tmp == NULL((void*)0)) {
96345 if (!PyErr_Occurred())
96346 PyErr_SetString(_flapack_error,"failed in converting hidden `arf' of _flapack.ctrttf to C/Fortran array" );
96347 } else {
96348 arf = (complex_float *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data));
96349
96350 /* Processing variable transr */
96351 slen(transr)capi_transr_len = 1;
96352 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ctrttf to C string");
96353 if (f2py_success) {
96354 CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","ctrttf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctrttf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
96355/*end of frompyobj*/
96356#ifdef F2PY_REPORT_ATEXIT
96357f2py_start_call_clock();
96358#endif
96359/*callfortranroutine*/
96360 (*f2py_func)(transr,uplo,&n,a,&lda,arf,&info) ;
96361 /*(*f2py_func)(transr,uplo,&n,a,&lda,arf,&info,slen(transr),slen(uplo));*/
96362if (PyErr_Occurred())
96363 f2py_success = 0;
96364#ifdef F2PY_REPORT_ATEXIT
96365f2py_stop_call_clock();
96366#endif
96367/*end of callfortranroutine*/
96368 if (f2py_success) {
96369/*pyobjfrom*/
96370/*end of pyobjfrom*/
96371 CFUNCSMESS("Building return value.\n");
96372 capi_buildvalue = Py_BuildValue("Ni",capi_arf_tmp,info);
96373/*closepyobjfrom*/
96374/*end of closepyobjfrom*/
96375 } /*if (f2py_success) after callfortranroutine*/
96376/*cleanupfrompyobj*/
96377 } /*CHECKSTRING(*transr=='N'||*transr=='C')*/
96378 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
96379 } /*if (f2py_success) of transr*/
96380 /* End of cleaning variable transr */
96381 } /*if (capi_arf_tmp == NULL) ... else of arf*/
96382 /* End of cleaning variable arf */
96383 /* End of cleaning variable lda */
96384 /* End of cleaning variable n */
96385 /* End of cleaning variable info */
96386 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
96387 if((PyObject *)capi_a_tmp!=a_capi) {
96388 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
96389 } /*if (capi_a_tmp == NULL) ... else of a*/
96390 /* End of cleaning variable a */
96391 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
96392 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
96393 } /*if (f2py_success) of uplo*/
96394 /* End of cleaning variable uplo */
96395/*end of cleanupfrompyobj*/
96396 if (capi_buildvalue == NULL((void*)0)) {
96397/*routdebugfailure*/
96398 } else {
96399/*routdebugleave*/
96400 }
96401 CFUNCSMESS("Freeing memory.\n");
96402/*freemem*/
96403#ifdef F2PY_REPORT_ATEXIT
96404f2py_stop_clock();
96405#endif
96406 return capi_buildvalue;
96407}
96408/******************************* end of ctrttf *******************************/
96409
96410/*********************************** ztrttf ***********************************/
96411static char doc_f2py_rout__flapack_ztrttf[] = "\
96412arf,info = ztrttf(a,[transr,uplo])\n\nWrapper for ``ztrttf``.\
96413\n\nParameters\n----------\n"
96414"a : input rank-2 array('D') with bounds (lda,n)\n"
96415"\nOther Parameters\n----------------\n"
96416"transr : input string(len=1), optional\n Default: 'N'\n"
96417"uplo : input string(len=1), optional\n Default: 'U'\n"
96418"\nReturns\n-------\n"
96419"arf : rank-1 array('D') with bounds (n*(n+1)/2)\n"
96420"info : int";
96421/* extern void F_FUNC(ztrttf,ZTRTTF)(char*,char*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT* ); */
96422static PyObject *f2py_rout__flapack_ztrttf(const PyObject *capi_self,
96423 PyObject *capi_args,
96424 PyObject *capi_keywds,
96425 void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* )) {
96426 PyObject * volatile capi_buildvalue = NULL((void*)0);
96427 volatile int f2py_success = 1;
96428/*decl*/
96429
96430 string transr = NULL((void*)0);
96431 int slen(transr)capi_transr_len;
96432 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
96433 string uplo = NULL((void*)0);
96434 int slen(uplo)capi_uplo_len;
96435 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
96436 int n = 0;
96437 complex_double *a = NULL((void*)0);
96438 npy_intp a_Dims[2] = {-1, -1};
96439 const int a_Rank = 2;
96440 PyArrayObject *capi_a_tmp = NULL((void*)0);
96441 int capi_a_intent = 0;
96442 PyObject *a_capi = Py_None(&_Py_NoneStruct);
96443 int lda = 0;
96444 complex_double *arf = NULL((void*)0);
96445 npy_intp arf_Dims[1] = {-1};
96446 const int arf_Rank = 1;
96447 PyArrayObject *capi_arf_tmp = NULL((void*)0);
96448 int capi_arf_intent = 0;
96449 int info = 0;
96450 static char *capi_kwlist[] = {"a","transr","uplo",NULL((void*)0)};
96451
96452/*routdebugenter*/
96453#ifdef F2PY_REPORT_ATEXIT
96454f2py_start_clock();
96455#endif
96456 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
96457 "O|OO:_flapack.ztrttf",\
96458 capi_kwlist,&a_capi,&transr_capi,&uplo_capi))
96459 return NULL((void*)0);
96460/*frompyobj*/
96461 /* Processing variable uplo */
96462 slen(uplo)capi_uplo_len = 1;
96463 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.ztrttf to C string");
96464 if (f2py_success) {
96465 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","ztrttf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztrttf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
96466 /* Processing variable a */
96467 ;
96468 capi_a_intent |= F2PY_INTENT_IN1;
96469 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
96470 if (capi_a_tmp == NULL((void*)0)) {
96471 if (!PyErr_Occurred())
96472 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ztrttf to C/Fortran array" );
96473 } else {
96474 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
96475
96476 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
96477 /* Processing variable info */
96478 /* Processing variable n */
96479 n = shape(a,1)a_Dims[1];
96480 /* Processing variable lda */
96481 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
96482 /* Processing variable arf */
96483 arf_Dims[0]=n*(n+1)/2;
96484 capi_arf_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
96485 capi_arf_tmp = array_from_pyobj(NPY_CDOUBLE,arf_Dims,arf_Rank,capi_arf_intent,Py_None(&_Py_NoneStruct));
96486 if (capi_arf_tmp == NULL((void*)0)) {
96487 if (!PyErr_Occurred())
96488 PyErr_SetString(_flapack_error,"failed in converting hidden `arf' of _flapack.ztrttf to C/Fortran array" );
96489 } else {
96490 arf = (complex_double *)(PyArray_DATA(capi_arf_tmp)((void *)((PyArrayObject_fields *)(capi_arf_tmp))->data));
96491
96492 /* Processing variable transr */
96493 slen(transr)capi_transr_len = 1;
96494 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ztrttf to C string");
96495 if (f2py_success) {
96496 CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","ztrttf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztrttf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
96497/*end of frompyobj*/
96498#ifdef F2PY_REPORT_ATEXIT
96499f2py_start_call_clock();
96500#endif
96501/*callfortranroutine*/
96502 (*f2py_func)(transr,uplo,&n,a,&lda,arf,&info) ;
96503 /*(*f2py_func)(transr,uplo,&n,a,&lda,arf,&info,slen(transr),slen(uplo));*/
96504if (PyErr_Occurred())
96505 f2py_success = 0;
96506#ifdef F2PY_REPORT_ATEXIT
96507f2py_stop_call_clock();
96508#endif
96509/*end of callfortranroutine*/
96510 if (f2py_success) {
96511/*pyobjfrom*/
96512/*end of pyobjfrom*/
96513 CFUNCSMESS("Building return value.\n");
96514 capi_buildvalue = Py_BuildValue("Ni",capi_arf_tmp,info);
96515/*closepyobjfrom*/
96516/*end of closepyobjfrom*/
96517 } /*if (f2py_success) after callfortranroutine*/
96518/*cleanupfrompyobj*/
96519 } /*CHECKSTRING(*transr=='N'||*transr=='C')*/
96520 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
96521 } /*if (f2py_success) of transr*/
96522 /* End of cleaning variable transr */
96523 } /*if (capi_arf_tmp == NULL) ... else of arf*/
96524 /* End of cleaning variable arf */
96525 /* End of cleaning variable lda */
96526 /* End of cleaning variable n */
96527 /* End of cleaning variable info */
96528 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
96529 if((PyObject *)capi_a_tmp!=a_capi) {
96530 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
96531 } /*if (capi_a_tmp == NULL) ... else of a*/
96532 /* End of cleaning variable a */
96533 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
96534 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
96535 } /*if (f2py_success) of uplo*/
96536 /* End of cleaning variable uplo */
96537/*end of cleanupfrompyobj*/
96538 if (capi_buildvalue == NULL((void*)0)) {
96539/*routdebugfailure*/
96540 } else {
96541/*routdebugleave*/
96542 }
96543 CFUNCSMESS("Freeing memory.\n");
96544/*freemem*/
96545#ifdef F2PY_REPORT_ATEXIT
96546f2py_stop_clock();
96547#endif
96548 return capi_buildvalue;
96549}
96550/******************************* end of ztrttf *******************************/
96551
96552/*********************************** strttp ***********************************/
96553static char doc_f2py_rout__flapack_strttp[] = "\
96554ap,info = strttp(a,[uplo])\n\nWrapper for ``strttp``.\
96555\n\nParameters\n----------\n"
96556"a : input rank-2 array('f') with bounds (lda,n)\n"
96557"\nOther Parameters\n----------------\n"
96558"uplo : input string(len=1), optional\n Default: 'U'\n"
96559"\nReturns\n-------\n"
96560"ap : rank-1 array('f') with bounds (n*(n+1)/2)\n"
96561"info : int";
96562/* extern void F_FUNC(strttp,STRTTP)(char*,F_INT*,float*,F_INT*,float*,F_INT* ); */
96563static PyObject *f2py_rout__flapack_strttp(const PyObject *capi_self,
96564 PyObject *capi_args,
96565 PyObject *capi_keywds,
96566 void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,float*,F_INTint* )) {
96567 PyObject * volatile capi_buildvalue = NULL((void*)0);
96568 volatile int f2py_success = 1;
96569/*decl*/
96570
96571 string uplo = NULL((void*)0);
96572 int slen(uplo)capi_uplo_len;
96573 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
96574 int n = 0;
96575 float *a = NULL((void*)0);
96576 npy_intp a_Dims[2] = {-1, -1};
96577 const int a_Rank = 2;
96578 PyArrayObject *capi_a_tmp = NULL((void*)0);
96579 int capi_a_intent = 0;
96580 PyObject *a_capi = Py_None(&_Py_NoneStruct);
96581 int lda = 0;
96582 float *ap = NULL((void*)0);
96583 npy_intp ap_Dims[1] = {-1};
96584 const int ap_Rank = 1;
96585 PyArrayObject *capi_ap_tmp = NULL((void*)0);
96586 int capi_ap_intent = 0;
96587 int info = 0;
96588 static char *capi_kwlist[] = {"a","uplo",NULL((void*)0)};
96589
96590/*routdebugenter*/
96591#ifdef F2PY_REPORT_ATEXIT
96592f2py_start_clock();
96593#endif
96594 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
96595 "O|O:_flapack.strttp",\
96596 capi_kwlist,&a_capi,&uplo_capi))
96597 return NULL((void*)0);
96598/*frompyobj*/
96599 /* Processing variable uplo */
96600 slen(uplo)capi_uplo_len = 1;
96601 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.strttp to C string");
96602 if (f2py_success) {
96603 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","strttp:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""strttp:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
96604 /* Processing variable a */
96605 ;
96606 capi_a_intent |= F2PY_INTENT_IN1;
96607 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
96608 if (capi_a_tmp == NULL((void*)0)) {
96609 if (!PyErr_Occurred())
96610 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.strttp to C/Fortran array" );
96611 } else {
96612 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
96613
96614 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
96615 /* Processing variable info */
96616 /* Processing variable n */
96617 n = shape(a,1)a_Dims[1];
96618 /* Processing variable lda */
96619 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
96620 /* Processing variable ap */
96621 ap_Dims[0]=n*(n+1)/2;
96622 capi_ap_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
96623 capi_ap_tmp = array_from_pyobj(NPY_FLOAT,ap_Dims,ap_Rank,capi_ap_intent,Py_None(&_Py_NoneStruct));
96624 if (capi_ap_tmp == NULL((void*)0)) {
96625 if (!PyErr_Occurred())
96626 PyErr_SetString(_flapack_error,"failed in converting hidden `ap' of _flapack.strttp to C/Fortran array" );
96627 } else {
96628 ap = (float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
96629
96630/*end of frompyobj*/
96631#ifdef F2PY_REPORT_ATEXIT
96632f2py_start_call_clock();
96633#endif
96634/*callfortranroutine*/
96635 (*f2py_func)(uplo,&n,a,&lda,ap,&info) ;
96636 /*(*f2py_func)(uplo,&n,a,&lda,ap,&info,slen(uplo));*/
96637if (PyErr_Occurred())
96638 f2py_success = 0;
96639#ifdef F2PY_REPORT_ATEXIT
96640f2py_stop_call_clock();
96641#endif
96642/*end of callfortranroutine*/
96643 if (f2py_success) {
96644/*pyobjfrom*/
96645/*end of pyobjfrom*/
96646 CFUNCSMESS("Building return value.\n");
96647 capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info);
96648/*closepyobjfrom*/
96649/*end of closepyobjfrom*/
96650 } /*if (f2py_success) after callfortranroutine*/
96651/*cleanupfrompyobj*/
96652 } /*if (capi_ap_tmp == NULL) ... else of ap*/
96653 /* End of cleaning variable ap */
96654 /* End of cleaning variable lda */
96655 /* End of cleaning variable n */
96656 /* End of cleaning variable info */
96657 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
96658 if((PyObject *)capi_a_tmp!=a_capi) {
96659 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
96660 } /*if (capi_a_tmp == NULL) ... else of a*/
96661 /* End of cleaning variable a */
96662 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
96663 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
96664 } /*if (f2py_success) of uplo*/
96665 /* End of cleaning variable uplo */
96666/*end of cleanupfrompyobj*/
96667 if (capi_buildvalue == NULL((void*)0)) {
96668/*routdebugfailure*/
96669 } else {
96670/*routdebugleave*/
96671 }
96672 CFUNCSMESS("Freeing memory.\n");
96673/*freemem*/
96674#ifdef F2PY_REPORT_ATEXIT
96675f2py_stop_clock();
96676#endif
96677 return capi_buildvalue;
96678}
96679/******************************* end of strttp *******************************/
96680
96681/*********************************** dtrttp ***********************************/
96682static char doc_f2py_rout__flapack_dtrttp[] = "\
96683ap,info = dtrttp(a,[uplo])\n\nWrapper for ``dtrttp``.\
96684\n\nParameters\n----------\n"
96685"a : input rank-2 array('d') with bounds (lda,n)\n"
96686"\nOther Parameters\n----------------\n"
96687"uplo : input string(len=1), optional\n Default: 'U'\n"
96688"\nReturns\n-------\n"
96689"ap : rank-1 array('d') with bounds (n*(n+1)/2)\n"
96690"info : int";
96691/* extern void F_FUNC(dtrttp,DTRTTP)(char*,F_INT*,double*,F_INT*,double*,F_INT* ); */
96692static PyObject *f2py_rout__flapack_dtrttp(const PyObject *capi_self,
96693 PyObject *capi_args,
96694 PyObject *capi_keywds,
96695 void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,double*,F_INTint* )) {
96696 PyObject * volatile capi_buildvalue = NULL((void*)0);
96697 volatile int f2py_success = 1;
96698/*decl*/
96699
96700 string uplo = NULL((void*)0);
96701 int slen(uplo)capi_uplo_len;
96702 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
96703 int n = 0;
96704 double *a = NULL((void*)0);
96705 npy_intp a_Dims[2] = {-1, -1};
96706 const int a_Rank = 2;
96707 PyArrayObject *capi_a_tmp = NULL((void*)0);
96708 int capi_a_intent = 0;
96709 PyObject *a_capi = Py_None(&_Py_NoneStruct);
96710 int lda = 0;
96711 double *ap = NULL((void*)0);
96712 npy_intp ap_Dims[1] = {-1};
96713 const int ap_Rank = 1;
96714 PyArrayObject *capi_ap_tmp = NULL((void*)0);
96715 int capi_ap_intent = 0;
96716 int info = 0;
96717 static char *capi_kwlist[] = {"a","uplo",NULL((void*)0)};
96718
96719/*routdebugenter*/
96720#ifdef F2PY_REPORT_ATEXIT
96721f2py_start_clock();
96722#endif
96723 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
96724 "O|O:_flapack.dtrttp",\
96725 capi_kwlist,&a_capi,&uplo_capi))
96726 return NULL((void*)0);
96727/*frompyobj*/
96728 /* Processing variable uplo */
96729 slen(uplo)capi_uplo_len = 1;
96730 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.dtrttp to C string");
96731 if (f2py_success) {
96732 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","dtrttp:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtrttp:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
96733 /* Processing variable a */
96734 ;
96735 capi_a_intent |= F2PY_INTENT_IN1;
96736 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
96737 if (capi_a_tmp == NULL((void*)0)) {
96738 if (!PyErr_Occurred())
96739 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dtrttp to C/Fortran array" );
96740 } else {
96741 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
96742
96743 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
96744 /* Processing variable info */
96745 /* Processing variable n */
96746 n = shape(a,1)a_Dims[1];
96747 /* Processing variable lda */
96748 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
96749 /* Processing variable ap */
96750 ap_Dims[0]=n*(n+1)/2;
96751 capi_ap_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
96752 capi_ap_tmp = array_from_pyobj(NPY_DOUBLE,ap_Dims,ap_Rank,capi_ap_intent,Py_None(&_Py_NoneStruct));
96753 if (capi_ap_tmp == NULL((void*)0)) {
96754 if (!PyErr_Occurred())
96755 PyErr_SetString(_flapack_error,"failed in converting hidden `ap' of _flapack.dtrttp to C/Fortran array" );
96756 } else {
96757 ap = (double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
96758
96759/*end of frompyobj*/
96760#ifdef F2PY_REPORT_ATEXIT
96761f2py_start_call_clock();
96762#endif
96763/*callfortranroutine*/
96764 (*f2py_func)(uplo,&n,a,&lda,ap,&info) ;
96765 /*(*f2py_func)(uplo,&n,a,&lda,ap,&info,slen(uplo));*/
96766if (PyErr_Occurred())
96767 f2py_success = 0;
96768#ifdef F2PY_REPORT_ATEXIT
96769f2py_stop_call_clock();
96770#endif
96771/*end of callfortranroutine*/
96772 if (f2py_success) {
96773/*pyobjfrom*/
96774/*end of pyobjfrom*/
96775 CFUNCSMESS("Building return value.\n");
96776 capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info);
96777/*closepyobjfrom*/
96778/*end of closepyobjfrom*/
96779 } /*if (f2py_success) after callfortranroutine*/
96780/*cleanupfrompyobj*/
96781 } /*if (capi_ap_tmp == NULL) ... else of ap*/
96782 /* End of cleaning variable ap */
96783 /* End of cleaning variable lda */
96784 /* End of cleaning variable n */
96785 /* End of cleaning variable info */
96786 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
96787 if((PyObject *)capi_a_tmp!=a_capi) {
96788 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
96789 } /*if (capi_a_tmp == NULL) ... else of a*/
96790 /* End of cleaning variable a */
96791 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
96792 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
96793 } /*if (f2py_success) of uplo*/
96794 /* End of cleaning variable uplo */
96795/*end of cleanupfrompyobj*/
96796 if (capi_buildvalue == NULL((void*)0)) {
96797/*routdebugfailure*/
96798 } else {
96799/*routdebugleave*/
96800 }
96801 CFUNCSMESS("Freeing memory.\n");
96802/*freemem*/
96803#ifdef F2PY_REPORT_ATEXIT
96804f2py_stop_clock();
96805#endif
96806 return capi_buildvalue;
96807}
96808/******************************* end of dtrttp *******************************/
96809
96810/*********************************** ctrttp ***********************************/
96811static char doc_f2py_rout__flapack_ctrttp[] = "\
96812ap,info = ctrttp(a,[uplo])\n\nWrapper for ``ctrttp``.\
96813\n\nParameters\n----------\n"
96814"a : input rank-2 array('F') with bounds (lda,n)\n"
96815"\nOther Parameters\n----------------\n"
96816"uplo : input string(len=1), optional\n Default: 'U'\n"
96817"\nReturns\n-------\n"
96818"ap : rank-1 array('F') with bounds (n*(n+1)/2)\n"
96819"info : int";
96820/* extern void F_FUNC(ctrttp,CTRTTP)(char*,F_INT*,complex_float*,F_INT*,complex_float*,F_INT* ); */
96821static PyObject *f2py_rout__flapack_ctrttp(const PyObject *capi_self,
96822 PyObject *capi_args,
96823 PyObject *capi_keywds,
96824 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint* )) {
96825 PyObject * volatile capi_buildvalue = NULL((void*)0);
96826 volatile int f2py_success = 1;
96827/*decl*/
96828
96829 string uplo = NULL((void*)0);
96830 int slen(uplo)capi_uplo_len;
96831 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
96832 int n = 0;
96833 complex_float *a = NULL((void*)0);
96834 npy_intp a_Dims[2] = {-1, -1};
96835 const int a_Rank = 2;
96836 PyArrayObject *capi_a_tmp = NULL((void*)0);
96837 int capi_a_intent = 0;
96838 PyObject *a_capi = Py_None(&_Py_NoneStruct);
96839 int lda = 0;
96840 complex_float *ap = NULL((void*)0);
96841 npy_intp ap_Dims[1] = {-1};
96842 const int ap_Rank = 1;
96843 PyArrayObject *capi_ap_tmp = NULL((void*)0);
96844 int capi_ap_intent = 0;
96845 int info = 0;
96846 static char *capi_kwlist[] = {"a","uplo",NULL((void*)0)};
96847
96848/*routdebugenter*/
96849#ifdef F2PY_REPORT_ATEXIT
96850f2py_start_clock();
96851#endif
96852 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
96853 "O|O:_flapack.ctrttp",\
96854 capi_kwlist,&a_capi,&uplo_capi))
96855 return NULL((void*)0);
96856/*frompyobj*/
96857 /* Processing variable uplo */
96858 slen(uplo)capi_uplo_len = 1;
96859 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.ctrttp to C string");
96860 if (f2py_success) {
96861 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","ctrttp:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctrttp:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
96862 /* Processing variable a */
96863 ;
96864 capi_a_intent |= F2PY_INTENT_IN1;
96865 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
96866 if (capi_a_tmp == NULL((void*)0)) {
96867 if (!PyErr_Occurred())
96868 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ctrttp to C/Fortran array" );
96869 } else {
96870 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
96871
96872 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
96873 /* Processing variable info */
96874 /* Processing variable n */
96875 n = shape(a,1)a_Dims[1];
96876 /* Processing variable lda */
96877 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
96878 /* Processing variable ap */
96879 ap_Dims[0]=n*(n+1)/2;
96880 capi_ap_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
96881 capi_ap_tmp = array_from_pyobj(NPY_CFLOAT,ap_Dims,ap_Rank,capi_ap_intent,Py_None(&_Py_NoneStruct));
96882 if (capi_ap_tmp == NULL((void*)0)) {
96883 if (!PyErr_Occurred())
96884 PyErr_SetString(_flapack_error,"failed in converting hidden `ap' of _flapack.ctrttp to C/Fortran array" );
96885 } else {
96886 ap = (complex_float *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
96887
96888/*end of frompyobj*/
96889#ifdef F2PY_REPORT_ATEXIT
96890f2py_start_call_clock();
96891#endif
96892/*callfortranroutine*/
96893 (*f2py_func)(uplo,&n,a,&lda,ap,&info) ;
96894 /*(*f2py_func)(uplo,&n,a,&lda,ap,&info,slen(uplo));*/
96895if (PyErr_Occurred())
96896 f2py_success = 0;
96897#ifdef F2PY_REPORT_ATEXIT
96898f2py_stop_call_clock();
96899#endif
96900/*end of callfortranroutine*/
96901 if (f2py_success) {
96902/*pyobjfrom*/
96903/*end of pyobjfrom*/
96904 CFUNCSMESS("Building return value.\n");
96905 capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info);
96906/*closepyobjfrom*/
96907/*end of closepyobjfrom*/
96908 } /*if (f2py_success) after callfortranroutine*/
96909/*cleanupfrompyobj*/
96910 } /*if (capi_ap_tmp == NULL) ... else of ap*/
96911 /* End of cleaning variable ap */
96912 /* End of cleaning variable lda */
96913 /* End of cleaning variable n */
96914 /* End of cleaning variable info */
96915 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
96916 if((PyObject *)capi_a_tmp!=a_capi) {
96917 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
96918 } /*if (capi_a_tmp == NULL) ... else of a*/
96919 /* End of cleaning variable a */
96920 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
96921 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
96922 } /*if (f2py_success) of uplo*/
96923 /* End of cleaning variable uplo */
96924/*end of cleanupfrompyobj*/
96925 if (capi_buildvalue == NULL((void*)0)) {
96926/*routdebugfailure*/
96927 } else {
96928/*routdebugleave*/
96929 }
96930 CFUNCSMESS("Freeing memory.\n");
96931/*freemem*/
96932#ifdef F2PY_REPORT_ATEXIT
96933f2py_stop_clock();
96934#endif
96935 return capi_buildvalue;
96936}
96937/******************************* end of ctrttp *******************************/
96938
96939/*********************************** ztrttp ***********************************/
96940static char doc_f2py_rout__flapack_ztrttp[] = "\
96941ap,info = ztrttp(a,[uplo])\n\nWrapper for ``ztrttp``.\
96942\n\nParameters\n----------\n"
96943"a : input rank-2 array('D') with bounds (lda,n)\n"
96944"\nOther Parameters\n----------------\n"
96945"uplo : input string(len=1), optional\n Default: 'U'\n"
96946"\nReturns\n-------\n"
96947"ap : rank-1 array('D') with bounds (n*(n+1)/2)\n"
96948"info : int";
96949/* extern void F_FUNC(ztrttp,ZTRTTP)(char*,F_INT*,complex_double*,F_INT*,complex_double*,F_INT* ); */
96950static PyObject *f2py_rout__flapack_ztrttp(const PyObject *capi_self,
96951 PyObject *capi_args,
96952 PyObject *capi_keywds,
96953 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint* )) {
96954 PyObject * volatile capi_buildvalue = NULL((void*)0);
96955 volatile int f2py_success = 1;
96956/*decl*/
96957
96958 string uplo = NULL((void*)0);
96959 int slen(uplo)capi_uplo_len;
96960 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
96961 int n = 0;
96962 complex_double *a = NULL((void*)0);
96963 npy_intp a_Dims[2] = {-1, -1};
96964 const int a_Rank = 2;
96965 PyArrayObject *capi_a_tmp = NULL((void*)0);
96966 int capi_a_intent = 0;
96967 PyObject *a_capi = Py_None(&_Py_NoneStruct);
96968 int lda = 0;
96969 complex_double *ap = NULL((void*)0);
96970 npy_intp ap_Dims[1] = {-1};
96971 const int ap_Rank = 1;
96972 PyArrayObject *capi_ap_tmp = NULL((void*)0);
96973 int capi_ap_intent = 0;
96974 int info = 0;
96975 static char *capi_kwlist[] = {"a","uplo",NULL((void*)0)};
96976
96977/*routdebugenter*/
96978#ifdef F2PY_REPORT_ATEXIT
96979f2py_start_clock();
96980#endif
96981 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
96982 "O|O:_flapack.ztrttp",\
96983 capi_kwlist,&a_capi,&uplo_capi))
96984 return NULL((void*)0);
96985/*frompyobj*/
96986 /* Processing variable uplo */
96987 slen(uplo)capi_uplo_len = 1;
96988 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 1st keyword `uplo' of _flapack.ztrttp to C string");
96989 if (f2py_success) {
96990 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","1st keyword uplo","ztrttp:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztrttp:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""1st keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
96991 /* Processing variable a */
96992 ;
96993 capi_a_intent |= F2PY_INTENT_IN1;
96994 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
96995 if (capi_a_tmp == NULL((void*)0)) {
96996 if (!PyErr_Occurred())
96997 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ztrttp to C/Fortran array" );
96998 } else {
96999 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
97000
97001 CHECKARRAY(shape(a,0)==shape(a,1),"shape(a,0)==shape(a,1)","1st argument a")if (!(a_Dims[0]==a_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(a,0)==shape(a,1)"") failed for ""1st argument a");
} else
{
97002 /* Processing variable info */
97003 /* Processing variable n */
97004 n = shape(a,1)a_Dims[1];
97005 /* Processing variable lda */
97006 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
97007 /* Processing variable ap */
97008 ap_Dims[0]=n*(n+1)/2;
97009 capi_ap_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
97010 capi_ap_tmp = array_from_pyobj(NPY_CDOUBLE,ap_Dims,ap_Rank,capi_ap_intent,Py_None(&_Py_NoneStruct));
97011 if (capi_ap_tmp == NULL((void*)0)) {
97012 if (!PyErr_Occurred())
97013 PyErr_SetString(_flapack_error,"failed in converting hidden `ap' of _flapack.ztrttp to C/Fortran array" );
97014 } else {
97015 ap = (complex_double *)(PyArray_DATA(capi_ap_tmp)((void *)((PyArrayObject_fields *)(capi_ap_tmp))->data));
97016
97017/*end of frompyobj*/
97018#ifdef F2PY_REPORT_ATEXIT
97019f2py_start_call_clock();
97020#endif
97021/*callfortranroutine*/
97022 (*f2py_func)(uplo,&n,a,&lda,ap,&info) ;
97023 /*(*f2py_func)(uplo,&n,a,&lda,ap,&info,slen(uplo));*/
97024if (PyErr_Occurred())
97025 f2py_success = 0;
97026#ifdef F2PY_REPORT_ATEXIT
97027f2py_stop_call_clock();
97028#endif
97029/*end of callfortranroutine*/
97030 if (f2py_success) {
97031/*pyobjfrom*/
97032/*end of pyobjfrom*/
97033 CFUNCSMESS("Building return value.\n");
97034 capi_buildvalue = Py_BuildValue("Ni",capi_ap_tmp,info);
97035/*closepyobjfrom*/
97036/*end of closepyobjfrom*/
97037 } /*if (f2py_success) after callfortranroutine*/
97038/*cleanupfrompyobj*/
97039 } /*if (capi_ap_tmp == NULL) ... else of ap*/
97040 /* End of cleaning variable ap */
97041 /* End of cleaning variable lda */
97042 /* End of cleaning variable n */
97043 /* End of cleaning variable info */
97044 } /*CHECKARRAY(shape(a,0)==shape(a,1))*/
97045 if((PyObject *)capi_a_tmp!=a_capi) {
97046 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
97047 } /*if (capi_a_tmp == NULL) ... else of a*/
97048 /* End of cleaning variable a */
97049 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
97050 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
97051 } /*if (f2py_success) of uplo*/
97052 /* End of cleaning variable uplo */
97053/*end of cleanupfrompyobj*/
97054 if (capi_buildvalue == NULL((void*)0)) {
97055/*routdebugfailure*/
97056 } else {
97057/*routdebugleave*/
97058 }
97059 CFUNCSMESS("Freeing memory.\n");
97060/*freemem*/
97061#ifdef F2PY_REPORT_ATEXIT
97062f2py_stop_clock();
97063#endif
97064 return capi_buildvalue;
97065}
97066/******************************* end of ztrttp *******************************/
97067
97068/*********************************** stfsm ***********************************/
97069static char doc_f2py_rout__flapack_stfsm[] = "\
97070x = stfsm(alpha,a,b,[transr,side,uplo,trans,diag,overwrite_b])\n\nWrapper for ``stfsm``.\
97071\n\nParameters\n----------\n"
97072"alpha : input float\n"
97073"a : input rank-1 array('f') with bounds (nt)\n"
97074"b : input rank-2 array('f') with bounds (m,n)\n"
97075"\nOther Parameters\n----------------\n"
97076"transr : input string(len=1), optional\n Default: 'N'\n"
97077"side : input string(len=1), optional\n Default: 'L'\n"
97078"uplo : input string(len=1), optional\n Default: 'U'\n"
97079"trans : input string(len=1), optional\n Default: 'N'\n"
97080"diag : input string(len=1), optional\n Default: 'N'\n"
97081"overwrite_b : input int, optional\n Default: 0\n"
97082"\nReturns\n-------\n"
97083"x : rank-2 array('f') with bounds (m,n) and b storage";
97084/* extern void F_FUNC(stfsm,STFSM)(char*,char*,char*,char*,char*,F_INT*,F_INT*,float*,float*,float*,F_INT* ); */
97085static PyObject *f2py_rout__flapack_stfsm(const PyObject *capi_self,
97086 PyObject *capi_args,
97087 PyObject *capi_keywds,
97088 void (*f2py_func)(char*,char*,char*,char*,char*,F_INTint*,F_INTint*,float*,float*,float*,F_INTint* )) {
97089 PyObject * volatile capi_buildvalue = NULL((void*)0);
97090 volatile int f2py_success = 1;
97091/*decl*/
97092
97093 string transr = NULL((void*)0);
97094 int slen(transr)capi_transr_len;
97095 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
97096 string side = NULL((void*)0);
97097 int slen(side)capi_side_len;
97098 PyObject *side_capi = Py_None(&_Py_NoneStruct);
97099 string uplo = NULL((void*)0);
97100 int slen(uplo)capi_uplo_len;
97101 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
97102 string trans = NULL((void*)0);
97103 int slen(trans)capi_trans_len;
97104 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
97105 string diag = NULL((void*)0);
97106 int slen(diag)capi_diag_len;
97107 PyObject *diag_capi = Py_None(&_Py_NoneStruct);
97108 int m = 0;
97109 int n = 0;
97110 int nt = 0;
97111 float alpha = 0;
97112 PyObject *alpha_capi = Py_None(&_Py_NoneStruct);
97113 float *a = NULL((void*)0);
97114 npy_intp a_Dims[1] = {-1};
97115 const int a_Rank = 1;
97116 PyArrayObject *capi_a_tmp = NULL((void*)0);
97117 int capi_a_intent = 0;
97118 PyObject *a_capi = Py_None(&_Py_NoneStruct);
97119 float *b = NULL((void*)0);
97120 npy_intp b_Dims[2] = {-1, -1};
97121 const int b_Rank = 2;
97122 PyArrayObject *capi_b_tmp = NULL((void*)0);
97123 int capi_b_intent = 0;
97124 int capi_overwrite_b = 0;
97125 PyObject *b_capi = Py_None(&_Py_NoneStruct);
97126 int ldb = 0;
97127 static char *capi_kwlist[] = {"alpha","a","b","transr","side","uplo","trans","diag","overwrite_b",NULL((void*)0)};
97128
97129/*routdebugenter*/
97130#ifdef F2PY_REPORT_ATEXIT
97131f2py_start_clock();
97132#endif
97133 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
97134 "OOO|OOOOOi:_flapack.stfsm",\
97135 capi_kwlist,&alpha_capi,&a_capi,&b_capi,&transr_capi,&side_capi,&uplo_capi,&trans_capi,&diag_capi,&capi_overwrite_b))
97136 return NULL((void*)0);
97137/*frompyobj*/
97138 /* Processing variable side */
97139 slen(side)capi_side_len = 1;
97140 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 2nd keyword `side' of _flapack.stfsm to C string");
97141 if (f2py_success) {
97142 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","2nd keyword side","stfsm:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stfsm:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""2nd keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
97143 /* Processing variable uplo */
97144 slen(uplo)capi_uplo_len = 1;
97145 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.stfsm to C string");
97146 if (f2py_success) {
97147 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","stfsm:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stfsm:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
97148 /* Processing variable alpha */
97149 f2py_success = float_from_pyobj(&alpha,alpha_capi,"_flapack.stfsm() 1st argument (alpha) can't be converted to float");
97150 if (f2py_success) {
97151 /* Processing variable a */
97152 ;
97153 capi_a_intent |= F2PY_INTENT_IN1;
97154 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
97155 if (capi_a_tmp == NULL((void*)0)) {
97156 if (!PyErr_Occurred())
97157 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.stfsm to C/Fortran array" );
97158 } else {
97159 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
97160
97161 /* Processing variable b */
97162 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
97163 ;
97164 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
97165 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
97166 if (capi_b_tmp == NULL((void*)0)) {
97167 if (!PyErr_Occurred())
97168 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.stfsm to C/Fortran array" );
97169 } else {
97170 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
97171
97172 /* Processing variable m */
97173 m = shape(b,0)b_Dims[0];
97174 /* Processing variable n */
97175 n = shape(b,1)b_Dims[1];
97176 /* Processing variable nt */
97177 nt = shape(a,0)a_Dims[0];
97178 CHECKSCALAR(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2),"*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2)","hidden nt","stfsm:nt=%d",nt)if (!(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2))) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""stfsm:nt=%d", "(""*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2)"
") failed for ""hidden nt", nt); PyErr_SetString(_flapack_error
,errstring); } else
{
97179 /* Processing variable ldb */
97180 ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1));
97181 /* Processing variable transr */
97182 slen(transr)capi_transr_len = 1;
97183 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.stfsm to C string");
97184 if (f2py_success) {
97185 CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","stfsm:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stfsm:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
97186 /* Processing variable trans */
97187 slen(trans)capi_trans_len = 1;
97188 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 4th keyword `trans' of _flapack.stfsm to C string");
97189 if (f2py_success) {
97190 CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","4th keyword trans","stfsm:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stfsm:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'"
") failed for ""4th keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
97191 /* Processing variable diag */
97192 slen(diag)capi_diag_len = 1;
97193 f2py_success = string_from_pyobj(&diag,&slen(diag)capi_diag_len,"N",diag_capi,"string_from_pyobj failed in converting 5th keyword `diag' of _flapack.stfsm to C string");
97194 if (f2py_success) {
97195 CHECKSTRING(*diag=='U'||*diag=='N',"*diag=='U'||*diag=='N'","5th keyword diag","stfsm:slen(diag)=%d diag=\"%s\"",diag)if (!(*diag=='U'||*diag=='N')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stfsm:slen(diag)=%d diag=\"%s\"", "(""*diag=='U'||*diag=='N'"
") failed for ""5th keyword diag", capi_diag_len, diag); PyErr_SetString
(_flapack_error, errstring); } else
{
97196/*end of frompyobj*/
97197#ifdef F2PY_REPORT_ATEXIT
97198f2py_start_call_clock();
97199#endif
97200/*callfortranroutine*/
97201 (*f2py_func)(transr,side,uplo,trans,diag,&m,&n,&alpha,a,b,&ldb) ;
97202 /*(*f2py_func)(transr,side,uplo,trans,diag,&m,&n,&nt,&alpha,a,b,&ldb,slen(transr),slen(side),slen(uplo),slen(trans),slen(diag));*/
97203if (PyErr_Occurred())
97204 f2py_success = 0;
97205#ifdef F2PY_REPORT_ATEXIT
97206f2py_stop_call_clock();
97207#endif
97208/*end of callfortranroutine*/
97209 if (f2py_success) {
97210/*pyobjfrom*/
97211/*end of pyobjfrom*/
97212 CFUNCSMESS("Building return value.\n");
97213 capi_buildvalue = Py_BuildValue("N",capi_b_tmp);
97214/*closepyobjfrom*/
97215/*end of closepyobjfrom*/
97216 } /*if (f2py_success) after callfortranroutine*/
97217/*cleanupfrompyobj*/
97218 } /*CHECKSTRING(*diag=='U'||*diag=='N')*/
97219 STRINGFREE(diag)do {if (!(diag == ((void*)0))) free(diag);} while (0);
97220 } /*if (f2py_success) of diag*/
97221 /* End of cleaning variable diag */
97222 } /*CHECKSTRING(*trans=='N'||*trans=='T')*/
97223 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
97224 } /*if (f2py_success) of trans*/
97225 /* End of cleaning variable trans */
97226 } /*CHECKSTRING(*transr=='N'||*transr=='T')*/
97227 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
97228 } /*if (f2py_success) of transr*/
97229 /* End of cleaning variable transr */
97230 /* End of cleaning variable ldb */
97231 } /*CHECKSCALAR(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2))*/
97232 /* End of cleaning variable nt */
97233 /* End of cleaning variable n */
97234 /* End of cleaning variable m */
97235 } /*if (capi_b_tmp == NULL) ... else of b*/
97236 /* End of cleaning variable b */
97237 if((PyObject *)capi_a_tmp!=a_capi) {
97238 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
97239 } /*if (capi_a_tmp == NULL) ... else of a*/
97240 /* End of cleaning variable a */
97241 } /*if (f2py_success) of alpha*/
97242 /* End of cleaning variable alpha */
97243 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
97244 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
97245 } /*if (f2py_success) of uplo*/
97246 /* End of cleaning variable uplo */
97247 } /*CHECKSTRING(*side=='L'||*side=='R')*/
97248 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
97249 } /*if (f2py_success) of side*/
97250 /* End of cleaning variable side */
97251/*end of cleanupfrompyobj*/
97252 if (capi_buildvalue == NULL((void*)0)) {
97253/*routdebugfailure*/
97254 } else {
97255/*routdebugleave*/
97256 }
97257 CFUNCSMESS("Freeing memory.\n");
97258/*freemem*/
97259#ifdef F2PY_REPORT_ATEXIT
97260f2py_stop_clock();
97261#endif
97262 return capi_buildvalue;
97263}
97264/******************************** end of stfsm ********************************/
97265
97266/*********************************** dtfsm ***********************************/
97267static char doc_f2py_rout__flapack_dtfsm[] = "\
97268x = dtfsm(alpha,a,b,[transr,side,uplo,trans,diag,overwrite_b])\n\nWrapper for ``dtfsm``.\
97269\n\nParameters\n----------\n"
97270"alpha : input float\n"
97271"a : input rank-1 array('d') with bounds (nt)\n"
97272"b : input rank-2 array('d') with bounds (m,n)\n"
97273"\nOther Parameters\n----------------\n"
97274"transr : input string(len=1), optional\n Default: 'N'\n"
97275"side : input string(len=1), optional\n Default: 'L'\n"
97276"uplo : input string(len=1), optional\n Default: 'U'\n"
97277"trans : input string(len=1), optional\n Default: 'N'\n"
97278"diag : input string(len=1), optional\n Default: 'N'\n"
97279"overwrite_b : input int, optional\n Default: 0\n"
97280"\nReturns\n-------\n"
97281"x : rank-2 array('d') with bounds (m,n) and b storage";
97282/* extern void F_FUNC(dtfsm,DTFSM)(char*,char*,char*,char*,char*,F_INT*,F_INT*,double*,double*,double*,F_INT* ); */
97283static PyObject *f2py_rout__flapack_dtfsm(const PyObject *capi_self,
97284 PyObject *capi_args,
97285 PyObject *capi_keywds,
97286 void (*f2py_func)(char*,char*,char*,char*,char*,F_INTint*,F_INTint*,double*,double*,double*,F_INTint* )) {
97287 PyObject * volatile capi_buildvalue = NULL((void*)0);
97288 volatile int f2py_success = 1;
97289/*decl*/
97290
97291 string transr = NULL((void*)0);
97292 int slen(transr)capi_transr_len;
97293 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
97294 string side = NULL((void*)0);
97295 int slen(side)capi_side_len;
97296 PyObject *side_capi = Py_None(&_Py_NoneStruct);
97297 string uplo = NULL((void*)0);
97298 int slen(uplo)capi_uplo_len;
97299 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
97300 string trans = NULL((void*)0);
97301 int slen(trans)capi_trans_len;
97302 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
97303 string diag = NULL((void*)0);
97304 int slen(diag)capi_diag_len;
97305 PyObject *diag_capi = Py_None(&_Py_NoneStruct);
97306 int m = 0;
97307 int n = 0;
97308 int nt = 0;
97309 double alpha = 0;
97310 PyObject *alpha_capi = Py_None(&_Py_NoneStruct);
97311 double *a = NULL((void*)0);
97312 npy_intp a_Dims[1] = {-1};
97313 const int a_Rank = 1;
97314 PyArrayObject *capi_a_tmp = NULL((void*)0);
97315 int capi_a_intent = 0;
97316 PyObject *a_capi = Py_None(&_Py_NoneStruct);
97317 double *b = NULL((void*)0);
97318 npy_intp b_Dims[2] = {-1, -1};
97319 const int b_Rank = 2;
97320 PyArrayObject *capi_b_tmp = NULL((void*)0);
97321 int capi_b_intent = 0;
97322 int capi_overwrite_b = 0;
97323 PyObject *b_capi = Py_None(&_Py_NoneStruct);
97324 int ldb = 0;
97325 static char *capi_kwlist[] = {"alpha","a","b","transr","side","uplo","trans","diag","overwrite_b",NULL((void*)0)};
97326
97327/*routdebugenter*/
97328#ifdef F2PY_REPORT_ATEXIT
97329f2py_start_clock();
97330#endif
97331 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
97332 "OOO|OOOOOi:_flapack.dtfsm",\
97333 capi_kwlist,&alpha_capi,&a_capi,&b_capi,&transr_capi,&side_capi,&uplo_capi,&trans_capi,&diag_capi,&capi_overwrite_b))
97334 return NULL((void*)0);
97335/*frompyobj*/
97336 /* Processing variable side */
97337 slen(side)capi_side_len = 1;
97338 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 2nd keyword `side' of _flapack.dtfsm to C string");
97339 if (f2py_success) {
97340 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","2nd keyword side","dtfsm:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtfsm:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""2nd keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
97341 /* Processing variable uplo */
97342 slen(uplo)capi_uplo_len = 1;
97343 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.dtfsm to C string");
97344 if (f2py_success) {
97345 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","dtfsm:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtfsm:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
97346 /* Processing variable alpha */
97347 f2py_success = double_from_pyobj(&alpha,alpha_capi,"_flapack.dtfsm() 1st argument (alpha) can't be converted to double");
97348 if (f2py_success) {
97349 /* Processing variable a */
97350 ;
97351 capi_a_intent |= F2PY_INTENT_IN1;
97352 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
97353 if (capi_a_tmp == NULL((void*)0)) {
97354 if (!PyErr_Occurred())
97355 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.dtfsm to C/Fortran array" );
97356 } else {
97357 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
97358
97359 /* Processing variable b */
97360 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
97361 ;
97362 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
97363 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
97364 if (capi_b_tmp == NULL((void*)0)) {
97365 if (!PyErr_Occurred())
97366 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.dtfsm to C/Fortran array" );
97367 } else {
97368 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
97369
97370 /* Processing variable m */
97371 m = shape(b,0)b_Dims[0];
97372 /* Processing variable n */
97373 n = shape(b,1)b_Dims[1];
97374 /* Processing variable nt */
97375 nt = shape(a,0)a_Dims[0];
97376 CHECKSCALAR(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2),"*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2)","hidden nt","dtfsm:nt=%d",nt)if (!(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2))) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dtfsm:nt=%d", "(""*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2)"
") failed for ""hidden nt", nt); PyErr_SetString(_flapack_error
,errstring); } else
{
97377 /* Processing variable ldb */
97378 ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1));
97379 /* Processing variable transr */
97380 slen(transr)capi_transr_len = 1;
97381 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.dtfsm to C string");
97382 if (f2py_success) {
97383 CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","dtfsm:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtfsm:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
97384 /* Processing variable trans */
97385 slen(trans)capi_trans_len = 1;
97386 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 4th keyword `trans' of _flapack.dtfsm to C string");
97387 if (f2py_success) {
97388 CHECKSTRING(*trans=='N'||*trans=='T',"*trans=='N'||*trans=='T'","4th keyword trans","dtfsm:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtfsm:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='T'"
") failed for ""4th keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
97389 /* Processing variable diag */
97390 slen(diag)capi_diag_len = 1;
97391 f2py_success = string_from_pyobj(&diag,&slen(diag)capi_diag_len,"N",diag_capi,"string_from_pyobj failed in converting 5th keyword `diag' of _flapack.dtfsm to C string");
97392 if (f2py_success) {
97393 CHECKSTRING(*diag=='U'||*diag=='N',"*diag=='U'||*diag=='N'","5th keyword diag","dtfsm:slen(diag)=%d diag=\"%s\"",diag)if (!(*diag=='U'||*diag=='N')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtfsm:slen(diag)=%d diag=\"%s\"", "(""*diag=='U'||*diag=='N'"
") failed for ""5th keyword diag", capi_diag_len, diag); PyErr_SetString
(_flapack_error, errstring); } else
{
97394/*end of frompyobj*/
97395#ifdef F2PY_REPORT_ATEXIT
97396f2py_start_call_clock();
97397#endif
97398/*callfortranroutine*/
97399 (*f2py_func)(transr,side,uplo,trans,diag,&m,&n,&alpha,a,b,&ldb) ;
97400 /*(*f2py_func)(transr,side,uplo,trans,diag,&m,&n,&nt,&alpha,a,b,&ldb,slen(transr),slen(side),slen(uplo),slen(trans),slen(diag));*/
97401if (PyErr_Occurred())
97402 f2py_success = 0;
97403#ifdef F2PY_REPORT_ATEXIT
97404f2py_stop_call_clock();
97405#endif
97406/*end of callfortranroutine*/
97407 if (f2py_success) {
97408/*pyobjfrom*/
97409/*end of pyobjfrom*/
97410 CFUNCSMESS("Building return value.\n");
97411 capi_buildvalue = Py_BuildValue("N",capi_b_tmp);
97412/*closepyobjfrom*/
97413/*end of closepyobjfrom*/
97414 } /*if (f2py_success) after callfortranroutine*/
97415/*cleanupfrompyobj*/
97416 } /*CHECKSTRING(*diag=='U'||*diag=='N')*/
97417 STRINGFREE(diag)do {if (!(diag == ((void*)0))) free(diag);} while (0);
97418 } /*if (f2py_success) of diag*/
97419 /* End of cleaning variable diag */
97420 } /*CHECKSTRING(*trans=='N'||*trans=='T')*/
97421 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
97422 } /*if (f2py_success) of trans*/
97423 /* End of cleaning variable trans */
97424 } /*CHECKSTRING(*transr=='N'||*transr=='T')*/
97425 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
97426 } /*if (f2py_success) of transr*/
97427 /* End of cleaning variable transr */
97428 /* End of cleaning variable ldb */
97429 } /*CHECKSCALAR(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2))*/
97430 /* End of cleaning variable nt */
97431 /* End of cleaning variable n */
97432 /* End of cleaning variable m */
97433 } /*if (capi_b_tmp == NULL) ... else of b*/
97434 /* End of cleaning variable b */
97435 if((PyObject *)capi_a_tmp!=a_capi) {
97436 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
97437 } /*if (capi_a_tmp == NULL) ... else of a*/
97438 /* End of cleaning variable a */
97439 } /*if (f2py_success) of alpha*/
97440 /* End of cleaning variable alpha */
97441 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
97442 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
97443 } /*if (f2py_success) of uplo*/
97444 /* End of cleaning variable uplo */
97445 } /*CHECKSTRING(*side=='L'||*side=='R')*/
97446 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
97447 } /*if (f2py_success) of side*/
97448 /* End of cleaning variable side */
97449/*end of cleanupfrompyobj*/
97450 if (capi_buildvalue == NULL((void*)0)) {
97451/*routdebugfailure*/
97452 } else {
97453/*routdebugleave*/
97454 }
97455 CFUNCSMESS("Freeing memory.\n");
97456/*freemem*/
97457#ifdef F2PY_REPORT_ATEXIT
97458f2py_stop_clock();
97459#endif
97460 return capi_buildvalue;
97461}
97462/******************************** end of dtfsm ********************************/
97463
97464/*********************************** ctfsm ***********************************/
97465static char doc_f2py_rout__flapack_ctfsm[] = "\
97466x = ctfsm(alpha,a,b,[transr,side,uplo,trans,diag,overwrite_b])\n\nWrapper for ``ctfsm``.\
97467\n\nParameters\n----------\n"
97468"alpha : input complex\n"
97469"a : input rank-1 array('F') with bounds (nt)\n"
97470"b : input rank-2 array('F') with bounds (m,n)\n"
97471"\nOther Parameters\n----------------\n"
97472"transr : input string(len=1), optional\n Default: 'N'\n"
97473"side : input string(len=1), optional\n Default: 'L'\n"
97474"uplo : input string(len=1), optional\n Default: 'U'\n"
97475"trans : input string(len=1), optional\n Default: 'N'\n"
97476"diag : input string(len=1), optional\n Default: 'N'\n"
97477"overwrite_b : input int, optional\n Default: 0\n"
97478"\nReturns\n-------\n"
97479"x : rank-2 array('F') with bounds (m,n) and b storage";
97480/* extern void F_FUNC(ctfsm,CTFSM)(char*,char*,char*,char*,char*,F_INT*,F_INT*,complex_float*,complex_float*,complex_float*,F_INT* ); */
97481static PyObject *f2py_rout__flapack_ctfsm(const PyObject *capi_self,
97482 PyObject *capi_args,
97483 PyObject *capi_keywds,
97484 void (*f2py_func)(char*,char*,char*,char*,char*,F_INTint*,F_INTint*,complex_float*,complex_float*,complex_float*,F_INTint* )) {
97485 PyObject * volatile capi_buildvalue = NULL((void*)0);
97486 volatile int f2py_success = 1;
97487/*decl*/
97488
97489 string transr = NULL((void*)0);
97490 int slen(transr)capi_transr_len;
97491 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
97492 string side = NULL((void*)0);
97493 int slen(side)capi_side_len;
97494 PyObject *side_capi = Py_None(&_Py_NoneStruct);
97495 string uplo = NULL((void*)0);
97496 int slen(uplo)capi_uplo_len;
97497 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
97498 string trans = NULL((void*)0);
97499 int slen(trans)capi_trans_len;
97500 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
97501 string diag = NULL((void*)0);
97502 int slen(diag)capi_diag_len;
97503 PyObject *diag_capi = Py_None(&_Py_NoneStruct);
97504 int m = 0;
97505 int n = 0;
97506 int nt = 0;
97507 complex_float alpha;
97508 PyObject *alpha_capi = Py_None(&_Py_NoneStruct);
97509 complex_float *a = NULL((void*)0);
97510 npy_intp a_Dims[1] = {-1};
97511 const int a_Rank = 1;
97512 PyArrayObject *capi_a_tmp = NULL((void*)0);
97513 int capi_a_intent = 0;
97514 PyObject *a_capi = Py_None(&_Py_NoneStruct);
97515 complex_float *b = NULL((void*)0);
97516 npy_intp b_Dims[2] = {-1, -1};
97517 const int b_Rank = 2;
97518 PyArrayObject *capi_b_tmp = NULL((void*)0);
97519 int capi_b_intent = 0;
97520 int capi_overwrite_b = 0;
97521 PyObject *b_capi = Py_None(&_Py_NoneStruct);
97522 int ldb = 0;
97523 static char *capi_kwlist[] = {"alpha","a","b","transr","side","uplo","trans","diag","overwrite_b",NULL((void*)0)};
97524
97525/*routdebugenter*/
97526#ifdef F2PY_REPORT_ATEXIT
97527f2py_start_clock();
97528#endif
97529 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
97530 "OOO|OOOOOi:_flapack.ctfsm",\
97531 capi_kwlist,&alpha_capi,&a_capi,&b_capi,&transr_capi,&side_capi,&uplo_capi,&trans_capi,&diag_capi,&capi_overwrite_b))
97532 return NULL((void*)0);
97533/*frompyobj*/
97534 /* Processing variable side */
97535 slen(side)capi_side_len = 1;
97536 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 2nd keyword `side' of _flapack.ctfsm to C string");
97537 if (f2py_success) {
97538 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","2nd keyword side","ctfsm:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctfsm:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""2nd keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
97539 /* Processing variable uplo */
97540 slen(uplo)capi_uplo_len = 1;
97541 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.ctfsm to C string");
97542 if (f2py_success) {
97543 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","ctfsm:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctfsm:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
97544 /* Processing variable alpha */
97545 f2py_success = complex_float_from_pyobj(&alpha,alpha_capi,"_flapack.ctfsm() 1st argument (alpha) can't be converted to complex_float");
97546 if (f2py_success) {
97547 /* Processing variable a */
97548 ;
97549 capi_a_intent |= F2PY_INTENT_IN1;
97550 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
97551 if (capi_a_tmp == NULL((void*)0)) {
97552 if (!PyErr_Occurred())
97553 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.ctfsm to C/Fortran array" );
97554 } else {
97555 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
97556
97557 /* Processing variable b */
97558 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
97559 ;
97560 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
97561 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
97562 if (capi_b_tmp == NULL((void*)0)) {
97563 if (!PyErr_Occurred())
97564 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.ctfsm to C/Fortran array" );
97565 } else {
97566 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
97567
97568 /* Processing variable m */
97569 m = shape(b,0)b_Dims[0];
97570 /* Processing variable n */
97571 n = shape(b,1)b_Dims[1];
97572 /* Processing variable nt */
97573 nt = shape(a,0)a_Dims[0];
97574 CHECKSCALAR(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2),"*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2)","hidden nt","ctfsm:nt=%d",nt)if (!(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2))) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ctfsm:nt=%d", "(""*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2)"
") failed for ""hidden nt", nt); PyErr_SetString(_flapack_error
,errstring); } else
{
97575 /* Processing variable ldb */
97576 ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1));
97577 /* Processing variable transr */
97578 slen(transr)capi_transr_len = 1;
97579 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ctfsm to C string");
97580 if (f2py_success) {
97581 CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","ctfsm:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctfsm:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
97582 /* Processing variable trans */
97583 slen(trans)capi_trans_len = 1;
97584 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 4th keyword `trans' of _flapack.ctfsm to C string");
97585 if (f2py_success) {
97586 CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","4th keyword trans","ctfsm:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctfsm:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'"
") failed for ""4th keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
97587 /* Processing variable diag */
97588 slen(diag)capi_diag_len = 1;
97589 f2py_success = string_from_pyobj(&diag,&slen(diag)capi_diag_len,"N",diag_capi,"string_from_pyobj failed in converting 5th keyword `diag' of _flapack.ctfsm to C string");
97590 if (f2py_success) {
97591 CHECKSTRING(*diag=='U'||*diag=='N',"*diag=='U'||*diag=='N'","5th keyword diag","ctfsm:slen(diag)=%d diag=\"%s\"",diag)if (!(*diag=='U'||*diag=='N')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctfsm:slen(diag)=%d diag=\"%s\"", "(""*diag=='U'||*diag=='N'"
") failed for ""5th keyword diag", capi_diag_len, diag); PyErr_SetString
(_flapack_error, errstring); } else
{
97592/*end of frompyobj*/
97593#ifdef F2PY_REPORT_ATEXIT
97594f2py_start_call_clock();
97595#endif
97596/*callfortranroutine*/
97597 (*f2py_func)(transr,side,uplo,trans,diag,&m,&n,&alpha,a,b,&ldb) ;
97598 /*(*f2py_func)(transr,side,uplo,trans,diag,&m,&n,&nt,&alpha,a,b,&ldb,slen(transr),slen(side),slen(uplo),slen(trans),slen(diag));*/
97599if (PyErr_Occurred())
97600 f2py_success = 0;
97601#ifdef F2PY_REPORT_ATEXIT
97602f2py_stop_call_clock();
97603#endif
97604/*end of callfortranroutine*/
97605 if (f2py_success) {
97606/*pyobjfrom*/
97607/*end of pyobjfrom*/
97608 CFUNCSMESS("Building return value.\n");
97609 capi_buildvalue = Py_BuildValue("N",capi_b_tmp);
97610/*closepyobjfrom*/
97611/*end of closepyobjfrom*/
97612 } /*if (f2py_success) after callfortranroutine*/
97613/*cleanupfrompyobj*/
97614 } /*CHECKSTRING(*diag=='U'||*diag=='N')*/
97615 STRINGFREE(diag)do {if (!(diag == ((void*)0))) free(diag);} while (0);
97616 } /*if (f2py_success) of diag*/
97617 /* End of cleaning variable diag */
97618 } /*CHECKSTRING(*trans=='N'||*trans=='C')*/
97619 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
97620 } /*if (f2py_success) of trans*/
97621 /* End of cleaning variable trans */
97622 } /*CHECKSTRING(*transr=='N'||*transr=='C')*/
97623 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
97624 } /*if (f2py_success) of transr*/
97625 /* End of cleaning variable transr */
97626 /* End of cleaning variable ldb */
97627 } /*CHECKSCALAR(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2))*/
97628 /* End of cleaning variable nt */
97629 /* End of cleaning variable n */
97630 /* End of cleaning variable m */
97631 } /*if (capi_b_tmp == NULL) ... else of b*/
97632 /* End of cleaning variable b */
97633 if((PyObject *)capi_a_tmp!=a_capi) {
97634 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
97635 } /*if (capi_a_tmp == NULL) ... else of a*/
97636 /* End of cleaning variable a */
97637 } /*if (f2py_success) of alpha frompyobj*/
97638 /* End of cleaning variable alpha */
97639 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
97640 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
97641 } /*if (f2py_success) of uplo*/
97642 /* End of cleaning variable uplo */
97643 } /*CHECKSTRING(*side=='L'||*side=='R')*/
97644 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
97645 } /*if (f2py_success) of side*/
97646 /* End of cleaning variable side */
97647/*end of cleanupfrompyobj*/
97648 if (capi_buildvalue == NULL((void*)0)) {
97649/*routdebugfailure*/
97650 } else {
97651/*routdebugleave*/
97652 }
97653 CFUNCSMESS("Freeing memory.\n");
97654/*freemem*/
97655#ifdef F2PY_REPORT_ATEXIT
97656f2py_stop_clock();
97657#endif
97658 return capi_buildvalue;
97659}
97660/******************************** end of ctfsm ********************************/
97661
97662/*********************************** ztfsm ***********************************/
97663static char doc_f2py_rout__flapack_ztfsm[] = "\
97664x = ztfsm(alpha,a,b,[transr,side,uplo,trans,diag,overwrite_b])\n\nWrapper for ``ztfsm``.\
97665\n\nParameters\n----------\n"
97666"alpha : input complex\n"
97667"a : input rank-1 array('D') with bounds (nt)\n"
97668"b : input rank-2 array('D') with bounds (m,n)\n"
97669"\nOther Parameters\n----------------\n"
97670"transr : input string(len=1), optional\n Default: 'N'\n"
97671"side : input string(len=1), optional\n Default: 'L'\n"
97672"uplo : input string(len=1), optional\n Default: 'U'\n"
97673"trans : input string(len=1), optional\n Default: 'N'\n"
97674"diag : input string(len=1), optional\n Default: 'N'\n"
97675"overwrite_b : input int, optional\n Default: 0\n"
97676"\nReturns\n-------\n"
97677"x : rank-2 array('D') with bounds (m,n) and b storage";
97678/* extern void F_FUNC(ztfsm,ZTFSM)(char*,char*,char*,char*,char*,F_INT*,F_INT*,complex_double*,complex_double*,complex_double*,F_INT* ); */
97679static PyObject *f2py_rout__flapack_ztfsm(const PyObject *capi_self,
97680 PyObject *capi_args,
97681 PyObject *capi_keywds,
97682 void (*f2py_func)(char*,char*,char*,char*,char*,F_INTint*,F_INTint*,complex_double*,complex_double*,complex_double*,F_INTint* )) {
97683 PyObject * volatile capi_buildvalue = NULL((void*)0);
97684 volatile int f2py_success = 1;
97685/*decl*/
97686
97687 string transr = NULL((void*)0);
97688 int slen(transr)capi_transr_len;
97689 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
97690 string side = NULL((void*)0);
97691 int slen(side)capi_side_len;
97692 PyObject *side_capi = Py_None(&_Py_NoneStruct);
97693 string uplo = NULL((void*)0);
97694 int slen(uplo)capi_uplo_len;
97695 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
97696 string trans = NULL((void*)0);
97697 int slen(trans)capi_trans_len;
97698 PyObject *trans_capi = Py_None(&_Py_NoneStruct);
97699 string diag = NULL((void*)0);
97700 int slen(diag)capi_diag_len;
97701 PyObject *diag_capi = Py_None(&_Py_NoneStruct);
97702 int m = 0;
97703 int n = 0;
97704 int nt = 0;
97705 complex_double alpha;
97706 PyObject *alpha_capi = Py_None(&_Py_NoneStruct);
97707 complex_double *a = NULL((void*)0);
97708 npy_intp a_Dims[1] = {-1};
97709 const int a_Rank = 1;
97710 PyArrayObject *capi_a_tmp = NULL((void*)0);
97711 int capi_a_intent = 0;
97712 PyObject *a_capi = Py_None(&_Py_NoneStruct);
97713 complex_double *b = NULL((void*)0);
97714 npy_intp b_Dims[2] = {-1, -1};
97715 const int b_Rank = 2;
97716 PyArrayObject *capi_b_tmp = NULL((void*)0);
97717 int capi_b_intent = 0;
97718 int capi_overwrite_b = 0;
97719 PyObject *b_capi = Py_None(&_Py_NoneStruct);
97720 int ldb = 0;
97721 static char *capi_kwlist[] = {"alpha","a","b","transr","side","uplo","trans","diag","overwrite_b",NULL((void*)0)};
97722
97723/*routdebugenter*/
97724#ifdef F2PY_REPORT_ATEXIT
97725f2py_start_clock();
97726#endif
97727 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
97728 "OOO|OOOOOi:_flapack.ztfsm",\
97729 capi_kwlist,&alpha_capi,&a_capi,&b_capi,&transr_capi,&side_capi,&uplo_capi,&trans_capi,&diag_capi,&capi_overwrite_b))
97730 return NULL((void*)0);
97731/*frompyobj*/
97732 /* Processing variable side */
97733 slen(side)capi_side_len = 1;
97734 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 2nd keyword `side' of _flapack.ztfsm to C string");
97735 if (f2py_success) {
97736 CHECKSTRING(*side=='L'||*side=='R',"*side=='L'||*side=='R'","2nd keyword side","ztfsm:slen(side)=%d side=\"%s\"",side)if (!(*side=='L'||*side=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztfsm:slen(side)=%d side=\"%s\"", "(""*side=='L'||*side=='R'"
") failed for ""2nd keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
97737 /* Processing variable uplo */
97738 slen(uplo)capi_uplo_len = 1;
97739 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 3rd keyword `uplo' of _flapack.ztfsm to C string");
97740 if (f2py_success) {
97741 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","3rd keyword uplo","ztfsm:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztfsm:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""3rd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
97742 /* Processing variable alpha */
97743 f2py_success = complex_double_from_pyobj(&alpha,alpha_capi,"_flapack.ztfsm() 1st argument (alpha) can't be converted to complex_double");
97744 if (f2py_success) {
97745 /* Processing variable a */
97746 ;
97747 capi_a_intent |= F2PY_INTENT_IN1;
97748 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
97749 if (capi_a_tmp == NULL((void*)0)) {
97750 if (!PyErr_Occurred())
97751 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.ztfsm to C/Fortran array" );
97752 } else {
97753 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
97754
97755 /* Processing variable b */
97756 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
97757 ;
97758 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
97759 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
97760 if (capi_b_tmp == NULL((void*)0)) {
97761 if (!PyErr_Occurred())
97762 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.ztfsm to C/Fortran array" );
97763 } else {
97764 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
97765
97766 /* Processing variable m */
97767 m = shape(b,0)b_Dims[0];
97768 /* Processing variable n */
97769 n = shape(b,1)b_Dims[1];
97770 /* Processing variable nt */
97771 nt = shape(a,0)a_Dims[0];
97772 CHECKSCALAR(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2),"*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2)","hidden nt","ztfsm:nt=%d",nt)if (!(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2))) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""ztfsm:nt=%d", "(""*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2)"
") failed for ""hidden nt", nt); PyErr_SetString(_flapack_error
,errstring); } else
{
97773 /* Processing variable ldb */
97774 ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1));
97775 /* Processing variable transr */
97776 slen(transr)capi_transr_len = 1;
97777 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.ztfsm to C string");
97778 if (f2py_success) {
97779 CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","ztfsm:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztfsm:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
97780 /* Processing variable trans */
97781 slen(trans)capi_trans_len = 1;
97782 f2py_success = string_from_pyobj(&trans,&slen(trans)capi_trans_len,"N",trans_capi,"string_from_pyobj failed in converting 4th keyword `trans' of _flapack.ztfsm to C string");
97783 if (f2py_success) {
97784 CHECKSTRING(*trans=='N'||*trans=='C',"*trans=='N'||*trans=='C'","4th keyword trans","ztfsm:slen(trans)=%d trans=\"%s\"",trans)if (!(*trans=='N'||*trans=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztfsm:slen(trans)=%d trans=\"%s\"", "(""*trans=='N'||*trans=='C'"
") failed for ""4th keyword trans", capi_trans_len, trans); PyErr_SetString
(_flapack_error, errstring); } else
{
97785 /* Processing variable diag */
97786 slen(diag)capi_diag_len = 1;
97787 f2py_success = string_from_pyobj(&diag,&slen(diag)capi_diag_len,"N",diag_capi,"string_from_pyobj failed in converting 5th keyword `diag' of _flapack.ztfsm to C string");
97788 if (f2py_success) {
97789 CHECKSTRING(*diag=='U'||*diag=='N',"*diag=='U'||*diag=='N'","5th keyword diag","ztfsm:slen(diag)=%d diag=\"%s\"",diag)if (!(*diag=='U'||*diag=='N')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztfsm:slen(diag)=%d diag=\"%s\"", "(""*diag=='U'||*diag=='N'"
") failed for ""5th keyword diag", capi_diag_len, diag); PyErr_SetString
(_flapack_error, errstring); } else
{
97790/*end of frompyobj*/
97791#ifdef F2PY_REPORT_ATEXIT
97792f2py_start_call_clock();
97793#endif
97794/*callfortranroutine*/
97795 (*f2py_func)(transr,side,uplo,trans,diag,&m,&n,&alpha,a,b,&ldb) ;
97796 /*(*f2py_func)(transr,side,uplo,trans,diag,&m,&n,&nt,&alpha,a,b,&ldb,slen(transr),slen(side),slen(uplo),slen(trans),slen(diag));*/
97797if (PyErr_Occurred())
97798 f2py_success = 0;
97799#ifdef F2PY_REPORT_ATEXIT
97800f2py_stop_call_clock();
97801#endif
97802/*end of callfortranroutine*/
97803 if (f2py_success) {
97804/*pyobjfrom*/
97805/*end of pyobjfrom*/
97806 CFUNCSMESS("Building return value.\n");
97807 capi_buildvalue = Py_BuildValue("N",capi_b_tmp);
97808/*closepyobjfrom*/
97809/*end of closepyobjfrom*/
97810 } /*if (f2py_success) after callfortranroutine*/
97811/*cleanupfrompyobj*/
97812 } /*CHECKSTRING(*diag=='U'||*diag=='N')*/
97813 STRINGFREE(diag)do {if (!(diag == ((void*)0))) free(diag);} while (0);
97814 } /*if (f2py_success) of diag*/
97815 /* End of cleaning variable diag */
97816 } /*CHECKSTRING(*trans=='N'||*trans=='C')*/
97817 STRINGFREE(trans)do {if (!(trans == ((void*)0))) free(trans);} while (0);
97818 } /*if (f2py_success) of trans*/
97819 /* End of cleaning variable trans */
97820 } /*CHECKSTRING(*transr=='N'||*transr=='C')*/
97821 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
97822 } /*if (f2py_success) of transr*/
97823 /* End of cleaning variable transr */
97824 /* End of cleaning variable ldb */
97825 } /*CHECKSCALAR(*side=='L'?nt==(m*(m+1)/2):nt==(n*(n+1)/2))*/
97826 /* End of cleaning variable nt */
97827 /* End of cleaning variable n */
97828 /* End of cleaning variable m */
97829 } /*if (capi_b_tmp == NULL) ... else of b*/
97830 /* End of cleaning variable b */
97831 if((PyObject *)capi_a_tmp!=a_capi) {
97832 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
97833 } /*if (capi_a_tmp == NULL) ... else of a*/
97834 /* End of cleaning variable a */
97835 } /*if (f2py_success) of alpha frompyobj*/
97836 /* End of cleaning variable alpha */
97837 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
97838 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
97839 } /*if (f2py_success) of uplo*/
97840 /* End of cleaning variable uplo */
97841 } /*CHECKSTRING(*side=='L'||*side=='R')*/
97842 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
97843 } /*if (f2py_success) of side*/
97844 /* End of cleaning variable side */
97845/*end of cleanupfrompyobj*/
97846 if (capi_buildvalue == NULL((void*)0)) {
97847/*routdebugfailure*/
97848 } else {
97849/*routdebugleave*/
97850 }
97851 CFUNCSMESS("Freeing memory.\n");
97852/*freemem*/
97853#ifdef F2PY_REPORT_ATEXIT
97854f2py_stop_clock();
97855#endif
97856 return capi_buildvalue;
97857}
97858/******************************** end of ztfsm ********************************/
97859
97860/*********************************** spftrf ***********************************/
97861static char doc_f2py_rout__flapack_spftrf[] = "\
97862achol,info = spftrf(n,a,[transr,uplo,overwrite_a])\n\nWrapper for ``spftrf``.\
97863\n\nParameters\n----------\n"
97864"n : input int\n"
97865"a : input rank-1 array('f') with bounds (nt)\n"
97866"\nOther Parameters\n----------------\n"
97867"transr : input string(len=1), optional\n Default: 'N'\n"
97868"uplo : input string(len=1), optional\n Default: 'U'\n"
97869"overwrite_a : input int, optional\n Default: 0\n"
97870"\nReturns\n-------\n"
97871"achol : rank-1 array('f') with bounds (nt) and a storage\n"
97872"info : int";
97873/* extern void F_FUNC(spftrf,SPFTRF)(char*,char*,F_INT*,float*,F_INT* ); */
97874static PyObject *f2py_rout__flapack_spftrf(const PyObject *capi_self,
97875 PyObject *capi_args,
97876 PyObject *capi_keywds,
97877 void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint* )) {
97878 PyObject * volatile capi_buildvalue = NULL((void*)0);
97879 volatile int f2py_success = 1;
97880/*decl*/
97881
97882 string transr = NULL((void*)0);
97883 int slen(transr)capi_transr_len;
97884 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
97885 string uplo = NULL((void*)0);
97886 int slen(uplo)capi_uplo_len;
97887 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
97888 int n = 0;
97889 PyObject *n_capi = Py_None(&_Py_NoneStruct);
97890 int nt = 0;
97891 float *a = NULL((void*)0);
97892 npy_intp a_Dims[1] = {-1};
97893 const int a_Rank = 1;
97894 PyArrayObject *capi_a_tmp = NULL((void*)0);
97895 int capi_a_intent = 0;
97896 int capi_overwrite_a = 0;
97897 PyObject *a_capi = Py_None(&_Py_NoneStruct);
97898 int info = 0;
97899 static char *capi_kwlist[] = {"n","a","transr","uplo","overwrite_a",NULL((void*)0)};
97900
97901/*routdebugenter*/
97902#ifdef F2PY_REPORT_ATEXIT
97903f2py_start_clock();
97904#endif
97905 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
97906 "OO|OOi:_flapack.spftrf",\
97907 capi_kwlist,&n_capi,&a_capi,&transr_capi,&uplo_capi,&capi_overwrite_a))
97908 return NULL((void*)0);
97909/*frompyobj*/
97910 /* Processing variable uplo */
97911 slen(uplo)capi_uplo_len = 1;
97912 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.spftrf to C string");
97913 if (f2py_success) {
97914 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","spftrf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spftrf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
97915 /* Processing variable n */
97916 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.spftrf() 1st argument (n) can't be converted to int");
97917 if (f2py_success) {
97918 CHECKSCALAR(n>=0,"n>=0","1st argument n","spftrf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spftrf:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
97919 /* Processing variable a */
97920 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
97921 ;
97922 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
97923 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
97924 if (capi_a_tmp == NULL((void*)0)) {
97925 if (!PyErr_Occurred())
97926 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.spftrf to C/Fortran array" );
97927 } else {
97928 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
97929
97930 /* Processing variable info */
97931 /* Processing variable transr */
97932 slen(transr)capi_transr_len = 1;
97933 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.spftrf to C string");
97934 if (f2py_success) {
97935 CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","spftrf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spftrf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
97936 /* Processing variable nt */
97937 nt = shape(a,0)a_Dims[0];
97938 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","spftrf:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spftrf:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
97939/*end of frompyobj*/
97940#ifdef F2PY_REPORT_ATEXIT
97941f2py_start_call_clock();
97942#endif
97943/*callfortranroutine*/
97944 (*f2py_func)(transr,uplo,&n,a,&info) ;
97945 /*(*f2py_func)(transr,uplo,&n,&nt,a,&info,slen(transr),slen(uplo));*/
97946if (PyErr_Occurred())
97947 f2py_success = 0;
97948#ifdef F2PY_REPORT_ATEXIT
97949f2py_stop_call_clock();
97950#endif
97951/*end of callfortranroutine*/
97952 if (f2py_success) {
97953/*pyobjfrom*/
97954/*end of pyobjfrom*/
97955 CFUNCSMESS("Building return value.\n");
97956 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
97957/*closepyobjfrom*/
97958/*end of closepyobjfrom*/
97959 } /*if (f2py_success) after callfortranroutine*/
97960/*cleanupfrompyobj*/
97961 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
97962 /* End of cleaning variable nt */
97963 } /*CHECKSTRING(*transr=='N'||*transr=='T')*/
97964 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
97965 } /*if (f2py_success) of transr*/
97966 /* End of cleaning variable transr */
97967 /* End of cleaning variable info */
97968 } /*if (capi_a_tmp == NULL) ... else of a*/
97969 /* End of cleaning variable a */
97970 } /*CHECKSCALAR(n>=0)*/
97971 } /*if (f2py_success) of n*/
97972 /* End of cleaning variable n */
97973 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
97974 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
97975 } /*if (f2py_success) of uplo*/
97976 /* End of cleaning variable uplo */
97977/*end of cleanupfrompyobj*/
97978 if (capi_buildvalue == NULL((void*)0)) {
97979/*routdebugfailure*/
97980 } else {
97981/*routdebugleave*/
97982 }
97983 CFUNCSMESS("Freeing memory.\n");
97984/*freemem*/
97985#ifdef F2PY_REPORT_ATEXIT
97986f2py_stop_clock();
97987#endif
97988 return capi_buildvalue;
97989}
97990/******************************* end of spftrf *******************************/
97991
97992/*********************************** dpftrf ***********************************/
97993static char doc_f2py_rout__flapack_dpftrf[] = "\
97994achol,info = dpftrf(n,a,[transr,uplo,overwrite_a])\n\nWrapper for ``dpftrf``.\
97995\n\nParameters\n----------\n"
97996"n : input int\n"
97997"a : input rank-1 array('d') with bounds (nt)\n"
97998"\nOther Parameters\n----------------\n"
97999"transr : input string(len=1), optional\n Default: 'N'\n"
98000"uplo : input string(len=1), optional\n Default: 'U'\n"
98001"overwrite_a : input int, optional\n Default: 0\n"
98002"\nReturns\n-------\n"
98003"achol : rank-1 array('d') with bounds (nt) and a storage\n"
98004"info : int";
98005/* extern void F_FUNC(dpftrf,DPFTRF)(char*,char*,F_INT*,double*,F_INT* ); */
98006static PyObject *f2py_rout__flapack_dpftrf(const PyObject *capi_self,
98007 PyObject *capi_args,
98008 PyObject *capi_keywds,
98009 void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint* )) {
98010 PyObject * volatile capi_buildvalue = NULL((void*)0);
98011 volatile int f2py_success = 1;
98012/*decl*/
98013
98014 string transr = NULL((void*)0);
98015 int slen(transr)capi_transr_len;
98016 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
98017 string uplo = NULL((void*)0);
98018 int slen(uplo)capi_uplo_len;
98019 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
98020 int n = 0;
98021 PyObject *n_capi = Py_None(&_Py_NoneStruct);
98022 int nt = 0;
98023 double *a = NULL((void*)0);
98024 npy_intp a_Dims[1] = {-1};
98025 const int a_Rank = 1;
98026 PyArrayObject *capi_a_tmp = NULL((void*)0);
98027 int capi_a_intent = 0;
98028 int capi_overwrite_a = 0;
98029 PyObject *a_capi = Py_None(&_Py_NoneStruct);
98030 int info = 0;
98031 static char *capi_kwlist[] = {"n","a","transr","uplo","overwrite_a",NULL((void*)0)};
98032
98033/*routdebugenter*/
98034#ifdef F2PY_REPORT_ATEXIT
98035f2py_start_clock();
98036#endif
98037 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
98038 "OO|OOi:_flapack.dpftrf",\
98039 capi_kwlist,&n_capi,&a_capi,&transr_capi,&uplo_capi,&capi_overwrite_a))
98040 return NULL((void*)0);
98041/*frompyobj*/
98042 /* Processing variable uplo */
98043 slen(uplo)capi_uplo_len = 1;
98044 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.dpftrf to C string");
98045 if (f2py_success) {
98046 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","dpftrf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpftrf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
98047 /* Processing variable n */
98048 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dpftrf() 1st argument (n) can't be converted to int");
98049 if (f2py_success) {
98050 CHECKSCALAR(n>=0,"n>=0","1st argument n","dpftrf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpftrf:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
98051 /* Processing variable a */
98052 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
98053 ;
98054 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
98055 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
98056 if (capi_a_tmp == NULL((void*)0)) {
98057 if (!PyErr_Occurred())
98058 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.dpftrf to C/Fortran array" );
98059 } else {
98060 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
98061
98062 /* Processing variable info */
98063 /* Processing variable transr */
98064 slen(transr)capi_transr_len = 1;
98065 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.dpftrf to C string");
98066 if (f2py_success) {
98067 CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","dpftrf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpftrf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
98068 /* Processing variable nt */
98069 nt = shape(a,0)a_Dims[0];
98070 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","dpftrf:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpftrf:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
98071/*end of frompyobj*/
98072#ifdef F2PY_REPORT_ATEXIT
98073f2py_start_call_clock();
98074#endif
98075/*callfortranroutine*/
98076 (*f2py_func)(transr,uplo,&n,a,&info) ;
98077 /*(*f2py_func)(transr,uplo,&n,&nt,a,&info,slen(transr),slen(uplo));*/
98078if (PyErr_Occurred())
98079 f2py_success = 0;
98080#ifdef F2PY_REPORT_ATEXIT
98081f2py_stop_call_clock();
98082#endif
98083/*end of callfortranroutine*/
98084 if (f2py_success) {
98085/*pyobjfrom*/
98086/*end of pyobjfrom*/
98087 CFUNCSMESS("Building return value.\n");
98088 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
98089/*closepyobjfrom*/
98090/*end of closepyobjfrom*/
98091 } /*if (f2py_success) after callfortranroutine*/
98092/*cleanupfrompyobj*/
98093 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
98094 /* End of cleaning variable nt */
98095 } /*CHECKSTRING(*transr=='N'||*transr=='T')*/
98096 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
98097 } /*if (f2py_success) of transr*/
98098 /* End of cleaning variable transr */
98099 /* End of cleaning variable info */
98100 } /*if (capi_a_tmp == NULL) ... else of a*/
98101 /* End of cleaning variable a */
98102 } /*CHECKSCALAR(n>=0)*/
98103 } /*if (f2py_success) of n*/
98104 /* End of cleaning variable n */
98105 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
98106 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
98107 } /*if (f2py_success) of uplo*/
98108 /* End of cleaning variable uplo */
98109/*end of cleanupfrompyobj*/
98110 if (capi_buildvalue == NULL((void*)0)) {
98111/*routdebugfailure*/
98112 } else {
98113/*routdebugleave*/
98114 }
98115 CFUNCSMESS("Freeing memory.\n");
98116/*freemem*/
98117#ifdef F2PY_REPORT_ATEXIT
98118f2py_stop_clock();
98119#endif
98120 return capi_buildvalue;
98121}
98122/******************************* end of dpftrf *******************************/
98123
98124/*********************************** cpftrf ***********************************/
98125static char doc_f2py_rout__flapack_cpftrf[] = "\
98126achol,info = cpftrf(n,a,[transr,uplo,overwrite_a])\n\nWrapper for ``cpftrf``.\
98127\n\nParameters\n----------\n"
98128"n : input int\n"
98129"a : input rank-1 array('F') with bounds (nt)\n"
98130"\nOther Parameters\n----------------\n"
98131"transr : input string(len=1), optional\n Default: 'N'\n"
98132"uplo : input string(len=1), optional\n Default: 'U'\n"
98133"overwrite_a : input int, optional\n Default: 0\n"
98134"\nReturns\n-------\n"
98135"achol : rank-1 array('F') with bounds (nt) and a storage\n"
98136"info : int";
98137/* extern void F_FUNC(cpftrf,CPFTRF)(char*,char*,F_INT*,complex_float*,F_INT* ); */
98138static PyObject *f2py_rout__flapack_cpftrf(const PyObject *capi_self,
98139 PyObject *capi_args,
98140 PyObject *capi_keywds,
98141 void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint* )) {
98142 PyObject * volatile capi_buildvalue = NULL((void*)0);
98143 volatile int f2py_success = 1;
98144/*decl*/
98145
98146 string transr = NULL((void*)0);
98147 int slen(transr)capi_transr_len;
98148 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
98149 string uplo = NULL((void*)0);
98150 int slen(uplo)capi_uplo_len;
98151 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
98152 int n = 0;
98153 PyObject *n_capi = Py_None(&_Py_NoneStruct);
98154 int nt = 0;
98155 complex_float *a = NULL((void*)0);
98156 npy_intp a_Dims[1] = {-1};
98157 const int a_Rank = 1;
98158 PyArrayObject *capi_a_tmp = NULL((void*)0);
98159 int capi_a_intent = 0;
98160 int capi_overwrite_a = 0;
98161 PyObject *a_capi = Py_None(&_Py_NoneStruct);
98162 int info = 0;
98163 static char *capi_kwlist[] = {"n","a","transr","uplo","overwrite_a",NULL((void*)0)};
98164
98165/*routdebugenter*/
98166#ifdef F2PY_REPORT_ATEXIT
98167f2py_start_clock();
98168#endif
98169 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
98170 "OO|OOi:_flapack.cpftrf",\
98171 capi_kwlist,&n_capi,&a_capi,&transr_capi,&uplo_capi,&capi_overwrite_a))
98172 return NULL((void*)0);
98173/*frompyobj*/
98174 /* Processing variable uplo */
98175 slen(uplo)capi_uplo_len = 1;
98176 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.cpftrf to C string");
98177 if (f2py_success) {
98178 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","cpftrf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpftrf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
98179 /* Processing variable n */
98180 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cpftrf() 1st argument (n) can't be converted to int");
98181 if (f2py_success) {
98182 CHECKSCALAR(n>=0,"n>=0","1st argument n","cpftrf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpftrf:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
98183 /* Processing variable a */
98184 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
98185 ;
98186 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
98187 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
98188 if (capi_a_tmp == NULL((void*)0)) {
98189 if (!PyErr_Occurred())
98190 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.cpftrf to C/Fortran array" );
98191 } else {
98192 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
98193
98194 /* Processing variable info */
98195 /* Processing variable transr */
98196 slen(transr)capi_transr_len = 1;
98197 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.cpftrf to C string");
98198 if (f2py_success) {
98199 CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","cpftrf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpftrf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
98200 /* Processing variable nt */
98201 nt = shape(a,0)a_Dims[0];
98202 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","cpftrf:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpftrf:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
98203/*end of frompyobj*/
98204#ifdef F2PY_REPORT_ATEXIT
98205f2py_start_call_clock();
98206#endif
98207/*callfortranroutine*/
98208 (*f2py_func)(transr,uplo,&n,a,&info) ;
98209 /*(*f2py_func)(transr,uplo,&n,&nt,a,&info,slen(transr),slen(uplo));*/
98210if (PyErr_Occurred())
98211 f2py_success = 0;
98212#ifdef F2PY_REPORT_ATEXIT
98213f2py_stop_call_clock();
98214#endif
98215/*end of callfortranroutine*/
98216 if (f2py_success) {
98217/*pyobjfrom*/
98218/*end of pyobjfrom*/
98219 CFUNCSMESS("Building return value.\n");
98220 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
98221/*closepyobjfrom*/
98222/*end of closepyobjfrom*/
98223 } /*if (f2py_success) after callfortranroutine*/
98224/*cleanupfrompyobj*/
98225 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
98226 /* End of cleaning variable nt */
98227 } /*CHECKSTRING(*transr=='N'||*transr=='C')*/
98228 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
98229 } /*if (f2py_success) of transr*/
98230 /* End of cleaning variable transr */
98231 /* End of cleaning variable info */
98232 } /*if (capi_a_tmp == NULL) ... else of a*/
98233 /* End of cleaning variable a */
98234 } /*CHECKSCALAR(n>=0)*/
98235 } /*if (f2py_success) of n*/
98236 /* End of cleaning variable n */
98237 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
98238 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
98239 } /*if (f2py_success) of uplo*/
98240 /* End of cleaning variable uplo */
98241/*end of cleanupfrompyobj*/
98242 if (capi_buildvalue == NULL((void*)0)) {
98243/*routdebugfailure*/
98244 } else {
98245/*routdebugleave*/
98246 }
98247 CFUNCSMESS("Freeing memory.\n");
98248/*freemem*/
98249#ifdef F2PY_REPORT_ATEXIT
98250f2py_stop_clock();
98251#endif
98252 return capi_buildvalue;
98253}
98254/******************************* end of cpftrf *******************************/
98255
98256/*********************************** zpftrf ***********************************/
98257static char doc_f2py_rout__flapack_zpftrf[] = "\
98258achol,info = zpftrf(n,a,[transr,uplo,overwrite_a])\n\nWrapper for ``zpftrf``.\
98259\n\nParameters\n----------\n"
98260"n : input int\n"
98261"a : input rank-1 array('D') with bounds (nt)\n"
98262"\nOther Parameters\n----------------\n"
98263"transr : input string(len=1), optional\n Default: 'N'\n"
98264"uplo : input string(len=1), optional\n Default: 'U'\n"
98265"overwrite_a : input int, optional\n Default: 0\n"
98266"\nReturns\n-------\n"
98267"achol : rank-1 array('D') with bounds (nt) and a storage\n"
98268"info : int";
98269/* extern void F_FUNC(zpftrf,ZPFTRF)(char*,char*,F_INT*,complex_double*,F_INT* ); */
98270static PyObject *f2py_rout__flapack_zpftrf(const PyObject *capi_self,
98271 PyObject *capi_args,
98272 PyObject *capi_keywds,
98273 void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint* )) {
98274 PyObject * volatile capi_buildvalue = NULL((void*)0);
98275 volatile int f2py_success = 1;
98276/*decl*/
98277
98278 string transr = NULL((void*)0);
98279 int slen(transr)capi_transr_len;
98280 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
98281 string uplo = NULL((void*)0);
98282 int slen(uplo)capi_uplo_len;
98283 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
98284 int n = 0;
98285 PyObject *n_capi = Py_None(&_Py_NoneStruct);
98286 int nt = 0;
98287 complex_double *a = NULL((void*)0);
98288 npy_intp a_Dims[1] = {-1};
98289 const int a_Rank = 1;
98290 PyArrayObject *capi_a_tmp = NULL((void*)0);
98291 int capi_a_intent = 0;
98292 int capi_overwrite_a = 0;
98293 PyObject *a_capi = Py_None(&_Py_NoneStruct);
98294 int info = 0;
98295 static char *capi_kwlist[] = {"n","a","transr","uplo","overwrite_a",NULL((void*)0)};
98296
98297/*routdebugenter*/
98298#ifdef F2PY_REPORT_ATEXIT
98299f2py_start_clock();
98300#endif
98301 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
98302 "OO|OOi:_flapack.zpftrf",\
98303 capi_kwlist,&n_capi,&a_capi,&transr_capi,&uplo_capi,&capi_overwrite_a))
98304 return NULL((void*)0);
98305/*frompyobj*/
98306 /* Processing variable uplo */
98307 slen(uplo)capi_uplo_len = 1;
98308 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.zpftrf to C string");
98309 if (f2py_success) {
98310 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","zpftrf:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpftrf:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
98311 /* Processing variable n */
98312 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zpftrf() 1st argument (n) can't be converted to int");
98313 if (f2py_success) {
98314 CHECKSCALAR(n>=0,"n>=0","1st argument n","zpftrf:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpftrf:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
98315 /* Processing variable a */
98316 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
98317 ;
98318 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
98319 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
98320 if (capi_a_tmp == NULL((void*)0)) {
98321 if (!PyErr_Occurred())
98322 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.zpftrf to C/Fortran array" );
98323 } else {
98324 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
98325
98326 /* Processing variable info */
98327 /* Processing variable transr */
98328 slen(transr)capi_transr_len = 1;
98329 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.zpftrf to C string");
98330 if (f2py_success) {
98331 CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","zpftrf:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpftrf:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
98332 /* Processing variable nt */
98333 nt = shape(a,0)a_Dims[0];
98334 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","zpftrf:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpftrf:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
98335/*end of frompyobj*/
98336#ifdef F2PY_REPORT_ATEXIT
98337f2py_start_call_clock();
98338#endif
98339/*callfortranroutine*/
98340 (*f2py_func)(transr,uplo,&n,a,&info) ;
98341 /*(*f2py_func)(transr,uplo,&n,&nt,a,&info,slen(transr),slen(uplo));*/
98342if (PyErr_Occurred())
98343 f2py_success = 0;
98344#ifdef F2PY_REPORT_ATEXIT
98345f2py_stop_call_clock();
98346#endif
98347/*end of callfortranroutine*/
98348 if (f2py_success) {
98349/*pyobjfrom*/
98350/*end of pyobjfrom*/
98351 CFUNCSMESS("Building return value.\n");
98352 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
98353/*closepyobjfrom*/
98354/*end of closepyobjfrom*/
98355 } /*if (f2py_success) after callfortranroutine*/
98356/*cleanupfrompyobj*/
98357 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
98358 /* End of cleaning variable nt */
98359 } /*CHECKSTRING(*transr=='N'||*transr=='C')*/
98360 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
98361 } /*if (f2py_success) of transr*/
98362 /* End of cleaning variable transr */
98363 /* End of cleaning variable info */
98364 } /*if (capi_a_tmp == NULL) ... else of a*/
98365 /* End of cleaning variable a */
98366 } /*CHECKSCALAR(n>=0)*/
98367 } /*if (f2py_success) of n*/
98368 /* End of cleaning variable n */
98369 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
98370 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
98371 } /*if (f2py_success) of uplo*/
98372 /* End of cleaning variable uplo */
98373/*end of cleanupfrompyobj*/
98374 if (capi_buildvalue == NULL((void*)0)) {
98375/*routdebugfailure*/
98376 } else {
98377/*routdebugleave*/
98378 }
98379 CFUNCSMESS("Freeing memory.\n");
98380/*freemem*/
98381#ifdef F2PY_REPORT_ATEXIT
98382f2py_stop_clock();
98383#endif
98384 return capi_buildvalue;
98385}
98386/******************************* end of zpftrf *******************************/
98387
98388/*********************************** spftri ***********************************/
98389static char doc_f2py_rout__flapack_spftri[] = "\
98390ainv,info = spftri(n,a,[transr,uplo,overwrite_a])\n\nWrapper for ``spftri``.\
98391\n\nParameters\n----------\n"
98392"n : input int\n"
98393"a : input rank-1 array('f') with bounds (nt)\n"
98394"\nOther Parameters\n----------------\n"
98395"transr : input string(len=1), optional\n Default: 'N'\n"
98396"uplo : input string(len=1), optional\n Default: 'U'\n"
98397"overwrite_a : input int, optional\n Default: 0\n"
98398"\nReturns\n-------\n"
98399"ainv : rank-1 array('f') with bounds (nt) and a storage\n"
98400"info : int";
98401/* extern void F_FUNC(spftri,SPFTRI)(char*,char*,F_INT*,float*,F_INT* ); */
98402static PyObject *f2py_rout__flapack_spftri(const PyObject *capi_self,
98403 PyObject *capi_args,
98404 PyObject *capi_keywds,
98405 void (*f2py_func)(char*,char*,F_INTint*,float*,F_INTint* )) {
98406 PyObject * volatile capi_buildvalue = NULL((void*)0);
98407 volatile int f2py_success = 1;
98408/*decl*/
98409
98410 string transr = NULL((void*)0);
98411 int slen(transr)capi_transr_len;
98412 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
98413 string uplo = NULL((void*)0);
98414 int slen(uplo)capi_uplo_len;
98415 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
98416 int n = 0;
98417 PyObject *n_capi = Py_None(&_Py_NoneStruct);
98418 int nt = 0;
98419 float *a = NULL((void*)0);
98420 npy_intp a_Dims[1] = {-1};
98421 const int a_Rank = 1;
98422 PyArrayObject *capi_a_tmp = NULL((void*)0);
98423 int capi_a_intent = 0;
98424 int capi_overwrite_a = 0;
98425 PyObject *a_capi = Py_None(&_Py_NoneStruct);
98426 int info = 0;
98427 static char *capi_kwlist[] = {"n","a","transr","uplo","overwrite_a",NULL((void*)0)};
98428
98429/*routdebugenter*/
98430#ifdef F2PY_REPORT_ATEXIT
98431f2py_start_clock();
98432#endif
98433 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
98434 "OO|OOi:_flapack.spftri",\
98435 capi_kwlist,&n_capi,&a_capi,&transr_capi,&uplo_capi,&capi_overwrite_a))
98436 return NULL((void*)0);
98437/*frompyobj*/
98438 /* Processing variable uplo */
98439 slen(uplo)capi_uplo_len = 1;
98440 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.spftri to C string");
98441 if (f2py_success) {
98442 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","spftri:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spftri:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
98443 /* Processing variable n */
98444 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.spftri() 1st argument (n) can't be converted to int");
98445 if (f2py_success) {
98446 CHECKSCALAR(n>=0,"n>=0","1st argument n","spftri:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spftri:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
98447 /* Processing variable a */
98448 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
98449 ;
98450 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
98451 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
98452 if (capi_a_tmp == NULL((void*)0)) {
98453 if (!PyErr_Occurred())
98454 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.spftri to C/Fortran array" );
98455 } else {
98456 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
98457
98458 /* Processing variable info */
98459 /* Processing variable transr */
98460 slen(transr)capi_transr_len = 1;
98461 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.spftri to C string");
98462 if (f2py_success) {
98463 CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","spftri:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spftri:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
98464 /* Processing variable nt */
98465 nt = shape(a,0)a_Dims[0];
98466 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","spftri:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spftri:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
98467/*end of frompyobj*/
98468#ifdef F2PY_REPORT_ATEXIT
98469f2py_start_call_clock();
98470#endif
98471/*callfortranroutine*/
98472 (*f2py_func)(transr,uplo,&n,a,&info) ;
98473 /*(*f2py_func)(transr,uplo,&n,&nt,a,&info,slen(transr),slen(uplo));*/
98474if (PyErr_Occurred())
98475 f2py_success = 0;
98476#ifdef F2PY_REPORT_ATEXIT
98477f2py_stop_call_clock();
98478#endif
98479/*end of callfortranroutine*/
98480 if (f2py_success) {
98481/*pyobjfrom*/
98482/*end of pyobjfrom*/
98483 CFUNCSMESS("Building return value.\n");
98484 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
98485/*closepyobjfrom*/
98486/*end of closepyobjfrom*/
98487 } /*if (f2py_success) after callfortranroutine*/
98488/*cleanupfrompyobj*/
98489 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
98490 /* End of cleaning variable nt */
98491 } /*CHECKSTRING(*transr=='N'||*transr=='T')*/
98492 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
98493 } /*if (f2py_success) of transr*/
98494 /* End of cleaning variable transr */
98495 /* End of cleaning variable info */
98496 } /*if (capi_a_tmp == NULL) ... else of a*/
98497 /* End of cleaning variable a */
98498 } /*CHECKSCALAR(n>=0)*/
98499 } /*if (f2py_success) of n*/
98500 /* End of cleaning variable n */
98501 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
98502 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
98503 } /*if (f2py_success) of uplo*/
98504 /* End of cleaning variable uplo */
98505/*end of cleanupfrompyobj*/
98506 if (capi_buildvalue == NULL((void*)0)) {
98507/*routdebugfailure*/
98508 } else {
98509/*routdebugleave*/
98510 }
98511 CFUNCSMESS("Freeing memory.\n");
98512/*freemem*/
98513#ifdef F2PY_REPORT_ATEXIT
98514f2py_stop_clock();
98515#endif
98516 return capi_buildvalue;
98517}
98518/******************************* end of spftri *******************************/
98519
98520/*********************************** dpftri ***********************************/
98521static char doc_f2py_rout__flapack_dpftri[] = "\
98522ainv,info = dpftri(n,a,[transr,uplo,overwrite_a])\n\nWrapper for ``dpftri``.\
98523\n\nParameters\n----------\n"
98524"n : input int\n"
98525"a : input rank-1 array('d') with bounds (nt)\n"
98526"\nOther Parameters\n----------------\n"
98527"transr : input string(len=1), optional\n Default: 'N'\n"
98528"uplo : input string(len=1), optional\n Default: 'U'\n"
98529"overwrite_a : input int, optional\n Default: 0\n"
98530"\nReturns\n-------\n"
98531"ainv : rank-1 array('d') with bounds (nt) and a storage\n"
98532"info : int";
98533/* extern void F_FUNC(dpftri,DPFTRI)(char*,char*,F_INT*,double*,F_INT* ); */
98534static PyObject *f2py_rout__flapack_dpftri(const PyObject *capi_self,
98535 PyObject *capi_args,
98536 PyObject *capi_keywds,
98537 void (*f2py_func)(char*,char*,F_INTint*,double*,F_INTint* )) {
98538 PyObject * volatile capi_buildvalue = NULL((void*)0);
98539 volatile int f2py_success = 1;
98540/*decl*/
98541
98542 string transr = NULL((void*)0);
98543 int slen(transr)capi_transr_len;
98544 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
98545 string uplo = NULL((void*)0);
98546 int slen(uplo)capi_uplo_len;
98547 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
98548 int n = 0;
98549 PyObject *n_capi = Py_None(&_Py_NoneStruct);
98550 int nt = 0;
98551 double *a = NULL((void*)0);
98552 npy_intp a_Dims[1] = {-1};
98553 const int a_Rank = 1;
98554 PyArrayObject *capi_a_tmp = NULL((void*)0);
98555 int capi_a_intent = 0;
98556 int capi_overwrite_a = 0;
98557 PyObject *a_capi = Py_None(&_Py_NoneStruct);
98558 int info = 0;
98559 static char *capi_kwlist[] = {"n","a","transr","uplo","overwrite_a",NULL((void*)0)};
98560
98561/*routdebugenter*/
98562#ifdef F2PY_REPORT_ATEXIT
98563f2py_start_clock();
98564#endif
98565 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
98566 "OO|OOi:_flapack.dpftri",\
98567 capi_kwlist,&n_capi,&a_capi,&transr_capi,&uplo_capi,&capi_overwrite_a))
98568 return NULL((void*)0);
98569/*frompyobj*/
98570 /* Processing variable uplo */
98571 slen(uplo)capi_uplo_len = 1;
98572 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.dpftri to C string");
98573 if (f2py_success) {
98574 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","dpftri:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpftri:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
98575 /* Processing variable n */
98576 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dpftri() 1st argument (n) can't be converted to int");
98577 if (f2py_success) {
98578 CHECKSCALAR(n>=0,"n>=0","1st argument n","dpftri:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpftri:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
98579 /* Processing variable a */
98580 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
98581 ;
98582 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
98583 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
98584 if (capi_a_tmp == NULL((void*)0)) {
98585 if (!PyErr_Occurred())
98586 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.dpftri to C/Fortran array" );
98587 } else {
98588 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
98589
98590 /* Processing variable info */
98591 /* Processing variable transr */
98592 slen(transr)capi_transr_len = 1;
98593 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.dpftri to C string");
98594 if (f2py_success) {
98595 CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","dpftri:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpftri:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
98596 /* Processing variable nt */
98597 nt = shape(a,0)a_Dims[0];
98598 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","dpftri:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpftri:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
98599/*end of frompyobj*/
98600#ifdef F2PY_REPORT_ATEXIT
98601f2py_start_call_clock();
98602#endif
98603/*callfortranroutine*/
98604 (*f2py_func)(transr,uplo,&n,a,&info) ;
98605 /*(*f2py_func)(transr,uplo,&n,&nt,a,&info,slen(transr),slen(uplo));*/
98606if (PyErr_Occurred())
98607 f2py_success = 0;
98608#ifdef F2PY_REPORT_ATEXIT
98609f2py_stop_call_clock();
98610#endif
98611/*end of callfortranroutine*/
98612 if (f2py_success) {
98613/*pyobjfrom*/
98614/*end of pyobjfrom*/
98615 CFUNCSMESS("Building return value.\n");
98616 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
98617/*closepyobjfrom*/
98618/*end of closepyobjfrom*/
98619 } /*if (f2py_success) after callfortranroutine*/
98620/*cleanupfrompyobj*/
98621 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
98622 /* End of cleaning variable nt */
98623 } /*CHECKSTRING(*transr=='N'||*transr=='T')*/
98624 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
98625 } /*if (f2py_success) of transr*/
98626 /* End of cleaning variable transr */
98627 /* End of cleaning variable info */
98628 } /*if (capi_a_tmp == NULL) ... else of a*/
98629 /* End of cleaning variable a */
98630 } /*CHECKSCALAR(n>=0)*/
98631 } /*if (f2py_success) of n*/
98632 /* End of cleaning variable n */
98633 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
98634 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
98635 } /*if (f2py_success) of uplo*/
98636 /* End of cleaning variable uplo */
98637/*end of cleanupfrompyobj*/
98638 if (capi_buildvalue == NULL((void*)0)) {
98639/*routdebugfailure*/
98640 } else {
98641/*routdebugleave*/
98642 }
98643 CFUNCSMESS("Freeing memory.\n");
98644/*freemem*/
98645#ifdef F2PY_REPORT_ATEXIT
98646f2py_stop_clock();
98647#endif
98648 return capi_buildvalue;
98649}
98650/******************************* end of dpftri *******************************/
98651
98652/*********************************** cpftri ***********************************/
98653static char doc_f2py_rout__flapack_cpftri[] = "\
98654ainv,info = cpftri(n,a,[transr,uplo,overwrite_a])\n\nWrapper for ``cpftri``.\
98655\n\nParameters\n----------\n"
98656"n : input int\n"
98657"a : input rank-1 array('F') with bounds (nt)\n"
98658"\nOther Parameters\n----------------\n"
98659"transr : input string(len=1), optional\n Default: 'N'\n"
98660"uplo : input string(len=1), optional\n Default: 'U'\n"
98661"overwrite_a : input int, optional\n Default: 0\n"
98662"\nReturns\n-------\n"
98663"ainv : rank-1 array('F') with bounds (nt) and a storage\n"
98664"info : int";
98665/* extern void F_FUNC(cpftri,CPFTRI)(char*,char*,F_INT*,complex_float*,F_INT* ); */
98666static PyObject *f2py_rout__flapack_cpftri(const PyObject *capi_self,
98667 PyObject *capi_args,
98668 PyObject *capi_keywds,
98669 void (*f2py_func)(char*,char*,F_INTint*,complex_float*,F_INTint* )) {
98670 PyObject * volatile capi_buildvalue = NULL((void*)0);
98671 volatile int f2py_success = 1;
98672/*decl*/
98673
98674 string transr = NULL((void*)0);
98675 int slen(transr)capi_transr_len;
98676 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
98677 string uplo = NULL((void*)0);
98678 int slen(uplo)capi_uplo_len;
98679 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
98680 int n = 0;
98681 PyObject *n_capi = Py_None(&_Py_NoneStruct);
98682 int nt = 0;
98683 complex_float *a = NULL((void*)0);
98684 npy_intp a_Dims[1] = {-1};
98685 const int a_Rank = 1;
98686 PyArrayObject *capi_a_tmp = NULL((void*)0);
98687 int capi_a_intent = 0;
98688 int capi_overwrite_a = 0;
98689 PyObject *a_capi = Py_None(&_Py_NoneStruct);
98690 int info = 0;
98691 static char *capi_kwlist[] = {"n","a","transr","uplo","overwrite_a",NULL((void*)0)};
98692
98693/*routdebugenter*/
98694#ifdef F2PY_REPORT_ATEXIT
98695f2py_start_clock();
98696#endif
98697 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
98698 "OO|OOi:_flapack.cpftri",\
98699 capi_kwlist,&n_capi,&a_capi,&transr_capi,&uplo_capi,&capi_overwrite_a))
98700 return NULL((void*)0);
98701/*frompyobj*/
98702 /* Processing variable uplo */
98703 slen(uplo)capi_uplo_len = 1;
98704 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.cpftri to C string");
98705 if (f2py_success) {
98706 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","cpftri:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpftri:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
98707 /* Processing variable n */
98708 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cpftri() 1st argument (n) can't be converted to int");
98709 if (f2py_success) {
98710 CHECKSCALAR(n>=0,"n>=0","1st argument n","cpftri:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpftri:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
98711 /* Processing variable a */
98712 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
98713 ;
98714 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
98715 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
98716 if (capi_a_tmp == NULL((void*)0)) {
98717 if (!PyErr_Occurred())
98718 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.cpftri to C/Fortran array" );
98719 } else {
98720 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
98721
98722 /* Processing variable info */
98723 /* Processing variable transr */
98724 slen(transr)capi_transr_len = 1;
98725 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.cpftri to C string");
98726 if (f2py_success) {
98727 CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","cpftri:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpftri:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
98728 /* Processing variable nt */
98729 nt = shape(a,0)a_Dims[0];
98730 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","cpftri:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpftri:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
98731/*end of frompyobj*/
98732#ifdef F2PY_REPORT_ATEXIT
98733f2py_start_call_clock();
98734#endif
98735/*callfortranroutine*/
98736 (*f2py_func)(transr,uplo,&n,a,&info) ;
98737 /*(*f2py_func)(transr,uplo,&n,&nt,a,&info,slen(transr),slen(uplo));*/
98738if (PyErr_Occurred())
98739 f2py_success = 0;
98740#ifdef F2PY_REPORT_ATEXIT
98741f2py_stop_call_clock();
98742#endif
98743/*end of callfortranroutine*/
98744 if (f2py_success) {
98745/*pyobjfrom*/
98746/*end of pyobjfrom*/
98747 CFUNCSMESS("Building return value.\n");
98748 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
98749/*closepyobjfrom*/
98750/*end of closepyobjfrom*/
98751 } /*if (f2py_success) after callfortranroutine*/
98752/*cleanupfrompyobj*/
98753 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
98754 /* End of cleaning variable nt */
98755 } /*CHECKSTRING(*transr=='N'||*transr=='C')*/
98756 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
98757 } /*if (f2py_success) of transr*/
98758 /* End of cleaning variable transr */
98759 /* End of cleaning variable info */
98760 } /*if (capi_a_tmp == NULL) ... else of a*/
98761 /* End of cleaning variable a */
98762 } /*CHECKSCALAR(n>=0)*/
98763 } /*if (f2py_success) of n*/
98764 /* End of cleaning variable n */
98765 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
98766 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
98767 } /*if (f2py_success) of uplo*/
98768 /* End of cleaning variable uplo */
98769/*end of cleanupfrompyobj*/
98770 if (capi_buildvalue == NULL((void*)0)) {
98771/*routdebugfailure*/
98772 } else {
98773/*routdebugleave*/
98774 }
98775 CFUNCSMESS("Freeing memory.\n");
98776/*freemem*/
98777#ifdef F2PY_REPORT_ATEXIT
98778f2py_stop_clock();
98779#endif
98780 return capi_buildvalue;
98781}
98782/******************************* end of cpftri *******************************/
98783
98784/*********************************** zpftri ***********************************/
98785static char doc_f2py_rout__flapack_zpftri[] = "\
98786ainv,info = zpftri(n,a,[transr,uplo,overwrite_a])\n\nWrapper for ``zpftri``.\
98787\n\nParameters\n----------\n"
98788"n : input int\n"
98789"a : input rank-1 array('D') with bounds (nt)\n"
98790"\nOther Parameters\n----------------\n"
98791"transr : input string(len=1), optional\n Default: 'N'\n"
98792"uplo : input string(len=1), optional\n Default: 'U'\n"
98793"overwrite_a : input int, optional\n Default: 0\n"
98794"\nReturns\n-------\n"
98795"ainv : rank-1 array('D') with bounds (nt) and a storage\n"
98796"info : int";
98797/* extern void F_FUNC(zpftri,ZPFTRI)(char*,char*,F_INT*,complex_double*,F_INT* ); */
98798static PyObject *f2py_rout__flapack_zpftri(const PyObject *capi_self,
98799 PyObject *capi_args,
98800 PyObject *capi_keywds,
98801 void (*f2py_func)(char*,char*,F_INTint*,complex_double*,F_INTint* )) {
98802 PyObject * volatile capi_buildvalue = NULL((void*)0);
98803 volatile int f2py_success = 1;
98804/*decl*/
98805
98806 string transr = NULL((void*)0);
98807 int slen(transr)capi_transr_len;
98808 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
98809 string uplo = NULL((void*)0);
98810 int slen(uplo)capi_uplo_len;
98811 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
98812 int n = 0;
98813 PyObject *n_capi = Py_None(&_Py_NoneStruct);
98814 int nt = 0;
98815 complex_double *a = NULL((void*)0);
98816 npy_intp a_Dims[1] = {-1};
98817 const int a_Rank = 1;
98818 PyArrayObject *capi_a_tmp = NULL((void*)0);
98819 int capi_a_intent = 0;
98820 int capi_overwrite_a = 0;
98821 PyObject *a_capi = Py_None(&_Py_NoneStruct);
98822 int info = 0;
98823 static char *capi_kwlist[] = {"n","a","transr","uplo","overwrite_a",NULL((void*)0)};
98824
98825/*routdebugenter*/
98826#ifdef F2PY_REPORT_ATEXIT
98827f2py_start_clock();
98828#endif
98829 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
98830 "OO|OOi:_flapack.zpftri",\
98831 capi_kwlist,&n_capi,&a_capi,&transr_capi,&uplo_capi,&capi_overwrite_a))
98832 return NULL((void*)0);
98833/*frompyobj*/
98834 /* Processing variable uplo */
98835 slen(uplo)capi_uplo_len = 1;
98836 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.zpftri to C string");
98837 if (f2py_success) {
98838 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","zpftri:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpftri:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
98839 /* Processing variable n */
98840 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zpftri() 1st argument (n) can't be converted to int");
98841 if (f2py_success) {
98842 CHECKSCALAR(n>=0,"n>=0","1st argument n","zpftri:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpftri:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
98843 /* Processing variable a */
98844 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
98845 ;
98846 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
98847 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
98848 if (capi_a_tmp == NULL((void*)0)) {
98849 if (!PyErr_Occurred())
98850 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.zpftri to C/Fortran array" );
98851 } else {
98852 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
98853
98854 /* Processing variable info */
98855 /* Processing variable transr */
98856 slen(transr)capi_transr_len = 1;
98857 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.zpftri to C string");
98858 if (f2py_success) {
98859 CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","zpftri:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpftri:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
98860 /* Processing variable nt */
98861 nt = shape(a,0)a_Dims[0];
98862 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","zpftri:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpftri:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
98863/*end of frompyobj*/
98864#ifdef F2PY_REPORT_ATEXIT
98865f2py_start_call_clock();
98866#endif
98867/*callfortranroutine*/
98868 (*f2py_func)(transr,uplo,&n,a,&info) ;
98869 /*(*f2py_func)(transr,uplo,&n,&nt,a,&info,slen(transr),slen(uplo));*/
98870if (PyErr_Occurred())
98871 f2py_success = 0;
98872#ifdef F2PY_REPORT_ATEXIT
98873f2py_stop_call_clock();
98874#endif
98875/*end of callfortranroutine*/
98876 if (f2py_success) {
98877/*pyobjfrom*/
98878/*end of pyobjfrom*/
98879 CFUNCSMESS("Building return value.\n");
98880 capi_buildvalue = Py_BuildValue("Ni",capi_a_tmp,info);
98881/*closepyobjfrom*/
98882/*end of closepyobjfrom*/
98883 } /*if (f2py_success) after callfortranroutine*/
98884/*cleanupfrompyobj*/
98885 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
98886 /* End of cleaning variable nt */
98887 } /*CHECKSTRING(*transr=='N'||*transr=='C')*/
98888 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
98889 } /*if (f2py_success) of transr*/
98890 /* End of cleaning variable transr */
98891 /* End of cleaning variable info */
98892 } /*if (capi_a_tmp == NULL) ... else of a*/
98893 /* End of cleaning variable a */
98894 } /*CHECKSCALAR(n>=0)*/
98895 } /*if (f2py_success) of n*/
98896 /* End of cleaning variable n */
98897 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
98898 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
98899 } /*if (f2py_success) of uplo*/
98900 /* End of cleaning variable uplo */
98901/*end of cleanupfrompyobj*/
98902 if (capi_buildvalue == NULL((void*)0)) {
98903/*routdebugfailure*/
98904 } else {
98905/*routdebugleave*/
98906 }
98907 CFUNCSMESS("Freeing memory.\n");
98908/*freemem*/
98909#ifdef F2PY_REPORT_ATEXIT
98910f2py_stop_clock();
98911#endif
98912 return capi_buildvalue;
98913}
98914/******************************* end of zpftri *******************************/
98915
98916/*********************************** spftrs ***********************************/
98917static char doc_f2py_rout__flapack_spftrs[] = "\
98918x,info = spftrs(n,a,b,[transr,uplo,overwrite_b])\n\nWrapper for ``spftrs``.\
98919\n\nParameters\n----------\n"
98920"n : input int\n"
98921"a : input rank-1 array('f') with bounds (nt)\n"
98922"b : input rank-2 array('f') with bounds (ldb,nhrs)\n"
98923"\nOther Parameters\n----------------\n"
98924"transr : input string(len=1), optional\n Default: 'N'\n"
98925"uplo : input string(len=1), optional\n Default: 'U'\n"
98926"overwrite_b : input int, optional\n Default: 0\n"
98927"\nReturns\n-------\n"
98928"x : rank-2 array('f') with bounds (ldb,nhrs) and b storage\n"
98929"info : int";
98930/* extern void F_FUNC(spftrs,SPFTRS)(char*,char*,F_INT*,F_INT*,float*,float*,F_INT*,F_INT* ); */
98931static PyObject *f2py_rout__flapack_spftrs(const PyObject *capi_self,
98932 PyObject *capi_args,
98933 PyObject *capi_keywds,
98934 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
98935 PyObject * volatile capi_buildvalue = NULL((void*)0);
98936 volatile int f2py_success = 1;
98937/*decl*/
98938
98939 string transr = NULL((void*)0);
98940 int slen(transr)capi_transr_len;
98941 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
98942 string uplo = NULL((void*)0);
98943 int slen(uplo)capi_uplo_len;
98944 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
98945 int n = 0;
98946 PyObject *n_capi = Py_None(&_Py_NoneStruct);
98947 int nhrs = 0;
98948 int nt = 0;
98949 float *a = NULL((void*)0);
98950 npy_intp a_Dims[1] = {-1};
98951 const int a_Rank = 1;
98952 PyArrayObject *capi_a_tmp = NULL((void*)0);
98953 int capi_a_intent = 0;
98954 PyObject *a_capi = Py_None(&_Py_NoneStruct);
98955 float *b = NULL((void*)0);
98956 npy_intp b_Dims[2] = {-1, -1};
98957 const int b_Rank = 2;
98958 PyArrayObject *capi_b_tmp = NULL((void*)0);
98959 int capi_b_intent = 0;
98960 int capi_overwrite_b = 0;
98961 PyObject *b_capi = Py_None(&_Py_NoneStruct);
98962 int ldb = 0;
98963 int info = 0;
98964 static char *capi_kwlist[] = {"n","a","b","transr","uplo","overwrite_b",NULL((void*)0)};
98965
98966/*routdebugenter*/
98967#ifdef F2PY_REPORT_ATEXIT
98968f2py_start_clock();
98969#endif
98970 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
98971 "OOO|OOi:_flapack.spftrs",\
98972 capi_kwlist,&n_capi,&a_capi,&b_capi,&transr_capi,&uplo_capi,&capi_overwrite_b))
98973 return NULL((void*)0);
98974/*frompyobj*/
98975 /* Processing variable uplo */
98976 slen(uplo)capi_uplo_len = 1;
98977 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.spftrs to C string");
98978 if (f2py_success) {
98979 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","spftrs:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spftrs:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
98980 /* Processing variable n */
98981 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.spftrs() 1st argument (n) can't be converted to int");
98982 if (f2py_success) {
98983 CHECKSCALAR(n>=0,"n>=0","1st argument n","spftrs:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spftrs:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
98984 /* Processing variable a */
98985 ;
98986 capi_a_intent |= F2PY_INTENT_IN1;
98987 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
98988 if (capi_a_tmp == NULL((void*)0)) {
98989 if (!PyErr_Occurred())
98990 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.spftrs to C/Fortran array" );
98991 } else {
98992 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
98993
98994 /* Processing variable info */
98995 /* Processing variable transr */
98996 slen(transr)capi_transr_len = 1;
98997 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.spftrs to C string");
98998 if (f2py_success) {
98999 CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","spftrs:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spftrs:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
99000 /* Processing variable nt */
99001 nt = shape(a,0)a_Dims[0];
99002 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","spftrs:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""spftrs:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
99003 /* Processing variable b */
99004 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
99005 ;
99006 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
99007 capi_b_tmp = array_from_pyobj(NPY_FLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
99008 if (capi_b_tmp == NULL((void*)0)) {
99009 if (!PyErr_Occurred())
99010 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.spftrs to C/Fortran array" );
99011 } else {
99012 b = (float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
99013
99014 CHECKARRAY(shape(b,0)>=n,"shape(b,0)>=n","3rd argument b")if (!(b_Dims[0]>=n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)>=n"
") failed for ""3rd argument b"); } else
{
99015 /* Processing variable nhrs */
99016 nhrs = shape(b,1)b_Dims[1];
99017 /* Processing variable ldb */
99018 ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1));
99019/*end of frompyobj*/
99020#ifdef F2PY_REPORT_ATEXIT
99021f2py_start_call_clock();
99022#endif
99023/*callfortranroutine*/
99024 (*f2py_func)(transr,uplo,&n,&nhrs,a,b,&ldb,&info) ;
99025 /*(*f2py_func)(transr,uplo,&n,&nhrs,&nt,a,b,&ldb,&info,slen(transr),slen(uplo));*/
99026if (PyErr_Occurred())
99027 f2py_success = 0;
99028#ifdef F2PY_REPORT_ATEXIT
99029f2py_stop_call_clock();
99030#endif
99031/*end of callfortranroutine*/
99032 if (f2py_success) {
99033/*pyobjfrom*/
99034/*end of pyobjfrom*/
99035 CFUNCSMESS("Building return value.\n");
99036 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
99037/*closepyobjfrom*/
99038/*end of closepyobjfrom*/
99039 } /*if (f2py_success) after callfortranroutine*/
99040/*cleanupfrompyobj*/
99041 /* End of cleaning variable ldb */
99042 /* End of cleaning variable nhrs */
99043 } /*CHECKARRAY(shape(b,0)>=n)*/
99044 } /*if (capi_b_tmp == NULL) ... else of b*/
99045 /* End of cleaning variable b */
99046 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
99047 /* End of cleaning variable nt */
99048 } /*CHECKSTRING(*transr=='N'||*transr=='T')*/
99049 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
99050 } /*if (f2py_success) of transr*/
99051 /* End of cleaning variable transr */
99052 /* End of cleaning variable info */
99053 if((PyObject *)capi_a_tmp!=a_capi) {
99054 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
99055 } /*if (capi_a_tmp == NULL) ... else of a*/
99056 /* End of cleaning variable a */
99057 } /*CHECKSCALAR(n>=0)*/
99058 } /*if (f2py_success) of n*/
99059 /* End of cleaning variable n */
99060 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
99061 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
99062 } /*if (f2py_success) of uplo*/
99063 /* End of cleaning variable uplo */
99064/*end of cleanupfrompyobj*/
99065 if (capi_buildvalue == NULL((void*)0)) {
99066/*routdebugfailure*/
99067 } else {
99068/*routdebugleave*/
99069 }
99070 CFUNCSMESS("Freeing memory.\n");
99071/*freemem*/
99072#ifdef F2PY_REPORT_ATEXIT
99073f2py_stop_clock();
99074#endif
99075 return capi_buildvalue;
99076}
99077/******************************* end of spftrs *******************************/
99078
99079/*********************************** dpftrs ***********************************/
99080static char doc_f2py_rout__flapack_dpftrs[] = "\
99081x,info = dpftrs(n,a,b,[transr,uplo,overwrite_b])\n\nWrapper for ``dpftrs``.\
99082\n\nParameters\n----------\n"
99083"n : input int\n"
99084"a : input rank-1 array('d') with bounds (nt)\n"
99085"b : input rank-2 array('d') with bounds (ldb,nhrs)\n"
99086"\nOther Parameters\n----------------\n"
99087"transr : input string(len=1), optional\n Default: 'N'\n"
99088"uplo : input string(len=1), optional\n Default: 'U'\n"
99089"overwrite_b : input int, optional\n Default: 0\n"
99090"\nReturns\n-------\n"
99091"x : rank-2 array('d') with bounds (ldb,nhrs) and b storage\n"
99092"info : int";
99093/* extern void F_FUNC(dpftrs,DPFTRS)(char*,char*,F_INT*,F_INT*,double*,double*,F_INT*,F_INT* ); */
99094static PyObject *f2py_rout__flapack_dpftrs(const PyObject *capi_self,
99095 PyObject *capi_args,
99096 PyObject *capi_keywds,
99097 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
99098 PyObject * volatile capi_buildvalue = NULL((void*)0);
99099 volatile int f2py_success = 1;
99100/*decl*/
99101
99102 string transr = NULL((void*)0);
99103 int slen(transr)capi_transr_len;
99104 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
99105 string uplo = NULL((void*)0);
99106 int slen(uplo)capi_uplo_len;
99107 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
99108 int n = 0;
99109 PyObject *n_capi = Py_None(&_Py_NoneStruct);
99110 int nhrs = 0;
99111 int nt = 0;
99112 double *a = NULL((void*)0);
99113 npy_intp a_Dims[1] = {-1};
99114 const int a_Rank = 1;
99115 PyArrayObject *capi_a_tmp = NULL((void*)0);
99116 int capi_a_intent = 0;
99117 PyObject *a_capi = Py_None(&_Py_NoneStruct);
99118 double *b = NULL((void*)0);
99119 npy_intp b_Dims[2] = {-1, -1};
99120 const int b_Rank = 2;
99121 PyArrayObject *capi_b_tmp = NULL((void*)0);
99122 int capi_b_intent = 0;
99123 int capi_overwrite_b = 0;
99124 PyObject *b_capi = Py_None(&_Py_NoneStruct);
99125 int ldb = 0;
99126 int info = 0;
99127 static char *capi_kwlist[] = {"n","a","b","transr","uplo","overwrite_b",NULL((void*)0)};
99128
99129/*routdebugenter*/
99130#ifdef F2PY_REPORT_ATEXIT
99131f2py_start_clock();
99132#endif
99133 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
99134 "OOO|OOi:_flapack.dpftrs",\
99135 capi_kwlist,&n_capi,&a_capi,&b_capi,&transr_capi,&uplo_capi,&capi_overwrite_b))
99136 return NULL((void*)0);
99137/*frompyobj*/
99138 /* Processing variable uplo */
99139 slen(uplo)capi_uplo_len = 1;
99140 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.dpftrs to C string");
99141 if (f2py_success) {
99142 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","dpftrs:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpftrs:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
99143 /* Processing variable n */
99144 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dpftrs() 1st argument (n) can't be converted to int");
99145 if (f2py_success) {
99146 CHECKSCALAR(n>=0,"n>=0","1st argument n","dpftrs:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpftrs:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
99147 /* Processing variable a */
99148 ;
99149 capi_a_intent |= F2PY_INTENT_IN1;
99150 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
99151 if (capi_a_tmp == NULL((void*)0)) {
99152 if (!PyErr_Occurred())
99153 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.dpftrs to C/Fortran array" );
99154 } else {
99155 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
99156
99157 /* Processing variable info */
99158 /* Processing variable transr */
99159 slen(transr)capi_transr_len = 1;
99160 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.dpftrs to C string");
99161 if (f2py_success) {
99162 CHECKSTRING(*transr=='N'||*transr=='T',"*transr=='N'||*transr=='T'","1st keyword transr","dpftrs:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='T')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpftrs:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='T'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
99163 /* Processing variable nt */
99164 nt = shape(a,0)a_Dims[0];
99165 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","dpftrs:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dpftrs:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
99166 /* Processing variable b */
99167 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
99168 ;
99169 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
99170 capi_b_tmp = array_from_pyobj(NPY_DOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
99171 if (capi_b_tmp == NULL((void*)0)) {
99172 if (!PyErr_Occurred())
99173 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.dpftrs to C/Fortran array" );
99174 } else {
99175 b = (double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
99176
99177 CHECKARRAY(shape(b,0)>=n,"shape(b,0)>=n","3rd argument b")if (!(b_Dims[0]>=n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)>=n"
") failed for ""3rd argument b"); } else
{
99178 /* Processing variable nhrs */
99179 nhrs = shape(b,1)b_Dims[1];
99180 /* Processing variable ldb */
99181 ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1));
99182/*end of frompyobj*/
99183#ifdef F2PY_REPORT_ATEXIT
99184f2py_start_call_clock();
99185#endif
99186/*callfortranroutine*/
99187 (*f2py_func)(transr,uplo,&n,&nhrs,a,b,&ldb,&info) ;
99188 /*(*f2py_func)(transr,uplo,&n,&nhrs,&nt,a,b,&ldb,&info,slen(transr),slen(uplo));*/
99189if (PyErr_Occurred())
99190 f2py_success = 0;
99191#ifdef F2PY_REPORT_ATEXIT
99192f2py_stop_call_clock();
99193#endif
99194/*end of callfortranroutine*/
99195 if (f2py_success) {
99196/*pyobjfrom*/
99197/*end of pyobjfrom*/
99198 CFUNCSMESS("Building return value.\n");
99199 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
99200/*closepyobjfrom*/
99201/*end of closepyobjfrom*/
99202 } /*if (f2py_success) after callfortranroutine*/
99203/*cleanupfrompyobj*/
99204 /* End of cleaning variable ldb */
99205 /* End of cleaning variable nhrs */
99206 } /*CHECKARRAY(shape(b,0)>=n)*/
99207 } /*if (capi_b_tmp == NULL) ... else of b*/
99208 /* End of cleaning variable b */
99209 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
99210 /* End of cleaning variable nt */
99211 } /*CHECKSTRING(*transr=='N'||*transr=='T')*/
99212 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
99213 } /*if (f2py_success) of transr*/
99214 /* End of cleaning variable transr */
99215 /* End of cleaning variable info */
99216 if((PyObject *)capi_a_tmp!=a_capi) {
99217 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
99218 } /*if (capi_a_tmp == NULL) ... else of a*/
99219 /* End of cleaning variable a */
99220 } /*CHECKSCALAR(n>=0)*/
99221 } /*if (f2py_success) of n*/
99222 /* End of cleaning variable n */
99223 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
99224 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
99225 } /*if (f2py_success) of uplo*/
99226 /* End of cleaning variable uplo */
99227/*end of cleanupfrompyobj*/
99228 if (capi_buildvalue == NULL((void*)0)) {
99229/*routdebugfailure*/
99230 } else {
99231/*routdebugleave*/
99232 }
99233 CFUNCSMESS("Freeing memory.\n");
99234/*freemem*/
99235#ifdef F2PY_REPORT_ATEXIT
99236f2py_stop_clock();
99237#endif
99238 return capi_buildvalue;
99239}
99240/******************************* end of dpftrs *******************************/
99241
99242/*********************************** cpftrs ***********************************/
99243static char doc_f2py_rout__flapack_cpftrs[] = "\
99244x,info = cpftrs(n,a,b,[transr,uplo,overwrite_b])\n\nWrapper for ``cpftrs``.\
99245\n\nParameters\n----------\n"
99246"n : input int\n"
99247"a : input rank-1 array('F') with bounds (nt)\n"
99248"b : input rank-2 array('F') with bounds (ldb,nhrs)\n"
99249"\nOther Parameters\n----------------\n"
99250"transr : input string(len=1), optional\n Default: 'N'\n"
99251"uplo : input string(len=1), optional\n Default: 'U'\n"
99252"overwrite_b : input int, optional\n Default: 0\n"
99253"\nReturns\n-------\n"
99254"x : rank-2 array('F') with bounds (ldb,nhrs) and b storage\n"
99255"info : int";
99256/* extern void F_FUNC(cpftrs,CPFTRS)(char*,char*,F_INT*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */
99257static PyObject *f2py_rout__flapack_cpftrs(const PyObject *capi_self,
99258 PyObject *capi_args,
99259 PyObject *capi_keywds,
99260 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
99261 PyObject * volatile capi_buildvalue = NULL((void*)0);
99262 volatile int f2py_success = 1;
99263/*decl*/
99264
99265 string transr = NULL((void*)0);
99266 int slen(transr)capi_transr_len;
99267 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
99268 string uplo = NULL((void*)0);
99269 int slen(uplo)capi_uplo_len;
99270 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
99271 int n = 0;
99272 PyObject *n_capi = Py_None(&_Py_NoneStruct);
99273 int nhrs = 0;
99274 int nt = 0;
99275 complex_float *a = NULL((void*)0);
99276 npy_intp a_Dims[1] = {-1};
99277 const int a_Rank = 1;
99278 PyArrayObject *capi_a_tmp = NULL((void*)0);
99279 int capi_a_intent = 0;
99280 PyObject *a_capi = Py_None(&_Py_NoneStruct);
99281 complex_float *b = NULL((void*)0);
99282 npy_intp b_Dims[2] = {-1, -1};
99283 const int b_Rank = 2;
99284 PyArrayObject *capi_b_tmp = NULL((void*)0);
99285 int capi_b_intent = 0;
99286 int capi_overwrite_b = 0;
99287 PyObject *b_capi = Py_None(&_Py_NoneStruct);
99288 int ldb = 0;
99289 int info = 0;
99290 static char *capi_kwlist[] = {"n","a","b","transr","uplo","overwrite_b",NULL((void*)0)};
99291
99292/*routdebugenter*/
99293#ifdef F2PY_REPORT_ATEXIT
99294f2py_start_clock();
99295#endif
99296 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
99297 "OOO|OOi:_flapack.cpftrs",\
99298 capi_kwlist,&n_capi,&a_capi,&b_capi,&transr_capi,&uplo_capi,&capi_overwrite_b))
99299 return NULL((void*)0);
99300/*frompyobj*/
99301 /* Processing variable uplo */
99302 slen(uplo)capi_uplo_len = 1;
99303 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.cpftrs to C string");
99304 if (f2py_success) {
99305 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","cpftrs:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpftrs:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
99306 /* Processing variable n */
99307 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.cpftrs() 1st argument (n) can't be converted to int");
99308 if (f2py_success) {
99309 CHECKSCALAR(n>=0,"n>=0","1st argument n","cpftrs:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpftrs:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
99310 /* Processing variable a */
99311 ;
99312 capi_a_intent |= F2PY_INTENT_IN1;
99313 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
99314 if (capi_a_tmp == NULL((void*)0)) {
99315 if (!PyErr_Occurred())
99316 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.cpftrs to C/Fortran array" );
99317 } else {
99318 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
99319
99320 /* Processing variable info */
99321 /* Processing variable transr */
99322 slen(transr)capi_transr_len = 1;
99323 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.cpftrs to C string");
99324 if (f2py_success) {
99325 CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","cpftrs:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpftrs:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
99326 /* Processing variable nt */
99327 nt = shape(a,0)a_Dims[0];
99328 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","cpftrs:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""cpftrs:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
99329 /* Processing variable b */
99330 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
99331 ;
99332 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
99333 capi_b_tmp = array_from_pyobj(NPY_CFLOAT,b_Dims,b_Rank,capi_b_intent,b_capi);
99334 if (capi_b_tmp == NULL((void*)0)) {
99335 if (!PyErr_Occurred())
99336 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.cpftrs to C/Fortran array" );
99337 } else {
99338 b = (complex_float *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
99339
99340 CHECKARRAY(shape(b,0)>=n,"shape(b,0)>=n","3rd argument b")if (!(b_Dims[0]>=n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)>=n"
") failed for ""3rd argument b"); } else
{
99341 /* Processing variable nhrs */
99342 nhrs = shape(b,1)b_Dims[1];
99343 /* Processing variable ldb */
99344 ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1));
99345/*end of frompyobj*/
99346#ifdef F2PY_REPORT_ATEXIT
99347f2py_start_call_clock();
99348#endif
99349/*callfortranroutine*/
99350 (*f2py_func)(transr,uplo,&n,&nhrs,a,b,&ldb,&info) ;
99351 /*(*f2py_func)(transr,uplo,&n,&nhrs,&nt,a,b,&ldb,&info,slen(transr),slen(uplo));*/
99352if (PyErr_Occurred())
99353 f2py_success = 0;
99354#ifdef F2PY_REPORT_ATEXIT
99355f2py_stop_call_clock();
99356#endif
99357/*end of callfortranroutine*/
99358 if (f2py_success) {
99359/*pyobjfrom*/
99360/*end of pyobjfrom*/
99361 CFUNCSMESS("Building return value.\n");
99362 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
99363/*closepyobjfrom*/
99364/*end of closepyobjfrom*/
99365 } /*if (f2py_success) after callfortranroutine*/
99366/*cleanupfrompyobj*/
99367 /* End of cleaning variable ldb */
99368 /* End of cleaning variable nhrs */
99369 } /*CHECKARRAY(shape(b,0)>=n)*/
99370 } /*if (capi_b_tmp == NULL) ... else of b*/
99371 /* End of cleaning variable b */
99372 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
99373 /* End of cleaning variable nt */
99374 } /*CHECKSTRING(*transr=='N'||*transr=='C')*/
99375 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
99376 } /*if (f2py_success) of transr*/
99377 /* End of cleaning variable transr */
99378 /* End of cleaning variable info */
99379 if((PyObject *)capi_a_tmp!=a_capi) {
99380 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
99381 } /*if (capi_a_tmp == NULL) ... else of a*/
99382 /* End of cleaning variable a */
99383 } /*CHECKSCALAR(n>=0)*/
99384 } /*if (f2py_success) of n*/
99385 /* End of cleaning variable n */
99386 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
99387 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
99388 } /*if (f2py_success) of uplo*/
99389 /* End of cleaning variable uplo */
99390/*end of cleanupfrompyobj*/
99391 if (capi_buildvalue == NULL((void*)0)) {
99392/*routdebugfailure*/
99393 } else {
99394/*routdebugleave*/
99395 }
99396 CFUNCSMESS("Freeing memory.\n");
99397/*freemem*/
99398#ifdef F2PY_REPORT_ATEXIT
99399f2py_stop_clock();
99400#endif
99401 return capi_buildvalue;
99402}
99403/******************************* end of cpftrs *******************************/
99404
99405/*********************************** zpftrs ***********************************/
99406static char doc_f2py_rout__flapack_zpftrs[] = "\
99407x,info = zpftrs(n,a,b,[transr,uplo,overwrite_b])\n\nWrapper for ``zpftrs``.\
99408\n\nParameters\n----------\n"
99409"n : input int\n"
99410"a : input rank-1 array('D') with bounds (nt)\n"
99411"b : input rank-2 array('D') with bounds (ldb,nhrs)\n"
99412"\nOther Parameters\n----------------\n"
99413"transr : input string(len=1), optional\n Default: 'N'\n"
99414"uplo : input string(len=1), optional\n Default: 'U'\n"
99415"overwrite_b : input int, optional\n Default: 0\n"
99416"\nReturns\n-------\n"
99417"x : rank-2 array('D') with bounds (ldb,nhrs) and b storage\n"
99418"info : int";
99419/* extern void F_FUNC(zpftrs,ZPFTRS)(char*,char*,F_INT*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */
99420static PyObject *f2py_rout__flapack_zpftrs(const PyObject *capi_self,
99421 PyObject *capi_args,
99422 PyObject *capi_keywds,
99423 void (*f2py_func)(char*,char*,F_INTint*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
99424 PyObject * volatile capi_buildvalue = NULL((void*)0);
99425 volatile int f2py_success = 1;
99426/*decl*/
99427
99428 string transr = NULL((void*)0);
99429 int slen(transr)capi_transr_len;
99430 PyObject *transr_capi = Py_None(&_Py_NoneStruct);
99431 string uplo = NULL((void*)0);
99432 int slen(uplo)capi_uplo_len;
99433 PyObject *uplo_capi = Py_None(&_Py_NoneStruct);
99434 int n = 0;
99435 PyObject *n_capi = Py_None(&_Py_NoneStruct);
99436 int nhrs = 0;
99437 int nt = 0;
99438 complex_double *a = NULL((void*)0);
99439 npy_intp a_Dims[1] = {-1};
99440 const int a_Rank = 1;
99441 PyArrayObject *capi_a_tmp = NULL((void*)0);
99442 int capi_a_intent = 0;
99443 PyObject *a_capi = Py_None(&_Py_NoneStruct);
99444 complex_double *b = NULL((void*)0);
99445 npy_intp b_Dims[2] = {-1, -1};
99446 const int b_Rank = 2;
99447 PyArrayObject *capi_b_tmp = NULL((void*)0);
99448 int capi_b_intent = 0;
99449 int capi_overwrite_b = 0;
99450 PyObject *b_capi = Py_None(&_Py_NoneStruct);
99451 int ldb = 0;
99452 int info = 0;
99453 static char *capi_kwlist[] = {"n","a","b","transr","uplo","overwrite_b",NULL((void*)0)};
99454
99455/*routdebugenter*/
99456#ifdef F2PY_REPORT_ATEXIT
99457f2py_start_clock();
99458#endif
99459 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
99460 "OOO|OOi:_flapack.zpftrs",\
99461 capi_kwlist,&n_capi,&a_capi,&b_capi,&transr_capi,&uplo_capi,&capi_overwrite_b))
99462 return NULL((void*)0);
99463/*frompyobj*/
99464 /* Processing variable uplo */
99465 slen(uplo)capi_uplo_len = 1;
99466 f2py_success = string_from_pyobj(&uplo,&slen(uplo)capi_uplo_len,"U",uplo_capi,"string_from_pyobj failed in converting 2nd keyword `uplo' of _flapack.zpftrs to C string");
99467 if (f2py_success) {
99468 CHECKSTRING(*uplo=='U'||*uplo=='L',"*uplo=='U'||*uplo=='L'","2nd keyword uplo","zpftrs:slen(uplo)=%d uplo=\"%s\"",uplo)if (!(*uplo=='U'||*uplo=='L')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpftrs:slen(uplo)=%d uplo=\"%s\"", "(""*uplo=='U'||*uplo=='L'"
") failed for ""2nd keyword uplo", capi_uplo_len, uplo); PyErr_SetString
(_flapack_error, errstring); } else
{
99469 /* Processing variable n */
99470 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zpftrs() 1st argument (n) can't be converted to int");
99471 if (f2py_success) {
99472 CHECKSCALAR(n>=0,"n>=0","1st argument n","zpftrs:n=%d",n)if (!(n>=0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpftrs:n=%d", "(""n>=0"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
99473 /* Processing variable a */
99474 ;
99475 capi_a_intent |= F2PY_INTENT_IN1;
99476 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
99477 if (capi_a_tmp == NULL((void*)0)) {
99478 if (!PyErr_Occurred())
99479 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.zpftrs to C/Fortran array" );
99480 } else {
99481 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
99482
99483 /* Processing variable info */
99484 /* Processing variable transr */
99485 slen(transr)capi_transr_len = 1;
99486 f2py_success = string_from_pyobj(&transr,&slen(transr)capi_transr_len,"N",transr_capi,"string_from_pyobj failed in converting 1st keyword `transr' of _flapack.zpftrs to C string");
99487 if (f2py_success) {
99488 CHECKSTRING(*transr=='N'||*transr=='C',"*transr=='N'||*transr=='C'","1st keyword transr","zpftrs:slen(transr)=%d transr=\"%s\"",transr)if (!(*transr=='N'||*transr=='C')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpftrs:slen(transr)=%d transr=\"%s\"", "(""*transr=='N'||*transr=='C'"
") failed for ""1st keyword transr", capi_transr_len, transr)
; PyErr_SetString(_flapack_error, errstring); } else
{
99489 /* Processing variable nt */
99490 nt = shape(a,0)a_Dims[0];
99491 CHECKSCALAR(nt==(n*(n+1)/2),"nt==(n*(n+1)/2)","hidden nt","zpftrs:nt=%d",nt)if (!(nt==(n*(n+1)/2))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zpftrs:nt=%d", "(""nt==(n*(n+1)/2)"") failed for ""hidden nt"
, nt); PyErr_SetString(_flapack_error,errstring); } else
{
99492 /* Processing variable b */
99493 capi_b_intent |= (capi_overwrite_b?0:F2PY_INTENT_COPY32);
99494 ;
99495 capi_b_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
99496 capi_b_tmp = array_from_pyobj(NPY_CDOUBLE,b_Dims,b_Rank,capi_b_intent,b_capi);
99497 if (capi_b_tmp == NULL((void*)0)) {
99498 if (!PyErr_Occurred())
99499 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `b' of _flapack.zpftrs to C/Fortran array" );
99500 } else {
99501 b = (complex_double *)(PyArray_DATA(capi_b_tmp)((void *)((PyArrayObject_fields *)(capi_b_tmp))->data));
99502
99503 CHECKARRAY(shape(b,0)>=n,"shape(b,0)>=n","3rd argument b")if (!(b_Dims[0]>=n)) { PyErr_SetString(_flapack_error,"(""shape(b,0)>=n"
") failed for ""3rd argument b"); } else
{
99504 /* Processing variable nhrs */
99505 nhrs = shape(b,1)b_Dims[1];
99506 /* Processing variable ldb */
99507 ldb = MAX(shape(b,0),1)((b_Dims[0] > 1) ? (b_Dims[0]) : (1));
99508/*end of frompyobj*/
99509#ifdef F2PY_REPORT_ATEXIT
99510f2py_start_call_clock();
99511#endif
99512/*callfortranroutine*/
99513 (*f2py_func)(transr,uplo,&n,&nhrs,a,b,&ldb,&info) ;
99514 /*(*f2py_func)(transr,uplo,&n,&nhrs,&nt,a,b,&ldb,&info,slen(transr),slen(uplo));*/
99515if (PyErr_Occurred())
99516 f2py_success = 0;
99517#ifdef F2PY_REPORT_ATEXIT
99518f2py_stop_call_clock();
99519#endif
99520/*end of callfortranroutine*/
99521 if (f2py_success) {
99522/*pyobjfrom*/
99523/*end of pyobjfrom*/
99524 CFUNCSMESS("Building return value.\n");
99525 capi_buildvalue = Py_BuildValue("Ni",capi_b_tmp,info);
99526/*closepyobjfrom*/
99527/*end of closepyobjfrom*/
99528 } /*if (f2py_success) after callfortranroutine*/
99529/*cleanupfrompyobj*/
99530 /* End of cleaning variable ldb */
99531 /* End of cleaning variable nhrs */
99532 } /*CHECKARRAY(shape(b,0)>=n)*/
99533 } /*if (capi_b_tmp == NULL) ... else of b*/
99534 /* End of cleaning variable b */
99535 } /*CHECKSCALAR(nt==(n*(n+1)/2))*/
99536 /* End of cleaning variable nt */
99537 } /*CHECKSTRING(*transr=='N'||*transr=='C')*/
99538 STRINGFREE(transr)do {if (!(transr == ((void*)0))) free(transr);} while (0);
99539 } /*if (f2py_success) of transr*/
99540 /* End of cleaning variable transr */
99541 /* End of cleaning variable info */
99542 if((PyObject *)capi_a_tmp!=a_capi) {
99543 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
99544 } /*if (capi_a_tmp == NULL) ... else of a*/
99545 /* End of cleaning variable a */
99546 } /*CHECKSCALAR(n>=0)*/
99547 } /*if (f2py_success) of n*/
99548 /* End of cleaning variable n */
99549 } /*CHECKSTRING(*uplo=='U'||*uplo=='L')*/
99550 STRINGFREE(uplo)do {if (!(uplo == ((void*)0))) free(uplo);} while (0);
99551 } /*if (f2py_success) of uplo*/
99552 /* End of cleaning variable uplo */
99553/*end of cleanupfrompyobj*/
99554 if (capi_buildvalue == NULL((void*)0)) {
99555/*routdebugfailure*/
99556 } else {
99557/*routdebugleave*/
99558 }
99559 CFUNCSMESS("Freeing memory.\n");
99560/*freemem*/
99561#ifdef F2PY_REPORT_ATEXIT
99562f2py_stop_clock();
99563#endif
99564 return capi_buildvalue;
99565}
99566/******************************* end of zpftrs *******************************/
99567
99568/*********************************** stzrzf ***********************************/
99569static char doc_f2py_rout__flapack_stzrzf[] = "\
99570rz,tau,info = stzrzf(a,[lwork,overwrite_a])\n\nWrapper for ``stzrzf``.\
99571\n\nParameters\n----------\n"
99572"a : input rank-2 array('f') with bounds (m,n)\n"
99573"\nOther Parameters\n----------------\n"
99574"overwrite_a : input int, optional\n Default: 0\n"
99575"lwork : input int, optional\n Default: MAX(m,1)\n"
99576"\nReturns\n-------\n"
99577"rz : rank-2 array('f') with bounds (m,n) and a storage\n"
99578"tau : rank-1 array('f') with bounds (m)\n"
99579"info : int";
99580/* extern void F_FUNC(stzrzf,STZRZF)(F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */
99581static PyObject *f2py_rout__flapack_stzrzf(const PyObject *capi_self,
99582 PyObject *capi_args,
99583 PyObject *capi_keywds,
99584 void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
99585 PyObject * volatile capi_buildvalue = NULL((void*)0);
99586 volatile int f2py_success = 1;
99587/*decl*/
99588
99589 int m = 0;
99590 int n = 0;
99591 float *a = NULL((void*)0);
99592 npy_intp a_Dims[2] = {-1, -1};
99593 const int a_Rank = 2;
99594 PyArrayObject *capi_a_tmp = NULL((void*)0);
99595 int capi_a_intent = 0;
99596 int capi_overwrite_a = 0;
99597 PyObject *a_capi = Py_None(&_Py_NoneStruct);
99598 int lda = 0;
99599 float *tau = NULL((void*)0);
99600 npy_intp tau_Dims[1] = {-1};
99601 const int tau_Rank = 1;
99602 PyArrayObject *capi_tau_tmp = NULL((void*)0);
99603 int capi_tau_intent = 0;
99604 float *work = NULL((void*)0);
99605 npy_intp work_Dims[1] = {-1};
99606 const int work_Rank = 1;
99607 PyArrayObject *capi_work_tmp = NULL((void*)0);
99608 int capi_work_intent = 0;
99609 int lwork = 0;
99610 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
99611 int info = 0;
99612 static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)};
99613
99614/*routdebugenter*/
99615#ifdef F2PY_REPORT_ATEXIT
99616f2py_start_clock();
99617#endif
99618 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
99619 "O|Oi:_flapack.stzrzf",\
99620 capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a))
99621 return NULL((void*)0);
99622/*frompyobj*/
99623 /* Processing variable a */
99624 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
99625 ;
99626 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
99627 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
99628 if (capi_a_tmp == NULL((void*)0)) {
99629 if (!PyErr_Occurred())
99630 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.stzrzf to C/Fortran array" );
99631 } else {
99632 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
99633
99634 CHECKARRAY(shape(a,1)>=shape(a,0),"shape(a,1)>=shape(a,0)","1st argument a")if (!(a_Dims[1]>=a_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(a,1)>=shape(a,0)"") failed for ""1st argument a"
); } else
{
99635 /* Processing variable info */
99636 /* Processing variable m */
99637 m = shape(a,0)a_Dims[0];
99638 /* Processing variable n */
99639 n = shape(a,1)a_Dims[1];
99640 /* Processing variable lda */
99641 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
99642 /* Processing variable tau */
99643 tau_Dims[0]=m;
99644 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
99645 capi_tau_tmp = array_from_pyobj(NPY_FLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
99646 if (capi_tau_tmp == NULL((void*)0)) {
99647 if (!PyErr_Occurred())
99648 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.stzrzf to C/Fortran array" );
99649 } else {
99650 tau = (float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
99651
99652 /* Processing variable lwork */
99653 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(m,1)((m > 1) ? (m) : (1)); else
99654 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.stzrzf() 1st keyword (lwork) can't be converted to int");
99655 if (f2py_success) {
99656 CHECKSCALAR(lwork>=m,"lwork>=m","1st keyword lwork","stzrzf:lwork=%d",lwork)if (!(lwork>=m)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""stzrzf:lwork=%d", "(""lwork>=m"") failed for ""1st keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
99657 /* Processing variable work */
99658 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
99659 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
99660 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
99661 if (capi_work_tmp == NULL((void*)0)) {
99662 if (!PyErr_Occurred())
99663 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.stzrzf to C/Fortran array" );
99664 } else {
99665 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
99666
99667/*end of frompyobj*/
99668#ifdef F2PY_REPORT_ATEXIT
99669f2py_start_call_clock();
99670#endif
99671/*callfortranroutine*/
99672 (*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info) ;
99673 /*(*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info);*/
99674if (PyErr_Occurred())
99675 f2py_success = 0;
99676#ifdef F2PY_REPORT_ATEXIT
99677f2py_stop_call_clock();
99678#endif
99679/*end of callfortranroutine*/
99680 if (f2py_success) {
99681/*pyobjfrom*/
99682/*end of pyobjfrom*/
99683 CFUNCSMESS("Building return value.\n");
99684 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info);
99685/*closepyobjfrom*/
99686/*end of closepyobjfrom*/
99687 } /*if (f2py_success) after callfortranroutine*/
99688/*cleanupfrompyobj*/
99689 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
99690 } /*if (capi_work_tmp == NULL) ... else of work*/
99691 /* End of cleaning variable work */
99692 } /*CHECKSCALAR(lwork>=m)*/
99693 } /*if (f2py_success) of lwork*/
99694 /* End of cleaning variable lwork */
99695 } /*if (capi_tau_tmp == NULL) ... else of tau*/
99696 /* End of cleaning variable tau */
99697 /* End of cleaning variable lda */
99698 /* End of cleaning variable n */
99699 /* End of cleaning variable m */
99700 /* End of cleaning variable info */
99701 } /*CHECKARRAY(shape(a,1)>=shape(a,0))*/
99702 } /*if (capi_a_tmp == NULL) ... else of a*/
99703 /* End of cleaning variable a */
99704/*end of cleanupfrompyobj*/
99705 if (capi_buildvalue == NULL((void*)0)) {
99706/*routdebugfailure*/
99707 } else {
99708/*routdebugleave*/
99709 }
99710 CFUNCSMESS("Freeing memory.\n");
99711/*freemem*/
99712#ifdef F2PY_REPORT_ATEXIT
99713f2py_stop_clock();
99714#endif
99715 return capi_buildvalue;
99716}
99717/******************************* end of stzrzf *******************************/
99718
99719/*********************************** dtzrzf ***********************************/
99720static char doc_f2py_rout__flapack_dtzrzf[] = "\
99721rz,tau,info = dtzrzf(a,[lwork,overwrite_a])\n\nWrapper for ``dtzrzf``.\
99722\n\nParameters\n----------\n"
99723"a : input rank-2 array('d') with bounds (m,n)\n"
99724"\nOther Parameters\n----------------\n"
99725"overwrite_a : input int, optional\n Default: 0\n"
99726"lwork : input int, optional\n Default: MAX(m,1)\n"
99727"\nReturns\n-------\n"
99728"rz : rank-2 array('d') with bounds (m,n) and a storage\n"
99729"tau : rank-1 array('d') with bounds (m)\n"
99730"info : int";
99731/* extern void F_FUNC(dtzrzf,DTZRZF)(F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */
99732static PyObject *f2py_rout__flapack_dtzrzf(const PyObject *capi_self,
99733 PyObject *capi_args,
99734 PyObject *capi_keywds,
99735 void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
99736 PyObject * volatile capi_buildvalue = NULL((void*)0);
99737 volatile int f2py_success = 1;
99738/*decl*/
99739
99740 int m = 0;
99741 int n = 0;
99742 double *a = NULL((void*)0);
99743 npy_intp a_Dims[2] = {-1, -1};
99744 const int a_Rank = 2;
99745 PyArrayObject *capi_a_tmp = NULL((void*)0);
99746 int capi_a_intent = 0;
99747 int capi_overwrite_a = 0;
99748 PyObject *a_capi = Py_None(&_Py_NoneStruct);
99749 int lda = 0;
99750 double *tau = NULL((void*)0);
99751 npy_intp tau_Dims[1] = {-1};
99752 const int tau_Rank = 1;
99753 PyArrayObject *capi_tau_tmp = NULL((void*)0);
99754 int capi_tau_intent = 0;
99755 double *work = NULL((void*)0);
99756 npy_intp work_Dims[1] = {-1};
99757 const int work_Rank = 1;
99758 PyArrayObject *capi_work_tmp = NULL((void*)0);
99759 int capi_work_intent = 0;
99760 int lwork = 0;
99761 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
99762 int info = 0;
99763 static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)};
99764
99765/*routdebugenter*/
99766#ifdef F2PY_REPORT_ATEXIT
99767f2py_start_clock();
99768#endif
99769 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
99770 "O|Oi:_flapack.dtzrzf",\
99771 capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a))
99772 return NULL((void*)0);
99773/*frompyobj*/
99774 /* Processing variable a */
99775 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
99776 ;
99777 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
99778 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
99779 if (capi_a_tmp == NULL((void*)0)) {
99780 if (!PyErr_Occurred())
99781 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dtzrzf to C/Fortran array" );
99782 } else {
99783 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
99784
99785 CHECKARRAY(shape(a,1)>=shape(a,0),"shape(a,1)>=shape(a,0)","1st argument a")if (!(a_Dims[1]>=a_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(a,1)>=shape(a,0)"") failed for ""1st argument a"
); } else
{
99786 /* Processing variable info */
99787 /* Processing variable m */
99788 m = shape(a,0)a_Dims[0];
99789 /* Processing variable n */
99790 n = shape(a,1)a_Dims[1];
99791 /* Processing variable lda */
99792 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
99793 /* Processing variable tau */
99794 tau_Dims[0]=m;
99795 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
99796 capi_tau_tmp = array_from_pyobj(NPY_DOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
99797 if (capi_tau_tmp == NULL((void*)0)) {
99798 if (!PyErr_Occurred())
99799 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.dtzrzf to C/Fortran array" );
99800 } else {
99801 tau = (double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
99802
99803 /* Processing variable lwork */
99804 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(m,1)((m > 1) ? (m) : (1)); else
99805 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.dtzrzf() 1st keyword (lwork) can't be converted to int");
99806 if (f2py_success) {
99807 CHECKSCALAR(lwork>=m,"lwork>=m","1st keyword lwork","dtzrzf:lwork=%d",lwork)if (!(lwork>=m)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dtzrzf:lwork=%d", "(""lwork>=m"") failed for ""1st keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
99808 /* Processing variable work */
99809 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
99810 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
99811 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
99812 if (capi_work_tmp == NULL((void*)0)) {
99813 if (!PyErr_Occurred())
99814 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dtzrzf to C/Fortran array" );
99815 } else {
99816 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
99817
99818/*end of frompyobj*/
99819#ifdef F2PY_REPORT_ATEXIT
99820f2py_start_call_clock();
99821#endif
99822/*callfortranroutine*/
99823 (*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info) ;
99824 /*(*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info);*/
99825if (PyErr_Occurred())
99826 f2py_success = 0;
99827#ifdef F2PY_REPORT_ATEXIT
99828f2py_stop_call_clock();
99829#endif
99830/*end of callfortranroutine*/
99831 if (f2py_success) {
99832/*pyobjfrom*/
99833/*end of pyobjfrom*/
99834 CFUNCSMESS("Building return value.\n");
99835 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info);
99836/*closepyobjfrom*/
99837/*end of closepyobjfrom*/
99838 } /*if (f2py_success) after callfortranroutine*/
99839/*cleanupfrompyobj*/
99840 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
99841 } /*if (capi_work_tmp == NULL) ... else of work*/
99842 /* End of cleaning variable work */
99843 } /*CHECKSCALAR(lwork>=m)*/
99844 } /*if (f2py_success) of lwork*/
99845 /* End of cleaning variable lwork */
99846 } /*if (capi_tau_tmp == NULL) ... else of tau*/
99847 /* End of cleaning variable tau */
99848 /* End of cleaning variable lda */
99849 /* End of cleaning variable n */
99850 /* End of cleaning variable m */
99851 /* End of cleaning variable info */
99852 } /*CHECKARRAY(shape(a,1)>=shape(a,0))*/
99853 } /*if (capi_a_tmp == NULL) ... else of a*/
99854 /* End of cleaning variable a */
99855/*end of cleanupfrompyobj*/
99856 if (capi_buildvalue == NULL((void*)0)) {
99857/*routdebugfailure*/
99858 } else {
99859/*routdebugleave*/
99860 }
99861 CFUNCSMESS("Freeing memory.\n");
99862/*freemem*/
99863#ifdef F2PY_REPORT_ATEXIT
99864f2py_stop_clock();
99865#endif
99866 return capi_buildvalue;
99867}
99868/******************************* end of dtzrzf *******************************/
99869
99870/*********************************** ctzrzf ***********************************/
99871static char doc_f2py_rout__flapack_ctzrzf[] = "\
99872rz,tau,info = ctzrzf(a,[lwork,overwrite_a])\n\nWrapper for ``ctzrzf``.\
99873\n\nParameters\n----------\n"
99874"a : input rank-2 array('F') with bounds (m,n)\n"
99875"\nOther Parameters\n----------------\n"
99876"overwrite_a : input int, optional\n Default: 0\n"
99877"lwork : input int, optional\n Default: MAX(m,1)\n"
99878"\nReturns\n-------\n"
99879"rz : rank-2 array('F') with bounds (m,n) and a storage\n"
99880"tau : rank-1 array('F') with bounds (m)\n"
99881"info : int";
99882/* extern void F_FUNC(ctzrzf,CTZRZF)(F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */
99883static PyObject *f2py_rout__flapack_ctzrzf(const PyObject *capi_self,
99884 PyObject *capi_args,
99885 PyObject *capi_keywds,
99886 void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
99887 PyObject * volatile capi_buildvalue = NULL((void*)0);
99888 volatile int f2py_success = 1;
99889/*decl*/
99890
99891 int m = 0;
99892 int n = 0;
99893 complex_float *a = NULL((void*)0);
99894 npy_intp a_Dims[2] = {-1, -1};
99895 const int a_Rank = 2;
99896 PyArrayObject *capi_a_tmp = NULL((void*)0);
99897 int capi_a_intent = 0;
99898 int capi_overwrite_a = 0;
99899 PyObject *a_capi = Py_None(&_Py_NoneStruct);
99900 int lda = 0;
99901 complex_float *tau = NULL((void*)0);
99902 npy_intp tau_Dims[1] = {-1};
99903 const int tau_Rank = 1;
99904 PyArrayObject *capi_tau_tmp = NULL((void*)0);
99905 int capi_tau_intent = 0;
99906 complex_float *work = NULL((void*)0);
99907 npy_intp work_Dims[1] = {-1};
99908 const int work_Rank = 1;
99909 PyArrayObject *capi_work_tmp = NULL((void*)0);
99910 int capi_work_intent = 0;
99911 int lwork = 0;
99912 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
99913 int info = 0;
99914 static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)};
99915
99916/*routdebugenter*/
99917#ifdef F2PY_REPORT_ATEXIT
99918f2py_start_clock();
99919#endif
99920 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
99921 "O|Oi:_flapack.ctzrzf",\
99922 capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a))
99923 return NULL((void*)0);
99924/*frompyobj*/
99925 /* Processing variable a */
99926 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
99927 ;
99928 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
99929 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
99930 if (capi_a_tmp == NULL((void*)0)) {
99931 if (!PyErr_Occurred())
99932 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ctzrzf to C/Fortran array" );
99933 } else {
99934 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
99935
99936 CHECKARRAY(shape(a,1)>=shape(a,0),"shape(a,1)>=shape(a,0)","1st argument a")if (!(a_Dims[1]>=a_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(a,1)>=shape(a,0)"") failed for ""1st argument a"
); } else
{
99937 /* Processing variable info */
99938 /* Processing variable m */
99939 m = shape(a,0)a_Dims[0];
99940 /* Processing variable n */
99941 n = shape(a,1)a_Dims[1];
99942 /* Processing variable lda */
99943 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
99944 /* Processing variable tau */
99945 tau_Dims[0]=m;
99946 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
99947 capi_tau_tmp = array_from_pyobj(NPY_CFLOAT,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
99948 if (capi_tau_tmp == NULL((void*)0)) {
99949 if (!PyErr_Occurred())
99950 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.ctzrzf to C/Fortran array" );
99951 } else {
99952 tau = (complex_float *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
99953
99954 /* Processing variable lwork */
99955 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(m,1)((m > 1) ? (m) : (1)); else
99956 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ctzrzf() 1st keyword (lwork) can't be converted to int");
99957 if (f2py_success) {
99958 CHECKSCALAR(lwork>=m,"lwork>=m","1st keyword lwork","ctzrzf:lwork=%d",lwork)if (!(lwork>=m)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ctzrzf:lwork=%d", "(""lwork>=m"") failed for ""1st keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
99959 /* Processing variable work */
99960 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
99961 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
99962 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
99963 if (capi_work_tmp == NULL((void*)0)) {
99964 if (!PyErr_Occurred())
99965 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ctzrzf to C/Fortran array" );
99966 } else {
99967 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
99968
99969/*end of frompyobj*/
99970#ifdef F2PY_REPORT_ATEXIT
99971f2py_start_call_clock();
99972#endif
99973/*callfortranroutine*/
99974 (*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info) ;
99975 /*(*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info);*/
99976if (PyErr_Occurred())
99977 f2py_success = 0;
99978#ifdef F2PY_REPORT_ATEXIT
99979f2py_stop_call_clock();
99980#endif
99981/*end of callfortranroutine*/
99982 if (f2py_success) {
99983/*pyobjfrom*/
99984/*end of pyobjfrom*/
99985 CFUNCSMESS("Building return value.\n");
99986 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info);
99987/*closepyobjfrom*/
99988/*end of closepyobjfrom*/
99989 } /*if (f2py_success) after callfortranroutine*/
99990/*cleanupfrompyobj*/
99991 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
99992 } /*if (capi_work_tmp == NULL) ... else of work*/
99993 /* End of cleaning variable work */
99994 } /*CHECKSCALAR(lwork>=m)*/
99995 } /*if (f2py_success) of lwork*/
99996 /* End of cleaning variable lwork */
99997 } /*if (capi_tau_tmp == NULL) ... else of tau*/
99998 /* End of cleaning variable tau */
99999 /* End of cleaning variable lda */
100000 /* End of cleaning variable n */
100001 /* End of cleaning variable m */
100002 /* End of cleaning variable info */
100003 } /*CHECKARRAY(shape(a,1)>=shape(a,0))*/
100004 } /*if (capi_a_tmp == NULL) ... else of a*/
100005 /* End of cleaning variable a */
100006/*end of cleanupfrompyobj*/
100007 if (capi_buildvalue == NULL((void*)0)) {
100008/*routdebugfailure*/
100009 } else {
100010/*routdebugleave*/
100011 }
100012 CFUNCSMESS("Freeing memory.\n");
100013/*freemem*/
100014#ifdef F2PY_REPORT_ATEXIT
100015f2py_stop_clock();
100016#endif
100017 return capi_buildvalue;
100018}
100019/******************************* end of ctzrzf *******************************/
100020
100021/*********************************** ztzrzf ***********************************/
100022static char doc_f2py_rout__flapack_ztzrzf[] = "\
100023rz,tau,info = ztzrzf(a,[lwork,overwrite_a])\n\nWrapper for ``ztzrzf``.\
100024\n\nParameters\n----------\n"
100025"a : input rank-2 array('D') with bounds (m,n)\n"
100026"\nOther Parameters\n----------------\n"
100027"overwrite_a : input int, optional\n Default: 0\n"
100028"lwork : input int, optional\n Default: MAX(m,1)\n"
100029"\nReturns\n-------\n"
100030"rz : rank-2 array('D') with bounds (m,n) and a storage\n"
100031"tau : rank-1 array('D') with bounds (m)\n"
100032"info : int";
100033/* extern void F_FUNC(ztzrzf,ZTZRZF)(F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */
100034static PyObject *f2py_rout__flapack_ztzrzf(const PyObject *capi_self,
100035 PyObject *capi_args,
100036 PyObject *capi_keywds,
100037 void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
100038 PyObject * volatile capi_buildvalue = NULL((void*)0);
100039 volatile int f2py_success = 1;
100040/*decl*/
100041
100042 int m = 0;
100043 int n = 0;
100044 complex_double *a = NULL((void*)0);
100045 npy_intp a_Dims[2] = {-1, -1};
100046 const int a_Rank = 2;
100047 PyArrayObject *capi_a_tmp = NULL((void*)0);
100048 int capi_a_intent = 0;
100049 int capi_overwrite_a = 0;
100050 PyObject *a_capi = Py_None(&_Py_NoneStruct);
100051 int lda = 0;
100052 complex_double *tau = NULL((void*)0);
100053 npy_intp tau_Dims[1] = {-1};
100054 const int tau_Rank = 1;
100055 PyArrayObject *capi_tau_tmp = NULL((void*)0);
100056 int capi_tau_intent = 0;
100057 complex_double *work = NULL((void*)0);
100058 npy_intp work_Dims[1] = {-1};
100059 const int work_Rank = 1;
100060 PyArrayObject *capi_work_tmp = NULL((void*)0);
100061 int capi_work_intent = 0;
100062 int lwork = 0;
100063 PyObject *lwork_capi = Py_None(&_Py_NoneStruct);
100064 int info = 0;
100065 static char *capi_kwlist[] = {"a","lwork","overwrite_a",NULL((void*)0)};
100066
100067/*routdebugenter*/
100068#ifdef F2PY_REPORT_ATEXIT
100069f2py_start_clock();
100070#endif
100071 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
100072 "O|Oi:_flapack.ztzrzf",\
100073 capi_kwlist,&a_capi,&lwork_capi,&capi_overwrite_a))
100074 return NULL((void*)0);
100075/*frompyobj*/
100076 /* Processing variable a */
100077 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
100078 ;
100079 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
100080 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
100081 if (capi_a_tmp == NULL((void*)0)) {
100082 if (!PyErr_Occurred())
100083 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.ztzrzf to C/Fortran array" );
100084 } else {
100085 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
100086
100087 CHECKARRAY(shape(a,1)>=shape(a,0),"shape(a,1)>=shape(a,0)","1st argument a")if (!(a_Dims[1]>=a_Dims[0])) { PyErr_SetString(_flapack_error
,"(""shape(a,1)>=shape(a,0)"") failed for ""1st argument a"
); } else
{
100088 /* Processing variable info */
100089 /* Processing variable m */
100090 m = shape(a,0)a_Dims[0];
100091 /* Processing variable n */
100092 n = shape(a,1)a_Dims[1];
100093 /* Processing variable lda */
100094 lda = MAX(shape(a,0),1)((a_Dims[0] > 1) ? (a_Dims[0]) : (1));
100095 /* Processing variable tau */
100096 tau_Dims[0]=m;
100097 capi_tau_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
100098 capi_tau_tmp = array_from_pyobj(NPY_CDOUBLE,tau_Dims,tau_Rank,capi_tau_intent,Py_None(&_Py_NoneStruct));
100099 if (capi_tau_tmp == NULL((void*)0)) {
100100 if (!PyErr_Occurred())
100101 PyErr_SetString(_flapack_error,"failed in converting hidden `tau' of _flapack.ztzrzf to C/Fortran array" );
100102 } else {
100103 tau = (complex_double *)(PyArray_DATA(capi_tau_tmp)((void *)((PyArrayObject_fields *)(capi_tau_tmp))->data));
100104
100105 /* Processing variable lwork */
100106 if (lwork_capi == Py_None(&_Py_NoneStruct)) lwork = MAX(m,1)((m > 1) ? (m) : (1)); else
100107 f2py_success = int_from_pyobj(&lwork,lwork_capi,"_flapack.ztzrzf() 1st keyword (lwork) can't be converted to int");
100108 if (f2py_success) {
100109 CHECKSCALAR(lwork>=m,"lwork>=m","1st keyword lwork","ztzrzf:lwork=%d",lwork)if (!(lwork>=m)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""ztzrzf:lwork=%d", "(""lwork>=m"") failed for ""1st keyword lwork"
, lwork); PyErr_SetString(_flapack_error,errstring); } else
{
100110 /* Processing variable work */
100111 work_Dims[0]=MAX(lwork,1)((lwork > 1) ? (lwork) : (1));
100112 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
100113 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
100114 if (capi_work_tmp == NULL((void*)0)) {
100115 if (!PyErr_Occurred())
100116 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.ztzrzf to C/Fortran array" );
100117 } else {
100118 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
100119
100120/*end of frompyobj*/
100121#ifdef F2PY_REPORT_ATEXIT
100122f2py_start_call_clock();
100123#endif
100124/*callfortranroutine*/
100125 (*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info) ;
100126 /*(*f2py_func)(&m,&n,a,&lda,tau,work,&lwork,&info);*/
100127if (PyErr_Occurred())
100128 f2py_success = 0;
100129#ifdef F2PY_REPORT_ATEXIT
100130f2py_stop_call_clock();
100131#endif
100132/*end of callfortranroutine*/
100133 if (f2py_success) {
100134/*pyobjfrom*/
100135/*end of pyobjfrom*/
100136 CFUNCSMESS("Building return value.\n");
100137 capi_buildvalue = Py_BuildValue("NNi",capi_a_tmp,capi_tau_tmp,info);
100138/*closepyobjfrom*/
100139/*end of closepyobjfrom*/
100140 } /*if (f2py_success) after callfortranroutine*/
100141/*cleanupfrompyobj*/
100142 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
100143 } /*if (capi_work_tmp == NULL) ... else of work*/
100144 /* End of cleaning variable work */
100145 } /*CHECKSCALAR(lwork>=m)*/
100146 } /*if (f2py_success) of lwork*/
100147 /* End of cleaning variable lwork */
100148 } /*if (capi_tau_tmp == NULL) ... else of tau*/
100149 /* End of cleaning variable tau */
100150 /* End of cleaning variable lda */
100151 /* End of cleaning variable n */
100152 /* End of cleaning variable m */
100153 /* End of cleaning variable info */
100154 } /*CHECKARRAY(shape(a,1)>=shape(a,0))*/
100155 } /*if (capi_a_tmp == NULL) ... else of a*/
100156 /* End of cleaning variable a */
100157/*end of cleanupfrompyobj*/
100158 if (capi_buildvalue == NULL((void*)0)) {
100159/*routdebugfailure*/
100160 } else {
100161/*routdebugleave*/
100162 }
100163 CFUNCSMESS("Freeing memory.\n");
100164/*freemem*/
100165#ifdef F2PY_REPORT_ATEXIT
100166f2py_stop_clock();
100167#endif
100168 return capi_buildvalue;
100169}
100170/******************************* end of ztzrzf *******************************/
100171
100172/******************************** stzrzf_lwork ********************************/
100173static char doc_f2py_rout__flapack_stzrzf_lwork[] = "\
100174work,info = stzrzf_lwork(m,n)\n\nWrapper for ``stzrzf_lwork``.\
100175\n\nParameters\n----------\n"
100176"m : input int\n"
100177"n : input int\n"
100178"\nReturns\n-------\n"
100179"work : float\n"
100180"info : int";
100181/* extern void F_FUNC(stzrzf ,STZRZF )(F_INT*,F_INT*,float*,F_INT*,float*,float*,F_INT*,F_INT* ); */
100182static PyObject *f2py_rout__flapack_stzrzf_lwork(const PyObject *capi_self,
100183 PyObject *capi_args,
100184 PyObject *capi_keywds,
100185 void (*f2py_func)(F_INTint*,F_INTint*,float*,F_INTint*,float*,float*,F_INTint*,F_INTint* )) {
100186 PyObject * volatile capi_buildvalue = NULL((void*)0);
100187 volatile int f2py_success = 1;
100188/*decl*/
100189
100190 int m = 0;
100191 PyObject *m_capi = Py_None(&_Py_NoneStruct);
100192 int n = 0;
100193 PyObject *n_capi = Py_None(&_Py_NoneStruct);
100194 float a = 0;
100195 int lda = 0;
100196 float tau = 0;
100197 float work = 0;
100198 int lwork = 0;
100199 int info = 0;
100200 static char *capi_kwlist[] = {"m","n",NULL((void*)0)};
100201
100202/*routdebugenter*/
100203#ifdef F2PY_REPORT_ATEXIT
100204f2py_start_clock();
100205#endif
100206 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
100207 "OO:_flapack.stzrzf_lwork",\
100208 capi_kwlist,&m_capi,&n_capi))
100209 return NULL((void*)0);
100210/*frompyobj*/
100211 /* Processing variable m */
100212 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.stzrzf_lwork() 1st argument (m) can't be converted to int");
100213 if (f2py_success) {
100214 /* Processing variable n */
100215 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.stzrzf_lwork() 2nd argument (n) can't be converted to int");
100216 if (f2py_success) {
100217 /* Processing variable a */
100218 /* Processing variable tau */
100219 /* Processing variable lwork */
100220 lwork = -1;
100221 /* Processing variable work */
100222 /* Processing variable info */
100223 /* Processing variable lda */
100224 lda = MAX(m,1)((m > 1) ? (m) : (1));
100225/*end of frompyobj*/
100226#ifdef F2PY_REPORT_ATEXIT
100227f2py_start_call_clock();
100228#endif
100229/*callfortranroutine*/
100230 (*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info) ;
100231 /*(*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info);*/
100232if (PyErr_Occurred())
100233 f2py_success = 0;
100234#ifdef F2PY_REPORT_ATEXIT
100235f2py_stop_call_clock();
100236#endif
100237/*end of callfortranroutine*/
100238 if (f2py_success) {
100239/*pyobjfrom*/
100240/*end of pyobjfrom*/
100241 CFUNCSMESS("Building return value.\n");
100242 capi_buildvalue = Py_BuildValue("fi",work,info);
100243/*closepyobjfrom*/
100244/*end of closepyobjfrom*/
100245 } /*if (f2py_success) after callfortranroutine*/
100246/*cleanupfrompyobj*/
100247 /* End of cleaning variable lda */
100248 /* End of cleaning variable info */
100249 /* End of cleaning variable work */
100250 /* End of cleaning variable lwork */
100251 /* End of cleaning variable tau */
100252 /* End of cleaning variable a */
100253 } /*if (f2py_success) of n*/
100254 /* End of cleaning variable n */
100255 } /*if (f2py_success) of m*/
100256 /* End of cleaning variable m */
100257/*end of cleanupfrompyobj*/
100258 if (capi_buildvalue == NULL((void*)0)) {
100259/*routdebugfailure*/
100260 } else {
100261/*routdebugleave*/
100262 }
100263 CFUNCSMESS("Freeing memory.\n");
100264/*freemem*/
100265#ifdef F2PY_REPORT_ATEXIT
100266f2py_stop_clock();
100267#endif
100268 return capi_buildvalue;
100269}
100270/**************************** end of stzrzf_lwork ****************************/
100271
100272/******************************** dtzrzf_lwork ********************************/
100273static char doc_f2py_rout__flapack_dtzrzf_lwork[] = "\
100274work,info = dtzrzf_lwork(m,n)\n\nWrapper for ``dtzrzf_lwork``.\
100275\n\nParameters\n----------\n"
100276"m : input int\n"
100277"n : input int\n"
100278"\nReturns\n-------\n"
100279"work : float\n"
100280"info : int";
100281/* extern void F_FUNC(dtzrzf ,DTZRZF )(F_INT*,F_INT*,double*,F_INT*,double*,double*,F_INT*,F_INT* ); */
100282static PyObject *f2py_rout__flapack_dtzrzf_lwork(const PyObject *capi_self,
100283 PyObject *capi_args,
100284 PyObject *capi_keywds,
100285 void (*f2py_func)(F_INTint*,F_INTint*,double*,F_INTint*,double*,double*,F_INTint*,F_INTint* )) {
100286 PyObject * volatile capi_buildvalue = NULL((void*)0);
100287 volatile int f2py_success = 1;
100288/*decl*/
100289
100290 int m = 0;
100291 PyObject *m_capi = Py_None(&_Py_NoneStruct);
100292 int n = 0;
100293 PyObject *n_capi = Py_None(&_Py_NoneStruct);
100294 double a = 0;
100295 int lda = 0;
100296 double tau = 0;
100297 double work = 0;
100298 int lwork = 0;
100299 int info = 0;
100300 static char *capi_kwlist[] = {"m","n",NULL((void*)0)};
100301
100302/*routdebugenter*/
100303#ifdef F2PY_REPORT_ATEXIT
100304f2py_start_clock();
100305#endif
100306 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
100307 "OO:_flapack.dtzrzf_lwork",\
100308 capi_kwlist,&m_capi,&n_capi))
100309 return NULL((void*)0);
100310/*frompyobj*/
100311 /* Processing variable m */
100312 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.dtzrzf_lwork() 1st argument (m) can't be converted to int");
100313 if (f2py_success) {
100314 /* Processing variable n */
100315 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dtzrzf_lwork() 2nd argument (n) can't be converted to int");
100316 if (f2py_success) {
100317 /* Processing variable a */
100318 /* Processing variable tau */
100319 /* Processing variable lwork */
100320 lwork = -1;
100321 /* Processing variable work */
100322 /* Processing variable info */
100323 /* Processing variable lda */
100324 lda = MAX(m,1)((m > 1) ? (m) : (1));
100325/*end of frompyobj*/
100326#ifdef F2PY_REPORT_ATEXIT
100327f2py_start_call_clock();
100328#endif
100329/*callfortranroutine*/
100330 (*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info) ;
100331 /*(*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info);*/
100332if (PyErr_Occurred())
100333 f2py_success = 0;
100334#ifdef F2PY_REPORT_ATEXIT
100335f2py_stop_call_clock();
100336#endif
100337/*end of callfortranroutine*/
100338 if (f2py_success) {
100339/*pyobjfrom*/
100340/*end of pyobjfrom*/
100341 CFUNCSMESS("Building return value.\n");
100342 capi_buildvalue = Py_BuildValue("di",work,info);
100343/*closepyobjfrom*/
100344/*end of closepyobjfrom*/
100345 } /*if (f2py_success) after callfortranroutine*/
100346/*cleanupfrompyobj*/
100347 /* End of cleaning variable lda */
100348 /* End of cleaning variable info */
100349 /* End of cleaning variable work */
100350 /* End of cleaning variable lwork */
100351 /* End of cleaning variable tau */
100352 /* End of cleaning variable a */
100353 } /*if (f2py_success) of n*/
100354 /* End of cleaning variable n */
100355 } /*if (f2py_success) of m*/
100356 /* End of cleaning variable m */
100357/*end of cleanupfrompyobj*/
100358 if (capi_buildvalue == NULL((void*)0)) {
100359/*routdebugfailure*/
100360 } else {
100361/*routdebugleave*/
100362 }
100363 CFUNCSMESS("Freeing memory.\n");
100364/*freemem*/
100365#ifdef F2PY_REPORT_ATEXIT
100366f2py_stop_clock();
100367#endif
100368 return capi_buildvalue;
100369}
100370/**************************** end of dtzrzf_lwork ****************************/
100371
100372/******************************** ctzrzf_lwork ********************************/
100373static char doc_f2py_rout__flapack_ctzrzf_lwork[] = "\
100374work,info = ctzrzf_lwork(m,n)\n\nWrapper for ``ctzrzf_lwork``.\
100375\n\nParameters\n----------\n"
100376"m : input int\n"
100377"n : input int\n"
100378"\nReturns\n-------\n"
100379"work : complex\n"
100380"info : int";
100381/* extern void F_FUNC(ctzrzf ,CTZRZF )(F_INT*,F_INT*,complex_float*,F_INT*,complex_float*,complex_float*,F_INT*,F_INT* ); */
100382static PyObject *f2py_rout__flapack_ctzrzf_lwork(const PyObject *capi_self,
100383 PyObject *capi_args,
100384 PyObject *capi_keywds,
100385 void (*f2py_func)(F_INTint*,F_INTint*,complex_float*,F_INTint*,complex_float*,complex_float*,F_INTint*,F_INTint* )) {
100386 PyObject * volatile capi_buildvalue = NULL((void*)0);
100387 volatile int f2py_success = 1;
100388/*decl*/
100389
100390 int m = 0;
100391 PyObject *m_capi = Py_None(&_Py_NoneStruct);
100392 int n = 0;
100393 PyObject *n_capi = Py_None(&_Py_NoneStruct);
100394 complex_float a;
100395 int lda = 0;
100396 complex_float tau;
100397 complex_float work;
100398 PyObject *work_capi = Py_None(&_Py_NoneStruct);
100399 int lwork = 0;
100400 int info = 0;
100401 static char *capi_kwlist[] = {"m","n",NULL((void*)0)};
100402
100403/*routdebugenter*/
100404#ifdef F2PY_REPORT_ATEXIT
100405f2py_start_clock();
100406#endif
100407 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
100408 "OO:_flapack.ctzrzf_lwork",\
100409 capi_kwlist,&m_capi,&n_capi))
100410 return NULL((void*)0);
100411/*frompyobj*/
100412 /* Processing variable m */
100413 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.ctzrzf_lwork() 1st argument (m) can't be converted to int");
100414 if (f2py_success) {
100415 /* Processing variable n */
100416 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ctzrzf_lwork() 2nd argument (n) can't be converted to int");
100417 if (f2py_success) {
100418 /* Processing variable a */
100419 /* Processing variable tau */
100420 /* Processing variable lwork */
100421 lwork = -1;
100422 /* Processing variable work */
100423 /* Processing variable info */
100424 /* Processing variable lda */
100425 lda = MAX(m,1)((m > 1) ? (m) : (1));
100426/*end of frompyobj*/
100427#ifdef F2PY_REPORT_ATEXIT
100428f2py_start_call_clock();
100429#endif
100430/*callfortranroutine*/
100431 (*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info) ;
100432 /*(*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info);*/
100433if (PyErr_Occurred())
100434 f2py_success = 0;
100435#ifdef F2PY_REPORT_ATEXIT
100436f2py_stop_call_clock();
100437#endif
100438/*end of callfortranroutine*/
100439 if (f2py_success) {
100440/*pyobjfrom*/
100441 work_capi = pyobj_from_complex_float1(work)(PyComplex_FromDoubles(work.r,work.i));
100442/*end of pyobjfrom*/
100443 CFUNCSMESS("Building return value.\n");
100444 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
100445/*closepyobjfrom*/
100446/*end of closepyobjfrom*/
100447 } /*if (f2py_success) after callfortranroutine*/
100448/*cleanupfrompyobj*/
100449 /* End of cleaning variable lda */
100450 /* End of cleaning variable info */
100451 /* End of cleaning variable work */
100452 /* End of cleaning variable lwork */
100453 /* End of cleaning variable tau */
100454 /* End of cleaning variable a */
100455 } /*if (f2py_success) of n*/
100456 /* End of cleaning variable n */
100457 } /*if (f2py_success) of m*/
100458 /* End of cleaning variable m */
100459/*end of cleanupfrompyobj*/
100460 if (capi_buildvalue == NULL((void*)0)) {
100461/*routdebugfailure*/
100462 } else {
100463/*routdebugleave*/
100464 }
100465 CFUNCSMESS("Freeing memory.\n");
100466/*freemem*/
100467#ifdef F2PY_REPORT_ATEXIT
100468f2py_stop_clock();
100469#endif
100470 return capi_buildvalue;
100471}
100472/**************************** end of ctzrzf_lwork ****************************/
100473
100474/******************************** ztzrzf_lwork ********************************/
100475static char doc_f2py_rout__flapack_ztzrzf_lwork[] = "\
100476work,info = ztzrzf_lwork(m,n)\n\nWrapper for ``ztzrzf_lwork``.\
100477\n\nParameters\n----------\n"
100478"m : input int\n"
100479"n : input int\n"
100480"\nReturns\n-------\n"
100481"work : complex\n"
100482"info : int";
100483/* extern void F_FUNC(ztzrzf ,ZTZRZF )(F_INT*,F_INT*,complex_double*,F_INT*,complex_double*,complex_double*,F_INT*,F_INT* ); */
100484static PyObject *f2py_rout__flapack_ztzrzf_lwork(const PyObject *capi_self,
100485 PyObject *capi_args,
100486 PyObject *capi_keywds,
100487 void (*f2py_func)(F_INTint*,F_INTint*,complex_double*,F_INTint*,complex_double*,complex_double*,F_INTint*,F_INTint* )) {
100488 PyObject * volatile capi_buildvalue = NULL((void*)0);
100489 volatile int f2py_success = 1;
100490/*decl*/
100491
100492 int m = 0;
100493 PyObject *m_capi = Py_None(&_Py_NoneStruct);
100494 int n = 0;
100495 PyObject *n_capi = Py_None(&_Py_NoneStruct);
100496 complex_double a;
100497 int lda = 0;
100498 complex_double tau;
100499 complex_double work;
100500 PyObject *work_capi = Py_None(&_Py_NoneStruct);
100501 int lwork = 0;
100502 int info = 0;
100503 static char *capi_kwlist[] = {"m","n",NULL((void*)0)};
100504
100505/*routdebugenter*/
100506#ifdef F2PY_REPORT_ATEXIT
100507f2py_start_clock();
100508#endif
100509 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
100510 "OO:_flapack.ztzrzf_lwork",\
100511 capi_kwlist,&m_capi,&n_capi))
100512 return NULL((void*)0);
100513/*frompyobj*/
100514 /* Processing variable m */
100515 f2py_success = int_from_pyobj(&m,m_capi,"_flapack.ztzrzf_lwork() 1st argument (m) can't be converted to int");
100516 if (f2py_success) {
100517 /* Processing variable n */
100518 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.ztzrzf_lwork() 2nd argument (n) can't be converted to int");
100519 if (f2py_success) {
100520 /* Processing variable a */
100521 /* Processing variable tau */
100522 /* Processing variable lwork */
100523 lwork = -1;
100524 /* Processing variable work */
100525 /* Processing variable info */
100526 /* Processing variable lda */
100527 lda = MAX(m,1)((m > 1) ? (m) : (1));
100528/*end of frompyobj*/
100529#ifdef F2PY_REPORT_ATEXIT
100530f2py_start_call_clock();
100531#endif
100532/*callfortranroutine*/
100533 (*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info) ;
100534 /*(*f2py_func)(&m,&n,&a,&lda,&tau,&work,&lwork,&info);*/
100535if (PyErr_Occurred())
100536 f2py_success = 0;
100537#ifdef F2PY_REPORT_ATEXIT
100538f2py_stop_call_clock();
100539#endif
100540/*end of callfortranroutine*/
100541 if (f2py_success) {
100542/*pyobjfrom*/
100543 work_capi = pyobj_from_complex_double1(work)(PyComplex_FromDoubles(work.r,work.i));
100544/*end of pyobjfrom*/
100545 CFUNCSMESS("Building return value.\n");
100546 capi_buildvalue = Py_BuildValue("Ni",work_capi,info);
100547/*closepyobjfrom*/
100548/*end of closepyobjfrom*/
100549 } /*if (f2py_success) after callfortranroutine*/
100550/*cleanupfrompyobj*/
100551 /* End of cleaning variable lda */
100552 /* End of cleaning variable info */
100553 /* End of cleaning variable work */
100554 /* End of cleaning variable lwork */
100555 /* End of cleaning variable tau */
100556 /* End of cleaning variable a */
100557 } /*if (f2py_success) of n*/
100558 /* End of cleaning variable n */
100559 } /*if (f2py_success) of m*/
100560 /* End of cleaning variable m */
100561/*end of cleanupfrompyobj*/
100562 if (capi_buildvalue == NULL((void*)0)) {
100563/*routdebugfailure*/
100564 } else {
100565/*routdebugleave*/
100566 }
100567 CFUNCSMESS("Freeing memory.\n");
100568/*freemem*/
100569#ifdef F2PY_REPORT_ATEXIT
100570f2py_stop_clock();
100571#endif
100572 return capi_buildvalue;
100573}
100574/**************************** end of ztzrzf_lwork ****************************/
100575
100576/*********************************** slasd4 ***********************************/
100577static char doc_f2py_rout__flapack_slasd4[] = "\
100578delta,sigma,work,info = slasd4(i,d,z,[rho])\n\nWrapper for ``slasd4``.\
100579\n\nParameters\n----------\n"
100580"i : input int\n"
100581"d : input rank-1 array('f') with bounds (n)\n"
100582"z : input rank-1 array('f') with bounds (n)\n"
100583"\nOther Parameters\n----------------\n"
100584"rho : input float, optional\n Default: 1.0\n"
100585"\nReturns\n-------\n"
100586"delta : rank-1 array('f') with bounds (n)\n"
100587"sigma : float\n"
100588"work : rank-1 array('f') with bounds (n)\n"
100589"info : int";
100590/* extern void F_FUNC(slasd4,SLASD4)(F_INT*, F_INT*, float*, float*, float*, float*, float*, float*, F_INT* ); */
100591static PyObject *f2py_rout__flapack_slasd4(const PyObject *capi_self,
100592 PyObject *capi_args,
100593 PyObject *capi_keywds,
100594 void (*f2py_func)(F_INTint*, F_INTint*, float*, float*, float*, float*, float*, float*, F_INTint* )) {
100595 PyObject * volatile capi_buildvalue = NULL((void*)0);
100596 volatile int f2py_success = 1;
100597/*decl*/
100598
100599 int n = 0;
100600 int i = 0;
100601 PyObject *i_capi = Py_None(&_Py_NoneStruct);
100602 float *d = NULL((void*)0);
100603 npy_intp d_Dims[1] = {-1};
100604 const int d_Rank = 1;
100605 PyArrayObject *capi_d_tmp = NULL((void*)0);
100606 int capi_d_intent = 0;
100607 PyObject *d_capi = Py_None(&_Py_NoneStruct);
100608 float *z = NULL((void*)0);
100609 npy_intp z_Dims[1] = {-1};
100610 const int z_Rank = 1;
100611 PyArrayObject *capi_z_tmp = NULL((void*)0);
100612 int capi_z_intent = 0;
100613 PyObject *z_capi = Py_None(&_Py_NoneStruct);
100614 float *delta = NULL((void*)0);
100615 npy_intp delta_Dims[1] = {-1};
100616 const int delta_Rank = 1;
100617 PyArrayObject *capi_delta_tmp = NULL((void*)0);
100618 int capi_delta_intent = 0;
100619 float rho = 0;
100620 PyObject *rho_capi = Py_None(&_Py_NoneStruct);
100621 float sigma = 0;
100622 float *work = NULL((void*)0);
100623 npy_intp work_Dims[1] = {-1};
100624 const int work_Rank = 1;
100625 PyArrayObject *capi_work_tmp = NULL((void*)0);
100626 int capi_work_intent = 0;
100627 int info = 0;
100628 static char *capi_kwlist[] = {"i","d","z","rho",NULL((void*)0)};
100629
100630/*routdebugenter*/
100631#ifdef F2PY_REPORT_ATEXIT
100632f2py_start_clock();
100633#endif
100634 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
100635 "OOO|O:_flapack.slasd4",\
100636 capi_kwlist,&i_capi,&d_capi,&z_capi,&rho_capi))
100637 return NULL((void*)0);
100638/*frompyobj*/
100639 /* Processing variable d */
100640 ;
100641 capi_d_intent |= F2PY_INTENT_IN1;
100642 capi_d_tmp = array_from_pyobj(NPY_FLOAT,d_Dims,d_Rank,capi_d_intent,d_capi);
100643 if (capi_d_tmp == NULL((void*)0)) {
100644 if (!PyErr_Occurred())
100645 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.slasd4 to C/Fortran array" );
100646 } else {
100647 d = (float *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
100648
100649 /* Processing variable sigma */
100650 /* Processing variable rho */
100651 if (rho_capi == Py_None(&_Py_NoneStruct)) rho = 1.0; else
100652 f2py_success = float_from_pyobj(&rho,rho_capi,"_flapack.slasd4() 1st keyword (rho) can't be converted to float");
100653 if (f2py_success) {
100654 /* Processing variable info */
100655 /* Processing variable n */
100656 n = shape(d,0)d_Dims[0];
100657 /* Processing variable i */
100658 f2py_success = int_from_pyobj(&i,i_capi,"_flapack.slasd4() 1st argument (i) can't be converted to int");
100659 if (f2py_success) {
100660 CHECKSCALAR(i>=0 && i<=(shape(d,0)-1),"i>=0 && i<=(shape(d,0)-1)","1st argument i","slasd4:i=%d",i)if (!(i>=0 && i<=(d_Dims[0]-1))) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""slasd4:i=%d", "(""i>=0 && i<=(shape(d,0)-1)"
") failed for ""1st argument i", i); PyErr_SetString(_flapack_error
,errstring); } else
{
100661 /* Processing variable z */
100662 z_Dims[0]=n;
100663 capi_z_intent |= F2PY_INTENT_IN1;
100664 capi_z_tmp = array_from_pyobj(NPY_FLOAT,z_Dims,z_Rank,capi_z_intent,z_capi);
100665 if (capi_z_tmp == NULL((void*)0)) {
100666 if (!PyErr_Occurred())
100667 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `z' of _flapack.slasd4 to C/Fortran array" );
100668 } else {
100669 z = (float *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
100670
100671 /* Processing variable delta */
100672 delta_Dims[0]=n;
100673 capi_delta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
100674 capi_delta_tmp = array_from_pyobj(NPY_FLOAT,delta_Dims,delta_Rank,capi_delta_intent,Py_None(&_Py_NoneStruct));
100675 if (capi_delta_tmp == NULL((void*)0)) {
100676 if (!PyErr_Occurred())
100677 PyErr_SetString(_flapack_error,"failed in converting hidden `delta' of _flapack.slasd4 to C/Fortran array" );
100678 } else {
100679 delta = (float *)(PyArray_DATA(capi_delta_tmp)((void *)((PyArrayObject_fields *)(capi_delta_tmp))->data));
100680
100681 /* Processing variable work */
100682 work_Dims[0]=n;
100683 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
100684 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
100685 if (capi_work_tmp == NULL((void*)0)) {
100686 if (!PyErr_Occurred())
100687 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.slasd4 to C/Fortran array" );
100688 } else {
100689 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
100690
100691/*end of frompyobj*/
100692#ifdef F2PY_REPORT_ATEXIT
100693f2py_start_call_clock();
100694#endif
100695/*callfortranroutine*/
100696 { i++; (*f2py_func)( &n, &i, d, z, delta, &rho, &sigma, work, &info); } ;
100697 /*(*f2py_func)(&n,&i,d,z,delta,&rho,&sigma,work,&info);*/
100698if (PyErr_Occurred())
100699 f2py_success = 0;
100700#ifdef F2PY_REPORT_ATEXIT
100701f2py_stop_call_clock();
100702#endif
100703/*end of callfortranroutine*/
100704 if (f2py_success) {
100705/*pyobjfrom*/
100706/*end of pyobjfrom*/
100707 CFUNCSMESS("Building return value.\n");
100708 capi_buildvalue = Py_BuildValue("NfNi",capi_delta_tmp,sigma,capi_work_tmp,info);
100709/*closepyobjfrom*/
100710/*end of closepyobjfrom*/
100711 } /*if (f2py_success) after callfortranroutine*/
100712/*cleanupfrompyobj*/
100713 } /*if (capi_work_tmp == NULL) ... else of work*/
100714 /* End of cleaning variable work */
100715 } /*if (capi_delta_tmp == NULL) ... else of delta*/
100716 /* End of cleaning variable delta */
100717 if((PyObject *)capi_z_tmp!=z_capi) {
100718 Py_XDECREF(capi_z_tmp)_Py_XDECREF(((PyObject*)(capi_z_tmp))); }
100719 } /*if (capi_z_tmp == NULL) ... else of z*/
100720 /* End of cleaning variable z */
100721 } /*CHECKSCALAR(i>=0 && i<=(shape(d,0)-1))*/
100722 } /*if (f2py_success) of i*/
100723 /* End of cleaning variable i */
100724 /* End of cleaning variable n */
100725 /* End of cleaning variable info */
100726 } /*if (f2py_success) of rho*/
100727 /* End of cleaning variable rho */
100728 /* End of cleaning variable sigma */
100729 if((PyObject *)capi_d_tmp!=d_capi) {
100730 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
100731 } /*if (capi_d_tmp == NULL) ... else of d*/
100732 /* End of cleaning variable d */
100733/*end of cleanupfrompyobj*/
100734 if (capi_buildvalue == NULL((void*)0)) {
100735/*routdebugfailure*/
100736 } else {
100737/*routdebugleave*/
100738 }
100739 CFUNCSMESS("Freeing memory.\n");
100740/*freemem*/
100741#ifdef F2PY_REPORT_ATEXIT
100742f2py_stop_clock();
100743#endif
100744 return capi_buildvalue;
100745}
100746/******************************* end of slasd4 *******************************/
100747
100748/*********************************** dlasd4 ***********************************/
100749static char doc_f2py_rout__flapack_dlasd4[] = "\
100750delta,sigma,work,info = dlasd4(i,d,z,[rho])\n\nWrapper for ``dlasd4``.\
100751\n\nParameters\n----------\n"
100752"i : input int\n"
100753"d : input rank-1 array('d') with bounds (n)\n"
100754"z : input rank-1 array('d') with bounds (n)\n"
100755"\nOther Parameters\n----------------\n"
100756"rho : input float, optional\n Default: 1.0\n"
100757"\nReturns\n-------\n"
100758"delta : rank-1 array('d') with bounds (n)\n"
100759"sigma : float\n"
100760"work : rank-1 array('d') with bounds (n)\n"
100761"info : int";
100762/* extern void F_FUNC(dlasd4,DLASD4)(F_INT*, F_INT*, double*, double*, double*, double*, double*, double*, F_INT* ); */
100763static PyObject *f2py_rout__flapack_dlasd4(const PyObject *capi_self,
100764 PyObject *capi_args,
100765 PyObject *capi_keywds,
100766 void (*f2py_func)(F_INTint*, F_INTint*, double*, double*, double*, double*, double*, double*, F_INTint* )) {
100767 PyObject * volatile capi_buildvalue = NULL((void*)0);
100768 volatile int f2py_success = 1;
100769/*decl*/
100770
100771 int n = 0;
100772 int i = 0;
100773 PyObject *i_capi = Py_None(&_Py_NoneStruct);
100774 double *d = NULL((void*)0);
100775 npy_intp d_Dims[1] = {-1};
100776 const int d_Rank = 1;
100777 PyArrayObject *capi_d_tmp = NULL((void*)0);
100778 int capi_d_intent = 0;
100779 PyObject *d_capi = Py_None(&_Py_NoneStruct);
100780 double *z = NULL((void*)0);
100781 npy_intp z_Dims[1] = {-1};
100782 const int z_Rank = 1;
100783 PyArrayObject *capi_z_tmp = NULL((void*)0);
100784 int capi_z_intent = 0;
100785 PyObject *z_capi = Py_None(&_Py_NoneStruct);
100786 double *delta = NULL((void*)0);
100787 npy_intp delta_Dims[1] = {-1};
100788 const int delta_Rank = 1;
100789 PyArrayObject *capi_delta_tmp = NULL((void*)0);
100790 int capi_delta_intent = 0;
100791 double rho = 0;
100792 PyObject *rho_capi = Py_None(&_Py_NoneStruct);
100793 double sigma = 0;
100794 double *work = NULL((void*)0);
100795 npy_intp work_Dims[1] = {-1};
100796 const int work_Rank = 1;
100797 PyArrayObject *capi_work_tmp = NULL((void*)0);
100798 int capi_work_intent = 0;
100799 int info = 0;
100800 static char *capi_kwlist[] = {"i","d","z","rho",NULL((void*)0)};
100801
100802/*routdebugenter*/
100803#ifdef F2PY_REPORT_ATEXIT
100804f2py_start_clock();
100805#endif
100806 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
100807 "OOO|O:_flapack.dlasd4",\
100808 capi_kwlist,&i_capi,&d_capi,&z_capi,&rho_capi))
100809 return NULL((void*)0);
100810/*frompyobj*/
100811 /* Processing variable d */
100812 ;
100813 capi_d_intent |= F2PY_INTENT_IN1;
100814 capi_d_tmp = array_from_pyobj(NPY_DOUBLE,d_Dims,d_Rank,capi_d_intent,d_capi);
100815 if (capi_d_tmp == NULL((void*)0)) {
100816 if (!PyErr_Occurred())
100817 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `d' of _flapack.dlasd4 to C/Fortran array" );
100818 } else {
100819 d = (double *)(PyArray_DATA(capi_d_tmp)((void *)((PyArrayObject_fields *)(capi_d_tmp))->data));
100820
100821 /* Processing variable sigma */
100822 /* Processing variable rho */
100823 if (rho_capi == Py_None(&_Py_NoneStruct)) rho = 1.0; else
100824 f2py_success = double_from_pyobj(&rho,rho_capi,"_flapack.dlasd4() 1st keyword (rho) can't be converted to double");
100825 if (f2py_success) {
100826 /* Processing variable info */
100827 /* Processing variable n */
100828 n = shape(d,0)d_Dims[0];
100829 /* Processing variable i */
100830 f2py_success = int_from_pyobj(&i,i_capi,"_flapack.dlasd4() 1st argument (i) can't be converted to int");
100831 if (f2py_success) {
100832 CHECKSCALAR(i>=0 && i<=(shape(d,0)-1),"i>=0 && i<=(shape(d,0)-1)","1st argument i","dlasd4:i=%d",i)if (!(i>=0 && i<=(d_Dims[0]-1))) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dlasd4:i=%d", "(""i>=0 && i<=(shape(d,0)-1)"
") failed for ""1st argument i", i); PyErr_SetString(_flapack_error
,errstring); } else
{
100833 /* Processing variable z */
100834 z_Dims[0]=n;
100835 capi_z_intent |= F2PY_INTENT_IN1;
100836 capi_z_tmp = array_from_pyobj(NPY_DOUBLE,z_Dims,z_Rank,capi_z_intent,z_capi);
100837 if (capi_z_tmp == NULL((void*)0)) {
100838 if (!PyErr_Occurred())
100839 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `z' of _flapack.dlasd4 to C/Fortran array" );
100840 } else {
100841 z = (double *)(PyArray_DATA(capi_z_tmp)((void *)((PyArrayObject_fields *)(capi_z_tmp))->data));
100842
100843 /* Processing variable delta */
100844 delta_Dims[0]=n;
100845 capi_delta_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
100846 capi_delta_tmp = array_from_pyobj(NPY_DOUBLE,delta_Dims,delta_Rank,capi_delta_intent,Py_None(&_Py_NoneStruct));
100847 if (capi_delta_tmp == NULL((void*)0)) {
100848 if (!PyErr_Occurred())
100849 PyErr_SetString(_flapack_error,"failed in converting hidden `delta' of _flapack.dlasd4 to C/Fortran array" );
100850 } else {
100851 delta = (double *)(PyArray_DATA(capi_delta_tmp)((void *)((PyArrayObject_fields *)(capi_delta_tmp))->data));
100852
100853 /* Processing variable work */
100854 work_Dims[0]=n;
100855 capi_work_intent |= F2PY_INTENT_OUT4|F2PY_INTENT_HIDE8;
100856 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
100857 if (capi_work_tmp == NULL((void*)0)) {
100858 if (!PyErr_Occurred())
100859 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dlasd4 to C/Fortran array" );
100860 } else {
100861 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
100862
100863/*end of frompyobj*/
100864#ifdef F2PY_REPORT_ATEXIT
100865f2py_start_call_clock();
100866#endif
100867/*callfortranroutine*/
100868 { i++; (*f2py_func)( &n, &i, d, z, delta, &rho, &sigma, work, &info); } ;
100869 /*(*f2py_func)(&n,&i,d,z,delta,&rho,&sigma,work,&info);*/
100870if (PyErr_Occurred())
100871 f2py_success = 0;
100872#ifdef F2PY_REPORT_ATEXIT
100873f2py_stop_call_clock();
100874#endif
100875/*end of callfortranroutine*/
100876 if (f2py_success) {
100877/*pyobjfrom*/
100878/*end of pyobjfrom*/
100879 CFUNCSMESS("Building return value.\n");
100880 capi_buildvalue = Py_BuildValue("NdNi",capi_delta_tmp,sigma,capi_work_tmp,info);
100881/*closepyobjfrom*/
100882/*end of closepyobjfrom*/
100883 } /*if (f2py_success) after callfortranroutine*/
100884/*cleanupfrompyobj*/
100885 } /*if (capi_work_tmp == NULL) ... else of work*/
100886 /* End of cleaning variable work */
100887 } /*if (capi_delta_tmp == NULL) ... else of delta*/
100888 /* End of cleaning variable delta */
100889 if((PyObject *)capi_z_tmp!=z_capi) {
100890 Py_XDECREF(capi_z_tmp)_Py_XDECREF(((PyObject*)(capi_z_tmp))); }
100891 } /*if (capi_z_tmp == NULL) ... else of z*/
100892 /* End of cleaning variable z */
100893 } /*CHECKSCALAR(i>=0 && i<=(shape(d,0)-1))*/
100894 } /*if (f2py_success) of i*/
100895 /* End of cleaning variable i */
100896 /* End of cleaning variable n */
100897 /* End of cleaning variable info */
100898 } /*if (f2py_success) of rho*/
100899 /* End of cleaning variable rho */
100900 /* End of cleaning variable sigma */
100901 if((PyObject *)capi_d_tmp!=d_capi) {
100902 Py_XDECREF(capi_d_tmp)_Py_XDECREF(((PyObject*)(capi_d_tmp))); }
100903 } /*if (capi_d_tmp == NULL) ... else of d*/
100904 /* End of cleaning variable d */
100905/*end of cleanupfrompyobj*/
100906 if (capi_buildvalue == NULL((void*)0)) {
100907/*routdebugfailure*/
100908 } else {
100909/*routdebugleave*/
100910 }
100911 CFUNCSMESS("Freeing memory.\n");
100912/*freemem*/
100913#ifdef F2PY_REPORT_ATEXIT
100914f2py_stop_clock();
100915#endif
100916 return capi_buildvalue;
100917}
100918/******************************* end of dlasd4 *******************************/
100919
100920/*********************************** slauum ***********************************/
100921static char doc_f2py_rout__flapack_slauum[] = "\
100922a,info = slauum(c,[lower,overwrite_c])\n\nWrapper for ``slauum``.\
100923\n\nParameters\n----------\n"
100924"c : input rank-2 array('f') with bounds (n,n)\n"
100925"\nOther Parameters\n----------------\n"
100926"overwrite_c : input int, optional\n Default: 0\n"
100927"lower : input int, optional\n Default: 0\n"
100928"\nReturns\n-------\n"
100929"a : rank-2 array('f') with bounds (n,n) and c storage\n"
100930"info : int";
100931/* extern void F_FUNC(slauum,SLAUUM)(char*,F_INT*,float*,F_INT*,F_INT* ); */
100932static PyObject *f2py_rout__flapack_slauum(const PyObject *capi_self,
100933 PyObject *capi_args,
100934 PyObject *capi_keywds,
100935 void (*f2py_func)(char*,F_INTint*,float*,F_INTint*,F_INTint* )) {
100936 PyObject * volatile capi_buildvalue = NULL((void*)0);
100937 volatile int f2py_success = 1;
100938/*decl*/
100939
100940 int n = 0;
100941 float *c = NULL((void*)0);
100942 npy_intp c_Dims[2] = {-1, -1};
100943 const int c_Rank = 2;
100944 PyArrayObject *capi_c_tmp = NULL((void*)0);
100945 int capi_c_intent = 0;
100946 int capi_overwrite_c = 0;
100947 PyObject *c_capi = Py_None(&_Py_NoneStruct);
100948 int info = 0;
100949 int lower = 0;
100950 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
100951 static char *capi_kwlist[] = {"c","lower","overwrite_c",NULL((void*)0)};
100952
100953/*routdebugenter*/
100954#ifdef F2PY_REPORT_ATEXIT
100955f2py_start_clock();
100956#endif
100957 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
100958 "O|Oi:_flapack.slauum",\
100959 capi_kwlist,&c_capi,&lower_capi,&capi_overwrite_c))
100960 return NULL((void*)0);
100961/*frompyobj*/
100962 /* Processing variable lower */
100963 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
100964 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.slauum() 1st keyword (lower) can't be converted to int");
100965 if (f2py_success) {
100966 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","slauum:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""slauum:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
100967 /* Processing variable c */
100968 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
100969 ;
100970 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
100971 capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
100972 if (capi_c_tmp == NULL((void*)0)) {
100973 if (!PyErr_Occurred())
100974 PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.slauum to C/Fortran array" );
100975 } else {
100976 c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
100977
100978 CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c");
} else
{
100979 /* Processing variable info */
100980 /* Processing variable n */
100981 n = shape(c,0)c_Dims[0];
100982/*end of frompyobj*/
100983#ifdef F2PY_REPORT_ATEXIT
100984f2py_start_call_clock();
100985#endif
100986/*callfortranroutine*/
100987 (*f2py_func)((lower?"L":"U"),&n,c,&n,&info) ;
100988 /*(*f2py_func)(&n,c,&info,&lower);*/
100989if (PyErr_Occurred())
100990 f2py_success = 0;
100991#ifdef F2PY_REPORT_ATEXIT
100992f2py_stop_call_clock();
100993#endif
100994/*end of callfortranroutine*/
100995 if (f2py_success) {
100996/*pyobjfrom*/
100997/*end of pyobjfrom*/
100998 CFUNCSMESS("Building return value.\n");
100999 capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info);
101000/*closepyobjfrom*/
101001/*end of closepyobjfrom*/
101002 } /*if (f2py_success) after callfortranroutine*/
101003/*cleanupfrompyobj*/
101004 /* End of cleaning variable n */
101005 /* End of cleaning variable info */
101006 } /*CHECKARRAY(shape(c,0)==shape(c,1))*/
101007 } /*if (capi_c_tmp == NULL) ... else of c*/
101008 /* End of cleaning variable c */
101009 } /*CHECKSCALAR(lower==0||lower==1)*/
101010 } /*if (f2py_success) of lower*/
101011 /* End of cleaning variable lower */
101012/*end of cleanupfrompyobj*/
101013 if (capi_buildvalue == NULL((void*)0)) {
101014/*routdebugfailure*/
101015 } else {
101016/*routdebugleave*/
101017 }
101018 CFUNCSMESS("Freeing memory.\n");
101019/*freemem*/
101020#ifdef F2PY_REPORT_ATEXIT
101021f2py_stop_clock();
101022#endif
101023 return capi_buildvalue;
101024}
101025/******************************* end of slauum *******************************/
101026
101027/*********************************** dlauum ***********************************/
101028static char doc_f2py_rout__flapack_dlauum[] = "\
101029a,info = dlauum(c,[lower,overwrite_c])\n\nWrapper for ``dlauum``.\
101030\n\nParameters\n----------\n"
101031"c : input rank-2 array('d') with bounds (n,n)\n"
101032"\nOther Parameters\n----------------\n"
101033"overwrite_c : input int, optional\n Default: 0\n"
101034"lower : input int, optional\n Default: 0\n"
101035"\nReturns\n-------\n"
101036"a : rank-2 array('d') with bounds (n,n) and c storage\n"
101037"info : int";
101038/* extern void F_FUNC(dlauum,DLAUUM)(char*,F_INT*,double*,F_INT*,F_INT* ); */
101039static PyObject *f2py_rout__flapack_dlauum(const PyObject *capi_self,
101040 PyObject *capi_args,
101041 PyObject *capi_keywds,
101042 void (*f2py_func)(char*,F_INTint*,double*,F_INTint*,F_INTint* )) {
101043 PyObject * volatile capi_buildvalue = NULL((void*)0);
101044 volatile int f2py_success = 1;
101045/*decl*/
101046
101047 int n = 0;
101048 double *c = NULL((void*)0);
101049 npy_intp c_Dims[2] = {-1, -1};
101050 const int c_Rank = 2;
101051 PyArrayObject *capi_c_tmp = NULL((void*)0);
101052 int capi_c_intent = 0;
101053 int capi_overwrite_c = 0;
101054 PyObject *c_capi = Py_None(&_Py_NoneStruct);
101055 int info = 0;
101056 int lower = 0;
101057 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
101058 static char *capi_kwlist[] = {"c","lower","overwrite_c",NULL((void*)0)};
101059
101060/*routdebugenter*/
101061#ifdef F2PY_REPORT_ATEXIT
101062f2py_start_clock();
101063#endif
101064 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
101065 "O|Oi:_flapack.dlauum",\
101066 capi_kwlist,&c_capi,&lower_capi,&capi_overwrite_c))
101067 return NULL((void*)0);
101068/*frompyobj*/
101069 /* Processing variable lower */
101070 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
101071 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.dlauum() 1st keyword (lower) can't be converted to int");
101072 if (f2py_success) {
101073 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","dlauum:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dlauum:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
101074 /* Processing variable c */
101075 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
101076 ;
101077 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
101078 capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
101079 if (capi_c_tmp == NULL((void*)0)) {
101080 if (!PyErr_Occurred())
101081 PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.dlauum to C/Fortran array" );
101082 } else {
101083 c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
101084
101085 CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c");
} else
{
101086 /* Processing variable info */
101087 /* Processing variable n */
101088 n = shape(c,0)c_Dims[0];
101089/*end of frompyobj*/
101090#ifdef F2PY_REPORT_ATEXIT
101091f2py_start_call_clock();
101092#endif
101093/*callfortranroutine*/
101094 (*f2py_func)((lower?"L":"U"),&n,c,&n,&info) ;
101095 /*(*f2py_func)(&n,c,&info,&lower);*/
101096if (PyErr_Occurred())
101097 f2py_success = 0;
101098#ifdef F2PY_REPORT_ATEXIT
101099f2py_stop_call_clock();
101100#endif
101101/*end of callfortranroutine*/
101102 if (f2py_success) {
101103/*pyobjfrom*/
101104/*end of pyobjfrom*/
101105 CFUNCSMESS("Building return value.\n");
101106 capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info);
101107/*closepyobjfrom*/
101108/*end of closepyobjfrom*/
101109 } /*if (f2py_success) after callfortranroutine*/
101110/*cleanupfrompyobj*/
101111 /* End of cleaning variable n */
101112 /* End of cleaning variable info */
101113 } /*CHECKARRAY(shape(c,0)==shape(c,1))*/
101114 } /*if (capi_c_tmp == NULL) ... else of c*/
101115 /* End of cleaning variable c */
101116 } /*CHECKSCALAR(lower==0||lower==1)*/
101117 } /*if (f2py_success) of lower*/
101118 /* End of cleaning variable lower */
101119/*end of cleanupfrompyobj*/
101120 if (capi_buildvalue == NULL((void*)0)) {
101121/*routdebugfailure*/
101122 } else {
101123/*routdebugleave*/
101124 }
101125 CFUNCSMESS("Freeing memory.\n");
101126/*freemem*/
101127#ifdef F2PY_REPORT_ATEXIT
101128f2py_stop_clock();
101129#endif
101130 return capi_buildvalue;
101131}
101132/******************************* end of dlauum *******************************/
101133
101134/*********************************** clauum ***********************************/
101135static char doc_f2py_rout__flapack_clauum[] = "\
101136a,info = clauum(c,[lower,overwrite_c])\n\nWrapper for ``clauum``.\
101137\n\nParameters\n----------\n"
101138"c : input rank-2 array('F') with bounds (n,n)\n"
101139"\nOther Parameters\n----------------\n"
101140"overwrite_c : input int, optional\n Default: 0\n"
101141"lower : input int, optional\n Default: 0\n"
101142"\nReturns\n-------\n"
101143"a : rank-2 array('F') with bounds (n,n) and c storage\n"
101144"info : int";
101145/* extern void F_FUNC(clauum,CLAUUM)(char*,F_INT*,complex_float*,F_INT*,F_INT* ); */
101146static PyObject *f2py_rout__flapack_clauum(const PyObject *capi_self,
101147 PyObject *capi_args,
101148 PyObject *capi_keywds,
101149 void (*f2py_func)(char*,F_INTint*,complex_float*,F_INTint*,F_INTint* )) {
101150 PyObject * volatile capi_buildvalue = NULL((void*)0);
101151 volatile int f2py_success = 1;
101152/*decl*/
101153
101154 int n = 0;
101155 complex_float *c = NULL((void*)0);
101156 npy_intp c_Dims[2] = {-1, -1};
101157 const int c_Rank = 2;
101158 PyArrayObject *capi_c_tmp = NULL((void*)0);
101159 int capi_c_intent = 0;
101160 int capi_overwrite_c = 0;
101161 PyObject *c_capi = Py_None(&_Py_NoneStruct);
101162 int info = 0;
101163 int lower = 0;
101164 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
101165 static char *capi_kwlist[] = {"c","lower","overwrite_c",NULL((void*)0)};
101166
101167/*routdebugenter*/
101168#ifdef F2PY_REPORT_ATEXIT
101169f2py_start_clock();
101170#endif
101171 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
101172 "O|Oi:_flapack.clauum",\
101173 capi_kwlist,&c_capi,&lower_capi,&capi_overwrite_c))
101174 return NULL((void*)0);
101175/*frompyobj*/
101176 /* Processing variable lower */
101177 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
101178 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.clauum() 1st keyword (lower) can't be converted to int");
101179 if (f2py_success) {
101180 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","clauum:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""clauum:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
101181 /* Processing variable c */
101182 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
101183 ;
101184 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
101185 capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
101186 if (capi_c_tmp == NULL((void*)0)) {
101187 if (!PyErr_Occurred())
101188 PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.clauum to C/Fortran array" );
101189 } else {
101190 c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
101191
101192 CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c");
} else
{
101193 /* Processing variable info */
101194 /* Processing variable n */
101195 n = shape(c,0)c_Dims[0];
101196/*end of frompyobj*/
101197#ifdef F2PY_REPORT_ATEXIT
101198f2py_start_call_clock();
101199#endif
101200/*callfortranroutine*/
101201 (*f2py_func)((lower?"L":"U"),&n,c,&n,&info) ;
101202 /*(*f2py_func)(&n,c,&info,&lower);*/
101203if (PyErr_Occurred())
101204 f2py_success = 0;
101205#ifdef F2PY_REPORT_ATEXIT
101206f2py_stop_call_clock();
101207#endif
101208/*end of callfortranroutine*/
101209 if (f2py_success) {
101210/*pyobjfrom*/
101211/*end of pyobjfrom*/
101212 CFUNCSMESS("Building return value.\n");
101213 capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info);
101214/*closepyobjfrom*/
101215/*end of closepyobjfrom*/
101216 } /*if (f2py_success) after callfortranroutine*/
101217/*cleanupfrompyobj*/
101218 /* End of cleaning variable n */
101219 /* End of cleaning variable info */
101220 } /*CHECKARRAY(shape(c,0)==shape(c,1))*/
101221 } /*if (capi_c_tmp == NULL) ... else of c*/
101222 /* End of cleaning variable c */
101223 } /*CHECKSCALAR(lower==0||lower==1)*/
101224 } /*if (f2py_success) of lower*/
101225 /* End of cleaning variable lower */
101226/*end of cleanupfrompyobj*/
101227 if (capi_buildvalue == NULL((void*)0)) {
101228/*routdebugfailure*/
101229 } else {
101230/*routdebugleave*/
101231 }
101232 CFUNCSMESS("Freeing memory.\n");
101233/*freemem*/
101234#ifdef F2PY_REPORT_ATEXIT
101235f2py_stop_clock();
101236#endif
101237 return capi_buildvalue;
101238}
101239/******************************* end of clauum *******************************/
101240
101241/*********************************** zlauum ***********************************/
101242static char doc_f2py_rout__flapack_zlauum[] = "\
101243a,info = zlauum(c,[lower,overwrite_c])\n\nWrapper for ``zlauum``.\
101244\n\nParameters\n----------\n"
101245"c : input rank-2 array('D') with bounds (n,n)\n"
101246"\nOther Parameters\n----------------\n"
101247"overwrite_c : input int, optional\n Default: 0\n"
101248"lower : input int, optional\n Default: 0\n"
101249"\nReturns\n-------\n"
101250"a : rank-2 array('D') with bounds (n,n) and c storage\n"
101251"info : int";
101252/* extern void F_FUNC(zlauum,ZLAUUM)(char*,F_INT*,complex_double*,F_INT*,F_INT* ); */
101253static PyObject *f2py_rout__flapack_zlauum(const PyObject *capi_self,
101254 PyObject *capi_args,
101255 PyObject *capi_keywds,
101256 void (*f2py_func)(char*,F_INTint*,complex_double*,F_INTint*,F_INTint* )) {
101257 PyObject * volatile capi_buildvalue = NULL((void*)0);
101258 volatile int f2py_success = 1;
101259/*decl*/
101260
101261 int n = 0;
101262 complex_double *c = NULL((void*)0);
101263 npy_intp c_Dims[2] = {-1, -1};
101264 const int c_Rank = 2;
101265 PyArrayObject *capi_c_tmp = NULL((void*)0);
101266 int capi_c_intent = 0;
101267 int capi_overwrite_c = 0;
101268 PyObject *c_capi = Py_None(&_Py_NoneStruct);
101269 int info = 0;
101270 int lower = 0;
101271 PyObject *lower_capi = Py_None(&_Py_NoneStruct);
101272 static char *capi_kwlist[] = {"c","lower","overwrite_c",NULL((void*)0)};
101273
101274/*routdebugenter*/
101275#ifdef F2PY_REPORT_ATEXIT
101276f2py_start_clock();
101277#endif
101278 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
101279 "O|Oi:_flapack.zlauum",\
101280 capi_kwlist,&c_capi,&lower_capi,&capi_overwrite_c))
101281 return NULL((void*)0);
101282/*frompyobj*/
101283 /* Processing variable lower */
101284 if (lower_capi == Py_None(&_Py_NoneStruct)) lower = 0; else
101285 f2py_success = int_from_pyobj(&lower,lower_capi,"_flapack.zlauum() 1st keyword (lower) can't be converted to int");
101286 if (f2py_success) {
101287 CHECKSCALAR(lower==0||lower==1,"lower==0||lower==1","1st keyword lower","zlauum:lower=%d",lower)if (!(lower==0||lower==1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zlauum:lower=%d", "(""lower==0||lower==1"") failed for "
"1st keyword lower", lower); PyErr_SetString(_flapack_error,errstring
); } else
{
101288 /* Processing variable c */
101289 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
101290 ;
101291 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
101292 capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
101293 if (capi_c_tmp == NULL((void*)0)) {
101294 if (!PyErr_Occurred())
101295 PyErr_SetString(_flapack_error,"failed in converting 1st argument `c' of _flapack.zlauum to C/Fortran array" );
101296 } else {
101297 c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
101298
101299 CHECKARRAY(shape(c,0)==shape(c,1),"shape(c,0)==shape(c,1)","1st argument c")if (!(c_Dims[0]==c_Dims[1])) { PyErr_SetString(_flapack_error
,"(""shape(c,0)==shape(c,1)"") failed for ""1st argument c");
} else
{
101300 /* Processing variable info */
101301 /* Processing variable n */
101302 n = shape(c,0)c_Dims[0];
101303/*end of frompyobj*/
101304#ifdef F2PY_REPORT_ATEXIT
101305f2py_start_call_clock();
101306#endif
101307/*callfortranroutine*/
101308 (*f2py_func)((lower?"L":"U"),&n,c,&n,&info) ;
101309 /*(*f2py_func)(&n,c,&info,&lower);*/
101310if (PyErr_Occurred())
101311 f2py_success = 0;
101312#ifdef F2PY_REPORT_ATEXIT
101313f2py_stop_call_clock();
101314#endif
101315/*end of callfortranroutine*/
101316 if (f2py_success) {
101317/*pyobjfrom*/
101318/*end of pyobjfrom*/
101319 CFUNCSMESS("Building return value.\n");
101320 capi_buildvalue = Py_BuildValue("Ni",capi_c_tmp,info);
101321/*closepyobjfrom*/
101322/*end of closepyobjfrom*/
101323 } /*if (f2py_success) after callfortranroutine*/
101324/*cleanupfrompyobj*/
101325 /* End of cleaning variable n */
101326 /* End of cleaning variable info */
101327 } /*CHECKARRAY(shape(c,0)==shape(c,1))*/
101328 } /*if (capi_c_tmp == NULL) ... else of c*/
101329 /* End of cleaning variable c */
101330 } /*CHECKSCALAR(lower==0||lower==1)*/
101331 } /*if (f2py_success) of lower*/
101332 /* End of cleaning variable lower */
101333/*end of cleanupfrompyobj*/
101334 if (capi_buildvalue == NULL((void*)0)) {
101335/*routdebugfailure*/
101336 } else {
101337/*routdebugleave*/
101338 }
101339 CFUNCSMESS("Freeing memory.\n");
101340/*freemem*/
101341#ifdef F2PY_REPORT_ATEXIT
101342f2py_stop_clock();
101343#endif
101344 return capi_buildvalue;
101345}
101346/******************************* end of zlauum *******************************/
101347
101348/*********************************** slaswp ***********************************/
101349static char doc_f2py_rout__flapack_slaswp[] = "\
101350a = slaswp(a,piv,[k1,k2,off,inc,overwrite_a])\n\nWrapper for ``slaswp``.\
101351\n\nParameters\n----------\n"
101352"a : input rank-2 array('f') with bounds (nrows,n)\n"
101353"piv : input rank-1 array('i') with bounds (npiv)\n"
101354"\nOther Parameters\n----------------\n"
101355"overwrite_a : input int, optional\n Default: 0\n"
101356"k1 : input int, optional\n Default: 0\n"
101357"k2 : input int, optional\n Default: npiv-1\n"
101358"off : input int, optional\n Default: 0\n"
101359"inc : input int, optional\n Default: 1\n"
101360"\nReturns\n-------\n"
101361"a : rank-2 array('f') with bounds (nrows,n)";
101362/* extern void F_FUNC(slaswp,SLASWP)(F_INT*,float*,F_INT*,F_INT*,F_INT*,F_INT*,F_INT* ); */
101363static PyObject *f2py_rout__flapack_slaswp(const PyObject *capi_self,
101364 PyObject *capi_args,
101365 PyObject *capi_keywds,
101366 void (*f2py_func)(F_INTint*,float*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
101367 PyObject * volatile capi_buildvalue = NULL((void*)0);
101368 volatile int f2py_success = 1;
101369/*decl*/
101370
101371 int n = 0;
101372 float *a = NULL((void*)0);
101373 npy_intp a_Dims[2] = {-1, -1};
101374 const int a_Rank = 2;
101375 PyArrayObject *capi_a_tmp = NULL((void*)0);
101376 int capi_a_intent = 0;
101377 int capi_overwrite_a = 0;
101378 PyObject *a_capi = Py_None(&_Py_NoneStruct);
101379 int nrows = 0;
101380 int k1 = 0;
101381 PyObject *k1_capi = Py_None(&_Py_NoneStruct);
101382 int k2 = 0;
101383 PyObject *k2_capi = Py_None(&_Py_NoneStruct);
101384 int *piv = NULL((void*)0);
101385 npy_intp piv_Dims[1] = {-1};
101386 const int piv_Rank = 1;
101387 PyArrayObject *capi_piv_tmp = NULL((void*)0);
101388 int capi_piv_intent = 0;
101389 PyObject *piv_capi = Py_None(&_Py_NoneStruct);
101390 int off = 0;
101391 PyObject *off_capi = Py_None(&_Py_NoneStruct);
101392 int inc = 0;
101393 PyObject *inc_capi = Py_None(&_Py_NoneStruct);
101394 int m = 0;
101395 int npiv = 0;
101396 static char *capi_kwlist[] = {"a","piv","k1","k2","off","inc","overwrite_a",NULL((void*)0)};
101397
101398/*routdebugenter*/
101399#ifdef F2PY_REPORT_ATEXIT
101400f2py_start_clock();
101401#endif
101402 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
101403 "OO|OOOOi:_flapack.slaswp",\
101404 capi_kwlist,&a_capi,&piv_capi,&k1_capi,&k2_capi,&off_capi,&inc_capi,&capi_overwrite_a))
101405 return NULL((void*)0);
101406/*frompyobj*/
101407 /* Processing variable a */
101408 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
101409 ;
101410 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
101411 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
101412 if (capi_a_tmp == NULL((void*)0)) {
101413 if (!PyErr_Occurred())
101414 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.slaswp to C/Fortran array" );
101415 } else {
101416 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
101417
101418 /* Processing variable piv */
101419 ;
101420 capi_piv_intent |= F2PY_INTENT_IN1;
101421 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi);
101422 if (capi_piv_tmp == NULL((void*)0)) {
101423 if (!PyErr_Occurred())
101424 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.slaswp to C/Fortran array" );
101425 } else {
101426 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
101427
101428 /* Processing variable k1 */
101429 if (k1_capi == Py_None(&_Py_NoneStruct)) k1 = 0; else
101430 f2py_success = int_from_pyobj(&k1,k1_capi,"_flapack.slaswp() 1st keyword (k1) can't be converted to int");
101431 if (f2py_success) {
101432 CHECKSCALAR(0<=k1,"0<=k1","1st keyword k1","slaswp:k1=%d",k1)if (!(0<=k1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""slaswp:k1=%d", "(""0<=k1"") failed for ""1st keyword k1"
, k1); PyErr_SetString(_flapack_error,errstring); } else
{
101433 /* Processing variable inc */
101434 if (inc_capi == Py_None(&_Py_NoneStruct)) inc = 1; else
101435 f2py_success = int_from_pyobj(&inc,inc_capi,"_flapack.slaswp() 4th keyword (inc) can't be converted to int");
101436 if (f2py_success) {
101437 CHECKSCALAR(inc>0||inc<0,"inc>0||inc<0","4th keyword inc","slaswp:inc=%d",inc)if (!(inc>0||inc<0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""slaswp:inc=%d", "(""inc>0||inc<0"") failed for "
"4th keyword inc", inc); PyErr_SetString(_flapack_error,errstring
); } else
{
101438 /* Processing variable nrows */
101439 nrows = shape(a,0)a_Dims[0];
101440 /* Processing variable n */
101441 n = shape(a,1)a_Dims[1];
101442 /* Processing variable npiv */
101443 npiv = len(piv)piv_Dims[0];
101444 CHECKSCALAR(npiv<=nrows,"npiv<=nrows","hidden npiv","slaswp:npiv=%d",npiv)if (!(npiv<=nrows)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""slaswp:npiv=%d", "(""npiv<=nrows"") failed for "
"hidden npiv", npiv); PyErr_SetString(_flapack_error,errstring
); } else
{
101445 /* Processing variable off */
101446 if (off_capi == Py_None(&_Py_NoneStruct)) off = 0; else
101447 f2py_success = int_from_pyobj(&off,off_capi,"_flapack.slaswp() 3rd keyword (off) can't be converted to int");
101448 if (f2py_success) {
101449 CHECKSCALAR(off>=0 && off<len(piv),"off>=0 && off<len(piv)","3rd keyword off","slaswp:off=%d",off)if (!(off>=0 && off<piv_Dims[0])) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""slaswp:off=%d", "(""off>=0 && off<len(piv)"
") failed for ""3rd keyword off", off); PyErr_SetString(_flapack_error
,errstring); } else
{
101450 /* Processing variable m */
101451 m = (len(piv)piv_Dims[0]-off)/abs(inc);
101452 CHECKSCALAR(npiv-off>(m-1)*abs(inc),"npiv-off>(m-1)*abs(inc)","hidden m","slaswp:m=%d",m)if (!(npiv-off>(m-1)*abs(inc))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""slaswp:m=%d", "(""npiv-off>(m-1)*abs(inc)"") failed for "
"hidden m", m); PyErr_SetString(_flapack_error,errstring); } else
{
101453 /* Processing variable k2 */
101454 if (k2_capi == Py_None(&_Py_NoneStruct)) k2 = npiv-1; else
101455 f2py_success = int_from_pyobj(&k2,k2_capi,"_flapack.slaswp() 2nd keyword (k2) can't be converted to int");
101456 if (f2py_success) {
101457 CHECKSCALAR(k1<=k2 && k2<npiv-off,"k1<=k2 && k2<npiv-off","2nd keyword k2","slaswp:k2=%d",k2)if (!(k1<=k2 && k2<npiv-off)) { char errstring[
256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""slaswp:k2=%d", "(""k1<=k2 && k2<npiv-off"
") failed for ""2nd keyword k2", k2); PyErr_SetString(_flapack_error
,errstring); } else
{
101458/*end of frompyobj*/
101459#ifdef F2PY_REPORT_ATEXIT
101460f2py_start_call_clock();
101461#endif
101462/*callfortranroutine*/
101463 {F_INTint i;m=len(piv)piv_Dims[0];for(i=0;i<m;++piv[i++]);++k1;++k2; (*f2py_func)(&n,a,&nrows,&k1,&k2,piv+off,&inc); for(i=0;i<m;--piv[i++]);} ;
101464 /*(*f2py_func)(&n,a,&nrows,&k1,&k2,piv,&off,&inc,&m,&npiv);*/
101465if (PyErr_Occurred())
101466 f2py_success = 0;
101467#ifdef F2PY_REPORT_ATEXIT
101468f2py_stop_call_clock();
101469#endif
101470/*end of callfortranroutine*/
101471 if (f2py_success) {
101472/*pyobjfrom*/
101473/*end of pyobjfrom*/
101474 CFUNCSMESS("Building return value.\n");
101475 capi_buildvalue = Py_BuildValue("N",capi_a_tmp);
101476/*closepyobjfrom*/
101477/*end of closepyobjfrom*/
101478 } /*if (f2py_success) after callfortranroutine*/
101479/*cleanupfrompyobj*/
101480 } /*CHECKSCALAR(k1<=k2 && k2<npiv-off)*/
101481 } /*if (f2py_success) of k2*/
101482 /* End of cleaning variable k2 */
101483 } /*CHECKSCALAR(npiv-off>(m-1)*abs(inc))*/
101484 /* End of cleaning variable m */
101485 } /*CHECKSCALAR(off>=0 && off<len(piv))*/
101486 } /*if (f2py_success) of off*/
101487 /* End of cleaning variable off */
101488 } /*CHECKSCALAR(npiv<=nrows)*/
101489 /* End of cleaning variable npiv */
101490 /* End of cleaning variable n */
101491 /* End of cleaning variable nrows */
101492 } /*CHECKSCALAR(inc>0||inc<0)*/
101493 } /*if (f2py_success) of inc*/
101494 /* End of cleaning variable inc */
101495 } /*CHECKSCALAR(0<=k1)*/
101496 } /*if (f2py_success) of k1*/
101497 /* End of cleaning variable k1 */
101498 if((PyObject *)capi_piv_tmp!=piv_capi) {
101499 Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); }
101500 } /*if (capi_piv_tmp == NULL) ... else of piv*/
101501 /* End of cleaning variable piv */
101502 } /*if (capi_a_tmp == NULL) ... else of a*/
101503 /* End of cleaning variable a */
101504/*end of cleanupfrompyobj*/
101505 if (capi_buildvalue == NULL((void*)0)) {
101506/*routdebugfailure*/
101507 } else {
101508/*routdebugleave*/
101509 }
101510 CFUNCSMESS("Freeing memory.\n");
101511/*freemem*/
101512#ifdef F2PY_REPORT_ATEXIT
101513f2py_stop_clock();
101514#endif
101515 return capi_buildvalue;
101516}
101517/******************************* end of slaswp *******************************/
101518
101519/*********************************** dlaswp ***********************************/
101520static char doc_f2py_rout__flapack_dlaswp[] = "\
101521a = dlaswp(a,piv,[k1,k2,off,inc,overwrite_a])\n\nWrapper for ``dlaswp``.\
101522\n\nParameters\n----------\n"
101523"a : input rank-2 array('d') with bounds (nrows,n)\n"
101524"piv : input rank-1 array('i') with bounds (npiv)\n"
101525"\nOther Parameters\n----------------\n"
101526"overwrite_a : input int, optional\n Default: 0\n"
101527"k1 : input int, optional\n Default: 0\n"
101528"k2 : input int, optional\n Default: npiv-1\n"
101529"off : input int, optional\n Default: 0\n"
101530"inc : input int, optional\n Default: 1\n"
101531"\nReturns\n-------\n"
101532"a : rank-2 array('d') with bounds (nrows,n)";
101533/* extern void F_FUNC(dlaswp,DLASWP)(F_INT*,double*,F_INT*,F_INT*,F_INT*,F_INT*,F_INT* ); */
101534static PyObject *f2py_rout__flapack_dlaswp(const PyObject *capi_self,
101535 PyObject *capi_args,
101536 PyObject *capi_keywds,
101537 void (*f2py_func)(F_INTint*,double*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
101538 PyObject * volatile capi_buildvalue = NULL((void*)0);
101539 volatile int f2py_success = 1;
101540/*decl*/
101541
101542 int n = 0;
101543 double *a = NULL((void*)0);
101544 npy_intp a_Dims[2] = {-1, -1};
101545 const int a_Rank = 2;
101546 PyArrayObject *capi_a_tmp = NULL((void*)0);
101547 int capi_a_intent = 0;
101548 int capi_overwrite_a = 0;
101549 PyObject *a_capi = Py_None(&_Py_NoneStruct);
101550 int nrows = 0;
101551 int k1 = 0;
101552 PyObject *k1_capi = Py_None(&_Py_NoneStruct);
101553 int k2 = 0;
101554 PyObject *k2_capi = Py_None(&_Py_NoneStruct);
101555 int *piv = NULL((void*)0);
101556 npy_intp piv_Dims[1] = {-1};
101557 const int piv_Rank = 1;
101558 PyArrayObject *capi_piv_tmp = NULL((void*)0);
101559 int capi_piv_intent = 0;
101560 PyObject *piv_capi = Py_None(&_Py_NoneStruct);
101561 int off = 0;
101562 PyObject *off_capi = Py_None(&_Py_NoneStruct);
101563 int inc = 0;
101564 PyObject *inc_capi = Py_None(&_Py_NoneStruct);
101565 int m = 0;
101566 int npiv = 0;
101567 static char *capi_kwlist[] = {"a","piv","k1","k2","off","inc","overwrite_a",NULL((void*)0)};
101568
101569/*routdebugenter*/
101570#ifdef F2PY_REPORT_ATEXIT
101571f2py_start_clock();
101572#endif
101573 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
101574 "OO|OOOOi:_flapack.dlaswp",\
101575 capi_kwlist,&a_capi,&piv_capi,&k1_capi,&k2_capi,&off_capi,&inc_capi,&capi_overwrite_a))
101576 return NULL((void*)0);
101577/*frompyobj*/
101578 /* Processing variable a */
101579 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
101580 ;
101581 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
101582 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
101583 if (capi_a_tmp == NULL((void*)0)) {
101584 if (!PyErr_Occurred())
101585 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.dlaswp to C/Fortran array" );
101586 } else {
101587 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
101588
101589 /* Processing variable piv */
101590 ;
101591 capi_piv_intent |= F2PY_INTENT_IN1;
101592 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi);
101593 if (capi_piv_tmp == NULL((void*)0)) {
101594 if (!PyErr_Occurred())
101595 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.dlaswp to C/Fortran array" );
101596 } else {
101597 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
101598
101599 /* Processing variable k1 */
101600 if (k1_capi == Py_None(&_Py_NoneStruct)) k1 = 0; else
101601 f2py_success = int_from_pyobj(&k1,k1_capi,"_flapack.dlaswp() 1st keyword (k1) can't be converted to int");
101602 if (f2py_success) {
101603 CHECKSCALAR(0<=k1,"0<=k1","1st keyword k1","dlaswp:k1=%d",k1)if (!(0<=k1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dlaswp:k1=%d", "(""0<=k1"") failed for ""1st keyword k1"
, k1); PyErr_SetString(_flapack_error,errstring); } else
{
101604 /* Processing variable inc */
101605 if (inc_capi == Py_None(&_Py_NoneStruct)) inc = 1; else
101606 f2py_success = int_from_pyobj(&inc,inc_capi,"_flapack.dlaswp() 4th keyword (inc) can't be converted to int");
101607 if (f2py_success) {
101608 CHECKSCALAR(inc>0||inc<0,"inc>0||inc<0","4th keyword inc","dlaswp:inc=%d",inc)if (!(inc>0||inc<0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dlaswp:inc=%d", "(""inc>0||inc<0"") failed for "
"4th keyword inc", inc); PyErr_SetString(_flapack_error,errstring
); } else
{
101609 /* Processing variable nrows */
101610 nrows = shape(a,0)a_Dims[0];
101611 /* Processing variable n */
101612 n = shape(a,1)a_Dims[1];
101613 /* Processing variable npiv */
101614 npiv = len(piv)piv_Dims[0];
101615 CHECKSCALAR(npiv<=nrows,"npiv<=nrows","hidden npiv","dlaswp:npiv=%d",npiv)if (!(npiv<=nrows)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dlaswp:npiv=%d", "(""npiv<=nrows"") failed for "
"hidden npiv", npiv); PyErr_SetString(_flapack_error,errstring
); } else
{
101616 /* Processing variable off */
101617 if (off_capi == Py_None(&_Py_NoneStruct)) off = 0; else
101618 f2py_success = int_from_pyobj(&off,off_capi,"_flapack.dlaswp() 3rd keyword (off) can't be converted to int");
101619 if (f2py_success) {
101620 CHECKSCALAR(off>=0 && off<len(piv),"off>=0 && off<len(piv)","3rd keyword off","dlaswp:off=%d",off)if (!(off>=0 && off<piv_Dims[0])) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dlaswp:off=%d", "(""off>=0 && off<len(piv)"
") failed for ""3rd keyword off", off); PyErr_SetString(_flapack_error
,errstring); } else
{
101621 /* Processing variable m */
101622 m = (len(piv)piv_Dims[0]-off)/abs(inc);
101623 CHECKSCALAR(npiv-off>(m-1)*abs(inc),"npiv-off>(m-1)*abs(inc)","hidden m","dlaswp:m=%d",m)if (!(npiv-off>(m-1)*abs(inc))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dlaswp:m=%d", "(""npiv-off>(m-1)*abs(inc)"") failed for "
"hidden m", m); PyErr_SetString(_flapack_error,errstring); } else
{
101624 /* Processing variable k2 */
101625 if (k2_capi == Py_None(&_Py_NoneStruct)) k2 = npiv-1; else
101626 f2py_success = int_from_pyobj(&k2,k2_capi,"_flapack.dlaswp() 2nd keyword (k2) can't be converted to int");
101627 if (f2py_success) {
101628 CHECKSCALAR(k1<=k2 && k2<npiv-off,"k1<=k2 && k2<npiv-off","2nd keyword k2","dlaswp:k2=%d",k2)if (!(k1<=k2 && k2<npiv-off)) { char errstring[
256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dlaswp:k2=%d", "(""k1<=k2 && k2<npiv-off"
") failed for ""2nd keyword k2", k2); PyErr_SetString(_flapack_error
,errstring); } else
{
101629/*end of frompyobj*/
101630#ifdef F2PY_REPORT_ATEXIT
101631f2py_start_call_clock();
101632#endif
101633/*callfortranroutine*/
101634 {F_INTint i;m=len(piv)piv_Dims[0];for(i=0;i<m;++piv[i++]);++k1;++k2; (*f2py_func)(&n,a,&nrows,&k1,&k2,piv+off,&inc); for(i=0;i<m;--piv[i++]);} ;
101635 /*(*f2py_func)(&n,a,&nrows,&k1,&k2,piv,&off,&inc,&m,&npiv);*/
101636if (PyErr_Occurred())
101637 f2py_success = 0;
101638#ifdef F2PY_REPORT_ATEXIT
101639f2py_stop_call_clock();
101640#endif
101641/*end of callfortranroutine*/
101642 if (f2py_success) {
101643/*pyobjfrom*/
101644/*end of pyobjfrom*/
101645 CFUNCSMESS("Building return value.\n");
101646 capi_buildvalue = Py_BuildValue("N",capi_a_tmp);
101647/*closepyobjfrom*/
101648/*end of closepyobjfrom*/
101649 } /*if (f2py_success) after callfortranroutine*/
101650/*cleanupfrompyobj*/
101651 } /*CHECKSCALAR(k1<=k2 && k2<npiv-off)*/
101652 } /*if (f2py_success) of k2*/
101653 /* End of cleaning variable k2 */
101654 } /*CHECKSCALAR(npiv-off>(m-1)*abs(inc))*/
101655 /* End of cleaning variable m */
101656 } /*CHECKSCALAR(off>=0 && off<len(piv))*/
101657 } /*if (f2py_success) of off*/
101658 /* End of cleaning variable off */
101659 } /*CHECKSCALAR(npiv<=nrows)*/
101660 /* End of cleaning variable npiv */
101661 /* End of cleaning variable n */
101662 /* End of cleaning variable nrows */
101663 } /*CHECKSCALAR(inc>0||inc<0)*/
101664 } /*if (f2py_success) of inc*/
101665 /* End of cleaning variable inc */
101666 } /*CHECKSCALAR(0<=k1)*/
101667 } /*if (f2py_success) of k1*/
101668 /* End of cleaning variable k1 */
101669 if((PyObject *)capi_piv_tmp!=piv_capi) {
101670 Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); }
101671 } /*if (capi_piv_tmp == NULL) ... else of piv*/
101672 /* End of cleaning variable piv */
101673 } /*if (capi_a_tmp == NULL) ... else of a*/
101674 /* End of cleaning variable a */
101675/*end of cleanupfrompyobj*/
101676 if (capi_buildvalue == NULL((void*)0)) {
101677/*routdebugfailure*/
101678 } else {
101679/*routdebugleave*/
101680 }
101681 CFUNCSMESS("Freeing memory.\n");
101682/*freemem*/
101683#ifdef F2PY_REPORT_ATEXIT
101684f2py_stop_clock();
101685#endif
101686 return capi_buildvalue;
101687}
101688/******************************* end of dlaswp *******************************/
101689
101690/*********************************** claswp ***********************************/
101691static char doc_f2py_rout__flapack_claswp[] = "\
101692a = claswp(a,piv,[k1,k2,off,inc,overwrite_a])\n\nWrapper for ``claswp``.\
101693\n\nParameters\n----------\n"
101694"a : input rank-2 array('F') with bounds (nrows,n)\n"
101695"piv : input rank-1 array('i') with bounds (npiv)\n"
101696"\nOther Parameters\n----------------\n"
101697"overwrite_a : input int, optional\n Default: 0\n"
101698"k1 : input int, optional\n Default: 0\n"
101699"k2 : input int, optional\n Default: npiv-1\n"
101700"off : input int, optional\n Default: 0\n"
101701"inc : input int, optional\n Default: 1\n"
101702"\nReturns\n-------\n"
101703"a : rank-2 array('F') with bounds (nrows,n)";
101704/* extern void F_FUNC(claswp,CLASWP)(F_INT*,complex_float*,F_INT*,F_INT*,F_INT*,F_INT*,F_INT* ); */
101705static PyObject *f2py_rout__flapack_claswp(const PyObject *capi_self,
101706 PyObject *capi_args,
101707 PyObject *capi_keywds,
101708 void (*f2py_func)(F_INTint*,complex_float*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
101709 PyObject * volatile capi_buildvalue = NULL((void*)0);
101710 volatile int f2py_success = 1;
101711/*decl*/
101712
101713 int n = 0;
101714 complex_float *a = NULL((void*)0);
101715 npy_intp a_Dims[2] = {-1, -1};
101716 const int a_Rank = 2;
101717 PyArrayObject *capi_a_tmp = NULL((void*)0);
101718 int capi_a_intent = 0;
101719 int capi_overwrite_a = 0;
101720 PyObject *a_capi = Py_None(&_Py_NoneStruct);
101721 int nrows = 0;
101722 int k1 = 0;
101723 PyObject *k1_capi = Py_None(&_Py_NoneStruct);
101724 int k2 = 0;
101725 PyObject *k2_capi = Py_None(&_Py_NoneStruct);
101726 int *piv = NULL((void*)0);
101727 npy_intp piv_Dims[1] = {-1};
101728 const int piv_Rank = 1;
101729 PyArrayObject *capi_piv_tmp = NULL((void*)0);
101730 int capi_piv_intent = 0;
101731 PyObject *piv_capi = Py_None(&_Py_NoneStruct);
101732 int off = 0;
101733 PyObject *off_capi = Py_None(&_Py_NoneStruct);
101734 int inc = 0;
101735 PyObject *inc_capi = Py_None(&_Py_NoneStruct);
101736 int m = 0;
101737 int npiv = 0;
101738 static char *capi_kwlist[] = {"a","piv","k1","k2","off","inc","overwrite_a",NULL((void*)0)};
101739
101740/*routdebugenter*/
101741#ifdef F2PY_REPORT_ATEXIT
101742f2py_start_clock();
101743#endif
101744 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
101745 "OO|OOOOi:_flapack.claswp",\
101746 capi_kwlist,&a_capi,&piv_capi,&k1_capi,&k2_capi,&off_capi,&inc_capi,&capi_overwrite_a))
101747 return NULL((void*)0);
101748/*frompyobj*/
101749 /* Processing variable a */
101750 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
101751 ;
101752 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
101753 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
101754 if (capi_a_tmp == NULL((void*)0)) {
101755 if (!PyErr_Occurred())
101756 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.claswp to C/Fortran array" );
101757 } else {
101758 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
101759
101760 /* Processing variable piv */
101761 ;
101762 capi_piv_intent |= F2PY_INTENT_IN1;
101763 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi);
101764 if (capi_piv_tmp == NULL((void*)0)) {
101765 if (!PyErr_Occurred())
101766 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.claswp to C/Fortran array" );
101767 } else {
101768 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
101769
101770 /* Processing variable k1 */
101771 if (k1_capi == Py_None(&_Py_NoneStruct)) k1 = 0; else
101772 f2py_success = int_from_pyobj(&k1,k1_capi,"_flapack.claswp() 1st keyword (k1) can't be converted to int");
101773 if (f2py_success) {
101774 CHECKSCALAR(0<=k1,"0<=k1","1st keyword k1","claswp:k1=%d",k1)if (!(0<=k1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""claswp:k1=%d", "(""0<=k1"") failed for ""1st keyword k1"
, k1); PyErr_SetString(_flapack_error,errstring); } else
{
101775 /* Processing variable inc */
101776 if (inc_capi == Py_None(&_Py_NoneStruct)) inc = 1; else
101777 f2py_success = int_from_pyobj(&inc,inc_capi,"_flapack.claswp() 4th keyword (inc) can't be converted to int");
101778 if (f2py_success) {
101779 CHECKSCALAR(inc>0||inc<0,"inc>0||inc<0","4th keyword inc","claswp:inc=%d",inc)if (!(inc>0||inc<0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""claswp:inc=%d", "(""inc>0||inc<0"") failed for "
"4th keyword inc", inc); PyErr_SetString(_flapack_error,errstring
); } else
{
101780 /* Processing variable nrows */
101781 nrows = shape(a,0)a_Dims[0];
101782 /* Processing variable n */
101783 n = shape(a,1)a_Dims[1];
101784 /* Processing variable npiv */
101785 npiv = len(piv)piv_Dims[0];
101786 CHECKSCALAR(npiv<=nrows,"npiv<=nrows","hidden npiv","claswp:npiv=%d",npiv)if (!(npiv<=nrows)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""claswp:npiv=%d", "(""npiv<=nrows"") failed for "
"hidden npiv", npiv); PyErr_SetString(_flapack_error,errstring
); } else
{
101787 /* Processing variable off */
101788 if (off_capi == Py_None(&_Py_NoneStruct)) off = 0; else
101789 f2py_success = int_from_pyobj(&off,off_capi,"_flapack.claswp() 3rd keyword (off) can't be converted to int");
101790 if (f2py_success) {
101791 CHECKSCALAR(off>=0 && off<len(piv),"off>=0 && off<len(piv)","3rd keyword off","claswp:off=%d",off)if (!(off>=0 && off<piv_Dims[0])) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""claswp:off=%d", "(""off>=0 && off<len(piv)"
") failed for ""3rd keyword off", off); PyErr_SetString(_flapack_error
,errstring); } else
{
101792 /* Processing variable m */
101793 m = (len(piv)piv_Dims[0]-off)/abs(inc);
101794 CHECKSCALAR(npiv-off>(m-1)*abs(inc),"npiv-off>(m-1)*abs(inc)","hidden m","claswp:m=%d",m)if (!(npiv-off>(m-1)*abs(inc))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""claswp:m=%d", "(""npiv-off>(m-1)*abs(inc)"") failed for "
"hidden m", m); PyErr_SetString(_flapack_error,errstring); } else
{
101795 /* Processing variable k2 */
101796 if (k2_capi == Py_None(&_Py_NoneStruct)) k2 = npiv-1; else
101797 f2py_success = int_from_pyobj(&k2,k2_capi,"_flapack.claswp() 2nd keyword (k2) can't be converted to int");
101798 if (f2py_success) {
101799 CHECKSCALAR(k1<=k2 && k2<npiv-off,"k1<=k2 && k2<npiv-off","2nd keyword k2","claswp:k2=%d",k2)if (!(k1<=k2 && k2<npiv-off)) { char errstring[
256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""claswp:k2=%d", "(""k1<=k2 && k2<npiv-off"
") failed for ""2nd keyword k2", k2); PyErr_SetString(_flapack_error
,errstring); } else
{
101800/*end of frompyobj*/
101801#ifdef F2PY_REPORT_ATEXIT
101802f2py_start_call_clock();
101803#endif
101804/*callfortranroutine*/
101805 {F_INTint i;m=len(piv)piv_Dims[0];for(i=0;i<m;++piv[i++]);++k1;++k2; (*f2py_func)(&n,a,&nrows,&k1,&k2,piv+off,&inc); for(i=0;i<m;--piv[i++]);} ;
101806 /*(*f2py_func)(&n,a,&nrows,&k1,&k2,piv,&off,&inc,&m,&npiv);*/
101807if (PyErr_Occurred())
101808 f2py_success = 0;
101809#ifdef F2PY_REPORT_ATEXIT
101810f2py_stop_call_clock();
101811#endif
101812/*end of callfortranroutine*/
101813 if (f2py_success) {
101814/*pyobjfrom*/
101815/*end of pyobjfrom*/
101816 CFUNCSMESS("Building return value.\n");
101817 capi_buildvalue = Py_BuildValue("N",capi_a_tmp);
101818/*closepyobjfrom*/
101819/*end of closepyobjfrom*/
101820 } /*if (f2py_success) after callfortranroutine*/
101821/*cleanupfrompyobj*/
101822 } /*CHECKSCALAR(k1<=k2 && k2<npiv-off)*/
101823 } /*if (f2py_success) of k2*/
101824 /* End of cleaning variable k2 */
101825 } /*CHECKSCALAR(npiv-off>(m-1)*abs(inc))*/
101826 /* End of cleaning variable m */
101827 } /*CHECKSCALAR(off>=0 && off<len(piv))*/
101828 } /*if (f2py_success) of off*/
101829 /* End of cleaning variable off */
101830 } /*CHECKSCALAR(npiv<=nrows)*/
101831 /* End of cleaning variable npiv */
101832 /* End of cleaning variable n */
101833 /* End of cleaning variable nrows */
101834 } /*CHECKSCALAR(inc>0||inc<0)*/
101835 } /*if (f2py_success) of inc*/
101836 /* End of cleaning variable inc */
101837 } /*CHECKSCALAR(0<=k1)*/
101838 } /*if (f2py_success) of k1*/
101839 /* End of cleaning variable k1 */
101840 if((PyObject *)capi_piv_tmp!=piv_capi) {
101841 Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); }
101842 } /*if (capi_piv_tmp == NULL) ... else of piv*/
101843 /* End of cleaning variable piv */
101844 } /*if (capi_a_tmp == NULL) ... else of a*/
101845 /* End of cleaning variable a */
101846/*end of cleanupfrompyobj*/
101847 if (capi_buildvalue == NULL((void*)0)) {
101848/*routdebugfailure*/
101849 } else {
101850/*routdebugleave*/
101851 }
101852 CFUNCSMESS("Freeing memory.\n");
101853/*freemem*/
101854#ifdef F2PY_REPORT_ATEXIT
101855f2py_stop_clock();
101856#endif
101857 return capi_buildvalue;
101858}
101859/******************************* end of claswp *******************************/
101860
101861/*********************************** zlaswp ***********************************/
101862static char doc_f2py_rout__flapack_zlaswp[] = "\
101863a = zlaswp(a,piv,[k1,k2,off,inc,overwrite_a])\n\nWrapper for ``zlaswp``.\
101864\n\nParameters\n----------\n"
101865"a : input rank-2 array('D') with bounds (nrows,n)\n"
101866"piv : input rank-1 array('i') with bounds (npiv)\n"
101867"\nOther Parameters\n----------------\n"
101868"overwrite_a : input int, optional\n Default: 0\n"
101869"k1 : input int, optional\n Default: 0\n"
101870"k2 : input int, optional\n Default: npiv-1\n"
101871"off : input int, optional\n Default: 0\n"
101872"inc : input int, optional\n Default: 1\n"
101873"\nReturns\n-------\n"
101874"a : rank-2 array('D') with bounds (nrows,n)";
101875/* extern void F_FUNC(zlaswp,ZLASWP)(F_INT*,complex_double*,F_INT*,F_INT*,F_INT*,F_INT*,F_INT* ); */
101876static PyObject *f2py_rout__flapack_zlaswp(const PyObject *capi_self,
101877 PyObject *capi_args,
101878 PyObject *capi_keywds,
101879 void (*f2py_func)(F_INTint*,complex_double*,F_INTint*,F_INTint*,F_INTint*,F_INTint*,F_INTint* )) {
101880 PyObject * volatile capi_buildvalue = NULL((void*)0);
101881 volatile int f2py_success = 1;
101882/*decl*/
101883
101884 int n = 0;
101885 complex_double *a = NULL((void*)0);
101886 npy_intp a_Dims[2] = {-1, -1};
101887 const int a_Rank = 2;
101888 PyArrayObject *capi_a_tmp = NULL((void*)0);
101889 int capi_a_intent = 0;
101890 int capi_overwrite_a = 0;
101891 PyObject *a_capi = Py_None(&_Py_NoneStruct);
101892 int nrows = 0;
101893 int k1 = 0;
101894 PyObject *k1_capi = Py_None(&_Py_NoneStruct);
101895 int k2 = 0;
101896 PyObject *k2_capi = Py_None(&_Py_NoneStruct);
101897 int *piv = NULL((void*)0);
101898 npy_intp piv_Dims[1] = {-1};
101899 const int piv_Rank = 1;
101900 PyArrayObject *capi_piv_tmp = NULL((void*)0);
101901 int capi_piv_intent = 0;
101902 PyObject *piv_capi = Py_None(&_Py_NoneStruct);
101903 int off = 0;
101904 PyObject *off_capi = Py_None(&_Py_NoneStruct);
101905 int inc = 0;
101906 PyObject *inc_capi = Py_None(&_Py_NoneStruct);
101907 int m = 0;
101908 int npiv = 0;
101909 static char *capi_kwlist[] = {"a","piv","k1","k2","off","inc","overwrite_a",NULL((void*)0)};
101910
101911/*routdebugenter*/
101912#ifdef F2PY_REPORT_ATEXIT
101913f2py_start_clock();
101914#endif
101915 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
101916 "OO|OOOOi:_flapack.zlaswp",\
101917 capi_kwlist,&a_capi,&piv_capi,&k1_capi,&k2_capi,&off_capi,&inc_capi,&capi_overwrite_a))
101918 return NULL((void*)0);
101919/*frompyobj*/
101920 /* Processing variable a */
101921 capi_a_intent |= (capi_overwrite_a?0:F2PY_INTENT_COPY32);
101922 ;
101923 capi_a_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
101924 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
101925 if (capi_a_tmp == NULL((void*)0)) {
101926 if (!PyErr_Occurred())
101927 PyErr_SetString(_flapack_error,"failed in converting 1st argument `a' of _flapack.zlaswp to C/Fortran array" );
101928 } else {
101929 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
101930
101931 /* Processing variable piv */
101932 ;
101933 capi_piv_intent |= F2PY_INTENT_IN1;
101934 capi_piv_tmp = array_from_pyobj(NPY_INT,piv_Dims,piv_Rank,capi_piv_intent,piv_capi);
101935 if (capi_piv_tmp == NULL((void*)0)) {
101936 if (!PyErr_Occurred())
101937 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `piv' of _flapack.zlaswp to C/Fortran array" );
101938 } else {
101939 piv = (int *)(PyArray_DATA(capi_piv_tmp)((void *)((PyArrayObject_fields *)(capi_piv_tmp))->data));
101940
101941 /* Processing variable k1 */
101942 if (k1_capi == Py_None(&_Py_NoneStruct)) k1 = 0; else
101943 f2py_success = int_from_pyobj(&k1,k1_capi,"_flapack.zlaswp() 1st keyword (k1) can't be converted to int");
101944 if (f2py_success) {
101945 CHECKSCALAR(0<=k1,"0<=k1","1st keyword k1","zlaswp:k1=%d",k1)if (!(0<=k1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zlaswp:k1=%d", "(""0<=k1"") failed for ""1st keyword k1"
, k1); PyErr_SetString(_flapack_error,errstring); } else
{
101946 /* Processing variable inc */
101947 if (inc_capi == Py_None(&_Py_NoneStruct)) inc = 1; else
101948 f2py_success = int_from_pyobj(&inc,inc_capi,"_flapack.zlaswp() 4th keyword (inc) can't be converted to int");
101949 if (f2py_success) {
101950 CHECKSCALAR(inc>0||inc<0,"inc>0||inc<0","4th keyword inc","zlaswp:inc=%d",inc)if (!(inc>0||inc<0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zlaswp:inc=%d", "(""inc>0||inc<0"") failed for "
"4th keyword inc", inc); PyErr_SetString(_flapack_error,errstring
); } else
{
101951 /* Processing variable nrows */
101952 nrows = shape(a,0)a_Dims[0];
101953 /* Processing variable n */
101954 n = shape(a,1)a_Dims[1];
101955 /* Processing variable npiv */
101956 npiv = len(piv)piv_Dims[0];
101957 CHECKSCALAR(npiv<=nrows,"npiv<=nrows","hidden npiv","zlaswp:npiv=%d",npiv)if (!(npiv<=nrows)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zlaswp:npiv=%d", "(""npiv<=nrows"") failed for "
"hidden npiv", npiv); PyErr_SetString(_flapack_error,errstring
); } else
{
101958 /* Processing variable off */
101959 if (off_capi == Py_None(&_Py_NoneStruct)) off = 0; else
101960 f2py_success = int_from_pyobj(&off,off_capi,"_flapack.zlaswp() 3rd keyword (off) can't be converted to int");
101961 if (f2py_success) {
101962 CHECKSCALAR(off>=0 && off<len(piv),"off>=0 && off<len(piv)","3rd keyword off","zlaswp:off=%d",off)if (!(off>=0 && off<piv_Dims[0])) { char errstring
[256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zlaswp:off=%d", "(""off>=0 && off<len(piv)"
") failed for ""3rd keyword off", off); PyErr_SetString(_flapack_error
,errstring); } else
{
101963 /* Processing variable m */
101964 m = (len(piv)piv_Dims[0]-off)/abs(inc);
101965 CHECKSCALAR(npiv-off>(m-1)*abs(inc),"npiv-off>(m-1)*abs(inc)","hidden m","zlaswp:m=%d",m)if (!(npiv-off>(m-1)*abs(inc))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zlaswp:m=%d", "(""npiv-off>(m-1)*abs(inc)"") failed for "
"hidden m", m); PyErr_SetString(_flapack_error,errstring); } else
{
101966 /* Processing variable k2 */
101967 if (k2_capi == Py_None(&_Py_NoneStruct)) k2 = npiv-1; else
101968 f2py_success = int_from_pyobj(&k2,k2_capi,"_flapack.zlaswp() 2nd keyword (k2) can't be converted to int");
101969 if (f2py_success) {
101970 CHECKSCALAR(k1<=k2 && k2<npiv-off,"k1<=k2 && k2<npiv-off","2nd keyword k2","zlaswp:k2=%d",k2)if (!(k1<=k2 && k2<npiv-off)) { char errstring[
256]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zlaswp:k2=%d", "(""k1<=k2 && k2<npiv-off"
") failed for ""2nd keyword k2", k2); PyErr_SetString(_flapack_error
,errstring); } else
{
101971/*end of frompyobj*/
101972#ifdef F2PY_REPORT_ATEXIT
101973f2py_start_call_clock();
101974#endif
101975/*callfortranroutine*/
101976 {F_INTint i;m=len(piv)piv_Dims[0];for(i=0;i<m;++piv[i++]);++k1;++k2; (*f2py_func)(&n,a,&nrows,&k1,&k2,piv+off,&inc); for(i=0;i<m;--piv[i++]);} ;
101977 /*(*f2py_func)(&n,a,&nrows,&k1,&k2,piv,&off,&inc,&m,&npiv);*/
101978if (PyErr_Occurred())
101979 f2py_success = 0;
101980#ifdef F2PY_REPORT_ATEXIT
101981f2py_stop_call_clock();
101982#endif
101983/*end of callfortranroutine*/
101984 if (f2py_success) {
101985/*pyobjfrom*/
101986/*end of pyobjfrom*/
101987 CFUNCSMESS("Building return value.\n");
101988 capi_buildvalue = Py_BuildValue("N",capi_a_tmp);
101989/*closepyobjfrom*/
101990/*end of closepyobjfrom*/
101991 } /*if (f2py_success) after callfortranroutine*/
101992/*cleanupfrompyobj*/
101993 } /*CHECKSCALAR(k1<=k2 && k2<npiv-off)*/
101994 } /*if (f2py_success) of k2*/
101995 /* End of cleaning variable k2 */
101996 } /*CHECKSCALAR(npiv-off>(m-1)*abs(inc))*/
101997 /* End of cleaning variable m */
101998 } /*CHECKSCALAR(off>=0 && off<len(piv))*/
101999 } /*if (f2py_success) of off*/
102000 /* End of cleaning variable off */
102001 } /*CHECKSCALAR(npiv<=nrows)*/
102002 /* End of cleaning variable npiv */
102003 /* End of cleaning variable n */
102004 /* End of cleaning variable nrows */
102005 } /*CHECKSCALAR(inc>0||inc<0)*/
102006 } /*if (f2py_success) of inc*/
102007 /* End of cleaning variable inc */
102008 } /*CHECKSCALAR(0<=k1)*/
102009 } /*if (f2py_success) of k1*/
102010 /* End of cleaning variable k1 */
102011 if((PyObject *)capi_piv_tmp!=piv_capi) {
102012 Py_XDECREF(capi_piv_tmp)_Py_XDECREF(((PyObject*)(capi_piv_tmp))); }
102013 } /*if (capi_piv_tmp == NULL) ... else of piv*/
102014 /* End of cleaning variable piv */
102015 } /*if (capi_a_tmp == NULL) ... else of a*/
102016 /* End of cleaning variable a */
102017/*end of cleanupfrompyobj*/
102018 if (capi_buildvalue == NULL((void*)0)) {
102019/*routdebugfailure*/
102020 } else {
102021/*routdebugleave*/
102022 }
102023 CFUNCSMESS("Freeing memory.\n");
102024/*freemem*/
102025#ifdef F2PY_REPORT_ATEXIT
102026f2py_stop_clock();
102027#endif
102028 return capi_buildvalue;
102029}
102030/******************************* end of zlaswp *******************************/
102031
102032/*********************************** dlamch ***********************************/
102033static char doc_f2py_rout__flapack_dlamch[] = "\
102034dlamch = dlamch(cmach)\n\nWrapper for ``dlamch``.\
102035\n\nParameters\n----------\n"
102036"cmach : input string(len=1)\n"
102037"\nReturns\n-------\n"
102038"dlamch : float";
102039/* extern void F_WRAPPEDFUNC(dlamch,DLAMCH)(double*,string,size_t); */
102040static PyObject *f2py_rout__flapack_dlamch(const PyObject *capi_self,
102041 PyObject *capi_args,
102042 PyObject *capi_keywds,
102043 void (*f2py_func)(double*,string,size_t)) {
102044 PyObject * volatile capi_buildvalue = NULL((void*)0);
102045 volatile int f2py_success = 1;
102046/*decl*/
102047
102048 double dlamch = 0;
102049 string cmach = NULL((void*)0);
102050 int slen(cmach)capi_cmach_len;
102051 PyObject *cmach_capi = Py_None(&_Py_NoneStruct);
102052 static char *capi_kwlist[] = {"cmach",NULL((void*)0)};
102053
102054/*routdebugenter*/
102055#ifdef F2PY_REPORT_ATEXIT
102056f2py_start_clock();
102057#endif
102058 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
102059 "O:_flapack.dlamch",\
102060 capi_kwlist,&cmach_capi))
102061 return NULL((void*)0);
102062/*frompyobj*/
102063 /* Processing variable cmach */
102064 slen(cmach)capi_cmach_len = 1;
102065 f2py_success = string_from_pyobj(&cmach,&slen(cmach)capi_cmach_len,"",cmach_capi,"string_from_pyobj failed in converting 1st argument `cmach' of _flapack.dlamch to C string");
102066 if (f2py_success) {
102067 /* Processing variable dlamch */
102068/*end of frompyobj*/
102069#ifdef F2PY_REPORT_ATEXIT
102070f2py_start_call_clock();
102071#endif
102072/*callfortranroutine*/
102073 (*f2py_func)(&dlamch,cmach,slen(cmach)capi_cmach_len);
102074if (PyErr_Occurred())
102075 f2py_success = 0;
102076#ifdef F2PY_REPORT_ATEXIT
102077f2py_stop_call_clock();
102078#endif
102079/*end of callfortranroutine*/
102080 if (f2py_success) {
102081/*pyobjfrom*/
102082/*end of pyobjfrom*/
102083 CFUNCSMESS("Building return value.\n");
102084 capi_buildvalue = Py_BuildValue("d",dlamch);
102085/*closepyobjfrom*/
102086/*end of closepyobjfrom*/
102087 } /*if (f2py_success) after callfortranroutine*/
102088/*cleanupfrompyobj*/
102089 /* End of cleaning variable dlamch */
102090 STRINGFREE(cmach)do {if (!(cmach == ((void*)0))) free(cmach);} while (0);
102091 } /*if (f2py_success) of cmach*/
102092 /* End of cleaning variable cmach */
102093/*end of cleanupfrompyobj*/
102094 if (capi_buildvalue == NULL((void*)0)) {
102095/*routdebugfailure*/
102096 } else {
102097/*routdebugleave*/
102098 }
102099 CFUNCSMESS("Freeing memory.\n");
102100/*freemem*/
102101#ifdef F2PY_REPORT_ATEXIT
102102f2py_stop_clock();
102103#endif
102104 return capi_buildvalue;
102105}
102106/******************************* end of dlamch *******************************/
102107
102108/*********************************** slamch ***********************************/
102109static char doc_f2py_rout__flapack_slamch[] = "\
102110slamch = slamch(cmach)\n\nWrapper for ``slamch``.\
102111\n\nParameters\n----------\n"
102112"cmach : input string(len=1)\n"
102113"\nReturns\n-------\n"
102114"slamch : float";
102115/* extern void F_WRAPPEDFUNC(slamch,SLAMCH)(float*,string,size_t); */
102116static PyObject *f2py_rout__flapack_slamch(const PyObject *capi_self,
102117 PyObject *capi_args,
102118 PyObject *capi_keywds,
102119 void (*f2py_func)(float*,string,size_t)) {
102120 PyObject * volatile capi_buildvalue = NULL((void*)0);
102121 volatile int f2py_success = 1;
102122/*decl*/
102123
102124 float slamch = 0;
102125 string cmach = NULL((void*)0);
102126 int slen(cmach)capi_cmach_len;
102127 PyObject *cmach_capi = Py_None(&_Py_NoneStruct);
102128 static char *capi_kwlist[] = {"cmach",NULL((void*)0)};
102129
102130/*routdebugenter*/
102131#ifdef F2PY_REPORT_ATEXIT
102132f2py_start_clock();
102133#endif
102134 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
102135 "O:_flapack.slamch",\
102136 capi_kwlist,&cmach_capi))
102137 return NULL((void*)0);
102138/*frompyobj*/
102139 /* Processing variable cmach */
102140 slen(cmach)capi_cmach_len = 1;
102141 f2py_success = string_from_pyobj(&cmach,&slen(cmach)capi_cmach_len,"",cmach_capi,"string_from_pyobj failed in converting 1st argument `cmach' of _flapack.slamch to C string");
102142 if (f2py_success) {
102143 /* Processing variable slamch */
102144/*end of frompyobj*/
102145#ifdef F2PY_REPORT_ATEXIT
102146f2py_start_call_clock();
102147#endif
102148/*callfortranroutine*/
102149 (*f2py_func)(&slamch,cmach,slen(cmach)capi_cmach_len);
102150if (PyErr_Occurred())
102151 f2py_success = 0;
102152#ifdef F2PY_REPORT_ATEXIT
102153f2py_stop_call_clock();
102154#endif
102155/*end of callfortranroutine*/
102156 if (f2py_success) {
102157/*pyobjfrom*/
102158/*end of pyobjfrom*/
102159 CFUNCSMESS("Building return value.\n");
102160 capi_buildvalue = Py_BuildValue("f",slamch);
102161/*closepyobjfrom*/
102162/*end of closepyobjfrom*/
102163 } /*if (f2py_success) after callfortranroutine*/
102164/*cleanupfrompyobj*/
102165 /* End of cleaning variable slamch */
102166 STRINGFREE(cmach)do {if (!(cmach == ((void*)0))) free(cmach);} while (0);
102167 } /*if (f2py_success) of cmach*/
102168 /* End of cleaning variable cmach */
102169/*end of cleanupfrompyobj*/
102170 if (capi_buildvalue == NULL((void*)0)) {
102171/*routdebugfailure*/
102172 } else {
102173/*routdebugleave*/
102174 }
102175 CFUNCSMESS("Freeing memory.\n");
102176/*freemem*/
102177#ifdef F2PY_REPORT_ATEXIT
102178f2py_stop_clock();
102179#endif
102180 return capi_buildvalue;
102181}
102182/******************************* end of slamch *******************************/
102183
102184/*********************************** slange ***********************************/
102185static char doc_f2py_rout__flapack_slange[] = "\
102186n2 = slange(norm,a)\n\nWrapper for ``slange``.\
102187\n\nParameters\n----------\n"
102188"norm : input string(len=1)\n"
102189"a : input rank-2 array('f') with bounds (m,n)\n"
102190"\nReturns\n-------\n"
102191"n2 : float";
102192/* extern void F_WRAPPEDFUNC(slange,SLANGE)(float*,char*,F_INT*,F_INT*,float*,F_INT*,float* ); */
102193static PyObject *f2py_rout__flapack_slange(const PyObject *capi_self,
102194 PyObject *capi_args,
102195 PyObject *capi_keywds,
102196 void (*f2py_func)(float*,char*,F_INTint*,F_INTint*,float*,F_INTint*,float* )) {
102197 PyObject * volatile capi_buildvalue = NULL((void*)0);
102198 volatile int f2py_success = 1;
102199/*decl*/
102200
102201 float slange = 0;
102202 string norm = NULL((void*)0);
102203 int slen(norm)capi_norm_len;
102204 PyObject *norm_capi = Py_None(&_Py_NoneStruct);
102205 int m = 0;
102206 int n = 0;
102207 float *a = NULL((void*)0);
102208 npy_intp a_Dims[2] = {-1, -1};
102209 const int a_Rank = 2;
102210 PyArrayObject *capi_a_tmp = NULL((void*)0);
102211 int capi_a_intent = 0;
102212 PyObject *a_capi = Py_None(&_Py_NoneStruct);
102213 int lda = 0;
102214 float *work = NULL((void*)0);
102215 npy_intp work_Dims[1] = {-1};
102216 const int work_Rank = 1;
102217 PyArrayObject *capi_work_tmp = NULL((void*)0);
102218 int capi_work_intent = 0;
102219 static char *capi_kwlist[] = {"norm","a",NULL((void*)0)};
102220
102221/*routdebugenter*/
102222#ifdef F2PY_REPORT_ATEXIT
102223f2py_start_clock();
102224#endif
102225 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
102226 "OO:_flapack.slange",\
102227 capi_kwlist,&norm_capi,&a_capi))
102228 return NULL((void*)0);
102229/*frompyobj*/
102230 /* Processing variable norm */
102231 slen(norm)capi_norm_len = 1;
102232 f2py_success = string_from_pyobj(&norm,&slen(norm)capi_norm_len,"",norm_capi,"string_from_pyobj failed in converting 1st argument `norm' of _flapack.slange to C string");
102233 if (f2py_success) {
102234 CHECKSTRING(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e',"*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e'","1st argument norm","slange:slen(norm)=%d norm=\"%s\"",norm)if (!(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm==
'o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'
||*norm=='e')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""slange:slen(norm)=%d norm=\"%s\"", "(""*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e'"
") failed for ""1st argument norm", capi_norm_len, norm); PyErr_SetString
(_flapack_error, errstring); } else
{
102235 /* Processing variable a */
102236 ;
102237 capi_a_intent |= F2PY_INTENT_IN1;
102238 capi_a_tmp = array_from_pyobj(NPY_FLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
102239 if (capi_a_tmp == NULL((void*)0)) {
102240 if (!PyErr_Occurred())
102241 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.slange to C/Fortran array" );
102242 } else {
102243 a = (float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
102244
102245 /* Processing variable n */
102246 n = shape(a,1)a_Dims[1];
102247 /* Processing variable m */
102248 m = shape(a,0)a_Dims[0];
102249 /* Processing variable lda */
102250 lda = max(1,m)((1 > m) ? (1) : (m));
102251 /* Processing variable work */
102252 work_Dims[0]=m + 1;
102253 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
102254 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
102255 if (capi_work_tmp == NULL((void*)0)) {
102256 if (!PyErr_Occurred())
102257 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.slange to C/Fortran array" );
102258 } else {
102259 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
102260
102261 /* Processing variable slange */
102262/*end of frompyobj*/
102263#ifdef F2PY_REPORT_ATEXIT
102264f2py_start_call_clock();
102265#endif
102266/*callfortranroutine*/
102267 (*f2py_func)(&slange,norm,&m,&n,a,&lda,work) ;
102268 /*(*f2py_func)(&slange,norm,&m,&n,a,&lda,work,slen(norm));*/
102269if (PyErr_Occurred())
102270 f2py_success = 0;
102271#ifdef F2PY_REPORT_ATEXIT
102272f2py_stop_call_clock();
102273#endif
102274/*end of callfortranroutine*/
102275 if (f2py_success) {
102276/*pyobjfrom*/
102277/*end of pyobjfrom*/
102278 CFUNCSMESS("Building return value.\n");
102279 capi_buildvalue = Py_BuildValue("f",slange);
102280/*closepyobjfrom*/
102281/*end of closepyobjfrom*/
102282 } /*if (f2py_success) after callfortranroutine*/
102283/*cleanupfrompyobj*/
102284 /* End of cleaning variable slange */
102285 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
102286 } /*if (capi_work_tmp == NULL) ... else of work*/
102287 /* End of cleaning variable work */
102288 /* End of cleaning variable lda */
102289 /* End of cleaning variable m */
102290 /* End of cleaning variable n */
102291 if((PyObject *)capi_a_tmp!=a_capi) {
102292 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
102293 } /*if (capi_a_tmp == NULL) ... else of a*/
102294 /* End of cleaning variable a */
102295 } /*CHECKSTRING(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e')*/
102296 STRINGFREE(norm)do {if (!(norm == ((void*)0))) free(norm);} while (0);
102297 } /*if (f2py_success) of norm*/
102298 /* End of cleaning variable norm */
102299/*end of cleanupfrompyobj*/
102300 if (capi_buildvalue == NULL((void*)0)) {
102301/*routdebugfailure*/
102302 } else {
102303/*routdebugleave*/
102304 }
102305 CFUNCSMESS("Freeing memory.\n");
102306/*freemem*/
102307#ifdef F2PY_REPORT_ATEXIT
102308f2py_stop_clock();
102309#endif
102310 return capi_buildvalue;
102311}
102312/******************************* end of slange *******************************/
102313
102314/*********************************** dlange ***********************************/
102315static char doc_f2py_rout__flapack_dlange[] = "\
102316n2 = dlange(norm,a)\n\nWrapper for ``dlange``.\
102317\n\nParameters\n----------\n"
102318"norm : input string(len=1)\n"
102319"a : input rank-2 array('d') with bounds (m,n)\n"
102320"\nReturns\n-------\n"
102321"n2 : float";
102322/* extern void F_WRAPPEDFUNC(dlange,DLANGE)(double*,char*,F_INT*,F_INT*,double*,F_INT*,double* ); */
102323static PyObject *f2py_rout__flapack_dlange(const PyObject *capi_self,
102324 PyObject *capi_args,
102325 PyObject *capi_keywds,
102326 void (*f2py_func)(double*,char*,F_INTint*,F_INTint*,double*,F_INTint*,double* )) {
102327 PyObject * volatile capi_buildvalue = NULL((void*)0);
102328 volatile int f2py_success = 1;
102329/*decl*/
102330
102331 double dlange = 0;
102332 string norm = NULL((void*)0);
102333 int slen(norm)capi_norm_len;
102334 PyObject *norm_capi = Py_None(&_Py_NoneStruct);
102335 int m = 0;
102336 int n = 0;
102337 double *a = NULL((void*)0);
102338 npy_intp a_Dims[2] = {-1, -1};
102339 const int a_Rank = 2;
102340 PyArrayObject *capi_a_tmp = NULL((void*)0);
102341 int capi_a_intent = 0;
102342 PyObject *a_capi = Py_None(&_Py_NoneStruct);
102343 int lda = 0;
102344 double *work = NULL((void*)0);
102345 npy_intp work_Dims[1] = {-1};
102346 const int work_Rank = 1;
102347 PyArrayObject *capi_work_tmp = NULL((void*)0);
102348 int capi_work_intent = 0;
102349 static char *capi_kwlist[] = {"norm","a",NULL((void*)0)};
102350
102351/*routdebugenter*/
102352#ifdef F2PY_REPORT_ATEXIT
102353f2py_start_clock();
102354#endif
102355 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
102356 "OO:_flapack.dlange",\
102357 capi_kwlist,&norm_capi,&a_capi))
102358 return NULL((void*)0);
102359/*frompyobj*/
102360 /* Processing variable norm */
102361 slen(norm)capi_norm_len = 1;
102362 f2py_success = string_from_pyobj(&norm,&slen(norm)capi_norm_len,"",norm_capi,"string_from_pyobj failed in converting 1st argument `norm' of _flapack.dlange to C string");
102363 if (f2py_success) {
102364 CHECKSTRING(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e',"*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e'","1st argument norm","dlange:slen(norm)=%d norm=\"%s\"",norm)if (!(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm==
'o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'
||*norm=='e')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dlange:slen(norm)=%d norm=\"%s\"", "(""*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e'"
") failed for ""1st argument norm", capi_norm_len, norm); PyErr_SetString
(_flapack_error, errstring); } else
{
102365 /* Processing variable a */
102366 ;
102367 capi_a_intent |= F2PY_INTENT_IN1;
102368 capi_a_tmp = array_from_pyobj(NPY_DOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
102369 if (capi_a_tmp == NULL((void*)0)) {
102370 if (!PyErr_Occurred())
102371 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.dlange to C/Fortran array" );
102372 } else {
102373 a = (double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
102374
102375 /* Processing variable n */
102376 n = shape(a,1)a_Dims[1];
102377 /* Processing variable m */
102378 m = shape(a,0)a_Dims[0];
102379 /* Processing variable lda */
102380 lda = max(1,m)((1 > m) ? (1) : (m));
102381 /* Processing variable work */
102382 work_Dims[0]=m + 1;
102383 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
102384 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
102385 if (capi_work_tmp == NULL((void*)0)) {
102386 if (!PyErr_Occurred())
102387 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.dlange to C/Fortran array" );
102388 } else {
102389 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
102390
102391 /* Processing variable dlange */
102392/*end of frompyobj*/
102393#ifdef F2PY_REPORT_ATEXIT
102394f2py_start_call_clock();
102395#endif
102396/*callfortranroutine*/
102397 (*f2py_func)(&dlange,norm,&m,&n,a,&lda,work) ;
102398 /*(*f2py_func)(&dlange,norm,&m,&n,a,&lda,work,slen(norm));*/
102399if (PyErr_Occurred())
102400 f2py_success = 0;
102401#ifdef F2PY_REPORT_ATEXIT
102402f2py_stop_call_clock();
102403#endif
102404/*end of callfortranroutine*/
102405 if (f2py_success) {
102406/*pyobjfrom*/
102407/*end of pyobjfrom*/
102408 CFUNCSMESS("Building return value.\n");
102409 capi_buildvalue = Py_BuildValue("d",dlange);
102410/*closepyobjfrom*/
102411/*end of closepyobjfrom*/
102412 } /*if (f2py_success) after callfortranroutine*/
102413/*cleanupfrompyobj*/
102414 /* End of cleaning variable dlange */
102415 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
102416 } /*if (capi_work_tmp == NULL) ... else of work*/
102417 /* End of cleaning variable work */
102418 /* End of cleaning variable lda */
102419 /* End of cleaning variable m */
102420 /* End of cleaning variable n */
102421 if((PyObject *)capi_a_tmp!=a_capi) {
102422 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
102423 } /*if (capi_a_tmp == NULL) ... else of a*/
102424 /* End of cleaning variable a */
102425 } /*CHECKSTRING(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e')*/
102426 STRINGFREE(norm)do {if (!(norm == ((void*)0))) free(norm);} while (0);
102427 } /*if (f2py_success) of norm*/
102428 /* End of cleaning variable norm */
102429/*end of cleanupfrompyobj*/
102430 if (capi_buildvalue == NULL((void*)0)) {
102431/*routdebugfailure*/
102432 } else {
102433/*routdebugleave*/
102434 }
102435 CFUNCSMESS("Freeing memory.\n");
102436/*freemem*/
102437#ifdef F2PY_REPORT_ATEXIT
102438f2py_stop_clock();
102439#endif
102440 return capi_buildvalue;
102441}
102442/******************************* end of dlange *******************************/
102443
102444/*********************************** clange ***********************************/
102445static char doc_f2py_rout__flapack_clange[] = "\
102446n2 = clange(norm,a)\n\nWrapper for ``clange``.\
102447\n\nParameters\n----------\n"
102448"norm : input string(len=1)\n"
102449"a : input rank-2 array('F') with bounds (m,n)\n"
102450"\nReturns\n-------\n"
102451"n2 : float";
102452/* extern void F_WRAPPEDFUNC(clange,CLANGE)(float*,char*,F_INT*,F_INT*,complex_float*,F_INT*,float* ); */
102453static PyObject *f2py_rout__flapack_clange(const PyObject *capi_self,
102454 PyObject *capi_args,
102455 PyObject *capi_keywds,
102456 void (*f2py_func)(float*,char*,F_INTint*,F_INTint*,complex_float*,F_INTint*,float* )) {
102457 PyObject * volatile capi_buildvalue = NULL((void*)0);
102458 volatile int f2py_success = 1;
102459/*decl*/
102460
102461 float clange = 0;
102462 string norm = NULL((void*)0);
102463 int slen(norm)capi_norm_len;
102464 PyObject *norm_capi = Py_None(&_Py_NoneStruct);
102465 int m = 0;
102466 int n = 0;
102467 complex_float *a = NULL((void*)0);
102468 npy_intp a_Dims[2] = {-1, -1};
102469 const int a_Rank = 2;
102470 PyArrayObject *capi_a_tmp = NULL((void*)0);
102471 int capi_a_intent = 0;
102472 PyObject *a_capi = Py_None(&_Py_NoneStruct);
102473 int lda = 0;
102474 float *work = NULL((void*)0);
102475 npy_intp work_Dims[1] = {-1};
102476 const int work_Rank = 1;
102477 PyArrayObject *capi_work_tmp = NULL((void*)0);
102478 int capi_work_intent = 0;
102479 static char *capi_kwlist[] = {"norm","a",NULL((void*)0)};
102480
102481/*routdebugenter*/
102482#ifdef F2PY_REPORT_ATEXIT
102483f2py_start_clock();
102484#endif
102485 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
102486 "OO:_flapack.clange",\
102487 capi_kwlist,&norm_capi,&a_capi))
102488 return NULL((void*)0);
102489/*frompyobj*/
102490 /* Processing variable norm */
102491 slen(norm)capi_norm_len = 1;
102492 f2py_success = string_from_pyobj(&norm,&slen(norm)capi_norm_len,"",norm_capi,"string_from_pyobj failed in converting 1st argument `norm' of _flapack.clange to C string");
102493 if (f2py_success) {
102494 CHECKSTRING(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e',"*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e'","1st argument norm","clange:slen(norm)=%d norm=\"%s\"",norm)if (!(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm==
'o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'
||*norm=='e')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""clange:slen(norm)=%d norm=\"%s\"", "(""*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e'"
") failed for ""1st argument norm", capi_norm_len, norm); PyErr_SetString
(_flapack_error, errstring); } else
{
102495 /* Processing variable a */
102496 ;
102497 capi_a_intent |= F2PY_INTENT_IN1;
102498 capi_a_tmp = array_from_pyobj(NPY_CFLOAT,a_Dims,a_Rank,capi_a_intent,a_capi);
102499 if (capi_a_tmp == NULL((void*)0)) {
102500 if (!PyErr_Occurred())
102501 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.clange to C/Fortran array" );
102502 } else {
102503 a = (complex_float *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
102504
102505 /* Processing variable n */
102506 n = shape(a,1)a_Dims[1];
102507 /* Processing variable m */
102508 m = shape(a,0)a_Dims[0];
102509 /* Processing variable lda */
102510 lda = max(1,m)((1 > m) ? (1) : (m));
102511 /* Processing variable work */
102512 work_Dims[0]=m + 1;
102513 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
102514 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
102515 if (capi_work_tmp == NULL((void*)0)) {
102516 if (!PyErr_Occurred())
102517 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.clange to C/Fortran array" );
102518 } else {
102519 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
102520
102521 /* Processing variable clange */
102522/*end of frompyobj*/
102523#ifdef F2PY_REPORT_ATEXIT
102524f2py_start_call_clock();
102525#endif
102526/*callfortranroutine*/
102527 (*f2py_func)(&clange,norm,&m,&n,a,&lda,work) ;
102528 /*(*f2py_func)(&clange,norm,&m,&n,a,&lda,work,slen(norm));*/
102529if (PyErr_Occurred())
102530 f2py_success = 0;
102531#ifdef F2PY_REPORT_ATEXIT
102532f2py_stop_call_clock();
102533#endif
102534/*end of callfortranroutine*/
102535 if (f2py_success) {
102536/*pyobjfrom*/
102537/*end of pyobjfrom*/
102538 CFUNCSMESS("Building return value.\n");
102539 capi_buildvalue = Py_BuildValue("f",clange);
102540/*closepyobjfrom*/
102541/*end of closepyobjfrom*/
102542 } /*if (f2py_success) after callfortranroutine*/
102543/*cleanupfrompyobj*/
102544 /* End of cleaning variable clange */
102545 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
102546 } /*if (capi_work_tmp == NULL) ... else of work*/
102547 /* End of cleaning variable work */
102548 /* End of cleaning variable lda */
102549 /* End of cleaning variable m */
102550 /* End of cleaning variable n */
102551 if((PyObject *)capi_a_tmp!=a_capi) {
102552 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
102553 } /*if (capi_a_tmp == NULL) ... else of a*/
102554 /* End of cleaning variable a */
102555 } /*CHECKSTRING(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e')*/
102556 STRINGFREE(norm)do {if (!(norm == ((void*)0))) free(norm);} while (0);
102557 } /*if (f2py_success) of norm*/
102558 /* End of cleaning variable norm */
102559/*end of cleanupfrompyobj*/
102560 if (capi_buildvalue == NULL((void*)0)) {
102561/*routdebugfailure*/
102562 } else {
102563/*routdebugleave*/
102564 }
102565 CFUNCSMESS("Freeing memory.\n");
102566/*freemem*/
102567#ifdef F2PY_REPORT_ATEXIT
102568f2py_stop_clock();
102569#endif
102570 return capi_buildvalue;
102571}
102572/******************************* end of clange *******************************/
102573
102574/*********************************** zlange ***********************************/
102575static char doc_f2py_rout__flapack_zlange[] = "\
102576n2 = zlange(norm,a)\n\nWrapper for ``zlange``.\
102577\n\nParameters\n----------\n"
102578"norm : input string(len=1)\n"
102579"a : input rank-2 array('D') with bounds (m,n)\n"
102580"\nReturns\n-------\n"
102581"n2 : float";
102582/* extern void F_WRAPPEDFUNC(zlange,ZLANGE)(double*,char*,F_INT*,F_INT*,complex_double*,F_INT*,double* ); */
102583static PyObject *f2py_rout__flapack_zlange(const PyObject *capi_self,
102584 PyObject *capi_args,
102585 PyObject *capi_keywds,
102586 void (*f2py_func)(double*,char*,F_INTint*,F_INTint*,complex_double*,F_INTint*,double* )) {
102587 PyObject * volatile capi_buildvalue = NULL((void*)0);
102588 volatile int f2py_success = 1;
102589/*decl*/
102590
102591 double zlange = 0;
102592 string norm = NULL((void*)0);
102593 int slen(norm)capi_norm_len;
102594 PyObject *norm_capi = Py_None(&_Py_NoneStruct);
102595 int m = 0;
102596 int n = 0;
102597 complex_double *a = NULL((void*)0);
102598 npy_intp a_Dims[2] = {-1, -1};
102599 const int a_Rank = 2;
102600 PyArrayObject *capi_a_tmp = NULL((void*)0);
102601 int capi_a_intent = 0;
102602 PyObject *a_capi = Py_None(&_Py_NoneStruct);
102603 int lda = 0;
102604 double *work = NULL((void*)0);
102605 npy_intp work_Dims[1] = {-1};
102606 const int work_Rank = 1;
102607 PyArrayObject *capi_work_tmp = NULL((void*)0);
102608 int capi_work_intent = 0;
102609 static char *capi_kwlist[] = {"norm","a",NULL((void*)0)};
102610
102611/*routdebugenter*/
102612#ifdef F2PY_REPORT_ATEXIT
102613f2py_start_clock();
102614#endif
102615 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
102616 "OO:_flapack.zlange",\
102617 capi_kwlist,&norm_capi,&a_capi))
102618 return NULL((void*)0);
102619/*frompyobj*/
102620 /* Processing variable norm */
102621 slen(norm)capi_norm_len = 1;
102622 f2py_success = string_from_pyobj(&norm,&slen(norm)capi_norm_len,"",norm_capi,"string_from_pyobj failed in converting 1st argument `norm' of _flapack.zlange to C string");
102623 if (f2py_success) {
102624 CHECKSTRING(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e',"*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e'","1st argument norm","zlange:slen(norm)=%d norm=\"%s\"",norm)if (!(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm==
'o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'
||*norm=='e')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zlange:slen(norm)=%d norm=\"%s\"", "(""*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e'"
") failed for ""1st argument norm", capi_norm_len, norm); PyErr_SetString
(_flapack_error, errstring); } else
{
102625 /* Processing variable a */
102626 ;
102627 capi_a_intent |= F2PY_INTENT_IN1;
102628 capi_a_tmp = array_from_pyobj(NPY_CDOUBLE,a_Dims,a_Rank,capi_a_intent,a_capi);
102629 if (capi_a_tmp == NULL((void*)0)) {
102630 if (!PyErr_Occurred())
102631 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `a' of _flapack.zlange to C/Fortran array" );
102632 } else {
102633 a = (complex_double *)(PyArray_DATA(capi_a_tmp)((void *)((PyArrayObject_fields *)(capi_a_tmp))->data));
102634
102635 /* Processing variable n */
102636 n = shape(a,1)a_Dims[1];
102637 /* Processing variable m */
102638 m = shape(a,0)a_Dims[0];
102639 /* Processing variable lda */
102640 lda = max(1,m)((1 > m) ? (1) : (m));
102641 /* Processing variable work */
102642 work_Dims[0]=m + 1;
102643 capi_work_intent |= F2PY_INTENT_HIDE8|F2PY_INTENT_CACHE16;
102644 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,Py_None(&_Py_NoneStruct));
102645 if (capi_work_tmp == NULL((void*)0)) {
102646 if (!PyErr_Occurred())
102647 PyErr_SetString(_flapack_error,"failed in converting hidden `work' of _flapack.zlange to C/Fortran array" );
102648 } else {
102649 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
102650
102651 /* Processing variable zlange */
102652/*end of frompyobj*/
102653#ifdef F2PY_REPORT_ATEXIT
102654f2py_start_call_clock();
102655#endif
102656/*callfortranroutine*/
102657 (*f2py_func)(&zlange,norm,&m,&n,a,&lda,work) ;
102658 /*(*f2py_func)(&zlange,norm,&m,&n,a,&lda,work,slen(norm));*/
102659if (PyErr_Occurred())
102660 f2py_success = 0;
102661#ifdef F2PY_REPORT_ATEXIT
102662f2py_stop_call_clock();
102663#endif
102664/*end of callfortranroutine*/
102665 if (f2py_success) {
102666/*pyobjfrom*/
102667/*end of pyobjfrom*/
102668 CFUNCSMESS("Building return value.\n");
102669 capi_buildvalue = Py_BuildValue("d",zlange);
102670/*closepyobjfrom*/
102671/*end of closepyobjfrom*/
102672 } /*if (f2py_success) after callfortranroutine*/
102673/*cleanupfrompyobj*/
102674 /* End of cleaning variable zlange */
102675 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp)));
102676 } /*if (capi_work_tmp == NULL) ... else of work*/
102677 /* End of cleaning variable work */
102678 /* End of cleaning variable lda */
102679 /* End of cleaning variable m */
102680 /* End of cleaning variable n */
102681 if((PyObject *)capi_a_tmp!=a_capi) {
102682 Py_XDECREF(capi_a_tmp)_Py_XDECREF(((PyObject*)(capi_a_tmp))); }
102683 } /*if (capi_a_tmp == NULL) ... else of a*/
102684 /* End of cleaning variable a */
102685 } /*CHECKSTRING(*norm=='M'||*norm=='m'||*norm=='1'||*norm=='O'||*norm=='o'||*norm=='I'||*norm=='i'||*norm=='F'||*norm=='f'||*norm=='E'||*norm=='e')*/
102686 STRINGFREE(norm)do {if (!(norm == ((void*)0))) free(norm);} while (0);
102687 } /*if (f2py_success) of norm*/
102688 /* End of cleaning variable norm */
102689/*end of cleanupfrompyobj*/
102690 if (capi_buildvalue == NULL((void*)0)) {
102691/*routdebugfailure*/
102692 } else {
102693/*routdebugleave*/
102694 }
102695 CFUNCSMESS("Freeing memory.\n");
102696/*freemem*/
102697#ifdef F2PY_REPORT_ATEXIT
102698f2py_stop_clock();
102699#endif
102700 return capi_buildvalue;
102701}
102702/******************************* end of zlange *******************************/
102703
102704/*********************************** slarfg ***********************************/
102705static char doc_f2py_rout__flapack_slarfg[] = "\
102706alpha,x,tau = slarfg(n,alpha,x,[incx,overwrite_x])\n\nWrapper for ``slarfg``.\
102707\n\nParameters\n----------\n"
102708"n : input int\n"
102709"alpha : input float\n"
102710"x : input rank-1 array('f') with bounds (lx)\n"
102711"\nOther Parameters\n----------------\n"
102712"overwrite_x : input int, optional\n Default: 0\n"
102713"incx : input int, optional\n Default: 1\n"
102714"\nReturns\n-------\n"
102715"alpha : float\n"
102716"x : rank-1 array('f') with bounds (lx)\n"
102717"tau : float";
102718/* extern void F_FUNC(slarfg,SLARFG)(int*,float*,float*,int*,float*,int*); */
102719static PyObject *f2py_rout__flapack_slarfg(const PyObject *capi_self,
102720 PyObject *capi_args,
102721 PyObject *capi_keywds,
102722 void (*f2py_func)(int*,float*,float*,int*,float*,int*)) {
102723 PyObject * volatile capi_buildvalue = NULL((void*)0);
102724 volatile int f2py_success = 1;
102725/*decl*/
102726
102727 int n = 0;
102728 PyObject *n_capi = Py_None(&_Py_NoneStruct);
102729 float alpha = 0;
102730 PyObject *alpha_capi = Py_None(&_Py_NoneStruct);
102731 float *x = NULL((void*)0);
102732 npy_intp x_Dims[1] = {-1};
102733 const int x_Rank = 1;
102734 PyArrayObject *capi_x_tmp = NULL((void*)0);
102735 int capi_x_intent = 0;
102736 int capi_overwrite_x = 0;
102737 PyObject *x_capi = Py_None(&_Py_NoneStruct);
102738 int incx = 0;
102739 PyObject *incx_capi = Py_None(&_Py_NoneStruct);
102740 float tau = 0;
102741 int lx = 0;
102742 static char *capi_kwlist[] = {"n","alpha","x","incx","overwrite_x",NULL((void*)0)};
102743
102744/*routdebugenter*/
102745#ifdef F2PY_REPORT_ATEXIT
102746f2py_start_clock();
102747#endif
102748 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
102749 "OOO|Oi:_flapack.slarfg",\
102750 capi_kwlist,&n_capi,&alpha_capi,&x_capi,&incx_capi,&capi_overwrite_x))
102751 return NULL((void*)0);
102752/*frompyobj*/
102753 /* Processing variable n */
102754 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.slarfg() 1st argument (n) can't be converted to int");
102755 if (f2py_success) {
102756 CHECKSCALAR(n>=1,"n>=1","1st argument n","slarfg:n=%d",n)if (!(n>=1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""slarfg:n=%d", "(""n>=1"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
102757 /* Processing variable alpha */
102758 f2py_success = float_from_pyobj(&alpha,alpha_capi,"_flapack.slarfg() 2nd argument (alpha) can't be converted to float");
102759 if (f2py_success) {
102760 /* Processing variable x */
102761 capi_x_intent |= (capi_overwrite_x?0:F2PY_INTENT_COPY32);
102762 ;
102763 capi_x_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
102764 capi_x_tmp = array_from_pyobj(NPY_FLOAT,x_Dims,x_Rank,capi_x_intent,x_capi);
102765 if (capi_x_tmp == NULL((void*)0)) {
102766 if (!PyErr_Occurred())
102767 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `x' of _flapack.slarfg to C/Fortran array" );
102768 } else {
102769 x = (float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
102770
102771 /* Processing variable incx */
102772 if (incx_capi == Py_None(&_Py_NoneStruct)) incx = 1; else
102773 f2py_success = int_from_pyobj(&incx,incx_capi,"_flapack.slarfg() 1st keyword (incx) can't be converted to int");
102774 if (f2py_success) {
102775 CHECKSCALAR(incx>0||incx<0,"incx>0||incx<0","1st keyword incx","slarfg:incx=%d",incx)if (!(incx>0||incx<0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""slarfg:incx=%d", "(""incx>0||incx<0"") failed for "
"1st keyword incx", incx); PyErr_SetString(_flapack_error,errstring
); } else
{
102776 /* Processing variable tau */
102777 /* Processing variable lx */
102778 lx = len(x)x_Dims[0];
102779 CHECKSCALAR(lx > (n-2)*incx,"lx > (n-2)*incx","hidden lx","slarfg:lx=%d",lx)if (!(lx > (n-2)*incx)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""slarfg:lx=%d", "(""lx > (n-2)*incx"") failed for "
"hidden lx", lx); PyErr_SetString(_flapack_error,errstring); }
else
{
102780/*end of frompyobj*/
102781#ifdef F2PY_REPORT_ATEXIT
102782f2py_start_call_clock();
102783#endif
102784/*callfortranroutine*/
102785 (*f2py_func)(&n,&alpha,x,&incx,&tau,&lx);
102786if (PyErr_Occurred())
102787 f2py_success = 0;
102788#ifdef F2PY_REPORT_ATEXIT
102789f2py_stop_call_clock();
102790#endif
102791/*end of callfortranroutine*/
102792 if (f2py_success) {
102793/*pyobjfrom*/
102794/*end of pyobjfrom*/
102795 CFUNCSMESS("Building return value.\n");
102796 capi_buildvalue = Py_BuildValue("fNf",alpha,capi_x_tmp,tau);
102797/*closepyobjfrom*/
102798/*end of closepyobjfrom*/
102799 } /*if (f2py_success) after callfortranroutine*/
102800/*cleanupfrompyobj*/
102801 } /*CHECKSCALAR(lx > (n-2)*incx)*/
102802 /* End of cleaning variable lx */
102803 /* End of cleaning variable tau */
102804 } /*CHECKSCALAR(incx>0||incx<0)*/
102805 } /*if (f2py_success) of incx*/
102806 /* End of cleaning variable incx */
102807 } /*if (capi_x_tmp == NULL) ... else of x*/
102808 /* End of cleaning variable x */
102809 } /*if (f2py_success) of alpha*/
102810 /* End of cleaning variable alpha */
102811 } /*CHECKSCALAR(n>=1)*/
102812 } /*if (f2py_success) of n*/
102813 /* End of cleaning variable n */
102814/*end of cleanupfrompyobj*/
102815 if (capi_buildvalue == NULL((void*)0)) {
102816/*routdebugfailure*/
102817 } else {
102818/*routdebugleave*/
102819 }
102820 CFUNCSMESS("Freeing memory.\n");
102821/*freemem*/
102822#ifdef F2PY_REPORT_ATEXIT
102823f2py_stop_clock();
102824#endif
102825 return capi_buildvalue;
102826}
102827/******************************* end of slarfg *******************************/
102828
102829/*********************************** dlarfg ***********************************/
102830static char doc_f2py_rout__flapack_dlarfg[] = "\
102831alpha,x,tau = dlarfg(n,alpha,x,[incx,overwrite_x])\n\nWrapper for ``dlarfg``.\
102832\n\nParameters\n----------\n"
102833"n : input int\n"
102834"alpha : input float\n"
102835"x : input rank-1 array('d') with bounds (lx)\n"
102836"\nOther Parameters\n----------------\n"
102837"overwrite_x : input int, optional\n Default: 0\n"
102838"incx : input int, optional\n Default: 1\n"
102839"\nReturns\n-------\n"
102840"alpha : float\n"
102841"x : rank-1 array('d') with bounds (lx)\n"
102842"tau : float";
102843/* extern void F_FUNC(dlarfg,DLARFG)(int*,double*,double*,int*,double*,int*); */
102844static PyObject *f2py_rout__flapack_dlarfg(const PyObject *capi_self,
102845 PyObject *capi_args,
102846 PyObject *capi_keywds,
102847 void (*f2py_func)(int*,double*,double*,int*,double*,int*)) {
102848 PyObject * volatile capi_buildvalue = NULL((void*)0);
102849 volatile int f2py_success = 1;
102850/*decl*/
102851
102852 int n = 0;
102853 PyObject *n_capi = Py_None(&_Py_NoneStruct);
102854 double alpha = 0;
102855 PyObject *alpha_capi = Py_None(&_Py_NoneStruct);
102856 double *x = NULL((void*)0);
102857 npy_intp x_Dims[1] = {-1};
102858 const int x_Rank = 1;
102859 PyArrayObject *capi_x_tmp = NULL((void*)0);
102860 int capi_x_intent = 0;
102861 int capi_overwrite_x = 0;
102862 PyObject *x_capi = Py_None(&_Py_NoneStruct);
102863 int incx = 0;
102864 PyObject *incx_capi = Py_None(&_Py_NoneStruct);
102865 double tau = 0;
102866 int lx = 0;
102867 static char *capi_kwlist[] = {"n","alpha","x","incx","overwrite_x",NULL((void*)0)};
102868
102869/*routdebugenter*/
102870#ifdef F2PY_REPORT_ATEXIT
102871f2py_start_clock();
102872#endif
102873 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
102874 "OOO|Oi:_flapack.dlarfg",\
102875 capi_kwlist,&n_capi,&alpha_capi,&x_capi,&incx_capi,&capi_overwrite_x))
102876 return NULL((void*)0);
102877/*frompyobj*/
102878 /* Processing variable n */
102879 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.dlarfg() 1st argument (n) can't be converted to int");
102880 if (f2py_success) {
102881 CHECKSCALAR(n>=1,"n>=1","1st argument n","dlarfg:n=%d",n)if (!(n>=1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dlarfg:n=%d", "(""n>=1"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
102882 /* Processing variable alpha */
102883 f2py_success = double_from_pyobj(&alpha,alpha_capi,"_flapack.dlarfg() 2nd argument (alpha) can't be converted to double");
102884 if (f2py_success) {
102885 /* Processing variable x */
102886 capi_x_intent |= (capi_overwrite_x?0:F2PY_INTENT_COPY32);
102887 ;
102888 capi_x_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
102889 capi_x_tmp = array_from_pyobj(NPY_DOUBLE,x_Dims,x_Rank,capi_x_intent,x_capi);
102890 if (capi_x_tmp == NULL((void*)0)) {
102891 if (!PyErr_Occurred())
102892 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `x' of _flapack.dlarfg to C/Fortran array" );
102893 } else {
102894 x = (double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
102895
102896 /* Processing variable incx */
102897 if (incx_capi == Py_None(&_Py_NoneStruct)) incx = 1; else
102898 f2py_success = int_from_pyobj(&incx,incx_capi,"_flapack.dlarfg() 1st keyword (incx) can't be converted to int");
102899 if (f2py_success) {
102900 CHECKSCALAR(incx>0||incx<0,"incx>0||incx<0","1st keyword incx","dlarfg:incx=%d",incx)if (!(incx>0||incx<0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dlarfg:incx=%d", "(""incx>0||incx<0"") failed for "
"1st keyword incx", incx); PyErr_SetString(_flapack_error,errstring
); } else
{
102901 /* Processing variable tau */
102902 /* Processing variable lx */
102903 lx = len(x)x_Dims[0];
102904 CHECKSCALAR(lx > (n-2)*incx,"lx > (n-2)*incx","hidden lx","dlarfg:lx=%d",lx)if (!(lx > (n-2)*incx)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dlarfg:lx=%d", "(""lx > (n-2)*incx"") failed for "
"hidden lx", lx); PyErr_SetString(_flapack_error,errstring); }
else
{
102905/*end of frompyobj*/
102906#ifdef F2PY_REPORT_ATEXIT
102907f2py_start_call_clock();
102908#endif
102909/*callfortranroutine*/
102910 (*f2py_func)(&n,&alpha,x,&incx,&tau,&lx);
102911if (PyErr_Occurred())
102912 f2py_success = 0;
102913#ifdef F2PY_REPORT_ATEXIT
102914f2py_stop_call_clock();
102915#endif
102916/*end of callfortranroutine*/
102917 if (f2py_success) {
102918/*pyobjfrom*/
102919/*end of pyobjfrom*/
102920 CFUNCSMESS("Building return value.\n");
102921 capi_buildvalue = Py_BuildValue("dNd",alpha,capi_x_tmp,tau);
102922/*closepyobjfrom*/
102923/*end of closepyobjfrom*/
102924 } /*if (f2py_success) after callfortranroutine*/
102925/*cleanupfrompyobj*/
102926 } /*CHECKSCALAR(lx > (n-2)*incx)*/
102927 /* End of cleaning variable lx */
102928 /* End of cleaning variable tau */
102929 } /*CHECKSCALAR(incx>0||incx<0)*/
102930 } /*if (f2py_success) of incx*/
102931 /* End of cleaning variable incx */
102932 } /*if (capi_x_tmp == NULL) ... else of x*/
102933 /* End of cleaning variable x */
102934 } /*if (f2py_success) of alpha*/
102935 /* End of cleaning variable alpha */
102936 } /*CHECKSCALAR(n>=1)*/
102937 } /*if (f2py_success) of n*/
102938 /* End of cleaning variable n */
102939/*end of cleanupfrompyobj*/
102940 if (capi_buildvalue == NULL((void*)0)) {
102941/*routdebugfailure*/
102942 } else {
102943/*routdebugleave*/
102944 }
102945 CFUNCSMESS("Freeing memory.\n");
102946/*freemem*/
102947#ifdef F2PY_REPORT_ATEXIT
102948f2py_stop_clock();
102949#endif
102950 return capi_buildvalue;
102951}
102952/******************************* end of dlarfg *******************************/
102953
102954/*********************************** clarfg ***********************************/
102955static char doc_f2py_rout__flapack_clarfg[] = "\
102956alpha,x,tau = clarfg(n,alpha,x,[incx,overwrite_x])\n\nWrapper for ``clarfg``.\
102957\n\nParameters\n----------\n"
102958"n : input int\n"
102959"alpha : input complex\n"
102960"x : input rank-1 array('F') with bounds (lx)\n"
102961"\nOther Parameters\n----------------\n"
102962"overwrite_x : input int, optional\n Default: 0\n"
102963"incx : input int, optional\n Default: 1\n"
102964"\nReturns\n-------\n"
102965"alpha : complex\n"
102966"x : rank-1 array('F') with bounds (lx)\n"
102967"tau : complex";
102968/* extern void F_FUNC(clarfg,CLARFG)(int*,complex_float*,complex_float*,int*,complex_float*,int*); */
102969static PyObject *f2py_rout__flapack_clarfg(const PyObject *capi_self,
102970 PyObject *capi_args,
102971 PyObject *capi_keywds,
102972 void (*f2py_func)(int*,complex_float*,complex_float*,int*,complex_float*,int*)) {
102973 PyObject * volatile capi_buildvalue = NULL((void*)0);
102974 volatile int f2py_success = 1;
102975/*decl*/
102976
102977 int n = 0;
102978 PyObject *n_capi = Py_None(&_Py_NoneStruct);
102979 complex_float alpha;
102980 PyObject *alpha_capi = Py_None(&_Py_NoneStruct);
102981 complex_float *x = NULL((void*)0);
102982 npy_intp x_Dims[1] = {-1};
102983 const int x_Rank = 1;
102984 PyArrayObject *capi_x_tmp = NULL((void*)0);
102985 int capi_x_intent = 0;
102986 int capi_overwrite_x = 0;
102987 PyObject *x_capi = Py_None(&_Py_NoneStruct);
102988 int incx = 0;
102989 PyObject *incx_capi = Py_None(&_Py_NoneStruct);
102990 complex_float tau;
102991 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
102992 int lx = 0;
102993 static char *capi_kwlist[] = {"n","alpha","x","incx","overwrite_x",NULL((void*)0)};
102994
102995/*routdebugenter*/
102996#ifdef F2PY_REPORT_ATEXIT
102997f2py_start_clock();
102998#endif
102999 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
103000 "OOO|Oi:_flapack.clarfg",\
103001 capi_kwlist,&n_capi,&alpha_capi,&x_capi,&incx_capi,&capi_overwrite_x))
103002 return NULL((void*)0);
103003/*frompyobj*/
103004 /* Processing variable n */
103005 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.clarfg() 1st argument (n) can't be converted to int");
103006 if (f2py_success) {
103007 CHECKSCALAR(n>=1,"n>=1","1st argument n","clarfg:n=%d",n)if (!(n>=1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""clarfg:n=%d", "(""n>=1"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
103008 /* Processing variable alpha */
103009 f2py_success = complex_float_from_pyobj(&alpha,alpha_capi,"_flapack.clarfg() 2nd argument (alpha) can't be converted to complex_float");
103010 if (f2py_success) {
103011 /* Processing variable x */
103012 capi_x_intent |= (capi_overwrite_x?0:F2PY_INTENT_COPY32);
103013 ;
103014 capi_x_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
103015 capi_x_tmp = array_from_pyobj(NPY_CFLOAT,x_Dims,x_Rank,capi_x_intent,x_capi);
103016 if (capi_x_tmp == NULL((void*)0)) {
103017 if (!PyErr_Occurred())
103018 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `x' of _flapack.clarfg to C/Fortran array" );
103019 } else {
103020 x = (complex_float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
103021
103022 /* Processing variable incx */
103023 if (incx_capi == Py_None(&_Py_NoneStruct)) incx = 1; else
103024 f2py_success = int_from_pyobj(&incx,incx_capi,"_flapack.clarfg() 1st keyword (incx) can't be converted to int");
103025 if (f2py_success) {
103026 CHECKSCALAR(incx>0||incx<0,"incx>0||incx<0","1st keyword incx","clarfg:incx=%d",incx)if (!(incx>0||incx<0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""clarfg:incx=%d", "(""incx>0||incx<0"") failed for "
"1st keyword incx", incx); PyErr_SetString(_flapack_error,errstring
); } else
{
103027 /* Processing variable tau */
103028 /* Processing variable lx */
103029 lx = len(x)x_Dims[0];
103030 CHECKSCALAR(lx > (n-2)*incx,"lx > (n-2)*incx","hidden lx","clarfg:lx=%d",lx)if (!(lx > (n-2)*incx)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""clarfg:lx=%d", "(""lx > (n-2)*incx"") failed for "
"hidden lx", lx); PyErr_SetString(_flapack_error,errstring); }
else
{
103031/*end of frompyobj*/
103032#ifdef F2PY_REPORT_ATEXIT
103033f2py_start_call_clock();
103034#endif
103035/*callfortranroutine*/
103036 (*f2py_func)(&n,&alpha,x,&incx,&tau,&lx);
103037if (PyErr_Occurred())
103038 f2py_success = 0;
103039#ifdef F2PY_REPORT_ATEXIT
103040f2py_stop_call_clock();
103041#endif
103042/*end of callfortranroutine*/
103043 if (f2py_success) {
103044/*pyobjfrom*/
103045 alpha_capi = pyobj_from_complex_float1(alpha)(PyComplex_FromDoubles(alpha.r,alpha.i));
103046 tau_capi = pyobj_from_complex_float1(tau)(PyComplex_FromDoubles(tau.r,tau.i));
103047/*end of pyobjfrom*/
103048 CFUNCSMESS("Building return value.\n");
103049 capi_buildvalue = Py_BuildValue("NNN",alpha_capi,capi_x_tmp,tau_capi);
103050/*closepyobjfrom*/
103051/*end of closepyobjfrom*/
103052 } /*if (f2py_success) after callfortranroutine*/
103053/*cleanupfrompyobj*/
103054 } /*CHECKSCALAR(lx > (n-2)*incx)*/
103055 /* End of cleaning variable lx */
103056 /* End of cleaning variable tau */
103057 } /*CHECKSCALAR(incx>0||incx<0)*/
103058 } /*if (f2py_success) of incx*/
103059 /* End of cleaning variable incx */
103060 } /*if (capi_x_tmp == NULL) ... else of x*/
103061 /* End of cleaning variable x */
103062 } /*if (f2py_success) of alpha frompyobj*/
103063 /* End of cleaning variable alpha */
103064 } /*CHECKSCALAR(n>=1)*/
103065 } /*if (f2py_success) of n*/
103066 /* End of cleaning variable n */
103067/*end of cleanupfrompyobj*/
103068 if (capi_buildvalue == NULL((void*)0)) {
103069/*routdebugfailure*/
103070 } else {
103071/*routdebugleave*/
103072 }
103073 CFUNCSMESS("Freeing memory.\n");
103074/*freemem*/
103075#ifdef F2PY_REPORT_ATEXIT
103076f2py_stop_clock();
103077#endif
103078 return capi_buildvalue;
103079}
103080/******************************* end of clarfg *******************************/
103081
103082/*********************************** zlarfg ***********************************/
103083static char doc_f2py_rout__flapack_zlarfg[] = "\
103084alpha,x,tau = zlarfg(n,alpha,x,[incx,overwrite_x])\n\nWrapper for ``zlarfg``.\
103085\n\nParameters\n----------\n"
103086"n : input int\n"
103087"alpha : input complex\n"
103088"x : input rank-1 array('D') with bounds (lx)\n"
103089"\nOther Parameters\n----------------\n"
103090"overwrite_x : input int, optional\n Default: 0\n"
103091"incx : input int, optional\n Default: 1\n"
103092"\nReturns\n-------\n"
103093"alpha : complex\n"
103094"x : rank-1 array('D') with bounds (lx)\n"
103095"tau : complex";
103096/* extern void F_FUNC(zlarfg,ZLARFG)(int*,complex_double*,complex_double*,int*,complex_double*,int*); */
103097static PyObject *f2py_rout__flapack_zlarfg(const PyObject *capi_self,
103098 PyObject *capi_args,
103099 PyObject *capi_keywds,
103100 void (*f2py_func)(int*,complex_double*,complex_double*,int*,complex_double*,int*)) {
103101 PyObject * volatile capi_buildvalue = NULL((void*)0);
103102 volatile int f2py_success = 1;
103103/*decl*/
103104
103105 int n = 0;
103106 PyObject *n_capi = Py_None(&_Py_NoneStruct);
103107 complex_double alpha;
103108 PyObject *alpha_capi = Py_None(&_Py_NoneStruct);
103109 complex_double *x = NULL((void*)0);
103110 npy_intp x_Dims[1] = {-1};
103111 const int x_Rank = 1;
103112 PyArrayObject *capi_x_tmp = NULL((void*)0);
103113 int capi_x_intent = 0;
103114 int capi_overwrite_x = 0;
103115 PyObject *x_capi = Py_None(&_Py_NoneStruct);
103116 int incx = 0;
103117 PyObject *incx_capi = Py_None(&_Py_NoneStruct);
103118 complex_double tau;
103119 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
103120 int lx = 0;
103121 static char *capi_kwlist[] = {"n","alpha","x","incx","overwrite_x",NULL((void*)0)};
103122
103123/*routdebugenter*/
103124#ifdef F2PY_REPORT_ATEXIT
103125f2py_start_clock();
103126#endif
103127 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
103128 "OOO|Oi:_flapack.zlarfg",\
103129 capi_kwlist,&n_capi,&alpha_capi,&x_capi,&incx_capi,&capi_overwrite_x))
103130 return NULL((void*)0);
103131/*frompyobj*/
103132 /* Processing variable n */
103133 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zlarfg() 1st argument (n) can't be converted to int");
103134 if (f2py_success) {
103135 CHECKSCALAR(n>=1,"n>=1","1st argument n","zlarfg:n=%d",n)if (!(n>=1)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zlarfg:n=%d", "(""n>=1"") failed for ""1st argument n"
, n); PyErr_SetString(_flapack_error,errstring); } else
{
103136 /* Processing variable alpha */
103137 f2py_success = complex_double_from_pyobj(&alpha,alpha_capi,"_flapack.zlarfg() 2nd argument (alpha) can't be converted to complex_double");
103138 if (f2py_success) {
103139 /* Processing variable x */
103140 capi_x_intent |= (capi_overwrite_x?0:F2PY_INTENT_COPY32);
103141 ;
103142 capi_x_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
103143 capi_x_tmp = array_from_pyobj(NPY_CDOUBLE,x_Dims,x_Rank,capi_x_intent,x_capi);
103144 if (capi_x_tmp == NULL((void*)0)) {
103145 if (!PyErr_Occurred())
103146 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `x' of _flapack.zlarfg to C/Fortran array" );
103147 } else {
103148 x = (complex_double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
103149
103150 /* Processing variable incx */
103151 if (incx_capi == Py_None(&_Py_NoneStruct)) incx = 1; else
103152 f2py_success = int_from_pyobj(&incx,incx_capi,"_flapack.zlarfg() 1st keyword (incx) can't be converted to int");
103153 if (f2py_success) {
103154 CHECKSCALAR(incx>0||incx<0,"incx>0||incx<0","1st keyword incx","zlarfg:incx=%d",incx)if (!(incx>0||incx<0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zlarfg:incx=%d", "(""incx>0||incx<0"") failed for "
"1st keyword incx", incx); PyErr_SetString(_flapack_error,errstring
); } else
{
103155 /* Processing variable tau */
103156 /* Processing variable lx */
103157 lx = len(x)x_Dims[0];
103158 CHECKSCALAR(lx > (n-2)*incx,"lx > (n-2)*incx","hidden lx","zlarfg:lx=%d",lx)if (!(lx > (n-2)*incx)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zlarfg:lx=%d", "(""lx > (n-2)*incx"") failed for "
"hidden lx", lx); PyErr_SetString(_flapack_error,errstring); }
else
{
103159/*end of frompyobj*/
103160#ifdef F2PY_REPORT_ATEXIT
103161f2py_start_call_clock();
103162#endif
103163/*callfortranroutine*/
103164 (*f2py_func)(&n,&alpha,x,&incx,&tau,&lx);
103165if (PyErr_Occurred())
103166 f2py_success = 0;
103167#ifdef F2PY_REPORT_ATEXIT
103168f2py_stop_call_clock();
103169#endif
103170/*end of callfortranroutine*/
103171 if (f2py_success) {
103172/*pyobjfrom*/
103173 alpha_capi = pyobj_from_complex_double1(alpha)(PyComplex_FromDoubles(alpha.r,alpha.i));
103174 tau_capi = pyobj_from_complex_double1(tau)(PyComplex_FromDoubles(tau.r,tau.i));
103175/*end of pyobjfrom*/
103176 CFUNCSMESS("Building return value.\n");
103177 capi_buildvalue = Py_BuildValue("NNN",alpha_capi,capi_x_tmp,tau_capi);
103178/*closepyobjfrom*/
103179/*end of closepyobjfrom*/
103180 } /*if (f2py_success) after callfortranroutine*/
103181/*cleanupfrompyobj*/
103182 } /*CHECKSCALAR(lx > (n-2)*incx)*/
103183 /* End of cleaning variable lx */
103184 /* End of cleaning variable tau */
103185 } /*CHECKSCALAR(incx>0||incx<0)*/
103186 } /*if (f2py_success) of incx*/
103187 /* End of cleaning variable incx */
103188 } /*if (capi_x_tmp == NULL) ... else of x*/
103189 /* End of cleaning variable x */
103190 } /*if (f2py_success) of alpha frompyobj*/
103191 /* End of cleaning variable alpha */
103192 } /*CHECKSCALAR(n>=1)*/
103193 } /*if (f2py_success) of n*/
103194 /* End of cleaning variable n */
103195/*end of cleanupfrompyobj*/
103196 if (capi_buildvalue == NULL((void*)0)) {
103197/*routdebugfailure*/
103198 } else {
103199/*routdebugleave*/
103200 }
103201 CFUNCSMESS("Freeing memory.\n");
103202/*freemem*/
103203#ifdef F2PY_REPORT_ATEXIT
103204f2py_stop_clock();
103205#endif
103206 return capi_buildvalue;
103207}
103208/******************************* end of zlarfg *******************************/
103209
103210/*********************************** slarf ***********************************/
103211static char doc_f2py_rout__flapack_slarf[] = "\
103212c = slarf(v,tau,c,work,[side,incv,overwrite_c])\n\nWrapper for ``slarf``.\
103213\n\nParameters\n----------\n"
103214"v : input rank-1 array('f') with bounds ((side[0]=='L'?(1 + (m-1)*abs(incv)):(1 + (n-1)*abs(incv))))\n"
103215"tau : input float\n"
103216"c : input rank-2 array('f') with bounds (m,n)\n"
103217"work : input rank-1 array('f') with bounds (lwork)\n"
103218"\nOther Parameters\n----------------\n"
103219"side : input string(len=1), optional\n Default: 'L'\n"
103220"incv : input int, optional\n Default: 1\n"
103221"overwrite_c : input int, optional\n Default: 0\n"
103222"\nReturns\n-------\n"
103223"c : rank-2 array('f') with bounds (m,n)";
103224/* extern void F_FUNC(slarf,SLARF)(string,int*,int*,float*,int*,float*,float*,int*,float*,int*,size_t); */
103225static PyObject *f2py_rout__flapack_slarf(const PyObject *capi_self,
103226 PyObject *capi_args,
103227 PyObject *capi_keywds,
103228 void (*f2py_func)(string,int*,int*,float*,int*,float*,float*,int*,float*,int*,size_t)) {
103229 PyObject * volatile capi_buildvalue = NULL((void*)0);
103230 volatile int f2py_success = 1;
103231/*decl*/
103232
103233 string side = NULL((void*)0);
103234 int slen(side)capi_side_len;
103235 PyObject *side_capi = Py_None(&_Py_NoneStruct);
103236 int m = 0;
103237 int n = 0;
103238 float *v = NULL((void*)0);
103239 npy_intp v_Dims[1] = {-1};
103240 const int v_Rank = 1;
103241 PyArrayObject *capi_v_tmp = NULL((void*)0);
103242 int capi_v_intent = 0;
103243 PyObject *v_capi = Py_None(&_Py_NoneStruct);
103244 int incv = 0;
103245 PyObject *incv_capi = Py_None(&_Py_NoneStruct);
103246 float tau = 0;
103247 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
103248 float *c = NULL((void*)0);
103249 npy_intp c_Dims[2] = {-1, -1};
103250 const int c_Rank = 2;
103251 PyArrayObject *capi_c_tmp = NULL((void*)0);
103252 int capi_c_intent = 0;
103253 int capi_overwrite_c = 0;
103254 PyObject *c_capi = Py_None(&_Py_NoneStruct);
103255 int ldc = 0;
103256 float *work = NULL((void*)0);
103257 npy_intp work_Dims[1] = {-1};
103258 const int work_Rank = 1;
103259 PyArrayObject *capi_work_tmp = NULL((void*)0);
103260 int capi_work_intent = 0;
103261 PyObject *work_capi = Py_None(&_Py_NoneStruct);
103262 int lwork = 0;
103263 static char *capi_kwlist[] = {"v","tau","c","work","side","incv","overwrite_c",NULL((void*)0)};
103264
103265/*routdebugenter*/
103266#ifdef F2PY_REPORT_ATEXIT
103267f2py_start_clock();
103268#endif
103269 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
103270 "OOOO|OOi:_flapack.slarf",\
103271 capi_kwlist,&v_capi,&tau_capi,&c_capi,&work_capi,&side_capi,&incv_capi,&capi_overwrite_c))
103272 return NULL((void*)0);
103273/*frompyobj*/
103274 /* Processing variable side */
103275 slen(side)capi_side_len = 1;
103276 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.slarf to C string");
103277 if (f2py_success) {
103278 CHECKSTRING(side[0]=='L'||side[0]=='R',"side[0]=='L'||side[0]=='R'","1st keyword side","slarf:slen(side)=%d side=\"%s\"",side)if (!(side[0]=='L'||side[0]=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""slarf:slen(side)=%d side=\"%s\"", "(""side[0]=='L'||side[0]=='R'"
") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
103279 /* Processing variable incv */
103280 if (incv_capi == Py_None(&_Py_NoneStruct)) incv = 1; else
103281 f2py_success = int_from_pyobj(&incv,incv_capi,"_flapack.slarf() 2nd keyword (incv) can't be converted to int");
103282 if (f2py_success) {
103283 CHECKSCALAR(incv>0||incv<0,"incv>0||incv<0","2nd keyword incv","slarf:incv=%d",incv)if (!(incv>0||incv<0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""slarf:incv=%d", "(""incv>0||incv<0"") failed for "
"2nd keyword incv", incv); PyErr_SetString(_flapack_error,errstring
); } else
{
103284 /* Processing variable tau */
103285 f2py_success = float_from_pyobj(&tau,tau_capi,"_flapack.slarf() 2nd argument (tau) can't be converted to float");
103286 if (f2py_success) {
103287 /* Processing variable c */
103288 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
103289 ;
103290 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
103291 capi_c_tmp = array_from_pyobj(NPY_FLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
103292 if (capi_c_tmp == NULL((void*)0)) {
103293 if (!PyErr_Occurred())
103294 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.slarf to C/Fortran array" );
103295 } else {
103296 c = (float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
103297
103298 /* Processing variable m */
103299 m = shape(c,0)c_Dims[0];
103300 /* Processing variable n */
103301 n = shape(c,1)c_Dims[1];
103302 /* Processing variable v */
103303 v_Dims[0]=(side[0]=='L'?(1 + (m-1)*abs(incv)):(1 + (n-1)*abs(incv)));
103304 capi_v_intent |= F2PY_INTENT_IN1;
103305 capi_v_tmp = array_from_pyobj(NPY_FLOAT,v_Dims,v_Rank,capi_v_intent,v_capi);
103306 if (capi_v_tmp == NULL((void*)0)) {
103307 if (!PyErr_Occurred())
103308 PyErr_SetString(_flapack_error,"failed in converting 1st argument `v' of _flapack.slarf to C/Fortran array" );
103309 } else {
103310 v = (float *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data));
103311
103312 /* Processing variable ldc */
103313 ldc = max(1,shape(c,0))((1 > c_Dims[0]) ? (1) : (c_Dims[0]));
103314 /* Processing variable work */
103315 ;
103316 capi_work_intent |= F2PY_INTENT_IN1;
103317 capi_work_tmp = array_from_pyobj(NPY_FLOAT,work_Dims,work_Rank,capi_work_intent,work_capi);
103318 if (capi_work_tmp == NULL((void*)0)) {
103319 if (!PyErr_Occurred())
103320 PyErr_SetString(_flapack_error,"failed in converting 4th argument `work' of _flapack.slarf to C/Fortran array" );
103321 } else {
103322 work = (float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
103323
103324 /* Processing variable lwork */
103325 lwork = len(work)work_Dims[0];
103326 CHECKSCALAR(lwork >= (side[0]=='L'?n:m),"lwork >= (side[0]=='L'?n:m)","hidden lwork","slarf:lwork=%d",lwork)if (!(lwork >= (side[0]=='L'?n:m))) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""slarf:lwork=%d", "(""lwork >= (side[0]=='L'?n:m)"
") failed for ""hidden lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
103327/*end of frompyobj*/
103328#ifdef F2PY_REPORT_ATEXIT
103329f2py_start_call_clock();
103330#endif
103331/*callfortranroutine*/
103332 (*f2py_func)(side,&m,&n,v,&incv,&tau,c,&ldc,work,&lwork,slen(side)capi_side_len);
103333if (PyErr_Occurred())
103334 f2py_success = 0;
103335#ifdef F2PY_REPORT_ATEXIT
103336f2py_stop_call_clock();
103337#endif
103338/*end of callfortranroutine*/
103339 if (f2py_success) {
103340/*pyobjfrom*/
103341/*end of pyobjfrom*/
103342 CFUNCSMESS("Building return value.\n");
103343 capi_buildvalue = Py_BuildValue("N",capi_c_tmp);
103344/*closepyobjfrom*/
103345/*end of closepyobjfrom*/
103346 } /*if (f2py_success) after callfortranroutine*/
103347/*cleanupfrompyobj*/
103348 } /*CHECKSCALAR(lwork >= (side[0]=='L'?n:m))*/
103349 /* End of cleaning variable lwork */
103350 if((PyObject *)capi_work_tmp!=work_capi) {
103351 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); }
103352 } /*if (capi_work_tmp == NULL) ... else of work*/
103353 /* End of cleaning variable work */
103354 /* End of cleaning variable ldc */
103355 if((PyObject *)capi_v_tmp!=v_capi) {
103356 Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); }
103357 } /*if (capi_v_tmp == NULL) ... else of v*/
103358 /* End of cleaning variable v */
103359 /* End of cleaning variable n */
103360 /* End of cleaning variable m */
103361 } /*if (capi_c_tmp == NULL) ... else of c*/
103362 /* End of cleaning variable c */
103363 } /*if (f2py_success) of tau*/
103364 /* End of cleaning variable tau */
103365 } /*CHECKSCALAR(incv>0||incv<0)*/
103366 } /*if (f2py_success) of incv*/
103367 /* End of cleaning variable incv */
103368 } /*CHECKSTRING(side[0]=='L'||side[0]=='R')*/
103369 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
103370 } /*if (f2py_success) of side*/
103371 /* End of cleaning variable side */
103372/*end of cleanupfrompyobj*/
103373 if (capi_buildvalue == NULL((void*)0)) {
103374/*routdebugfailure*/
103375 } else {
103376/*routdebugleave*/
103377 }
103378 CFUNCSMESS("Freeing memory.\n");
103379/*freemem*/
103380#ifdef F2PY_REPORT_ATEXIT
103381f2py_stop_clock();
103382#endif
103383 return capi_buildvalue;
103384}
103385/******************************** end of slarf ********************************/
103386
103387/*********************************** dlarf ***********************************/
103388static char doc_f2py_rout__flapack_dlarf[] = "\
103389c = dlarf(v,tau,c,work,[side,incv,overwrite_c])\n\nWrapper for ``dlarf``.\
103390\n\nParameters\n----------\n"
103391"v : input rank-1 array('d') with bounds ((side[0]=='L'?(1 + (m-1)*abs(incv)):(1 + (n-1)*abs(incv))))\n"
103392"tau : input float\n"
103393"c : input rank-2 array('d') with bounds (m,n)\n"
103394"work : input rank-1 array('d') with bounds (lwork)\n"
103395"\nOther Parameters\n----------------\n"
103396"side : input string(len=1), optional\n Default: 'L'\n"
103397"incv : input int, optional\n Default: 1\n"
103398"overwrite_c : input int, optional\n Default: 0\n"
103399"\nReturns\n-------\n"
103400"c : rank-2 array('d') with bounds (m,n)";
103401/* extern void F_FUNC(dlarf,DLARF)(string,int*,int*,double*,int*,double*,double*,int*,double*,int*,size_t); */
103402static PyObject *f2py_rout__flapack_dlarf(const PyObject *capi_self,
103403 PyObject *capi_args,
103404 PyObject *capi_keywds,
103405 void (*f2py_func)(string,int*,int*,double*,int*,double*,double*,int*,double*,int*,size_t)) {
103406 PyObject * volatile capi_buildvalue = NULL((void*)0);
103407 volatile int f2py_success = 1;
103408/*decl*/
103409
103410 string side = NULL((void*)0);
103411 int slen(side)capi_side_len;
103412 PyObject *side_capi = Py_None(&_Py_NoneStruct);
103413 int m = 0;
103414 int n = 0;
103415 double *v = NULL((void*)0);
103416 npy_intp v_Dims[1] = {-1};
103417 const int v_Rank = 1;
103418 PyArrayObject *capi_v_tmp = NULL((void*)0);
103419 int capi_v_intent = 0;
103420 PyObject *v_capi = Py_None(&_Py_NoneStruct);
103421 int incv = 0;
103422 PyObject *incv_capi = Py_None(&_Py_NoneStruct);
103423 double tau = 0;
103424 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
103425 double *c = NULL((void*)0);
103426 npy_intp c_Dims[2] = {-1, -1};
103427 const int c_Rank = 2;
103428 PyArrayObject *capi_c_tmp = NULL((void*)0);
103429 int capi_c_intent = 0;
103430 int capi_overwrite_c = 0;
103431 PyObject *c_capi = Py_None(&_Py_NoneStruct);
103432 int ldc = 0;
103433 double *work = NULL((void*)0);
103434 npy_intp work_Dims[1] = {-1};
103435 const int work_Rank = 1;
103436 PyArrayObject *capi_work_tmp = NULL((void*)0);
103437 int capi_work_intent = 0;
103438 PyObject *work_capi = Py_None(&_Py_NoneStruct);
103439 int lwork = 0;
103440 static char *capi_kwlist[] = {"v","tau","c","work","side","incv","overwrite_c",NULL((void*)0)};
103441
103442/*routdebugenter*/
103443#ifdef F2PY_REPORT_ATEXIT
103444f2py_start_clock();
103445#endif
103446 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
103447 "OOOO|OOi:_flapack.dlarf",\
103448 capi_kwlist,&v_capi,&tau_capi,&c_capi,&work_capi,&side_capi,&incv_capi,&capi_overwrite_c))
103449 return NULL((void*)0);
103450/*frompyobj*/
103451 /* Processing variable side */
103452 slen(side)capi_side_len = 1;
103453 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.dlarf to C string");
103454 if (f2py_success) {
103455 CHECKSTRING(side[0]=='L'||side[0]=='R',"side[0]=='L'||side[0]=='R'","1st keyword side","dlarf:slen(side)=%d side=\"%s\"",side)if (!(side[0]=='L'||side[0]=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dlarf:slen(side)=%d side=\"%s\"", "(""side[0]=='L'||side[0]=='R'"
") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
103456 /* Processing variable incv */
103457 if (incv_capi == Py_None(&_Py_NoneStruct)) incv = 1; else
103458 f2py_success = int_from_pyobj(&incv,incv_capi,"_flapack.dlarf() 2nd keyword (incv) can't be converted to int");
103459 if (f2py_success) {
103460 CHECKSCALAR(incv>0||incv<0,"incv>0||incv<0","2nd keyword incv","dlarf:incv=%d",incv)if (!(incv>0||incv<0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""dlarf:incv=%d", "(""incv>0||incv<0"") failed for "
"2nd keyword incv", incv); PyErr_SetString(_flapack_error,errstring
); } else
{
103461 /* Processing variable tau */
103462 f2py_success = double_from_pyobj(&tau,tau_capi,"_flapack.dlarf() 2nd argument (tau) can't be converted to double");
103463 if (f2py_success) {
103464 /* Processing variable c */
103465 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
103466 ;
103467 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
103468 capi_c_tmp = array_from_pyobj(NPY_DOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
103469 if (capi_c_tmp == NULL((void*)0)) {
103470 if (!PyErr_Occurred())
103471 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.dlarf to C/Fortran array" );
103472 } else {
103473 c = (double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
103474
103475 /* Processing variable m */
103476 m = shape(c,0)c_Dims[0];
103477 /* Processing variable n */
103478 n = shape(c,1)c_Dims[1];
103479 /* Processing variable v */
103480 v_Dims[0]=(side[0]=='L'?(1 + (m-1)*abs(incv)):(1 + (n-1)*abs(incv)));
103481 capi_v_intent |= F2PY_INTENT_IN1;
103482 capi_v_tmp = array_from_pyobj(NPY_DOUBLE,v_Dims,v_Rank,capi_v_intent,v_capi);
103483 if (capi_v_tmp == NULL((void*)0)) {
103484 if (!PyErr_Occurred())
103485 PyErr_SetString(_flapack_error,"failed in converting 1st argument `v' of _flapack.dlarf to C/Fortran array" );
103486 } else {
103487 v = (double *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data));
103488
103489 /* Processing variable ldc */
103490 ldc = max(1,shape(c,0))((1 > c_Dims[0]) ? (1) : (c_Dims[0]));
103491 /* Processing variable work */
103492 ;
103493 capi_work_intent |= F2PY_INTENT_IN1;
103494 capi_work_tmp = array_from_pyobj(NPY_DOUBLE,work_Dims,work_Rank,capi_work_intent,work_capi);
103495 if (capi_work_tmp == NULL((void*)0)) {
103496 if (!PyErr_Occurred())
103497 PyErr_SetString(_flapack_error,"failed in converting 4th argument `work' of _flapack.dlarf to C/Fortran array" );
103498 } else {
103499 work = (double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
103500
103501 /* Processing variable lwork */
103502 lwork = len(work)work_Dims[0];
103503 CHECKSCALAR(lwork >= (side[0]=='L'?n:m),"lwork >= (side[0]=='L'?n:m)","hidden lwork","dlarf:lwork=%d",lwork)if (!(lwork >= (side[0]=='L'?n:m))) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""dlarf:lwork=%d", "(""lwork >= (side[0]=='L'?n:m)"
") failed for ""hidden lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
103504/*end of frompyobj*/
103505#ifdef F2PY_REPORT_ATEXIT
103506f2py_start_call_clock();
103507#endif
103508/*callfortranroutine*/
103509 (*f2py_func)(side,&m,&n,v,&incv,&tau,c,&ldc,work,&lwork,slen(side)capi_side_len);
103510if (PyErr_Occurred())
103511 f2py_success = 0;
103512#ifdef F2PY_REPORT_ATEXIT
103513f2py_stop_call_clock();
103514#endif
103515/*end of callfortranroutine*/
103516 if (f2py_success) {
103517/*pyobjfrom*/
103518/*end of pyobjfrom*/
103519 CFUNCSMESS("Building return value.\n");
103520 capi_buildvalue = Py_BuildValue("N",capi_c_tmp);
103521/*closepyobjfrom*/
103522/*end of closepyobjfrom*/
103523 } /*if (f2py_success) after callfortranroutine*/
103524/*cleanupfrompyobj*/
103525 } /*CHECKSCALAR(lwork >= (side[0]=='L'?n:m))*/
103526 /* End of cleaning variable lwork */
103527 if((PyObject *)capi_work_tmp!=work_capi) {
103528 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); }
103529 } /*if (capi_work_tmp == NULL) ... else of work*/
103530 /* End of cleaning variable work */
103531 /* End of cleaning variable ldc */
103532 if((PyObject *)capi_v_tmp!=v_capi) {
103533 Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); }
103534 } /*if (capi_v_tmp == NULL) ... else of v*/
103535 /* End of cleaning variable v */
103536 /* End of cleaning variable n */
103537 /* End of cleaning variable m */
103538 } /*if (capi_c_tmp == NULL) ... else of c*/
103539 /* End of cleaning variable c */
103540 } /*if (f2py_success) of tau*/
103541 /* End of cleaning variable tau */
103542 } /*CHECKSCALAR(incv>0||incv<0)*/
103543 } /*if (f2py_success) of incv*/
103544 /* End of cleaning variable incv */
103545 } /*CHECKSTRING(side[0]=='L'||side[0]=='R')*/
103546 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
103547 } /*if (f2py_success) of side*/
103548 /* End of cleaning variable side */
103549/*end of cleanupfrompyobj*/
103550 if (capi_buildvalue == NULL((void*)0)) {
103551/*routdebugfailure*/
103552 } else {
103553/*routdebugleave*/
103554 }
103555 CFUNCSMESS("Freeing memory.\n");
103556/*freemem*/
103557#ifdef F2PY_REPORT_ATEXIT
103558f2py_stop_clock();
103559#endif
103560 return capi_buildvalue;
103561}
103562/******************************** end of dlarf ********************************/
103563
103564/*********************************** clarf ***********************************/
103565static char doc_f2py_rout__flapack_clarf[] = "\
103566c = clarf(v,tau,c,work,[side,incv,overwrite_c])\n\nWrapper for ``clarf``.\
103567\n\nParameters\n----------\n"
103568"v : input rank-1 array('F') with bounds ((side[0]=='L'?(1 + (m-1)*abs(incv)):(1 + (n-1)*abs(incv))))\n"
103569"tau : input complex\n"
103570"c : input rank-2 array('F') with bounds (m,n)\n"
103571"work : input rank-1 array('F') with bounds (lwork)\n"
103572"\nOther Parameters\n----------------\n"
103573"side : input string(len=1), optional\n Default: 'L'\n"
103574"incv : input int, optional\n Default: 1\n"
103575"overwrite_c : input int, optional\n Default: 0\n"
103576"\nReturns\n-------\n"
103577"c : rank-2 array('F') with bounds (m,n)";
103578/* extern void F_FUNC(clarf,CLARF)(string,int*,int*,complex_float*,int*,complex_float*,complex_float*,int*,complex_float*,int*,size_t); */
103579static PyObject *f2py_rout__flapack_clarf(const PyObject *capi_self,
103580 PyObject *capi_args,
103581 PyObject *capi_keywds,
103582 void (*f2py_func)(string,int*,int*,complex_float*,int*,complex_float*,complex_float*,int*,complex_float*,int*,size_t)) {
103583 PyObject * volatile capi_buildvalue = NULL((void*)0);
103584 volatile int f2py_success = 1;
103585/*decl*/
103586
103587 string side = NULL((void*)0);
103588 int slen(side)capi_side_len;
103589 PyObject *side_capi = Py_None(&_Py_NoneStruct);
103590 int m = 0;
103591 int n = 0;
103592 complex_float *v = NULL((void*)0);
103593 npy_intp v_Dims[1] = {-1};
103594 const int v_Rank = 1;
103595 PyArrayObject *capi_v_tmp = NULL((void*)0);
103596 int capi_v_intent = 0;
103597 PyObject *v_capi = Py_None(&_Py_NoneStruct);
103598 int incv = 0;
103599 PyObject *incv_capi = Py_None(&_Py_NoneStruct);
103600 complex_float tau;
103601 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
103602 complex_float *c = NULL((void*)0);
103603 npy_intp c_Dims[2] = {-1, -1};
103604 const int c_Rank = 2;
103605 PyArrayObject *capi_c_tmp = NULL((void*)0);
103606 int capi_c_intent = 0;
103607 int capi_overwrite_c = 0;
103608 PyObject *c_capi = Py_None(&_Py_NoneStruct);
103609 int ldc = 0;
103610 complex_float *work = NULL((void*)0);
103611 npy_intp work_Dims[1] = {-1};
103612 const int work_Rank = 1;
103613 PyArrayObject *capi_work_tmp = NULL((void*)0);
103614 int capi_work_intent = 0;
103615 PyObject *work_capi = Py_None(&_Py_NoneStruct);
103616 int lwork = 0;
103617 static char *capi_kwlist[] = {"v","tau","c","work","side","incv","overwrite_c",NULL((void*)0)};
103618
103619/*routdebugenter*/
103620#ifdef F2PY_REPORT_ATEXIT
103621f2py_start_clock();
103622#endif
103623 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
103624 "OOOO|OOi:_flapack.clarf",\
103625 capi_kwlist,&v_capi,&tau_capi,&c_capi,&work_capi,&side_capi,&incv_capi,&capi_overwrite_c))
103626 return NULL((void*)0);
103627/*frompyobj*/
103628 /* Processing variable side */
103629 slen(side)capi_side_len = 1;
103630 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.clarf to C string");
103631 if (f2py_success) {
103632 CHECKSTRING(side[0]=='L'||side[0]=='R',"side[0]=='L'||side[0]=='R'","1st keyword side","clarf:slen(side)=%d side=\"%s\"",side)if (!(side[0]=='L'||side[0]=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""clarf:slen(side)=%d side=\"%s\"", "(""side[0]=='L'||side[0]=='R'"
") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
103633 /* Processing variable incv */
103634 if (incv_capi == Py_None(&_Py_NoneStruct)) incv = 1; else
103635 f2py_success = int_from_pyobj(&incv,incv_capi,"_flapack.clarf() 2nd keyword (incv) can't be converted to int");
103636 if (f2py_success) {
103637 CHECKSCALAR(incv>0||incv<0,"incv>0||incv<0","2nd keyword incv","clarf:incv=%d",incv)if (!(incv>0||incv<0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""clarf:incv=%d", "(""incv>0||incv<0"") failed for "
"2nd keyword incv", incv); PyErr_SetString(_flapack_error,errstring
); } else
{
103638 /* Processing variable tau */
103639 f2py_success = complex_float_from_pyobj(&tau,tau_capi,"_flapack.clarf() 2nd argument (tau) can't be converted to complex_float");
103640 if (f2py_success) {
103641 /* Processing variable c */
103642 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
103643 ;
103644 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
103645 capi_c_tmp = array_from_pyobj(NPY_CFLOAT,c_Dims,c_Rank,capi_c_intent,c_capi);
103646 if (capi_c_tmp == NULL((void*)0)) {
103647 if (!PyErr_Occurred())
103648 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.clarf to C/Fortran array" );
103649 } else {
103650 c = (complex_float *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
103651
103652 /* Processing variable m */
103653 m = shape(c,0)c_Dims[0];
103654 /* Processing variable n */
103655 n = shape(c,1)c_Dims[1];
103656 /* Processing variable v */
103657 v_Dims[0]=(side[0]=='L'?(1 + (m-1)*abs(incv)):(1 + (n-1)*abs(incv)));
103658 capi_v_intent |= F2PY_INTENT_IN1;
103659 capi_v_tmp = array_from_pyobj(NPY_CFLOAT,v_Dims,v_Rank,capi_v_intent,v_capi);
103660 if (capi_v_tmp == NULL((void*)0)) {
103661 if (!PyErr_Occurred())
103662 PyErr_SetString(_flapack_error,"failed in converting 1st argument `v' of _flapack.clarf to C/Fortran array" );
103663 } else {
103664 v = (complex_float *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data));
103665
103666 /* Processing variable ldc */
103667 ldc = max(1,shape(c,0))((1 > c_Dims[0]) ? (1) : (c_Dims[0]));
103668 /* Processing variable work */
103669 ;
103670 capi_work_intent |= F2PY_INTENT_IN1;
103671 capi_work_tmp = array_from_pyobj(NPY_CFLOAT,work_Dims,work_Rank,capi_work_intent,work_capi);
103672 if (capi_work_tmp == NULL((void*)0)) {
103673 if (!PyErr_Occurred())
103674 PyErr_SetString(_flapack_error,"failed in converting 4th argument `work' of _flapack.clarf to C/Fortran array" );
103675 } else {
103676 work = (complex_float *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
103677
103678 /* Processing variable lwork */
103679 lwork = len(work)work_Dims[0];
103680 CHECKSCALAR(lwork >= (side[0]=='L'?n:m),"lwork >= (side[0]=='L'?n:m)","hidden lwork","clarf:lwork=%d",lwork)if (!(lwork >= (side[0]=='L'?n:m))) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""clarf:lwork=%d", "(""lwork >= (side[0]=='L'?n:m)"
") failed for ""hidden lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
103681/*end of frompyobj*/
103682#ifdef F2PY_REPORT_ATEXIT
103683f2py_start_call_clock();
103684#endif
103685/*callfortranroutine*/
103686 (*f2py_func)(side,&m,&n,v,&incv,&tau,c,&ldc,work,&lwork,slen(side)capi_side_len);
103687if (PyErr_Occurred())
103688 f2py_success = 0;
103689#ifdef F2PY_REPORT_ATEXIT
103690f2py_stop_call_clock();
103691#endif
103692/*end of callfortranroutine*/
103693 if (f2py_success) {
103694/*pyobjfrom*/
103695/*end of pyobjfrom*/
103696 CFUNCSMESS("Building return value.\n");
103697 capi_buildvalue = Py_BuildValue("N",capi_c_tmp);
103698/*closepyobjfrom*/
103699/*end of closepyobjfrom*/
103700 } /*if (f2py_success) after callfortranroutine*/
103701/*cleanupfrompyobj*/
103702 } /*CHECKSCALAR(lwork >= (side[0]=='L'?n:m))*/
103703 /* End of cleaning variable lwork */
103704 if((PyObject *)capi_work_tmp!=work_capi) {
103705 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); }
103706 } /*if (capi_work_tmp == NULL) ... else of work*/
103707 /* End of cleaning variable work */
103708 /* End of cleaning variable ldc */
103709 if((PyObject *)capi_v_tmp!=v_capi) {
103710 Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); }
103711 } /*if (capi_v_tmp == NULL) ... else of v*/
103712 /* End of cleaning variable v */
103713 /* End of cleaning variable n */
103714 /* End of cleaning variable m */
103715 } /*if (capi_c_tmp == NULL) ... else of c*/
103716 /* End of cleaning variable c */
103717 } /*if (f2py_success) of tau frompyobj*/
103718 /* End of cleaning variable tau */
103719 } /*CHECKSCALAR(incv>0||incv<0)*/
103720 } /*if (f2py_success) of incv*/
103721 /* End of cleaning variable incv */
103722 } /*CHECKSTRING(side[0]=='L'||side[0]=='R')*/
103723 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
103724 } /*if (f2py_success) of side*/
103725 /* End of cleaning variable side */
103726/*end of cleanupfrompyobj*/
103727 if (capi_buildvalue == NULL((void*)0)) {
103728/*routdebugfailure*/
103729 } else {
103730/*routdebugleave*/
103731 }
103732 CFUNCSMESS("Freeing memory.\n");
103733/*freemem*/
103734#ifdef F2PY_REPORT_ATEXIT
103735f2py_stop_clock();
103736#endif
103737 return capi_buildvalue;
103738}
103739/******************************** end of clarf ********************************/
103740
103741/*********************************** zlarf ***********************************/
103742static char doc_f2py_rout__flapack_zlarf[] = "\
103743c = zlarf(v,tau,c,work,[side,incv,overwrite_c])\n\nWrapper for ``zlarf``.\
103744\n\nParameters\n----------\n"
103745"v : input rank-1 array('D') with bounds ((side[0]=='L'?(1 + (m-1)*abs(incv)):(1 + (n-1)*abs(incv))))\n"
103746"tau : input complex\n"
103747"c : input rank-2 array('D') with bounds (m,n)\n"
103748"work : input rank-1 array('D') with bounds (lwork)\n"
103749"\nOther Parameters\n----------------\n"
103750"side : input string(len=1), optional\n Default: 'L'\n"
103751"incv : input int, optional\n Default: 1\n"
103752"overwrite_c : input int, optional\n Default: 0\n"
103753"\nReturns\n-------\n"
103754"c : rank-2 array('D') with bounds (m,n)";
103755/* extern void F_FUNC(zlarf,ZLARF)(string,int*,int*,complex_double*,int*,complex_double*,complex_double*,int*,complex_double*,int*,size_t); */
103756static PyObject *f2py_rout__flapack_zlarf(const PyObject *capi_self,
103757 PyObject *capi_args,
103758 PyObject *capi_keywds,
103759 void (*f2py_func)(string,int*,int*,complex_double*,int*,complex_double*,complex_double*,int*,complex_double*,int*,size_t)) {
103760 PyObject * volatile capi_buildvalue = NULL((void*)0);
103761 volatile int f2py_success = 1;
103762/*decl*/
103763
103764 string side = NULL((void*)0);
103765 int slen(side)capi_side_len;
103766 PyObject *side_capi = Py_None(&_Py_NoneStruct);
103767 int m = 0;
103768 int n = 0;
103769 complex_double *v = NULL((void*)0);
103770 npy_intp v_Dims[1] = {-1};
103771 const int v_Rank = 1;
103772 PyArrayObject *capi_v_tmp = NULL((void*)0);
103773 int capi_v_intent = 0;
103774 PyObject *v_capi = Py_None(&_Py_NoneStruct);
103775 int incv = 0;
103776 PyObject *incv_capi = Py_None(&_Py_NoneStruct);
103777 complex_double tau;
103778 PyObject *tau_capi = Py_None(&_Py_NoneStruct);
103779 complex_double *c = NULL((void*)0);
103780 npy_intp c_Dims[2] = {-1, -1};
103781 const int c_Rank = 2;
103782 PyArrayObject *capi_c_tmp = NULL((void*)0);
103783 int capi_c_intent = 0;
103784 int capi_overwrite_c = 0;
103785 PyObject *c_capi = Py_None(&_Py_NoneStruct);
103786 int ldc = 0;
103787 complex_double *work = NULL((void*)0);
103788 npy_intp work_Dims[1] = {-1};
103789 const int work_Rank = 1;
103790 PyArrayObject *capi_work_tmp = NULL((void*)0);
103791 int capi_work_intent = 0;
103792 PyObject *work_capi = Py_None(&_Py_NoneStruct);
103793 int lwork = 0;
103794 static char *capi_kwlist[] = {"v","tau","c","work","side","incv","overwrite_c",NULL((void*)0)};
103795
103796/*routdebugenter*/
103797#ifdef F2PY_REPORT_ATEXIT
103798f2py_start_clock();
103799#endif
103800 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
103801 "OOOO|OOi:_flapack.zlarf",\
103802 capi_kwlist,&v_capi,&tau_capi,&c_capi,&work_capi,&side_capi,&incv_capi,&capi_overwrite_c))
103803 return NULL((void*)0);
103804/*frompyobj*/
103805 /* Processing variable side */
103806 slen(side)capi_side_len = 1;
103807 f2py_success = string_from_pyobj(&side,&slen(side)capi_side_len,"L",side_capi,"string_from_pyobj failed in converting 1st keyword `side' of _flapack.zlarf to C string");
103808 if (f2py_success) {
103809 CHECKSTRING(side[0]=='L'||side[0]=='R',"side[0]=='L'||side[0]=='R'","1st keyword side","zlarf:slen(side)=%d side=\"%s\"",side)if (!(side[0]=='L'||side[0]=='R')) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zlarf:slen(side)=%d side=\"%s\"", "(""side[0]=='L'||side[0]=='R'"
") failed for ""1st keyword side", capi_side_len, side); PyErr_SetString
(_flapack_error, errstring); } else
{
103810 /* Processing variable incv */
103811 if (incv_capi == Py_None(&_Py_NoneStruct)) incv = 1; else
103812 f2py_success = int_from_pyobj(&incv,incv_capi,"_flapack.zlarf() 2nd keyword (incv) can't be converted to int");
103813 if (f2py_success) {
103814 CHECKSCALAR(incv>0||incv<0,"incv>0||incv<0","2nd keyword incv","zlarf:incv=%d",incv)if (!(incv>0||incv<0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zlarf:incv=%d", "(""incv>0||incv<0"") failed for "
"2nd keyword incv", incv); PyErr_SetString(_flapack_error,errstring
); } else
{
103815 /* Processing variable tau */
103816 f2py_success = complex_double_from_pyobj(&tau,tau_capi,"_flapack.zlarf() 2nd argument (tau) can't be converted to complex_double");
103817 if (f2py_success) {
103818 /* Processing variable c */
103819 capi_c_intent |= (capi_overwrite_c?0:F2PY_INTENT_COPY32);
103820 ;
103821 capi_c_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
103822 capi_c_tmp = array_from_pyobj(NPY_CDOUBLE,c_Dims,c_Rank,capi_c_intent,c_capi);
103823 if (capi_c_tmp == NULL((void*)0)) {
103824 if (!PyErr_Occurred())
103825 PyErr_SetString(_flapack_error,"failed in converting 3rd argument `c' of _flapack.zlarf to C/Fortran array" );
103826 } else {
103827 c = (complex_double *)(PyArray_DATA(capi_c_tmp)((void *)((PyArrayObject_fields *)(capi_c_tmp))->data));
103828
103829 /* Processing variable m */
103830 m = shape(c,0)c_Dims[0];
103831 /* Processing variable n */
103832 n = shape(c,1)c_Dims[1];
103833 /* Processing variable v */
103834 v_Dims[0]=(side[0]=='L'?(1 + (m-1)*abs(incv)):(1 + (n-1)*abs(incv)));
103835 capi_v_intent |= F2PY_INTENT_IN1;
103836 capi_v_tmp = array_from_pyobj(NPY_CDOUBLE,v_Dims,v_Rank,capi_v_intent,v_capi);
103837 if (capi_v_tmp == NULL((void*)0)) {
103838 if (!PyErr_Occurred())
103839 PyErr_SetString(_flapack_error,"failed in converting 1st argument `v' of _flapack.zlarf to C/Fortran array" );
103840 } else {
103841 v = (complex_double *)(PyArray_DATA(capi_v_tmp)((void *)((PyArrayObject_fields *)(capi_v_tmp))->data));
103842
103843 /* Processing variable ldc */
103844 ldc = max(1,shape(c,0))((1 > c_Dims[0]) ? (1) : (c_Dims[0]));
103845 /* Processing variable work */
103846 ;
103847 capi_work_intent |= F2PY_INTENT_IN1;
103848 capi_work_tmp = array_from_pyobj(NPY_CDOUBLE,work_Dims,work_Rank,capi_work_intent,work_capi);
103849 if (capi_work_tmp == NULL((void*)0)) {
103850 if (!PyErr_Occurred())
103851 PyErr_SetString(_flapack_error,"failed in converting 4th argument `work' of _flapack.zlarf to C/Fortran array" );
103852 } else {
103853 work = (complex_double *)(PyArray_DATA(capi_work_tmp)((void *)((PyArrayObject_fields *)(capi_work_tmp))->data));
103854
103855 /* Processing variable lwork */
103856 lwork = len(work)work_Dims[0];
103857 CHECKSCALAR(lwork >= (side[0]=='L'?n:m),"lwork >= (side[0]=='L'?n:m)","hidden lwork","zlarf:lwork=%d",lwork)if (!(lwork >= (side[0]=='L'?n:m))) { char errstring[256];
__builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zlarf:lwork=%d", "(""lwork >= (side[0]=='L'?n:m)"
") failed for ""hidden lwork", lwork); PyErr_SetString(_flapack_error
,errstring); } else
{
103858/*end of frompyobj*/
103859#ifdef F2PY_REPORT_ATEXIT
103860f2py_start_call_clock();
103861#endif
103862/*callfortranroutine*/
103863 (*f2py_func)(side,&m,&n,v,&incv,&tau,c,&ldc,work,&lwork,slen(side)capi_side_len);
103864if (PyErr_Occurred())
103865 f2py_success = 0;
103866#ifdef F2PY_REPORT_ATEXIT
103867f2py_stop_call_clock();
103868#endif
103869/*end of callfortranroutine*/
103870 if (f2py_success) {
103871/*pyobjfrom*/
103872/*end of pyobjfrom*/
103873 CFUNCSMESS("Building return value.\n");
103874 capi_buildvalue = Py_BuildValue("N",capi_c_tmp);
103875/*closepyobjfrom*/
103876/*end of closepyobjfrom*/
103877 } /*if (f2py_success) after callfortranroutine*/
103878/*cleanupfrompyobj*/
103879 } /*CHECKSCALAR(lwork >= (side[0]=='L'?n:m))*/
103880 /* End of cleaning variable lwork */
103881 if((PyObject *)capi_work_tmp!=work_capi) {
103882 Py_XDECREF(capi_work_tmp)_Py_XDECREF(((PyObject*)(capi_work_tmp))); }
103883 } /*if (capi_work_tmp == NULL) ... else of work*/
103884 /* End of cleaning variable work */
103885 /* End of cleaning variable ldc */
103886 if((PyObject *)capi_v_tmp!=v_capi) {
103887 Py_XDECREF(capi_v_tmp)_Py_XDECREF(((PyObject*)(capi_v_tmp))); }
103888 } /*if (capi_v_tmp == NULL) ... else of v*/
103889 /* End of cleaning variable v */
103890 /* End of cleaning variable n */
103891 /* End of cleaning variable m */
103892 } /*if (capi_c_tmp == NULL) ... else of c*/
103893 /* End of cleaning variable c */
103894 } /*if (f2py_success) of tau frompyobj*/
103895 /* End of cleaning variable tau */
103896 } /*CHECKSCALAR(incv>0||incv<0)*/
103897 } /*if (f2py_success) of incv*/
103898 /* End of cleaning variable incv */
103899 } /*CHECKSTRING(side[0]=='L'||side[0]=='R')*/
103900 STRINGFREE(side)do {if (!(side == ((void*)0))) free(side);} while (0);
103901 } /*if (f2py_success) of side*/
103902 /* End of cleaning variable side */
103903/*end of cleanupfrompyobj*/
103904 if (capi_buildvalue == NULL((void*)0)) {
103905/*routdebugfailure*/
103906 } else {
103907/*routdebugleave*/
103908 }
103909 CFUNCSMESS("Freeing memory.\n");
103910/*freemem*/
103911#ifdef F2PY_REPORT_ATEXIT
103912f2py_stop_clock();
103913#endif
103914 return capi_buildvalue;
103915}
103916/******************************** end of zlarf ********************************/
103917
103918/*********************************** slartg ***********************************/
103919static char doc_f2py_rout__flapack_slartg[] = "\
103920cs,sn,r = slartg(f,g)\n\nWrapper for ``slartg``.\
103921\n\nParameters\n----------\n"
103922"f : input float\n"
103923"g : input float\n"
103924"\nReturns\n-------\n"
103925"cs : float\n"
103926"sn : float\n"
103927"r : float";
103928/* extern void F_FUNC(slartg,SLARTG)(float*,float*,float*,float*,float*); */
103929static PyObject *f2py_rout__flapack_slartg(const PyObject *capi_self,
103930 PyObject *capi_args,
103931 PyObject *capi_keywds,
103932 void (*f2py_func)(float*,float*,float*,float*,float*)) {
103933 PyObject * volatile capi_buildvalue = NULL((void*)0);
103934 volatile int f2py_success = 1;
103935/*decl*/
103936
103937 float f = 0;
103938 PyObject *f_capi = Py_None(&_Py_NoneStruct);
103939 float g = 0;
103940 PyObject *g_capi = Py_None(&_Py_NoneStruct);
103941 float cs = 0;
103942 float sn = 0;
103943 float r = 0;
103944 static char *capi_kwlist[] = {"f","g",NULL((void*)0)};
103945
103946/*routdebugenter*/
103947#ifdef F2PY_REPORT_ATEXIT
103948f2py_start_clock();
103949#endif
103950 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
103951 "OO:_flapack.slartg",\
103952 capi_kwlist,&f_capi,&g_capi))
103953 return NULL((void*)0);
103954/*frompyobj*/
103955 /* Processing variable f */
103956 f2py_success = float_from_pyobj(&f,f_capi,"_flapack.slartg() 1st argument (f) can't be converted to float");
103957 if (f2py_success) {
103958 /* Processing variable g */
103959 f2py_success = float_from_pyobj(&g,g_capi,"_flapack.slartg() 2nd argument (g) can't be converted to float");
103960 if (f2py_success) {
103961 /* Processing variable cs */
103962 /* Processing variable sn */
103963 /* Processing variable r */
103964/*end of frompyobj*/
103965#ifdef F2PY_REPORT_ATEXIT
103966f2py_start_call_clock();
103967#endif
103968/*callfortranroutine*/
103969 (*f2py_func)(&f,&g,&cs,&sn,&r);
103970if (PyErr_Occurred())
103971 f2py_success = 0;
103972#ifdef F2PY_REPORT_ATEXIT
103973f2py_stop_call_clock();
103974#endif
103975/*end of callfortranroutine*/
103976 if (f2py_success) {
103977/*pyobjfrom*/
103978/*end of pyobjfrom*/
103979 CFUNCSMESS("Building return value.\n");
103980 capi_buildvalue = Py_BuildValue("fff",cs,sn,r);
103981/*closepyobjfrom*/
103982/*end of closepyobjfrom*/
103983 } /*if (f2py_success) after callfortranroutine*/
103984/*cleanupfrompyobj*/
103985 /* End of cleaning variable r */
103986 /* End of cleaning variable sn */
103987 /* End of cleaning variable cs */
103988 } /*if (f2py_success) of g*/
103989 /* End of cleaning variable g */
103990 } /*if (f2py_success) of f*/
103991 /* End of cleaning variable f */
103992/*end of cleanupfrompyobj*/
103993 if (capi_buildvalue == NULL((void*)0)) {
103994/*routdebugfailure*/
103995 } else {
103996/*routdebugleave*/
103997 }
103998 CFUNCSMESS("Freeing memory.\n");
103999/*freemem*/
104000#ifdef F2PY_REPORT_ATEXIT
104001f2py_stop_clock();
104002#endif
104003 return capi_buildvalue;
104004}
104005/******************************* end of slartg *******************************/
104006
104007/*********************************** dlartg ***********************************/
104008static char doc_f2py_rout__flapack_dlartg[] = "\
104009cs,sn,r = dlartg(f,g)\n\nWrapper for ``dlartg``.\
104010\n\nParameters\n----------\n"
104011"f : input float\n"
104012"g : input float\n"
104013"\nReturns\n-------\n"
104014"cs : float\n"
104015"sn : float\n"
104016"r : float";
104017/* extern void F_FUNC(dlartg,DLARTG)(double*,double*,double*,double*,double*); */
104018static PyObject *f2py_rout__flapack_dlartg(const PyObject *capi_self,
104019 PyObject *capi_args,
104020 PyObject *capi_keywds,
104021 void (*f2py_func)(double*,double*,double*,double*,double*)) {
104022 PyObject * volatile capi_buildvalue = NULL((void*)0);
104023 volatile int f2py_success = 1;
104024/*decl*/
104025
104026 double f = 0;
104027 PyObject *f_capi = Py_None(&_Py_NoneStruct);
104028 double g = 0;
104029 PyObject *g_capi = Py_None(&_Py_NoneStruct);
104030 double cs = 0;
104031 double sn = 0;
104032 double r = 0;
104033 static char *capi_kwlist[] = {"f","g",NULL((void*)0)};
104034
104035/*routdebugenter*/
104036#ifdef F2PY_REPORT_ATEXIT
104037f2py_start_clock();
104038#endif
104039 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
104040 "OO:_flapack.dlartg",\
104041 capi_kwlist,&f_capi,&g_capi))
104042 return NULL((void*)0);
104043/*frompyobj*/
104044 /* Processing variable f */
104045 f2py_success = double_from_pyobj(&f,f_capi,"_flapack.dlartg() 1st argument (f) can't be converted to double");
104046 if (f2py_success) {
104047 /* Processing variable g */
104048 f2py_success = double_from_pyobj(&g,g_capi,"_flapack.dlartg() 2nd argument (g) can't be converted to double");
104049 if (f2py_success) {
104050 /* Processing variable cs */
104051 /* Processing variable sn */
104052 /* Processing variable r */
104053/*end of frompyobj*/
104054#ifdef F2PY_REPORT_ATEXIT
104055f2py_start_call_clock();
104056#endif
104057/*callfortranroutine*/
104058 (*f2py_func)(&f,&g,&cs,&sn,&r);
104059if (PyErr_Occurred())
104060 f2py_success = 0;
104061#ifdef F2PY_REPORT_ATEXIT
104062f2py_stop_call_clock();
104063#endif
104064/*end of callfortranroutine*/
104065 if (f2py_success) {
104066/*pyobjfrom*/
104067/*end of pyobjfrom*/
104068 CFUNCSMESS("Building return value.\n");
104069 capi_buildvalue = Py_BuildValue("ddd",cs,sn,r);
104070/*closepyobjfrom*/
104071/*end of closepyobjfrom*/
104072 } /*if (f2py_success) after callfortranroutine*/
104073/*cleanupfrompyobj*/
104074 /* End of cleaning variable r */
104075 /* End of cleaning variable sn */
104076 /* End of cleaning variable cs */
104077 } /*if (f2py_success) of g*/
104078 /* End of cleaning variable g */
104079 } /*if (f2py_success) of f*/
104080 /* End of cleaning variable f */
104081/*end of cleanupfrompyobj*/
104082 if (capi_buildvalue == NULL((void*)0)) {
104083/*routdebugfailure*/
104084 } else {
104085/*routdebugleave*/
104086 }
104087 CFUNCSMESS("Freeing memory.\n");
104088/*freemem*/
104089#ifdef F2PY_REPORT_ATEXIT
104090f2py_stop_clock();
104091#endif
104092 return capi_buildvalue;
104093}
104094/******************************* end of dlartg *******************************/
104095
104096/*********************************** clartg ***********************************/
104097static char doc_f2py_rout__flapack_clartg[] = "\
104098cs,sn,r = clartg(f,g)\n\nWrapper for ``clartg``.\
104099\n\nParameters\n----------\n"
104100"f : input complex\n"
104101"g : input complex\n"
104102"\nReturns\n-------\n"
104103"cs : float\n"
104104"sn : complex\n"
104105"r : complex";
104106/* extern void F_FUNC(clartg,CLARTG)(complex_float*,complex_float*,float*,complex_float*,complex_float*); */
104107static PyObject *f2py_rout__flapack_clartg(const PyObject *capi_self,
104108 PyObject *capi_args,
104109 PyObject *capi_keywds,
104110 void (*f2py_func)(complex_float*,complex_float*,float*,complex_float*,complex_float*)) {
104111 PyObject * volatile capi_buildvalue = NULL((void*)0);
104112 volatile int f2py_success = 1;
104113/*decl*/
104114
104115 complex_float f;
104116 PyObject *f_capi = Py_None(&_Py_NoneStruct);
104117 complex_float g;
104118 PyObject *g_capi = Py_None(&_Py_NoneStruct);
104119 float cs = 0;
104120 complex_float sn;
104121 PyObject *sn_capi = Py_None(&_Py_NoneStruct);
104122 complex_float r;
104123 PyObject *r_capi = Py_None(&_Py_NoneStruct);
104124 static char *capi_kwlist[] = {"f","g",NULL((void*)0)};
104125
104126/*routdebugenter*/
104127#ifdef F2PY_REPORT_ATEXIT
104128f2py_start_clock();
104129#endif
104130 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
104131 "OO:_flapack.clartg",\
104132 capi_kwlist,&f_capi,&g_capi))
104133 return NULL((void*)0);
104134/*frompyobj*/
104135 /* Processing variable f */
104136 f2py_success = complex_float_from_pyobj(&f,f_capi,"_flapack.clartg() 1st argument (f) can't be converted to complex_float");
104137 if (f2py_success) {
104138 /* Processing variable g */
104139 f2py_success = complex_float_from_pyobj(&g,g_capi,"_flapack.clartg() 2nd argument (g) can't be converted to complex_float");
104140 if (f2py_success) {
104141 /* Processing variable cs */
104142 /* Processing variable sn */
104143 /* Processing variable r */
104144/*end of frompyobj*/
104145#ifdef F2PY_REPORT_ATEXIT
104146f2py_start_call_clock();
104147#endif
104148/*callfortranroutine*/
104149 (*f2py_func)(&f,&g,&cs,&sn,&r);
104150if (PyErr_Occurred())
104151 f2py_success = 0;
104152#ifdef F2PY_REPORT_ATEXIT
104153f2py_stop_call_clock();
104154#endif
104155/*end of callfortranroutine*/
104156 if (f2py_success) {
104157/*pyobjfrom*/
104158 sn_capi = pyobj_from_complex_float1(sn)(PyComplex_FromDoubles(sn.r,sn.i));
104159 r_capi = pyobj_from_complex_float1(r)(PyComplex_FromDoubles(r.r,r.i));
104160/*end of pyobjfrom*/
104161 CFUNCSMESS("Building return value.\n");
104162 capi_buildvalue = Py_BuildValue("fNN",cs,sn_capi,r_capi);
104163/*closepyobjfrom*/
104164/*end of closepyobjfrom*/
104165 } /*if (f2py_success) after callfortranroutine*/
104166/*cleanupfrompyobj*/
104167 /* End of cleaning variable r */
104168 /* End of cleaning variable sn */
104169 /* End of cleaning variable cs */
104170 } /*if (f2py_success) of g frompyobj*/
104171 /* End of cleaning variable g */
104172 } /*if (f2py_success) of f frompyobj*/
104173 /* End of cleaning variable f */
104174/*end of cleanupfrompyobj*/
104175 if (capi_buildvalue == NULL((void*)0)) {
104176/*routdebugfailure*/
104177 } else {
104178/*routdebugleave*/
104179 }
104180 CFUNCSMESS("Freeing memory.\n");
104181/*freemem*/
104182#ifdef F2PY_REPORT_ATEXIT
104183f2py_stop_clock();
104184#endif
104185 return capi_buildvalue;
104186}
104187/******************************* end of clartg *******************************/
104188
104189/*********************************** zlartg ***********************************/
104190static char doc_f2py_rout__flapack_zlartg[] = "\
104191cs,sn,r = zlartg(f,g)\n\nWrapper for ``zlartg``.\
104192\n\nParameters\n----------\n"
104193"f : input complex\n"
104194"g : input complex\n"
104195"\nReturns\n-------\n"
104196"cs : float\n"
104197"sn : complex\n"
104198"r : complex";
104199/* extern void F_FUNC(zlartg,ZLARTG)(complex_double*,complex_double*,double*,complex_double*,complex_double*); */
104200static PyObject *f2py_rout__flapack_zlartg(const PyObject *capi_self,
104201 PyObject *capi_args,
104202 PyObject *capi_keywds,
104203 void (*f2py_func)(complex_double*,complex_double*,double*,complex_double*,complex_double*)) {
104204 PyObject * volatile capi_buildvalue = NULL((void*)0);
104205 volatile int f2py_success = 1;
104206/*decl*/
104207
104208 complex_double f;
104209 PyObject *f_capi = Py_None(&_Py_NoneStruct);
104210 complex_double g;
104211 PyObject *g_capi = Py_None(&_Py_NoneStruct);
104212 double cs = 0;
104213 complex_double sn;
104214 PyObject *sn_capi = Py_None(&_Py_NoneStruct);
104215 complex_double r;
104216 PyObject *r_capi = Py_None(&_Py_NoneStruct);
104217 static char *capi_kwlist[] = {"f","g",NULL((void*)0)};
104218
104219/*routdebugenter*/
104220#ifdef F2PY_REPORT_ATEXIT
104221f2py_start_clock();
104222#endif
104223 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
104224 "OO:_flapack.zlartg",\
104225 capi_kwlist,&f_capi,&g_capi))
104226 return NULL((void*)0);
104227/*frompyobj*/
104228 /* Processing variable f */
104229 f2py_success = complex_double_from_pyobj(&f,f_capi,"_flapack.zlartg() 1st argument (f) can't be converted to complex_double");
104230 if (f2py_success) {
104231 /* Processing variable g */
104232 f2py_success = complex_double_from_pyobj(&g,g_capi,"_flapack.zlartg() 2nd argument (g) can't be converted to complex_double");
104233 if (f2py_success) {
104234 /* Processing variable cs */
104235 /* Processing variable sn */
104236 /* Processing variable r */
104237/*end of frompyobj*/
104238#ifdef F2PY_REPORT_ATEXIT
104239f2py_start_call_clock();
104240#endif
104241/*callfortranroutine*/
104242 (*f2py_func)(&f,&g,&cs,&sn,&r);
104243if (PyErr_Occurred())
104244 f2py_success = 0;
104245#ifdef F2PY_REPORT_ATEXIT
104246f2py_stop_call_clock();
104247#endif
104248/*end of callfortranroutine*/
104249 if (f2py_success) {
104250/*pyobjfrom*/
104251 sn_capi = pyobj_from_complex_double1(sn)(PyComplex_FromDoubles(sn.r,sn.i));
104252 r_capi = pyobj_from_complex_double1(r)(PyComplex_FromDoubles(r.r,r.i));
104253/*end of pyobjfrom*/
104254 CFUNCSMESS("Building return value.\n");
104255 capi_buildvalue = Py_BuildValue("dNN",cs,sn_capi,r_capi);
104256/*closepyobjfrom*/
104257/*end of closepyobjfrom*/
104258 } /*if (f2py_success) after callfortranroutine*/
104259/*cleanupfrompyobj*/
104260 /* End of cleaning variable r */
104261 /* End of cleaning variable sn */
104262 /* End of cleaning variable cs */
104263 } /*if (f2py_success) of g frompyobj*/
104264 /* End of cleaning variable g */
104265 } /*if (f2py_success) of f frompyobj*/
104266 /* End of cleaning variable f */
104267/*end of cleanupfrompyobj*/
104268 if (capi_buildvalue == NULL((void*)0)) {
104269/*routdebugfailure*/
104270 } else {
104271/*routdebugleave*/
104272 }
104273 CFUNCSMESS("Freeing memory.\n");
104274/*freemem*/
104275#ifdef F2PY_REPORT_ATEXIT
104276f2py_stop_clock();
104277#endif
104278 return capi_buildvalue;
104279}
104280/******************************* end of zlartg *******************************/
104281
104282/************************************ crot ************************************/
104283static char doc_f2py_rout__flapack_crot[] = "\
104284x,y = crot(x,y,c,s,[n,offx,incx,offy,incy,overwrite_x,overwrite_y])\n\nWrapper for ``crot``.\
104285\n\nParameters\n----------\n"
104286"x : input rank-1 array('F') with bounds (lx)\n"
104287"y : input rank-1 array('F') with bounds (ly)\n"
104288"c : input float\n"
104289"s : input complex\n"
104290"\nOther Parameters\n----------------\n"
104291"n : input int, optional\n Default: (lx-1-offx)/abs(incx)+1\n"
104292"overwrite_x : input int, optional\n Default: 0\n"
104293"offx : input int, optional\n Default: 0\n"
104294"incx : input int, optional\n Default: 1\n"
104295"overwrite_y : input int, optional\n Default: 0\n"
104296"offy : input int, optional\n Default: 0\n"
104297"incy : input int, optional\n Default: 1\n"
104298"\nReturns\n-------\n"
104299"x : rank-1 array('F') with bounds (lx)\n"
104300"y : rank-1 array('F') with bounds (ly)";
104301/* extern void F_FUNC(crot,CROT)(F_INT*,complex_float*,F_INT*,complex_float*,F_INT*,float*,complex_float* ); */
104302static PyObject *f2py_rout__flapack_crot(const PyObject *capi_self,
104303 PyObject *capi_args,
104304 PyObject *capi_keywds,
104305 void (*f2py_func)(F_INTint*,complex_float*,F_INTint*,complex_float*,F_INTint*,float*,complex_float* )) {
104306 PyObject * volatile capi_buildvalue = NULL((void*)0);
104307 volatile int f2py_success = 1;
104308/*decl*/
104309
104310 int n = 0;
104311 PyObject *n_capi = Py_None(&_Py_NoneStruct);
104312 complex_float *x = NULL((void*)0);
104313 npy_intp x_Dims[1] = {-1};
104314 const int x_Rank = 1;
104315 PyArrayObject *capi_x_tmp = NULL((void*)0);
104316 int capi_x_intent = 0;
104317 int capi_overwrite_x = 0;
104318 PyObject *x_capi = Py_None(&_Py_NoneStruct);
104319 int offx = 0;
104320 PyObject *offx_capi = Py_None(&_Py_NoneStruct);
104321 int incx = 0;
104322 PyObject *incx_capi = Py_None(&_Py_NoneStruct);
104323 complex_float *y = NULL((void*)0);
104324 npy_intp y_Dims[1] = {-1};
104325 const int y_Rank = 1;
104326 PyArrayObject *capi_y_tmp = NULL((void*)0);
104327 int capi_y_intent = 0;
104328 int capi_overwrite_y = 0;
104329 PyObject *y_capi = Py_None(&_Py_NoneStruct);
104330 int offy = 0;
104331 PyObject *offy_capi = Py_None(&_Py_NoneStruct);
104332 int incy = 0;
104333 PyObject *incy_capi = Py_None(&_Py_NoneStruct);
104334 float c = 0;
104335 PyObject *c_capi = Py_None(&_Py_NoneStruct);
104336 complex_float s;
104337 PyObject *s_capi = Py_None(&_Py_NoneStruct);
104338 int lx = 0;
104339 int ly = 0;
104340 static char *capi_kwlist[] = {"x","y","c","s","n","offx","incx","offy","incy","overwrite_x","overwrite_y",NULL((void*)0)};
104341
104342/*routdebugenter*/
104343#ifdef F2PY_REPORT_ATEXIT
104344f2py_start_clock();
104345#endif
104346 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
104347 "OOOO|OOOOOii:_flapack.crot",\
104348 capi_kwlist,&x_capi,&y_capi,&c_capi,&s_capi,&n_capi,&offx_capi,&incx_capi,&offy_capi,&incy_capi,&capi_overwrite_x,&capi_overwrite_y))
104349 return NULL((void*)0);
104350/*frompyobj*/
104351 /* Processing variable x */
104352 capi_x_intent |= (capi_overwrite_x?0:F2PY_INTENT_COPY32);
104353 ;
104354 capi_x_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
104355 capi_x_tmp = array_from_pyobj(NPY_CFLOAT,x_Dims,x_Rank,capi_x_intent,x_capi);
104356 if (capi_x_tmp == NULL((void*)0)) {
104357 if (!PyErr_Occurred())
104358 PyErr_SetString(_flapack_error,"failed in converting 1st argument `x' of _flapack.crot to C/Fortran array" );
104359 } else {
104360 x = (complex_float *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
104361
104362 /* Processing variable y */
104363 capi_y_intent |= (capi_overwrite_y?0:F2PY_INTENT_COPY32);
104364 ;
104365 capi_y_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
104366 capi_y_tmp = array_from_pyobj(NPY_CFLOAT,y_Dims,y_Rank,capi_y_intent,y_capi);
104367 if (capi_y_tmp == NULL((void*)0)) {
104368 if (!PyErr_Occurred())
104369 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `y' of _flapack.crot to C/Fortran array" );
104370 } else {
104371 y = (complex_float *)(PyArray_DATA(capi_y_tmp)((void *)((PyArrayObject_fields *)(capi_y_tmp))->data));
104372
104373 /* Processing variable c */
104374 f2py_success = float_from_pyobj(&c,c_capi,"_flapack.crot() 3rd argument (c) can't be converted to float");
104375 if (f2py_success) {
104376 /* Processing variable s */
104377 f2py_success = complex_float_from_pyobj(&s,s_capi,"_flapack.crot() 4th argument (s) can't be converted to complex_float");
104378 if (f2py_success) {
104379 /* Processing variable incx */
104380 if (incx_capi == Py_None(&_Py_NoneStruct)) incx = 1; else
104381 f2py_success = int_from_pyobj(&incx,incx_capi,"_flapack.crot() 3rd keyword (incx) can't be converted to int");
104382 if (f2py_success) {
104383 CHECKSCALAR(incx>0||incx<0,"incx>0||incx<0","3rd keyword incx","crot:incx=%d",incx)if (!(incx>0||incx<0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""crot:incx=%d", "(""incx>0||incx<0"") failed for "
"3rd keyword incx", incx); PyErr_SetString(_flapack_error,errstring
); } else
{
104384 /* Processing variable incy */
104385 if (incy_capi == Py_None(&_Py_NoneStruct)) incy = 1; else
104386 f2py_success = int_from_pyobj(&incy,incy_capi,"_flapack.crot() 5th keyword (incy) can't be converted to int");
104387 if (f2py_success) {
104388 CHECKSCALAR(incy>0||incy<0,"incy>0||incy<0","5th keyword incy","crot:incy=%d",incy)if (!(incy>0||incy<0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""crot:incy=%d", "(""incy>0||incy<0"") failed for "
"5th keyword incy", incy); PyErr_SetString(_flapack_error,errstring
); } else
{
104389 /* Processing variable lx */
104390 lx = len(x)x_Dims[0];
104391 /* Processing variable ly */
104392 ly = len(y)y_Dims[0];
104393 /* Processing variable offx */
104394 if (offx_capi == Py_None(&_Py_NoneStruct)) offx = 0; else
104395 f2py_success = int_from_pyobj(&offx,offx_capi,"_flapack.crot() 2nd keyword (offx) can't be converted to int");
104396 if (f2py_success) {
104397 CHECKSCALAR(offx>=0 && offx<lx,"offx>=0 && offx<lx","2nd keyword offx","crot:offx=%d",offx)if (!(offx>=0 && offx<lx)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""crot:offx=%d", "(""offx>=0 && offx<lx"
") failed for ""2nd keyword offx", offx); PyErr_SetString(_flapack_error
,errstring); } else
{
104398 /* Processing variable offy */
104399 if (offy_capi == Py_None(&_Py_NoneStruct)) offy = 0; else
104400 f2py_success = int_from_pyobj(&offy,offy_capi,"_flapack.crot() 4th keyword (offy) can't be converted to int");
104401 if (f2py_success) {
104402 CHECKSCALAR(offy>=0 && offy<ly,"offy>=0 && offy<ly","4th keyword offy","crot:offy=%d",offy)if (!(offy>=0 && offy<ly)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""crot:offy=%d", "(""offy>=0 && offy<ly"
") failed for ""4th keyword offy", offy); PyErr_SetString(_flapack_error
,errstring); } else
{
104403 /* Processing variable n */
104404 if (n_capi == Py_None(&_Py_NoneStruct)) n = (lx-1-offx)/abs(incx)+1; else
104405 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.crot() 1st keyword (n) can't be converted to int");
104406 if (f2py_success) {
104407 CHECKSCALAR(ly-offy>(n-1)*abs(incy),"ly-offy>(n-1)*abs(incy)","1st keyword n","crot:n=%d",n)if (!(ly-offy>(n-1)*abs(incy))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""crot:n=%d", "(""ly-offy>(n-1)*abs(incy)"") failed for "
"1st keyword n", n); PyErr_SetString(_flapack_error,errstring
); } else
{
104408 CHECKSCALAR(lx-offx>(n-1)*abs(incx),"lx-offx>(n-1)*abs(incx)","1st keyword n","crot:n=%d",n)if (!(lx-offx>(n-1)*abs(incx))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""crot:n=%d", "(""lx-offx>(n-1)*abs(incx)"") failed for "
"1st keyword n", n); PyErr_SetString(_flapack_error,errstring
); } else
{
104409/*end of frompyobj*/
104410#ifdef F2PY_REPORT_ATEXIT
104411f2py_start_call_clock();
104412#endif
104413/*callfortranroutine*/
104414 (*f2py_func)(&n,x+offx,&incx,y+offy,&incy,&c,&s) ;
104415 /*(*f2py_func)(&n,x,&offx,&incx,y,&offy,&incy,&c,&s,&lx,&ly);*/
104416if (PyErr_Occurred())
104417 f2py_success = 0;
104418#ifdef F2PY_REPORT_ATEXIT
104419f2py_stop_call_clock();
104420#endif
104421/*end of callfortranroutine*/
104422 if (f2py_success) {
104423/*pyobjfrom*/
104424/*end of pyobjfrom*/
104425 CFUNCSMESS("Building return value.\n");
104426 capi_buildvalue = Py_BuildValue("NN",capi_x_tmp,capi_y_tmp);
104427/*closepyobjfrom*/
104428/*end of closepyobjfrom*/
104429 } /*if (f2py_success) after callfortranroutine*/
104430/*cleanupfrompyobj*/
104431 } /*CHECKSCALAR(lx-offx>(n-1)*abs(incx))*/
104432 } /*CHECKSCALAR(ly-offy>(n-1)*abs(incy))*/
104433 } /*if (f2py_success) of n*/
104434 /* End of cleaning variable n */
104435 } /*CHECKSCALAR(offy>=0 && offy<ly)*/
104436 } /*if (f2py_success) of offy*/
104437 /* End of cleaning variable offy */
104438 } /*CHECKSCALAR(offx>=0 && offx<lx)*/
104439 } /*if (f2py_success) of offx*/
104440 /* End of cleaning variable offx */
104441 /* End of cleaning variable ly */
104442 /* End of cleaning variable lx */
104443 } /*CHECKSCALAR(incy>0||incy<0)*/
104444 } /*if (f2py_success) of incy*/
104445 /* End of cleaning variable incy */
104446 } /*CHECKSCALAR(incx>0||incx<0)*/
104447 } /*if (f2py_success) of incx*/
104448 /* End of cleaning variable incx */
104449 } /*if (f2py_success) of s frompyobj*/
104450 /* End of cleaning variable s */
104451 } /*if (f2py_success) of c*/
104452 /* End of cleaning variable c */
104453 } /*if (capi_y_tmp == NULL) ... else of y*/
104454 /* End of cleaning variable y */
104455 } /*if (capi_x_tmp == NULL) ... else of x*/
104456 /* End of cleaning variable x */
104457/*end of cleanupfrompyobj*/
104458 if (capi_buildvalue == NULL((void*)0)) {
104459/*routdebugfailure*/
104460 } else {
104461/*routdebugleave*/
104462 }
104463 CFUNCSMESS("Freeing memory.\n");
104464/*freemem*/
104465#ifdef F2PY_REPORT_ATEXIT
104466f2py_stop_clock();
104467#endif
104468 return capi_buildvalue;
104469}
104470/******************************** end of crot ********************************/
104471
104472/************************************ zrot ************************************/
104473static char doc_f2py_rout__flapack_zrot[] = "\
104474x,y = zrot(x,y,c,s,[n,offx,incx,offy,incy,overwrite_x,overwrite_y])\n\nWrapper for ``zrot``.\
104475\n\nParameters\n----------\n"
104476"x : input rank-1 array('D') with bounds (lx)\n"
104477"y : input rank-1 array('D') with bounds (ly)\n"
104478"c : input float\n"
104479"s : input complex\n"
104480"\nOther Parameters\n----------------\n"
104481"n : input int, optional\n Default: (lx-1-offx)/abs(incx)+1\n"
104482"overwrite_x : input int, optional\n Default: 0\n"
104483"offx : input int, optional\n Default: 0\n"
104484"incx : input int, optional\n Default: 1\n"
104485"overwrite_y : input int, optional\n Default: 0\n"
104486"offy : input int, optional\n Default: 0\n"
104487"incy : input int, optional\n Default: 1\n"
104488"\nReturns\n-------\n"
104489"x : rank-1 array('D') with bounds (lx)\n"
104490"y : rank-1 array('D') with bounds (ly)";
104491/* extern void F_FUNC(zrot,ZROT)(F_INT*,complex_double*,F_INT*,complex_double*,F_INT*,double*,complex_double* ); */
104492static PyObject *f2py_rout__flapack_zrot(const PyObject *capi_self,
104493 PyObject *capi_args,
104494 PyObject *capi_keywds,
104495 void (*f2py_func)(F_INTint*,complex_double*,F_INTint*,complex_double*,F_INTint*,double*,complex_double* )) {
104496 PyObject * volatile capi_buildvalue = NULL((void*)0);
104497 volatile int f2py_success = 1;
104498/*decl*/
104499
104500 int n = 0;
104501 PyObject *n_capi = Py_None(&_Py_NoneStruct);
104502 complex_double *x = NULL((void*)0);
104503 npy_intp x_Dims[1] = {-1};
104504 const int x_Rank = 1;
104505 PyArrayObject *capi_x_tmp = NULL((void*)0);
104506 int capi_x_intent = 0;
104507 int capi_overwrite_x = 0;
104508 PyObject *x_capi = Py_None(&_Py_NoneStruct);
104509 int offx = 0;
104510 PyObject *offx_capi = Py_None(&_Py_NoneStruct);
104511 int incx = 0;
104512 PyObject *incx_capi = Py_None(&_Py_NoneStruct);
104513 complex_double *y = NULL((void*)0);
104514 npy_intp y_Dims[1] = {-1};
104515 const int y_Rank = 1;
104516 PyArrayObject *capi_y_tmp = NULL((void*)0);
104517 int capi_y_intent = 0;
104518 int capi_overwrite_y = 0;
104519 PyObject *y_capi = Py_None(&_Py_NoneStruct);
104520 int offy = 0;
104521 PyObject *offy_capi = Py_None(&_Py_NoneStruct);
104522 int incy = 0;
104523 PyObject *incy_capi = Py_None(&_Py_NoneStruct);
104524 double c = 0;
104525 PyObject *c_capi = Py_None(&_Py_NoneStruct);
104526 complex_double s;
104527 PyObject *s_capi = Py_None(&_Py_NoneStruct);
104528 int lx = 0;
104529 int ly = 0;
104530 static char *capi_kwlist[] = {"x","y","c","s","n","offx","incx","offy","incy","overwrite_x","overwrite_y",NULL((void*)0)};
104531
104532/*routdebugenter*/
104533#ifdef F2PY_REPORT_ATEXIT
104534f2py_start_clock();
104535#endif
104536 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
104537 "OOOO|OOOOOii:_flapack.zrot",\
104538 capi_kwlist,&x_capi,&y_capi,&c_capi,&s_capi,&n_capi,&offx_capi,&incx_capi,&offy_capi,&incy_capi,&capi_overwrite_x,&capi_overwrite_y))
104539 return NULL((void*)0);
104540/*frompyobj*/
104541 /* Processing variable x */
104542 capi_x_intent |= (capi_overwrite_x?0:F2PY_INTENT_COPY32);
104543 ;
104544 capi_x_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
104545 capi_x_tmp = array_from_pyobj(NPY_CDOUBLE,x_Dims,x_Rank,capi_x_intent,x_capi);
104546 if (capi_x_tmp == NULL((void*)0)) {
104547 if (!PyErr_Occurred())
104548 PyErr_SetString(_flapack_error,"failed in converting 1st argument `x' of _flapack.zrot to C/Fortran array" );
104549 } else {
104550 x = (complex_double *)(PyArray_DATA(capi_x_tmp)((void *)((PyArrayObject_fields *)(capi_x_tmp))->data));
104551
104552 /* Processing variable y */
104553 capi_y_intent |= (capi_overwrite_y?0:F2PY_INTENT_COPY32);
104554 ;
104555 capi_y_intent |= F2PY_INTENT_IN1|F2PY_INTENT_OUT4;
104556 capi_y_tmp = array_from_pyobj(NPY_CDOUBLE,y_Dims,y_Rank,capi_y_intent,y_capi);
104557 if (capi_y_tmp == NULL((void*)0)) {
104558 if (!PyErr_Occurred())
104559 PyErr_SetString(_flapack_error,"failed in converting 2nd argument `y' of _flapack.zrot to C/Fortran array" );
104560 } else {
104561 y = (complex_double *)(PyArray_DATA(capi_y_tmp)((void *)((PyArrayObject_fields *)(capi_y_tmp))->data));
104562
104563 /* Processing variable c */
104564 f2py_success = double_from_pyobj(&c,c_capi,"_flapack.zrot() 3rd argument (c) can't be converted to double");
104565 if (f2py_success) {
104566 /* Processing variable s */
104567 f2py_success = complex_double_from_pyobj(&s,s_capi,"_flapack.zrot() 4th argument (s) can't be converted to complex_double");
104568 if (f2py_success) {
104569 /* Processing variable incx */
104570 if (incx_capi == Py_None(&_Py_NoneStruct)) incx = 1; else
104571 f2py_success = int_from_pyobj(&incx,incx_capi,"_flapack.zrot() 3rd keyword (incx) can't be converted to int");
104572 if (f2py_success) {
104573 CHECKSCALAR(incx>0||incx<0,"incx>0||incx<0","3rd keyword incx","zrot:incx=%d",incx)if (!(incx>0||incx<0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zrot:incx=%d", "(""incx>0||incx<0"") failed for "
"3rd keyword incx", incx); PyErr_SetString(_flapack_error,errstring
); } else
{
104574 /* Processing variable incy */
104575 if (incy_capi == Py_None(&_Py_NoneStruct)) incy = 1; else
104576 f2py_success = int_from_pyobj(&incy,incy_capi,"_flapack.zrot() 5th keyword (incy) can't be converted to int");
104577 if (f2py_success) {
104578 CHECKSCALAR(incy>0||incy<0,"incy>0||incy<0","5th keyword incy","zrot:incy=%d",incy)if (!(incy>0||incy<0)) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zrot:incy=%d", "(""incy>0||incy<0"") failed for "
"5th keyword incy", incy); PyErr_SetString(_flapack_error,errstring
); } else
{
104579 /* Processing variable lx */
104580 lx = len(x)x_Dims[0];
104581 /* Processing variable ly */
104582 ly = len(y)y_Dims[0];
104583 /* Processing variable offx */
104584 if (offx_capi == Py_None(&_Py_NoneStruct)) offx = 0; else
104585 f2py_success = int_from_pyobj(&offx,offx_capi,"_flapack.zrot() 2nd keyword (offx) can't be converted to int");
104586 if (f2py_success) {
104587 CHECKSCALAR(offx>=0 && offx<lx,"offx>=0 && offx<lx","2nd keyword offx","zrot:offx=%d",offx)if (!(offx>=0 && offx<lx)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zrot:offx=%d", "(""offx>=0 && offx<lx"
") failed for ""2nd keyword offx", offx); PyErr_SetString(_flapack_error
,errstring); } else
{
104588 /* Processing variable offy */
104589 if (offy_capi == Py_None(&_Py_NoneStruct)) offy = 0; else
104590 f2py_success = int_from_pyobj(&offy,offy_capi,"_flapack.zrot() 4th keyword (offy) can't be converted to int");
104591 if (f2py_success) {
104592 CHECKSCALAR(offy>=0 && offy<ly,"offy>=0 && offy<ly","4th keyword offy","zrot:offy=%d",offy)if (!(offy>=0 && offy<ly)) { char errstring[256
]; __builtin___sprintf_chk (errstring, 2 - 1, __builtin_object_size
(errstring, 2 > 1), "%s: ""zrot:offy=%d", "(""offy>=0 && offy<ly"
") failed for ""4th keyword offy", offy); PyErr_SetString(_flapack_error
,errstring); } else
{
104593 /* Processing variable n */
104594 if (n_capi == Py_None(&_Py_NoneStruct)) n = (lx-1-offx)/abs(incx)+1; else
104595 f2py_success = int_from_pyobj(&n,n_capi,"_flapack.zrot() 1st keyword (n) can't be converted to int");
104596 if (f2py_success) {
104597 CHECKSCALAR(ly-offy>(n-1)*abs(incy),"ly-offy>(n-1)*abs(incy)","1st keyword n","zrot:n=%d",n)if (!(ly-offy>(n-1)*abs(incy))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zrot:n=%d", "(""ly-offy>(n-1)*abs(incy)"") failed for "
"1st keyword n", n); PyErr_SetString(_flapack_error,errstring
); } else
{
104598 CHECKSCALAR(lx-offx>(n-1)*abs(incx),"lx-offx>(n-1)*abs(incx)","1st keyword n","zrot:n=%d",n)if (!(lx-offx>(n-1)*abs(incx))) { char errstring[256]; __builtin___sprintf_chk
(errstring, 2 - 1, __builtin_object_size (errstring, 2 > 1
), "%s: ""zrot:n=%d", "(""lx-offx>(n-1)*abs(incx)"") failed for "
"1st keyword n", n); PyErr_SetString(_flapack_error,errstring
); } else
{
104599/*end of frompyobj*/
104600#ifdef F2PY_REPORT_ATEXIT
104601f2py_start_call_clock();
104602#endif
104603/*callfortranroutine*/
104604 (*f2py_func)(&n,x+offx,&incx,y+offy,&incy,&c,&s) ;
104605 /*(*f2py_func)(&n,x,&offx,&incx,y,&offy,&incy,&c,&s,&lx,&ly);*/
104606if (PyErr_Occurred())
104607 f2py_success = 0;
104608#ifdef F2PY_REPORT_ATEXIT
104609f2py_stop_call_clock();
104610#endif
104611/*end of callfortranroutine*/
104612 if (f2py_success) {
104613/*pyobjfrom*/
104614/*end of pyobjfrom*/
104615 CFUNCSMESS("Building return value.\n");
104616 capi_buildvalue = Py_BuildValue("NN",capi_x_tmp,capi_y_tmp);
104617/*closepyobjfrom*/
104618/*end of closepyobjfrom*/
104619 } /*if (f2py_success) after callfortranroutine*/
104620/*cleanupfrompyobj*/
104621 } /*CHECKSCALAR(lx-offx>(n-1)*abs(incx))*/
104622 } /*CHECKSCALAR(ly-offy>(n-1)*abs(incy))*/
104623 } /*if (f2py_success) of n*/
104624 /* End of cleaning variable n */
104625 } /*CHECKSCALAR(offy>=0 && offy<ly)*/
104626 } /*if (f2py_success) of offy*/
104627 /* End of cleaning variable offy */
104628 } /*CHECKSCALAR(offx>=0 && offx<lx)*/
104629 } /*if (f2py_success) of offx*/
104630 /* End of cleaning variable offx */
104631 /* End of cleaning variable ly */
104632 /* End of cleaning variable lx */
104633 } /*CHECKSCALAR(incy>0||incy<0)*/
104634 } /*if (f2py_success) of incy*/
104635 /* End of cleaning variable incy */
104636 } /*CHECKSCALAR(incx>0||incx<0)*/
104637 } /*if (f2py_success) of incx*/
104638 /* End of cleaning variable incx */
104639 } /*if (f2py_success) of s frompyobj*/
104640 /* End of cleaning variable s */
104641 } /*if (f2py_success) of c*/
104642 /* End of cleaning variable c */
104643 } /*if (capi_y_tmp == NULL) ... else of y*/
104644 /* End of cleaning variable y */
104645 } /*if (capi_x_tmp == NULL) ... else of x*/
104646 /* End of cleaning variable x */
104647/*end of cleanupfrompyobj*/
104648 if (capi_buildvalue == NULL((void*)0)) {
104649/*routdebugfailure*/
104650 } else {
104651/*routdebugleave*/
104652 }
104653 CFUNCSMESS("Freeing memory.\n");
104654/*freemem*/
104655#ifdef F2PY_REPORT_ATEXIT
104656f2py_stop_clock();
104657#endif
104658 return capi_buildvalue;
104659}
104660/******************************** end of zrot ********************************/
104661
104662/*********************************** ilaver ***********************************/
104663static char doc_f2py_rout__flapack_ilaver[] = "\
104664major,minor,patch = ilaver()\n\nWrapper for ``ilaver``.\
104665\n\nReturns\n-------\n"
104666"major : int\n"
104667"minor : int\n"
104668"patch : int";
104669/* extern void F_FUNC(ilaver,ILAVER)(int*,int*,int*); */
104670static PyObject *f2py_rout__flapack_ilaver(const PyObject *capi_self,
104671 PyObject *capi_args,
104672 PyObject *capi_keywds,
104673 void (*f2py_func)(int*,int*,int*)) {
104674 PyObject * volatile capi_buildvalue = NULL((void*)0);
104675 volatile int f2py_success = 1;
104676/*decl*/
104677
104678 int major = 0;
104679 int minor = 0;
104680 int patch = 0;
104681 static char *capi_kwlist[] = {NULL((void*)0)};
104682
104683/*routdebugenter*/
104684#ifdef F2PY_REPORT_ATEXIT
104685f2py_start_clock();
104686#endif
104687 if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
104688 ":_flapack.ilaver",\
104689 capi_kwlist))
104690 return NULL((void*)0);
104691/*frompyobj*/
104692 /* Processing variable major */
104693 /* Processing variable minor */
104694 /* Processing variable patch */
104695/*end of frompyobj*/
104696#ifdef F2PY_REPORT_ATEXIT
104697f2py_start_call_clock();
104698#endif
104699/*callfortranroutine*/
104700 (*f2py_func)(&major,&minor,&patch);
104701if (PyErr_Occurred())
104702 f2py_success = 0;
104703#ifdef F2PY_REPORT_ATEXIT
104704f2py_stop_call_clock();
104705#endif
104706/*end of callfortranroutine*/
104707 if (f2py_success) {
104708/*pyobjfrom*/
104709/*end of pyobjfrom*/
104710 CFUNCSMESS("Building return value.\n");
104711 capi_buildvalue = Py_BuildValue("iii",major,minor,patch);
104712/*closepyobjfrom*/
104713/*end of closepyobjfrom*/
104714 } /*if (f2py_success) after callfortranroutine*/
104715/*cleanupfrompyobj*/
104716 /* End of cleaning variable patch */
104717 /* End of cleaning variable minor */
104718 /* End of cleaning variable major */
104719/*end of cleanupfrompyobj*/
104720 if (capi_buildvalue == NULL((void*)0)) {
104721/*routdebugfailure*/
104722 } else {
104723/*routdebugleave*/
104724 }
104725 CFUNCSMESS("Freeing memory.\n");
104726/*freemem*/
104727#ifdef F2PY_REPORT_ATEXIT
104728f2py_stop_clock();
104729#endif
104730 return capi_buildvalue;
104731}
104732/******************************* end of ilaver *******************************/
104733/*eof body*/
104734
104735/******************* See f2py2e/f90mod_rules.py: buildhooks *******************/
104736/*need_f90modhooks*/
104737
104738/************** See f2py2e/rules.py: module_rules['modulebody'] **************/
104739
104740/******************* See f2py2e/common_rules.py: buildhooks *******************/
104741
104742/*need_commonhooks*/
104743
104744/**************************** See f2py2e/rules.py ****************************/
104745
104746static FortranDataDef f2py_routine_defs[] = {
104747 {"sgebal",-1,{{-1}},0,(char *)F_FUNC(sgebal,SGEBAL)sgebal_,(f2py_init_func)f2py_rout__flapack_sgebal,doc_f2py_rout__flapack_sgebal},
104748 {"dgebal",-1,{{-1}},0,(char *)F_FUNC(dgebal,DGEBAL)dgebal_,(f2py_init_func)f2py_rout__flapack_dgebal,doc_f2py_rout__flapack_dgebal},
104749 {"cgebal",-1,{{-1}},0,(char *)F_FUNC(cgebal,CGEBAL)cgebal_,(f2py_init_func)f2py_rout__flapack_cgebal,doc_f2py_rout__flapack_cgebal},
104750 {"zgebal",-1,{{-1}},0,(char *)F_FUNC(zgebal,ZGEBAL)zgebal_,(f2py_init_func)f2py_rout__flapack_zgebal,doc_f2py_rout__flapack_zgebal},
104751 {"sgehrd",-1,{{-1}},0,(char *)F_FUNC(sgehrd,SGEHRD)sgehrd_,(f2py_init_func)f2py_rout__flapack_sgehrd,doc_f2py_rout__flapack_sgehrd},
104752 {"dgehrd",-1,{{-1}},0,(char *)F_FUNC(dgehrd,DGEHRD)dgehrd_,(f2py_init_func)f2py_rout__flapack_dgehrd,doc_f2py_rout__flapack_dgehrd},
104753 {"cgehrd",-1,{{-1}},0,(char *)F_FUNC(cgehrd,CGEHRD)cgehrd_,(f2py_init_func)f2py_rout__flapack_cgehrd,doc_f2py_rout__flapack_cgehrd},
104754 {"zgehrd",-1,{{-1}},0,(char *)F_FUNC(zgehrd,ZGEHRD)zgehrd_,(f2py_init_func)f2py_rout__flapack_zgehrd,doc_f2py_rout__flapack_zgehrd},
104755 {"sgehrd_lwork",-1,{{-1}},0,(char *)F_FUNC(sgehrd ,SGEHRD )sgehrd_,(f2py_init_func)f2py_rout__flapack_sgehrd_lwork,doc_f2py_rout__flapack_sgehrd_lwork},
104756 {"dgehrd_lwork",-1,{{-1}},0,(char *)F_FUNC(dgehrd ,DGEHRD )dgehrd_,(f2py_init_func)f2py_rout__flapack_dgehrd_lwork,doc_f2py_rout__flapack_dgehrd_lwork},
104757 {"cgehrd_lwork",-1,{{-1}},0,(char *)F_FUNC(cgehrd ,CGEHRD )cgehrd_,(f2py_init_func)f2py_rout__flapack_cgehrd_lwork,doc_f2py_rout__flapack_cgehrd_lwork},
104758 {"zgehrd_lwork",-1,{{-1}},0,(char *)F_FUNC(zgehrd ,ZGEHRD )zgehrd_,(f2py_init_func)f2py_rout__flapack_zgehrd_lwork,doc_f2py_rout__flapack_zgehrd_lwork},
104759 {"sgesv",-1,{{-1}},0,(char *)F_FUNC(sgesv,SGESV)sgesv_,(f2py_init_func)f2py_rout__flapack_sgesv,doc_f2py_rout__flapack_sgesv},
104760 {"dgesv",-1,{{-1}},0,(char *)F_FUNC(dgesv,DGESV)dgesv_,(f2py_init_func)f2py_rout__flapack_dgesv,doc_f2py_rout__flapack_dgesv},
104761 {"cgesv",-1,{{-1}},0,(char *)F_FUNC(cgesv,CGESV)cgesv_,(f2py_init_func)f2py_rout__flapack_cgesv,doc_f2py_rout__flapack_cgesv},
104762 {"zgesv",-1,{{-1}},0,(char *)F_FUNC(zgesv,ZGESV)zgesv_,(f2py_init_func)f2py_rout__flapack_zgesv,doc_f2py_rout__flapack_zgesv},
104763 {"sgesvx",-1,{{-1}},0,(char *)F_FUNC(sgesvx,SGESVX)sgesvx_,(f2py_init_func)f2py_rout__flapack_sgesvx,doc_f2py_rout__flapack_sgesvx},
104764 {"dgesvx",-1,{{-1}},0,(char *)F_FUNC(dgesvx,DGESVX)dgesvx_,(f2py_init_func)f2py_rout__flapack_dgesvx,doc_f2py_rout__flapack_dgesvx},
104765 {"cgesvx",-1,{{-1}},0,(char *)F_FUNC(cgesvx,CGESVX)cgesvx_,(f2py_init_func)f2py_rout__flapack_cgesvx,doc_f2py_rout__flapack_cgesvx},
104766 {"zgesvx",-1,{{-1}},0,(char *)F_FUNC(zgesvx,ZGESVX)zgesvx_,(f2py_init_func)f2py_rout__flapack_zgesvx,doc_f2py_rout__flapack_zgesvx},
104767 {"sgecon",-1,{{-1}},0,(char *)F_FUNC(sgecon,SGECON)sgecon_,(f2py_init_func)f2py_rout__flapack_sgecon,doc_f2py_rout__flapack_sgecon},
104768 {"dgecon",-1,{{-1}},0,(char *)F_FUNC(dgecon,DGECON)dgecon_,(f2py_init_func)f2py_rout__flapack_dgecon,doc_f2py_rout__flapack_dgecon},
104769 {"cgecon",-1,{{-1}},0,(char *)F_FUNC(cgecon,CGECON)cgecon_,(f2py_init_func)f2py_rout__flapack_cgecon,doc_f2py_rout__flapack_cgecon},
104770 {"zgecon",-1,{{-1}},0,(char *)F_FUNC(zgecon,ZGECON)zgecon_,(f2py_init_func)f2py_rout__flapack_zgecon,doc_f2py_rout__flapack_zgecon},
104771 {"sgetrf",-1,{{-1}},0,(char *)F_FUNC(sgetrf,SGETRF)sgetrf_,(f2py_init_func)f2py_rout__flapack_sgetrf,doc_f2py_rout__flapack_sgetrf},
104772 {"dgetrf",-1,{{-1}},0,(char *)F_FUNC(dgetrf,DGETRF)dgetrf_,(f2py_init_func)f2py_rout__flapack_dgetrf,doc_f2py_rout__flapack_dgetrf},
104773 {"cgetrf",-1,{{-1}},0,(char *)F_FUNC(cgetrf,CGETRF)cgetrf_,(f2py_init_func)f2py_rout__flapack_cgetrf,doc_f2py_rout__flapack_cgetrf},
104774 {"zgetrf",-1,{{-1}},0,(char *)F_FUNC(zgetrf,ZGETRF)zgetrf_,(f2py_init_func)f2py_rout__flapack_zgetrf,doc_f2py_rout__flapack_zgetrf},
104775 {"sgetrs",-1,{{-1}},0,(char *)F_FUNC(sgetrs,SGETRS)sgetrs_,(f2py_init_func)f2py_rout__flapack_sgetrs,doc_f2py_rout__flapack_sgetrs},
104776 {"dgetrs",-1,{{-1}},0,(char *)F_FUNC(dgetrs,DGETRS)dgetrs_,(f2py_init_func)f2py_rout__flapack_dgetrs,doc_f2py_rout__flapack_dgetrs},
104777 {"cgetrs",-1,{{-1}},0,(char *)F_FUNC(cgetrs,CGETRS)cgetrs_,(f2py_init_func)f2py_rout__flapack_cgetrs,doc_f2py_rout__flapack_cgetrs},
104778 {"zgetrs",-1,{{-1}},0,(char *)F_FUNC(zgetrs,ZGETRS)zgetrs_,(f2py_init_func)f2py_rout__flapack_zgetrs,doc_f2py_rout__flapack_zgetrs},
104779 {"sgetc2",-1,{{-1}},0,(char *)F_FUNC(sgetc2,SGETC2)sgetc2_,(f2py_init_func)f2py_rout__flapack_sgetc2,doc_f2py_rout__flapack_sgetc2},
104780 {"dgetc2",-1,{{-1}},0,(char *)F_FUNC(dgetc2,DGETC2)dgetc2_,(f2py_init_func)f2py_rout__flapack_dgetc2,doc_f2py_rout__flapack_dgetc2},
104781 {"cgetc2",-1,{{-1}},0,(char *)F_FUNC(cgetc2,CGETC2)cgetc2_,(f2py_init_func)f2py_rout__flapack_cgetc2,doc_f2py_rout__flapack_cgetc2},
104782 {"zgetc2",-1,{{-1}},0,(char *)F_FUNC(zgetc2,ZGETC2)zgetc2_,(f2py_init_func)f2py_rout__flapack_zgetc2,doc_f2py_rout__flapack_zgetc2},
104783 {"sgesc2",-1,{{-1}},0,(char *)F_FUNC(sgesc2,SGESC2)sgesc2_,(f2py_init_func)f2py_rout__flapack_sgesc2,doc_f2py_rout__flapack_sgesc2},
104784 {"dgesc2",-1,{{-1}},0,(char *)F_FUNC(dgesc2,DGESC2)dgesc2_,(f2py_init_func)f2py_rout__flapack_dgesc2,doc_f2py_rout__flapack_dgesc2},
104785 {"cgesc2",-1,{{-1}},0,(char *)F_FUNC(cgesc2,CGESC2)cgesc2_,(f2py_init_func)f2py_rout__flapack_cgesc2,doc_f2py_rout__flapack_cgesc2},
104786 {"zgesc2",-1,{{-1}},0,(char *)F_FUNC(zgesc2,ZGESC2)zgesc2_,(f2py_init_func)f2py_rout__flapack_zgesc2,doc_f2py_rout__flapack_zgesc2},
104787 {"sgetri",-1,{{-1}},0,(char *)F_FUNC(sgetri,SGETRI)sgetri_,(f2py_init_func)f2py_rout__flapack_sgetri,doc_f2py_rout__flapack_sgetri},
104788 {"dgetri",-1,{{-1}},0,(char *)F_FUNC(dgetri,DGETRI)dgetri_,(f2py_init_func)f2py_rout__flapack_dgetri,doc_f2py_rout__flapack_dgetri},
104789 {"cgetri",-1,{{-1}},0,(char *)F_FUNC(cgetri,CGETRI)cgetri_,(f2py_init_func)f2py_rout__flapack_cgetri,doc_f2py_rout__flapack_cgetri},
104790 {"zgetri",-1,{{-1}},0,(char *)F_FUNC(zgetri,ZGETRI)zgetri_,(f2py_init_func)f2py_rout__flapack_zgetri,doc_f2py_rout__flapack_zgetri},
104791 {"sgetri_lwork",-1,{{-1}},0,(char *)F_FUNC(sgetri ,SGETRI )sgetri_,(f2py_init_func)f2py_rout__flapack_sgetri_lwork,doc_f2py_rout__flapack_sgetri_lwork},
104792 {"dgetri_lwork",-1,{{-1}},0,(char *)F_FUNC(dgetri ,DGETRI )dgetri_,(f2py_init_func)f2py_rout__flapack_dgetri_lwork,doc_f2py_rout__flapack_dgetri_lwork},
104793 {"cgetri_lwork",-1,{{-1}},0,(char *)F_FUNC(cgetri ,CGETRI )cgetri_,(f2py_init_func)f2py_rout__flapack_cgetri_lwork,doc_f2py_rout__flapack_cgetri_lwork},
104794 {"zgetri_lwork",-1,{{-1}},0,(char *)F_FUNC(zgetri ,ZGETRI )zgetri_,(f2py_init_func)f2py_rout__flapack_zgetri_lwork,doc_f2py_rout__flapack_zgetri_lwork},
104795 {"sgesdd",-1,{{-1}},0,(char *)F_FUNC(sgesdd,SGESDD)sgesdd_,(f2py_init_func)f2py_rout__flapack_sgesdd,doc_f2py_rout__flapack_sgesdd},
104796 {"dgesdd",-1,{{-1}},0,(char *)F_FUNC(dgesdd,DGESDD)dgesdd_,(f2py_init_func)f2py_rout__flapack_dgesdd,doc_f2py_rout__flapack_dgesdd},
104797 {"sgesdd_lwork",-1,{{-1}},0,(char *)F_FUNC(sgesdd ,SGESDD )sgesdd_,(f2py_init_func)f2py_rout__flapack_sgesdd_lwork,doc_f2py_rout__flapack_sgesdd_lwork},
104798 {"dgesdd_lwork",-1,{{-1}},0,(char *)F_FUNC(dgesdd ,DGESDD )dgesdd_,(f2py_init_func)f2py_rout__flapack_dgesdd_lwork,doc_f2py_rout__flapack_dgesdd_lwork},
104799 {"cgesdd",-1,{{-1}},0,(char *)F_FUNC(cgesdd,CGESDD)cgesdd_,(f2py_init_func)f2py_rout__flapack_cgesdd,doc_f2py_rout__flapack_cgesdd},
104800 {"zgesdd",-1,{{-1}},0,(char *)F_FUNC(zgesdd,ZGESDD)zgesdd_,(f2py_init_func)f2py_rout__flapack_zgesdd,doc_f2py_rout__flapack_zgesdd},
104801 {"cgesdd_lwork",-1,{{-1}},0,(char *)F_FUNC(cgesdd ,CGESDD )cgesdd_,(f2py_init_func)f2py_rout__flapack_cgesdd_lwork,doc_f2py_rout__flapack_cgesdd_lwork},
104802 {"zgesdd_lwork",-1,{{-1}},0,(char *)F_FUNC(zgesdd ,ZGESDD )zgesdd_,(f2py_init_func)f2py_rout__flapack_zgesdd_lwork,doc_f2py_rout__flapack_zgesdd_lwork},
104803 {"sgesvd",-1,{{-1}},0,(char *)F_FUNC(sgesvd,SGESVD)sgesvd_,(f2py_init_func)f2py_rout__flapack_sgesvd,doc_f2py_rout__flapack_sgesvd},
104804 {"dgesvd",-1,{{-1}},0,(char *)F_FUNC(dgesvd,DGESVD)dgesvd_,(f2py_init_func)f2py_rout__flapack_dgesvd,doc_f2py_rout__flapack_dgesvd},
104805 {"sgesvd_lwork",-1,{{-1}},0,(char *)F_FUNC(sgesvd ,SGESVD )sgesvd_,(f2py_init_func)f2py_rout__flapack_sgesvd_lwork,doc_f2py_rout__flapack_sgesvd_lwork},
104806 {"dgesvd_lwork",-1,{{-1}},0,(char *)F_FUNC(dgesvd ,DGESVD )dgesvd_,(f2py_init_func)f2py_rout__flapack_dgesvd_lwork,doc_f2py_rout__flapack_dgesvd_lwork},
104807 {"cgesvd",-1,{{-1}},0,(char *)F_FUNC(cgesvd,CGESVD)cgesvd_,(f2py_init_func)f2py_rout__flapack_cgesvd,doc_f2py_rout__flapack_cgesvd},
104808 {"zgesvd",-1,{{-1}},0,(char *)F_FUNC(zgesvd,ZGESVD)zgesvd_,(f2py_init_func)f2py_rout__flapack_zgesvd,doc_f2py_rout__flapack_zgesvd},
104809 {"cgesvd_lwork",-1,{{-1}},0,(char *)F_FUNC(cgesvd ,CGESVD )cgesvd_,(f2py_init_func)f2py_rout__flapack_cgesvd_lwork,doc_f2py_rout__flapack_cgesvd_lwork},
104810 {"zgesvd_lwork",-1,{{-1}},0,(char *)F_FUNC(zgesvd ,ZGESVD )zgesvd_,(f2py_init_func)f2py_rout__flapack_zgesvd_lwork,doc_f2py_rout__flapack_zgesvd_lwork},
104811 {"sgels",-1,{{-1}},0,(char *)F_FUNC(sgels,SGELS)sgels_,(f2py_init_func)f2py_rout__flapack_sgels,doc_f2py_rout__flapack_sgels},
104812 {"dgels",-1,{{-1}},0,(char *)F_FUNC(dgels,DGELS)dgels_,(f2py_init_func)f2py_rout__flapack_dgels,doc_f2py_rout__flapack_dgels},
104813 {"cgels",-1,{{-1}},0,(char *)F_FUNC(cgels,CGELS)cgels_,(f2py_init_func)f2py_rout__flapack_cgels,doc_f2py_rout__flapack_cgels},
104814 {"zgels",-1,{{-1}},0,(char *)F_FUNC(zgels,ZGELS)zgels_,(f2py_init_func)f2py_rout__flapack_zgels,doc_f2py_rout__flapack_zgels},
104815 {"sgels_lwork",-1,{{-1}},0,(char *)F_FUNC(sgels ,SGELS )sgels_,(f2py_init_func)f2py_rout__flapack_sgels_lwork,doc_f2py_rout__flapack_sgels_lwork},
104816 {"dgels_lwork",-1,{{-1}},0,(char *)F_FUNC(dgels ,DGELS )dgels_,(f2py_init_func)f2py_rout__flapack_dgels_lwork,doc_f2py_rout__flapack_dgels_lwork},
104817 {"cgels_lwork",-1,{{-1}},0,(char *)F_FUNC(cgels ,CGELS )cgels_,(f2py_init_func)f2py_rout__flapack_cgels_lwork,doc_f2py_rout__flapack_cgels_lwork},
104818 {"zgels_lwork",-1,{{-1}},0,(char *)F_FUNC(zgels ,ZGELS )zgels_,(f2py_init_func)f2py_rout__flapack_zgels_lwork,doc_f2py_rout__flapack_zgels_lwork},
104819 {"sgelss",-1,{{-1}},0,(char *)F_FUNC(sgelss,SGELSS)sgelss_,(f2py_init_func)f2py_rout__flapack_sgelss,doc_f2py_rout__flapack_sgelss},
104820 {"dgelss",-1,{{-1}},0,(char *)F_FUNC(dgelss,DGELSS)dgelss_,(f2py_init_func)f2py_rout__flapack_dgelss,doc_f2py_rout__flapack_dgelss},
104821 {"sgelss_lwork",-1,{{-1}},0,(char *)F_FUNC(sgelss ,SGELSS )sgelss_,(f2py_init_func)f2py_rout__flapack_sgelss_lwork,doc_f2py_rout__flapack_sgelss_lwork},
104822 {"dgelss_lwork",-1,{{-1}},0,(char *)F_FUNC(dgelss ,DGELSS )dgelss_,(f2py_init_func)f2py_rout__flapack_dgelss_lwork,doc_f2py_rout__flapack_dgelss_lwork},
104823 {"cgelss",-1,{{-1}},0,(char *)F_FUNC(cgelss,CGELSS)cgelss_,(f2py_init_func)f2py_rout__flapack_cgelss,doc_f2py_rout__flapack_cgelss},
104824 {"zgelss",-1,{{-1}},0,(char *)F_FUNC(zgelss,ZGELSS)zgelss_,(f2py_init_func)f2py_rout__flapack_zgelss,doc_f2py_rout__flapack_zgelss},
104825 {"cgelss_lwork",-1,{{-1}},0,(char *)F_FUNC(cgelss ,CGELSS )cgelss_,(f2py_init_func)f2py_rout__flapack_cgelss_lwork,doc_f2py_rout__flapack_cgelss_lwork},
104826 {"zgelss_lwork",-1,{{-1}},0,(char *)F_FUNC(zgelss ,ZGELSS )zgelss_,(f2py_init_func)f2py_rout__flapack_zgelss_lwork,doc_f2py_rout__flapack_zgelss_lwork},
104827 {"sgelsy",-1,{{-1}},0,(char *)F_FUNC(sgelsy,SGELSY)sgelsy_,(f2py_init_func)f2py_rout__flapack_sgelsy,doc_f2py_rout__flapack_sgelsy},
104828 {"dgelsy",-1,{{-1}},0,(char *)F_FUNC(dgelsy,DGELSY)dgelsy_,(f2py_init_func)f2py_rout__flapack_dgelsy,doc_f2py_rout__flapack_dgelsy},
104829 {"sgelsy_lwork",-1,{{-1}},0,(char *)F_FUNC(sgelsy ,SGELSY )sgelsy_,(f2py_init_func)f2py_rout__flapack_sgelsy_lwork,doc_f2py_rout__flapack_sgelsy_lwork},
104830 {"dgelsy_lwork",-1,{{-1}},0,(char *)F_FUNC(dgelsy ,DGELSY )dgelsy_,(f2py_init_func)f2py_rout__flapack_dgelsy_lwork,doc_f2py_rout__flapack_dgelsy_lwork},
104831 {"cgelsy",-1,{{-1}},0,(char *)F_FUNC(cgelsy,CGELSY)cgelsy_,(f2py_init_func)f2py_rout__flapack_cgelsy,doc_f2py_rout__flapack_cgelsy},
104832 {"zgelsy",-1,{{-1}},0,(char *)F_FUNC(zgelsy,ZGELSY)zgelsy_,(f2py_init_func)f2py_rout__flapack_zgelsy,doc_f2py_rout__flapack_zgelsy},
104833 {"cgelsy_lwork",-1,{{-1}},0,(char *)F_FUNC(cgelsy ,CGELSY )cgelsy_,(f2py_init_func)f2py_rout__flapack_cgelsy_lwork,doc_f2py_rout__flapack_cgelsy_lwork},
104834 {"zgelsy_lwork",-1,{{-1}},0,(char *)F_FUNC(zgelsy ,ZGELSY )zgelsy_,(f2py_init_func)f2py_rout__flapack_zgelsy_lwork,doc_f2py_rout__flapack_zgelsy_lwork},
104835 {"sgelsd",-1,{{-1}},0,(char *)F_FUNC(sgelsd,SGELSD)sgelsd_,(f2py_init_func)f2py_rout__flapack_sgelsd,doc_f2py_rout__flapack_sgelsd},
104836 {"dgelsd",-1,{{-1}},0,(char *)F_FUNC(dgelsd,DGELSD)dgelsd_,(f2py_init_func)f2py_rout__flapack_dgelsd,doc_f2py_rout__flapack_dgelsd},
104837 {"sgelsd_lwork",-1,{{-1}},0,(char *)F_FUNC(sgelsd ,SGELSD )sgelsd_,(f2py_init_func)f2py_rout__flapack_sgelsd_lwork,doc_f2py_rout__flapack_sgelsd_lwork},
104838 {"dgelsd_lwork",-1,{{-1}},0,(char *)F_FUNC(dgelsd ,DGELSD )dgelsd_,(f2py_init_func)f2py_rout__flapack_dgelsd_lwork,doc_f2py_rout__flapack_dgelsd_lwork},
104839 {"cgelsd",-1,{{-1}},0,(char *)F_FUNC(cgelsd,CGELSD)cgelsd_,(f2py_init_func)f2py_rout__flapack_cgelsd,doc_f2py_rout__flapack_cgelsd},
104840 {"zgelsd",-1,{{-1}},0,(char *)F_FUNC(zgelsd,ZGELSD)zgelsd_,(f2py_init_func)f2py_rout__flapack_zgelsd,doc_f2py_rout__flapack_zgelsd},
104841 {"cgelsd_lwork",-1,{{-1}},0,(char *)F_FUNC(cgelsd ,CGELSD )cgelsd_,(f2py_init_func)f2py_rout__flapack_cgelsd_lwork,doc_f2py_rout__flapack_cgelsd_lwork},
104842 {"zgelsd_lwork",-1,{{-1}},0,(char *)F_FUNC(zgelsd ,ZGELSD )zgelsd_,(f2py_init_func)f2py_rout__flapack_zgelsd_lwork,doc_f2py_rout__flapack_zgelsd_lwork},
104843 {"sgeqp3",-1,{{-1}},0,(char *)F_FUNC(sgeqp3,SGEQP3)sgeqp3_,(f2py_init_func)f2py_rout__flapack_sgeqp3,doc_f2py_rout__flapack_sgeqp3},
104844 {"dgeqp3",-1,{{-1}},0,(char *)F_FUNC(dgeqp3,DGEQP3)dgeqp3_,(f2py_init_func)f2py_rout__flapack_dgeqp3,doc_f2py_rout__flapack_dgeqp3},
104845 {"cgeqp3",-1,{{-1}},0,(char *)F_FUNC(cgeqp3,CGEQP3)cgeqp3_,(f2py_init_func)f2py_rout__flapack_cgeqp3,doc_f2py_rout__flapack_cgeqp3},
104846 {"zgeqp3",-1,{{-1}},0,(char *)F_FUNC(zgeqp3,ZGEQP3)zgeqp3_,(f2py_init_func)f2py_rout__flapack_zgeqp3,doc_f2py_rout__flapack_zgeqp3},
104847 {"sgeqrf",-1,{{-1}},0,(char *)F_FUNC(sgeqrf,SGEQRF)sgeqrf_,(f2py_init_func)f2py_rout__flapack_sgeqrf,doc_f2py_rout__flapack_sgeqrf},
104848 {"dgeqrf",-1,{{-1}},0,(char *)F_FUNC(dgeqrf,DGEQRF)dgeqrf_,(f2py_init_func)f2py_rout__flapack_dgeqrf,doc_f2py_rout__flapack_dgeqrf},
104849 {"cgeqrf",-1,{{-1}},0,(char *)F_FUNC(cgeqrf,CGEQRF)cgeqrf_,(f2py_init_func)f2py_rout__flapack_cgeqrf,doc_f2py_rout__flapack_cgeqrf},
104850 {"zgeqrf",-1,{{-1}},0,(char *)F_FUNC(zgeqrf,ZGEQRF)zgeqrf_,(f2py_init_func)f2py_rout__flapack_zgeqrf,doc_f2py_rout__flapack_zgeqrf},
104851 {"sgeqrf_lwork",-1,{{-1}},0,(char *)F_FUNC(sgeqrf ,SGEQRF )sgeqrf_,(f2py_init_func)f2py_rout__flapack_sgeqrf_lwork,doc_f2py_rout__flapack_sgeqrf_lwork},
104852 {"dgeqrf_lwork",-1,{{-1}},0,(char *)F_FUNC(dgeqrf ,DGEQRF )dgeqrf_,(f2py_init_func)f2py_rout__flapack_dgeqrf_lwork,doc_f2py_rout__flapack_dgeqrf_lwork},
104853 {"cgeqrf_lwork",-1,{{-1}},0,(char *)F_FUNC(cgeqrf ,CGEQRF )cgeqrf_,(f2py_init_func)f2py_rout__flapack_cgeqrf_lwork,doc_f2py_rout__flapack_cgeqrf_lwork},
104854 {"zgeqrf_lwork",-1,{{-1}},0,(char *)F_FUNC(zgeqrf ,ZGEQRF )zgeqrf_,(f2py_init_func)f2py_rout__flapack_zgeqrf_lwork,doc_f2py_rout__flapack_zgeqrf_lwork},
104855 {"sgeqrfp",-1,{{-1}},0,(char *)F_FUNC(sgeqrfp,SGEQRFP)sgeqrfp_,(f2py_init_func)f2py_rout__flapack_sgeqrfp,doc_f2py_rout__flapack_sgeqrfp},
104856 {"dgeqrfp",-1,{{-1}},0,(char *)F_FUNC(dgeqrfp,DGEQRFP)dgeqrfp_,(f2py_init_func)f2py_rout__flapack_dgeqrfp,doc_f2py_rout__flapack_dgeqrfp},
104857 {"cgeqrfp",-1,{{-1}},0,(char *)F_FUNC(cgeqrfp,CGEQRFP)cgeqrfp_,(f2py_init_func)f2py_rout__flapack_cgeqrfp,doc_f2py_rout__flapack_cgeqrfp},
104858 {"zgeqrfp",-1,{{-1}},0,(char *)F_FUNC(zgeqrfp,ZGEQRFP)zgeqrfp_,(f2py_init_func)f2py_rout__flapack_zgeqrfp,doc_f2py_rout__flapack_zgeqrfp},
104859 {"sgeqrfp_lwork",-1,{{-1}},0,(char *)F_FUNC(sgeqrfp ,SGEQRFP )sgeqrfp_,(f2py_init_func)f2py_rout__flapack_sgeqrfp_lwork,doc_f2py_rout__flapack_sgeqrfp_lwork},
104860 {"dgeqrfp_lwork",-1,{{-1}},0,(char *)F_FUNC(dgeqrfp ,DGEQRFP )dgeqrfp_,(f2py_init_func)f2py_rout__flapack_dgeqrfp_lwork,doc_f2py_rout__flapack_dgeqrfp_lwork},
104861 {"cgeqrfp_lwork",-1,{{-1}},0,(char *)F_FUNC(cgeqrfp ,CGEQRFP )cgeqrfp_,(f2py_init_func)f2py_rout__flapack_cgeqrfp_lwork,doc_f2py_rout__flapack_cgeqrfp_lwork},
104862 {"zgeqrfp_lwork",-1,{{-1}},0,(char *)F_FUNC(zgeqrfp ,ZGEQRFP )zgeqrfp_,(f2py_init_func)f2py_rout__flapack_zgeqrfp_lwork,doc_f2py_rout__flapack_zgeqrfp_lwork},
104863 {"sgerqf",-1,{{-1}},0,(char *)F_FUNC(sgerqf,SGERQF)sgerqf_,(f2py_init_func)f2py_rout__flapack_sgerqf,doc_f2py_rout__flapack_sgerqf},
104864 {"dgerqf",-1,{{-1}},0,(char *)F_FUNC(dgerqf,DGERQF)dgerqf_,(f2py_init_func)f2py_rout__flapack_dgerqf,doc_f2py_rout__flapack_dgerqf},
104865 {"cgerqf",-1,{{-1}},0,(char *)F_FUNC(cgerqf,CGERQF)cgerqf_,(f2py_init_func)f2py_rout__flapack_cgerqf,doc_f2py_rout__flapack_cgerqf},
104866 {"zgerqf",-1,{{-1}},0,(char *)F_FUNC(zgerqf,ZGERQF)zgerqf_,(f2py_init_func)f2py_rout__flapack_zgerqf,doc_f2py_rout__flapack_zgerqf},
104867 {"sgeev",-1,{{-1}},0,(char *)F_FUNC(sgeev,SGEEV)sgeev_,(f2py_init_func)f2py_rout__flapack_sgeev,doc_f2py_rout__flapack_sgeev},
104868 {"dgeev",-1,{{-1}},0,(char *)F_FUNC(dgeev,DGEEV)dgeev_,(f2py_init_func)f2py_rout__flapack_dgeev,doc_f2py_rout__flapack_dgeev},
104869 {"sgeev_lwork",-1,{{-1}},0,(char *)F_FUNC(sgeev ,SGEEV )sgeev_,(f2py_init_func)f2py_rout__flapack_sgeev_lwork,doc_f2py_rout__flapack_sgeev_lwork},
104870 {"dgeev_lwork",-1,{{-1}},0,(char *)F_FUNC(dgeev ,DGEEV )dgeev_,(f2py_init_func)f2py_rout__flapack_dgeev_lwork,doc_f2py_rout__flapack_dgeev_lwork},
104871 {"cgeev",-1,{{-1}},0,(char *)F_FUNC(cgeev,CGEEV)cgeev_,(f2py_init_func)f2py_rout__flapack_cgeev,doc_f2py_rout__flapack_cgeev},
104872 {"zgeev",-1,{{-1}},0,(char *)F_FUNC(zgeev,ZGEEV)zgeev_,(f2py_init_func)f2py_rout__flapack_zgeev,doc_f2py_rout__flapack_zgeev},
104873 {"cgeev_lwork",-1,{{-1}},0,(char *)F_FUNC(cgeev ,CGEEV )cgeev_,(f2py_init_func)f2py_rout__flapack_cgeev_lwork,doc_f2py_rout__flapack_cgeev_lwork},
104874 {"zgeev_lwork",-1,{{-1}},0,(char *)F_FUNC(zgeev ,ZGEEV )zgeev_,(f2py_init_func)f2py_rout__flapack_zgeev_lwork,doc_f2py_rout__flapack_zgeev_lwork},
104875 {"sgegv",-1,{{-1}},0,(char *)F_FUNC(sgegv,SGEGV)sgegv_,(f2py_init_func)f2py_rout__flapack_sgegv,doc_f2py_rout__flapack_sgegv},
104876 {"dgegv",-1,{{-1}},0,(char *)F_FUNC(dgegv,DGEGV)dgegv_,(f2py_init_func)f2py_rout__flapack_dgegv,doc_f2py_rout__flapack_dgegv},
104877 {"cgegv",-1,{{-1}},0,(char *)F_FUNC(cgegv,CGEGV)cgegv_,(f2py_init_func)f2py_rout__flapack_cgegv,doc_f2py_rout__flapack_cgegv},
104878 {"zgegv",-1,{{-1}},0,(char *)F_FUNC(zgegv,ZGEGV)zgegv_,(f2py_init_func)f2py_rout__flapack_zgegv,doc_f2py_rout__flapack_zgegv},
104879 {"cgees",-1,{{-1}},0,(char *)F_FUNC(cgees,CGEES)cgees_,(f2py_init_func)f2py_rout__flapack_cgees,doc_f2py_rout__flapack_cgees},
104880 {"zgees",-1,{{-1}},0,(char *)F_FUNC(zgees,ZGEES)zgees_,(f2py_init_func)f2py_rout__flapack_zgees,doc_f2py_rout__flapack_zgees},
104881 {"sgees",-1,{{-1}},0,(char *)F_FUNC(sgees,SGEES)sgees_,(f2py_init_func)f2py_rout__flapack_sgees,doc_f2py_rout__flapack_sgees},
104882 {"dgees",-1,{{-1}},0,(char *)F_FUNC(dgees,DGEES)dgees_,(f2py_init_func)f2py_rout__flapack_dgees,doc_f2py_rout__flapack_dgees},
104883 {"sgges",-1,{{-1}},0,(char *)F_FUNC(sgges,SGGES)sgges_,(f2py_init_func)f2py_rout__flapack_sgges,doc_f2py_rout__flapack_sgges},
104884 {"dgges",-1,{{-1}},0,(char *)F_FUNC(dgges,DGGES)dgges_,(f2py_init_func)f2py_rout__flapack_dgges,doc_f2py_rout__flapack_dgges},
104885 {"cgges",-1,{{-1}},0,(char *)F_FUNC(cgges,CGGES)cgges_,(f2py_init_func)f2py_rout__flapack_cgges,doc_f2py_rout__flapack_cgges},
104886 {"zgges",-1,{{-1}},0,(char *)F_FUNC(zgges,ZGGES)zgges_,(f2py_init_func)f2py_rout__flapack_zgges,doc_f2py_rout__flapack_zgges},
104887 {"sggev",-1,{{-1}},0,(char *)F_FUNC(sggev,SGGEV)sggev_,(f2py_init_func)f2py_rout__flapack_sggev,doc_f2py_rout__flapack_sggev},
104888 {"dggev",-1,{{-1}},0,(char *)F_FUNC(dggev,DGGEV)dggev_,(f2py_init_func)f2py_rout__flapack_dggev,doc_f2py_rout__flapack_dggev},
104889 {"cggev",-1,{{-1}},0,(char *)F_FUNC(cggev,CGGEV)cggev_,(f2py_init_func)f2py_rout__flapack_cggev,doc_f2py_rout__flapack_cggev},
104890 {"zggev",-1,{{-1}},0,(char *)F_FUNC(zggev,ZGGEV)zggev_,(f2py_init_func)f2py_rout__flapack_zggev,doc_f2py_rout__flapack_zggev},
104891 {"sgeequ",-1,{{-1}},0,(char *)F_FUNC(sgeequ,SGEEQU)sgeequ_,(f2py_init_func)f2py_rout__flapack_sgeequ,doc_f2py_rout__flapack_sgeequ},
104892 {"dgeequ",-1,{{-1}},0,(char *)F_FUNC(dgeequ,DGEEQU)dgeequ_,(f2py_init_func)f2py_rout__flapack_dgeequ,doc_f2py_rout__flapack_dgeequ},
104893 {"cgeequ",-1,{{-1}},0,(char *)F_FUNC(cgeequ,CGEEQU)cgeequ_,(f2py_init_func)f2py_rout__flapack_cgeequ,doc_f2py_rout__flapack_cgeequ},
104894 {"zgeequ",-1,{{-1}},0,(char *)F_FUNC(zgeequ,ZGEEQU)zgeequ_,(f2py_init_func)f2py_rout__flapack_zgeequ,doc_f2py_rout__flapack_zgeequ},
104895 {"sgeequb",-1,{{-1}},0,(char *)F_FUNC(sgeequb,SGEEQUB)sgeequb_,(f2py_init_func)f2py_rout__flapack_sgeequb,doc_f2py_rout__flapack_sgeequb},
104896 {"dgeequb",-1,{{-1}},0,(char *)F_FUNC(dgeequb,DGEEQUB)dgeequb_,(f2py_init_func)f2py_rout__flapack_dgeequb,doc_f2py_rout__flapack_dgeequb},
104897 {"cgeequb",-1,{{-1}},0,(char *)F_FUNC(cgeequb,CGEEQUB)cgeequb_,(f2py_init_func)f2py_rout__flapack_cgeequb,doc_f2py_rout__flapack_cgeequb},
104898 {"zgeequb",-1,{{-1}},0,(char *)F_FUNC(zgeequb,ZGEEQUB)zgeequb_,(f2py_init_func)f2py_rout__flapack_zgeequb,doc_f2py_rout__flapack_zgeequb},
104899 {"sgbsv",-1,{{-1}},0,(char *)F_FUNC(sgbsv,SGBSV)sgbsv_,(f2py_init_func)f2py_rout__flapack_sgbsv,doc_f2py_rout__flapack_sgbsv},
104900 {"dgbsv",-1,{{-1}},0,(char *)F_FUNC(dgbsv,DGBSV)dgbsv_,(f2py_init_func)f2py_rout__flapack_dgbsv,doc_f2py_rout__flapack_dgbsv},
104901 {"cgbsv",-1,{{-1}},0,(char *)F_FUNC(cgbsv,CGBSV)cgbsv_,(f2py_init_func)f2py_rout__flapack_cgbsv,doc_f2py_rout__flapack_cgbsv},
104902 {"zgbsv",-1,{{-1}},0,(char *)F_FUNC(zgbsv,ZGBSV)zgbsv_,(f2py_init_func)f2py_rout__flapack_zgbsv,doc_f2py_rout__flapack_zgbsv},
104903 {"sgbtrf",-1,{{-1}},0,(char *)F_FUNC(sgbtrf,SGBTRF)sgbtrf_,(f2py_init_func)f2py_rout__flapack_sgbtrf,doc_f2py_rout__flapack_sgbtrf},
104904 {"dgbtrf",-1,{{-1}},0,(char *)F_FUNC(dgbtrf,DGBTRF)dgbtrf_,(f2py_init_func)f2py_rout__flapack_dgbtrf,doc_f2py_rout__flapack_dgbtrf},
104905 {"cgbtrf",-1,{{-1}},0,(char *)F_FUNC(cgbtrf,CGBTRF)cgbtrf_,(f2py_init_func)f2py_rout__flapack_cgbtrf,doc_f2py_rout__flapack_cgbtrf},
104906 {"zgbtrf",-1,{{-1}},0,(char *)F_FUNC(zgbtrf,ZGBTRF)zgbtrf_,(f2py_init_func)f2py_rout__flapack_zgbtrf,doc_f2py_rout__flapack_zgbtrf},
104907 {"sgbtrs",-1,{{-1}},0,(char *)F_FUNC(sgbtrs,SGBTRS)sgbtrs_,(f2py_init_func)f2py_rout__flapack_sgbtrs,doc_f2py_rout__flapack_sgbtrs},
104908 {"dgbtrs",-1,{{-1}},0,(char *)F_FUNC(dgbtrs,DGBTRS)dgbtrs_,(f2py_init_func)f2py_rout__flapack_dgbtrs,doc_f2py_rout__flapack_dgbtrs},
104909 {"cgbtrs",-1,{{-1}},0,(char *)F_FUNC(cgbtrs,CGBTRS)cgbtrs_,(f2py_init_func)f2py_rout__flapack_cgbtrs,doc_f2py_rout__flapack_cgbtrs},
104910 {"zgbtrs",-1,{{-1}},0,(char *)F_FUNC(zgbtrs,ZGBTRS)zgbtrs_,(f2py_init_func)f2py_rout__flapack_zgbtrs,doc_f2py_rout__flapack_zgbtrs},
104911 {"sgtsv",-1,{{-1}},0,(char *)F_FUNC(sgtsv,SGTSV)sgtsv_,(f2py_init_func)f2py_rout__flapack_sgtsv,doc_f2py_rout__flapack_sgtsv},
104912 {"dgtsv",-1,{{-1}},0,(char *)F_FUNC(dgtsv,DGTSV)dgtsv_,(f2py_init_func)f2py_rout__flapack_dgtsv,doc_f2py_rout__flapack_dgtsv},
104913 {"cgtsv",-1,{{-1}},0,(char *)F_FUNC(cgtsv,CGTSV)cgtsv_,(f2py_init_func)f2py_rout__flapack_cgtsv,doc_f2py_rout__flapack_cgtsv},
104914 {"zgtsv",-1,{{-1}},0,(char *)F_FUNC(zgtsv,ZGTSV)zgtsv_,(f2py_init_func)f2py_rout__flapack_zgtsv,doc_f2py_rout__flapack_zgtsv},
104915 {"sgttrf",-1,{{-1}},0,(char *)F_FUNC(sgttrf,SGTTRF)sgttrf_,(f2py_init_func)f2py_rout__flapack_sgttrf,doc_f2py_rout__flapack_sgttrf},
104916 {"dgttrf",-1,{{-1}},0,(char *)F_FUNC(dgttrf,DGTTRF)dgttrf_,(f2py_init_func)f2py_rout__flapack_dgttrf,doc_f2py_rout__flapack_dgttrf},
104917 {"cgttrf",-1,{{-1}},0,(char *)F_FUNC(cgttrf,CGTTRF)cgttrf_,(f2py_init_func)f2py_rout__flapack_cgttrf,doc_f2py_rout__flapack_cgttrf},
104918 {"zgttrf",-1,{{-1}},0,(char *)F_FUNC(zgttrf,ZGTTRF)zgttrf_,(f2py_init_func)f2py_rout__flapack_zgttrf,doc_f2py_rout__flapack_zgttrf},
104919 {"sgttrs",-1,{{-1}},0,(char *)F_FUNC(sgttrs,SGTTRS)sgttrs_,(f2py_init_func)f2py_rout__flapack_sgttrs,doc_f2py_rout__flapack_sgttrs},
104920 {"dgttrs",-1,{{-1}},0,(char *)F_FUNC(dgttrs,DGTTRS)dgttrs_,(f2py_init_func)f2py_rout__flapack_dgttrs,doc_f2py_rout__flapack_dgttrs},
104921 {"cgttrs",-1,{{-1}},0,(char *)F_FUNC(cgttrs,CGTTRS)cgttrs_,(f2py_init_func)f2py_rout__flapack_cgttrs,doc_f2py_rout__flapack_cgttrs},
104922 {"zgttrs",-1,{{-1}},0,(char *)F_FUNC(zgttrs,ZGTTRS)zgttrs_,(f2py_init_func)f2py_rout__flapack_zgttrs,doc_f2py_rout__flapack_zgttrs},
104923 {"sgtsvx",-1,{{-1}},0,(char *)F_FUNC(sgtsvx,SGTSVX)sgtsvx_,(f2py_init_func)f2py_rout__flapack_sgtsvx,doc_f2py_rout__flapack_sgtsvx},
104924 {"dgtsvx",-1,{{-1}},0,(char *)F_FUNC(dgtsvx,DGTSVX)dgtsvx_,(f2py_init_func)f2py_rout__flapack_dgtsvx,doc_f2py_rout__flapack_dgtsvx},
104925 {"cgtsvx",-1,{{-1}},0,(char *)F_FUNC(cgtsvx,CGTSVX)cgtsvx_,(f2py_init_func)f2py_rout__flapack_cgtsvx,doc_f2py_rout__flapack_cgtsvx},
104926 {"zgtsvx",-1,{{-1}},0,(char *)F_FUNC(zgtsvx,ZGTSVX)zgtsvx_,(f2py_init_func)f2py_rout__flapack_zgtsvx,doc_f2py_rout__flapack_zgtsvx},
104927 {"ssyev",-1,{{-1}},0,(char *)F_FUNC(ssyev,SSYEV)ssyev_,(f2py_init_func)f2py_rout__flapack_ssyev,doc_f2py_rout__flapack_ssyev},
104928 {"dsyev",-1,{{-1}},0,(char *)F_FUNC(dsyev,DSYEV)dsyev_,(f2py_init_func)f2py_rout__flapack_dsyev,doc_f2py_rout__flapack_dsyev},
104929 {"ssyev_lwork",-1,{{-1}},0,(char *)F_FUNC(ssyev ,SSYEV )ssyev_,(f2py_init_func)f2py_rout__flapack_ssyev_lwork,doc_f2py_rout__flapack_ssyev_lwork},
104930 {"dsyev_lwork",-1,{{-1}},0,(char *)F_FUNC(dsyev ,DSYEV )dsyev_,(f2py_init_func)f2py_rout__flapack_dsyev_lwork,doc_f2py_rout__flapack_dsyev_lwork},
104931 {"cheev",-1,{{-1}},0,(char *)F_FUNC(cheev,CHEEV)cheev_,(f2py_init_func)f2py_rout__flapack_cheev,doc_f2py_rout__flapack_cheev},
104932 {"zheev",-1,{{-1}},0,(char *)F_FUNC(zheev,ZHEEV)zheev_,(f2py_init_func)f2py_rout__flapack_zheev,doc_f2py_rout__flapack_zheev},
104933 {"cheev_lwork",-1,{{-1}},0,(char *)F_FUNC(cheev ,CHEEV )cheev_,(f2py_init_func)f2py_rout__flapack_cheev_lwork,doc_f2py_rout__flapack_cheev_lwork},
104934 {"zheev_lwork",-1,{{-1}},0,(char *)F_FUNC(zheev ,ZHEEV )zheev_,(f2py_init_func)f2py_rout__flapack_zheev_lwork,doc_f2py_rout__flapack_zheev_lwork},
104935 {"ssyevd",-1,{{-1}},0,(char *)F_FUNC(ssyevd,SSYEVD)ssyevd_,(f2py_init_func)f2py_rout__flapack_ssyevd,doc_f2py_rout__flapack_ssyevd},
104936 {"dsyevd",-1,{{-1}},0,(char *)F_FUNC(dsyevd,DSYEVD)dsyevd_,(f2py_init_func)f2py_rout__flapack_dsyevd,doc_f2py_rout__flapack_dsyevd},
104937 {"ssyevd_lwork",-1,{{-1}},0,(char *)F_FUNC(ssyevd ,SSYEVD )ssyevd_,(f2py_init_func)f2py_rout__flapack_ssyevd_lwork,doc_f2py_rout__flapack_ssyevd_lwork},
104938 {"dsyevd_lwork",-1,{{-1}},0,(char *)F_FUNC(dsyevd ,DSYEVD )dsyevd_,(f2py_init_func)f2py_rout__flapack_dsyevd_lwork,doc_f2py_rout__flapack_dsyevd_lwork},
104939 {"cheevd",-1,{{-1}},0,(char *)F_FUNC(cheevd,CHEEVD)cheevd_,(f2py_init_func)f2py_rout__flapack_cheevd,doc_f2py_rout__flapack_cheevd},
104940 {"zheevd",-1,{{-1}},0,(char *)F_FUNC(zheevd,ZHEEVD)zheevd_,(f2py_init_func)f2py_rout__flapack_zheevd,doc_f2py_rout__flapack_zheevd},
104941 {"cheevd_lwork",-1,{{-1}},0,(char *)F_FUNC(cheevd ,CHEEVD )cheevd_,(f2py_init_func)f2py_rout__flapack_cheevd_lwork,doc_f2py_rout__flapack_cheevd_lwork},
104942 {"zheevd_lwork",-1,{{-1}},0,(char *)F_FUNC(zheevd ,ZHEEVD )zheevd_,(f2py_init_func)f2py_rout__flapack_zheevd_lwork,doc_f2py_rout__flapack_zheevd_lwork},
104943 {"ssytf2",-1,{{-1}},0,(char *)F_FUNC(ssytf2,SSYTF2)ssytf2_,(f2py_init_func)f2py_rout__flapack_ssytf2,doc_f2py_rout__flapack_ssytf2},
104944 {"dsytf2",-1,{{-1}},0,(char *)F_FUNC(dsytf2,DSYTF2)dsytf2_,(f2py_init_func)f2py_rout__flapack_dsytf2,doc_f2py_rout__flapack_dsytf2},
104945 {"csytf2",-1,{{-1}},0,(char *)F_FUNC(csytf2,CSYTF2)csytf2_,(f2py_init_func)f2py_rout__flapack_csytf2,doc_f2py_rout__flapack_csytf2},
104946 {"zsytf2",-1,{{-1}},0,(char *)F_FUNC(zsytf2,ZSYTF2)zsytf2_,(f2py_init_func)f2py_rout__flapack_zsytf2,doc_f2py_rout__flapack_zsytf2},
104947 {"ssygst",-1,{{-1}},0,(char *)F_FUNC(ssygst,SSYGST)ssygst_,(f2py_init_func)f2py_rout__flapack_ssygst,doc_f2py_rout__flapack_ssygst},
104948 {"dsygst",-1,{{-1}},0,(char *)F_FUNC(dsygst,DSYGST)dsygst_,(f2py_init_func)f2py_rout__flapack_dsygst,doc_f2py_rout__flapack_dsygst},
104949 {"ssytrf",-1,{{-1}},0,(char *)F_FUNC(ssytrf,SSYTRF)ssytrf_,(f2py_init_func)f2py_rout__flapack_ssytrf,doc_f2py_rout__flapack_ssytrf},
104950 {"dsytrf",-1,{{-1}},0,(char *)F_FUNC(dsytrf,DSYTRF)dsytrf_,(f2py_init_func)f2py_rout__flapack_dsytrf,doc_f2py_rout__flapack_dsytrf},
104951 {"csytrf",-1,{{-1}},0,(char *)F_FUNC(csytrf,CSYTRF)csytrf_,(f2py_init_func)f2py_rout__flapack_csytrf,doc_f2py_rout__flapack_csytrf},
104952 {"zsytrf",-1,{{-1}},0,(char *)F_FUNC(zsytrf,ZSYTRF)zsytrf_,(f2py_init_func)f2py_rout__flapack_zsytrf,doc_f2py_rout__flapack_zsytrf},
104953 {"ssytrf_lwork",-1,{{-1}},0,(char *)F_FUNC(ssytrf ,SSYTRF )ssytrf_,(f2py_init_func)f2py_rout__flapack_ssytrf_lwork,doc_f2py_rout__flapack_ssytrf_lwork},
104954 {"dsytrf_lwork",-1,{{-1}},0,(char *)F_FUNC(dsytrf ,DSYTRF )dsytrf_,(f2py_init_func)f2py_rout__flapack_dsytrf_lwork,doc_f2py_rout__flapack_dsytrf_lwork},
104955 {"csytrf_lwork",-1,{{-1}},0,(char *)F_FUNC(csytrf ,CSYTRF )csytrf_,(f2py_init_func)f2py_rout__flapack_csytrf_lwork,doc_f2py_rout__flapack_csytrf_lwork},
104956 {"zsytrf_lwork",-1,{{-1}},0,(char *)F_FUNC(zsytrf ,ZSYTRF )zsytrf_,(f2py_init_func)f2py_rout__flapack_zsytrf_lwork,doc_f2py_rout__flapack_zsytrf_lwork},
104957 {"ssysv",-1,{{-1}},0,(char *)F_FUNC(ssysv,SSYSV)ssysv_,(f2py_init_func)f2py_rout__flapack_ssysv,doc_f2py_rout__flapack_ssysv},
104958 {"dsysv",-1,{{-1}},0,(char *)F_FUNC(dsysv,DSYSV)dsysv_,(f2py_init_func)f2py_rout__flapack_dsysv,doc_f2py_rout__flapack_dsysv},
104959 {"csysv",-1,{{-1}},0,(char *)F_FUNC(csysv,CSYSV)csysv_,(f2py_init_func)f2py_rout__flapack_csysv,doc_f2py_rout__flapack_csysv},
104960 {"zsysv",-1,{{-1}},0,(char *)F_FUNC(zsysv,ZSYSV)zsysv_,(f2py_init_func)f2py_rout__flapack_zsysv,doc_f2py_rout__flapack_zsysv},
104961 {"ssysv_lwork",-1,{{-1}},0,(char *)F_FUNC(ssysv ,SSYSV )ssysv_,(f2py_init_func)f2py_rout__flapack_ssysv_lwork,doc_f2py_rout__flapack_ssysv_lwork},
104962 {"dsysv_lwork",-1,{{-1}},0,(char *)F_FUNC(dsysv ,DSYSV )dsysv_,(f2py_init_func)f2py_rout__flapack_dsysv_lwork,doc_f2py_rout__flapack_dsysv_lwork},
104963 {"csysv_lwork",-1,{{-1}},0,(char *)F_FUNC(csysv ,CSYSV )csysv_,(f2py_init_func)f2py_rout__flapack_csysv_lwork,doc_f2py_rout__flapack_csysv_lwork},
104964 {"zsysv_lwork",-1,{{-1}},0,(char *)F_FUNC(zsysv ,ZSYSV )zsysv_,(f2py_init_func)f2py_rout__flapack_zsysv_lwork,doc_f2py_rout__flapack_zsysv_lwork},
104965 {"ssysvx",-1,{{-1}},0,(char *)F_FUNC(ssysvx,SSYSVX)ssysvx_,(f2py_init_func)f2py_rout__flapack_ssysvx,doc_f2py_rout__flapack_ssysvx},
104966 {"dsysvx",-1,{{-1}},0,(char *)F_FUNC(dsysvx,DSYSVX)dsysvx_,(f2py_init_func)f2py_rout__flapack_dsysvx,doc_f2py_rout__flapack_dsysvx},
104967 {"csysvx",-1,{{-1}},0,(char *)F_FUNC(csysvx,CSYSVX)csysvx_,(f2py_init_func)f2py_rout__flapack_csysvx,doc_f2py_rout__flapack_csysvx},
104968 {"zsysvx",-1,{{-1}},0,(char *)F_FUNC(zsysvx,ZSYSVX)zsysvx_,(f2py_init_func)f2py_rout__flapack_zsysvx,doc_f2py_rout__flapack_zsysvx},
104969 {"ssysvx_lwork",-1,{{-1}},0,(char *)F_FUNC(ssysvx ,SSYSVX )ssysvx_,(f2py_init_func)f2py_rout__flapack_ssysvx_lwork,doc_f2py_rout__flapack_ssysvx_lwork},
104970 {"dsysvx_lwork",-1,{{-1}},0,(char *)F_FUNC(dsysvx ,DSYSVX )dsysvx_,(f2py_init_func)f2py_rout__flapack_dsysvx_lwork,doc_f2py_rout__flapack_dsysvx_lwork},
104971 {"csysvx_lwork",-1,{{-1}},0,(char *)F_FUNC(csysvx ,CSYSVX )csysvx_,(f2py_init_func)f2py_rout__flapack_csysvx_lwork,doc_f2py_rout__flapack_csysvx_lwork},
104972 {"zsysvx_lwork",-1,{{-1}},0,(char *)F_FUNC(zsysvx ,ZSYSVX )zsysvx_,(f2py_init_func)f2py_rout__flapack_zsysvx_lwork,doc_f2py_rout__flapack_zsysvx_lwork},
104973 {"ssycon",-1,{{-1}},0,(char *)F_FUNC(ssycon,SSYCON)ssycon_,(f2py_init_func)f2py_rout__flapack_ssycon,doc_f2py_rout__flapack_ssycon},
104974 {"dsycon",-1,{{-1}},0,(char *)F_FUNC(dsycon,DSYCON)dsycon_,(f2py_init_func)f2py_rout__flapack_dsycon,doc_f2py_rout__flapack_dsycon},
104975 {"csycon",-1,{{-1}},0,(char *)F_FUNC(csycon,CSYCON)csycon_,(f2py_init_func)f2py_rout__flapack_csycon,doc_f2py_rout__flapack_csycon},
104976 {"zsycon",-1,{{-1}},0,(char *)F_FUNC(zsycon,ZSYCON)zsycon_,(f2py_init_func)f2py_rout__flapack_zsycon,doc_f2py_rout__flapack_zsycon},
104977 {"checon",-1,{{-1}},0,(char *)F_FUNC(checon,CHECON)checon_,(f2py_init_func)f2py_rout__flapack_checon,doc_f2py_rout__flapack_checon},
104978 {"zhecon",-1,{{-1}},0,(char *)F_FUNC(zhecon,ZHECON)zhecon_,(f2py_init_func)f2py_rout__flapack_zhecon,doc_f2py_rout__flapack_zhecon},
104979 {"ssyconv",-1,{{-1}},0,(char *)F_FUNC(ssyconv,SSYCONV)ssyconv_,(f2py_init_func)f2py_rout__flapack_ssyconv,doc_f2py_rout__flapack_ssyconv},
104980 {"dsyconv",-1,{{-1}},0,(char *)F_FUNC(dsyconv,DSYCONV)dsyconv_,(f2py_init_func)f2py_rout__flapack_dsyconv,doc_f2py_rout__flapack_dsyconv},
104981 {"csyconv",-1,{{-1}},0,(char *)F_FUNC(csyconv,CSYCONV)csyconv_,(f2py_init_func)f2py_rout__flapack_csyconv,doc_f2py_rout__flapack_csyconv},
104982 {"zsyconv",-1,{{-1}},0,(char *)F_FUNC(zsyconv,ZSYCONV)zsyconv_,(f2py_init_func)f2py_rout__flapack_zsyconv,doc_f2py_rout__flapack_zsyconv},
104983 {"chegst",-1,{{-1}},0,(char *)F_FUNC(chegst,CHEGST)chegst_,(f2py_init_func)f2py_rout__flapack_chegst,doc_f2py_rout__flapack_chegst},
104984 {"zhegst",-1,{{-1}},0,(char *)F_FUNC(zhegst,ZHEGST)zhegst_,(f2py_init_func)f2py_rout__flapack_zhegst,doc_f2py_rout__flapack_zhegst},
104985 {"chetrf",-1,{{-1}},0,(char *)F_FUNC(chetrf,CHETRF)chetrf_,(f2py_init_func)f2py_rout__flapack_chetrf,doc_f2py_rout__flapack_chetrf},
104986 {"zhetrf",-1,{{-1}},0,(char *)F_FUNC(zhetrf,ZHETRF)zhetrf_,(f2py_init_func)f2py_rout__flapack_zhetrf,doc_f2py_rout__flapack_zhetrf},
104987 {"chetrf_lwork",-1,{{-1}},0,(char *)F_FUNC(chetrf ,CHETRF )chetrf_,(f2py_init_func)f2py_rout__flapack_chetrf_lwork,doc_f2py_rout__flapack_chetrf_lwork},
104988 {"zhetrf_lwork",-1,{{-1}},0,(char *)F_FUNC(zhetrf ,ZHETRF )zhetrf_,(f2py_init_func)f2py_rout__flapack_zhetrf_lwork,doc_f2py_rout__flapack_zhetrf_lwork},
104989 {"chesv",-1,{{-1}},0,(char *)F_FUNC(chesv,CHESV)chesv_,(f2py_init_func)f2py_rout__flapack_chesv,doc_f2py_rout__flapack_chesv},
104990 {"zhesv",-1,{{-1}},0,(char *)F_FUNC(zhesv,ZHESV)zhesv_,(f2py_init_func)f2py_rout__flapack_zhesv,doc_f2py_rout__flapack_zhesv},
104991 {"chesv_lwork",-1,{{-1}},0,(char *)F_FUNC(chesv ,CHESV )chesv_,(f2py_init_func)f2py_rout__flapack_chesv_lwork,doc_f2py_rout__flapack_chesv_lwork},
104992 {"zhesv_lwork",-1,{{-1}},0,(char *)F_FUNC(zhesv ,ZHESV )zhesv_,(f2py_init_func)f2py_rout__flapack_zhesv_lwork,doc_f2py_rout__flapack_zhesv_lwork},
104993 {"chesvx",-1,{{-1}},0,(char *)F_FUNC(chesvx,CHESVX)chesvx_,(f2py_init_func)f2py_rout__flapack_chesvx,doc_f2py_rout__flapack_chesvx},
104994 {"zhesvx",-1,{{-1}},0,(char *)F_FUNC(zhesvx,ZHESVX)zhesvx_,(f2py_init_func)f2py_rout__flapack_zhesvx,doc_f2py_rout__flapack_zhesvx},
104995 {"chesvx_lwork",-1,{{-1}},0,(char *)F_FUNC(chesvx ,CHESVX )chesvx_,(f2py_init_func)f2py_rout__flapack_chesvx_lwork,doc_f2py_rout__flapack_chesvx_lwork},
104996 {"zhesvx_lwork",-1,{{-1}},0,(char *)F_FUNC(zhesvx ,ZHESVX )zhesvx_,(f2py_init_func)f2py_rout__flapack_zhesvx_lwork,doc_f2py_rout__flapack_zhesvx_lwork},
104997 {"ssytrd",-1,{{-1}},0,(char *)F_FUNC(ssytrd,SSYTRD)ssytrd_,(f2py_init_func)f2py_rout__flapack_ssytrd,doc_f2py_rout__flapack_ssytrd},
104998 {"dsytrd",-1,{{-1}},0,(char *)F_FUNC(dsytrd,DSYTRD)dsytrd_,(f2py_init_func)f2py_rout__flapack_dsytrd,doc_f2py_rout__flapack_dsytrd},
104999 {"ssytrd_lwork",-1,{{-1}},0,(char *)F_FUNC(ssytrd ,SSYTRD )ssytrd_,(f2py_init_func)f2py_rout__flapack_ssytrd_lwork,doc_f2py_rout__flapack_ssytrd_lwork},
105000 {"dsytrd_lwork",-1,{{-1}},0,(char *)F_FUNC(dsytrd ,DSYTRD )dsytrd_,(f2py_init_func)f2py_rout__flapack_dsytrd_lwork,doc_f2py_rout__flapack_dsytrd_lwork},
105001 {"chetrd",-1,{{-1}},0,(char *)F_FUNC(chetrd,CHETRD)chetrd_,(f2py_init_func)f2py_rout__flapack_chetrd,doc_f2py_rout__flapack_chetrd},
105002 {"zhetrd",-1,{{-1}},0,(char *)F_FUNC(zhetrd,ZHETRD)zhetrd_,(f2py_init_func)f2py_rout__flapack_zhetrd,doc_f2py_rout__flapack_zhetrd},
105003 {"chetrd_lwork",-1,{{-1}},0,(char *)F_FUNC(chetrd ,CHETRD )chetrd_,(f2py_init_func)f2py_rout__flapack_chetrd_lwork,doc_f2py_rout__flapack_chetrd_lwork},
105004 {"zhetrd_lwork",-1,{{-1}},0,(char *)F_FUNC(zhetrd ,ZHETRD )zhetrd_,(f2py_init_func)f2py_rout__flapack_zhetrd_lwork,doc_f2py_rout__flapack_zhetrd_lwork},
105005 {"ssyevr",-1,{{-1}},0,(char *)F_FUNC(ssyevr,SSYEVR)ssyevr_,(f2py_init_func)f2py_rout__flapack_ssyevr,doc_f2py_rout__flapack_ssyevr},
105006 {"dsyevr",-1,{{-1}},0,(char *)F_FUNC(dsyevr,DSYEVR)dsyevr_,(f2py_init_func)f2py_rout__flapack_dsyevr,doc_f2py_rout__flapack_dsyevr},
105007 {"ssyevr_lwork",-1,{{-1}},0,(char *)F_FUNC(ssyevr ,SSYEVR )ssyevr_,(f2py_init_func)f2py_rout__flapack_ssyevr_lwork,doc_f2py_rout__flapack_ssyevr_lwork},
105008 {"dsyevr_lwork",-1,{{-1}},0,(char *)F_FUNC(dsyevr ,DSYEVR )dsyevr_,(f2py_init_func)f2py_rout__flapack_dsyevr_lwork,doc_f2py_rout__flapack_dsyevr_lwork},
105009 {"cheevr",-1,{{-1}},0,(char *)F_FUNC(cheevr,CHEEVR)cheevr_,(f2py_init_func)f2py_rout__flapack_cheevr,doc_f2py_rout__flapack_cheevr},
105010 {"zheevr",-1,{{-1}},0,(char *)F_FUNC(zheevr,ZHEEVR)zheevr_,(f2py_init_func)f2py_rout__flapack_zheevr,doc_f2py_rout__flapack_zheevr},
105011 {"cheevr_lwork",-1,{{-1}},0,(char *)F_FUNC(cheevr ,CHEEVR )cheevr_,(f2py_init_func)f2py_rout__flapack_cheevr_lwork,doc_f2py_rout__flapack_cheevr_lwork},
105012 {"zheevr_lwork",-1,{{-1}},0,(char *)F_FUNC(zheevr ,ZHEEVR )zheevr_,(f2py_init_func)f2py_rout__flapack_zheevr_lwork,doc_f2py_rout__flapack_zheevr_lwork},
105013 {"ssyevx",-1,{{-1}},0,(char *)F_FUNC(ssyevx,SSYEVX)ssyevx_,(f2py_init_func)f2py_rout__flapack_ssyevx,doc_f2py_rout__flapack_ssyevx},
105014 {"dsyevx",-1,{{-1}},0,(char *)F_FUNC(dsyevx,DSYEVX)dsyevx_,(f2py_init_func)f2py_rout__flapack_dsyevx,doc_f2py_rout__flapack_dsyevx},
105015 {"ssyevx_lwork",-1,{{-1}},0,(char *)F_FUNC(ssyevx ,SSYEVX )ssyevx_,(f2py_init_func)f2py_rout__flapack_ssyevx_lwork,doc_f2py_rout__flapack_ssyevx_lwork},
105016 {"dsyevx_lwork",-1,{{-1}},0,(char *)F_FUNC(dsyevx ,DSYEVX )dsyevx_,(f2py_init_func)f2py_rout__flapack_dsyevx_lwork,doc_f2py_rout__flapack_dsyevx_lwork},
105017 {"cheevx",-1,{{-1}},0,(char *)F_FUNC(cheevx,CHEEVX)cheevx_,(f2py_init_func)f2py_rout__flapack_cheevx,doc_f2py_rout__flapack_cheevx},
105018 {"zheevx",-1,{{-1}},0,(char *)F_FUNC(zheevx,ZHEEVX)zheevx_,(f2py_init_func)f2py_rout__flapack_zheevx,doc_f2py_rout__flapack_zheevx},
105019 {"cheevx_lwork",-1,{{-1}},0,(char *)F_FUNC(cheevx ,CHEEVX )cheevx_,(f2py_init_func)f2py_rout__flapack_cheevx_lwork,doc_f2py_rout__flapack_cheevx_lwork},
105020 {"zheevx_lwork",-1,{{-1}},0,(char *)F_FUNC(zheevx ,ZHEEVX )zheevx_,(f2py_init_func)f2py_rout__flapack_zheevx_lwork,doc_f2py_rout__flapack_zheevx_lwork},
105021 {"ssygv",-1,{{-1}},0,(char *)F_FUNC(ssygv,SSYGV)ssygv_,(f2py_init_func)f2py_rout__flapack_ssygv,doc_f2py_rout__flapack_ssygv},
105022 {"dsygv",-1,{{-1}},0,(char *)F_FUNC(dsygv,DSYGV)dsygv_,(f2py_init_func)f2py_rout__flapack_dsygv,doc_f2py_rout__flapack_dsygv},
105023 {"ssygv_lwork",-1,{{-1}},0,(char *)F_FUNC(ssygv ,SSYGV )ssygv_,(f2py_init_func)f2py_rout__flapack_ssygv_lwork,doc_f2py_rout__flapack_ssygv_lwork},
105024 {"dsygv_lwork",-1,{{-1}},0,(char *)F_FUNC(dsygv ,DSYGV )dsygv_,(f2py_init_func)f2py_rout__flapack_dsygv_lwork,doc_f2py_rout__flapack_dsygv_lwork},
105025 {"chegv",-1,{{-1}},0,(char *)F_FUNC(chegv,CHEGV)chegv_,(f2py_init_func)f2py_rout__flapack_chegv,doc_f2py_rout__flapack_chegv},
105026 {"zhegv",-1,{{-1}},0,(char *)F_FUNC(zhegv,ZHEGV)zhegv_,(f2py_init_func)f2py_rout__flapack_zhegv,doc_f2py_rout__flapack_zhegv},
105027 {"chegv_lwork",-1,{{-1}},0,(char *)F_FUNC(chegv ,CHEGV )chegv_,(f2py_init_func)f2py_rout__flapack_chegv_lwork,doc_f2py_rout__flapack_chegv_lwork},
105028 {"zhegv_lwork",-1,{{-1}},0,(char *)F_FUNC(zhegv ,ZHEGV )zhegv_,(f2py_init_func)f2py_rout__flapack_zhegv_lwork,doc_f2py_rout__flapack_zhegv_lwork},
105029 {"ssygvd",-1,{{-1}},0,(char *)F_FUNC(ssygvd,SSYGVD)ssygvd_,(f2py_init_func)f2py_rout__flapack_ssygvd,doc_f2py_rout__flapack_ssygvd},
105030 {"dsygvd",-1,{{-1}},0,(char *)F_FUNC(dsygvd,DSYGVD)dsygvd_,(f2py_init_func)f2py_rout__flapack_dsygvd,doc_f2py_rout__flapack_dsygvd},
105031 {"chegvd",-1,{{-1}},0,(char *)F_FUNC(chegvd,CHEGVD)chegvd_,(f2py_init_func)f2py_rout__flapack_chegvd,doc_f2py_rout__flapack_chegvd},
105032 {"zhegvd",-1,{{-1}},0,(char *)F_FUNC(zhegvd,ZHEGVD)zhegvd_,(f2py_init_func)f2py_rout__flapack_zhegvd,doc_f2py_rout__flapack_zhegvd},
105033 {"ssygvx",-1,{{-1}},0,(char *)F_FUNC(ssygvx,SSYGVX)ssygvx_,(f2py_init_func)f2py_rout__flapack_ssygvx,doc_f2py_rout__flapack_ssygvx},
105034 {"dsygvx",-1,{{-1}},0,(char *)F_FUNC(dsygvx,DSYGVX)dsygvx_,(f2py_init_func)f2py_rout__flapack_dsygvx,doc_f2py_rout__flapack_dsygvx},
105035 {"ssygvx_lwork",-1,{{-1}},0,(char *)F_FUNC(ssygvx ,SSYGVX )ssygvx_,(f2py_init_func)f2py_rout__flapack_ssygvx_lwork,doc_f2py_rout__flapack_ssygvx_lwork},
105036 {"dsygvx_lwork",-1,{{-1}},0,(char *)F_FUNC(dsygvx ,DSYGVX )dsygvx_,(f2py_init_func)f2py_rout__flapack_dsygvx_lwork,doc_f2py_rout__flapack_dsygvx_lwork},
105037 {"chegvx",-1,{{-1}},0,(char *)F_FUNC(chegvx,CHEGVX)chegvx_,(f2py_init_func)f2py_rout__flapack_chegvx,doc_f2py_rout__flapack_chegvx},
105038 {"zhegvx",-1,{{-1}},0,(char *)F_FUNC(zhegvx,ZHEGVX)zhegvx_,(f2py_init_func)f2py_rout__flapack_zhegvx,doc_f2py_rout__flapack_zhegvx},
105039 {"chegvx_lwork",-1,{{-1}},0,(char *)F_FUNC(chegvx ,CHEGVX )chegvx_,(f2py_init_func)f2py_rout__flapack_chegvx_lwork,doc_f2py_rout__flapack_chegvx_lwork},
105040 {"zhegvx_lwork",-1,{{-1}},0,(char *)F_FUNC(zhegvx ,ZHEGVX )zhegvx_,(f2py_init_func)f2py_rout__flapack_zhegvx_lwork,doc_f2py_rout__flapack_zhegvx_lwork},
105041 {"ssyequb",-1,{{-1}},0,(char *)F_FUNC(ssyequb,SSYEQUB)ssyequb_,(f2py_init_func)f2py_rout__flapack_ssyequb,doc_f2py_rout__flapack_ssyequb},
105042 {"dsyequb",-1,{{-1}},0,(char *)F_FUNC(dsyequb,DSYEQUB)dsyequb_,(f2py_init_func)f2py_rout__flapack_dsyequb,doc_f2py_rout__flapack_dsyequb},
105043 {"csyequb",-1,{{-1}},0,(char *)F_FUNC(csyequb,CSYEQUB)csyequb_,(f2py_init_func)f2py_rout__flapack_csyequb,doc_f2py_rout__flapack_csyequb},
105044 {"zsyequb",-1,{{-1}},0,(char *)F_FUNC(zsyequb,ZSYEQUB)zsyequb_,(f2py_init_func)f2py_rout__flapack_zsyequb,doc_f2py_rout__flapack_zsyequb},
105045 {"cheequb",-1,{{-1}},0,(char *)F_FUNC(cheequb,CHEEQUB)cheequb_,(f2py_init_func)f2py_rout__flapack_cheequb,doc_f2py_rout__flapack_cheequb},
105046 {"zheequb",-1,{{-1}},0,(char *)F_FUNC(zheequb,ZHEEQUB)zheequb_,(f2py_init_func)f2py_rout__flapack_zheequb,doc_f2py_rout__flapack_zheequb},
105047 {"spstrf",-1,{{-1}},0,(char *)F_FUNC(spstrf,SPSTRF)spstrf_,(f2py_init_func)f2py_rout__flapack_spstrf,doc_f2py_rout__flapack_spstrf},
105048 {"dpstrf",-1,{{-1}},0,(char *)F_FUNC(dpstrf,DPSTRF)dpstrf_,(f2py_init_func)f2py_rout__flapack_dpstrf,doc_f2py_rout__flapack_dpstrf},
105049 {"cpstrf",-1,{{-1}},0,(char *)F_FUNC(cpstrf,CPSTRF)cpstrf_,(f2py_init_func)f2py_rout__flapack_cpstrf,doc_f2py_rout__flapack_cpstrf},
105050 {"zpstrf",-1,{{-1}},0,(char *)F_FUNC(zpstrf,ZPSTRF)zpstrf_,(f2py_init_func)f2py_rout__flapack_zpstrf,doc_f2py_rout__flapack_zpstrf},
105051 {"spstf2",-1,{{-1}},0,(char *)F_FUNC(spstf2,SPSTF2)spstf2_,(f2py_init_func)f2py_rout__flapack_spstf2,doc_f2py_rout__flapack_spstf2},
105052 {"dpstf2",-1,{{-1}},0,(char *)F_FUNC(dpstf2,DPSTF2)dpstf2_,(f2py_init_func)f2py_rout__flapack_dpstf2,doc_f2py_rout__flapack_dpstf2},
105053 {"cpstf2",-1,{{-1}},0,(char *)F_FUNC(cpstf2,CPSTF2)cpstf2_,(f2py_init_func)f2py_rout__flapack_cpstf2,doc_f2py_rout__flapack_cpstf2},
105054 {"zpstf2",-1,{{-1}},0,(char *)F_FUNC(zpstf2,ZPSTF2)zpstf2_,(f2py_init_func)f2py_rout__flapack_zpstf2,doc_f2py_rout__flapack_zpstf2},
105055 {"sposv",-1,{{-1}},0,(char *)F_FUNC(sposv,SPOSV)sposv_,(f2py_init_func)f2py_rout__flapack_sposv,doc_f2py_rout__flapack_sposv},
105056 {"dposv",-1,{{-1}},0,(char *)F_FUNC(dposv,DPOSV)dposv_,(f2py_init_func)f2py_rout__flapack_dposv,doc_f2py_rout__flapack_dposv},
105057 {"cposv",-1,{{-1}},0,(char *)F_FUNC(cposv,CPOSV)cposv_,(f2py_init_func)f2py_rout__flapack_cposv,doc_f2py_rout__flapack_cposv},
105058 {"zposv",-1,{{-1}},0,(char *)F_FUNC(zposv,ZPOSV)zposv_,(f2py_init_func)f2py_rout__flapack_zposv,doc_f2py_rout__flapack_zposv},
105059 {"sposvx",-1,{{-1}},0,(char *)F_FUNC(sposvx,SPOSVX)sposvx_,(f2py_init_func)f2py_rout__flapack_sposvx,doc_f2py_rout__flapack_sposvx},
105060 {"dposvx",-1,{{-1}},0,(char *)F_FUNC(dposvx,DPOSVX)dposvx_,(f2py_init_func)f2py_rout__flapack_dposvx,doc_f2py_rout__flapack_dposvx},
105061 {"cposvx",-1,{{-1}},0,(char *)F_FUNC(cposvx,CPOSVX)cposvx_,(f2py_init_func)f2py_rout__flapack_cposvx,doc_f2py_rout__flapack_cposvx},
105062 {"zposvx",-1,{{-1}},0,(char *)F_FUNC(zposvx,ZPOSVX)zposvx_,(f2py_init_func)f2py_rout__flapack_zposvx,doc_f2py_rout__flapack_zposvx},
105063 {"spocon",-1,{{-1}},0,(char *)F_FUNC(spocon,SPOCON)spocon_,(f2py_init_func)f2py_rout__flapack_spocon,doc_f2py_rout__flapack_spocon},
105064 {"dpocon",-1,{{-1}},0,(char *)F_FUNC(dpocon,DPOCON)dpocon_,(f2py_init_func)f2py_rout__flapack_dpocon,doc_f2py_rout__flapack_dpocon},
105065 {"cpocon",-1,{{-1}},0,(char *)F_FUNC(cpocon,CPOCON)cpocon_,(f2py_init_func)f2py_rout__flapack_cpocon,doc_f2py_rout__flapack_cpocon},
105066 {"zpocon",-1,{{-1}},0,(char *)F_FUNC(zpocon,ZPOCON)zpocon_,(f2py_init_func)f2py_rout__flapack_zpocon,doc_f2py_rout__flapack_zpocon},
105067 {"spotrf",-1,{{-1}},0,(char *)F_FUNC(spotrf,SPOTRF)spotrf_,(f2py_init_func)f2py_rout__flapack_spotrf,doc_f2py_rout__flapack_spotrf},
105068 {"dpotrf",-1,{{-1}},0,(char *)F_FUNC(dpotrf,DPOTRF)dpotrf_,(f2py_init_func)f2py_rout__flapack_dpotrf,doc_f2py_rout__flapack_dpotrf},
105069 {"cpotrf",-1,{{-1}},0,(char *)F_FUNC(cpotrf,CPOTRF)cpotrf_,(f2py_init_func)f2py_rout__flapack_cpotrf,doc_f2py_rout__flapack_cpotrf},
105070 {"zpotrf",-1,{{-1}},0,(char *)F_FUNC(zpotrf,ZPOTRF)zpotrf_,(f2py_init_func)f2py_rout__flapack_zpotrf,doc_f2py_rout__flapack_zpotrf},
105071 {"spotrs",-1,{{-1}},0,(char *)F_FUNC(spotrs,SPOTRS)spotrs_,(f2py_init_func)f2py_rout__flapack_spotrs,doc_f2py_rout__flapack_spotrs},
105072 {"dpotrs",-1,{{-1}},0,(char *)F_FUNC(dpotrs,DPOTRS)dpotrs_,(f2py_init_func)f2py_rout__flapack_dpotrs,doc_f2py_rout__flapack_dpotrs},
105073 {"cpotrs",-1,{{-1}},0,(char *)F_FUNC(cpotrs,CPOTRS)cpotrs_,(f2py_init_func)f2py_rout__flapack_cpotrs,doc_f2py_rout__flapack_cpotrs},
105074 {"zpotrs",-1,{{-1}},0,(char *)F_FUNC(zpotrs,ZPOTRS)zpotrs_,(f2py_init_func)f2py_rout__flapack_zpotrs,doc_f2py_rout__flapack_zpotrs},
105075 {"spotri",-1,{{-1}},0,(char *)F_FUNC(spotri,SPOTRI)spotri_,(f2py_init_func)f2py_rout__flapack_spotri,doc_f2py_rout__flapack_spotri},
105076 {"dpotri",-1,{{-1}},0,(char *)F_FUNC(dpotri,DPOTRI)dpotri_,(f2py_init_func)f2py_rout__flapack_dpotri,doc_f2py_rout__flapack_dpotri},
105077 {"cpotri",-1,{{-1}},0,(char *)F_FUNC(cpotri,CPOTRI)cpotri_,(f2py_init_func)f2py_rout__flapack_cpotri,doc_f2py_rout__flapack_cpotri},
105078 {"zpotri",-1,{{-1}},0,(char *)F_FUNC(zpotri,ZPOTRI)zpotri_,(f2py_init_func)f2py_rout__flapack_zpotri,doc_f2py_rout__flapack_zpotri},
105079 {"sptsv",-1,{{-1}},0,(char *)F_FUNC(sptsv,SPTSV)sptsv_,(f2py_init_func)f2py_rout__flapack_sptsv,doc_f2py_rout__flapack_sptsv},
105080 {"dptsv",-1,{{-1}},0,(char *)F_FUNC(dptsv,DPTSV)dptsv_,(f2py_init_func)f2py_rout__flapack_dptsv,doc_f2py_rout__flapack_dptsv},
105081 {"cptsv",-1,{{-1}},0,(char *)F_FUNC(cptsv,CPTSV)cptsv_,(f2py_init_func)f2py_rout__flapack_cptsv,doc_f2py_rout__flapack_cptsv},
105082 {"zptsv",-1,{{-1}},0,(char *)F_FUNC(zptsv,ZPTSV)zptsv_,(f2py_init_func)f2py_rout__flapack_zptsv,doc_f2py_rout__flapack_zptsv},
105083 {"spttrf",-1,{{-1}},0,(char *)F_FUNC(spttrf,SPTTRF)spttrf_,(f2py_init_func)f2py_rout__flapack_spttrf,doc_f2py_rout__flapack_spttrf},
105084 {"dpttrf",-1,{{-1}},0,(char *)F_FUNC(dpttrf,DPTTRF)dpttrf_,(f2py_init_func)f2py_rout__flapack_dpttrf,doc_f2py_rout__flapack_dpttrf},
105085 {"cpttrf",-1,{{-1}},0,(char *)F_FUNC(cpttrf,CPTTRF)cpttrf_,(f2py_init_func)f2py_rout__flapack_cpttrf,doc_f2py_rout__flapack_cpttrf},
105086 {"zpttrf",-1,{{-1}},0,(char *)F_FUNC(zpttrf,ZPTTRF)zpttrf_,(f2py_init_func)f2py_rout__flapack_zpttrf,doc_f2py_rout__flapack_zpttrf},
105087 {"spttrs",-1,{{-1}},0,(char *)F_FUNC(spttrs,SPTTRS)spttrs_,(f2py_init_func)f2py_rout__flapack_spttrs,doc_f2py_rout__flapack_spttrs},
105088 {"dpttrs",-1,{{-1}},0,(char *)F_FUNC(dpttrs,DPTTRS)dpttrs_,(f2py_init_func)f2py_rout__flapack_dpttrs,doc_f2py_rout__flapack_dpttrs},
105089 {"cpttrs",-1,{{-1}},0,(char *)F_FUNC(cpttrs,CPTTRS)cpttrs_,(f2py_init_func)f2py_rout__flapack_cpttrs,doc_f2py_rout__flapack_cpttrs},
105090 {"zpttrs",-1,{{-1}},0,(char *)F_FUNC(zpttrs,ZPTTRS)zpttrs_,(f2py_init_func)f2py_rout__flapack_zpttrs,doc_f2py_rout__flapack_zpttrs},
105091 {"spteqr",-1,{{-1}},0,(char *)F_FUNC(spteqr,SPTEQR)spteqr_,(f2py_init_func)f2py_rout__flapack_spteqr,doc_f2py_rout__flapack_spteqr},
105092 {"dpteqr",-1,{{-1}},0,(char *)F_FUNC(dpteqr,DPTEQR)dpteqr_,(f2py_init_func)f2py_rout__flapack_dpteqr,doc_f2py_rout__flapack_dpteqr},
105093 {"cpteqr",-1,{{-1}},0,(char *)F_FUNC(cpteqr,CPTEQR)cpteqr_,(f2py_init_func)f2py_rout__flapack_cpteqr,doc_f2py_rout__flapack_cpteqr},
105094 {"zpteqr",-1,{{-1}},0,(char *)F_FUNC(zpteqr,ZPTEQR)zpteqr_,(f2py_init_func)f2py_rout__flapack_zpteqr,doc_f2py_rout__flapack_zpteqr},
105095 {"sptsvx",-1,{{-1}},0,(char *)F_FUNC(sptsvx,SPTSVX)sptsvx_,(f2py_init_func)f2py_rout__flapack_sptsvx,doc_f2py_rout__flapack_sptsvx},
105096 {"dptsvx",-1,{{-1}},0,(char *)F_FUNC(dptsvx,DPTSVX)dptsvx_,(f2py_init_func)f2py_rout__flapack_dptsvx,doc_f2py_rout__flapack_dptsvx},
105097 {"cptsvx",-1,{{-1}},0,(char *)F_FUNC(cptsvx,CPTSVX)cptsvx_,(f2py_init_func)f2py_rout__flapack_cptsvx,doc_f2py_rout__flapack_cptsvx},
105098 {"zptsvx",-1,{{-1}},0,(char *)F_FUNC(zptsvx,ZPTSVX)zptsvx_,(f2py_init_func)f2py_rout__flapack_zptsvx,doc_f2py_rout__flapack_zptsvx},
105099 {"sgejsv",-1,{{-1}},0,(char *)F_FUNC(sgejsv,SGEJSV)sgejsv_,(f2py_init_func)f2py_rout__flapack_sgejsv,doc_f2py_rout__flapack_sgejsv},
105100 {"dgejsv",-1,{{-1}},0,(char *)F_FUNC(dgejsv,DGEJSV)dgejsv_,(f2py_init_func)f2py_rout__flapack_dgejsv,doc_f2py_rout__flapack_dgejsv},
105101 {"stgexc",-1,{{-1}},0,(char *)F_FUNC(stgexc,STGEXC)stgexc_,(f2py_init_func)f2py_rout__flapack_stgexc,doc_f2py_rout__flapack_stgexc},
105102 {"dtgexc",-1,{{-1}},0,(char *)F_FUNC(dtgexc,DTGEXC)dtgexc_,(f2py_init_func)f2py_rout__flapack_dtgexc,doc_f2py_rout__flapack_dtgexc},
105103 {"ctgexc",-1,{{-1}},0,(char *)F_FUNC(ctgexc,CTGEXC)ctgexc_,(f2py_init_func)f2py_rout__flapack_ctgexc,doc_f2py_rout__flapack_ctgexc},
105104 {"ztgexc",-1,{{-1}},0,(char *)F_FUNC(ztgexc,ZTGEXC)ztgexc_,(f2py_init_func)f2py_rout__flapack_ztgexc,doc_f2py_rout__flapack_ztgexc},
105105 {"stgsen",-1,{{-1}},0,(char *)F_FUNC(stgsen,STGSEN)stgsen_,(f2py_init_func)f2py_rout__flapack_stgsen,doc_f2py_rout__flapack_stgsen},
105106 {"dtgsen",-1,{{-1}},0,(char *)F_FUNC(dtgsen,DTGSEN)dtgsen_,(f2py_init_func)f2py_rout__flapack_dtgsen,doc_f2py_rout__flapack_dtgsen},
105107 {"stgsen_lwork",-1,{{-1}},0,(char *)F_FUNC(stgsen ,STGSEN )stgsen_,(f2py_init_func)f2py_rout__flapack_stgsen_lwork,doc_f2py_rout__flapack_stgsen_lwork},
105108 {"dtgsen_lwork",-1,{{-1}},0,(char *)F_FUNC(dtgsen ,DTGSEN )dtgsen_,(f2py_init_func)f2py_rout__flapack_dtgsen_lwork,doc_f2py_rout__flapack_dtgsen_lwork},
105109 {"ctgsen",-1,{{-1}},0,(char *)F_FUNC(ctgsen,CTGSEN)ctgsen_,(f2py_init_func)f2py_rout__flapack_ctgsen,doc_f2py_rout__flapack_ctgsen},
105110 {"ztgsen",-1,{{-1}},0,(char *)F_FUNC(ztgsen,ZTGSEN)ztgsen_,(f2py_init_func)f2py_rout__flapack_ztgsen,doc_f2py_rout__flapack_ztgsen},
105111 {"ctgsen_lwork",-1,{{-1}},0,(char *)F_FUNC(ctgsen ,CTGSEN )ctgsen_,(f2py_init_func)f2py_rout__flapack_ctgsen_lwork,doc_f2py_rout__flapack_ctgsen_lwork},
105112 {"ztgsen_lwork",-1,{{-1}},0,(char *)F_FUNC(ztgsen ,ZTGSEN )ztgsen_,(f2py_init_func)f2py_rout__flapack_ztgsen_lwork,doc_f2py_rout__flapack_ztgsen_lwork},
105113 {"spbtrf",-1,{{-1}},0,(char *)F_FUNC(spbtrf,SPBTRF)spbtrf_,(f2py_init_func)f2py_rout__flapack_spbtrf,doc_f2py_rout__flapack_spbtrf},
105114 {"dpbtrf",-1,{{-1}},0,(char *)F_FUNC(dpbtrf,DPBTRF)dpbtrf_,(f2py_init_func)f2py_rout__flapack_dpbtrf,doc_f2py_rout__flapack_dpbtrf},
105115 {"cpbtrf",-1,{{-1}},0,(char *)F_FUNC(cpbtrf,CPBTRF)cpbtrf_,(f2py_init_func)f2py_rout__flapack_cpbtrf,doc_f2py_rout__flapack_cpbtrf},
105116 {"zpbtrf",-1,{{-1}},0,(char *)F_FUNC(zpbtrf,ZPBTRF)zpbtrf_,(f2py_init_func)f2py_rout__flapack_zpbtrf,doc_f2py_rout__flapack_zpbtrf},
105117 {"spbtrs",-1,{{-1}},0,(char *)F_FUNC(spbtrs,SPBTRS)spbtrs_,(f2py_init_func)f2py_rout__flapack_spbtrs,doc_f2py_rout__flapack_spbtrs},
105118 {"dpbtrs",-1,{{-1}},0,(char *)F_FUNC(dpbtrs,DPBTRS)dpbtrs_,(f2py_init_func)f2py_rout__flapack_dpbtrs,doc_f2py_rout__flapack_dpbtrs},
105119 {"cpbtrs",-1,{{-1}},0,(char *)F_FUNC(cpbtrs,CPBTRS)cpbtrs_,(f2py_init_func)f2py_rout__flapack_cpbtrs,doc_f2py_rout__flapack_cpbtrs},
105120 {"zpbtrs",-1,{{-1}},0,(char *)F_FUNC(zpbtrs,ZPBTRS)zpbtrs_,(f2py_init_func)f2py_rout__flapack_zpbtrs,doc_f2py_rout__flapack_zpbtrs},
105121 {"strtrs",-1,{{-1}},0,(char *)F_FUNC(strtrs,STRTRS)strtrs_,(f2py_init_func)f2py_rout__flapack_strtrs,doc_f2py_rout__flapack_strtrs},
105122 {"dtrtrs",-1,{{-1}},0,(char *)F_FUNC(dtrtrs,DTRTRS)dtrtrs_,(f2py_init_func)f2py_rout__flapack_dtrtrs,doc_f2py_rout__flapack_dtrtrs},
105123 {"ctrtrs",-1,{{-1}},0,(char *)F_FUNC(ctrtrs,CTRTRS)ctrtrs_,(f2py_init_func)f2py_rout__flapack_ctrtrs,doc_f2py_rout__flapack_ctrtrs},
105124 {"ztrtrs",-1,{{-1}},0,(char *)F_FUNC(ztrtrs,ZTRTRS)ztrtrs_,(f2py_init_func)f2py_rout__flapack_ztrtrs,doc_f2py_rout__flapack_ztrtrs},
105125 {"stbtrs",-1,{{-1}},0,(char *)F_FUNC(stbtrs,STBTRS)stbtrs_,(f2py_init_func)f2py_rout__flapack_stbtrs,doc_f2py_rout__flapack_stbtrs},
105126 {"dtbtrs",-1,{{-1}},0,(char *)F_FUNC(dtbtrs,DTBTRS)dtbtrs_,(f2py_init_func)f2py_rout__flapack_dtbtrs,doc_f2py_rout__flapack_dtbtrs},
105127 {"ctbtrs",-1,{{-1}},0,(char *)F_FUNC(ctbtrs,CTBTRS)ctbtrs_,(f2py_init_func)f2py_rout__flapack_ctbtrs,doc_f2py_rout__flapack_ctbtrs},
105128 {"ztbtrs",-1,{{-1}},0,(char *)F_FUNC(ztbtrs,ZTBTRS)ztbtrs_,(f2py_init_func)f2py_rout__flapack_ztbtrs,doc_f2py_rout__flapack_ztbtrs},
105129 {"spbsv",-1,{{-1}},0,(char *)F_FUNC(spbsv,SPBSV)spbsv_,(f2py_init_func)f2py_rout__flapack_spbsv,doc_f2py_rout__flapack_spbsv},
105130 {"dpbsv",-1,{{-1}},0,(char *)F_FUNC(dpbsv,DPBSV)dpbsv_,(f2py_init_func)f2py_rout__flapack_dpbsv,doc_f2py_rout__flapack_dpbsv},
105131 {"cpbsv",-1,{{-1}},0,(char *)F_FUNC(cpbsv,CPBSV)cpbsv_,(f2py_init_func)f2py_rout__flapack_cpbsv,doc_f2py_rout__flapack_cpbsv},
105132 {"zpbsv",-1,{{-1}},0,(char *)F_FUNC(zpbsv,ZPBSV)zpbsv_,(f2py_init_func)f2py_rout__flapack_zpbsv,doc_f2py_rout__flapack_zpbsv},
105133 {"sorcsd",-1,{{-1}},0,(char *)F_FUNC(sorcsd,SORCSD)sorcsd_,(f2py_init_func)f2py_rout__flapack_sorcsd,doc_f2py_rout__flapack_sorcsd},
105134 {"dorcsd",-1,{{-1}},0,(char *)F_FUNC(dorcsd,DORCSD)dorcsd_,(f2py_init_func)f2py_rout__flapack_dorcsd,doc_f2py_rout__flapack_dorcsd},
105135 {"sorcsd_lwork",-1,{{-1}},0,(char *)F_FUNC(sorcsd ,SORCSD )sorcsd_,(f2py_init_func)f2py_rout__flapack_sorcsd_lwork,doc_f2py_rout__flapack_sorcsd_lwork},
105136 {"dorcsd_lwork",-1,{{-1}},0,(char *)F_FUNC(dorcsd ,DORCSD )dorcsd_,(f2py_init_func)f2py_rout__flapack_dorcsd_lwork,doc_f2py_rout__flapack_dorcsd_lwork},
105137 {"cuncsd",-1,{{-1}},0,(char *)F_FUNC(cuncsd,CUNCSD)cuncsd_,(f2py_init_func)f2py_rout__flapack_cuncsd,doc_f2py_rout__flapack_cuncsd},
105138 {"zuncsd",-1,{{-1}},0,(char *)F_FUNC(zuncsd,ZUNCSD)zuncsd_,(f2py_init_func)f2py_rout__flapack_zuncsd,doc_f2py_rout__flapack_zuncsd},
105139 {"cuncsd_lwork",-1,{{-1}},0,(char *)F_FUNC(cuncsd ,CUNCSD )cuncsd_,(f2py_init_func)f2py_rout__flapack_cuncsd_lwork,doc_f2py_rout__flapack_cuncsd_lwork},
105140 {"zuncsd_lwork",-1,{{-1}},0,(char *)F_FUNC(zuncsd ,ZUNCSD )zuncsd_,(f2py_init_func)f2py_rout__flapack_zuncsd_lwork,doc_f2py_rout__flapack_zuncsd_lwork},
105141 {"sorghr",-1,{{-1}},0,(char *)F_FUNC(sorghr,SORGHR)sorghr_,(f2py_init_func)f2py_rout__flapack_sorghr,doc_f2py_rout__flapack_sorghr},
105142 {"dorghr",-1,{{-1}},0,(char *)F_FUNC(dorghr,DORGHR)dorghr_,(f2py_init_func)f2py_rout__flapack_dorghr,doc_f2py_rout__flapack_dorghr},
105143 {"sorghr_lwork",-1,{{-1}},0,(char *)F_FUNC(sorghr ,SORGHR )sorghr_,(f2py_init_func)f2py_rout__flapack_sorghr_lwork,doc_f2py_rout__flapack_sorghr_lwork},
105144 {"dorghr_lwork",-1,{{-1}},0,(char *)F_FUNC(dorghr ,DORGHR )dorghr_,(f2py_init_func)f2py_rout__flapack_dorghr_lwork,doc_f2py_rout__flapack_dorghr_lwork},
105145 {"cunghr",-1,{{-1}},0,(char *)F_FUNC(cunghr,CUNGHR)cunghr_,(f2py_init_func)f2py_rout__flapack_cunghr,doc_f2py_rout__flapack_cunghr},
105146 {"zunghr",-1,{{-1}},0,(char *)F_FUNC(zunghr,ZUNGHR)zunghr_,(f2py_init_func)f2py_rout__flapack_zunghr,doc_f2py_rout__flapack_zunghr},
105147 {"cunghr_lwork",-1,{{-1}},0,(char *)F_FUNC(cunghr ,CUNGHR )cunghr_,(f2py_init_func)f2py_rout__flapack_cunghr_lwork,doc_f2py_rout__flapack_cunghr_lwork},
105148 {"zunghr_lwork",-1,{{-1}},0,(char *)F_FUNC(zunghr ,ZUNGHR )zunghr_,(f2py_init_func)f2py_rout__flapack_zunghr_lwork,doc_f2py_rout__flapack_zunghr_lwork},
105149 {"sorgqr",-1,{{-1}},0,(char *)F_FUNC(sorgqr,SORGQR)sorgqr_,(f2py_init_func)f2py_rout__flapack_sorgqr,doc_f2py_rout__flapack_sorgqr},
105150 {"dorgqr",-1,{{-1}},0,(char *)F_FUNC(dorgqr,DORGQR)dorgqr_,(f2py_init_func)f2py_rout__flapack_dorgqr,doc_f2py_rout__flapack_dorgqr},
105151 {"cungqr",-1,{{-1}},0,(char *)F_FUNC(cungqr,CUNGQR)cungqr_,(f2py_init_func)f2py_rout__flapack_cungqr,doc_f2py_rout__flapack_cungqr},
105152 {"zungqr",-1,{{-1}},0,(char *)F_FUNC(zungqr,ZUNGQR)zungqr_,(f2py_init_func)f2py_rout__flapack_zungqr,doc_f2py_rout__flapack_zungqr},
105153 {"sormqr",-1,{{-1}},0,(char *)F_FUNC(sormqr,SORMQR)sormqr_,(f2py_init_func)f2py_rout__flapack_sormqr,doc_f2py_rout__flapack_sormqr},
105154 {"dormqr",-1,{{-1}},0,(char *)F_FUNC(dormqr,DORMQR)dormqr_,(f2py_init_func)f2py_rout__flapack_dormqr,doc_f2py_rout__flapack_dormqr},
105155 {"cunmqr",-1,{{-1}},0,(char *)F_FUNC(cunmqr,CUNMQR)cunmqr_,(f2py_init_func)f2py_rout__flapack_cunmqr,doc_f2py_rout__flapack_cunmqr},
105156 {"zunmqr",-1,{{-1}},0,(char *)F_FUNC(zunmqr,ZUNMQR)zunmqr_,(f2py_init_func)f2py_rout__flapack_zunmqr,doc_f2py_rout__flapack_zunmqr},
105157 {"sgeqrt",-1,{{-1}},0,(char *)F_FUNC(sgeqrt,SGEQRT)sgeqrt_,(f2py_init_func)f2py_rout__flapack_sgeqrt,doc_f2py_rout__flapack_sgeqrt},
105158 {"dgeqrt",-1,{{-1}},0,(char *)F_FUNC(dgeqrt,DGEQRT)dgeqrt_,(f2py_init_func)f2py_rout__flapack_dgeqrt,doc_f2py_rout__flapack_dgeqrt},
105159 {"cgeqrt",-1,{{-1}},0,(char *)F_FUNC(cgeqrt,CGEQRT)cgeqrt_,(f2py_init_func)f2py_rout__flapack_cgeqrt,doc_f2py_rout__flapack_cgeqrt},
105160 {"zgeqrt",-1,{{-1}},0,(char *)F_FUNC(zgeqrt,ZGEQRT)zgeqrt_,(f2py_init_func)f2py_rout__flapack_zgeqrt,doc_f2py_rout__flapack_zgeqrt},
105161 {"sgemqrt",-1,{{-1}},0,(char *)F_FUNC(sgemqrt,SGEMQRT)sgemqrt_,(f2py_init_func)f2py_rout__flapack_sgemqrt,doc_f2py_rout__flapack_sgemqrt},
105162 {"dgemqrt",-1,{{-1}},0,(char *)F_FUNC(dgemqrt,DGEMQRT)dgemqrt_,(f2py_init_func)f2py_rout__flapack_dgemqrt,doc_f2py_rout__flapack_dgemqrt},
105163 {"cgemqrt",-1,{{-1}},0,(char *)F_FUNC(cgemqrt,CGEMQRT)cgemqrt_,(f2py_init_func)f2py_rout__flapack_cgemqrt,doc_f2py_rout__flapack_cgemqrt},
105164 {"zgemqrt",-1,{{-1}},0,(char *)F_FUNC(zgemqrt,ZGEMQRT)zgemqrt_,(f2py_init_func)f2py_rout__flapack_zgemqrt,doc_f2py_rout__flapack_zgemqrt},
105165 {"stpqrt",-1,{{-1}},0,(char *)F_FUNC(stpqrt,STPQRT)stpqrt_,(f2py_init_func)f2py_rout__flapack_stpqrt,doc_f2py_rout__flapack_stpqrt},
105166 {"dtpqrt",-1,{{-1}},0,(char *)F_FUNC(dtpqrt,DTPQRT)dtpqrt_,(f2py_init_func)f2py_rout__flapack_dtpqrt,doc_f2py_rout__flapack_dtpqrt},
105167 {"ctpqrt",-1,{{-1}},0,(char *)F_FUNC(ctpqrt,CTPQRT)ctpqrt_,(f2py_init_func)f2py_rout__flapack_ctpqrt,doc_f2py_rout__flapack_ctpqrt},
105168 {"ztpqrt",-1,{{-1}},0,(char *)F_FUNC(ztpqrt,ZTPQRT)ztpqrt_,(f2py_init_func)f2py_rout__flapack_ztpqrt,doc_f2py_rout__flapack_ztpqrt},
105169 {"stpmqrt",-1,{{-1}},0,(char *)F_FUNC(stpmqrt,STPMQRT)stpmqrt_,(f2py_init_func)f2py_rout__flapack_stpmqrt,doc_f2py_rout__flapack_stpmqrt},
105170 {"dtpmqrt",-1,{{-1}},0,(char *)F_FUNC(dtpmqrt,DTPMQRT)dtpmqrt_,(f2py_init_func)f2py_rout__flapack_dtpmqrt,doc_f2py_rout__flapack_dtpmqrt},
105171 {"ctpmqrt",-1,{{-1}},0,(char *)F_FUNC(ctpmqrt,CTPMQRT)ctpmqrt_,(f2py_init_func)f2py_rout__flapack_ctpmqrt,doc_f2py_rout__flapack_ctpmqrt},
105172 {"ztpmqrt",-1,{{-1}},0,(char *)F_FUNC(ztpmqrt,ZTPMQRT)ztpmqrt_,(f2py_init_func)f2py_rout__flapack_ztpmqrt,doc_f2py_rout__flapack_ztpmqrt},
105173 {"sormrz",-1,{{-1}},0,(char *)F_FUNC(sormrz,SORMRZ)sormrz_,(f2py_init_func)f2py_rout__flapack_sormrz,doc_f2py_rout__flapack_sormrz},
105174 {"dormrz",-1,{{-1}},0,(char *)F_FUNC(dormrz,DORMRZ)dormrz_,(f2py_init_func)f2py_rout__flapack_dormrz,doc_f2py_rout__flapack_dormrz},
105175 {"cunmrz",-1,{{-1}},0,(char *)F_FUNC(cunmrz,CUNMRZ)cunmrz_,(f2py_init_func)f2py_rout__flapack_cunmrz,doc_f2py_rout__flapack_cunmrz},
105176 {"zunmrz",-1,{{-1}},0,(char *)F_FUNC(zunmrz,ZUNMRZ)zunmrz_,(f2py_init_func)f2py_rout__flapack_zunmrz,doc_f2py_rout__flapack_zunmrz},
105177 {"sormrz_lwork",-1,{{-1}},0,(char *)F_FUNC(sormrz ,SORMRZ )sormrz_,(f2py_init_func)f2py_rout__flapack_sormrz_lwork,doc_f2py_rout__flapack_sormrz_lwork},
105178 {"dormrz_lwork",-1,{{-1}},0,(char *)F_FUNC(dormrz ,DORMRZ )dormrz_,(f2py_init_func)f2py_rout__flapack_dormrz_lwork,doc_f2py_rout__flapack_dormrz_lwork},
105179 {"cunmrz_lwork",-1,{{-1}},0,(char *)F_FUNC(cunmrz ,CUNMRZ )cunmrz_,(f2py_init_func)f2py_rout__flapack_cunmrz_lwork,doc_f2py_rout__flapack_cunmrz_lwork},
105180 {"zunmrz_lwork",-1,{{-1}},0,(char *)F_FUNC(zunmrz ,ZUNMRZ )zunmrz_,(f2py_init_func)f2py_rout__flapack_zunmrz_lwork,doc_f2py_rout__flapack_zunmrz_lwork},
105181 {"sorgrq",-1,{{-1}},0,(char *)F_FUNC(sorgrq,SORGRQ)sorgrq_,(f2py_init_func)f2py_rout__flapack_sorgrq,doc_f2py_rout__flapack_sorgrq},
105182 {"dorgrq",-1,{{-1}},0,(char *)F_FUNC(dorgrq,DORGRQ)dorgrq_,(f2py_init_func)f2py_rout__flapack_dorgrq,doc_f2py_rout__flapack_dorgrq},
105183 {"cungrq",-1,{{-1}},0,(char *)F_FUNC(cungrq,CUNGRQ)cungrq_,(f2py_init_func)f2py_rout__flapack_cungrq,doc_f2py_rout__flapack_cungrq},
105184 {"zungrq",-1,{{-1}},0,(char *)F_FUNC(zungrq,ZUNGRQ)zungrq_,(f2py_init_func)f2py_rout__flapack_zungrq,doc_f2py_rout__flapack_zungrq},
105185 {"strtri",-1,{{-1}},0,(char *)F_FUNC(strtri,STRTRI)strtri_,(f2py_init_func)f2py_rout__flapack_strtri,doc_f2py_rout__flapack_strtri},
105186 {"dtrtri",-1,{{-1}},0,(char *)F_FUNC(dtrtri,DTRTRI)dtrtri_,(f2py_init_func)f2py_rout__flapack_dtrtri,doc_f2py_rout__flapack_dtrtri},
105187 {"ctrtri",-1,{{-1}},0,(char *)F_FUNC(ctrtri,CTRTRI)ctrtri_,(f2py_init_func)f2py_rout__flapack_ctrtri,doc_f2py_rout__flapack_ctrtri},
105188 {"ztrtri",-1,{{-1}},0,(char *)F_FUNC(ztrtri,ZTRTRI)ztrtri_,(f2py_init_func)f2py_rout__flapack_ztrtri,doc_f2py_rout__flapack_ztrtri},
105189 {"strsyl",-1,{{-1}},0,(char *)F_FUNC(strsyl,STRSYL)strsyl_,(f2py_init_func)f2py_rout__flapack_strsyl,doc_f2py_rout__flapack_strsyl},
105190 {"dtrsyl",-1,{{-1}},0,(char *)F_FUNC(dtrsyl,DTRSYL)dtrsyl_,(f2py_init_func)f2py_rout__flapack_dtrsyl,doc_f2py_rout__flapack_dtrsyl},
105191 {"ctrsyl",-1,{{-1}},0,(char *)F_FUNC(ctrsyl,CTRSYL)ctrsyl_,(f2py_init_func)f2py_rout__flapack_ctrsyl,doc_f2py_rout__flapack_ctrsyl},
105192 {"ztrsyl",-1,{{-1}},0,(char *)F_FUNC(ztrsyl,ZTRSYL)ztrsyl_,(f2py_init_func)f2py_rout__flapack_ztrsyl,doc_f2py_rout__flapack_ztrsyl},
105193 {"chbevd",-1,{{-1}},0,(char *)F_FUNC(chbevd,CHBEVD)chbevd_,(f2py_init_func)f2py_rout__flapack_chbevd,doc_f2py_rout__flapack_chbevd},
105194 {"zhbevd",-1,{{-1}},0,(char *)F_FUNC(zhbevd,ZHBEVD)zhbevd_,(f2py_init_func)f2py_rout__flapack_zhbevd,doc_f2py_rout__flapack_zhbevd},
105195 {"chbevx",-1,{{-1}},0,(char *)F_FUNC(chbevx,CHBEVX)chbevx_,(f2py_init_func)f2py_rout__flapack_chbevx,doc_f2py_rout__flapack_chbevx},
105196 {"zhbevx",-1,{{-1}},0,(char *)F_FUNC(zhbevx,ZHBEVX)zhbevx_,(f2py_init_func)f2py_rout__flapack_zhbevx,doc_f2py_rout__flapack_zhbevx},
105197 {"sgglse",-1,{{-1}},0,(char *)F_FUNC(sgglse,SGGLSE)sgglse_,(f2py_init_func)f2py_rout__flapack_sgglse,doc_f2py_rout__flapack_sgglse},
105198 {"dgglse",-1,{{-1}},0,(char *)F_FUNC(dgglse,DGGLSE)dgglse_,(f2py_init_func)f2py_rout__flapack_dgglse,doc_f2py_rout__flapack_dgglse},
105199 {"cgglse",-1,{{-1}},0,(char *)F_FUNC(cgglse,CGGLSE)cgglse_,(f2py_init_func)f2py_rout__flapack_cgglse,doc_f2py_rout__flapack_cgglse},
105200 {"zgglse",-1,{{-1}},0,(char *)F_FUNC(zgglse,ZGGLSE)zgglse_,(f2py_init_func)f2py_rout__flapack_zgglse,doc_f2py_rout__flapack_zgglse},
105201 {"sgglse_lwork",-1,{{-1}},0,(char *)F_FUNC(sgglse ,SGGLSE )sgglse_,(f2py_init_func)f2py_rout__flapack_sgglse_lwork,doc_f2py_rout__flapack_sgglse_lwork},
105202 {"dgglse_lwork",-1,{{-1}},0,(char *)F_FUNC(dgglse ,DGGLSE )dgglse_,(f2py_init_func)f2py_rout__flapack_dgglse_lwork,doc_f2py_rout__flapack_dgglse_lwork},
105203 {"cgglse_lwork",-1,{{-1}},0,(char *)F_FUNC(cgglse ,CGGLSE )cgglse_,(f2py_init_func)f2py_rout__flapack_cgglse_lwork,doc_f2py_rout__flapack_cgglse_lwork},
105204 {"zgglse_lwork",-1,{{-1}},0,(char *)F_FUNC(zgglse ,ZGGLSE )zgglse_,(f2py_init_func)f2py_rout__flapack_zgglse_lwork,doc_f2py_rout__flapack_zgglse_lwork},
105205 {"sppcon",-1,{{-1}},0,(char *)F_FUNC(sppcon,SPPCON)sppcon_,(f2py_init_func)f2py_rout__flapack_sppcon,doc_f2py_rout__flapack_sppcon},
105206 {"dppcon",-1,{{-1}},0,(char *)F_FUNC(dppcon,DPPCON)dppcon_,(f2py_init_func)f2py_rout__flapack_dppcon,doc_f2py_rout__flapack_dppcon},
105207 {"cppcon",-1,{{-1}},0,(char *)F_FUNC(cppcon,CPPCON)cppcon_,(f2py_init_func)f2py_rout__flapack_cppcon,doc_f2py_rout__flapack_cppcon},
105208 {"zppcon",-1,{{-1}},0,(char *)F_FUNC(zppcon,ZPPCON)zppcon_,(f2py_init_func)f2py_rout__flapack_zppcon,doc_f2py_rout__flapack_zppcon},
105209 {"sppsv",-1,{{-1}},0,(char *)F_FUNC(sppsv,SPPSV)sppsv_,(f2py_init_func)f2py_rout__flapack_sppsv,doc_f2py_rout__flapack_sppsv},
105210 {"dppsv",-1,{{-1}},0,(char *)F_FUNC(dppsv,DPPSV)dppsv_,(f2py_init_func)f2py_rout__flapack_dppsv,doc_f2py_rout__flapack_dppsv},
105211 {"cppsv",-1,{{-1}},0,(char *)F_FUNC(cppsv,CPPSV)cppsv_,(f2py_init_func)f2py_rout__flapack_cppsv,doc_f2py_rout__flapack_cppsv},
105212 {"zppsv",-1,{{-1}},0,(char *)F_FUNC(zppsv,ZPPSV)zppsv_,(f2py_init_func)f2py_rout__flapack_zppsv,doc_f2py_rout__flapack_zppsv},
105213 {"spptrf",-1,{{-1}},0,(char *)F_FUNC(spptrf,SPPTRF)spptrf_,(f2py_init_func)f2py_rout__flapack_spptrf,doc_f2py_rout__flapack_spptrf},
105214 {"dpptrf",-1,{{-1}},0,(char *)F_FUNC(dpptrf,DPPTRF)dpptrf_,(f2py_init_func)f2py_rout__flapack_dpptrf,doc_f2py_rout__flapack_dpptrf},
105215 {"cpptrf",-1,{{-1}},0,(char *)F_FUNC(cpptrf,CPPTRF)cpptrf_,(f2py_init_func)f2py_rout__flapack_cpptrf,doc_f2py_rout__flapack_cpptrf},
105216 {"zpptrf",-1,{{-1}},0,(char *)F_FUNC(zpptrf,ZPPTRF)zpptrf_,(f2py_init_func)f2py_rout__flapack_zpptrf,doc_f2py_rout__flapack_zpptrf},
105217 {"spptri",-1,{{-1}},0,(char *)F_FUNC(spptri,SPPTRI)spptri_,(f2py_init_func)f2py_rout__flapack_spptri,doc_f2py_rout__flapack_spptri},
105218 {"dpptri",-1,{{-1}},0,(char *)F_FUNC(dpptri,DPPTRI)dpptri_,(f2py_init_func)f2py_rout__flapack_dpptri,doc_f2py_rout__flapack_dpptri},
105219 {"cpptri",-1,{{-1}},0,(char *)F_FUNC(cpptri,CPPTRI)cpptri_,(f2py_init_func)f2py_rout__flapack_cpptri,doc_f2py_rout__flapack_cpptri},
105220 {"zpptri",-1,{{-1}},0,(char *)F_FUNC(zpptri,ZPPTRI)zpptri_,(f2py_init_func)f2py_rout__flapack_zpptri,doc_f2py_rout__flapack_zpptri},
105221 {"spptrs",-1,{{-1}},0,(char *)F_FUNC(spptrs,SPPTRS)spptrs_,(f2py_init_func)f2py_rout__flapack_spptrs,doc_f2py_rout__flapack_spptrs},
105222 {"dpptrs",-1,{{-1}},0,(char *)F_FUNC(dpptrs,DPPTRS)dpptrs_,(f2py_init_func)f2py_rout__flapack_dpptrs,doc_f2py_rout__flapack_dpptrs},
105223 {"cpptrs",-1,{{-1}},0,(char *)F_FUNC(cpptrs,CPPTRS)cpptrs_,(f2py_init_func)f2py_rout__flapack_cpptrs,doc_f2py_rout__flapack_cpptrs},
105224 {"zpptrs",-1,{{-1}},0,(char *)F_FUNC(zpptrs,ZPPTRS)zpptrs_,(f2py_init_func)f2py_rout__flapack_zpptrs,doc_f2py_rout__flapack_zpptrs},
105225 {"ssbev",-1,{{-1}},0,(char *)F_FUNC(ssbev,SSBEV)ssbev_,(f2py_init_func)f2py_rout__flapack_ssbev,doc_f2py_rout__flapack_ssbev},
105226 {"dsbev",-1,{{-1}},0,(char *)F_FUNC(dsbev,DSBEV)dsbev_,(f2py_init_func)f2py_rout__flapack_dsbev,doc_f2py_rout__flapack_dsbev},
105227 {"ssbevd",-1,{{-1}},0,(char *)F_FUNC(ssbevd,SSBEVD)ssbevd_,(f2py_init_func)f2py_rout__flapack_ssbevd,doc_f2py_rout__flapack_ssbevd},
105228 {"dsbevd",-1,{{-1}},0,(char *)F_FUNC(dsbevd,DSBEVD)dsbevd_,(f2py_init_func)f2py_rout__flapack_dsbevd,doc_f2py_rout__flapack_dsbevd},
105229 {"ssbevx",-1,{{-1}},0,(char *)F_FUNC(ssbevx,SSBEVX)ssbevx_,(f2py_init_func)f2py_rout__flapack_ssbevx,doc_f2py_rout__flapack_ssbevx},
105230 {"dsbevx",-1,{{-1}},0,(char *)F_FUNC(dsbevx,DSBEVX)dsbevx_,(f2py_init_func)f2py_rout__flapack_dsbevx,doc_f2py_rout__flapack_dsbevx},
105231 {"sstebz",-1,{{-1}},0,(char *)F_FUNC(sstebz,SSTEBZ)sstebz_,(f2py_init_func)f2py_rout__flapack_sstebz,doc_f2py_rout__flapack_sstebz},
105232 {"dstebz",-1,{{-1}},0,(char *)F_FUNC(dstebz,DSTEBZ)dstebz_,(f2py_init_func)f2py_rout__flapack_dstebz,doc_f2py_rout__flapack_dstebz},
105233 {"ssterf",-1,{{-1}},0,(char *)F_FUNC(ssterf,SSTERF)ssterf_,(f2py_init_func)f2py_rout__flapack_ssterf,doc_f2py_rout__flapack_ssterf},
105234 {"dsterf",-1,{{-1}},0,(char *)F_FUNC(dsterf,DSTERF)dsterf_,(f2py_init_func)f2py_rout__flapack_dsterf,doc_f2py_rout__flapack_dsterf},
105235 {"sstein",-1,{{-1}},0,(char *)F_FUNC(sstein,SSTEIN)sstein_,(f2py_init_func)f2py_rout__flapack_sstein,doc_f2py_rout__flapack_sstein},
105236 {"dstein",-1,{{-1}},0,(char *)F_FUNC(dstein,DSTEIN)dstein_,(f2py_init_func)f2py_rout__flapack_dstein,doc_f2py_rout__flapack_dstein},
105237 {"sstemr",-1,{{-1}},0,(char *)F_FUNC(sstemr,SSTEMR)sstemr_,(f2py_init_func)f2py_rout__flapack_sstemr,doc_f2py_rout__flapack_sstemr},
105238 {"dstemr",-1,{{-1}},0,(char *)F_FUNC(dstemr,DSTEMR)dstemr_,(f2py_init_func)f2py_rout__flapack_dstemr,doc_f2py_rout__flapack_dstemr},
105239 {"sstemr_lwork",-1,{{-1}},0,(char *)F_FUNC(cstemr ,CSTEMR )cstemr_,(f2py_init_func)f2py_rout__flapack_sstemr_lwork,doc_f2py_rout__flapack_sstemr_lwork},
105240 {"dstemr_lwork",-1,{{-1}},0,(char *)F_FUNC(zstemr ,ZSTEMR )zstemr_,(f2py_init_func)f2py_rout__flapack_dstemr_lwork,doc_f2py_rout__flapack_dstemr_lwork},
105241 {"sstev",-1,{{-1}},0,(char *)F_FUNC(sstev,SSTEV)sstev_,(f2py_init_func)f2py_rout__flapack_sstev,doc_f2py_rout__flapack_sstev},
105242 {"dstev",-1,{{-1}},0,(char *)F_FUNC(dstev,DSTEV)dstev_,(f2py_init_func)f2py_rout__flapack_dstev,doc_f2py_rout__flapack_dstev},
105243 {"ssfrk",-1,{{-1}},0,(char *)F_FUNC(ssfrk,SSFRK)ssfrk_,(f2py_init_func)f2py_rout__flapack_ssfrk,doc_f2py_rout__flapack_ssfrk},
105244 {"dsfrk",-1,{{-1}},0,(char *)F_FUNC(dsfrk,DSFRK)dsfrk_,(f2py_init_func)f2py_rout__flapack_dsfrk,doc_f2py_rout__flapack_dsfrk},
105245 {"chfrk",-1,{{-1}},0,(char *)F_FUNC(chfrk,CHFRK)chfrk_,(f2py_init_func)f2py_rout__flapack_chfrk,doc_f2py_rout__flapack_chfrk},
105246 {"zhfrk",-1,{{-1}},0,(char *)F_FUNC(zhfrk,ZHFRK)zhfrk_,(f2py_init_func)f2py_rout__flapack_zhfrk,doc_f2py_rout__flapack_zhfrk},
105247 {"stpttf",-1,{{-1}},0,(char *)F_FUNC(stpttf,STPTTF)stpttf_,(f2py_init_func)f2py_rout__flapack_stpttf,doc_f2py_rout__flapack_stpttf},
105248 {"dtpttf",-1,{{-1}},0,(char *)F_FUNC(dtpttf,DTPTTF)dtpttf_,(f2py_init_func)f2py_rout__flapack_dtpttf,doc_f2py_rout__flapack_dtpttf},
105249 {"ctpttf",-1,{{-1}},0,(char *)F_FUNC(ctpttf,CTPTTF)ctpttf_,(f2py_init_func)f2py_rout__flapack_ctpttf,doc_f2py_rout__flapack_ctpttf},
105250 {"ztpttf",-1,{{-1}},0,(char *)F_FUNC(ztpttf,ZTPTTF)ztpttf_,(f2py_init_func)f2py_rout__flapack_ztpttf,doc_f2py_rout__flapack_ztpttf},
105251 {"stpttr",-1,{{-1}},0,(char *)F_FUNC(stpttr,STPTTR)stpttr_,(f2py_init_func)f2py_rout__flapack_stpttr,doc_f2py_rout__flapack_stpttr},
105252 {"dtpttr",-1,{{-1}},0,(char *)F_FUNC(dtpttr,DTPTTR)dtpttr_,(f2py_init_func)f2py_rout__flapack_dtpttr,doc_f2py_rout__flapack_dtpttr},
105253 {"ctpttr",-1,{{-1}},0,(char *)F_FUNC(ctpttr,CTPTTR)ctpttr_,(f2py_init_func)f2py_rout__flapack_ctpttr,doc_f2py_rout__flapack_ctpttr},
105254 {"ztpttr",-1,{{-1}},0,(char *)F_FUNC(ztpttr,ZTPTTR)ztpttr_,(f2py_init_func)f2py_rout__flapack_ztpttr,doc_f2py_rout__flapack_ztpttr},
105255 {"stfttp",-1,{{-1}},0,(char *)F_FUNC(stfttp,STFTTP)stfttp_,(f2py_init_func)f2py_rout__flapack_stfttp,doc_f2py_rout__flapack_stfttp},
105256 {"dtfttp",-1,{{-1}},0,(char *)F_FUNC(dtfttp,DTFTTP)dtfttp_,(f2py_init_func)f2py_rout__flapack_dtfttp,doc_f2py_rout__flapack_dtfttp},
105257 {"ctfttp",-1,{{-1}},0,(char *)F_FUNC(ctfttp,CTFTTP)ctfttp_,(f2py_init_func)f2py_rout__flapack_ctfttp,doc_f2py_rout__flapack_ctfttp},
105258 {"ztfttp",-1,{{-1}},0,(char *)F_FUNC(ztfttp,ZTFTTP)ztfttp_,(f2py_init_func)f2py_rout__flapack_ztfttp,doc_f2py_rout__flapack_ztfttp},
105259 {"stfttr",-1,{{-1}},0,(char *)F_FUNC(stfttr,STFTTR)stfttr_,(f2py_init_func)f2py_rout__flapack_stfttr,doc_f2py_rout__flapack_stfttr},
105260 {"dtfttr",-1,{{-1}},0,(char *)F_FUNC(dtfttr,DTFTTR)dtfttr_,(f2py_init_func)f2py_rout__flapack_dtfttr,doc_f2py_rout__flapack_dtfttr},
105261 {"ctfttr",-1,{{-1}},0,(char *)F_FUNC(ctfttr,CTFTTR)ctfttr_,(f2py_init_func)f2py_rout__flapack_ctfttr,doc_f2py_rout__flapack_ctfttr},
105262 {"ztfttr",-1,{{-1}},0,(char *)F_FUNC(ztfttr,ZTFTTR)ztfttr_,(f2py_init_func)f2py_rout__flapack_ztfttr,doc_f2py_rout__flapack_ztfttr},
105263 {"strttf",-1,{{-1}},0,(char *)F_FUNC(strttf,STRTTF)strttf_,(f2py_init_func)f2py_rout__flapack_strttf,doc_f2py_rout__flapack_strttf},
105264 {"dtrttf",-1,{{-1}},0,(char *)F_FUNC(dtrttf,DTRTTF)dtrttf_,(f2py_init_func)f2py_rout__flapack_dtrttf,doc_f2py_rout__flapack_dtrttf},
105265 {"ctrttf",-1,{{-1}},0,(char *)F_FUNC(ctrttf,CTRTTF)ctrttf_,(f2py_init_func)f2py_rout__flapack_ctrttf,doc_f2py_rout__flapack_ctrttf},
105266 {"ztrttf",-1,{{-1}},0,(char *)F_FUNC(ztrttf,ZTRTTF)ztrttf_,(f2py_init_func)f2py_rout__flapack_ztrttf,doc_f2py_rout__flapack_ztrttf},
105267 {"strttp",-1,{{-1}},0,(char *)F_FUNC(strttp,STRTTP)strttp_,(f2py_init_func)f2py_rout__flapack_strttp,doc_f2py_rout__flapack_strttp},
105268 {"dtrttp",-1,{{-1}},0,(char *)F_FUNC(dtrttp,DTRTTP)dtrttp_,(f2py_init_func)f2py_rout__flapack_dtrttp,doc_f2py_rout__flapack_dtrttp},
105269 {"ctrttp",-1,{{-1}},0,(char *)F_FUNC(ctrttp,CTRTTP)ctrttp_,(f2py_init_func)f2py_rout__flapack_ctrttp,doc_f2py_rout__flapack_ctrttp},
105270 {"ztrttp",-1,{{-1}},0,(char *)F_FUNC(ztrttp,ZTRTTP)ztrttp_,(f2py_init_func)f2py_rout__flapack_ztrttp,doc_f2py_rout__flapack_ztrttp},
105271 {"stfsm",-1,{{-1}},0,(char *)F_FUNC(stfsm,STFSM)stfsm_,(f2py_init_func)f2py_rout__flapack_stfsm,doc_f2py_rout__flapack_stfsm},
105272 {"dtfsm",-1,{{-1}},0,(char *)F_FUNC(dtfsm,DTFSM)dtfsm_,(f2py_init_func)f2py_rout__flapack_dtfsm,doc_f2py_rout__flapack_dtfsm},
105273 {"ctfsm",-1,{{-1}},0,(char *)F_FUNC(ctfsm,CTFSM)ctfsm_,(f2py_init_func)f2py_rout__flapack_ctfsm,doc_f2py_rout__flapack_ctfsm},
105274 {"ztfsm",-1,{{-1}},0,(char *)F_FUNC(ztfsm,ZTFSM)ztfsm_,(f2py_init_func)f2py_rout__flapack_ztfsm,doc_f2py_rout__flapack_ztfsm},
105275 {"spftrf",-1,{{-1}},0,(char *)F_FUNC(spftrf,SPFTRF)spftrf_,(f2py_init_func)f2py_rout__flapack_spftrf,doc_f2py_rout__flapack_spftrf},
105276 {"dpftrf",-1,{{-1}},0,(char *)F_FUNC(dpftrf,DPFTRF)dpftrf_,(f2py_init_func)f2py_rout__flapack_dpftrf,doc_f2py_rout__flapack_dpftrf},
105277 {"cpftrf",-1,{{-1}},0,(char *)F_FUNC(cpftrf,CPFTRF)cpftrf_,(f2py_init_func)f2py_rout__flapack_cpftrf,doc_f2py_rout__flapack_cpftrf},
105278 {"zpftrf",-1,{{-1}},0,(char *)F_FUNC(zpftrf,ZPFTRF)zpftrf_,(f2py_init_func)f2py_rout__flapack_zpftrf,doc_f2py_rout__flapack_zpftrf},
105279 {"spftri",-1,{{-1}},0,(char *)F_FUNC(spftri,SPFTRI)spftri_,(f2py_init_func)f2py_rout__flapack_spftri,doc_f2py_rout__flapack_spftri},
105280 {"dpftri",-1,{{-1}},0,(char *)F_FUNC(dpftri,DPFTRI)dpftri_,(f2py_init_func)f2py_rout__flapack_dpftri,doc_f2py_rout__flapack_dpftri},
105281 {"cpftri",-1,{{-1}},0,(char *)F_FUNC(cpftri,CPFTRI)cpftri_,(f2py_init_func)f2py_rout__flapack_cpftri,doc_f2py_rout__flapack_cpftri},
105282 {"zpftri",-1,{{-1}},0,(char *)F_FUNC(zpftri,ZPFTRI)zpftri_,(f2py_init_func)f2py_rout__flapack_zpftri,doc_f2py_rout__flapack_zpftri},
105283 {"spftrs",-1,{{-1}},0,(char *)F_FUNC(spftrs,SPFTRS)spftrs_,(f2py_init_func)f2py_rout__flapack_spftrs,doc_f2py_rout__flapack_spftrs},
105284 {"dpftrs",-1,{{-1}},0,(char *)F_FUNC(dpftrs,DPFTRS)dpftrs_,(f2py_init_func)f2py_rout__flapack_dpftrs,doc_f2py_rout__flapack_dpftrs},
105285 {"cpftrs",-1,{{-1}},0,(char *)F_FUNC(cpftrs,CPFTRS)cpftrs_,(f2py_init_func)f2py_rout__flapack_cpftrs,doc_f2py_rout__flapack_cpftrs},
105286 {"zpftrs",-1,{{-1}},0,(char *)F_FUNC(zpftrs,ZPFTRS)zpftrs_,(f2py_init_func)f2py_rout__flapack_zpftrs,doc_f2py_rout__flapack_zpftrs},
105287 {"stzrzf",-1,{{-1}},0,(char *)F_FUNC(stzrzf,STZRZF)stzrzf_,(f2py_init_func)f2py_rout__flapack_stzrzf,doc_f2py_rout__flapack_stzrzf},
105288 {"dtzrzf",-1,{{-1}},0,(char *)F_FUNC(dtzrzf,DTZRZF)dtzrzf_,(f2py_init_func)f2py_rout__flapack_dtzrzf,doc_f2py_rout__flapack_dtzrzf},
105289 {"ctzrzf",-1,{{-1}},0,(char *)F_FUNC(ctzrzf,CTZRZF)ctzrzf_,(f2py_init_func)f2py_rout__flapack_ctzrzf,doc_f2py_rout__flapack_ctzrzf},
105290 {"ztzrzf",-1,{{-1}},0,(char *)F_FUNC(ztzrzf,ZTZRZF)ztzrzf_,(f2py_init_func)f2py_rout__flapack_ztzrzf,doc_f2py_rout__flapack_ztzrzf},
105291 {"stzrzf_lwork",-1,{{-1}},0,(char *)F_FUNC(stzrzf ,STZRZF )stzrzf_,(f2py_init_func)f2py_rout__flapack_stzrzf_lwork,doc_f2py_rout__flapack_stzrzf_lwork},
105292 {"dtzrzf_lwork",-1,{{-1}},0,(char *)F_FUNC(dtzrzf ,DTZRZF )dtzrzf_,(f2py_init_func)f2py_rout__flapack_dtzrzf_lwork,doc_f2py_rout__flapack_dtzrzf_lwork},
105293 {"ctzrzf_lwork",-1,{{-1}},0,(char *)F_FUNC(ctzrzf ,CTZRZF )ctzrzf_,(f2py_init_func)f2py_rout__flapack_ctzrzf_lwork,doc_f2py_rout__flapack_ctzrzf_lwork},
105294 {"ztzrzf_lwork",-1,{{-1}},0,(char *)F_FUNC(ztzrzf ,ZTZRZF )ztzrzf_,(f2py_init_func)f2py_rout__flapack_ztzrzf_lwork,doc_f2py_rout__flapack_ztzrzf_lwork},
105295 {"slasd4",-1,{{-1}},0,(char *)F_FUNC(slasd4,SLASD4)slasd4_,(f2py_init_func)f2py_rout__flapack_slasd4,doc_f2py_rout__flapack_slasd4},
105296 {"dlasd4",-1,{{-1}},0,(char *)F_FUNC(dlasd4,DLASD4)dlasd4_,(f2py_init_func)f2py_rout__flapack_dlasd4,doc_f2py_rout__flapack_dlasd4},
105297 {"slauum",-1,{{-1}},0,(char *)F_FUNC(slauum,SLAUUM)slauum_,(f2py_init_func)f2py_rout__flapack_slauum,doc_f2py_rout__flapack_slauum},
105298 {"dlauum",-1,{{-1}},0,(char *)F_FUNC(dlauum,DLAUUM)dlauum_,(f2py_init_func)f2py_rout__flapack_dlauum,doc_f2py_rout__flapack_dlauum},
105299 {"clauum",-1,{{-1}},0,(char *)F_FUNC(clauum,CLAUUM)clauum_,(f2py_init_func)f2py_rout__flapack_clauum,doc_f2py_rout__flapack_clauum},
105300 {"zlauum",-1,{{-1}},0,(char *)F_FUNC(zlauum,ZLAUUM)zlauum_,(f2py_init_func)f2py_rout__flapack_zlauum,doc_f2py_rout__flapack_zlauum},
105301 {"slaswp",-1,{{-1}},0,(char *)F_FUNC(slaswp,SLASWP)slaswp_,(f2py_init_func)f2py_rout__flapack_slaswp,doc_f2py_rout__flapack_slaswp},
105302 {"dlaswp",-1,{{-1}},0,(char *)F_FUNC(dlaswp,DLASWP)dlaswp_,(f2py_init_func)f2py_rout__flapack_dlaswp,doc_f2py_rout__flapack_dlaswp},
105303 {"claswp",-1,{{-1}},0,(char *)F_FUNC(claswp,CLASWP)claswp_,(f2py_init_func)f2py_rout__flapack_claswp,doc_f2py_rout__flapack_claswp},
105304 {"zlaswp",-1,{{-1}},0,(char *)F_FUNC(zlaswp,ZLASWP)zlaswp_,(f2py_init_func)f2py_rout__flapack_zlaswp,doc_f2py_rout__flapack_zlaswp},
105305 {"dlamch",-1,{{-1}},0,(char *)F_WRAPPEDFUNC(dlamch,DLAMCH)f2pywrapdlamch_,(f2py_init_func)f2py_rout__flapack_dlamch,doc_f2py_rout__flapack_dlamch},
105306 {"slamch",-1,{{-1}},0,(char *)F_WRAPPEDFUNC(slamch,SLAMCH)f2pywrapslamch_,(f2py_init_func)f2py_rout__flapack_slamch,doc_f2py_rout__flapack_slamch},
105307 {"slange",-1,{{-1}},0,(char *)F_WRAPPEDFUNC(slange,SLANGE)f2pywrapslange_,(f2py_init_func)f2py_rout__flapack_slange,doc_f2py_rout__flapack_slange},
105308 {"dlange",-1,{{-1}},0,(char *)F_WRAPPEDFUNC(dlange,DLANGE)f2pywrapdlange_,(f2py_init_func)f2py_rout__flapack_dlange,doc_f2py_rout__flapack_dlange},
105309 {"clange",-1,{{-1}},0,(char *)F_WRAPPEDFUNC(clange,CLANGE)f2pywrapclange_,(f2py_init_func)f2py_rout__flapack_clange,doc_f2py_rout__flapack_clange},
105310 {"zlange",-1,{{-1}},0,(char *)F_WRAPPEDFUNC(zlange,ZLANGE)f2pywrapzlange_,(f2py_init_func)f2py_rout__flapack_zlange,doc_f2py_rout__flapack_zlange},
105311 {"slarfg",-1,{{-1}},0,(char *)F_FUNC(slarfg,SLARFG)slarfg_,(f2py_init_func)f2py_rout__flapack_slarfg,doc_f2py_rout__flapack_slarfg},
105312 {"dlarfg",-1,{{-1}},0,(char *)F_FUNC(dlarfg,DLARFG)dlarfg_,(f2py_init_func)f2py_rout__flapack_dlarfg,doc_f2py_rout__flapack_dlarfg},
105313 {"clarfg",-1,{{-1}},0,(char *)F_FUNC(clarfg,CLARFG)clarfg_,(f2py_init_func)f2py_rout__flapack_clarfg,doc_f2py_rout__flapack_clarfg},
105314 {"zlarfg",-1,{{-1}},0,(char *)F_FUNC(zlarfg,ZLARFG)zlarfg_,(f2py_init_func)f2py_rout__flapack_zlarfg,doc_f2py_rout__flapack_zlarfg},
105315 {"slarf",-1,{{-1}},0,(char *)F_FUNC(slarf,SLARF)slarf_,(f2py_init_func)f2py_rout__flapack_slarf,doc_f2py_rout__flapack_slarf},
105316 {"dlarf",-1,{{-1}},0,(char *)F_FUNC(dlarf,DLARF)dlarf_,(f2py_init_func)f2py_rout__flapack_dlarf,doc_f2py_rout__flapack_dlarf},
105317 {"clarf",-1,{{-1}},0,(char *)F_FUNC(clarf,CLARF)clarf_,(f2py_init_func)f2py_rout__flapack_clarf,doc_f2py_rout__flapack_clarf},
105318 {"zlarf",-1,{{-1}},0,(char *)F_FUNC(zlarf,ZLARF)zlarf_,(f2py_init_func)f2py_rout__flapack_zlarf,doc_f2py_rout__flapack_zlarf},
105319 {"slartg",-1,{{-1}},0,(char *)F_FUNC(slartg,SLARTG)slartg_,(f2py_init_func)f2py_rout__flapack_slartg,doc_f2py_rout__flapack_slartg},
105320 {"dlartg",-1,{{-1}},0,(char *)F_FUNC(dlartg,DLARTG)dlartg_,(f2py_init_func)f2py_rout__flapack_dlartg,doc_f2py_rout__flapack_dlartg},
105321 {"clartg",-1,{{-1}},0,(char *)F_FUNC(clartg,CLARTG)clartg_,(f2py_init_func)f2py_rout__flapack_clartg,doc_f2py_rout__flapack_clartg},
105322 {"zlartg",-1,{{-1}},0,(char *)F_FUNC(zlartg,ZLARTG)zlartg_,(f2py_init_func)f2py_rout__flapack_zlartg,doc_f2py_rout__flapack_zlartg},
105323 {"crot",-1,{{-1}},0,(char *)F_FUNC(crot,CROT)crot_,(f2py_init_func)f2py_rout__flapack_crot,doc_f2py_rout__flapack_crot},
105324 {"zrot",-1,{{-1}},0,(char *)F_FUNC(zrot,ZROT)zrot_,(f2py_init_func)f2py_rout__flapack_zrot,doc_f2py_rout__flapack_zrot},
105325 {"ilaver",-1,{{-1}},0,(char *)F_FUNC(ilaver,ILAVER)ilaver_,(f2py_init_func)f2py_rout__flapack_ilaver,doc_f2py_rout__flapack_ilaver},
105326
105327/*eof routine_defs*/
105328 {NULL((void*)0)}
105329};
105330
105331static PyMethodDef f2py_module_methods[] = {
105332
105333 {NULL((void*)0),NULL((void*)0)}
105334};
105335
105336#if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF <<
4) | (0 << 0))
>= 0x03000000
105337static struct PyModuleDef moduledef = {
105338 PyModuleDef_HEAD_INIT{ { 1, ((void*)0) }, ((void*)0), 0, ((void*)0), },
105339 "_flapack",
105340 NULL((void*)0),
105341 -1,
105342 f2py_module_methods,
105343 NULL((void*)0),
105344 NULL((void*)0),
105345 NULL((void*)0),
105346 NULL((void*)0)
105347};
105348#endif
105349
105350#if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF <<
4) | (0 << 0))
>= 0x03000000
105351#define RETVALm m
105352PyMODINIT_FUNCPyObject* PyInit__flapack(void) {
105353#else
105354#define RETVALm
105355PyMODINIT_FUNCPyObject* init_flapack(void) {
105356#endif
105357 int i;
105358 PyObject *m,*d, *s, *tmp;
105359#if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF <<
4) | (0 << 0))
>= 0x03000000
105360 m = _flapack_module = PyModule_Create(&moduledef)PyModule_Create2(&moduledef, 1013);
105361#else
105362 m = _flapack_module = Py_InitModule("_flapack", f2py_module_methods);
105363#endif
105364 Py_TYPE(&PyFortran_Type)(((PyObject*)(&PyFortran_Type))->ob_type) = &PyType_Type;
105365 import_array(){if (_import_array() < 0) {PyErr_Print(); PyErr_SetString(
PyExc_ImportError, "numpy.core.multiarray failed to import");
return ((void*)0); } }
;
1
Taking false branch
105366 if (PyErr_Occurred())
2
Assuming the condition is false
3
Taking false branch
105367 {PyErr_SetString(PyExc_ImportError, "can't initialize module _flapack (failed to import numpy)"); return RETVALm;}
105368 d = PyModule_GetDict(m);
105369 s = PyString_FromStringPyBytes_FromString("$Revision: $");
105370 PyDict_SetItemString(d, "__version__", s);
105371#if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF <<
4) | (0 << 0))
>= 0x03000000
105372 s = PyUnicode_FromString(
105373#else
105374 s = PyString_FromStringPyBytes_FromString(
105375#endif
105376 "This module '_flapack' is auto-generated with f2py (version:2).\nFunctions:\n"
105377" ba,lo,hi,pivscale,info = sgebal(a,scale=0,permute=0,overwrite_a=0)\n"
105378" ba,lo,hi,pivscale,info = dgebal(a,scale=0,permute=0,overwrite_a=0)\n"
105379" ba,lo,hi,pivscale,info = cgebal(a,scale=0,permute=0,overwrite_a=0)\n"
105380" ba,lo,hi,pivscale,info = zgebal(a,scale=0,permute=0,overwrite_a=0)\n"
105381" ht,tau,info = sgehrd(a,lo=0,hi=n-1,lwork=MAX(n,1),overwrite_a=0)\n"
105382" ht,tau,info = dgehrd(a,lo=0,hi=n-1,lwork=MAX(n,1),overwrite_a=0)\n"
105383" ht,tau,info = cgehrd(a,lo=0,hi=n-1,lwork=MAX(n,1),overwrite_a=0)\n"
105384" ht,tau,info = zgehrd(a,lo=0,hi=n-1,lwork=MAX(n,1),overwrite_a=0)\n"
105385" work,info = sgehrd_lwork(n,lo=0,hi=n-1)\n"
105386" work,info = dgehrd_lwork(n,lo=0,hi=n-1)\n"
105387" work,info = cgehrd_lwork(n,lo=0,hi=n-1)\n"
105388" work,info = zgehrd_lwork(n,lo=0,hi=n-1)\n"
105389" lu,piv,x,info = sgesv(a,b,overwrite_a=0,overwrite_b=0)\n"
105390" lu,piv,x,info = dgesv(a,b,overwrite_a=0,overwrite_b=0)\n"
105391" lu,piv,x,info = cgesv(a,b,overwrite_a=0,overwrite_b=0)\n"
105392" lu,piv,x,info = zgesv(a,b,overwrite_a=0,overwrite_b=0)\n"
105393" as,lu,ipiv,equed,rs,cs,bs,x,rcond,ferr,berr,info = sgesvx(a,b,fact='E',trans='N',af=,ipiv=,equed='B',r=,c=,overwrite_a=0,overwrite_b=0)\n"
105394" as,lu,ipiv,equed,rs,cs,bs,x,rcond,ferr,berr,info = dgesvx(a,b,fact='E',trans='N',af=,ipiv=,equed='B',r=,c=,overwrite_a=0,overwrite_b=0)\n"
105395" as,lu,ipiv,equed,rs,cs,bs,x,rcond,ferr,berr,info = cgesvx(a,b,fact='E',trans='N',af=,ipiv=,equed='B',r=,c=,overwrite_a=0,overwrite_b=0)\n"
105396" as,lu,ipiv,equed,rs,cs,bs,x,rcond,ferr,berr,info = zgesvx(a,b,fact='E',trans='N',af=,ipiv=,equed='B',r=,c=,overwrite_a=0,overwrite_b=0)\n"
105397" rcond,info = sgecon(a,anorm,norm='1')\n"
105398" rcond,info = dgecon(a,anorm,norm='1')\n"
105399" rcond,info = cgecon(a,anorm,norm='1')\n"
105400" rcond,info = zgecon(a,anorm,norm='1')\n"
105401" lu,piv,info = sgetrf(a,overwrite_a=0)\n"
105402" lu,piv,info = dgetrf(a,overwrite_a=0)\n"
105403" lu,piv,info = cgetrf(a,overwrite_a=0)\n"
105404" lu,piv,info = zgetrf(a,overwrite_a=0)\n"
105405" x,info = sgetrs(lu,piv,b,trans=0,overwrite_b=0)\n"
105406" x,info = dgetrs(lu,piv,b,trans=0,overwrite_b=0)\n"
105407" x,info = cgetrs(lu,piv,b,trans=0,overwrite_b=0)\n"
105408" x,info = zgetrs(lu,piv,b,trans=0,overwrite_b=0)\n"
105409" lu,ipiv,jpiv,info = sgetc2(a,overwrite_a=0)\n"
105410" lu,ipiv,jpiv,info = dgetc2(a,overwrite_a=0)\n"
105411" lu,ipiv,jpiv,info = cgetc2(a,overwrite_a=0)\n"
105412" lu,ipiv,jpiv,info = zgetc2(a,overwrite_a=0)\n"
105413" x,scale = sgesc2(lu,rhs,ipiv,jpiv,overwrite_rhs=0)\n"
105414" x,scale = dgesc2(lu,rhs,ipiv,jpiv,overwrite_rhs=0)\n"
105415" x,scale = cgesc2(lu,rhs,ipiv,jpiv,overwrite_rhs=0)\n"
105416" x,scale = zgesc2(lu,rhs,ipiv,jpiv,overwrite_rhs=0)\n"
105417" inv_a,info = sgetri(lu,piv,lwork=max(3*n,1),overwrite_lu=0)\n"
105418" inv_a,info = dgetri(lu,piv,lwork=max(3*n,1),overwrite_lu=0)\n"
105419" inv_a,info = cgetri(lu,piv,lwork=max(3*n,1),overwrite_lu=0)\n"
105420" inv_a,info = zgetri(lu,piv,lwork=max(3*n,1),overwrite_lu=0)\n"
105421" work,info = sgetri_lwork(n)\n"
105422" work,info = dgetri_lwork(n)\n"
105423" work,info = cgetri_lwork(n)\n"
105424" work,info = zgetri_lwork(n)\n"
105425" u,s,vt,info = sgesdd(a,compute_uv=1,full_matrices=1,lwork=max((compute_uv?4*minmn*minmn+MAX(m,n)+9*minmn:MAX(14*minmn+4,10*minmn+2+25*(25+8))+MAX(m,n)),1),overwrite_a=0)\n"
105426" u,s,vt,info = dgesdd(a,compute_uv=1,full_matrices=1,lwork=max((compute_uv?4*minmn*minmn+MAX(m,n)+9*minmn:MAX(14*minmn+4,10*minmn+2+25*(25+8))+MAX(m,n)),1),overwrite_a=0)\n"
105427" work,info = sgesdd_lwork(m,n,compute_uv=1,full_matrices=1)\n"
105428" work,info = dgesdd_lwork(m,n,compute_uv=1,full_matrices=1)\n"
105429" u,s,vt,info = cgesdd(a,compute_uv=1,full_matrices=1,lwork=max((compute_uv?2*minmn*minmn+MAX(m,n)+2*minmn:2*minmn+MAX(m,n)),1),overwrite_a=0)\n"
105430" u,s,vt,info = zgesdd(a,compute_uv=1,full_matrices=1,lwork=max((compute_uv?2*minmn*minmn+MAX(m,n)+2*minmn:2*minmn+MAX(m,n)),1),overwrite_a=0)\n"
105431" work,info = cgesdd_lwork(m,n,compute_uv=1,full_matrices=1)\n"
105432" work,info = zgesdd_lwork(m,n,compute_uv=1,full_matrices=1)\n"
105433" u,s,vt,info = sgesvd(a,compute_uv=1,full_matrices=1,lwork=max(MAX(3*minmn+MAX(m,n),5*minmn),1),overwrite_a=0)\n"
105434" u,s,vt,info = dgesvd(a,compute_uv=1,full_matrices=1,lwork=max(MAX(3*minmn+MAX(m,n),5*minmn),1),overwrite_a=0)\n"
105435" work,info = sgesvd_lwork(m,n,compute_uv=1,full_matrices=1)\n"
105436" work,info = dgesvd_lwork(m,n,compute_uv=1,full_matrices=1)\n"
105437" u,s,vt,info = cgesvd(a,compute_uv=1,full_matrices=1,lwork=MAX(2*minmn+MAX(m,n),1),overwrite_a=0)\n"
105438" u,s,vt,info = zgesvd(a,compute_uv=1,full_matrices=1,lwork=MAX(2*minmn+MAX(m,n),1),overwrite_a=0)\n"
105439" work,info = cgesvd_lwork(m,n,compute_uv=1,full_matrices=1)\n"
105440" work,info = zgesvd_lwork(m,n,compute_uv=1,full_matrices=1)\n"
105441" lqr,x,info = sgels(a,b,trans='N',lwork=MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1),overwrite_a=0,overwrite_b=0)\n"
105442" lqr,x,info = dgels(a,b,trans='N',lwork=MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1),overwrite_a=0,overwrite_b=0)\n"
105443" lqr,x,info = cgels(a,b,trans='N',lwork=MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1),overwrite_a=0,overwrite_b=0)\n"
105444" lqr,x,info = zgels(a,b,trans='N',lwork=MAX(MIN(m,n)+MAX(MIN(m,n),nrhs),1),overwrite_a=0,overwrite_b=0)\n"
105445" work,info = sgels_lwork(m,n,nrhs,trans='N')\n"
105446" work,info = dgels_lwork(m,n,nrhs,trans='N')\n"
105447" work,info = cgels_lwork(m,n,nrhs,trans='N')\n"
105448" work,info = zgels_lwork(m,n,nrhs,trans='N')\n"
105449" v,x,s,rank,work,info = sgelss(a,b,cond=-1.0,lwork=max(3*minmn+MAX(2*minmn,MAX(maxmn,nrhs)),1),overwrite_a=0,overwrite_b=0)\n"
105450" v,x,s,rank,work,info = dgelss(a,b,cond=-1.0,lwork=max(3*minmn+MAX(2*minmn,MAX(maxmn,nrhs)),1),overwrite_a=0,overwrite_b=0)\n"
105451" work,info = sgelss_lwork(m,n,nrhs,cond=-1.0,lwork=-1)\n"
105452" work,info = dgelss_lwork(m,n,nrhs,cond=-1.0,lwork=-1)\n"
105453" v,x,s,rank,work,info = cgelss(a,b,cond=-1.0,lwork=max(2*minmn+MAX(maxmn,nrhs),1),overwrite_a=0,overwrite_b=0)\n"
105454" v,x,s,rank,work,info = zgelss(a,b,cond=-1.0,lwork=max(2*minmn+MAX(maxmn,nrhs),1),overwrite_a=0,overwrite_b=0)\n"
105455" work,info = cgelss_lwork(m,n,nrhs,cond=-1.0,lwork=-1)\n"
105456" work,info = zgelss_lwork(m,n,nrhs,cond=-1.0,lwork=-1)\n"
105457" v,x,j,rank,info = sgelsy(a,b,jptv,cond,lwork,overwrite_a=0,overwrite_b=0)\n"
105458" v,x,j,rank,info = dgelsy(a,b,jptv,cond,lwork,overwrite_a=0,overwrite_b=0)\n"
105459" work,info = sgelsy_lwork(m,n,nrhs,cond,lwork=-1)\n"
105460" work,info = dgelsy_lwork(m,n,nrhs,cond,lwork=-1)\n"
105461" v,x,j,rank,info = cgelsy(a,b,jptv,cond,lwork,overwrite_a=0,overwrite_b=0)\n"
105462" v,x,j,rank,info = zgelsy(a,b,jptv,cond,lwork,overwrite_a=0,overwrite_b=0)\n"
105463" work,info = cgelsy_lwork(m,n,nrhs,cond,lwork=-1)\n"
105464" work,info = zgelsy_lwork(m,n,nrhs,cond,lwork=-1)\n"
105465" x,s,rank,info = sgelsd(a,b,lwork,size_iwork,cond=-1.0,overwrite_a=0,overwrite_b=0)\n"
105466" x,s,rank,info = dgelsd(a,b,lwork,size_iwork,cond=-1.0,overwrite_a=0,overwrite_b=0)\n"
105467" work,iwork,info = sgelsd_lwork(m,n,nrhs,cond=-1.0,lwork=-1)\n"
105468" work,iwork,info = dgelsd_lwork(m,n,nrhs,cond=-1.0,lwork=-1)\n"
105469" x,s,rank,info = cgelsd(a,b,lwork,size_rwork,size_iwork,cond=-1.0,overwrite_a=0,overwrite_b=0)\n"
105470" x,s,rank,info = zgelsd(a,b,lwork,size_rwork,size_iwork,cond=-1.0,overwrite_a=0,overwrite_b=0)\n"
105471" work,rwork,iwork,info = cgelsd_lwork(m,n,nrhs,cond=-1.0,lwork=-1)\n"
105472" work,rwork,iwork,info = zgelsd_lwork(m,n,nrhs,cond=-1.0,lwork=-1)\n"
105473" qr,jpvt,tau,work,info = sgeqp3(a,lwork=max(3*(n+1),1),overwrite_a=0)\n"
105474" qr,jpvt,tau,work,info = dgeqp3(a,lwork=max(3*(n+1),1),overwrite_a=0)\n"
105475" qr,jpvt,tau,work,info = cgeqp3(a,lwork=max(3*(n+1),1),overwrite_a=0)\n"
105476" qr,jpvt,tau,work,info = zgeqp3(a,lwork=max(3*(n+1),1),overwrite_a=0)\n"
105477" qr,tau,work,info = sgeqrf(a,lwork=max(3*n,1),overwrite_a=0)\n"
105478" qr,tau,work,info = dgeqrf(a,lwork=max(3*n,1),overwrite_a=0)\n"
105479" qr,tau,work,info = cgeqrf(a,lwork=max(3*n,1),overwrite_a=0)\n"
105480" qr,tau,work,info = zgeqrf(a,lwork=max(3*n,1),overwrite_a=0)\n"
105481" work,info = sgeqrf_lwork(m,n)\n"
105482" work,info = dgeqrf_lwork(m,n)\n"
105483" work,info = cgeqrf_lwork(m,n)\n"
105484" work,info = zgeqrf_lwork(m,n)\n"
105485" qr,tau,info = sgeqrfp(a,lwork=MAX(1, n),overwrite_a=0)\n"
105486" qr,tau,info = dgeqrfp(a,lwork=MAX(1, n),overwrite_a=0)\n"
105487" qr,tau,info = cgeqrfp(a,lwork=MAX(1, n),overwrite_a=0)\n"
105488" qr,tau,info = zgeqrfp(a,lwork=MAX(1, n),overwrite_a=0)\n"
105489" work,info = sgeqrfp_lwork(m,n)\n"
105490" work,info = dgeqrfp_lwork(m,n)\n"
105491" work,info = cgeqrfp_lwork(m,n)\n"
105492" work,info = zgeqrfp_lwork(m,n)\n"
105493" qr,tau,work,info = sgerqf(a,lwork=max(3*m,1),overwrite_a=0)\n"
105494" qr,tau,work,info = dgerqf(a,lwork=max(3*m,1),overwrite_a=0)\n"
105495" qr,tau,work,info = cgerqf(a,lwork=max(3*m,1),overwrite_a=0)\n"
105496" qr,tau,work,info = zgerqf(a,lwork=max(3*m,1),overwrite_a=0)\n"
105497" wr,wi,vl,vr,info = sgeev(a,compute_vl=1,compute_vr=1,lwork=max(4*n,1),overwrite_a=0)\n"
105498" wr,wi,vl,vr,info = dgeev(a,compute_vl=1,compute_vr=1,lwork=max(4*n,1),overwrite_a=0)\n"
105499" work,info = sgeev_lwork(n,compute_vl=1,compute_vr=1)\n"
105500" work,info = dgeev_lwork(n,compute_vl=1,compute_vr=1)\n"
105501" w,vl,vr,info = cgeev(a,compute_vl=1,compute_vr=1,lwork=max(2*n,1),overwrite_a=0)\n"
105502" w,vl,vr,info = zgeev(a,compute_vl=1,compute_vr=1,lwork=max(2*n,1),overwrite_a=0)\n"
105503" work,info = cgeev_lwork(n,compute_vl=1,compute_vr=1)\n"
105504" work,info = zgeev_lwork(n,compute_vl=1,compute_vr=1)\n"
105505" alphar,alphai,beta,vl,vr,info = sgegv(a,b,compute_vl=1,compute_vr=1,lwork=max(8*n,1),overwrite_a=0,overwrite_b=0)\n"
105506" alphar,alphai,beta,vl,vr,info = dgegv(a,b,compute_vl=1,compute_vr=1,lwork=max(8*n,1),overwrite_a=0,overwrite_b=0)\n"
105507" alpha,beta,vl,vr,info = cgegv(a,b,compute_vl=1,compute_vr=1,lwork=max(2*n,1),overwrite_a=0,overwrite_b=0)\n"
105508" alpha,beta,vl,vr,info = zgegv(a,b,compute_vl=1,compute_vr=1,lwork=max(2*n,1),overwrite_a=0,overwrite_b=0)\n"
105509" t,sdim,w,vs,work,info = cgees(cselect,a,compute_v=1,sort_t=0,lwork=max(3*n,1),cselect_extra_args=(),overwrite_a=0)\n"
105510" t,sdim,w,vs,work,info = zgees(zselect,a,compute_v=1,sort_t=0,lwork=max(3*n,1),zselect_extra_args=(),overwrite_a=0)\n"
105511" t,sdim,wr,wi,vs,work,info = sgees(sselect,a,compute_v=1,sort_t=0,lwork=max(3*n,1),sselect_extra_args=(),overwrite_a=0)\n"
105512" t,sdim,wr,wi,vs,work,info = dgees(dselect,a,compute_v=1,sort_t=0,lwork=max(3*n,1),dselect_extra_args=(),overwrite_a=0)\n"
105513" a,b,sdim,alphar,alphai,beta,vsl,vsr,work,info = sgges(sselect,a,b,jobvsl=1,jobvsr=1,sort_t=0,ldvsl=((jobvsl==1)?n:1),ldvsr=((jobvsr==1)?n:1),lwork=max(8*n+16,1),sselect_extra_args=(),overwrite_a=0,overwrite_b=0)\n"
105514" a,b,sdim,alphar,alphai,beta,vsl,vsr,work,info = dgges(dselect,a,b,jobvsl=1,jobvsr=1,sort_t=0,ldvsl=((jobvsl==1)?n:1),ldvsr=((jobvsr==1)?n:1),lwork=max(8*n+16,1),dselect_extra_args=(),overwrite_a=0,overwrite_b=0)\n"
105515" a,b,sdim,alpha,beta,vsl,vsr,work,info = cgges(cselect,a,b,jobvsl=1,jobvsr=1,sort_t=0,ldvsl=((jobvsl==1)?n:1),ldvsr=((jobvsr==1)?n:1),lwork=max(2*n,1),cselect_extra_args=(),overwrite_a=0,overwrite_b=0)\n"
105516" a,b,sdim,alpha,beta,vsl,vsr,work,info = zgges(zselect,a,b,jobvsl=1,jobvsr=1,sort_t=0,ldvsl=((jobvsl==1)?n:1),ldvsr=((jobvsr==1)?n:1),lwork=max(2*n,1),zselect_extra_args=(),overwrite_a=0,overwrite_b=0)\n"
105517" alphar,alphai,beta,vl,vr,work,info = sggev(a,b,compute_vl=1,compute_vr=1,lwork=max(8*n,1),overwrite_a=0,overwrite_b=0)\n"
105518" alphar,alphai,beta,vl,vr,work,info = dggev(a,b,compute_vl=1,compute_vr=1,lwork=max(8*n,1),overwrite_a=0,overwrite_b=0)\n"
105519" alpha,beta,vl,vr,work,info = cggev(a,b,compute_vl=1,compute_vr=1,lwork=max(2*n,1),overwrite_a=0,overwrite_b=0)\n"
105520" alpha,beta,vl,vr,work,info = zggev(a,b,compute_vl=1,compute_vr=1,lwork=max(2*n,1),overwrite_a=0,overwrite_b=0)\n"
105521" r,c,rowcnd,colcnd,amax,info = sgeequ(a)\n"
105522" r,c,rowcnd,colcnd,amax,info = dgeequ(a)\n"
105523" r,c,rowcnd,colcnd,amax,info = cgeequ(a)\n"
105524" r,c,rowcnd,colcnd,amax,info = zgeequ(a)\n"
105525" r,c,rowcnd,colcnd,amax,info = sgeequb(a)\n"
105526" r,c,rowcnd,colcnd,amax,info = dgeequb(a)\n"
105527" r,c,rowcnd,colcnd,amax,info = cgeequb(a)\n"
105528" r,c,rowcnd,colcnd,amax,info = zgeequb(a)\n"
105529" lub,piv,x,info = sgbsv(kl,ku,ab,b,overwrite_ab=0,overwrite_b=0)\n"
105530" lub,piv,x,info = dgbsv(kl,ku,ab,b,overwrite_ab=0,overwrite_b=0)\n"
105531" lub,piv,x,info = cgbsv(kl,ku,ab,b,overwrite_ab=0,overwrite_b=0)\n"
105532" lub,piv,x,info = zgbsv(kl,ku,ab,b,overwrite_ab=0,overwrite_b=0)\n"
105533" lu,ipiv,info = sgbtrf(ab,kl,ku,m=shape(ab,1),n=shape(ab,1),ldab=max(shape(ab,0),1),overwrite_ab=0)\n"
105534" lu,ipiv,info = dgbtrf(ab,kl,ku,m=shape(ab,1),n=shape(ab,1),ldab=max(shape(ab,0),1),overwrite_ab=0)\n"
105535" lu,ipiv,info = cgbtrf(ab,kl,ku,m=shape(ab,1),n=shape(ab,1),ldab=max(shape(ab,0),1),overwrite_ab=0)\n"
105536" lu,ipiv,info = zgbtrf(ab,kl,ku,m=shape(ab,1),n=shape(ab,1),ldab=max(shape(ab,0),1),overwrite_ab=0)\n"
105537" x,info = sgbtrs(ab,kl,ku,b,ipiv,trans=0,n=shape(ab,1),ldab=shape(ab,0),ldb=shape(b,0),overwrite_b=0)\n"
105538" x,info = dgbtrs(ab,kl,ku,b,ipiv,trans=0,n=shape(ab,1),ldab=shape(ab,0),ldb=shape(b,0),overwrite_b=0)\n"
105539" x,info = cgbtrs(ab,kl,ku,b,ipiv,trans=0,n=shape(ab,1),ldab=shape(ab,0),ldb=shape(b,0),overwrite_b=0)\n"
105540" x,info = zgbtrs(ab,kl,ku,b,ipiv,trans=0,n=shape(ab,1),ldab=shape(ab,0),ldb=shape(b,0),overwrite_b=0)\n"
105541" du2,d,du,x,info = sgtsv(dl,d,du,b,overwrite_dl=0,overwrite_d=0,overwrite_du=0,overwrite_b=0)\n"
105542" du2,d,du,x,info = dgtsv(dl,d,du,b,overwrite_dl=0,overwrite_d=0,overwrite_du=0,overwrite_b=0)\n"
105543" du2,d,du,x,info = cgtsv(dl,d,du,b,overwrite_dl=0,overwrite_d=0,overwrite_du=0,overwrite_b=0)\n"
105544" du2,d,du,x,info = zgtsv(dl,d,du,b,overwrite_dl=0,overwrite_d=0,overwrite_du=0,overwrite_b=0)\n"
105545" dl,d,du,du2,ipiv,info = sgttrf(dl,d,du,overwrite_dl=0,overwrite_d=0,overwrite_du=0)\n"
105546" dl,d,du,du2,ipiv,info = dgttrf(dl,d,du,overwrite_dl=0,overwrite_d=0,overwrite_du=0)\n"
105547" dl,d,du,du2,ipiv,info = cgttrf(dl,d,du,overwrite_dl=0,overwrite_d=0,overwrite_du=0)\n"
105548" dl,d,du,du2,ipiv,info = zgttrf(dl,d,du,overwrite_dl=0,overwrite_d=0,overwrite_du=0)\n"
105549" x,info = sgttrs(dl,d,du,du2,ipiv,b,trans='N',overwrite_b=0)\n"
105550" x,info = dgttrs(dl,d,du,du2,ipiv,b,trans='N',overwrite_b=0)\n"
105551" x,info = cgttrs(dl,d,du,du2,ipiv,b,trans='N',overwrite_b=0)\n"
105552" x,info = zgttrs(dl,d,du,du2,ipiv,b,trans='N',overwrite_b=0)\n"
105553" dlf,df,duf,du2,ipiv,x,rcond,ferr,berr,info = sgtsvx(dl,d,du,b,fact='N',trans='N',dlf=,df=,duf=,du2=,ipiv=)\n"
105554" dlf,df,duf,du2,ipiv,x,rcond,ferr,berr,info = dgtsvx(dl,d,du,b,fact='N',trans='N',dlf=,df=,duf=,du2=,ipiv=)\n"
105555" dlf,df,duf,du2,ipiv,x,rcond,ferr,berr,info = cgtsvx(dl,d,du,b,fact='N',trans='N',dlf=,df=,duf=,du2=,ipiv=)\n"
105556" dlf,df,duf,du2,ipiv,x,rcond,ferr,berr,info = zgtsvx(dl,d,du,b,fact='N',trans='N',dlf=,df=,duf=,du2=,ipiv=)\n"
105557" w,v,info = ssyev(a,compute_v=1,lower=0,lwork=max(3*n-1,1),overwrite_a=0)\n"
105558" w,v,info = dsyev(a,compute_v=1,lower=0,lwork=max(3*n-1,1),overwrite_a=0)\n"
105559" work,info = ssyev_lwork(n,lower=0)\n"
105560" work,info = dsyev_lwork(n,lower=0)\n"
105561" w,v,info = cheev(a,compute_v=1,lower=0,lwork=max(2*n-1,1),overwrite_a=0)\n"
105562" w,v,info = zheev(a,compute_v=1,lower=0,lwork=max(2*n-1,1),overwrite_a=0)\n"
105563" work,info = cheev_lwork(n,lower=0)\n"
105564" work,info = zheev_lwork(n,lower=0)\n"
105565" w,v,info = ssyevd(a,compute_v=1,lower=0,lwork=max((compute_v?1+6*n+2*n*n:2*n+1),1),liwork=(compute_v?3+5*n:1),overwrite_a=0)\n"
105566" w,v,info = dsyevd(a,compute_v=1,lower=0,lwork=max((compute_v?1+6*n+2*n*n:2*n+1),1),liwork=(compute_v?3+5*n:1),overwrite_a=0)\n"
105567" work,iwork,info = ssyevd_lwork(n,compute_v=1,lower=0)\n"
105568" work,iwork,info = dsyevd_lwork(n,compute_v=1,lower=0)\n"
105569" w,v,info = cheevd(a,compute_v=1,lower=0,lwork=max((compute_v?2*n+n*n:n+1),1),liwork=(compute_v?3+5*n:1),lrwork=(compute_v?1+5*n+2*n*n:n),overwrite_a=0)\n"
105570" w,v,info = zheevd(a,compute_v=1,lower=0,lwork=max((compute_v?2*n+n*n:n+1),1),liwork=(compute_v?3+5*n:1),lrwork=(compute_v?1+5*n+2*n*n:n),overwrite_a=0)\n"
105571" work,iwork,rwork,info = cheevd_lwork(n,compute_v=1,lower=0)\n"
105572" work,iwork,rwork,info = zheevd_lwork(n,compute_v=1,lower=0)\n"
105573" ldu,ipiv,info = ssytf2(a,lower=0,overwrite_a=0)\n"
105574" ldu,ipiv,info = dsytf2(a,lower=0,overwrite_a=0)\n"
105575" ldu,ipiv,info = csytf2(a,lower=0,overwrite_a=0)\n"
105576" ldu,ipiv,info = zsytf2(a,lower=0,overwrite_a=0)\n"
105577" c,info = ssygst(a,b,itype=1,lower=0,overwrite_a=0)\n"
105578" c,info = dsygst(a,b,itype=1,lower=0,overwrite_a=0)\n"
105579" ldu,ipiv,info = ssytrf(a,lower=0,lwork=max(n,1),overwrite_a=0)\n"
105580" ldu,ipiv,info = dsytrf(a,lower=0,lwork=max(n,1),overwrite_a=0)\n"
105581" ldu,ipiv,info = csytrf(a,lower=0,lwork=max(n,1),overwrite_a=0)\n"
105582" ldu,ipiv,info = zsytrf(a,lower=0,lwork=max(n,1),overwrite_a=0)\n"
105583" work,info = ssytrf_lwork(n,lower=0)\n"
105584" work,info = dsytrf_lwork(n,lower=0)\n"
105585" work,info = csytrf_lwork(n,lower=0)\n"
105586" work,info = zsytrf_lwork(n,lower=0)\n"
105587" udut,ipiv,x,info = ssysv(a,b,lwork=max(n,1),lower=0,overwrite_a=0,overwrite_b=0)\n"
105588" udut,ipiv,x,info = dsysv(a,b,lwork=max(n,1),lower=0,overwrite_a=0,overwrite_b=0)\n"
105589" udut,ipiv,x,info = csysv(a,b,lwork=max(n,1),lower=0,overwrite_a=0,overwrite_b=0)\n"
105590" udut,ipiv,x,info = zsysv(a,b,lwork=max(n,1),lower=0,overwrite_a=0,overwrite_b=0)\n"
105591" work,info = ssysv_lwork(n,lower=0)\n"
105592" work,info = dsysv_lwork(n,lower=0)\n"
105593" work,info = csysv_lwork(n,lower=0)\n"
105594" work,info = zsysv_lwork(n,lower=0)\n"
105595" a_s,udut,ipiv,b_s,x,rcond,ferr,berr,info = ssysvx(a,b,af=,ipiv=,lwork=max(3*n,1),factored=0,lower=0,overwrite_a=0,overwrite_b=0)\n"
105596" a_s,udut,ipiv,b_s,x,rcond,ferr,berr,info = dsysvx(a,b,af=,ipiv=,lwork=max(3*n,1),factored=0,lower=0,overwrite_a=0,overwrite_b=0)\n"
105597" a_s,udut,ipiv,b_s,x,rcond,ferr,berr,info = csysvx(a,b,af=,ipiv=,lwork=max(3*n,1),factored=0,lower=0,overwrite_a=0,overwrite_b=0)\n"
105598" a_s,udut,ipiv,b_s,x,rcond,ferr,berr,info = zsysvx(a,b,af=,ipiv=,lwork=max(3*n,1),factored=0,lower=0,overwrite_a=0,overwrite_b=0)\n"
105599" work,info = ssysvx_lwork(n,lower=0)\n"
105600" work,info = dsysvx_lwork(n,lower=0)\n"
105601" work,info = csysvx_lwork(n,lower=0)\n"
105602" work,info = zsysvx_lwork(n,lower=0)\n"
105603" rcond,info = ssycon(a,ipiv,anorm,lower=0)\n"
105604" rcond,info = dsycon(a,ipiv,anorm,lower=0)\n"
105605" rcond,info = csycon(a,ipiv,anorm,lower=0)\n"
105606" rcond,info = zsycon(a,ipiv,anorm,lower=0)\n"
105607" rcond,info = checon(a,ipiv,anorm,lower=0)\n"
105608" rcond,info = zhecon(a,ipiv,anorm,lower=0)\n"
105609" a,e,info = ssyconv(a,ipiv,lower=0,way=0,overwrite_a=0)\n"
105610" a,e,info = dsyconv(a,ipiv,lower=0,way=0,overwrite_a=0)\n"
105611" a,e,info = csyconv(a,ipiv,lower=0,way=0,overwrite_a=0)\n"
105612" a,e,info = zsyconv(a,ipiv,lower=0,way=0,overwrite_a=0)\n"
105613" c,info = chegst(a,b,itype=1,lower=0,overwrite_a=0)\n"
105614" c,info = zhegst(a,b,itype=1,lower=0,overwrite_a=0)\n"
105615" ldu,ipiv,info = chetrf(a,lower=0,lwork=max(n,1),overwrite_a=0)\n"
105616" ldu,ipiv,info = zhetrf(a,lower=0,lwork=max(n,1),overwrite_a=0)\n"
105617" work,info = chetrf_lwork(n,lower=0)\n"
105618" work,info = zhetrf_lwork(n,lower=0)\n"
105619" uduh,ipiv,x,info = chesv(a,b,lwork=max(n,1),lower=0,overwrite_a=0,overwrite_b=0)\n"
105620" uduh,ipiv,x,info = zhesv(a,b,lwork=max(n,1),lower=0,overwrite_a=0,overwrite_b=0)\n"
105621" work,info = chesv_lwork(n,lower=0)\n"
105622" work,info = zhesv_lwork(n,lower=0)\n"
105623" uduh,ipiv,x,rcond,ferr,berr,info = chesvx(a,b,af=,ipiv=,lwork=max(2*n,1),factored=0,lower=0,overwrite_a=0,overwrite_b=0)\n"
105624" uduh,ipiv,x,rcond,ferr,berr,info = zhesvx(a,b,af=,ipiv=,lwork=max(2*n,1),factored=0,lower=0,overwrite_a=0,overwrite_b=0)\n"
105625" work,info = chesvx_lwork(n,lower=0)\n"
105626" work,info = zhesvx_lwork(n,lower=0)\n"
105627" c,d,e,tau,info = ssytrd(a,lower=0,lwork=MAX(n,1),overwrite_a=0)\n"
105628" c,d,e,tau,info = dsytrd(a,lower=0,lwork=MAX(n,1),overwrite_a=0)\n"
105629" work,info = ssytrd_lwork(n,lower=0)\n"
105630" work,info = dsytrd_lwork(n,lower=0)\n"
105631" c,d,e,tau,info = chetrd(a,lower=0,lwork=MAX(n,1),overwrite_a=0)\n"
105632" c,d,e,tau,info = zhetrd(a,lower=0,lwork=MAX(n,1),overwrite_a=0)\n"
105633" work,info = chetrd_lwork(n,lower=0)\n"
105634" work,info = zhetrd_lwork(n,lower=0)\n"
105635" w,z,m,isuppz,info = ssyevr(a,compute_v=1,range='A',lower=0,vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(26*n,1),liwork=max(1,10*n),overwrite_a=0)\n"
105636" w,z,m,isuppz,info = dsyevr(a,compute_v=1,range='A',lower=0,vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(26*n,1),liwork=max(1,10*n),overwrite_a=0)\n"
105637" work,iwork,info = ssyevr_lwork(n,lower=0)\n"
105638" work,iwork,info = dsyevr_lwork(n,lower=0)\n"
105639" w,z,m,isuppz,info = cheevr(a,compute_v=1,range='A',lower=0,vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(2*n,1),lrwork=max(24*n,1),liwork=max(1,10*n),overwrite_a=0)\n"
105640" w,z,m,isuppz,info = zheevr(a,compute_v=1,range='A',lower=0,vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(2*n,1),lrwork=max(24*n,1),liwork=max(1,10*n),overwrite_a=0)\n"
105641" work,rwork,iwork,info = cheevr_lwork(n,lower=0)\n"
105642" work,rwork,iwork,info = zheevr_lwork(n,lower=0)\n"
105643" w,z,m,ifail,info = ssyevx(a,compute_v=1,range='A',lower=0,vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(8*n,1),overwrite_a=0)\n"
105644" w,z,m,ifail,info = dsyevx(a,compute_v=1,range='A',lower=0,vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(8*n,1),overwrite_a=0)\n"
105645" work,info = ssyevx_lwork(n,lower=0)\n"
105646" work,info = dsyevx_lwork(n,lower=0)\n"
105647" w,z,m,ifail,info = cheevx(a,compute_v=1,range='A',lower=0,vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(2*n,1),overwrite_a=0)\n"
105648" w,z,m,ifail,info = zheevx(a,compute_v=1,range='A',lower=0,vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(2*n,1),overwrite_a=0)\n"
105649" work,info = cheevx_lwork(n,lower=0)\n"
105650" work,info = zheevx_lwork(n,lower=0)\n"
105651" w,v,info = ssygv(a,b,itype=1,jobz='V',uplo='L',lwork=max(3*n-1,1),overwrite_a=0,overwrite_b=0)\n"
105652" w,v,info = dsygv(a,b,itype=1,jobz='V',uplo='L',lwork=max(3*n-1,1),overwrite_a=0,overwrite_b=0)\n"
105653" work,info = ssygv_lwork(n,uplo='L')\n"
105654" work,info = dsygv_lwork(n,uplo='L')\n"
105655" w,v,info = chegv(a,b,itype=1,jobz='V',uplo='L',lwork=max(2*n-1,1),overwrite_a=0,overwrite_b=0)\n"
105656" w,v,info = zhegv(a,b,itype=1,jobz='V',uplo='L',lwork=max(2*n-1,1),overwrite_a=0,overwrite_b=0)\n"
105657" work,info = chegv_lwork(n,uplo='L')\n"
105658" work,info = zhegv_lwork(n,uplo='L')\n"
105659" w,v,info = ssygvd(a,b,itype=1,jobz='V',uplo='L',lwork=(*jobz=='N'?2*n+1:1+6*n+2*n*n),liwork=(*jobz=='N'?1:5*n+3),overwrite_a=0,overwrite_b=0)\n"
105660" w,v,info = dsygvd(a,b,itype=1,jobz='V',uplo='L',lwork=(*jobz=='N'?2*n+1:1+6*n+2*n*n),liwork=(*jobz=='N'?1:5*n+3),overwrite_a=0,overwrite_b=0)\n"
105661" w,v,info = chegvd(a,b,itype=1,jobz='V',uplo='L',lwork=(*jobz=='N'?n+1:n*(n+2)),lrwork=max((*jobz=='N'?n:2*n*n+5*n+1),1),liwork=(*jobz=='N'?1:5*n+3),overwrite_a=0,overwrite_b=0)\n"
105662" w,v,info = zhegvd(a,b,itype=1,jobz='V',uplo='L',lwork=(*jobz=='N'?n+1:n*(n+2)),lrwork=max((*jobz=='N'?n:2*n*n+5*n+1),1),liwork=(*jobz=='N'?1:5*n+3),overwrite_a=0,overwrite_b=0)\n"
105663" w,z,m,ifail,info = ssygvx(a,b,itype=1,jobz='V',range='A',uplo='L',vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(8*n,1),overwrite_a=0,overwrite_b=0)\n"
105664" w,z,m,ifail,info = dsygvx(a,b,itype=1,jobz='V',range='A',uplo='L',vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(8*n,1),overwrite_a=0,overwrite_b=0)\n"
105665" work,info = ssygvx_lwork(n,uplo='L')\n"
105666" work,info = dsygvx_lwork(n,uplo='L')\n"
105667" w,z,m,ifail,info = chegvx(a,b,itype=1,jobz='V',range='A',uplo='L',vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(2*n,1),overwrite_a=0,overwrite_b=0)\n"
105668" w,z,m,ifail,info = zhegvx(a,b,itype=1,jobz='V',range='A',uplo='L',vl=0.0,vu=1.0,il=1,iu=n,abstol=0.0,lwork=max(2*n,1),overwrite_a=0,overwrite_b=0)\n"
105669" work,info = chegvx_lwork(n,uplo='L')\n"
105670" work,info = zhegvx_lwork(n,uplo='L')\n"
105671" s,scond,amax,info = ssyequb(a,lower=0)\n"
105672" s,scond,amax,info = dsyequb(a,lower=0)\n"
105673" s,scond,amax,info = csyequb(a,lower=0)\n"
105674" s,scond,amax,info = zsyequb(a,lower=0)\n"
105675" s,scond,amax,info = cheequb(a,lower=0)\n"
105676" s,scond,amax,info = zheequb(a,lower=0)\n"
105677" c,piv,rank_c,info = spstrf(a,tol=-1.0,lower=0,overwrite_a=0)\n"
105678" c,piv,rank_c,info = dpstrf(a,tol=-1.0,lower=0,overwrite_a=0)\n"
105679" c,piv,rank_c,info = cpstrf(a,tol=-1.0,lower=0,overwrite_a=0)\n"
105680" c,piv,rank_c,info = zpstrf(a,tol=-1.0,lower=0,overwrite_a=0)\n"
105681" c,piv,rank_c,info = spstf2(a,tol=-1.0,lower=0,overwrite_a=0)\n"
105682" c,piv,rank_c,info = dpstf2(a,tol=-1.0,lower=0,overwrite_a=0)\n"
105683" c,piv,rank_c,info = cpstf2(a,tol=-1.0,lower=0,overwrite_a=0)\n"
105684" c,piv,rank_c,info = zpstf2(a,tol=-1.0,lower=0,overwrite_a=0)\n"
105685" c,x,info = sposv(a,b,lower=0,overwrite_a=0,overwrite_b=0)\n"
105686" c,x,info = dposv(a,b,lower=0,overwrite_a=0,overwrite_b=0)\n"
105687" c,x,info = cposv(a,b,lower=0,overwrite_a=0,overwrite_b=0)\n"
105688" c,x,info = zposv(a,b,lower=0,overwrite_a=0,overwrite_b=0)\n"
105689" a_s,lu,equed,s,b_s,x,rcond,ferr,berr,info = sposvx(a,b,fact='E',af=,equed='Y',s=,lower=0,overwrite_a=0,overwrite_b=0)\n"
105690" a_s,lu,equed,s,b_s,x,rcond,ferr,berr,info = dposvx(a,b,fact='E',af=,equed='Y',s=,lower=0,overwrite_a=0,overwrite_b=0)\n"
105691" a_s,lu,equed,s,b_s,x,rcond,ferr,berr,info = cposvx(a,b,fact='E',af=,equed='Y',s=,lower=0,overwrite_a=0,overwrite_b=0)\n"
105692" a_s,lu,equed,s,b_s,x,rcond,ferr,berr,info = zposvx(a,b,fact='E',af=,equed='Y',s=,lower=0,overwrite_a=0,overwrite_b=0)\n"
105693" rcond,info = spocon(a,anorm,uplo='U')\n"
105694" rcond,info = dpocon(a,anorm,uplo='U')\n"
105695" rcond,info = cpocon(a,anorm,uplo='U')\n"
105696" rcond,info = zpocon(a,anorm,uplo='U')\n"
105697" c,info = spotrf(a,lower=0,clean=1,overwrite_a=0)\n"
105698" c,info = dpotrf(a,lower=0,clean=1,overwrite_a=0)\n"
105699" c,info = cpotrf(a,lower=0,clean=1,overwrite_a=0)\n"
105700" c,info = zpotrf(a,lower=0,clean=1,overwrite_a=0)\n"
105701" x,info = spotrs(c,b,lower=0,overwrite_b=0)\n"
105702" x,info = dpotrs(c,b,lower=0,overwrite_b=0)\n"
105703" x,info = cpotrs(c,b,lower=0,overwrite_b=0)\n"
105704" x,info = zpotrs(c,b,lower=0,overwrite_b=0)\n"
105705" inv_a,info = spotri(c,lower=0,overwrite_c=0)\n"
105706" inv_a,info = dpotri(c,lower=0,overwrite_c=0)\n"
105707" inv_a,info = cpotri(c,lower=0,overwrite_c=0)\n"
105708" inv_a,info = zpotri(c,lower=0,overwrite_c=0)\n"
105709" d,du,x,info = sptsv(d,e,b,overwrite_d=0,overwrite_e=0,overwrite_b=0)\n"
105710" d,du,x,info = dptsv(d,e,b,overwrite_d=0,overwrite_e=0,overwrite_b=0)\n"
105711" d,du,x,info = cptsv(d,e,b,overwrite_d=0,overwrite_e=0,overwrite_b=0)\n"
105712" d,du,x,info = zptsv(d,e,b,overwrite_d=0,overwrite_e=0,overwrite_b=0)\n"
105713" d,e,info = spttrf(d,e,overwrite_d=0,overwrite_e=0)\n"
105714" d,e,info = dpttrf(d,e,overwrite_d=0,overwrite_e=0)\n"
105715" d,e,info = cpttrf(d,e,overwrite_d=0,overwrite_e=0)\n"
105716" d,e,info = zpttrf(d,e,overwrite_d=0,overwrite_e=0)\n"
105717" x,info = spttrs(d,e,b,overwrite_b=0)\n"
105718" x,info = dpttrs(d,e,b,overwrite_b=0)\n"
105719" x,info = cpttrs(d,e,b,lower=0,overwrite_b=0)\n"
105720" x,info = zpttrs(d,e,b,lower=0,overwrite_b=0)\n"
105721" d,e,z,info = spteqr(d,e,z,compute_z=0,overwrite_d=0,overwrite_e=0,overwrite_z=0)\n"
105722" d,e,z,info = dpteqr(d,e,z,compute_z=0,overwrite_d=0,overwrite_e=0,overwrite_z=0)\n"
105723" d,e,z,info = cpteqr(d,e,z,compute_z=0,overwrite_d=0,overwrite_e=0,overwrite_z=0)\n"
105724" d,e,z,info = zpteqr(d,e,z,compute_z=0,overwrite_d=0,overwrite_e=0,overwrite_z=0)\n"
105725" df,ef,x,rcond,ferr,berr,info = sptsvx(d,e,b,fact='N',df=,ef=)\n"
105726" df,ef,x,rcond,ferr,berr,info = dptsvx(d,e,b,fact='N',df=,ef=)\n"
105727" df,ef,x,rcond,ferr,berr,info = cptsvx(d,e,b,fact='N',df=,ef=)\n"
105728" df,ef,x,rcond,ferr,berr,info = zptsvx(d,e,b,fact='N',df=,ef=)\n"
105729" sva,u,v,workout,iworkout,info = sgejsv(a,joba=4,jobu=0,jobv=0,jobr=1,jobt=0,jobp=1,lwork=max(6*n+2*n*n, max(2*m+n, max(4*n+n*n, max(2*n+n*n+6, 7)))),overwrite_a=0)\n"
105730" sva,u,v,workout,iworkout,info = dgejsv(a,joba=4,jobu=0,jobv=0,jobr=1,jobt=0,jobp=1,lwork=max(6*n+2*n*n, max(2*m+n, max(4*n+n*n, max(2*n+n*n+6, 7)))),overwrite_a=0)\n"
105731" a,b,q,z,work,info = stgexc(a,b,q,z,ifst,ilst,lwork=max(4*n+16,1),overwrite_a=0,overwrite_b=0,overwrite_q=0,overwrite_z=0)\n"
105732" a,b,q,z,work,info = dtgexc(a,b,q,z,ifst,ilst,lwork=max(4*n+16,1),overwrite_a=0,overwrite_b=0,overwrite_q=0,overwrite_z=0)\n"
105733" a,b,q,z,info = ctgexc(a,b,q,z,ifst,ilst,overwrite_a=0,overwrite_b=0,overwrite_q=0,overwrite_z=0)\n"
105734" a,b,q,z,info = ztgexc(a,b,q,z,ifst,ilst,overwrite_a=0,overwrite_b=0,overwrite_q=0,overwrite_z=0)\n"
105735" as,bs,alphar,alphai,beta,qs,zs,m,pl,pr,dif,info = stgsen(select,a,b,q,z,ijob=4,wantq=1,wantz=1,lwork=4*n+16,liwork=n+6,overwrite_a=0,overwrite_b=0,overwrite_q=0,overwrite_z=0)\n"
105736" as,bs,alphar,alphai,beta,qs,zs,m,pl,pr,dif,info = dtgsen(select,a,b,q,z,ijob=4,wantq=1,wantz=1,lwork=4*n+16,liwork=n+6,overwrite_a=0,overwrite_b=0,overwrite_q=0,overwrite_z=0)\n"
105737" work,iwork,info = stgsen_lwork(select,a,ijob=4)\n"
105738" work,iwork,info = dtgsen_lwork(select,a,ijob=4)\n"
105739" as,bs,alpha,beta,qs,zs,m,pl,pr,dif,info = ctgsen(select,a,b,q,z,ijob=4,wantq=1,wantz=1,lwork=(ijob==0?1:n+2),liwork=(ijob==0?1:n+2),overwrite_a=0,overwrite_b=0,overwrite_q=0,overwrite_z=0)\n"
105740" as,bs,alpha,beta,qs,zs,m,pl,pr,dif,info = ztgsen(select,a,b,q,z,ijob=4,wantq=1,wantz=1,lwork=(ijob==0?1:n+2),liwork=(ijob==0?1:n+2),overwrite_a=0,overwrite_b=0,overwrite_q=0,overwrite_z=0)\n"
105741" work,iwork,info = ctgsen_lwork(select,a,b,ijob=4)\n"
105742" work,iwork,info = ztgsen_lwork(select,a,b,ijob=4)\n"
105743" c,info = spbtrf(ab,lower=0,ldab=shape(ab,0),overwrite_ab=0)\n"
105744" c,info = dpbtrf(ab,lower=0,ldab=shape(ab,0),overwrite_ab=0)\n"
105745" c,info = cpbtrf(ab,lower=0,ldab=shape(ab,0),overwrite_ab=0)\n"
105746" c,info = zpbtrf(ab,lower=0,ldab=shape(ab,0),overwrite_ab=0)\n"
105747" x,info = spbtrs(ab,b,lower=0,ldab=shape(ab,0),overwrite_b=0)\n"
105748" x,info = dpbtrs(ab,b,lower=0,ldab=shape(ab,0),overwrite_b=0)\n"
105749" x,info = cpbtrs(ab,b,lower=0,ldab=shape(ab,0),overwrite_b=0)\n"
105750" x,info = zpbtrs(ab,b,lower=0,ldab=shape(ab,0),overwrite_b=0)\n"
105751" x,info = strtrs(a,b,lower=0,trans=0,unitdiag=0,lda=shape(a,0),overwrite_b=0)\n"
105752" x,info = dtrtrs(a,b,lower=0,trans=0,unitdiag=0,lda=shape(a,0),overwrite_b=0)\n"
105753" x,info = ctrtrs(a,b,lower=0,trans=0,unitdiag=0,lda=shape(a,0),overwrite_b=0)\n"
105754" x,info = ztrtrs(a,b,lower=0,trans=0,unitdiag=0,lda=shape(a,0),overwrite_b=0)\n"
105755" x,info = stbtrs(ab,b,uplo='U',trans='N',diag='N',overwrite_b=0)\n"
105756" x,info = dtbtrs(ab,b,uplo='U',trans='N',diag='N',overwrite_b=0)\n"
105757" x,info = ctbtrs(ab,b,uplo='U',trans='N',diag='N',overwrite_b=0)\n"
105758" x,info = ztbtrs(ab,b,uplo='U',trans='N',diag='N',overwrite_b=0)\n"
105759" c,x,info = spbsv(ab,b,lower=0,ldab=shape(ab,0),overwrite_ab=0,overwrite_b=0)\n"
105760" c,x,info = dpbsv(ab,b,lower=0,ldab=shape(ab,0),overwrite_ab=0,overwrite_b=0)\n"
105761" c,x,info = cpbsv(ab,b,lower=0,ldab=shape(ab,0),overwrite_ab=0,overwrite_b=0)\n"
105762" c,x,info = zpbsv(ab,b,lower=0,ldab=shape(ab,0),overwrite_ab=0,overwrite_b=0)\n"
105763" cs11,cs12,cs21,cs22,theta,u1,u2,v1t,v2t,info = sorcsd(x11,x12,x21,x22,compute_u1=1,compute_u2=1,compute_v1t=1,compute_v2t=1,trans=0,signs=0,lwork=2+2*m+5*MAX(1,q-1)+4*MAX(1,q)+8*q,overwrite_x11=0,overwrite_x12=0,overwrite_x21=0,overwrite_x22=0)\n"
105764" cs11,cs12,cs21,cs22,theta,u1,u2,v1t,v2t,info = dorcsd(x11,x12,x21,x22,compute_u1=1,compute_u2=1,compute_v1t=1,compute_v2t=1,trans=0,signs=0,lwork=2+2*m+5*MAX(1,q-1)+4*MAX(1,q)+8*q,overwrite_x11=0,overwrite_x12=0,overwrite_x21=0,overwrite_x22=0)\n"
105765" work,info = sorcsd_lwork(m,p,q)\n"
105766" work,info = dorcsd_lwork(m,p,q)\n"
105767" cs11,cs12,cs21,cs22,theta,u1,u2,v1t,v2t,info = cuncsd(x11,x12,x21,x22,compute_u1=1,compute_u2=1,compute_v1t=1,compute_v2t=1,trans=0,signs=0,lwork=2*m+MAX(1,MAX(mmp,mmq))+1,lrwork=5*MAX(1,q-1)+4*MAX(1,q)+8*q+1,overwrite_x11=0,overwrite_x12=0,overwrite_x21=0,overwrite_x22=0)\n"
105768" cs11,cs12,cs21,cs22,theta,u1,u2,v1t,v2t,info = zuncsd(x11,x12,x21,x22,compute_u1=1,compute_u2=1,compute_v1t=1,compute_v2t=1,trans=0,signs=0,lwork=2*m+MAX(1,MAX(mmp,mmq))+1,lrwork=5*MAX(1,q-1)+4*MAX(1,q)+8*q+1,overwrite_x11=0,overwrite_x12=0,overwrite_x21=0,overwrite_x22=0)\n"
105769" work,rwork,info = cuncsd_lwork(m,p,q)\n"
105770" work,rwork,info = zuncsd_lwork(m,p,q)\n"
105771" ht,info = sorghr(a,tau,lo=0,hi=n-1,lwork=max(hi-lo,1),overwrite_a=0)\n"
105772" ht,info = dorghr(a,tau,lo=0,hi=n-1,lwork=max(hi-lo,1),overwrite_a=0)\n"
105773" work,info = sorghr_lwork(n,lo=0,hi=n-1)\n"
105774" work,info = dorghr_lwork(n,lo=0,hi=n-1)\n"
105775" ht,info = cunghr(a,tau,lo=0,hi=n-1,lwork=max(hi-lo,1),overwrite_a=0)\n"
105776" ht,info = zunghr(a,tau,lo=0,hi=n-1,lwork=max(hi-lo,1),overwrite_a=0)\n"
105777" work,info = cunghr_lwork(n,lo=0,hi=n-1)\n"
105778" work,info = zunghr_lwork(n,lo=0,hi=n-1)\n"
105779" q,work,info = sorgqr(a,tau,lwork=max(3*n,1),overwrite_a=0)\n"
105780" q,work,info = dorgqr(a,tau,lwork=max(3*n,1),overwrite_a=0)\n"
105781" q,work,info = cungqr(a,tau,lwork=max(3*n,1),overwrite_a=0)\n"
105782" q,work,info = zungqr(a,tau,lwork=max(3*n,1),overwrite_a=0)\n"
105783" cq,work,info = sormqr(side,trans,a,tau,c,lwork,overwrite_c=0)\n"
105784" cq,work,info = dormqr(side,trans,a,tau,c,lwork,overwrite_c=0)\n"
105785" cq,work,info = cunmqr(side,trans,a,tau,c,lwork,overwrite_c=0)\n"
105786" cq,work,info = zunmqr(side,trans,a,tau,c,lwork,overwrite_c=0)\n"
105787" a,t,info = sgeqrt(nb,a,overwrite_a=0)\n"
105788" a,t,info = dgeqrt(nb,a,overwrite_a=0)\n"
105789" a,t,info = cgeqrt(nb,a,overwrite_a=0)\n"
105790" a,t,info = zgeqrt(nb,a,overwrite_a=0)\n"
105791" c,info = sgemqrt(v,t,c,side='L',trans='N',overwrite_c=0)\n"
105792" c,info = dgemqrt(v,t,c,side='L',trans='N',overwrite_c=0)\n"
105793" c,info = cgemqrt(v,t,c,side='L',trans='N',overwrite_c=0)\n"
105794" c,info = zgemqrt(v,t,c,side='L',trans='N',overwrite_c=0)\n"
105795" a,b,t,info = stpqrt(l,nb,a,b,overwrite_a=0,overwrite_b=0)\n"
105796" a,b,t,info = dtpqrt(l,nb,a,b,overwrite_a=0,overwrite_b=0)\n"
105797" a,b,t,info = ctpqrt(l,nb,a,b,overwrite_a=0,overwrite_b=0)\n"
105798" a,b,t,info = ztpqrt(l,nb,a,b,overwrite_a=0,overwrite_b=0)\n"
105799" a,b,info = stpmqrt(l,v,t,a,b,side='L',trans='N',overwrite_a=0,overwrite_b=0)\n"
105800" a,b,info = dtpmqrt(l,v,t,a,b,side='L',trans='N',overwrite_a=0,overwrite_b=0)\n"
105801" a,b,info = ctpmqrt(l,v,t,a,b,side='L',trans='N',overwrite_a=0,overwrite_b=0)\n"
105802" a,b,info = ztpmqrt(l,v,t,a,b,side='L',trans='N',overwrite_a=0,overwrite_b=0)\n"
105803" cq,info = sormrz(a,tau,c,side='L',trans='N',lwork=MAX((side[0]=='L'?n:m),1),overwrite_c=0)\n"
105804" cq,info = dormrz(a,tau,c,side='L',trans='N',lwork=MAX((side[0]=='L'?n:m),1),overwrite_c=0)\n"
105805" cq,info = cunmrz(a,tau,c,side='L',trans='N',lwork=MAX((side[0]=='L'?n:m),1),overwrite_c=0)\n"
105806" cq,info = zunmrz(a,tau,c,side='L',trans='N',lwork=MAX((side[0]=='L'?n:m),1),overwrite_c=0)\n"
105807" work,info = sormrz_lwork(m,n,side='L',trans='N')\n"
105808" work,info = dormrz_lwork(m,n,side='L',trans='N')\n"
105809" work,info = cunmrz_lwork(m,n,side='L',trans='N')\n"
105810" work,info = zunmrz_lwork(m,n,side='L',trans='N')\n"
105811" q,work,info = sorgrq(a,tau,lwork=max(3*m,1),overwrite_a=0)\n"
105812" q,work,info = dorgrq(a,tau,lwork=max(3*m,1),overwrite_a=0)\n"
105813" q,work,info = cungrq(a,tau,lwork=max(3*m,1),overwrite_a=0)\n"
105814" q,work,info = zungrq(a,tau,lwork=max(3*m,1),overwrite_a=0)\n"
105815" inv_c,info = strtri(c,lower=0,unitdiag=0,overwrite_c=0)\n"
105816" inv_c,info = dtrtri(c,lower=0,unitdiag=0,overwrite_c=0)\n"
105817" inv_c,info = ctrtri(c,lower=0,unitdiag=0,overwrite_c=0)\n"
105818" inv_c,info = ztrtri(c,lower=0,unitdiag=0,overwrite_c=0)\n"
105819" x,scale,info = strsyl(a,b,c,trana='N',tranb='N',isgn=1,overwrite_c=0)\n"
105820" x,scale,info = dtrsyl(a,b,c,trana='N',tranb='N',isgn=1,overwrite_c=0)\n"
105821" x,scale,info = ctrsyl(a,b,c,trana='N',tranb='N',isgn=1,overwrite_c=0)\n"
105822" x,scale,info = ztrsyl(a,b,c,trana='N',tranb='N',isgn=1,overwrite_c=0)\n"
105823" w,z,info = chbevd(ab,compute_v=1,lower=0,ldab=shape(ab,0),lrwork=(compute_v?1+5*n+2*n*n:n),liwork=(compute_v?3+5*n:1),overwrite_ab=1)\n"
105824" w,z,info = zhbevd(ab,compute_v=1,lower=0,ldab=shape(ab,0),lrwork=(compute_v?1+5*n+2*n*n:n),liwork=(compute_v?3+5*n:1),overwrite_ab=1)\n"
105825" w,z,m,ifail,info = chbevx(ab,vl,vu,il,iu,ldab=shape(ab,0),compute_v=1,range=0,lower=0,abstol=0.0,mmax=(compute_v?(range==2?(iu-il+1):n):1),overwrite_ab=1)\n"
105826" w,z,m,ifail,info = zhbevx(ab,vl,vu,il,iu,ldab=shape(ab,0),compute_v=1,range=0,lower=0,abstol=0.0,mmax=(compute_v?(range==2?(iu-il+1):n):1),overwrite_ab=1)\n"
105827" t,r,res,x,info = sgglse(a,b,c,d,lwork=max(m+n+p,1),overwrite_a=0,overwrite_b=0,overwrite_c=0,overwrite_d=0)\n"
105828" t,r,res,x,info = dgglse(a,b,c,d,lwork=max(m+n+p,1),overwrite_a=0,overwrite_b=0,overwrite_c=0,overwrite_d=0)\n"
105829" t,r,res,x,info = cgglse(a,b,c,d,lwork=max(m+n+p,1),overwrite_a=0,overwrite_b=0,overwrite_c=0,overwrite_d=0)\n"
105830" t,r,res,x,info = zgglse(a,b,c,d,lwork=max(m+n+p,1),overwrite_a=0,overwrite_b=0,overwrite_c=0,overwrite_d=0)\n"
105831" work,info = sgglse_lwork(m,n,p)\n"
105832" work,info = dgglse_lwork(m,n,p)\n"
105833" work,info = cgglse_lwork(m,n,p)\n"
105834" work,info = zgglse_lwork(m,n,p)\n"
105835" rcond,info = sppcon(n,ap,anorm,lower=0)\n"
105836" rcond,info = dppcon(n,ap,anorm,lower=0)\n"
105837" rcond,info = cppcon(n,ap,anorm,lower=0)\n"
105838" rcond,info = zppcon(n,ap,anorm,lower=0)\n"
105839" x,info = sppsv(n,ap,b,lower=0,overwrite_b=0)\n"
105840" x,info = dppsv(n,ap,b,lower=0,overwrite_b=0)\n"
105841" x,info = cppsv(n,ap,b,lower=0,overwrite_b=0)\n"
105842" x,info = zppsv(n,ap,b,lower=0,overwrite_b=0)\n"
105843" ul,info = spptrf(n,ap,lower=0,overwrite_ap=0)\n"
105844" ul,info = dpptrf(n,ap,lower=0,overwrite_ap=0)\n"
105845" ul,info = cpptrf(n,ap,lower=0,overwrite_ap=0)\n"
105846" ul,info = zpptrf(n,ap,lower=0,overwrite_ap=0)\n"
105847" uli,info = spptri(n,ap,lower=0,overwrite_ap=0)\n"
105848" uli,info = dpptri(n,ap,lower=0,overwrite_ap=0)\n"
105849" uli,info = cpptri(n,ap,lower=0,overwrite_ap=0)\n"
105850" uli,info = zpptri(n,ap,lower=0,overwrite_ap=0)\n"
105851" x,info = spptrs(n,ap,b,lower=0,overwrite_b=0)\n"
105852" x,info = dpptrs(n,ap,b,lower=0,overwrite_b=0)\n"
105853" x,info = cpptrs(n,ap,b,lower=0,overwrite_b=0)\n"
105854" x,info = zpptrs(n,ap,b,lower=0,overwrite_b=0)\n"
105855" w,z,info = ssbev(ab,compute_v=1,lower=0,ldab=shape(ab,0),overwrite_ab=1)\n"
105856" w,z,info = dsbev(ab,compute_v=1,lower=0,ldab=shape(ab,0),overwrite_ab=1)\n"
105857" w,z,info = ssbevd(ab,compute_v=1,lower=0,ldab=shape(ab,0),liwork=(compute_v?3+5*n:1),overwrite_ab=1)\n"
105858" w,z,info = dsbevd(ab,compute_v=1,lower=0,ldab=shape(ab,0),liwork=(compute_v?3+5*n:1),overwrite_ab=1)\n"
105859" w,z,m,ifail,info = ssbevx(ab,vl,vu,il,iu,ldab=shape(ab,0),compute_v=1,range=0,lower=0,abstol=0.0,mmax=(compute_v?(range==2?(iu-il+1):n):1),overwrite_ab=1)\n"
105860" w,z,m,ifail,info = dsbevx(ab,vl,vu,il,iu,ldab=shape(ab,0),compute_v=1,range=0,lower=0,abstol=0.0,mmax=(compute_v?(range==2?(iu-il+1):n):1),overwrite_ab=1)\n"
105861" m,w,iblock,isplit,info = sstebz(d,e,range,vl,vu,il,iu,tol,order)\n"
105862" m,w,iblock,isplit,info = dstebz(d,e,range,vl,vu,il,iu,tol,order)\n"
105863" vals,info = ssterf(d,e,overwrite_d=0,overwrite_e=0)\n"
105864" vals,info = dsterf(d,e,overwrite_d=0,overwrite_e=0)\n"
105865" z,info = sstein(d,e,w,iblock,isplit)\n"
105866" z,info = dstein(d,e,w,iblock,isplit)\n"
105867" m,w,z,info = sstemr(d,e,range,vl,vu,il,iu,compute_v=1,lwork=max((compute_v?18*n:12*n),1),liwork=(compute_v?10*n:8*n),overwrite_d=0)\n"
105868" m,w,z,info = dstemr(d,e,range,vl,vu,il,iu,compute_v=1,lwork=max((compute_v?18*n:12*n),1),liwork=(compute_v?10*n:8*n),overwrite_d=0)\n"
105869" work,iwork,info = sstemr_lwork(d,e,range,vl,vu,il,iu,compute_v=1,overwrite_d=0,overwrite_e=0)\n"
105870" work,iwork,info = dstemr_lwork(d,e,range,vl,vu,il,iu,compute_v=1,overwrite_d=0,overwrite_e=0)\n"
105871" vals,z,info = sstev(d,e,compute_v=1,overwrite_d=0,overwrite_e=0)\n"
105872" vals,z,info = dstev(d,e,compute_v=1,overwrite_d=0,overwrite_e=0)\n"
105873" cout = ssfrk(n,k,alpha,a,beta,c,transr='N',uplo='U',trans='N',overwrite_c=0)\n"
105874" cout = dsfrk(n,k,alpha,a,beta,c,transr='N',uplo='U',trans='N',overwrite_c=0)\n"
105875" cout = chfrk(n,k,alpha,a,beta,c,transr='N',uplo='U',trans='N',overwrite_c=0)\n"
105876" cout = zhfrk(n,k,alpha,a,beta,c,transr='N',uplo='U',trans='N',overwrite_c=0)\n"
105877" arf,info = stpttf(n,ap,transr='N',uplo='U')\n"
105878" arf,info = dtpttf(n,ap,transr='N',uplo='U')\n"
105879" arf,info = ctpttf(n,ap,transr='N',uplo='U')\n"
105880" arf,info = ztpttf(n,ap,transr='N',uplo='U')\n"
105881" a,info = stpttr(n,ap,uplo='U')\n"
105882" a,info = dtpttr(n,ap,uplo='U')\n"
105883" a,info = ctpttr(n,ap,uplo='U')\n"
105884" a,info = ztpttr(n,ap,uplo='U')\n"
105885" ap,info = stfttp(n,arf,transr='N',uplo='U')\n"
105886" ap,info = dtfttp(n,arf,transr='N',uplo='U')\n"
105887" ap,info = ctfttp(n,arf,transr='N',uplo='U')\n"
105888" ap,info = ztfttp(n,arf,transr='N',uplo='U')\n"
105889" a,info = stfttr(n,arf,transr='N',uplo='U')\n"
105890" a,info = dtfttr(n,arf,transr='N',uplo='U')\n"
105891" a,info = ctfttr(n,arf,transr='N',uplo='U')\n"
105892" a,info = ztfttr(n,arf,transr='N',uplo='U')\n"
105893" arf,info = strttf(a,transr='N',uplo='U')\n"
105894" arf,info = dtrttf(a,transr='N',uplo='U')\n"
105895" arf,info = ctrttf(a,transr='N',uplo='U')\n"
105896" arf,info = ztrttf(a,transr='N',uplo='U')\n"
105897" ap,info = strttp(a,uplo='U')\n"
105898" ap,info = dtrttp(a,uplo='U')\n"
105899" ap,info = ctrttp(a,uplo='U')\n"
105900" ap,info = ztrttp(a,uplo='U')\n"
105901" x = stfsm(alpha,a,b,transr='N',side='L',uplo='U',trans='N',diag='N',overwrite_b=0)\n"
105902" x = dtfsm(alpha,a,b,transr='N',side='L',uplo='U',trans='N',diag='N',overwrite_b=0)\n"
105903" x = ctfsm(alpha,a,b,transr='N',side='L',uplo='U',trans='N',diag='N',overwrite_b=0)\n"
105904" x = ztfsm(alpha,a,b,transr='N',side='L',uplo='U',trans='N',diag='N',overwrite_b=0)\n"
105905" achol,info = spftrf(n,a,transr='N',uplo='U',overwrite_a=0)\n"
105906" achol,info = dpftrf(n,a,transr='N',uplo='U',overwrite_a=0)\n"
105907" achol,info = cpftrf(n,a,transr='N',uplo='U',overwrite_a=0)\n"
105908" achol,info = zpftrf(n,a,transr='N',uplo='U',overwrite_a=0)\n"
105909" ainv,info = spftri(n,a,transr='N',uplo='U',overwrite_a=0)\n"
105910" ainv,info = dpftri(n,a,transr='N',uplo='U',overwrite_a=0)\n"
105911" ainv,info = cpftri(n,a,transr='N',uplo='U',overwrite_a=0)\n"
105912" ainv,info = zpftri(n,a,transr='N',uplo='U',overwrite_a=0)\n"
105913" x,info = spftrs(n,a,b,transr='N',uplo='U',overwrite_b=0)\n"
105914" x,info = dpftrs(n,a,b,transr='N',uplo='U',overwrite_b=0)\n"
105915" x,info = cpftrs(n,a,b,transr='N',uplo='U',overwrite_b=0)\n"
105916" x,info = zpftrs(n,a,b,transr='N',uplo='U',overwrite_b=0)\n"
105917" rz,tau,info = stzrzf(a,lwork=MAX(m,1),overwrite_a=0)\n"
105918" rz,tau,info = dtzrzf(a,lwork=MAX(m,1),overwrite_a=0)\n"
105919" rz,tau,info = ctzrzf(a,lwork=MAX(m,1),overwrite_a=0)\n"
105920" rz,tau,info = ztzrzf(a,lwork=MAX(m,1),overwrite_a=0)\n"
105921" work,info = stzrzf_lwork(m,n)\n"
105922" work,info = dtzrzf_lwork(m,n)\n"
105923" work,info = ctzrzf_lwork(m,n)\n"
105924" work,info = ztzrzf_lwork(m,n)\n"
105925" delta,sigma,work,info = slasd4(i,d,z,rho=1.0)\n"
105926" delta,sigma,work,info = dlasd4(i,d,z,rho=1.0)\n"
105927" a,info = slauum(c,lower=0,overwrite_c=0)\n"
105928" a,info = dlauum(c,lower=0,overwrite_c=0)\n"
105929" a,info = clauum(c,lower=0,overwrite_c=0)\n"
105930" a,info = zlauum(c,lower=0,overwrite_c=0)\n"
105931" a = slaswp(a,piv,k1=0,k2=npiv-1,off=0,inc=1,overwrite_a=0)\n"
105932" a = dlaswp(a,piv,k1=0,k2=npiv-1,off=0,inc=1,overwrite_a=0)\n"
105933" a = claswp(a,piv,k1=0,k2=npiv-1,off=0,inc=1,overwrite_a=0)\n"
105934" a = zlaswp(a,piv,k1=0,k2=npiv-1,off=0,inc=1,overwrite_a=0)\n"
105935" dlamch = dlamch(cmach)\n"
105936" slamch = slamch(cmach)\n"
105937" n2 = slange(norm,a)\n"
105938" n2 = dlange(norm,a)\n"
105939" n2 = clange(norm,a)\n"
105940" n2 = zlange(norm,a)\n"
105941" alpha,x,tau = slarfg(n,alpha,x,incx=1,overwrite_x=0)\n"
105942" alpha,x,tau = dlarfg(n,alpha,x,incx=1,overwrite_x=0)\n"
105943" alpha,x,tau = clarfg(n,alpha,x,incx=1,overwrite_x=0)\n"
105944" alpha,x,tau = zlarfg(n,alpha,x,incx=1,overwrite_x=0)\n"
105945" c = slarf(v,tau,c,work,side='L',incv=1,overwrite_c=0)\n"
105946" c = dlarf(v,tau,c,work,side='L',incv=1,overwrite_c=0)\n"
105947" c = clarf(v,tau,c,work,side='L',incv=1,overwrite_c=0)\n"
105948" c = zlarf(v,tau,c,work,side='L',incv=1,overwrite_c=0)\n"
105949" cs,sn,r = slartg(f,g)\n"
105950" cs,sn,r = dlartg(f,g)\n"
105951" cs,sn,r = clartg(f,g)\n"
105952" cs,sn,r = zlartg(f,g)\n"
105953" x,y = crot(x,y,c,s,n=(lx-1-offx)/abs(incx)+1,offx=0,incx=1,offy=0,incy=1,overwrite_x=0,overwrite_y=0)\n"
105954" x,y = zrot(x,y,c,s,n=(lx-1-offx)/abs(incx)+1,offx=0,incx=1,offy=0,incy=1,overwrite_x=0,overwrite_y=0)\n"
105955" major,minor,patch = ilaver()\n"
105956".");
105957 PyDict_SetItemString(d, "__doc__", s);
105958 _flapack_error = PyErr_NewException ("_flapack.error", NULL((void*)0), NULL((void*)0));
105959 Py_DECREF(s)_Py_DECREF(((PyObject*)(s)));
105960 for(i=0;f2py_routine_defs[i].name!=NULL((void*)0);i++) {
4
Assuming field 'name' is equal to NULL
5
Loop condition is false. Execution continues on line 106526
105961 tmp = PyFortranObject_NewAsAttr(&f2py_routine_defs[i]);
105962 PyDict_SetItemString(d, f2py_routine_defs[i].name, tmp);
105963 Py_DECREF(tmp)_Py_DECREF(((PyObject*)(tmp)));
105964 }
105965
105966
105967
105968
105969
105970
105971
105972
105973
105974
105975
105976
105977
105978
105979
105980
105981
105982
105983
105984
105985
105986
105987
105988
105989
105990
105991
105992
105993
105994
105995
105996
105997
105998
105999
106000
106001
106002
106003
106004
106005
106006
106007
106008
106009
106010
106011
106012
106013
106014
106015
106016
106017
106018
106019
106020
106021
106022
106023
106024
106025
106026
106027
106028
106029
106030
106031
106032
106033
106034
106035
106036
106037
106038
106039
106040
106041
106042
106043
106044
106045
106046
106047
106048
106049
106050
106051
106052
106053
106054
106055
106056
106057
106058
106059
106060
106061
106062
106063
106064
106065
106066
106067
106068
106069
106070
106071
106072
106073
106074
106075
106076
106077
106078
106079
106080
106081
106082
106083
106084
106085
106086
106087
106088
106089
106090
106091
106092
106093
106094
106095
106096
106097
106098
106099
106100
106101
106102
106103
106104
106105
106106
106107
106108
106109
106110
106111
106112
106113
106114
106115
106116
106117
106118
106119
106120
106121
106122
106123
106124
106125
106126
106127
106128
106129
106130
106131
106132
106133
106134
106135
106136
106137
106138
106139
106140
106141
106142
106143
106144
106145
106146
106147
106148
106149
106150
106151
106152
106153
106154
106155
106156
106157
106158
106159
106160
106161
106162
106163
106164
106165
106166
106167
106168
106169
106170
106171
106172
106173
106174
106175
106176
106177
106178
106179
106180
106181
106182
106183
106184
106185
106186
106187
106188
106189
106190
106191
106192
106193
106194
106195
106196
106197
106198
106199
106200
106201
106202
106203
106204
106205
106206
106207
106208
106209
106210
106211
106212
106213
106214
106215
106216
106217
106218
106219
106220
106221
106222
106223
106224
106225
106226
106227
106228
106229
106230
106231
106232
106233
106234
106235
106236
106237
106238
106239
106240
106241
106242
106243
106244
106245
106246
106247
106248
106249
106250
106251
106252
106253
106254
106255
106256
106257
106258
106259
106260
106261
106262
106263
106264
106265
106266
106267
106268
106269
106270
106271
106272
106273
106274
106275
106276
106277
106278
106279
106280
106281
106282
106283
106284
106285
106286
106287
106288
106289
106290
106291
106292
106293
106294
106295
106296
106297
106298
106299
106300
106301
106302
106303
106304
106305
106306
106307
106308
106309
106310
106311
106312
106313
106314
106315
106316
106317
106318
106319
106320
106321
106322
106323
106324
106325
106326
106327
106328
106329
106330
106331
106332
106333
106334
106335
106336
106337
106338
106339
106340
106341
106342
106343
106344
106345
106346
106347
106348
106349
106350
106351
106352
106353
106354
106355
106356
106357
106358
106359
106360
106361
106362
106363
106364
106365
106366
106367
106368
106369
106370
106371
106372
106373
106374
106375
106376
106377
106378
106379
106380
106381
106382
106383
106384
106385
106386
106387
106388
106389
106390
106391
106392
106393
106394
106395
106396
106397
106398
106399
106400
106401
106402
106403
106404
106405
106406
106407
106408
106409
106410
106411
106412
106413
106414
106415
106416
106417
106418
106419
106420
106421
106422
106423
106424
106425
106426
106427
106428
106429
106430
106431
106432
106433
106434
106435
106436
106437
106438
106439
106440
106441
106442
106443
106444
106445
106446
106447
106448
106449
106450
106451
106452
106453
106454
106455
106456
106457
106458
106459
106460
106461
106462
106463
106464
106465
106466
106467
106468
106469
106470
106471
106472
106473
106474
106475
106476
106477
106478
106479
106480
106481
106482
106483
106484
106485
106486
106487
106488
106489
106490
106491
106492
106493
106494
106495
106496
106497
106498
106499
106500
106501
106502
106503
106504
106505
106506
106507
106508
106509
106510
106511
106512
106513
106514
106515
106516
106517
106518
106519
106520
106521
106522
106523
106524 {
106525 extern double F_FUNC(dlamch,DLAMCH)dlamch_(void);
106526 PyObject* o = PyDict_GetItemString(d,"dlamch");
106527 PyObject_SetAttrString(o,"_cpointer", F2PyCapsule_FromVoidPtr((void*)F_FUNC(dlamch,DLAMCH)dlamch_,NULL((void*)0)));
106528#if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF <<
4) | (0 << 0))
>= 0x03000000
106529 PyObject_SetAttrString(o,"__name__", PyUnicode_FromString("dlamch"));
106530#else
106531 PyObject_SetAttrString(o,"__name__", PyString_FromStringPyBytes_FromString("dlamch"));
106532#endif
106533 }
106534
106535
106536 {
106537 extern float F_FUNC(slamch,SLAMCH)slamch_(void);
106538 PyObject* o = PyDict_GetItemString(d,"slamch");
106539 PyObject_SetAttrString(o,"_cpointer", F2PyCapsule_FromVoidPtr((void*)F_FUNC(slamch,SLAMCH)slamch_,NULL((void*)0)));
106540#if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF <<
4) | (0 << 0))
>= 0x03000000
106541 PyObject_SetAttrString(o,"__name__", PyUnicode_FromString("slamch"));
106542#else
106543 PyObject_SetAttrString(o,"__name__", PyString_FromStringPyBytes_FromString("slamch"));
106544#endif
106545 }
106546
106547
106548 {
106549 extern float F_FUNC(slange,SLANGE)slange_(void);
106550 PyObject* o = PyDict_GetItemString(d,"slange");
106551 PyObject_SetAttrString(o,"_cpointer", F2PyCapsule_FromVoidPtr((void*)F_FUNC(slange,SLANGE)slange_,NULL((void*)0)));
106552#if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF <<
4) | (0 << 0))
>= 0x03000000
106553 PyObject_SetAttrString(o,"__name__", PyUnicode_FromString("slange"));
106554#else
106555 PyObject_SetAttrString(o,"__name__", PyString_FromStringPyBytes_FromString("slange"));
106556#endif
106557 }
106558
106559
106560 {
106561 extern double F_FUNC(dlange,DLANGE)dlange_(void);
106562 PyObject* o = PyDict_GetItemString(d,"dlange");
106563 PyObject_SetAttrString(o,"_cpointer", F2PyCapsule_FromVoidPtr((void*)F_FUNC(dlange,DLANGE)dlange_,NULL((void*)0)));
106564#if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF <<
4) | (0 << 0))
>= 0x03000000
106565 PyObject_SetAttrString(o,"__name__", PyUnicode_FromString("dlange"));
6
Calling 'PyUnicode_FromString'
8
Returning from 'PyUnicode_FromString'
9
PyObject ownership leak with reference count of 1
106566#else
106567 PyObject_SetAttrString(o,"__name__", PyString_FromStringPyBytes_FromString("dlange"));
106568#endif
106569 }
106570
106571
106572 {
106573 extern float F_FUNC(clange,CLANGE)clange_(void);
106574 PyObject* o = PyDict_GetItemString(d,"clange");
106575 PyObject_SetAttrString(o,"_cpointer", F2PyCapsule_FromVoidPtr((void*)F_FUNC(clange,CLANGE)clange_,NULL((void*)0)));
106576#if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF <<
4) | (0 << 0))
>= 0x03000000
106577 PyObject_SetAttrString(o,"__name__", PyUnicode_FromString("clange"));
106578#else
106579 PyObject_SetAttrString(o,"__name__", PyString_FromStringPyBytes_FromString("clange"));
106580#endif
106581 }
106582
106583
106584 {
106585 extern double F_FUNC(zlange,ZLANGE)zlange_(void);
106586 PyObject* o = PyDict_GetItemString(d,"zlange");
106587 PyObject_SetAttrString(o,"_cpointer", F2PyCapsule_FromVoidPtr((void*)F_FUNC(zlange,ZLANGE)zlange_,NULL((void*)0)));
106588#if PY_VERSION_HEX((3 << 24) | (8 << 16) | (5 << 8) | (0xF <<
4) | (0 << 0))
>= 0x03000000
106589 PyObject_SetAttrString(o,"__name__", PyUnicode_FromString("zlange"));
106590#else
106591 PyObject_SetAttrString(o,"__name__", PyString_FromStringPyBytes_FromString("zlange"));
106592#endif
106593 }
106594
106595
106596
106597
106598
106599
106600
106601
106602
106603
106604
106605
106606
106607
106608
106609
106610/*eof initf2pywraphooks*/
106611/*eof initf90modhooks*/
106612
106613/*eof initcommonhooks*/
106614
106615
106616#ifdef F2PY_REPORT_ATEXIT
106617 if (! PyErr_Occurred())
106618 on_exit(f2py_report_on_exit,(void*)"_flapack");
106619#endif
106620
106621 return RETVALm;
106622}
106623#ifdef __cplusplus
106624}
106625#endif

/home/alan/temp/cpython/Python-3.8.5/Doc/build/models/PyUnicode_FromString.model

1#ifndef PyUnicode_FromString
2struct _object;
3typedef struct _object PyObject;
4PyObject* clang_analyzer_PyObject_New_Reference();
5PyObject *PyUnicode_FromString(const char *u) {
6 return clang_analyzer_PyObject_New_Reference();
7
Setting reference count to 1
7}
8#else
9#warning "API PyUnicode_FromString is defined as a macro."
10#endif